diff --git a/CMakeLists.txt b/CMakeLists.txt index cd9d782b6b..dfb536cbe7 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -54,7 +54,7 @@ option(NOVA_SIMD "Build VBAP with nova-simd support." ON) option(CPP11 "Build with c++11." ON) option(NATIVE "Optimize for this specific machine." OFF) option(SYSTEM_STK "Use STK libraries from system" OFF) - +option(HOA_UGENS "Build with HOAUGens. Cannot be built on Windows or on embedded linux systems." OFF) option(NOVA_DISK_IO "Build with Nova's DiskIO UGens. Requires boost source tree, break warranty & eats your children." OFF) if(CMAKE_CXX_COMPILER_ID STREQUAL "Clang" OR CMAKE_CXX_COMPILER_ID STREQUAL "AppleClang") diff --git a/README.md b/README.md index 4a377df669..1b5617e796 100644 --- a/README.md +++ b/README.md @@ -72,6 +72,8 @@ Copy the `SC3plugins` folder to your Extensions folder (evaluate `Platform.userE NOTE: on macOS, if you want to install into `CMAKE_INSTALL_PREFIX`, you have to specify it by disabling the `IN_PLACE_BUILD` cmake option which defaults to ON (see below). +**Note for SuperCollider < 3.9.1** The Supernova server on macOS and Windows incorrectly searches for plugins in the `/Extensions/plugins` directory. The scsynth server correctly searches for plugins in `/Extensions`. If Supernova is unable to find the sc3-plugins, make sure that they are located in `/Extensions/plugins`. + ### Cmake Options + Set install target diff --git a/source/CMakeLists.txt b/source/CMakeLists.txt old mode 100644 new mode 100755 index b44bb6bb9e..38f08cd965 --- a/source/CMakeLists.txt +++ b/source/CMakeLists.txt @@ -77,7 +77,6 @@ macro(BUILD_PLUGIN PLUGIN_NAME PLUGIN_SOURCES PLUGIN_LIBS PLUGIN_DIR) endmacro() - #----------------------- # plugins without extras #----------------------- @@ -165,6 +164,16 @@ else() set(INSTALL_DESTINATION_DISTRO "SC3plugins") endif() +# HOAUGens +if (HOA_UGENS) + list(APPEND PLUGIN_DIRS HOAUGens) + if (CMAKE_COMPILER_IS_CLANG) + file(GLOB HOAUGensSources HOAUGens/*cpp) + foreach(HOAUGensSourceFile ${HOAUGensSources}) + set_source_files_properties("${HOAUGensSourceFile}" PROPERTIES COMPILE_FLAGS "-fbracket-depth=4096") + endforeach(HOAUGensSourceFile) + endif() +endif() foreach(DIR ${PLUGIN_DIRS}) FIND_AND_BUILD_PLUGINS(${DIR}) @@ -217,17 +226,17 @@ BUILD_PLUGIN(complexRes "" "DEINDUGens") include_directories(DEINDUGens/include) BUILD_PLUGIN(JPverb -"DEINDUGens/JPverbRaw.cpp" +"DEINDUGens/JPverbRaw.cpp" "" "DEINDUGens") - set_property(TARGET JPverb APPEND PROPERTY COMPILE_DEFINITIONS SC_FAUST_PREFIX="\"\"") - set_property(TARGET JPverb APPEND PROPERTY COMPILE_DEFINITIONS mydsp=JPVERB) - set_property(TARGET JPverb APPEND PROPERTY COMPILE_DEFINITIONS NDEBUG) + set_property(TARGET JPverb APPEND PROPERTY COMPILE_DEFINITIONS SC_FAUST_PREFIX="\"\"") + set_property(TARGET JPverb APPEND PROPERTY COMPILE_DEFINITIONS mydsp=JPVERB) + set_property(TARGET JPverb APPEND PROPERTY COMPILE_DEFINITIONS NDEBUG) BUILD_PLUGIN(Greyhole -"DEINDUGens/GreyholeRaw.cpp" +"DEINDUGens/GreyholeRaw.cpp" "" "DEINDUGens") - set_property(TARGET Greyhole APPEND PROPERTY COMPILE_DEFINITIONS SC_FAUST_PREFIX="\"\"") - set_property(TARGET Greyhole APPEND PROPERTY COMPILE_DEFINITIONS mydsp=GREYHOLE) - set_property(TARGET Greyhole APPEND PROPERTY COMPILE_DEFINITIONS NDEBUG) + set_property(TARGET Greyhole APPEND PROPERTY COMPILE_DEFINITIONS SC_FAUST_PREFIX="\"\"") + set_property(TARGET Greyhole APPEND PROPERTY COMPILE_DEFINITIONS mydsp=GREYHOLE) + set_property(TARGET Greyhole APPEND PROPERTY COMPILE_DEFINITIONS NDEBUG) # MembraneUGens BUILD_PLUGIN(MembraneUGens "MembraneUGens/Membrane_shape.c;MembraneUGens/Membrane.cpp" @@ -243,7 +252,7 @@ endif() # OteyPianoUGens BUILD_PLUGIN(OteyPianoUGens "OteyPianoUGens/OteyPiano.cpp;OteyPianoUGens/dwgs.cpp;OteyPianoUGens/filter.cpp;OteyPianoUGens/hammer.cpp;OteyPianoUGens/reverb.cpp" "" "OteyPianoUGens") - + # PitchDetectionUGens file(GLOB PitchDetectionSources PitchDetection/*cpp) diff --git a/source/HOAUGens/HOAAzimuthRotator1.cpp b/source/HOAUGens/HOAAzimuthRotator1.cpp new file mode 100644 index 0000000000..06cb53fdad --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator1.cpp @@ -0,0 +1,1133 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator1"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator1"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator10.cpp b/source/HOAUGens/HOAAzimuthRotator10.cpp new file mode 100644 index 0000000000..3c5aefdc31 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator10.cpp @@ -0,0 +1,2582 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator10" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator10"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 121; + + } + virtual int getNumOutputs() { + return 121; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator10"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* input100 = inputs[100]; + FAUSTFLOAT* input101 = inputs[101]; + FAUSTFLOAT* input102 = inputs[102]; + FAUSTFLOAT* input103 = inputs[103]; + FAUSTFLOAT* input104 = inputs[104]; + FAUSTFLOAT* input105 = inputs[105]; + FAUSTFLOAT* input106 = inputs[106]; + FAUSTFLOAT* input107 = inputs[107]; + FAUSTFLOAT* input108 = inputs[108]; + FAUSTFLOAT* input109 = inputs[109]; + FAUSTFLOAT* input110 = inputs[110]; + FAUSTFLOAT* input111 = inputs[111]; + FAUSTFLOAT* input112 = inputs[112]; + FAUSTFLOAT* input113 = inputs[113]; + FAUSTFLOAT* input114 = inputs[114]; + FAUSTFLOAT* input115 = inputs[115]; + FAUSTFLOAT* input116 = inputs[116]; + FAUSTFLOAT* input117 = inputs[117]; + FAUSTFLOAT* input118 = inputs[118]; + FAUSTFLOAT* input119 = inputs[119]; + FAUSTFLOAT* input120 = inputs[120]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + FAUSTFLOAT* output100 = outputs[100]; + FAUSTFLOAT* output101 = outputs[101]; + FAUSTFLOAT* output102 = outputs[102]; + FAUSTFLOAT* output103 = outputs[103]; + FAUSTFLOAT* output104 = outputs[104]; + FAUSTFLOAT* output105 = outputs[105]; + FAUSTFLOAT* output106 = outputs[106]; + FAUSTFLOAT* output107 = outputs[107]; + FAUSTFLOAT* output108 = outputs[108]; + FAUSTFLOAT* output109 = outputs[109]; + FAUSTFLOAT* output110 = outputs[110]; + FAUSTFLOAT* output111 = outputs[111]; + FAUSTFLOAT* output112 = outputs[112]; + FAUSTFLOAT* output113 = outputs[113]; + FAUSTFLOAT* output114 = outputs[114]; + FAUSTFLOAT* output115 = outputs[115]; + FAUSTFLOAT* output116 = outputs[116]; + FAUSTFLOAT* output117 = outputs[117]; + FAUSTFLOAT* output118 = outputs[118]; + FAUSTFLOAT* output119 = outputs[119]; + FAUSTFLOAT* output120 = outputs[120]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + double fSlow24 = (5.0 * fSlow0); + double fSlow25 = cos(fSlow24); + double fSlow26 = sin(fSlow24); + double fSlow27 = (0.0 - fSlow24); + double fSlow28 = sin(fSlow27); + double fSlow29 = cos(fSlow27); + double fSlow30 = (6.0 * fSlow0); + double fSlow31 = cos(fSlow30); + double fSlow32 = sin(fSlow30); + double fSlow33 = (0.0 - fSlow30); + double fSlow34 = sin(fSlow33); + double fSlow35 = cos(fSlow33); + double fSlow36 = (7.0 * fSlow0); + double fSlow37 = cos(fSlow36); + double fSlow38 = sin(fSlow36); + double fSlow39 = (0.0 - fSlow36); + double fSlow40 = sin(fSlow39); + double fSlow41 = cos(fSlow39); + double fSlow42 = (8.0 * fSlow0); + double fSlow43 = cos(fSlow42); + double fSlow44 = sin(fSlow42); + double fSlow45 = (0.0 - fSlow42); + double fSlow46 = sin(fSlow45); + double fSlow47 = cos(fSlow45); + double fSlow48 = (9.0 * fSlow0); + double fSlow49 = cos(fSlow48); + double fSlow50 = sin(fSlow48); + double fSlow51 = (0.0 - fSlow48); + double fSlow52 = sin(fSlow51); + double fSlow53 = cos(fSlow51); + double fSlow54 = (10.0 * fSlow0); + double fSlow55 = cos(fSlow54); + double fSlow56 = sin(fSlow54); + double fSlow57 = (0.0 - fSlow54); + double fSlow58 = sin(fSlow57); + double fSlow59 = cos(fSlow57); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + double fTemp20 = double(input25[i]); + double fTemp21 = double(input35[i]); + output25[i] = FAUSTFLOAT(((fSlow25 * fTemp20) + (fSlow26 * fTemp21))); + double fTemp22 = double(input26[i]); + double fTemp23 = double(input34[i]); + output26[i] = FAUSTFLOAT(((fSlow19 * fTemp22) + (fSlow20 * fTemp23))); + double fTemp24 = double(input27[i]); + double fTemp25 = double(input33[i]); + output27[i] = FAUSTFLOAT(((fSlow13 * fTemp24) + (fSlow14 * fTemp25))); + double fTemp26 = double(input28[i]); + double fTemp27 = double(input32[i]); + output28[i] = FAUSTFLOAT(((fSlow7 * fTemp26) + (fSlow8 * fTemp27))); + double fTemp28 = double(input29[i]); + double fTemp29 = double(input31[i]); + output29[i] = FAUSTFLOAT(((fSlow1 * fTemp28) + (fSlow2 * fTemp29))); + output30[i] = FAUSTFLOAT(double(input30[i])); + output31[i] = FAUSTFLOAT(((fSlow4 * fTemp28) + (fSlow5 * fTemp29))); + output32[i] = FAUSTFLOAT(((fSlow10 * fTemp26) + (fSlow11 * fTemp27))); + output33[i] = FAUSTFLOAT(((fSlow16 * fTemp24) + (fSlow17 * fTemp25))); + output34[i] = FAUSTFLOAT(((fSlow22 * fTemp22) + (fSlow23 * fTemp23))); + output35[i] = FAUSTFLOAT(((fSlow28 * fTemp20) + (fSlow29 * fTemp21))); + double fTemp30 = double(input36[i]); + double fTemp31 = double(input48[i]); + output36[i] = FAUSTFLOAT(((fSlow31 * fTemp30) + (fSlow32 * fTemp31))); + double fTemp32 = double(input37[i]); + double fTemp33 = double(input47[i]); + output37[i] = FAUSTFLOAT(((fSlow25 * fTemp32) + (fSlow26 * fTemp33))); + double fTemp34 = double(input38[i]); + double fTemp35 = double(input46[i]); + output38[i] = FAUSTFLOAT(((fSlow19 * fTemp34) + (fSlow20 * fTemp35))); + double fTemp36 = double(input39[i]); + double fTemp37 = double(input45[i]); + output39[i] = FAUSTFLOAT(((fSlow13 * fTemp36) + (fSlow14 * fTemp37))); + double fTemp38 = double(input40[i]); + double fTemp39 = double(input44[i]); + output40[i] = FAUSTFLOAT(((fSlow7 * fTemp38) + (fSlow8 * fTemp39))); + double fTemp40 = double(input41[i]); + double fTemp41 = double(input43[i]); + output41[i] = FAUSTFLOAT(((fSlow1 * fTemp40) + (fSlow2 * fTemp41))); + output42[i] = FAUSTFLOAT(double(input42[i])); + output43[i] = FAUSTFLOAT(((fSlow4 * fTemp40) + (fSlow5 * fTemp41))); + output44[i] = FAUSTFLOAT(((fSlow10 * fTemp38) + (fSlow11 * fTemp39))); + output45[i] = FAUSTFLOAT(((fSlow16 * fTemp36) + (fSlow17 * fTemp37))); + output46[i] = FAUSTFLOAT(((fSlow22 * fTemp34) + (fSlow23 * fTemp35))); + output47[i] = FAUSTFLOAT(((fSlow28 * fTemp32) + (fSlow29 * fTemp33))); + output48[i] = FAUSTFLOAT(((fSlow34 * fTemp30) + (fSlow35 * fTemp31))); + double fTemp42 = double(input49[i]); + double fTemp43 = double(input63[i]); + output49[i] = FAUSTFLOAT(((fSlow37 * fTemp42) + (fSlow38 * fTemp43))); + double fTemp44 = double(input50[i]); + double fTemp45 = double(input62[i]); + output50[i] = FAUSTFLOAT(((fSlow31 * fTemp44) + (fSlow32 * fTemp45))); + double fTemp46 = double(input51[i]); + double fTemp47 = double(input61[i]); + output51[i] = FAUSTFLOAT(((fSlow25 * fTemp46) + (fSlow26 * fTemp47))); + double fTemp48 = double(input52[i]); + double fTemp49 = double(input60[i]); + output52[i] = FAUSTFLOAT(((fSlow19 * fTemp48) + (fSlow20 * fTemp49))); + double fTemp50 = double(input53[i]); + double fTemp51 = double(input59[i]); + output53[i] = FAUSTFLOAT(((fSlow13 * fTemp50) + (fSlow14 * fTemp51))); + double fTemp52 = double(input54[i]); + double fTemp53 = double(input58[i]); + output54[i] = FAUSTFLOAT(((fSlow7 * fTemp52) + (fSlow8 * fTemp53))); + double fTemp54 = double(input55[i]); + double fTemp55 = double(input57[i]); + output55[i] = FAUSTFLOAT(((fSlow1 * fTemp54) + (fSlow2 * fTemp55))); + output56[i] = FAUSTFLOAT(double(input56[i])); + output57[i] = FAUSTFLOAT(((fSlow4 * fTemp54) + (fSlow5 * fTemp55))); + output58[i] = FAUSTFLOAT(((fSlow10 * fTemp52) + (fSlow11 * fTemp53))); + output59[i] = FAUSTFLOAT(((fSlow16 * fTemp50) + (fSlow17 * fTemp51))); + output60[i] = FAUSTFLOAT(((fSlow22 * fTemp48) + (fSlow23 * fTemp49))); + output61[i] = FAUSTFLOAT(((fSlow28 * fTemp46) + (fSlow29 * fTemp47))); + output62[i] = FAUSTFLOAT(((fSlow34 * fTemp44) + (fSlow35 * fTemp45))); + output63[i] = FAUSTFLOAT(((fSlow40 * fTemp42) + (fSlow41 * fTemp43))); + double fTemp56 = double(input64[i]); + double fTemp57 = double(input80[i]); + output64[i] = FAUSTFLOAT(((fSlow43 * fTemp56) + (fSlow44 * fTemp57))); + double fTemp58 = double(input65[i]); + double fTemp59 = double(input79[i]); + output65[i] = FAUSTFLOAT(((fSlow37 * fTemp58) + (fSlow38 * fTemp59))); + double fTemp60 = double(input66[i]); + double fTemp61 = double(input78[i]); + output66[i] = FAUSTFLOAT(((fSlow31 * fTemp60) + (fSlow32 * fTemp61))); + double fTemp62 = double(input67[i]); + double fTemp63 = double(input77[i]); + output67[i] = FAUSTFLOAT(((fSlow25 * fTemp62) + (fSlow26 * fTemp63))); + double fTemp64 = double(input68[i]); + double fTemp65 = double(input76[i]); + output68[i] = FAUSTFLOAT(((fSlow19 * fTemp64) + (fSlow20 * fTemp65))); + double fTemp66 = double(input69[i]); + double fTemp67 = double(input75[i]); + output69[i] = FAUSTFLOAT(((fSlow13 * fTemp66) + (fSlow14 * fTemp67))); + double fTemp68 = double(input70[i]); + double fTemp69 = double(input74[i]); + output70[i] = FAUSTFLOAT(((fSlow7 * fTemp68) + (fSlow8 * fTemp69))); + double fTemp70 = double(input71[i]); + double fTemp71 = double(input73[i]); + output71[i] = FAUSTFLOAT(((fSlow1 * fTemp70) + (fSlow2 * fTemp71))); + output72[i] = FAUSTFLOAT(double(input72[i])); + output73[i] = FAUSTFLOAT(((fSlow4 * fTemp70) + (fSlow5 * fTemp71))); + output74[i] = FAUSTFLOAT(((fSlow10 * fTemp68) + (fSlow11 * fTemp69))); + output75[i] = FAUSTFLOAT(((fSlow16 * fTemp66) + (fSlow17 * fTemp67))); + output76[i] = FAUSTFLOAT(((fSlow22 * fTemp64) + (fSlow23 * fTemp65))); + output77[i] = FAUSTFLOAT(((fSlow28 * fTemp62) + (fSlow29 * fTemp63))); + output78[i] = FAUSTFLOAT(((fSlow34 * fTemp60) + (fSlow35 * fTemp61))); + output79[i] = FAUSTFLOAT(((fSlow40 * fTemp58) + (fSlow41 * fTemp59))); + output80[i] = FAUSTFLOAT(((fSlow46 * fTemp56) + (fSlow47 * fTemp57))); + double fTemp72 = double(input81[i]); + double fTemp73 = double(input99[i]); + output81[i] = FAUSTFLOAT(((fSlow49 * fTemp72) + (fSlow50 * fTemp73))); + double fTemp74 = double(input82[i]); + double fTemp75 = double(input98[i]); + output82[i] = FAUSTFLOAT(((fSlow43 * fTemp74) + (fSlow44 * fTemp75))); + double fTemp76 = double(input83[i]); + double fTemp77 = double(input97[i]); + output83[i] = FAUSTFLOAT(((fSlow37 * fTemp76) + (fSlow38 * fTemp77))); + double fTemp78 = double(input84[i]); + double fTemp79 = double(input96[i]); + output84[i] = FAUSTFLOAT(((fSlow31 * fTemp78) + (fSlow32 * fTemp79))); + double fTemp80 = double(input85[i]); + double fTemp81 = double(input95[i]); + output85[i] = FAUSTFLOAT(((fSlow25 * fTemp80) + (fSlow26 * fTemp81))); + double fTemp82 = double(input86[i]); + double fTemp83 = double(input94[i]); + output86[i] = FAUSTFLOAT(((fSlow19 * fTemp82) + (fSlow20 * fTemp83))); + double fTemp84 = double(input87[i]); + double fTemp85 = double(input93[i]); + output87[i] = FAUSTFLOAT(((fSlow13 * fTemp84) + (fSlow14 * fTemp85))); + double fTemp86 = double(input88[i]); + double fTemp87 = double(input92[i]); + output88[i] = FAUSTFLOAT(((fSlow7 * fTemp86) + (fSlow8 * fTemp87))); + double fTemp88 = double(input89[i]); + double fTemp89 = double(input91[i]); + output89[i] = FAUSTFLOAT(((fSlow1 * fTemp88) + (fSlow2 * fTemp89))); + output90[i] = FAUSTFLOAT(double(input90[i])); + output91[i] = FAUSTFLOAT(((fSlow4 * fTemp88) + (fSlow5 * fTemp89))); + output92[i] = FAUSTFLOAT(((fSlow10 * fTemp86) + (fSlow11 * fTemp87))); + output93[i] = FAUSTFLOAT(((fSlow16 * fTemp84) + (fSlow17 * fTemp85))); + output94[i] = FAUSTFLOAT(((fSlow22 * fTemp82) + (fSlow23 * fTemp83))); + output95[i] = FAUSTFLOAT(((fSlow28 * fTemp80) + (fSlow29 * fTemp81))); + output96[i] = FAUSTFLOAT(((fSlow34 * fTemp78) + (fSlow35 * fTemp79))); + output97[i] = FAUSTFLOAT(((fSlow40 * fTemp76) + (fSlow41 * fTemp77))); + output98[i] = FAUSTFLOAT(((fSlow46 * fTemp74) + (fSlow47 * fTemp75))); + output99[i] = FAUSTFLOAT(((fSlow52 * fTemp72) + (fSlow53 * fTemp73))); + double fTemp90 = double(input100[i]); + double fTemp91 = double(input120[i]); + output100[i] = FAUSTFLOAT(((fSlow55 * fTemp90) + (fSlow56 * fTemp91))); + double fTemp92 = double(input101[i]); + double fTemp93 = double(input119[i]); + output101[i] = FAUSTFLOAT(((fSlow49 * fTemp92) + (fSlow50 * fTemp93))); + double fTemp94 = double(input102[i]); + double fTemp95 = double(input118[i]); + output102[i] = FAUSTFLOAT(((fSlow43 * fTemp94) + (fSlow44 * fTemp95))); + double fTemp96 = double(input103[i]); + double fTemp97 = double(input117[i]); + output103[i] = FAUSTFLOAT(((fSlow37 * fTemp96) + (fSlow38 * fTemp97))); + double fTemp98 = double(input104[i]); + double fTemp99 = double(input116[i]); + output104[i] = FAUSTFLOAT(((fSlow31 * fTemp98) + (fSlow32 * fTemp99))); + double fTemp100 = double(input105[i]); + double fTemp101 = double(input115[i]); + output105[i] = FAUSTFLOAT(((fSlow25 * fTemp100) + (fSlow26 * fTemp101))); + double fTemp102 = double(input106[i]); + double fTemp103 = double(input114[i]); + output106[i] = FAUSTFLOAT(((fSlow19 * fTemp102) + (fSlow20 * fTemp103))); + double fTemp104 = double(input107[i]); + double fTemp105 = double(input113[i]); + output107[i] = FAUSTFLOAT(((fSlow13 * fTemp104) + (fSlow14 * fTemp105))); + double fTemp106 = double(input108[i]); + double fTemp107 = double(input112[i]); + output108[i] = FAUSTFLOAT(((fSlow7 * fTemp106) + (fSlow8 * fTemp107))); + double fTemp108 = double(input109[i]); + double fTemp109 = double(input111[i]); + output109[i] = FAUSTFLOAT(((fSlow1 * fTemp108) + (fSlow2 * fTemp109))); + output110[i] = FAUSTFLOAT(double(input110[i])); + output111[i] = FAUSTFLOAT(((fSlow4 * fTemp108) + (fSlow5 * fTemp109))); + output112[i] = FAUSTFLOAT(((fSlow10 * fTemp106) + (fSlow11 * fTemp107))); + output113[i] = FAUSTFLOAT(((fSlow16 * fTemp104) + (fSlow17 * fTemp105))); + output114[i] = FAUSTFLOAT(((fSlow22 * fTemp102) + (fSlow23 * fTemp103))); + output115[i] = FAUSTFLOAT(((fSlow28 * fTemp100) + (fSlow29 * fTemp101))); + output116[i] = FAUSTFLOAT(((fSlow34 * fTemp98) + (fSlow35 * fTemp99))); + output117[i] = FAUSTFLOAT(((fSlow40 * fTemp96) + (fSlow41 * fTemp97))); + output118[i] = FAUSTFLOAT(((fSlow46 * fTemp94) + (fSlow47 * fTemp95))); + output119[i] = FAUSTFLOAT(((fSlow52 * fTemp92) + (fSlow53 * fTemp93))); + output120[i] = FAUSTFLOAT(((fSlow58 * fTemp90) + (fSlow59 * fTemp91))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator2.cpp b/source/HOAUGens/HOAAzimuthRotator2.cpp new file mode 100644 index 0000000000..56c9922143 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator2.cpp @@ -0,0 +1,1198 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator2"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator2"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator3.cpp b/source/HOAUGens/HOAAzimuthRotator3.cpp new file mode 100644 index 0000000000..55ed80f6dd --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator3.cpp @@ -0,0 +1,1287 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator3"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator3"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator4.cpp b/source/HOAUGens/HOAAzimuthRotator4.cpp new file mode 100644 index 0000000000..4b6a194ad4 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator4.cpp @@ -0,0 +1,1400 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator4" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator4"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator4"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator5.cpp b/source/HOAUGens/HOAAzimuthRotator5.cpp new file mode 100644 index 0000000000..fd93de3173 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator5.cpp @@ -0,0 +1,1537 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator5" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator5"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 36; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator5"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + double fSlow24 = (5.0 * fSlow0); + double fSlow25 = cos(fSlow24); + double fSlow26 = sin(fSlow24); + double fSlow27 = (0.0 - fSlow24); + double fSlow28 = sin(fSlow27); + double fSlow29 = cos(fSlow27); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + double fTemp20 = double(input25[i]); + double fTemp21 = double(input35[i]); + output25[i] = FAUSTFLOAT(((fSlow25 * fTemp20) + (fSlow26 * fTemp21))); + double fTemp22 = double(input26[i]); + double fTemp23 = double(input34[i]); + output26[i] = FAUSTFLOAT(((fSlow19 * fTemp22) + (fSlow20 * fTemp23))); + double fTemp24 = double(input27[i]); + double fTemp25 = double(input33[i]); + output27[i] = FAUSTFLOAT(((fSlow13 * fTemp24) + (fSlow14 * fTemp25))); + double fTemp26 = double(input28[i]); + double fTemp27 = double(input32[i]); + output28[i] = FAUSTFLOAT(((fSlow7 * fTemp26) + (fSlow8 * fTemp27))); + double fTemp28 = double(input29[i]); + double fTemp29 = double(input31[i]); + output29[i] = FAUSTFLOAT(((fSlow1 * fTemp28) + (fSlow2 * fTemp29))); + output30[i] = FAUSTFLOAT(double(input30[i])); + output31[i] = FAUSTFLOAT(((fSlow4 * fTemp28) + (fSlow5 * fTemp29))); + output32[i] = FAUSTFLOAT(((fSlow10 * fTemp26) + (fSlow11 * fTemp27))); + output33[i] = FAUSTFLOAT(((fSlow16 * fTemp24) + (fSlow17 * fTemp25))); + output34[i] = FAUSTFLOAT(((fSlow22 * fTemp22) + (fSlow23 * fTemp23))); + output35[i] = FAUSTFLOAT(((fSlow28 * fTemp20) + (fSlow29 * fTemp21))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator6.cpp b/source/HOAUGens/HOAAzimuthRotator6.cpp new file mode 100644 index 0000000000..b1edf24ab6 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator6.cpp @@ -0,0 +1,1698 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator6" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator6"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 49; + + } + virtual int getNumOutputs() { + return 49; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator6"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + double fSlow24 = (5.0 * fSlow0); + double fSlow25 = cos(fSlow24); + double fSlow26 = sin(fSlow24); + double fSlow27 = (0.0 - fSlow24); + double fSlow28 = sin(fSlow27); + double fSlow29 = cos(fSlow27); + double fSlow30 = (6.0 * fSlow0); + double fSlow31 = cos(fSlow30); + double fSlow32 = sin(fSlow30); + double fSlow33 = (0.0 - fSlow30); + double fSlow34 = sin(fSlow33); + double fSlow35 = cos(fSlow33); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + double fTemp20 = double(input25[i]); + double fTemp21 = double(input35[i]); + output25[i] = FAUSTFLOAT(((fSlow25 * fTemp20) + (fSlow26 * fTemp21))); + double fTemp22 = double(input26[i]); + double fTemp23 = double(input34[i]); + output26[i] = FAUSTFLOAT(((fSlow19 * fTemp22) + (fSlow20 * fTemp23))); + double fTemp24 = double(input27[i]); + double fTemp25 = double(input33[i]); + output27[i] = FAUSTFLOAT(((fSlow13 * fTemp24) + (fSlow14 * fTemp25))); + double fTemp26 = double(input28[i]); + double fTemp27 = double(input32[i]); + output28[i] = FAUSTFLOAT(((fSlow7 * fTemp26) + (fSlow8 * fTemp27))); + double fTemp28 = double(input29[i]); + double fTemp29 = double(input31[i]); + output29[i] = FAUSTFLOAT(((fSlow1 * fTemp28) + (fSlow2 * fTemp29))); + output30[i] = FAUSTFLOAT(double(input30[i])); + output31[i] = FAUSTFLOAT(((fSlow4 * fTemp28) + (fSlow5 * fTemp29))); + output32[i] = FAUSTFLOAT(((fSlow10 * fTemp26) + (fSlow11 * fTemp27))); + output33[i] = FAUSTFLOAT(((fSlow16 * fTemp24) + (fSlow17 * fTemp25))); + output34[i] = FAUSTFLOAT(((fSlow22 * fTemp22) + (fSlow23 * fTemp23))); + output35[i] = FAUSTFLOAT(((fSlow28 * fTemp20) + (fSlow29 * fTemp21))); + double fTemp30 = double(input36[i]); + double fTemp31 = double(input48[i]); + output36[i] = FAUSTFLOAT(((fSlow31 * fTemp30) + (fSlow32 * fTemp31))); + double fTemp32 = double(input37[i]); + double fTemp33 = double(input47[i]); + output37[i] = FAUSTFLOAT(((fSlow25 * fTemp32) + (fSlow26 * fTemp33))); + double fTemp34 = double(input38[i]); + double fTemp35 = double(input46[i]); + output38[i] = FAUSTFLOAT(((fSlow19 * fTemp34) + (fSlow20 * fTemp35))); + double fTemp36 = double(input39[i]); + double fTemp37 = double(input45[i]); + output39[i] = FAUSTFLOAT(((fSlow13 * fTemp36) + (fSlow14 * fTemp37))); + double fTemp38 = double(input40[i]); + double fTemp39 = double(input44[i]); + output40[i] = FAUSTFLOAT(((fSlow7 * fTemp38) + (fSlow8 * fTemp39))); + double fTemp40 = double(input41[i]); + double fTemp41 = double(input43[i]); + output41[i] = FAUSTFLOAT(((fSlow1 * fTemp40) + (fSlow2 * fTemp41))); + output42[i] = FAUSTFLOAT(double(input42[i])); + output43[i] = FAUSTFLOAT(((fSlow4 * fTemp40) + (fSlow5 * fTemp41))); + output44[i] = FAUSTFLOAT(((fSlow10 * fTemp38) + (fSlow11 * fTemp39))); + output45[i] = FAUSTFLOAT(((fSlow16 * fTemp36) + (fSlow17 * fTemp37))); + output46[i] = FAUSTFLOAT(((fSlow22 * fTemp34) + (fSlow23 * fTemp35))); + output47[i] = FAUSTFLOAT(((fSlow28 * fTemp32) + (fSlow29 * fTemp33))); + output48[i] = FAUSTFLOAT(((fSlow34 * fTemp30) + (fSlow35 * fTemp31))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator7.cpp b/source/HOAUGens/HOAAzimuthRotator7.cpp new file mode 100644 index 0000000000..13a8065b48 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator7.cpp @@ -0,0 +1,1883 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator7" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator7"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 64; + + } + virtual int getNumOutputs() { + return 64; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator7"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + double fSlow24 = (5.0 * fSlow0); + double fSlow25 = cos(fSlow24); + double fSlow26 = sin(fSlow24); + double fSlow27 = (0.0 - fSlow24); + double fSlow28 = sin(fSlow27); + double fSlow29 = cos(fSlow27); + double fSlow30 = (6.0 * fSlow0); + double fSlow31 = cos(fSlow30); + double fSlow32 = sin(fSlow30); + double fSlow33 = (0.0 - fSlow30); + double fSlow34 = sin(fSlow33); + double fSlow35 = cos(fSlow33); + double fSlow36 = (7.0 * fSlow0); + double fSlow37 = cos(fSlow36); + double fSlow38 = sin(fSlow36); + double fSlow39 = (0.0 - fSlow36); + double fSlow40 = sin(fSlow39); + double fSlow41 = cos(fSlow39); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + double fTemp20 = double(input25[i]); + double fTemp21 = double(input35[i]); + output25[i] = FAUSTFLOAT(((fSlow25 * fTemp20) + (fSlow26 * fTemp21))); + double fTemp22 = double(input26[i]); + double fTemp23 = double(input34[i]); + output26[i] = FAUSTFLOAT(((fSlow19 * fTemp22) + (fSlow20 * fTemp23))); + double fTemp24 = double(input27[i]); + double fTemp25 = double(input33[i]); + output27[i] = FAUSTFLOAT(((fSlow13 * fTemp24) + (fSlow14 * fTemp25))); + double fTemp26 = double(input28[i]); + double fTemp27 = double(input32[i]); + output28[i] = FAUSTFLOAT(((fSlow7 * fTemp26) + (fSlow8 * fTemp27))); + double fTemp28 = double(input29[i]); + double fTemp29 = double(input31[i]); + output29[i] = FAUSTFLOAT(((fSlow1 * fTemp28) + (fSlow2 * fTemp29))); + output30[i] = FAUSTFLOAT(double(input30[i])); + output31[i] = FAUSTFLOAT(((fSlow4 * fTemp28) + (fSlow5 * fTemp29))); + output32[i] = FAUSTFLOAT(((fSlow10 * fTemp26) + (fSlow11 * fTemp27))); + output33[i] = FAUSTFLOAT(((fSlow16 * fTemp24) + (fSlow17 * fTemp25))); + output34[i] = FAUSTFLOAT(((fSlow22 * fTemp22) + (fSlow23 * fTemp23))); + output35[i] = FAUSTFLOAT(((fSlow28 * fTemp20) + (fSlow29 * fTemp21))); + double fTemp30 = double(input36[i]); + double fTemp31 = double(input48[i]); + output36[i] = FAUSTFLOAT(((fSlow31 * fTemp30) + (fSlow32 * fTemp31))); + double fTemp32 = double(input37[i]); + double fTemp33 = double(input47[i]); + output37[i] = FAUSTFLOAT(((fSlow25 * fTemp32) + (fSlow26 * fTemp33))); + double fTemp34 = double(input38[i]); + double fTemp35 = double(input46[i]); + output38[i] = FAUSTFLOAT(((fSlow19 * fTemp34) + (fSlow20 * fTemp35))); + double fTemp36 = double(input39[i]); + double fTemp37 = double(input45[i]); + output39[i] = FAUSTFLOAT(((fSlow13 * fTemp36) + (fSlow14 * fTemp37))); + double fTemp38 = double(input40[i]); + double fTemp39 = double(input44[i]); + output40[i] = FAUSTFLOAT(((fSlow7 * fTemp38) + (fSlow8 * fTemp39))); + double fTemp40 = double(input41[i]); + double fTemp41 = double(input43[i]); + output41[i] = FAUSTFLOAT(((fSlow1 * fTemp40) + (fSlow2 * fTemp41))); + output42[i] = FAUSTFLOAT(double(input42[i])); + output43[i] = FAUSTFLOAT(((fSlow4 * fTemp40) + (fSlow5 * fTemp41))); + output44[i] = FAUSTFLOAT(((fSlow10 * fTemp38) + (fSlow11 * fTemp39))); + output45[i] = FAUSTFLOAT(((fSlow16 * fTemp36) + (fSlow17 * fTemp37))); + output46[i] = FAUSTFLOAT(((fSlow22 * fTemp34) + (fSlow23 * fTemp35))); + output47[i] = FAUSTFLOAT(((fSlow28 * fTemp32) + (fSlow29 * fTemp33))); + output48[i] = FAUSTFLOAT(((fSlow34 * fTemp30) + (fSlow35 * fTemp31))); + double fTemp42 = double(input49[i]); + double fTemp43 = double(input63[i]); + output49[i] = FAUSTFLOAT(((fSlow37 * fTemp42) + (fSlow38 * fTemp43))); + double fTemp44 = double(input50[i]); + double fTemp45 = double(input62[i]); + output50[i] = FAUSTFLOAT(((fSlow31 * fTemp44) + (fSlow32 * fTemp45))); + double fTemp46 = double(input51[i]); + double fTemp47 = double(input61[i]); + output51[i] = FAUSTFLOAT(((fSlow25 * fTemp46) + (fSlow26 * fTemp47))); + double fTemp48 = double(input52[i]); + double fTemp49 = double(input60[i]); + output52[i] = FAUSTFLOAT(((fSlow19 * fTemp48) + (fSlow20 * fTemp49))); + double fTemp50 = double(input53[i]); + double fTemp51 = double(input59[i]); + output53[i] = FAUSTFLOAT(((fSlow13 * fTemp50) + (fSlow14 * fTemp51))); + double fTemp52 = double(input54[i]); + double fTemp53 = double(input58[i]); + output54[i] = FAUSTFLOAT(((fSlow7 * fTemp52) + (fSlow8 * fTemp53))); + double fTemp54 = double(input55[i]); + double fTemp55 = double(input57[i]); + output55[i] = FAUSTFLOAT(((fSlow1 * fTemp54) + (fSlow2 * fTemp55))); + output56[i] = FAUSTFLOAT(double(input56[i])); + output57[i] = FAUSTFLOAT(((fSlow4 * fTemp54) + (fSlow5 * fTemp55))); + output58[i] = FAUSTFLOAT(((fSlow10 * fTemp52) + (fSlow11 * fTemp53))); + output59[i] = FAUSTFLOAT(((fSlow16 * fTemp50) + (fSlow17 * fTemp51))); + output60[i] = FAUSTFLOAT(((fSlow22 * fTemp48) + (fSlow23 * fTemp49))); + output61[i] = FAUSTFLOAT(((fSlow28 * fTemp46) + (fSlow29 * fTemp47))); + output62[i] = FAUSTFLOAT(((fSlow34 * fTemp44) + (fSlow35 * fTemp45))); + output63[i] = FAUSTFLOAT(((fSlow40 * fTemp42) + (fSlow41 * fTemp43))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator8.cpp b/source/HOAUGens/HOAAzimuthRotator8.cpp new file mode 100644 index 0000000000..5dd8a876b4 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator8.cpp @@ -0,0 +1,2092 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator8" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator8"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 81; + + } + virtual int getNumOutputs() { + return 81; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator8"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + double fSlow24 = (5.0 * fSlow0); + double fSlow25 = cos(fSlow24); + double fSlow26 = sin(fSlow24); + double fSlow27 = (0.0 - fSlow24); + double fSlow28 = sin(fSlow27); + double fSlow29 = cos(fSlow27); + double fSlow30 = (6.0 * fSlow0); + double fSlow31 = cos(fSlow30); + double fSlow32 = sin(fSlow30); + double fSlow33 = (0.0 - fSlow30); + double fSlow34 = sin(fSlow33); + double fSlow35 = cos(fSlow33); + double fSlow36 = (7.0 * fSlow0); + double fSlow37 = cos(fSlow36); + double fSlow38 = sin(fSlow36); + double fSlow39 = (0.0 - fSlow36); + double fSlow40 = sin(fSlow39); + double fSlow41 = cos(fSlow39); + double fSlow42 = (8.0 * fSlow0); + double fSlow43 = cos(fSlow42); + double fSlow44 = sin(fSlow42); + double fSlow45 = (0.0 - fSlow42); + double fSlow46 = sin(fSlow45); + double fSlow47 = cos(fSlow45); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + double fTemp20 = double(input25[i]); + double fTemp21 = double(input35[i]); + output25[i] = FAUSTFLOAT(((fSlow25 * fTemp20) + (fSlow26 * fTemp21))); + double fTemp22 = double(input26[i]); + double fTemp23 = double(input34[i]); + output26[i] = FAUSTFLOAT(((fSlow19 * fTemp22) + (fSlow20 * fTemp23))); + double fTemp24 = double(input27[i]); + double fTemp25 = double(input33[i]); + output27[i] = FAUSTFLOAT(((fSlow13 * fTemp24) + (fSlow14 * fTemp25))); + double fTemp26 = double(input28[i]); + double fTemp27 = double(input32[i]); + output28[i] = FAUSTFLOAT(((fSlow7 * fTemp26) + (fSlow8 * fTemp27))); + double fTemp28 = double(input29[i]); + double fTemp29 = double(input31[i]); + output29[i] = FAUSTFLOAT(((fSlow1 * fTemp28) + (fSlow2 * fTemp29))); + output30[i] = FAUSTFLOAT(double(input30[i])); + output31[i] = FAUSTFLOAT(((fSlow4 * fTemp28) + (fSlow5 * fTemp29))); + output32[i] = FAUSTFLOAT(((fSlow10 * fTemp26) + (fSlow11 * fTemp27))); + output33[i] = FAUSTFLOAT(((fSlow16 * fTemp24) + (fSlow17 * fTemp25))); + output34[i] = FAUSTFLOAT(((fSlow22 * fTemp22) + (fSlow23 * fTemp23))); + output35[i] = FAUSTFLOAT(((fSlow28 * fTemp20) + (fSlow29 * fTemp21))); + double fTemp30 = double(input36[i]); + double fTemp31 = double(input48[i]); + output36[i] = FAUSTFLOAT(((fSlow31 * fTemp30) + (fSlow32 * fTemp31))); + double fTemp32 = double(input37[i]); + double fTemp33 = double(input47[i]); + output37[i] = FAUSTFLOAT(((fSlow25 * fTemp32) + (fSlow26 * fTemp33))); + double fTemp34 = double(input38[i]); + double fTemp35 = double(input46[i]); + output38[i] = FAUSTFLOAT(((fSlow19 * fTemp34) + (fSlow20 * fTemp35))); + double fTemp36 = double(input39[i]); + double fTemp37 = double(input45[i]); + output39[i] = FAUSTFLOAT(((fSlow13 * fTemp36) + (fSlow14 * fTemp37))); + double fTemp38 = double(input40[i]); + double fTemp39 = double(input44[i]); + output40[i] = FAUSTFLOAT(((fSlow7 * fTemp38) + (fSlow8 * fTemp39))); + double fTemp40 = double(input41[i]); + double fTemp41 = double(input43[i]); + output41[i] = FAUSTFLOAT(((fSlow1 * fTemp40) + (fSlow2 * fTemp41))); + output42[i] = FAUSTFLOAT(double(input42[i])); + output43[i] = FAUSTFLOAT(((fSlow4 * fTemp40) + (fSlow5 * fTemp41))); + output44[i] = FAUSTFLOAT(((fSlow10 * fTemp38) + (fSlow11 * fTemp39))); + output45[i] = FAUSTFLOAT(((fSlow16 * fTemp36) + (fSlow17 * fTemp37))); + output46[i] = FAUSTFLOAT(((fSlow22 * fTemp34) + (fSlow23 * fTemp35))); + output47[i] = FAUSTFLOAT(((fSlow28 * fTemp32) + (fSlow29 * fTemp33))); + output48[i] = FAUSTFLOAT(((fSlow34 * fTemp30) + (fSlow35 * fTemp31))); + double fTemp42 = double(input49[i]); + double fTemp43 = double(input63[i]); + output49[i] = FAUSTFLOAT(((fSlow37 * fTemp42) + (fSlow38 * fTemp43))); + double fTemp44 = double(input50[i]); + double fTemp45 = double(input62[i]); + output50[i] = FAUSTFLOAT(((fSlow31 * fTemp44) + (fSlow32 * fTemp45))); + double fTemp46 = double(input51[i]); + double fTemp47 = double(input61[i]); + output51[i] = FAUSTFLOAT(((fSlow25 * fTemp46) + (fSlow26 * fTemp47))); + double fTemp48 = double(input52[i]); + double fTemp49 = double(input60[i]); + output52[i] = FAUSTFLOAT(((fSlow19 * fTemp48) + (fSlow20 * fTemp49))); + double fTemp50 = double(input53[i]); + double fTemp51 = double(input59[i]); + output53[i] = FAUSTFLOAT(((fSlow13 * fTemp50) + (fSlow14 * fTemp51))); + double fTemp52 = double(input54[i]); + double fTemp53 = double(input58[i]); + output54[i] = FAUSTFLOAT(((fSlow7 * fTemp52) + (fSlow8 * fTemp53))); + double fTemp54 = double(input55[i]); + double fTemp55 = double(input57[i]); + output55[i] = FAUSTFLOAT(((fSlow1 * fTemp54) + (fSlow2 * fTemp55))); + output56[i] = FAUSTFLOAT(double(input56[i])); + output57[i] = FAUSTFLOAT(((fSlow4 * fTemp54) + (fSlow5 * fTemp55))); + output58[i] = FAUSTFLOAT(((fSlow10 * fTemp52) + (fSlow11 * fTemp53))); + output59[i] = FAUSTFLOAT(((fSlow16 * fTemp50) + (fSlow17 * fTemp51))); + output60[i] = FAUSTFLOAT(((fSlow22 * fTemp48) + (fSlow23 * fTemp49))); + output61[i] = FAUSTFLOAT(((fSlow28 * fTemp46) + (fSlow29 * fTemp47))); + output62[i] = FAUSTFLOAT(((fSlow34 * fTemp44) + (fSlow35 * fTemp45))); + output63[i] = FAUSTFLOAT(((fSlow40 * fTemp42) + (fSlow41 * fTemp43))); + double fTemp56 = double(input64[i]); + double fTemp57 = double(input80[i]); + output64[i] = FAUSTFLOAT(((fSlow43 * fTemp56) + (fSlow44 * fTemp57))); + double fTemp58 = double(input65[i]); + double fTemp59 = double(input79[i]); + output65[i] = FAUSTFLOAT(((fSlow37 * fTemp58) + (fSlow38 * fTemp59))); + double fTemp60 = double(input66[i]); + double fTemp61 = double(input78[i]); + output66[i] = FAUSTFLOAT(((fSlow31 * fTemp60) + (fSlow32 * fTemp61))); + double fTemp62 = double(input67[i]); + double fTemp63 = double(input77[i]); + output67[i] = FAUSTFLOAT(((fSlow25 * fTemp62) + (fSlow26 * fTemp63))); + double fTemp64 = double(input68[i]); + double fTemp65 = double(input76[i]); + output68[i] = FAUSTFLOAT(((fSlow19 * fTemp64) + (fSlow20 * fTemp65))); + double fTemp66 = double(input69[i]); + double fTemp67 = double(input75[i]); + output69[i] = FAUSTFLOAT(((fSlow13 * fTemp66) + (fSlow14 * fTemp67))); + double fTemp68 = double(input70[i]); + double fTemp69 = double(input74[i]); + output70[i] = FAUSTFLOAT(((fSlow7 * fTemp68) + (fSlow8 * fTemp69))); + double fTemp70 = double(input71[i]); + double fTemp71 = double(input73[i]); + output71[i] = FAUSTFLOAT(((fSlow1 * fTemp70) + (fSlow2 * fTemp71))); + output72[i] = FAUSTFLOAT(double(input72[i])); + output73[i] = FAUSTFLOAT(((fSlow4 * fTemp70) + (fSlow5 * fTemp71))); + output74[i] = FAUSTFLOAT(((fSlow10 * fTemp68) + (fSlow11 * fTemp69))); + output75[i] = FAUSTFLOAT(((fSlow16 * fTemp66) + (fSlow17 * fTemp67))); + output76[i] = FAUSTFLOAT(((fSlow22 * fTemp64) + (fSlow23 * fTemp65))); + output77[i] = FAUSTFLOAT(((fSlow28 * fTemp62) + (fSlow29 * fTemp63))); + output78[i] = FAUSTFLOAT(((fSlow34 * fTemp60) + (fSlow35 * fTemp61))); + output79[i] = FAUSTFLOAT(((fSlow40 * fTemp58) + (fSlow41 * fTemp59))); + output80[i] = FAUSTFLOAT(((fSlow46 * fTemp56) + (fSlow47 * fTemp57))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAAzimuthRotator9.cpp b/source/HOAUGens/HOAAzimuthRotator9.cpp new file mode 100644 index 0000000000..5a816616e6 --- /dev/null +++ b/source/HOAUGens/HOAAzimuthRotator9.cpp @@ -0,0 +1,2325 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAAzimuthRotator9" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAAzimuthRotator9"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 100; + + } + virtual int getNumOutputs() { + return 100; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAAzimuthRotator9"); + ui_interface->declare(&fHslider0, "osc", "/azimuth 0 360"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = sin(fSlow0); + double fSlow3 = (0.0 - fSlow0); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (2.0 * fSlow0); + double fSlow7 = cos(fSlow6); + double fSlow8 = sin(fSlow6); + double fSlow9 = (0.0 - fSlow6); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = (3.0 * fSlow0); + double fSlow13 = cos(fSlow12); + double fSlow14 = sin(fSlow12); + double fSlow15 = (0.0 - fSlow12); + double fSlow16 = sin(fSlow15); + double fSlow17 = cos(fSlow15); + double fSlow18 = (4.0 * fSlow0); + double fSlow19 = cos(fSlow18); + double fSlow20 = sin(fSlow18); + double fSlow21 = (0.0 - fSlow18); + double fSlow22 = sin(fSlow21); + double fSlow23 = cos(fSlow21); + double fSlow24 = (5.0 * fSlow0); + double fSlow25 = cos(fSlow24); + double fSlow26 = sin(fSlow24); + double fSlow27 = (0.0 - fSlow24); + double fSlow28 = sin(fSlow27); + double fSlow29 = cos(fSlow27); + double fSlow30 = (6.0 * fSlow0); + double fSlow31 = cos(fSlow30); + double fSlow32 = sin(fSlow30); + double fSlow33 = (0.0 - fSlow30); + double fSlow34 = sin(fSlow33); + double fSlow35 = cos(fSlow33); + double fSlow36 = (7.0 * fSlow0); + double fSlow37 = cos(fSlow36); + double fSlow38 = sin(fSlow36); + double fSlow39 = (0.0 - fSlow36); + double fSlow40 = sin(fSlow39); + double fSlow41 = cos(fSlow39); + double fSlow42 = (8.0 * fSlow0); + double fSlow43 = cos(fSlow42); + double fSlow44 = sin(fSlow42); + double fSlow45 = (0.0 - fSlow42); + double fSlow46 = sin(fSlow45); + double fSlow47 = cos(fSlow45); + double fSlow48 = (9.0 * fSlow0); + double fSlow49 = cos(fSlow48); + double fSlow50 = sin(fSlow48); + double fSlow51 = (0.0 - fSlow48); + double fSlow52 = sin(fSlow51); + double fSlow53 = cos(fSlow51); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input3[i]); + output1[i] = FAUSTFLOAT(((fSlow1 * fTemp0) + (fSlow2 * fTemp1))); + output2[i] = FAUSTFLOAT(double(input2[i])); + output3[i] = FAUSTFLOAT(((fSlow4 * fTemp0) + (fSlow5 * fTemp1))); + double fTemp2 = double(input4[i]); + double fTemp3 = double(input8[i]); + output4[i] = FAUSTFLOAT(((fSlow7 * fTemp2) + (fSlow8 * fTemp3))); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input7[i]); + output5[i] = FAUSTFLOAT(((fSlow1 * fTemp4) + (fSlow2 * fTemp5))); + output6[i] = FAUSTFLOAT(double(input6[i])); + output7[i] = FAUSTFLOAT(((fSlow4 * fTemp4) + (fSlow5 * fTemp5))); + output8[i] = FAUSTFLOAT(((fSlow10 * fTemp2) + (fSlow11 * fTemp3))); + double fTemp6 = double(input9[i]); + double fTemp7 = double(input15[i]); + output9[i] = FAUSTFLOAT(((fSlow13 * fTemp6) + (fSlow14 * fTemp7))); + double fTemp8 = double(input10[i]); + double fTemp9 = double(input14[i]); + output10[i] = FAUSTFLOAT(((fSlow7 * fTemp8) + (fSlow8 * fTemp9))); + double fTemp10 = double(input11[i]); + double fTemp11 = double(input13[i]); + output11[i] = FAUSTFLOAT(((fSlow1 * fTemp10) + (fSlow2 * fTemp11))); + output12[i] = FAUSTFLOAT(double(input12[i])); + output13[i] = FAUSTFLOAT(((fSlow4 * fTemp10) + (fSlow5 * fTemp11))); + output14[i] = FAUSTFLOAT(((fSlow10 * fTemp8) + (fSlow11 * fTemp9))); + output15[i] = FAUSTFLOAT(((fSlow16 * fTemp6) + (fSlow17 * fTemp7))); + double fTemp12 = double(input16[i]); + double fTemp13 = double(input24[i]); + output16[i] = FAUSTFLOAT(((fSlow19 * fTemp12) + (fSlow20 * fTemp13))); + double fTemp14 = double(input17[i]); + double fTemp15 = double(input23[i]); + output17[i] = FAUSTFLOAT(((fSlow13 * fTemp14) + (fSlow14 * fTemp15))); + double fTemp16 = double(input18[i]); + double fTemp17 = double(input22[i]); + output18[i] = FAUSTFLOAT(((fSlow7 * fTemp16) + (fSlow8 * fTemp17))); + double fTemp18 = double(input19[i]); + double fTemp19 = double(input21[i]); + output19[i] = FAUSTFLOAT(((fSlow1 * fTemp18) + (fSlow2 * fTemp19))); + output20[i] = FAUSTFLOAT(double(input20[i])); + output21[i] = FAUSTFLOAT(((fSlow4 * fTemp18) + (fSlow5 * fTemp19))); + output22[i] = FAUSTFLOAT(((fSlow10 * fTemp16) + (fSlow11 * fTemp17))); + output23[i] = FAUSTFLOAT(((fSlow16 * fTemp14) + (fSlow17 * fTemp15))); + output24[i] = FAUSTFLOAT(((fSlow22 * fTemp12) + (fSlow23 * fTemp13))); + double fTemp20 = double(input25[i]); + double fTemp21 = double(input35[i]); + output25[i] = FAUSTFLOAT(((fSlow25 * fTemp20) + (fSlow26 * fTemp21))); + double fTemp22 = double(input26[i]); + double fTemp23 = double(input34[i]); + output26[i] = FAUSTFLOAT(((fSlow19 * fTemp22) + (fSlow20 * fTemp23))); + double fTemp24 = double(input27[i]); + double fTemp25 = double(input33[i]); + output27[i] = FAUSTFLOAT(((fSlow13 * fTemp24) + (fSlow14 * fTemp25))); + double fTemp26 = double(input28[i]); + double fTemp27 = double(input32[i]); + output28[i] = FAUSTFLOAT(((fSlow7 * fTemp26) + (fSlow8 * fTemp27))); + double fTemp28 = double(input29[i]); + double fTemp29 = double(input31[i]); + output29[i] = FAUSTFLOAT(((fSlow1 * fTemp28) + (fSlow2 * fTemp29))); + output30[i] = FAUSTFLOAT(double(input30[i])); + output31[i] = FAUSTFLOAT(((fSlow4 * fTemp28) + (fSlow5 * fTemp29))); + output32[i] = FAUSTFLOAT(((fSlow10 * fTemp26) + (fSlow11 * fTemp27))); + output33[i] = FAUSTFLOAT(((fSlow16 * fTemp24) + (fSlow17 * fTemp25))); + output34[i] = FAUSTFLOAT(((fSlow22 * fTemp22) + (fSlow23 * fTemp23))); + output35[i] = FAUSTFLOAT(((fSlow28 * fTemp20) + (fSlow29 * fTemp21))); + double fTemp30 = double(input36[i]); + double fTemp31 = double(input48[i]); + output36[i] = FAUSTFLOAT(((fSlow31 * fTemp30) + (fSlow32 * fTemp31))); + double fTemp32 = double(input37[i]); + double fTemp33 = double(input47[i]); + output37[i] = FAUSTFLOAT(((fSlow25 * fTemp32) + (fSlow26 * fTemp33))); + double fTemp34 = double(input38[i]); + double fTemp35 = double(input46[i]); + output38[i] = FAUSTFLOAT(((fSlow19 * fTemp34) + (fSlow20 * fTemp35))); + double fTemp36 = double(input39[i]); + double fTemp37 = double(input45[i]); + output39[i] = FAUSTFLOAT(((fSlow13 * fTemp36) + (fSlow14 * fTemp37))); + double fTemp38 = double(input40[i]); + double fTemp39 = double(input44[i]); + output40[i] = FAUSTFLOAT(((fSlow7 * fTemp38) + (fSlow8 * fTemp39))); + double fTemp40 = double(input41[i]); + double fTemp41 = double(input43[i]); + output41[i] = FAUSTFLOAT(((fSlow1 * fTemp40) + (fSlow2 * fTemp41))); + output42[i] = FAUSTFLOAT(double(input42[i])); + output43[i] = FAUSTFLOAT(((fSlow4 * fTemp40) + (fSlow5 * fTemp41))); + output44[i] = FAUSTFLOAT(((fSlow10 * fTemp38) + (fSlow11 * fTemp39))); + output45[i] = FAUSTFLOAT(((fSlow16 * fTemp36) + (fSlow17 * fTemp37))); + output46[i] = FAUSTFLOAT(((fSlow22 * fTemp34) + (fSlow23 * fTemp35))); + output47[i] = FAUSTFLOAT(((fSlow28 * fTemp32) + (fSlow29 * fTemp33))); + output48[i] = FAUSTFLOAT(((fSlow34 * fTemp30) + (fSlow35 * fTemp31))); + double fTemp42 = double(input49[i]); + double fTemp43 = double(input63[i]); + output49[i] = FAUSTFLOAT(((fSlow37 * fTemp42) + (fSlow38 * fTemp43))); + double fTemp44 = double(input50[i]); + double fTemp45 = double(input62[i]); + output50[i] = FAUSTFLOAT(((fSlow31 * fTemp44) + (fSlow32 * fTemp45))); + double fTemp46 = double(input51[i]); + double fTemp47 = double(input61[i]); + output51[i] = FAUSTFLOAT(((fSlow25 * fTemp46) + (fSlow26 * fTemp47))); + double fTemp48 = double(input52[i]); + double fTemp49 = double(input60[i]); + output52[i] = FAUSTFLOAT(((fSlow19 * fTemp48) + (fSlow20 * fTemp49))); + double fTemp50 = double(input53[i]); + double fTemp51 = double(input59[i]); + output53[i] = FAUSTFLOAT(((fSlow13 * fTemp50) + (fSlow14 * fTemp51))); + double fTemp52 = double(input54[i]); + double fTemp53 = double(input58[i]); + output54[i] = FAUSTFLOAT(((fSlow7 * fTemp52) + (fSlow8 * fTemp53))); + double fTemp54 = double(input55[i]); + double fTemp55 = double(input57[i]); + output55[i] = FAUSTFLOAT(((fSlow1 * fTemp54) + (fSlow2 * fTemp55))); + output56[i] = FAUSTFLOAT(double(input56[i])); + output57[i] = FAUSTFLOAT(((fSlow4 * fTemp54) + (fSlow5 * fTemp55))); + output58[i] = FAUSTFLOAT(((fSlow10 * fTemp52) + (fSlow11 * fTemp53))); + output59[i] = FAUSTFLOAT(((fSlow16 * fTemp50) + (fSlow17 * fTemp51))); + output60[i] = FAUSTFLOAT(((fSlow22 * fTemp48) + (fSlow23 * fTemp49))); + output61[i] = FAUSTFLOAT(((fSlow28 * fTemp46) + (fSlow29 * fTemp47))); + output62[i] = FAUSTFLOAT(((fSlow34 * fTemp44) + (fSlow35 * fTemp45))); + output63[i] = FAUSTFLOAT(((fSlow40 * fTemp42) + (fSlow41 * fTemp43))); + double fTemp56 = double(input64[i]); + double fTemp57 = double(input80[i]); + output64[i] = FAUSTFLOAT(((fSlow43 * fTemp56) + (fSlow44 * fTemp57))); + double fTemp58 = double(input65[i]); + double fTemp59 = double(input79[i]); + output65[i] = FAUSTFLOAT(((fSlow37 * fTemp58) + (fSlow38 * fTemp59))); + double fTemp60 = double(input66[i]); + double fTemp61 = double(input78[i]); + output66[i] = FAUSTFLOAT(((fSlow31 * fTemp60) + (fSlow32 * fTemp61))); + double fTemp62 = double(input67[i]); + double fTemp63 = double(input77[i]); + output67[i] = FAUSTFLOAT(((fSlow25 * fTemp62) + (fSlow26 * fTemp63))); + double fTemp64 = double(input68[i]); + double fTemp65 = double(input76[i]); + output68[i] = FAUSTFLOAT(((fSlow19 * fTemp64) + (fSlow20 * fTemp65))); + double fTemp66 = double(input69[i]); + double fTemp67 = double(input75[i]); + output69[i] = FAUSTFLOAT(((fSlow13 * fTemp66) + (fSlow14 * fTemp67))); + double fTemp68 = double(input70[i]); + double fTemp69 = double(input74[i]); + output70[i] = FAUSTFLOAT(((fSlow7 * fTemp68) + (fSlow8 * fTemp69))); + double fTemp70 = double(input71[i]); + double fTemp71 = double(input73[i]); + output71[i] = FAUSTFLOAT(((fSlow1 * fTemp70) + (fSlow2 * fTemp71))); + output72[i] = FAUSTFLOAT(double(input72[i])); + output73[i] = FAUSTFLOAT(((fSlow4 * fTemp70) + (fSlow5 * fTemp71))); + output74[i] = FAUSTFLOAT(((fSlow10 * fTemp68) + (fSlow11 * fTemp69))); + output75[i] = FAUSTFLOAT(((fSlow16 * fTemp66) + (fSlow17 * fTemp67))); + output76[i] = FAUSTFLOAT(((fSlow22 * fTemp64) + (fSlow23 * fTemp65))); + output77[i] = FAUSTFLOAT(((fSlow28 * fTemp62) + (fSlow29 * fTemp63))); + output78[i] = FAUSTFLOAT(((fSlow34 * fTemp60) + (fSlow35 * fTemp61))); + output79[i] = FAUSTFLOAT(((fSlow40 * fTemp58) + (fSlow41 * fTemp59))); + output80[i] = FAUSTFLOAT(((fSlow46 * fTemp56) + (fSlow47 * fTemp57))); + double fTemp72 = double(input81[i]); + double fTemp73 = double(input99[i]); + output81[i] = FAUSTFLOAT(((fSlow49 * fTemp72) + (fSlow50 * fTemp73))); + double fTemp74 = double(input82[i]); + double fTemp75 = double(input98[i]); + output82[i] = FAUSTFLOAT(((fSlow43 * fTemp74) + (fSlow44 * fTemp75))); + double fTemp76 = double(input83[i]); + double fTemp77 = double(input97[i]); + output83[i] = FAUSTFLOAT(((fSlow37 * fTemp76) + (fSlow38 * fTemp77))); + double fTemp78 = double(input84[i]); + double fTemp79 = double(input96[i]); + output84[i] = FAUSTFLOAT(((fSlow31 * fTemp78) + (fSlow32 * fTemp79))); + double fTemp80 = double(input85[i]); + double fTemp81 = double(input95[i]); + output85[i] = FAUSTFLOAT(((fSlow25 * fTemp80) + (fSlow26 * fTemp81))); + double fTemp82 = double(input86[i]); + double fTemp83 = double(input94[i]); + output86[i] = FAUSTFLOAT(((fSlow19 * fTemp82) + (fSlow20 * fTemp83))); + double fTemp84 = double(input87[i]); + double fTemp85 = double(input93[i]); + output87[i] = FAUSTFLOAT(((fSlow13 * fTemp84) + (fSlow14 * fTemp85))); + double fTemp86 = double(input88[i]); + double fTemp87 = double(input92[i]); + output88[i] = FAUSTFLOAT(((fSlow7 * fTemp86) + (fSlow8 * fTemp87))); + double fTemp88 = double(input89[i]); + double fTemp89 = double(input91[i]); + output89[i] = FAUSTFLOAT(((fSlow1 * fTemp88) + (fSlow2 * fTemp89))); + output90[i] = FAUSTFLOAT(double(input90[i])); + output91[i] = FAUSTFLOAT(((fSlow4 * fTemp88) + (fSlow5 * fTemp89))); + output92[i] = FAUSTFLOAT(((fSlow10 * fTemp86) + (fSlow11 * fTemp87))); + output93[i] = FAUSTFLOAT(((fSlow16 * fTemp84) + (fSlow17 * fTemp85))); + output94[i] = FAUSTFLOAT(((fSlow22 * fTemp82) + (fSlow23 * fTemp83))); + output95[i] = FAUSTFLOAT(((fSlow28 * fTemp80) + (fSlow29 * fTemp81))); + output96[i] = FAUSTFLOAT(((fSlow34 * fTemp78) + (fSlow35 * fTemp79))); + output97[i] = FAUSTFLOAT(((fSlow40 * fTemp76) + (fSlow41 * fTemp77))); + output98[i] = FAUSTFLOAT(((fSlow46 * fTemp74) + (fSlow47 * fTemp75))); + output99[i] = FAUSTFLOAT(((fSlow52 * fTemp72) + (fSlow53 * fTemp73))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA1.cpp b/source/HOAUGens/HOABeamDirac2HOA1.cpp new file mode 100644 index 0000000000..5d66991611 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA1.cpp @@ -0,0 +1,1250 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA1" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + double fConst2; + double fConst3; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst4; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA1"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA1"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = (sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0))))) * double(tgamma(1.5))); + fConst3 = (1.5957691216057308 * fConst2); + fConst4 = (0.12698727186848197 * fConst2); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = pow((1.0 - mydsp_faustpower2_f(fSlow10)), 0.5); + double fSlow12 = (fConst3 * fSlow11); + double fSlow13 = double(fVslider2); + double fSlow14 = sin(fSlow13); + double fSlow15 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow16 = cos(fSlow13); + double fSlow17 = (1.7320508075688772 * fSlow10); + double fSlow18 = (fConst4 * (fSlow11 * fSlow14)); + double fSlow19 = (0.13783222385544802 * fSlow10); + double fSlow20 = (fConst4 * (fSlow16 * fSlow11)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow15 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input1[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input3[i]); + double fTemp5 = double(input2[i]); + double fTemp6 = ((fSlow12 * ((fSlow14 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + ((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow17 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp6))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow18 * fTemp6))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow19 * fTemp6))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow20 * fTemp6))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA10.cpp b/source/HOAUGens/HOABeamDirac2HOA10.cpp new file mode 100644 index 0000000000..c0267dea55 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA10.cpp @@ -0,0 +1,3537 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA10" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} +double mydsp_faustpower3_f(double value) { + return ((value * value) * value); + +} +double mydsp_faustpower4_f(double value) { + return (((value * value) * value) * value); + +} +double mydsp_faustpower5_f(double value) { + return ((((value * value) * value) * value) * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + FAUSTFLOAT fVslider1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fConst197; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fConst231; + double fConst232; + double fConst233; + double fConst234; + double fConst235; + double fConst236; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA10"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA10"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 121; + + } + virtual int getNumOutputs() { + return 121; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(2.5)); + fConst3 = double(tgamma(1.0)); + fConst4 = double(tgamma(5.0)); + fConst5 = sqrt((5.0 * (fConst3 / fConst4))); + fConst6 = double(tgamma(2.0)); + fConst7 = double(tgamma(6.0)); + fConst8 = sqrt((7.0 * (fConst6 / fConst7))); + fConst9 = (31.915382432114615 * fConst8); + fConst10 = (15.957691216057308 * fConst8); + fConst11 = double(tgamma(9.0)); + fConst12 = double(tgamma(4.5)); + fConst13 = (sqrt((9.0 * (fConst3 / fConst11))) * fConst12); + fConst14 = (25.532305945691693 * fConst13); + fConst15 = double(tgamma(3.0)); + fConst16 = double(tgamma(7.0)); + fConst17 = (sqrt((9.0 * (fConst15 / fConst16))) * fConst2); + fConst18 = (1.4142135623730951 * fConst17); + fConst19 = (0.70710678118654757 * fConst17); + fConst20 = (12.766152972845846 * fConst13); + fConst21 = double(tgamma(4.0)); + fConst22 = double(tgamma(8.0)); + fConst23 = (sqrt((11.0 * (fConst21 / fConst22))) * fConst2); + fConst24 = (0.94280904158206336 * fConst23); + fConst25 = (0.47140452079103168 * fConst23); + fConst26 = double(tgamma(13.0)); + fConst27 = double(tgamma(6.5)); + fConst28 = (sqrt((13.0 * (fConst3 / fConst26))) * fConst27); + fConst29 = (51.064611891383386 * fConst28); + fConst30 = double(tgamma(11.0)); + fConst31 = (sqrt((13.0 * (fConst15 / fConst30))) * fConst12); + fConst32 = (1.4142135623730951 * fConst31); + fConst33 = (sqrt((13.0 * (fConst4 / fConst11))) * fConst2); + fConst34 = (0.70710678118654757 * fConst33); + fConst35 = (0.35355339059327379 * fConst33); + fConst36 = (0.70710678118654757 * fConst31); + fConst37 = double(tgamma(12.0)); + fConst38 = (sqrt((15.0 * (fConst21 / fConst37))) * fConst12); + fConst39 = (0.94280904158206336 * fConst38); + fConst40 = double(tgamma(10.0)); + fConst41 = (sqrt((15.0 * (fConst7 / fConst40))) * fConst2); + fConst42 = (0.28284271247461906 * fConst41); + fConst43 = double(tgamma(14.0)); + fConst44 = (sqrt((15.0 * (fConst6 / fConst43))) * fConst27); + fConst45 = (663.83995458798404 * fConst44); + fConst46 = double(tgamma(15.0)); + fConst47 = (sqrt((17.0 * (fConst15 / fConst46))) * fConst27); + fConst48 = (0.70710678118654757 * fConst47); + fConst49 = (sqrt((17.0 * (fConst16 / fConst30))) * fConst2); + fConst50 = (0.47140452079103168 * fConst49); + fConst51 = (0.23570226039551584 * fConst49); + fConst52 = (sqrt((17.0 * (fConst4 / fConst26))) * fConst12); + fConst53 = (0.35355339059327379 * fConst52); + fConst54 = double(tgamma(17.0)); + fConst55 = double(tgamma(8.5)); + fConst56 = (sqrt((17.0 * (fConst3 / fConst54))) * fConst55); + fConst57 = (204.25844756553354 * fConst56); + fConst58 = double(tgamma(16.0)); + fConst59 = (sqrt((19.0 * (fConst21 / fConst58))) * fConst27); + fConst60 = (0.47140452079103168 * fConst59); + fConst61 = (sqrt((19.0 * (fConst22 / fConst37))) * fConst2); + fConst62 = (0.20203050891044216 * fConst61); + fConst63 = double(tgamma(19.0)); + fConst64 = (sqrt((21.0 * (fConst15 / fConst63))) * fConst55); + fConst65 = (1.4142135623730951 * fConst64); + fConst66 = (sqrt((21.0 * (fConst16 / fConst46))) * fConst12); + fConst67 = (0.47140452079103168 * fConst66); + fConst68 = (sqrt((21.0 * (fConst11 / fConst26))) * fConst2); + fConst69 = (0.17677669529663689 * fConst68); + fConst70 = (0.23570226039551584 * fConst66); + fConst71 = (sqrt((21.0 * (fConst4 / fConst54))) * fConst27); + fConst72 = (0.35355339059327379 * fConst71); + fConst73 = (0.70710678118654757 * fConst64); + fConst74 = (sqrt((21.0 * (fConst3 / double(tgamma(21.0))))) * double(tgamma(10.5))); + fConst75 = (817.03379026213418 * fConst74); + fConst76 = double(tgamma(9.5)); + fConst77 = sqrt((19.0 * (fConst3 / fConst63))); + fConst78 = (408.51689513106709 * fConst77); + fConst79 = sqrt((21.0 * (fConst6 / double(tgamma(20.0))))); + fConst80 = (7761.8210074902745 * fConst79); + fConst81 = double(tgamma(7.5)); + fConst82 = sqrt((15.0 * (fConst3 / fConst46))); + fConst83 = (102.12922378276677 * fConst82); + fConst84 = sqrt((17.0 * (fConst6 / fConst58))); + fConst85 = (1531.9383567415016 * fConst84); + fConst86 = sqrt((19.0 * (fConst15 / fConst54))); + fConst87 = (0.70710678118654757 * fConst86); + fConst88 = double(tgamma(18.0)); + fConst89 = sqrt((21.0 * (fConst21 / fConst88))); + fConst90 = (0.47140452079103168 * fConst89); + fConst91 = double(tgamma(5.5)); + fConst92 = sqrt((11.0 * (fConst3 / fConst30))); + fConst93 = (25.532305945691693 * fConst92); + fConst94 = sqrt((13.0 * (fConst6 / fConst37))); + fConst95 = (280.85536540260864 * fConst94); + fConst96 = sqrt((15.0 * (fConst15 / fConst26))); + fConst97 = (0.70710678118654757 * fConst96); + fConst98 = sqrt((17.0 * (fConst21 / fConst43))); + fConst99 = (0.47140452079103168 * fConst98); + fConst100 = sqrt((19.0 * (fConst4 / fConst46))); + fConst101 = (0.35355339059327379 * fConst100); + fConst102 = sqrt((21.0 * (fConst7 / fConst58))); + fConst103 = (0.28284271247461906 * fConst102); + fConst104 = double(tgamma(3.5)); + fConst105 = sqrt((7.0 * (fConst3 / fConst16))); + fConst106 = (6.3830764864229232 * fConst105); + fConst107 = sqrt((9.0 * (fConst6 / fConst22))); + fConst108 = (44.681535404960464 * fConst107); + fConst109 = sqrt((11.0 * (fConst15 / fConst11))); + fConst110 = (0.70710678118654757 * fConst109); + fConst111 = sqrt((13.0 * (fConst21 / fConst40))); + fConst112 = (0.47140452079103168 * fConst111); + fConst113 = sqrt((15.0 * (fConst4 / fConst30))); + fConst114 = (0.35355339059327379 * fConst113); + fConst115 = sqrt((17.0 * (fConst7 / fConst37))); + fConst116 = (0.28284271247461906 * fConst115); + fConst117 = sqrt((19.0 * (fConst16 / fConst26))); + fConst118 = (0.23570226039551584 * fConst117); + fConst119 = sqrt((21.0 * (fConst22 / fConst43))); + fConst120 = (0.20203050891044216 * fConst119); + fConst121 = double(tgamma(1.5)); + fConst122 = sqrt((3.0 * (fConst3 / fConst15))); + fConst123 = (1.5957691216057308 * fConst122); + fConst124 = sqrt((5.0 * (fConst6 / fConst21))); + fConst125 = (4.7873073648171927 * fConst124); + fConst126 = sqrt((7.0 * (fConst15 / fConst4))); + fConst127 = (0.70710678118654757 * fConst126); + fConst128 = sqrt((9.0 * (fConst21 / fConst7))); + fConst129 = (0.47140452079103168 * fConst128); + fConst130 = sqrt((11.0 * (fConst4 / fConst16))); + fConst131 = (0.35355339059327379 * fConst130); + fConst132 = sqrt((13.0 * (fConst7 / fConst22))); + fConst133 = (0.28284271247461906 * fConst132); + fConst134 = sqrt((15.0 * (fConst16 / fConst11))); + fConst135 = (0.23570226039551584 * fConst134); + fConst136 = sqrt((17.0 * (fConst22 / fConst40))); + fConst137 = (0.20203050891044216 * fConst136); + fConst138 = sqrt((19.0 * (fConst11 / fConst30))); + fConst139 = (0.17677669529663689 * fConst138); + fConst140 = sqrt((21.0 * (fConst40 / fConst37))); + fConst141 = (0.15713484026367722 * fConst140); + fConst142 = (fConst82 * fConst81); + fConst143 = (102.12922378276677 * fConst142); + fConst144 = (0.56568542494923812 * fConst41); + fConst145 = (408.51689513106709 * fConst56); + fConst146 = (0.70710678118654757 * fConst52); + fConst147 = (fConst77 * fConst76); + fConst148 = (408.51689513106709 * fConst147); + fConst149 = (sqrt((19.0 * (fConst7 / fConst43))) * fConst12); + fConst150 = (0.56568542494923812 * fConst149); + fConst151 = (0.35355339059327379 * fConst68); + fConst152 = (sqrt((11.0 * (fConst6 / fConst40))) * fConst12); + fConst153 = (229.79075351122526 * fConst152); + fConst154 = (114.89537675561263 * fConst152); + fConst155 = (0.47140452079103168 * fConst38); + fConst156 = (sqrt((19.0 * (fConst6 / fConst88))) * fConst55); + fConst157 = (6944.7872172281404 * fConst156); + fConst158 = (0.40406101782088433 * fConst61); + fConst159 = (0.28284271247461906 * fConst149); + fConst160 = (3472.3936086140702 * fConst156); + fConst161 = (0.12698727186848197 * (fConst122 * fConst121)); + fConst162 = (fConst5 * fConst2); + fConst163 = (0.50794908747392786 * fConst162); + fConst164 = (0.3809618156054459 * (fConst124 * fConst121)); + fConst165 = (0.25397454373696393 * fConst162); + fConst166 = (0.50794908747392786 * (fConst105 * fConst104)); + fConst167 = (fConst8 * fConst2); + fConst168 = (2.5397454373696391 * fConst167); + fConst169 = (0.056269769759819135 * (fConst126 * fConst121)); + fConst170 = (1.2698727186848195 * fConst167); + fConst171 = (2.0317963498957115 * fConst13); + fConst172 = (3.5556436123174948 * (fConst107 * fConst104)); + fConst173 = (0.11253953951963827 * fConst17); + fConst174 = (0.037513179839879424 * (fConst128 * fConst121)); + fConst175 = (0.056269769759819135 * fConst17); + fConst176 = (1.0158981749478557 * fConst13); + fConst177 = (2.0317963498957115 * (fConst92 * fConst91)); + fConst178 = (18.286167149061402 * fConst152); + fConst179 = (0.056269769759819135 * (fConst109 * fConst104)); + fConst180 = (0.075026359679758847 * fConst23); + fConst181 = (0.028134884879909568 * (fConst130 * fConst121)); + fConst182 = (0.037513179839879424 * fConst23); + fConst183 = (9.1430835745307011 * fConst152); + fConst184 = (4.0635926997914229 * fConst28); + fConst185 = (22.349759848852827 * (fConst94 * fConst91)); + fConst186 = (0.11253953951963827 * fConst31); + fConst187 = (0.037513179839879424 * (fConst111 * fConst104)); + fConst188 = (0.056269769759819135 * fConst33); + fConst189 = (0.022507907903927659 * (fConst132 * fConst121)); + fConst190 = (0.028134884879909568 * fConst33); + fConst191 = (0.056269769759819135 * fConst31); + fConst192 = (8.1271853995828458 * fConst142); + fConst193 = (52.826705097288496 * fConst44); + fConst194 = (0.056269769759819135 * (fConst96 * fConst91)); + fConst195 = (0.075026359679758847 * fConst38); + fConst196 = (0.028134884879909568 * (fConst113 * fConst104)); + fConst197 = (0.045015815807855318 * fConst41); + fConst198 = (0.018756589919939712 * (fConst134 * fConst121)); + fConst199 = (0.022507907903927659 * fConst41); + fConst200 = (0.037513179839879424 * fConst38); + fConst201 = (32.508741598331383 * fConst56); + fConst202 = (121.90778099374268 * (fConst84 * fConst81)); + fConst203 = (0.056269769759819135 * fConst47); + fConst204 = (0.037513179839879424 * (fConst98 * fConst91)); + fConst205 = (0.056269769759819135 * fConst52); + fConst206 = (0.022507907903927659 * (fConst115 * fConst104)); + fConst207 = (0.037513179839879424 * fConst49); + fConst208 = (0.016077077074234038 * (fConst136 * fConst121)); + fConst209 = (0.018756589919939712 * fConst49); + fConst210 = (0.028134884879909568 * fConst52); + fConst211 = (16.254370799165692 * fConst56); + fConst212 = (32.508741598331383 * fConst147); + fConst213 = (552.64860717163344 * fConst156); + fConst214 = (0.056269769759819135 * (fConst86 * fConst81)); + fConst215 = (0.037513179839879424 * fConst59); + fConst216 = (0.028134884879909568 * (fConst100 * fConst91)); + fConst217 = (0.045015815807855318 * fConst149); + fConst218 = (0.018756589919939712 * (fConst117 * fConst104)); + fConst219 = (0.032154154148468075 * fConst61); + fConst220 = (0.014067442439954784 * (fConst138 * fConst121)); + fConst221 = (0.016077077074234038 * fConst61); + fConst222 = (0.022507907903927659 * fConst149); + fConst223 = (276.32430358581672 * fConst156); + fConst224 = (65.017483196662766 * fConst74); + fConst225 = (617.66609036829618 * (fConst79 * fConst76)); + fConst226 = (0.11253953951963827 * fConst64); + fConst227 = (0.037513179839879424 * (fConst89 * fConst81)); + fConst228 = (0.028134884879909568 * fConst71); + fConst229 = (0.022507907903927659 * (fConst102 * fConst91)); + fConst230 = (0.037513179839879424 * fConst66); + fConst231 = (0.016077077074234038 * (fConst119 * fConst104)); + fConst232 = (0.028134884879909568 * fConst68); + fConst233 = (0.012504393279959806 * (fConst140 * fConst121)); + fConst234 = (0.014067442439954784 * fConst68); + fConst235 = (0.018756589919939712 * fConst66); + fConst236 = (0.056269769759819135 * fConst64); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* input100 = inputs[100]; + FAUSTFLOAT* input101 = inputs[101]; + FAUSTFLOAT* input102 = inputs[102]; + FAUSTFLOAT* input103 = inputs[103]; + FAUSTFLOAT* input104 = inputs[104]; + FAUSTFLOAT* input105 = inputs[105]; + FAUSTFLOAT* input106 = inputs[106]; + FAUSTFLOAT* input107 = inputs[107]; + FAUSTFLOAT* input108 = inputs[108]; + FAUSTFLOAT* input109 = inputs[109]; + FAUSTFLOAT* input110 = inputs[110]; + FAUSTFLOAT* input111 = inputs[111]; + FAUSTFLOAT* input112 = inputs[112]; + FAUSTFLOAT* input113 = inputs[113]; + FAUSTFLOAT* input114 = inputs[114]; + FAUSTFLOAT* input115 = inputs[115]; + FAUSTFLOAT* input116 = inputs[116]; + FAUSTFLOAT* input117 = inputs[117]; + FAUSTFLOAT* input118 = inputs[118]; + FAUSTFLOAT* input119 = inputs[119]; + FAUSTFLOAT* input120 = inputs[120]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + FAUSTFLOAT* output100 = outputs[100]; + FAUSTFLOAT* output101 = outputs[101]; + FAUSTFLOAT* output102 = outputs[102]; + FAUSTFLOAT* output103 = outputs[103]; + FAUSTFLOAT* output104 = outputs[104]; + FAUSTFLOAT* output105 = outputs[105]; + FAUSTFLOAT* output106 = outputs[106]; + FAUSTFLOAT* output107 = outputs[107]; + FAUSTFLOAT* output108 = outputs[108]; + FAUSTFLOAT* output109 = outputs[109]; + FAUSTFLOAT* output110 = outputs[110]; + FAUSTFLOAT* output111 = outputs[111]; + FAUSTFLOAT* output112 = outputs[112]; + FAUSTFLOAT* output113 = outputs[113]; + FAUSTFLOAT* output114 = outputs[114]; + FAUSTFLOAT* output115 = outputs[115]; + FAUSTFLOAT* output116 = outputs[116]; + FAUSTFLOAT* output117 = outputs[117]; + FAUSTFLOAT* output118 = outputs[118]; + FAUSTFLOAT* output119 = outputs[119]; + FAUSTFLOAT* output120 = outputs[120]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = double(fVslider2); + double fSlow14 = cos(fSlow13); + double fSlow15 = sin(fSlow13); + double fSlow16 = (6.3830764864229232 * (fSlow14 * fSlow15)); + double fSlow17 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow18 = mydsp_faustpower2_f(fSlow14); + double fSlow19 = ((2.0 * fSlow18) + -1.0); + double fSlow20 = (3.1915382432114616 * fSlow19); + double fSlow21 = (fSlow14 * fSlow10); + double fSlow22 = (fConst9 * (fSlow21 * fSlow15)); + double fSlow23 = (fSlow19 * fSlow10); + double fSlow24 = (fConst10 * fSlow23); + double fSlow25 = ((4.0 * fSlow18) + -1.0); + double fSlow26 = (fSlow25 + -1.0); + double fSlow27 = (fSlow26 * fSlow14); + double fSlow28 = (fConst14 * ((fSlow27 * fSlow12) * fSlow15)); + double fSlow29 = ((78.986541696685876 * fSlow11) + -11.283791670955125); + double fSlow30 = (fSlow29 * fSlow14); + double fSlow31 = (fConst18 * (fSlow30 * fSlow15)); + double fSlow32 = (fSlow19 * fSlow29); + double fSlow33 = (fConst19 * fSlow32); + double fSlow34 = ((2.0 * fSlow19) + -1.0); + double fSlow35 = (1.0 - fSlow34); + double fSlow36 = (1.0 - (2.0 * (fSlow35 * fSlow18))); + double fSlow37 = (fConst20 * (fSlow36 * fSlow12)); + double fSlow38 = ((4.5 * fSlow29) + -67.702750025730751); + double fSlow39 = ((fSlow38 * fSlow14) * fSlow10); + double fSlow40 = (fConst24 * (fSlow39 * fSlow15)); + double fSlow41 = ((fSlow19 * fSlow38) * fSlow10); + double fSlow42 = (fConst25 * fSlow41); + double fSlow43 = (1.0 - fSlow26); + double fSlow44 = (1.0 - (4.0 * (fSlow43 * fSlow18))); + double fSlow45 = (fSlow26 - fSlow44); + double fSlow46 = (0.0 - (2.0 * (fSlow45 * fSlow14))); + double fSlow47 = mydsp_faustpower2_f(fSlow12); + double fSlow48 = (fConst29 * ((fSlow46 * fSlow47) * fSlow15)); + double fSlow49 = ((893.67630033964599 * fSlow11) + -81.24330003087691); + double fSlow50 = ((fSlow26 * fSlow49) * fSlow14); + double fSlow51 = (fConst32 * ((fSlow50 * fSlow12) * fSlow15)); + double fSlow52 = ((3.6666666666666665 * (fSlow38 * fSlow11)) - (3.5 * fSlow29)); + double fSlow53 = (fSlow52 * fSlow14); + double fSlow54 = (fConst34 * (fSlow53 * fSlow15)); + double fSlow55 = (fSlow19 * fSlow52); + double fSlow56 = (fConst35 * fSlow55); + double fSlow57 = (fSlow36 * fSlow49); + double fSlow58 = (fConst36 * (fSlow57 * fSlow12)); + double fSlow59 = ((2.0 * fSlow36) - fSlow34); + double fSlow60 = (fSlow35 + fSlow59); + double fSlow61 = ((2.0 * (fSlow60 * fSlow18)) + -1.0); + double fSlow62 = (fConst29 * (fSlow61 * fSlow47)); + double fSlow63 = ((6.5 * fSlow49) + -812.43300030876912); + double fSlow64 = (((fSlow26 * fSlow63) * fSlow14) * fSlow10); + double fSlow65 = (fConst39 * ((fSlow64 * fSlow12) * fSlow15)); + double fSlow66 = ((3.25 * fSlow52) - (2.6666666666666665 * fSlow38)); + double fSlow67 = ((fSlow19 * fSlow66) * fSlow10); + double fSlow68 = (fConst42 * fSlow67); + double fSlow69 = (fSlow61 * fSlow10); + double fSlow70 = (fConst45 * (fSlow69 * fSlow47)); + double fSlow71 = ((7041.0860026759983 * fSlow11) + -469.40573351173322); + double fSlow72 = (fSlow46 * fSlow71); + double fSlow73 = (fConst48 * ((fSlow72 * fSlow47) * fSlow15)); + double fSlow74 = ((3.0 * (fSlow66 * fSlow11)) - (2.25 * fSlow52)); + double fSlow75 = (fSlow74 * fSlow14); + double fSlow76 = (fConst50 * (fSlow75 * fSlow15)); + double fSlow77 = (fSlow19 * fSlow74); + double fSlow78 = (fConst51 * fSlow77); + double fSlow79 = ((5.0 * (fSlow63 * fSlow11)) - (5.5 * fSlow49)); + double fSlow80 = (fSlow36 * fSlow79); + double fSlow81 = (fConst53 * (fSlow80 * fSlow12)); + double fSlow82 = (fSlow61 * fSlow71); + double fSlow83 = (fConst48 * (fSlow82 * fSlow47)); + double fSlow84 = ((2.0 * fSlow61) - fSlow59); + double fSlow85 = (fSlow60 - fSlow84); + double fSlow86 = (1.0 - (2.0 * (fSlow85 * fSlow18))); + double fSlow87 = mydsp_faustpower3_f(fSlow12); + double fSlow88 = (fConst57 * (fSlow86 * fSlow87)); + double fSlow89 = ((8.5 * fSlow71) + -6571.6802691642652); + double fSlow90 = ((fSlow46 * fSlow89) * fSlow10); + double fSlow91 = (fConst60 * ((fSlow90 * fSlow47) * fSlow15)); + double fSlow92 = ((2.833333333333333 * fSlow74) - (2.0 * fSlow66)); + double fSlow93 = ((fSlow19 * fSlow92) * fSlow10); + double fSlow94 = (fConst62 * fSlow93); + double fSlow95 = ((fSlow61 * fSlow89) * fSlow10); + double fSlow96 = (fConst60 * (fSlow95 * fSlow47)); + double fSlow97 = ((2.0 * fSlow46) + (4.0 * (fSlow43 * fSlow14))); + double fSlow98 = ((fSlow97 * fSlow14) + -1.0); + double fSlow99 = (fSlow45 + fSlow98); + double fSlow100 = ((46651.708284396875 * fSlow11) + -2455.3530675998354); + double fSlow101 = ((fSlow99 * fSlow100) * fSlow14); + double fSlow102 = (fConst65 * ((fSlow101 * fSlow87) * fSlow15)); + double fSlow103 = ((4.25 * fSlow79) - (4.0 * fSlow63)); + double fSlow104 = ((3.8000000000000003 * (fSlow103 * fSlow11)) - (3.25 * fSlow79)); + double fSlow105 = ((fSlow26 * fSlow104) * fSlow14); + double fSlow106 = (fConst67 * ((fSlow105 * fSlow12) * fSlow15)); + double fSlow107 = ((2.714285714285714 * (fSlow92 * fSlow11)) - (1.8333333333333333 * fSlow74)); + double fSlow108 = (fSlow19 * fSlow107); + double fSlow109 = (fConst69 * fSlow108); + double fSlow110 = (fSlow36 * fSlow104); + double fSlow111 = (fConst70 * (fSlow110 * fSlow12)); + double fSlow112 = ((6.333333333333333 * (fSlow89 * fSlow11)) - (7.5 * fSlow71)); + double fSlow113 = (fSlow61 * fSlow112); + double fSlow114 = (fConst72 * (fSlow113 * fSlow47)); + double fSlow115 = (fSlow86 * fSlow100); + double fSlow116 = (fConst73 * (fSlow115 * fSlow87)); + double fSlow117 = ((2.0 * fSlow86) - fSlow84); + double fSlow118 = ((2.0 * ((fSlow85 + fSlow117) * fSlow18)) + -1.0); + double fSlow119 = mydsp_faustpower4_f(fSlow12); + double fSlow120 = (fConst75 * (fSlow118 * fSlow119)); + double fSlow121 = pow(fSlow12, 4.5); + double fSlow122 = (fConst76 * fSlow121); + double fSlow123 = (fSlow117 * fSlow14); + double fSlow124 = (fConst78 * fSlow123); + double fSlow125 = (fSlow99 * fSlow14); + double fSlow126 = ((((4.0 * fSlow125) - fSlow97) * fSlow14) + 1.0); + double fSlow127 = (fSlow126 * fSlow10); + double fSlow128 = (fConst80 * (fSlow127 * fSlow15)); + double fSlow129 = (fSlow123 * fSlow10); + double fSlow130 = (fConst80 * fSlow129); + double fSlow131 = pow(fSlow12, 3.5); + double fSlow132 = (fConst81 * fSlow131); + double fSlow133 = (fSlow84 * fSlow14); + double fSlow134 = (fConst83 * fSlow133); + double fSlow135 = (fSlow98 * fSlow10); + double fSlow136 = (fConst85 * (fSlow135 * fSlow15)); + double fSlow137 = (fSlow133 * fSlow10); + double fSlow138 = (fConst85 * fSlow137); + double fSlow139 = ((18415.148006998763 * fSlow11) + -1083.244000411692); + double fSlow140 = (fSlow98 * fSlow139); + double fSlow141 = (fConst87 * (fSlow140 * fSlow15)); + double fSlow142 = ((fSlow84 * fSlow139) * fSlow14); + double fSlow143 = (fConst87 * fSlow142); + double fSlow144 = ((9.5 * fSlow139) + -17331.904006587072); + double fSlow145 = ((fSlow98 * fSlow144) * fSlow10); + double fSlow146 = (fConst90 * (fSlow145 * fSlow15)); + double fSlow147 = (((fSlow84 * fSlow144) * fSlow14) * fSlow10); + double fSlow148 = (fConst90 * fSlow147); + double fSlow149 = pow(fSlow12, 2.5); + double fSlow150 = (fConst91 * fSlow149); + double fSlow151 = (fSlow44 * fSlow15); + double fSlow152 = (fSlow59 * fSlow14); + double fSlow153 = (fSlow44 * fSlow10); + double fSlow154 = (fConst95 * (fSlow153 * fSlow15)); + double fSlow155 = (fSlow152 * fSlow10); + double fSlow156 = (fConst95 * fSlow155); + double fSlow157 = ((2581.7315343145328 * fSlow11) + -198.59473340881021); + double fSlow158 = (fSlow44 * fSlow157); + double fSlow159 = (fConst97 * (fSlow158 * fSlow15)); + double fSlow160 = ((fSlow59 * fSlow157) * fSlow14); + double fSlow161 = (fConst97 * fSlow160); + double fSlow162 = ((7.5 * fSlow157) + -2383.1368009057223); + double fSlow163 = ((fSlow44 * fSlow162) * fSlow10); + double fSlow164 = (fConst99 * (fSlow163 * fSlow15)); + double fSlow165 = (((fSlow59 * fSlow162) * fSlow14) * fSlow10); + double fSlow166 = (fConst99 * fSlow165); + double fSlow167 = ((5.6666666666666661 * (fSlow162 * fSlow11)) - (6.5 * fSlow157)); + double fSlow168 = (fSlow44 * fSlow167); + double fSlow169 = (fConst101 * (fSlow168 * fSlow15)); + double fSlow170 = ((fSlow59 * fSlow167) * fSlow14); + double fSlow171 = (fConst101 * fSlow170); + double fSlow172 = ((4.75 * fSlow167) - (4.6666666666666661 * fSlow162)); + double fSlow173 = ((fSlow44 * fSlow172) * fSlow10); + double fSlow174 = (fConst103 * (fSlow173 * fSlow15)); + double fSlow175 = (((fSlow59 * fSlow172) * fSlow14) * fSlow10); + double fSlow176 = (fConst103 * fSlow175); + double fSlow177 = pow(fSlow12, 1.5); + double fSlow178 = (fConst104 * fSlow177); + double fSlow179 = (fSlow25 * fSlow15); + double fSlow180 = (fSlow34 * fSlow14); + double fSlow181 = (fSlow25 * fSlow10); + double fSlow182 = (fConst108 * (fSlow181 * fSlow15)); + double fSlow183 = (fSlow180 * fSlow10); + double fSlow184 = (fConst108 * fSlow183); + double fSlow185 = ((284.35155010806915 * fSlow11) + -31.594616678674353); + double fSlow186 = (fSlow25 * fSlow185); + double fSlow187 = (fConst110 * (fSlow186 * fSlow15)); + double fSlow188 = ((fSlow34 * fSlow185) * fSlow14); + double fSlow189 = (fConst110 * fSlow188); + double fSlow190 = ((5.5 * fSlow185) + -252.75693342939482); + double fSlow191 = ((fSlow25 * fSlow190) * fSlow10); + double fSlow192 = (fConst112 * (fSlow191 * fSlow15)); + double fSlow193 = (((fSlow34 * fSlow190) * fSlow14) * fSlow10); + double fSlow194 = (fConst112 * fSlow193); + double fSlow195 = ((4.333333333333333 * (fSlow190 * fSlow11)) - (4.5 * fSlow185)); + double fSlow196 = (fSlow25 * fSlow195); + double fSlow197 = (fConst114 * (fSlow196 * fSlow15)); + double fSlow198 = ((fSlow34 * fSlow195) * fSlow14); + double fSlow199 = (fConst114 * fSlow198); + double fSlow200 = ((3.75 * fSlow195) - (3.333333333333333 * fSlow190)); + double fSlow201 = ((fSlow25 * fSlow200) * fSlow10); + double fSlow202 = (fConst116 * (fSlow201 * fSlow15)); + double fSlow203 = (((fSlow34 * fSlow200) * fSlow14) * fSlow10); + double fSlow204 = (fConst116 * fSlow203); + double fSlow205 = ((3.4000000000000004 * (fSlow200 * fSlow11)) - (2.75 * fSlow195)); + double fSlow206 = (fSlow25 * fSlow205); + double fSlow207 = (fConst118 * (fSlow206 * fSlow15)); + double fSlow208 = ((fSlow34 * fSlow205) * fSlow14); + double fSlow209 = (fConst118 * fSlow208); + double fSlow210 = ((3.1666666666666665 * fSlow205) - (2.4000000000000004 * fSlow200)); + double fSlow211 = ((fSlow25 * fSlow210) * fSlow10); + double fSlow212 = (fConst120 * (fSlow211 * fSlow15)); + double fSlow213 = (((fSlow34 * fSlow210) * fSlow14) * fSlow10); + double fSlow214 = (fConst120 * fSlow213); + double fSlow215 = pow(fSlow12, 0.5); + double fSlow216 = (fConst121 * fSlow215); + double fSlow217 = (fConst125 * (fSlow10 * fSlow15)); + double fSlow218 = (fConst125 * fSlow21); + double fSlow219 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow220 = (fConst127 * (fSlow219 * fSlow15)); + double fSlow221 = (fSlow219 * fSlow14); + double fSlow222 = (fConst127 * fSlow221); + double fSlow223 = ((3.5 * fSlow219) + -13.540550005146152); + double fSlow224 = (fSlow223 * fSlow10); + double fSlow225 = (fConst129 * (fSlow224 * fSlow15)); + double fSlow226 = ((fSlow223 * fSlow14) * fSlow10); + double fSlow227 = (fConst129 * fSlow226); + double fSlow228 = ((3.0 * (fSlow223 * fSlow11)) - (2.5 * fSlow219)); + double fSlow229 = (fConst131 * (fSlow228 * fSlow15)); + double fSlow230 = (fSlow228 * fSlow14); + double fSlow231 = (fConst131 * fSlow230); + double fSlow232 = ((2.75 * fSlow228) - (2.0 * fSlow223)); + double fSlow233 = (fSlow232 * fSlow10); + double fSlow234 = (fConst133 * (fSlow233 * fSlow15)); + double fSlow235 = ((fSlow232 * fSlow14) * fSlow10); + double fSlow236 = (fConst133 * fSlow235); + double fSlow237 = ((2.6000000000000001 * (fSlow232 * fSlow11)) - (1.75 * fSlow228)); + double fSlow238 = (fConst135 * (fSlow237 * fSlow15)); + double fSlow239 = (fSlow237 * fSlow14); + double fSlow240 = (fConst135 * fSlow239); + double fSlow241 = ((2.5 * fSlow237) - (1.6000000000000001 * fSlow232)); + double fSlow242 = (fSlow241 * fSlow10); + double fSlow243 = (fConst137 * (fSlow242 * fSlow15)); + double fSlow244 = ((fSlow241 * fSlow14) * fSlow10); + double fSlow245 = (fConst137 * fSlow244); + double fSlow246 = ((2.4285714285714284 * (fSlow241 * fSlow11)) - (1.5 * fSlow237)); + double fSlow247 = (fConst139 * (fSlow246 * fSlow15)); + double fSlow248 = (fSlow246 * fSlow14); + double fSlow249 = (fConst139 * fSlow248); + double fSlow250 = ((2.375 * fSlow246) - (1.4285714285714284 * fSlow241)); + double fSlow251 = (fSlow250 * fSlow10); + double fSlow252 = (fConst141 * (fSlow251 * fSlow15)); + double fSlow253 = ((fSlow250 * fSlow14) * fSlow10); + double fSlow254 = (fConst141 * fSlow253); + double fSlow255 = ((3.0 * fSlow11) + -1.0); + double fSlow256 = ((2.5 * fSlow255) + -2.0); + double fSlow257 = ((2.333333333333333 * (fSlow256 * fSlow11)) - (1.5 * fSlow255)); + double fSlow258 = ((2.25 * fSlow257) - (1.3333333333333333 * fSlow256)); + double fSlow259 = ((2.2000000000000002 * (fSlow258 * fSlow11)) - (1.25 * fSlow257)); + double fSlow260 = ((2.1666666666666665 * fSlow259) - (1.2000000000000002 * fSlow258)); + double fSlow261 = ((2.1428571428571428 * (fSlow260 * fSlow11)) - (1.1666666666666665 * fSlow259)); + double fSlow262 = ((2.125 * fSlow261) - (1.1428571428571428 * fSlow260)); + double fSlow263 = ((2.1111111111111112 * (fSlow262 * fSlow11)) - (1.125 * fSlow261)); + double fSlow264 = (0.45825756949558399 * fSlow263); + double fSlow265 = (fSlow98 * fSlow131); + double fSlow266 = (fConst143 * fSlow265); + double fSlow267 = (((fSlow66 * fSlow14) * fSlow10) * fSlow12); + double fSlow268 = (fConst144 * fSlow267); + double fSlow269 = (fSlow125 * fSlow119); + double fSlow270 = (fConst145 * fSlow269); + double fSlow271 = (((fSlow26 * fSlow79) * fSlow14) * fSlow47); + double fSlow272 = (fConst146 * fSlow271); + double fSlow273 = (fSlow126 * fSlow121); + double fSlow274 = (fConst148 * fSlow273); + double fSlow275 = ((((fSlow26 * fSlow103) * fSlow14) * fSlow10) * fSlow47); + double fSlow276 = (fConst150 * fSlow275); + double fSlow277 = mydsp_faustpower5_f(fSlow12); + double fSlow278 = ((0.0 - (2.0 * ((fSlow99 - fSlow126) * fSlow14))) * fSlow277); + double fSlow279 = (fConst75 * fSlow278); + double fSlow280 = ((fSlow46 * fSlow112) * fSlow87); + double fSlow281 = (fConst72 * fSlow280); + double fSlow282 = ((fSlow107 * fSlow14) * fSlow12); + double fSlow283 = (fConst151 * fSlow282); + double fSlow284 = (1.1180339887498949 * fSlow255); + double fSlow285 = (0.75 * fSlow257); + double fSlow286 = (0.60092521257733145 * fSlow259); + double fSlow287 = (0.51538820320220757 * fSlow261); + double fSlow288 = (0.88191710368819687 * fSlow256); + double fSlow289 = ((fSlow27 * fSlow47) * fSlow15); + double fSlow290 = (fConst153 * fSlow289); + double fSlow291 = (0.66332495807108005 * fSlow258); + double fSlow292 = (fSlow36 * fSlow47); + double fSlow293 = (fConst154 * fSlow292); + double fSlow294 = ((fSlow46 * fSlow87) * fSlow15); + double fSlow295 = (fConst45 * fSlow294); + double fSlow296 = (0.55328333517248807 * fSlow260); + double fSlow297 = (fSlow36 * fSlow63); + double fSlow298 = (fConst155 * (fSlow297 * fSlow47)); + double fSlow299 = (fSlow269 * fSlow15); + double fSlow300 = (fConst157 * fSlow299); + double fSlow301 = (fSlow92 * fSlow14); + double fSlow302 = (fConst158 * ((fSlow301 * fSlow12) * fSlow15)); + double fSlow303 = (0.48432210483785265 * fSlow262); + double fSlow304 = (fSlow36 * fSlow103); + double fSlow305 = (fConst159 * (fSlow304 * fSlow47)); + double fSlow306 = (fSlow86 * fSlow119); + double fSlow307 = (fConst160 * fSlow306); + double fSlow308 = (fConst161 * (fSlow215 * fSlow15)); + double fSlow309 = (0.13783222385544802 * fSlow10); + double fSlow310 = (fConst161 * (fSlow14 * fSlow215)); + double fSlow311 = (fConst163 * ((fSlow14 * fSlow12) * fSlow15)); + double fSlow312 = (fConst164 * ((fSlow10 * fSlow215) * fSlow15)); + double fSlow313 = (0.088970317927147144 * fSlow255); + double fSlow314 = (fConst164 * (fSlow21 * fSlow215)); + double fSlow315 = (fConst165 * (fSlow19 * fSlow12)); + double fSlow316 = (fConst166 * ((fSlow25 * fSlow177) * fSlow15)); + double fSlow317 = (fConst168 * ((fSlow21 * fSlow12) * fSlow15)); + double fSlow318 = (fConst169 * ((fSlow219 * fSlow215) * fSlow15)); + double fSlow319 = (0.070180733224632072 * (fSlow256 * fSlow10)); + double fSlow320 = (fConst169 * (fSlow221 * fSlow215)); + double fSlow321 = (fConst170 * (fSlow23 * fSlow12)); + double fSlow322 = (fConst166 * (fSlow180 * fSlow177)); + double fSlow323 = (fConst171 * fSlow289); + double fSlow324 = (fConst172 * ((fSlow181 * fSlow177) * fSlow15)); + double fSlow325 = (fConst173 * ((fSlow30 * fSlow12) * fSlow15)); + double fSlow326 = (fConst174 * ((fSlow224 * fSlow215) * fSlow15)); + double fSlow327 = (0.059683103659460751 * fSlow257); + double fSlow328 = (fConst174 * (fSlow226 * fSlow215)); + double fSlow329 = (fConst175 * (fSlow32 * fSlow12)); + double fSlow330 = (fConst172 * (fSlow183 * fSlow177)); + double fSlow331 = (fConst176 * fSlow292); + double fSlow332 = (fConst177 * ((fSlow44 * fSlow149) * fSlow15)); + double fSlow333 = (fConst178 * (((fSlow27 * fSlow10) * fSlow47) * fSlow15)); + double fSlow334 = (fConst179 * ((fSlow186 * fSlow177) * fSlow15)); + double fSlow335 = (fConst180 * ((fSlow39 * fSlow12) * fSlow15)); + double fSlow336 = (fConst181 * ((fSlow228 * fSlow215) * fSlow15)); + double fSlow337 = (0.052785722976618307 * (fSlow258 * fSlow10)); + double fSlow338 = (fConst181 * (fSlow230 * fSlow215)); + double fSlow339 = (fConst182 * (fSlow41 * fSlow12)); + double fSlow340 = (fConst179 * (fSlow188 * fSlow177)); + double fSlow341 = (fConst183 * ((fSlow36 * fSlow10) * fSlow47)); + double fSlow342 = (fConst177 * (fSlow152 * fSlow149)); + double fSlow343 = (fConst184 * fSlow294); + double fSlow344 = (fConst185 * ((fSlow153 * fSlow149) * fSlow15)); + double fSlow345 = (fConst186 * ((fSlow50 * fSlow47) * fSlow15)); + double fSlow346 = (fConst187 * ((fSlow191 * fSlow177) * fSlow15)); + double fSlow347 = (fConst188 * ((fSlow53 * fSlow12) * fSlow15)); + double fSlow348 = (fConst189 * ((fSlow233 * fSlow215) * fSlow15)); + double fSlow349 = (0.047820109005115151 * fSlow259); + double fSlow350 = (fConst189 * (fSlow235 * fSlow215)); + double fSlow351 = (fConst190 * (fSlow55 * fSlow12)); + double fSlow352 = (fConst187 * (fSlow193 * fSlow177)); + double fSlow353 = (fConst191 * (fSlow57 * fSlow47)); + double fSlow354 = (fConst185 * (fSlow155 * fSlow149)); + double fSlow355 = (fConst184 * (fSlow61 * fSlow87)); + double fSlow356 = (fConst192 * (fSlow265 * fSlow15)); + double fSlow357 = (fConst193 * (((fSlow46 * fSlow10) * fSlow87) * fSlow15)); + double fSlow358 = (fConst194 * ((fSlow158 * fSlow149) * fSlow15)); + double fSlow359 = (fConst195 * ((fSlow64 * fSlow47) * fSlow15)); + double fSlow360 = (fConst196 * ((fSlow196 * fSlow177) * fSlow15)); + double fSlow361 = (fConst197 * (fSlow267 * fSlow15)); + double fSlow362 = (fConst198 * ((fSlow237 * fSlow215) * fSlow15)); + double fSlow363 = (0.044028888861535699 * (fSlow260 * fSlow10)); + double fSlow364 = (fConst198 * (fSlow239 * fSlow215)); + double fSlow365 = (fConst199 * (fSlow67 * fSlow12)); + double fSlow366 = (fConst196 * (fSlow198 * fSlow177)); + double fSlow367 = (fConst200 * ((fSlow297 * fSlow10) * fSlow47)); + double fSlow368 = (fConst194 * (fSlow160 * fSlow149)); + double fSlow369 = (fConst193 * (fSlow69 * fSlow87)); + double fSlow370 = (fConst192 * (fSlow133 * fSlow131)); + double fSlow371 = (fConst201 * fSlow299); + double fSlow372 = (fConst202 * ((fSlow135 * fSlow131) * fSlow15)); + double fSlow373 = (fConst203 * ((fSlow72 * fSlow87) * fSlow15)); + double fSlow374 = (fConst204 * ((fSlow163 * fSlow149) * fSlow15)); + double fSlow375 = (fConst205 * (fSlow271 * fSlow15)); + double fSlow376 = (fConst206 * ((fSlow201 * fSlow177) * fSlow15)); + double fSlow377 = (fConst207 * ((fSlow75 * fSlow12) * fSlow15)); + double fSlow378 = (fConst208 * ((fSlow242 * fSlow215) * fSlow15)); + double fSlow379 = (0.041013290075440773 * fSlow261); + double fSlow380 = (fConst208 * (fSlow244 * fSlow215)); + double fSlow381 = (fConst209 * (fSlow77 * fSlow12)); + double fSlow382 = (fConst206 * (fSlow203 * fSlow177)); + double fSlow383 = (fConst210 * (fSlow80 * fSlow47)); + double fSlow384 = (fConst204 * (fSlow165 * fSlow149)); + double fSlow385 = (fConst203 * (fSlow82 * fSlow87)); + double fSlow386 = (fConst202 * (fSlow137 * fSlow131)); + double fSlow387 = (fConst211 * fSlow306); + double fSlow388 = (fConst212 * (fSlow273 * fSlow15)); + double fSlow389 = (fConst213 * (((fSlow125 * fSlow10) * fSlow119) * fSlow15)); + double fSlow390 = (fConst214 * ((fSlow140 * fSlow131) * fSlow15)); + double fSlow391 = (fConst215 * ((fSlow90 * fSlow87) * fSlow15)); + double fSlow392 = (fConst216 * ((fSlow168 * fSlow149) * fSlow15)); + double fSlow393 = (fConst217 * (fSlow275 * fSlow15)); + double fSlow394 = (fConst218 * ((fSlow206 * fSlow177) * fSlow15)); + double fSlow395 = (fConst219 * (((fSlow301 * fSlow10) * fSlow12) * fSlow15)); + double fSlow396 = (fConst220 * ((fSlow246 * fSlow215) * fSlow15)); + double fSlow397 = (0.038541128516807702 * (fSlow262 * fSlow10)); + double fSlow398 = (fConst220 * (fSlow248 * fSlow215)); + double fSlow399 = (fConst221 * (fSlow93 * fSlow12)); + double fSlow400 = (fConst218 * (fSlow208 * fSlow177)); + double fSlow401 = (fConst222 * ((fSlow304 * fSlow10) * fSlow47)); + double fSlow402 = (fConst216 * (fSlow170 * fSlow149)); + double fSlow403 = (fConst215 * (fSlow95 * fSlow87)); + double fSlow404 = (fConst214 * (fSlow142 * fSlow131)); + double fSlow405 = (fConst223 * ((fSlow86 * fSlow10) * fSlow119)); + double fSlow406 = (fConst212 * (fSlow123 * fSlow121)); + double fSlow407 = (fConst224 * (fSlow278 * fSlow15)); + double fSlow408 = (fConst225 * ((fSlow127 * fSlow121) * fSlow15)); + double fSlow409 = (fConst226 * ((fSlow101 * fSlow119) * fSlow15)); + double fSlow410 = (fConst227 * ((fSlow145 * fSlow131) * fSlow15)); + double fSlow411 = (fConst228 * (fSlow280 * fSlow15)); + double fSlow412 = (fConst229 * ((fSlow173 * fSlow149) * fSlow15)); + double fSlow413 = (fConst230 * ((fSlow105 * fSlow47) * fSlow15)); + double fSlow414 = (fConst231 * ((fSlow211 * fSlow177) * fSlow15)); + double fSlow415 = (fConst232 * (fSlow282 * fSlow15)); + double fSlow416 = (fConst233 * ((fSlow251 * fSlow215) * fSlow15)); + double fSlow417 = (0.03646697869724997 * fSlow263); + double fSlow418 = (fConst233 * (fSlow253 * fSlow215)); + double fSlow419 = (fConst234 * (fSlow108 * fSlow12)); + double fSlow420 = (fConst231 * (fSlow213 * fSlow177)); + double fSlow421 = (fConst235 * (fSlow110 * fSlow47)); + double fSlow422 = (fConst229 * (fSlow175 * fSlow149)); + double fSlow423 = (fConst228 * (fSlow113 * fSlow87)); + double fSlow424 = (fConst227 * (fSlow147 * fSlow131)); + double fSlow425 = (fConst236 * (fSlow115 * fSlow119)); + double fSlow426 = (fConst225 * (fSlow129 * fSlow121)); + double fSlow427 = (fConst224 * (fSlow118 * fSlow277)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow17 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input4[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input8[i]); + double fTemp5 = double(input10[i]); + double fTemp6 = double(input14[i]); + double fTemp7 = double(input16[i]); + double fTemp8 = double(input18[i]); + double fTemp9 = double(input22[i]); + double fTemp10 = double(input24[i]); + double fTemp11 = double(input28[i]); + double fTemp12 = double(input32[i]); + double fTemp13 = double(input36[i]); + double fTemp14 = double(input38[i]); + double fTemp15 = double(input40[i]); + double fTemp16 = double(input44[i]); + double fTemp17 = double(input46[i]); + double fTemp18 = double(input48[i]); + double fTemp19 = double(input52[i]); + double fTemp20 = double(input58[i]); + double fTemp21 = double(input62[i]); + double fTemp22 = double(input66[i]); + double fTemp23 = double(input70[i]); + double fTemp24 = double(input74[i]); + double fTemp25 = double(input76[i]); + double fTemp26 = double(input78[i]); + double fTemp27 = double(input80[i]); + double fTemp28 = double(input84[i]); + double fTemp29 = double(input92[i]); + double fTemp30 = double(input96[i]); + double fTemp31 = double(input102[i]); + double fTemp32 = double(input106[i]); + double fTemp33 = double(input112[i]); + double fTemp34 = double(input114[i]); + double fTemp35 = double(input116[i]); + double fTemp36 = double(input118[i]); + double fTemp37 = double(input120[i]); + double fTemp38 = double(input99[i]); + double fTemp39 = double(input101[i]); + double fTemp40 = double(input119[i]); + double fTemp41 = double(input63[i]); + double fTemp42 = double(input65[i]); + double fTemp43 = double(input79[i]); + double fTemp44 = double(input83[i]); + double fTemp45 = double(input97[i]); + double fTemp46 = double(input103[i]); + double fTemp47 = double(input117[i]); + double fTemp48 = double(input25[i]); + double fTemp49 = double(input35[i]); + double fTemp50 = double(input37[i]); + double fTemp51 = double(input47[i]); + double fTemp52 = double(input51[i]); + double fTemp53 = double(input61[i]); + double fTemp54 = double(input67[i]); + double fTemp55 = double(input77[i]); + double fTemp56 = double(input85[i]); + double fTemp57 = double(input95[i]); + double fTemp58 = double(input105[i]); + double fTemp59 = double(input115[i]); + double fTemp60 = double(input9[i]); + double fTemp61 = double(input15[i]); + double fTemp62 = double(input17[i]); + double fTemp63 = double(input23[i]); + double fTemp64 = double(input27[i]); + double fTemp65 = double(input33[i]); + double fTemp66 = double(input39[i]); + double fTemp67 = double(input45[i]); + double fTemp68 = double(input53[i]); + double fTemp69 = double(input59[i]); + double fTemp70 = double(input69[i]); + double fTemp71 = double(input75[i]); + double fTemp72 = double(input87[i]); + double fTemp73 = double(input93[i]); + double fTemp74 = double(input107[i]); + double fTemp75 = double(input113[i]); + double fTemp76 = double(input1[i]); + double fTemp77 = double(input3[i]); + double fTemp78 = double(input5[i]); + double fTemp79 = double(input7[i]); + double fTemp80 = double(input11[i]); + double fTemp81 = double(input13[i]); + double fTemp82 = double(input19[i]); + double fTemp83 = double(input21[i]); + double fTemp84 = double(input29[i]); + double fTemp85 = double(input31[i]); + double fTemp86 = double(input41[i]); + double fTemp87 = double(input43[i]); + double fTemp88 = double(input55[i]); + double fTemp89 = double(input57[i]); + double fTemp90 = double(input71[i]); + double fTemp91 = double(input73[i]); + double fTemp92 = double(input89[i]); + double fTemp93 = double(input91[i]); + double fTemp94 = double(input109[i]); + double fTemp95 = double(input111[i]); + double fTemp96 = double(input110[i]); + double fTemp97 = double(input49[i]); + double fTemp98 = double(input54[i]); + double fTemp99 = double(input64[i]); + double fTemp100 = double(input68[i]); + double fTemp101 = double(input81[i]); + double fTemp102 = double(input86[i]); + double fTemp103 = double(input100[i]); + double fTemp104 = double(input104[i]); + double fTemp105 = double(input108[i]); + double fTemp106 = double(input6[i]); + double fTemp107 = double(input20[i]); + double fTemp108 = double(input42[i]); + double fTemp109 = double(input72[i]); + double fTemp110 = double(input2[i]); + double fTemp111 = double(input12[i]); + double fTemp112 = double(input26[i]); + double fTemp113 = double(input30[i]); + double fTemp114 = double(input34[i]); + double fTemp115 = double(input50[i]); + double fTemp116 = double(input56[i]); + double fTemp117 = double(input60[i]); + double fTemp118 = double(input82[i]); + double fTemp119 = double(input88[i]); + double fTemp120 = double(input90[i]); + double fTemp121 = double(input94[i]); + double fTemp122 = double(input98[i]); + double fTemp123 = ((fSlow12 * ((((((((((((((((((((((((((((((((fConst2 * (((fConst5 * ((fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + (fSlow22 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5)))))) + (fSlow24 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow28 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow31 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow33 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow37 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10)))))) + (fSlow40 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11)))))) + (fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow48 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow51 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14)))))) + (fSlow54 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15)))))) + (fSlow56 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16)))))) + (fSlow58 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))) + (fSlow62 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18)))))) + (fSlow65 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19)))))) + (fSlow68 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20)))))) + (fSlow70 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21)))))) + (fSlow73 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22)))))) + (fSlow76 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23)))))) + (fSlow78 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24)))))) + (fSlow81 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25)))))) + (fSlow83 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26)))))) + (fSlow88 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp27)):(iSlow2?(fSlow4 * (fTemp3 * fTemp27)):(fSlow4 * (fTemp1 * fTemp27)))))) + (fSlow91 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp28)):(iSlow2?(fSlow4 * (fTemp3 * fTemp28)):(fSlow4 * (fTemp1 * fTemp28)))))) + (fSlow94 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp29)):(iSlow2?(fSlow4 * (fTemp3 * fTemp29)):(fSlow4 * (fTemp1 * fTemp29)))))) + (fSlow96 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp30)):(iSlow2?(fSlow4 * (fTemp3 * fTemp30)):(fSlow4 * (fTemp1 * fTemp30)))))) + (fSlow102 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp31)):(iSlow2?(fSlow4 * (fTemp3 * fTemp31)):(fSlow4 * (fTemp1 * fTemp31)))))) + (fSlow106 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp32)):(iSlow2?(fSlow4 * (fTemp3 * fTemp32)):(fSlow4 * (fTemp1 * fTemp32)))))) + (fSlow109 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp33)):(iSlow2?(fSlow4 * (fTemp3 * fTemp33)):(fSlow4 * (fTemp1 * fTemp33)))))) + (fSlow111 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp34)):(iSlow2?(fSlow4 * (fTemp3 * fTemp34)):(fSlow4 * (fTemp1 * fTemp34)))))) + (fSlow114 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp35)):(iSlow2?(fSlow4 * (fTemp3 * fTemp35)):(fSlow4 * (fTemp1 * fTemp35)))))) + (fSlow116 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp36)):(iSlow2?(fSlow4 * (fTemp3 * fTemp36)):(fSlow4 * (fTemp1 * fTemp36)))))) + (fSlow120 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp37)):(iSlow2?(fSlow4 * (fTemp3 * fTemp37)):(fSlow4 * (fTemp1 * fTemp37))))))) + ((fSlow122 * (((fSlow124 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp38)):(iSlow2?(fSlow4 * (fTemp3 * fTemp38)):(fSlow4 * (fTemp1 * fTemp38))))) + (fSlow128 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp39)):(iSlow2?(fSlow4 * (fTemp3 * fTemp39)):(fSlow4 * (fTemp1 * fTemp39)))))) + (fSlow130 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp40)):(iSlow2?(fSlow4 * (fTemp3 * fTemp40)):(fSlow4 * (fTemp1 * fTemp40))))))) + ((fSlow132 * (((((((fSlow134 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp41)):(iSlow2?(fSlow4 * (fTemp3 * fTemp41)):(fSlow4 * (fTemp1 * fTemp41))))) + (fSlow136 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp42)):(iSlow2?(fSlow4 * (fTemp3 * fTemp42)):(fSlow4 * (fTemp1 * fTemp42)))))) + (fSlow138 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp43)):(iSlow2?(fSlow4 * (fTemp3 * fTemp43)):(fSlow4 * (fTemp1 * fTemp43)))))) + (fSlow141 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp44)):(iSlow2?(fSlow4 * (fTemp3 * fTemp44)):(fSlow4 * (fTemp1 * fTemp44)))))) + (fSlow143 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp45)):(iSlow2?(fSlow4 * (fTemp3 * fTemp45)):(fSlow4 * (fTemp1 * fTemp45)))))) + (fSlow146 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp46)):(iSlow2?(fSlow4 * (fTemp3 * fTemp46)):(fSlow4 * (fTemp1 * fTemp46)))))) + (fSlow148 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp47)):(iSlow2?(fSlow4 * (fTemp3 * fTemp47)):(fSlow4 * (fTemp1 * fTemp47))))))) + ((fSlow150 * (((((((((((fConst93 * ((fSlow151 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp48)):(iSlow2?(fSlow4 * (fTemp3 * fTemp48)):(fSlow4 * (fTemp1 * fTemp48))))) + (fSlow152 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp49)):(iSlow2?(fSlow4 * (fTemp3 * fTemp49)):(fSlow4 * (fTemp1 * fTemp49))))))) + (fSlow154 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp50)):(iSlow2?(fSlow4 * (fTemp3 * fTemp50)):(fSlow4 * (fTemp1 * fTemp50)))))) + (fSlow156 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp51)):(iSlow2?(fSlow4 * (fTemp3 * fTemp51)):(fSlow4 * (fTemp1 * fTemp51)))))) + (fSlow159 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp52)):(iSlow2?(fSlow4 * (fTemp3 * fTemp52)):(fSlow4 * (fTemp1 * fTemp52)))))) + (fSlow161 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp53)):(iSlow2?(fSlow4 * (fTemp3 * fTemp53)):(fSlow4 * (fTemp1 * fTemp53)))))) + (fSlow164 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp54)):(iSlow2?(fSlow4 * (fTemp3 * fTemp54)):(fSlow4 * (fTemp1 * fTemp54)))))) + (fSlow166 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp55)):(iSlow2?(fSlow4 * (fTemp3 * fTemp55)):(fSlow4 * (fTemp1 * fTemp55)))))) + (fSlow169 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp56)):(iSlow2?(fSlow4 * (fTemp3 * fTemp56)):(fSlow4 * (fTemp1 * fTemp56)))))) + (fSlow171 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp57)):(iSlow2?(fSlow4 * (fTemp3 * fTemp57)):(fSlow4 * (fTemp1 * fTemp57)))))) + (fSlow174 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp58)):(iSlow2?(fSlow4 * (fTemp3 * fTemp58)):(fSlow4 * (fTemp1 * fTemp58)))))) + (fSlow176 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp59)):(iSlow2?(fSlow4 * (fTemp3 * fTemp59)):(fSlow4 * (fTemp1 * fTemp59))))))) + ((fSlow178 * (((((((((((((((fConst106 * ((fSlow179 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp60)):(iSlow2?(fSlow4 * (fTemp3 * fTemp60)):(fSlow4 * (fTemp1 * fTemp60))))) + (fSlow180 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp61)):(iSlow2?(fSlow4 * (fTemp3 * fTemp61)):(fSlow4 * (fTemp1 * fTemp61))))))) + (fSlow182 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp62)):(iSlow2?(fSlow4 * (fTemp3 * fTemp62)):(fSlow4 * (fTemp1 * fTemp62)))))) + (fSlow184 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp63)):(iSlow2?(fSlow4 * (fTemp3 * fTemp63)):(fSlow4 * (fTemp1 * fTemp63)))))) + (fSlow187 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp64)):(iSlow2?(fSlow4 * (fTemp3 * fTemp64)):(fSlow4 * (fTemp1 * fTemp64)))))) + (fSlow189 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp65)):(iSlow2?(fSlow4 * (fTemp3 * fTemp65)):(fSlow4 * (fTemp1 * fTemp65)))))) + (fSlow192 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp66)):(iSlow2?(fSlow4 * (fTemp3 * fTemp66)):(fSlow4 * (fTemp1 * fTemp66)))))) + (fSlow194 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp67)):(iSlow2?(fSlow4 * (fTemp3 * fTemp67)):(fSlow4 * (fTemp1 * fTemp67)))))) + (fSlow197 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp68)):(iSlow2?(fSlow4 * (fTemp3 * fTemp68)):(fSlow4 * (fTemp1 * fTemp68)))))) + (fSlow199 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp69)):(iSlow2?(fSlow4 * (fTemp3 * fTemp69)):(fSlow4 * (fTemp1 * fTemp69)))))) + (fSlow202 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp70)):(iSlow2?(fSlow4 * (fTemp3 * fTemp70)):(fSlow4 * (fTemp1 * fTemp70)))))) + (fSlow204 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp71)):(iSlow2?(fSlow4 * (fTemp3 * fTemp71)):(fSlow4 * (fTemp1 * fTemp71)))))) + (fSlow207 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp72)):(iSlow2?(fSlow4 * (fTemp3 * fTemp72)):(fSlow4 * (fTemp1 * fTemp72)))))) + (fSlow209 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp73)):(iSlow2?(fSlow4 * (fTemp3 * fTemp73)):(fSlow4 * (fTemp1 * fTemp73)))))) + (fSlow212 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp74)):(iSlow2?(fSlow4 * (fTemp3 * fTemp74)):(fSlow4 * (fTemp1 * fTemp74)))))) + (fSlow214 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp75)):(iSlow2?(fSlow4 * (fTemp3 * fTemp75)):(fSlow4 * (fTemp1 * fTemp75))))))) + ((fSlow216 * (((((((((((((((((((fConst123 * ((fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp76)):(iSlow2?(fSlow4 * (fTemp3 * fTemp76)):(fSlow4 * (fTemp1 * fTemp76))))) + (fSlow14 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp77)):(iSlow2?(fSlow4 * (fTemp3 * fTemp77)):(fSlow4 * (fTemp1 * fTemp77))))))) + (fSlow217 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp78)):(iSlow2?(fSlow4 * (fTemp3 * fTemp78)):(fSlow4 * (fTemp1 * fTemp78)))))) + (fSlow218 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp79)):(iSlow2?(fSlow4 * (fTemp3 * fTemp79)):(fSlow4 * (fTemp1 * fTemp79)))))) + (fSlow220 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp80)):(iSlow2?(fSlow4 * (fTemp3 * fTemp80)):(fSlow4 * (fTemp1 * fTemp80)))))) + (fSlow222 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp81)):(iSlow2?(fSlow4 * (fTemp3 * fTemp81)):(fSlow4 * (fTemp1 * fTemp81)))))) + (fSlow225 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp82)):(iSlow2?(fSlow4 * (fTemp3 * fTemp82)):(fSlow4 * (fTemp1 * fTemp82)))))) + (fSlow227 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp83)):(iSlow2?(fSlow4 * (fTemp3 * fTemp83)):(fSlow4 * (fTemp1 * fTemp83)))))) + (fSlow229 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp84)):(iSlow2?(fSlow4 * (fTemp3 * fTemp84)):(fSlow4 * (fTemp1 * fTemp84)))))) + (fSlow231 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp85)):(iSlow2?(fSlow4 * (fTemp3 * fTemp85)):(fSlow4 * (fTemp1 * fTemp85)))))) + (fSlow234 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp86)):(iSlow2?(fSlow4 * (fTemp3 * fTemp86)):(fSlow4 * (fTemp1 * fTemp86)))))) + (fSlow236 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp87)):(iSlow2?(fSlow4 * (fTemp3 * fTemp87)):(fSlow4 * (fTemp1 * fTemp87)))))) + (fSlow238 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp88)):(iSlow2?(fSlow4 * (fTemp3 * fTemp88)):(fSlow4 * (fTemp1 * fTemp88)))))) + (fSlow240 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp89)):(iSlow2?(fSlow4 * (fTemp3 * fTemp89)):(fSlow4 * (fTemp1 * fTemp89)))))) + (fSlow243 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp90)):(iSlow2?(fSlow4 * (fTemp3 * fTemp90)):(fSlow4 * (fTemp1 * fTemp90)))))) + (fSlow245 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp91)):(iSlow2?(fSlow4 * (fTemp3 * fTemp91)):(fSlow4 * (fTemp1 * fTemp91)))))) + (fSlow247 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp92)):(iSlow2?(fSlow4 * (fTemp3 * fTemp92)):(fSlow4 * (fTemp1 * fTemp92)))))) + (fSlow249 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp93)):(iSlow2?(fSlow4 * (fTemp3 * fTemp93)):(fSlow4 * (fTemp1 * fTemp93)))))) + (fSlow252 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp94)):(iSlow2?(fSlow4 * (fTemp3 * fTemp94)):(fSlow4 * (fTemp1 * fTemp94)))))) + (fSlow254 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp95)):(iSlow2?(fSlow4 * (fTemp3 * fTemp95)):(fSlow4 * (fTemp1 * fTemp95))))))) + ((fSlow264 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp96)):(iSlow2?(fSlow4 * (fTemp3 * fTemp96)):(fSlow4 * (fTemp1 * fTemp96))))) + ((fSlow15 * (((((((((fSlow266 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp97)):(iSlow2?(fSlow4 * (fTemp3 * fTemp97)):(fSlow4 * (fTemp1 * fTemp97))))) + (fSlow268 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp98)):(iSlow2?(fSlow4 * (fTemp3 * fTemp98)):(fSlow4 * (fTemp1 * fTemp98)))))) + (fSlow270 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp99)):(iSlow2?(fSlow4 * (fTemp3 * fTemp99)):(fSlow4 * (fTemp1 * fTemp99)))))) + (fSlow272 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp100)):(iSlow2?(fSlow4 * (fTemp3 * fTemp100)):(fSlow4 * (fTemp1 * fTemp100)))))) + (fSlow274 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp101)):(iSlow2?(fSlow4 * (fTemp3 * fTemp101)):(fSlow4 * (fTemp1 * fTemp101)))))) + (fSlow276 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp102)):(iSlow2?(fSlow4 * (fTemp3 * fTemp102)):(fSlow4 * (fTemp1 * fTemp102)))))) + (fSlow279 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp103)):(iSlow2?(fSlow4 * (fTemp3 * fTemp103)):(fSlow4 * (fTemp1 * fTemp103)))))) + (fSlow281 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp104)):(iSlow2?(fSlow4 * (fTemp3 * fTemp104)):(fSlow4 * (fTemp1 * fTemp104)))))) + (fSlow283 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp105)):(iSlow2?(fSlow4 * (fTemp3 * fTemp105)):(fSlow4 * (fTemp1 * fTemp105))))))) + ((((((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow284 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp106)):(iSlow2?(fSlow4 * (fTemp3 * fTemp106)):(fSlow4 * (fTemp1 * fTemp106)))))) + (fSlow285 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp107)):(iSlow2?(fSlow4 * (fTemp3 * fTemp107)):(fSlow4 * (fTemp1 * fTemp107)))))) + (fSlow286 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp108)):(iSlow2?(fSlow4 * (fTemp3 * fTemp108)):(fSlow4 * (fTemp1 * fTemp108)))))) + (fSlow287 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp109)):(iSlow2?(fSlow4 * (fTemp3 * fTemp109)):(fSlow4 * (fTemp1 * fTemp109)))))) + (fSlow10 * (((((((((((((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp110)):(iSlow2?(fSlow4 * (fTemp3 * fTemp110)):(fSlow4 * (fTemp1 * fTemp110))))) + (fSlow288 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp111)):(iSlow2?(fSlow4 * (fTemp3 * fTemp111)):(fSlow4 * (fTemp1 * fTemp111)))))) + (fSlow290 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp112)):(iSlow2?(fSlow4 * (fTemp3 * fTemp112)):(fSlow4 * (fTemp1 * fTemp112)))))) + (fSlow291 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp113)):(iSlow2?(fSlow4 * (fTemp3 * fTemp113)):(fSlow4 * (fTemp1 * fTemp113)))))) + (fSlow293 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp114)):(iSlow2?(fSlow4 * (fTemp3 * fTemp114)):(fSlow4 * (fTemp1 * fTemp114)))))) + (fSlow295 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp115)):(iSlow2?(fSlow4 * (fTemp3 * fTemp115)):(fSlow4 * (fTemp1 * fTemp115)))))) + (fSlow296 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp116)):(iSlow2?(fSlow4 * (fTemp3 * fTemp116)):(fSlow4 * (fTemp1 * fTemp116)))))) + (fSlow298 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp117)):(iSlow2?(fSlow4 * (fTemp3 * fTemp117)):(fSlow4 * (fTemp1 * fTemp117)))))) + (fSlow300 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp118)):(iSlow2?(fSlow4 * (fTemp3 * fTemp118)):(fSlow4 * (fTemp1 * fTemp118)))))) + (fSlow302 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp119)):(iSlow2?(fSlow4 * (fTemp3 * fTemp119)):(fSlow4 * (fTemp1 * fTemp119)))))) + (fSlow303 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp120)):(iSlow2?(fSlow4 * (fTemp3 * fTemp120)):(fSlow4 * (fTemp1 * fTemp120)))))) + (fSlow305 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp121)):(iSlow2?(fSlow4 * (fTemp3 * fTemp121)):(fSlow4 * (fTemp1 * fTemp121)))))) + (fSlow307 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp122)):(iSlow2?(fSlow4 * (fTemp3 * fTemp122)):(fSlow4 * (fTemp1 * fTemp122)))))))))))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp123))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp76):(iSlow2?(fSlow4 * (fRec1[0] * fTemp76)):(fSlow4 * (fRec0[0] * fTemp76)))) + (fSlow308 * fTemp123))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp110):(iSlow2?(fSlow4 * (fRec1[0] * fTemp110)):(fSlow4 * (fRec0[0] * fTemp110)))) + (fSlow309 * fTemp123))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp77):(iSlow2?(fSlow4 * (fRec1[0] * fTemp77)):(fSlow4 * (fRec0[0] * fTemp77)))) + (fSlow310 * fTemp123))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow311 * fTemp123))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp78):(iSlow2?(fSlow4 * (fRec1[0] * fTemp78)):(fSlow4 * (fRec0[0] * fTemp78)))) + (fSlow312 * fTemp123))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp106):(iSlow2?(fSlow4 * (fRec1[0] * fTemp106)):(fSlow4 * (fRec0[0] * fTemp106)))) + (fSlow313 * fTemp123))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp79):(iSlow2?(fSlow4 * (fRec1[0] * fTemp79)):(fSlow4 * (fRec0[0] * fTemp79)))) + (fSlow314 * fTemp123))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow315 * fTemp123))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp60):(iSlow2?(fSlow4 * (fRec1[0] * fTemp60)):(fSlow4 * (fRec0[0] * fTemp60)))) + (fSlow316 * fTemp123))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow317 * fTemp123))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp80):(iSlow2?(fSlow4 * (fRec1[0] * fTemp80)):(fSlow4 * (fRec0[0] * fTemp80)))) + (fSlow318 * fTemp123))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp111):(iSlow2?(fSlow4 * (fRec1[0] * fTemp111)):(fSlow4 * (fRec0[0] * fTemp111)))) + (fSlow319 * fTemp123))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp81):(iSlow2?(fSlow4 * (fRec1[0] * fTemp81)):(fSlow4 * (fRec0[0] * fTemp81)))) + (fSlow320 * fTemp123))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow321 * fTemp123))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp61):(iSlow2?(fSlow4 * (fRec1[0] * fTemp61)):(fSlow4 * (fRec0[0] * fTemp61)))) + (fSlow322 * fTemp123))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow323 * fTemp123))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp62):(iSlow2?(fSlow4 * (fRec1[0] * fTemp62)):(fSlow4 * (fRec0[0] * fTemp62)))) + (fSlow324 * fTemp123))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow325 * fTemp123))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp82):(iSlow2?(fSlow4 * (fRec1[0] * fTemp82)):(fSlow4 * (fRec0[0] * fTemp82)))) + (fSlow326 * fTemp123))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp107):(iSlow2?(fSlow4 * (fRec1[0] * fTemp107)):(fSlow4 * (fRec0[0] * fTemp107)))) + (fSlow327 * fTemp123))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp83):(iSlow2?(fSlow4 * (fRec1[0] * fTemp83)):(fSlow4 * (fRec0[0] * fTemp83)))) + (fSlow328 * fTemp123))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow329 * fTemp123))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp63):(iSlow2?(fSlow4 * (fRec1[0] * fTemp63)):(fSlow4 * (fRec0[0] * fTemp63)))) + (fSlow330 * fTemp123))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow331 * fTemp123))); + output25[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp48):(iSlow2?(fSlow4 * (fRec1[0] * fTemp48)):(fSlow4 * (fRec0[0] * fTemp48)))) + (fSlow332 * fTemp123))); + output26[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp112):(iSlow2?(fSlow4 * (fRec1[0] * fTemp112)):(fSlow4 * (fRec0[0] * fTemp112)))) + (fSlow333 * fTemp123))); + output27[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp64):(iSlow2?(fSlow4 * (fRec1[0] * fTemp64)):(fSlow4 * (fRec0[0] * fTemp64)))) + (fSlow334 * fTemp123))); + output28[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow335 * fTemp123))); + output29[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp84):(iSlow2?(fSlow4 * (fRec1[0] * fTemp84)):(fSlow4 * (fRec0[0] * fTemp84)))) + (fSlow336 * fTemp123))); + output30[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp113):(iSlow2?(fSlow4 * (fRec1[0] * fTemp113)):(fSlow4 * (fRec0[0] * fTemp113)))) + (fSlow337 * fTemp123))); + output31[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp85):(iSlow2?(fSlow4 * (fRec1[0] * fTemp85)):(fSlow4 * (fRec0[0] * fTemp85)))) + (fSlow338 * fTemp123))); + output32[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow339 * fTemp123))); + output33[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp65):(iSlow2?(fSlow4 * (fRec1[0] * fTemp65)):(fSlow4 * (fRec0[0] * fTemp65)))) + (fSlow340 * fTemp123))); + output34[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp114):(iSlow2?(fSlow4 * (fRec1[0] * fTemp114)):(fSlow4 * (fRec0[0] * fTemp114)))) + (fSlow341 * fTemp123))); + output35[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp49):(iSlow2?(fSlow4 * (fRec1[0] * fTemp49)):(fSlow4 * (fRec0[0] * fTemp49)))) + (fSlow342 * fTemp123))); + output36[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow343 * fTemp123))); + output37[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp50):(iSlow2?(fSlow4 * (fRec1[0] * fTemp50)):(fSlow4 * (fRec0[0] * fTemp50)))) + (fSlow344 * fTemp123))); + output38[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow345 * fTemp123))); + output39[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp66):(iSlow2?(fSlow4 * (fRec1[0] * fTemp66)):(fSlow4 * (fRec0[0] * fTemp66)))) + (fSlow346 * fTemp123))); + output40[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow347 * fTemp123))); + output41[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp86):(iSlow2?(fSlow4 * (fRec1[0] * fTemp86)):(fSlow4 * (fRec0[0] * fTemp86)))) + (fSlow348 * fTemp123))); + output42[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp108):(iSlow2?(fSlow4 * (fRec1[0] * fTemp108)):(fSlow4 * (fRec0[0] * fTemp108)))) + (fSlow349 * fTemp123))); + output43[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp87):(iSlow2?(fSlow4 * (fRec1[0] * fTemp87)):(fSlow4 * (fRec0[0] * fTemp87)))) + (fSlow350 * fTemp123))); + output44[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow351 * fTemp123))); + output45[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp67):(iSlow2?(fSlow4 * (fRec1[0] * fTemp67)):(fSlow4 * (fRec0[0] * fTemp67)))) + (fSlow352 * fTemp123))); + output46[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow353 * fTemp123))); + output47[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp51):(iSlow2?(fSlow4 * (fRec1[0] * fTemp51)):(fSlow4 * (fRec0[0] * fTemp51)))) + (fSlow354 * fTemp123))); + output48[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow355 * fTemp123))); + output49[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp97):(iSlow2?(fSlow4 * (fRec1[0] * fTemp97)):(fSlow4 * (fRec0[0] * fTemp97)))) + (fSlow356 * fTemp123))); + output50[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp115):(iSlow2?(fSlow4 * (fRec1[0] * fTemp115)):(fSlow4 * (fRec0[0] * fTemp115)))) + (fSlow357 * fTemp123))); + output51[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp52):(iSlow2?(fSlow4 * (fRec1[0] * fTemp52)):(fSlow4 * (fRec0[0] * fTemp52)))) + (fSlow358 * fTemp123))); + output52[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow359 * fTemp123))); + output53[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp68):(iSlow2?(fSlow4 * (fRec1[0] * fTemp68)):(fSlow4 * (fRec0[0] * fTemp68)))) + (fSlow360 * fTemp123))); + output54[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp98):(iSlow2?(fSlow4 * (fRec1[0] * fTemp98)):(fSlow4 * (fRec0[0] * fTemp98)))) + (fSlow361 * fTemp123))); + output55[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp88):(iSlow2?(fSlow4 * (fRec1[0] * fTemp88)):(fSlow4 * (fRec0[0] * fTemp88)))) + (fSlow362 * fTemp123))); + output56[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp116):(iSlow2?(fSlow4 * (fRec1[0] * fTemp116)):(fSlow4 * (fRec0[0] * fTemp116)))) + (fSlow363 * fTemp123))); + output57[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp89):(iSlow2?(fSlow4 * (fRec1[0] * fTemp89)):(fSlow4 * (fRec0[0] * fTemp89)))) + (fSlow364 * fTemp123))); + output58[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow365 * fTemp123))); + output59[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp69):(iSlow2?(fSlow4 * (fRec1[0] * fTemp69)):(fSlow4 * (fRec0[0] * fTemp69)))) + (fSlow366 * fTemp123))); + output60[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp117):(iSlow2?(fSlow4 * (fRec1[0] * fTemp117)):(fSlow4 * (fRec0[0] * fTemp117)))) + (fSlow367 * fTemp123))); + output61[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp53):(iSlow2?(fSlow4 * (fRec1[0] * fTemp53)):(fSlow4 * (fRec0[0] * fTemp53)))) + (fSlow368 * fTemp123))); + output62[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow369 * fTemp123))); + output63[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp41):(iSlow2?(fSlow4 * (fRec1[0] * fTemp41)):(fSlow4 * (fRec0[0] * fTemp41)))) + (fSlow370 * fTemp123))); + output64[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp99):(iSlow2?(fSlow4 * (fRec1[0] * fTemp99)):(fSlow4 * (fRec0[0] * fTemp99)))) + (fSlow371 * fTemp123))); + output65[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp42):(iSlow2?(fSlow4 * (fRec1[0] * fTemp42)):(fSlow4 * (fRec0[0] * fTemp42)))) + (fSlow372 * fTemp123))); + output66[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow373 * fTemp123))); + output67[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp54):(iSlow2?(fSlow4 * (fRec1[0] * fTemp54)):(fSlow4 * (fRec0[0] * fTemp54)))) + (fSlow374 * fTemp123))); + output68[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp100):(iSlow2?(fSlow4 * (fRec1[0] * fTemp100)):(fSlow4 * (fRec0[0] * fTemp100)))) + (fSlow375 * fTemp123))); + output69[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp70):(iSlow2?(fSlow4 * (fRec1[0] * fTemp70)):(fSlow4 * (fRec0[0] * fTemp70)))) + (fSlow376 * fTemp123))); + output70[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow377 * fTemp123))); + output71[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp90):(iSlow2?(fSlow4 * (fRec1[0] * fTemp90)):(fSlow4 * (fRec0[0] * fTemp90)))) + (fSlow378 * fTemp123))); + output72[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp109):(iSlow2?(fSlow4 * (fRec1[0] * fTemp109)):(fSlow4 * (fRec0[0] * fTemp109)))) + (fSlow379 * fTemp123))); + output73[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp91):(iSlow2?(fSlow4 * (fRec1[0] * fTemp91)):(fSlow4 * (fRec0[0] * fTemp91)))) + (fSlow380 * fTemp123))); + output74[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow381 * fTemp123))); + output75[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp71):(iSlow2?(fSlow4 * (fRec1[0] * fTemp71)):(fSlow4 * (fRec0[0] * fTemp71)))) + (fSlow382 * fTemp123))); + output76[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow383 * fTemp123))); + output77[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp55):(iSlow2?(fSlow4 * (fRec1[0] * fTemp55)):(fSlow4 * (fRec0[0] * fTemp55)))) + (fSlow384 * fTemp123))); + output78[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow385 * fTemp123))); + output79[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp43):(iSlow2?(fSlow4 * (fRec1[0] * fTemp43)):(fSlow4 * (fRec0[0] * fTemp43)))) + (fSlow386 * fTemp123))); + output80[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp27):(iSlow2?(fSlow4 * (fRec1[0] * fTemp27)):(fSlow4 * (fRec0[0] * fTemp27)))) + (fSlow387 * fTemp123))); + output81[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp101):(iSlow2?(fSlow4 * (fRec1[0] * fTemp101)):(fSlow4 * (fRec0[0] * fTemp101)))) + (fSlow388 * fTemp123))); + output82[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp118):(iSlow2?(fSlow4 * (fRec1[0] * fTemp118)):(fSlow4 * (fRec0[0] * fTemp118)))) + (fSlow389 * fTemp123))); + output83[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp44):(iSlow2?(fSlow4 * (fRec1[0] * fTemp44)):(fSlow4 * (fRec0[0] * fTemp44)))) + (fSlow390 * fTemp123))); + output84[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp28):(iSlow2?(fSlow4 * (fRec1[0] * fTemp28)):(fSlow4 * (fRec0[0] * fTemp28)))) + (fSlow391 * fTemp123))); + output85[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp56):(iSlow2?(fSlow4 * (fRec1[0] * fTemp56)):(fSlow4 * (fRec0[0] * fTemp56)))) + (fSlow392 * fTemp123))); + output86[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp102):(iSlow2?(fSlow4 * (fRec1[0] * fTemp102)):(fSlow4 * (fRec0[0] * fTemp102)))) + (fSlow393 * fTemp123))); + output87[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp72):(iSlow2?(fSlow4 * (fRec1[0] * fTemp72)):(fSlow4 * (fRec0[0] * fTemp72)))) + (fSlow394 * fTemp123))); + output88[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp119):(iSlow2?(fSlow4 * (fRec1[0] * fTemp119)):(fSlow4 * (fRec0[0] * fTemp119)))) + (fSlow395 * fTemp123))); + output89[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp92):(iSlow2?(fSlow4 * (fRec1[0] * fTemp92)):(fSlow4 * (fRec0[0] * fTemp92)))) + (fSlow396 * fTemp123))); + output90[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp120):(iSlow2?(fSlow4 * (fRec1[0] * fTemp120)):(fSlow4 * (fRec0[0] * fTemp120)))) + (fSlow397 * fTemp123))); + output91[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp93):(iSlow2?(fSlow4 * (fRec1[0] * fTemp93)):(fSlow4 * (fRec0[0] * fTemp93)))) + (fSlow398 * fTemp123))); + output92[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp29):(iSlow2?(fSlow4 * (fRec1[0] * fTemp29)):(fSlow4 * (fRec0[0] * fTemp29)))) + (fSlow399 * fTemp123))); + output93[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp73):(iSlow2?(fSlow4 * (fRec1[0] * fTemp73)):(fSlow4 * (fRec0[0] * fTemp73)))) + (fSlow400 * fTemp123))); + output94[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp121):(iSlow2?(fSlow4 * (fRec1[0] * fTemp121)):(fSlow4 * (fRec0[0] * fTemp121)))) + (fSlow401 * fTemp123))); + output95[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp57):(iSlow2?(fSlow4 * (fRec1[0] * fTemp57)):(fSlow4 * (fRec0[0] * fTemp57)))) + (fSlow402 * fTemp123))); + output96[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp30):(iSlow2?(fSlow4 * (fRec1[0] * fTemp30)):(fSlow4 * (fRec0[0] * fTemp30)))) + (fSlow403 * fTemp123))); + output97[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp45):(iSlow2?(fSlow4 * (fRec1[0] * fTemp45)):(fSlow4 * (fRec0[0] * fTemp45)))) + (fSlow404 * fTemp123))); + output98[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp122):(iSlow2?(fSlow4 * (fRec1[0] * fTemp122)):(fSlow4 * (fRec0[0] * fTemp122)))) + (fSlow405 * fTemp123))); + output99[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp38):(iSlow2?(fSlow4 * (fRec1[0] * fTemp38)):(fSlow4 * (fRec0[0] * fTemp38)))) + (fSlow406 * fTemp123))); + output100[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp103):(iSlow2?(fSlow4 * (fRec1[0] * fTemp103)):(fSlow4 * (fRec0[0] * fTemp103)))) + (fSlow407 * fTemp123))); + output101[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp39):(iSlow2?(fSlow4 * (fRec1[0] * fTemp39)):(fSlow4 * (fRec0[0] * fTemp39)))) + (fSlow408 * fTemp123))); + output102[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp31):(iSlow2?(fSlow4 * (fRec1[0] * fTemp31)):(fSlow4 * (fRec0[0] * fTemp31)))) + (fSlow409 * fTemp123))); + output103[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp46):(iSlow2?(fSlow4 * (fRec1[0] * fTemp46)):(fSlow4 * (fRec0[0] * fTemp46)))) + (fSlow410 * fTemp123))); + output104[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp104):(iSlow2?(fSlow4 * (fRec1[0] * fTemp104)):(fSlow4 * (fRec0[0] * fTemp104)))) + (fSlow411 * fTemp123))); + output105[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp58):(iSlow2?(fSlow4 * (fRec1[0] * fTemp58)):(fSlow4 * (fRec0[0] * fTemp58)))) + (fSlow412 * fTemp123))); + output106[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp32):(iSlow2?(fSlow4 * (fRec1[0] * fTemp32)):(fSlow4 * (fRec0[0] * fTemp32)))) + (fSlow413 * fTemp123))); + output107[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp74):(iSlow2?(fSlow4 * (fRec1[0] * fTemp74)):(fSlow4 * (fRec0[0] * fTemp74)))) + (fSlow414 * fTemp123))); + output108[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp105):(iSlow2?(fSlow4 * (fRec1[0] * fTemp105)):(fSlow4 * (fRec0[0] * fTemp105)))) + (fSlow415 * fTemp123))); + output109[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp94):(iSlow2?(fSlow4 * (fRec1[0] * fTemp94)):(fSlow4 * (fRec0[0] * fTemp94)))) + (fSlow416 * fTemp123))); + output110[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp96):(iSlow2?(fSlow4 * (fRec1[0] * fTemp96)):(fSlow4 * (fRec0[0] * fTemp96)))) + (fSlow417 * fTemp123))); + output111[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp95):(iSlow2?(fSlow4 * (fRec1[0] * fTemp95)):(fSlow4 * (fRec0[0] * fTemp95)))) + (fSlow418 * fTemp123))); + output112[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp33):(iSlow2?(fSlow4 * (fRec1[0] * fTemp33)):(fSlow4 * (fRec0[0] * fTemp33)))) + (fSlow419 * fTemp123))); + output113[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp75):(iSlow2?(fSlow4 * (fRec1[0] * fTemp75)):(fSlow4 * (fRec0[0] * fTemp75)))) + (fSlow420 * fTemp123))); + output114[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp34):(iSlow2?(fSlow4 * (fRec1[0] * fTemp34)):(fSlow4 * (fRec0[0] * fTemp34)))) + (fSlow421 * fTemp123))); + output115[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp59):(iSlow2?(fSlow4 * (fRec1[0] * fTemp59)):(fSlow4 * (fRec0[0] * fTemp59)))) + (fSlow422 * fTemp123))); + output116[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp35):(iSlow2?(fSlow4 * (fRec1[0] * fTemp35)):(fSlow4 * (fRec0[0] * fTemp35)))) + (fSlow423 * fTemp123))); + output117[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp47):(iSlow2?(fSlow4 * (fRec1[0] * fTemp47)):(fSlow4 * (fRec0[0] * fTemp47)))) + (fSlow424 * fTemp123))); + output118[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp36):(iSlow2?(fSlow4 * (fRec1[0] * fTemp36)):(fSlow4 * (fRec0[0] * fTemp36)))) + (fSlow425 * fTemp123))); + output119[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp40):(iSlow2?(fSlow4 * (fRec1[0] * fTemp40)):(fSlow4 * (fRec0[0] * fTemp40)))) + (fSlow426 * fTemp123))); + output120[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp37):(iSlow2?(fSlow4 * (fRec1[0] * fTemp37)):(fSlow4 * (fRec0[0] * fTemp37)))) + (fSlow427 * fTemp123))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA2.cpp b/source/HOAUGens/HOABeamDirac2HOA2.cpp new file mode 100644 index 0000000000..55cd772d23 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA2.cpp @@ -0,0 +1,1342 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA2" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + double fConst2; + double fConst3; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA2"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA2"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = (sqrt((5.0 * (fConst2 / double(tgamma(5.0))))) * double(tgamma(2.5))); + fConst4 = double(tgamma(1.5)); + fConst5 = sqrt((3.0 * (fConst2 / double(tgamma(3.0))))); + fConst6 = (1.5957691216057308 * fConst5); + fConst7 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst8 = (4.7873073648171927 * fConst7); + fConst9 = (0.12698727186848197 * (fConst5 * fConst4)); + fConst10 = (0.50794908747392786 * fConst3); + fConst11 = (0.3809618156054459 * (fConst7 * fConst4)); + fConst12 = (0.25397454373696393 * fConst3); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = (fConst3 * fSlow12); + double fSlow14 = double(fVslider2); + double fSlow15 = cos(fSlow14); + double fSlow16 = sin(fSlow14); + double fSlow17 = (6.3830764864229232 * (fSlow15 * fSlow16)); + double fSlow18 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow19 = ((2.0 * mydsp_faustpower2_f(fSlow15)) + -1.0); + double fSlow20 = (3.1915382432114616 * fSlow19); + double fSlow21 = pow(fSlow12, 0.5); + double fSlow22 = (fConst4 * fSlow21); + double fSlow23 = (fConst8 * (fSlow10 * fSlow16)); + double fSlow24 = (fSlow15 * fSlow10); + double fSlow25 = (fConst8 * fSlow24); + double fSlow26 = (1.7320508075688772 * fSlow10); + double fSlow27 = ((3.0 * fSlow11) + -1.0); + double fSlow28 = (1.1180339887498949 * fSlow27); + double fSlow29 = (fConst9 * (fSlow21 * fSlow16)); + double fSlow30 = (0.13783222385544802 * fSlow10); + double fSlow31 = (fConst9 * (fSlow15 * fSlow21)); + double fSlow32 = (fConst10 * ((fSlow15 * fSlow12) * fSlow16)); + double fSlow33 = (fConst11 * ((fSlow10 * fSlow21) * fSlow16)); + double fSlow34 = (0.088970317927147144 * fSlow27); + double fSlow35 = (fConst11 * (fSlow24 * fSlow21)); + double fSlow36 = (fConst12 * (fSlow19 * fSlow12)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow18 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input4[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input8[i]); + double fTemp5 = double(input1[i]); + double fTemp6 = double(input3[i]); + double fTemp7 = double(input5[i]); + double fTemp8 = double(input7[i]); + double fTemp9 = double(input2[i]); + double fTemp10 = double(input6[i]); + double fTemp11 = ((fSlow13 * ((fSlow17 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + ((fSlow22 * (((fConst6 * ((fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5))))) + (fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow23 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow25 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8))))))) + (((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow26 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow28 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10)))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp11))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow29 * fTemp11))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow30 * fTemp11))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow31 * fTemp11))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow32 * fTemp11))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow33 * fTemp11))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow34 * fTemp11))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow35 * fTemp11))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow36 * fTemp11))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA3.cpp b/source/HOAUGens/HOABeamDirac2HOA3.cpp new file mode 100644 index 0000000000..ccb1c6aa62 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA3.cpp @@ -0,0 +1,1481 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA3" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA3"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA3"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = (sqrt((7.0 * (fConst2 / double(tgamma(7.0))))) * double(tgamma(3.5))); + fConst4 = (6.3830764864229232 * fConst3); + fConst5 = double(tgamma(2.5)); + fConst6 = double(tgamma(5.0)); + fConst7 = sqrt((5.0 * (fConst2 / fConst6))); + fConst8 = double(tgamma(2.0)); + fConst9 = sqrt((7.0 * (fConst8 / double(tgamma(6.0))))); + fConst10 = (31.915382432114615 * fConst9); + fConst11 = (15.957691216057308 * fConst9); + fConst12 = double(tgamma(1.5)); + fConst13 = double(tgamma(3.0)); + fConst14 = sqrt((3.0 * (fConst2 / fConst13))); + fConst15 = (1.5957691216057308 * fConst14); + fConst16 = sqrt((5.0 * (fConst8 / double(tgamma(4.0))))); + fConst17 = (4.7873073648171927 * fConst16); + fConst18 = sqrt((7.0 * (fConst13 / fConst6))); + fConst19 = (0.70710678118654757 * fConst18); + fConst20 = (0.12698727186848197 * (fConst14 * fConst12)); + fConst21 = (fConst7 * fConst5); + fConst22 = (0.50794908747392786 * fConst21); + fConst23 = (0.3809618156054459 * (fConst16 * fConst12)); + fConst24 = (0.25397454373696393 * fConst21); + fConst25 = (0.50794908747392786 * fConst3); + fConst26 = (fConst9 * fConst5); + fConst27 = (2.5397454373696391 * fConst26); + fConst28 = (0.056269769759819135 * (fConst18 * fConst12)); + fConst29 = (1.2698727186848195 * fConst26); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = pow(fSlow12, 1.5); + double fSlow14 = (fConst4 * fSlow13); + double fSlow15 = double(fVslider2); + double fSlow16 = cos(fSlow15); + double fSlow17 = mydsp_faustpower2_f(fSlow16); + double fSlow18 = ((4.0 * fSlow17) + -1.0); + double fSlow19 = sin(fSlow15); + double fSlow20 = (fSlow18 * fSlow19); + double fSlow21 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow22 = ((2.0 * fSlow17) + -1.0); + double fSlow23 = (((2.0 * fSlow22) + -1.0) * fSlow16); + double fSlow24 = (fConst5 * fSlow12); + double fSlow25 = (6.3830764864229232 * (fSlow16 * fSlow19)); + double fSlow26 = (3.1915382432114616 * fSlow22); + double fSlow27 = (fSlow16 * fSlow10); + double fSlow28 = (fConst10 * (fSlow27 * fSlow19)); + double fSlow29 = (fSlow22 * fSlow10); + double fSlow30 = (fConst11 * fSlow29); + double fSlow31 = pow(fSlow12, 0.5); + double fSlow32 = (fConst12 * fSlow31); + double fSlow33 = (fConst17 * (fSlow10 * fSlow19)); + double fSlow34 = (fConst17 * fSlow27); + double fSlow35 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow36 = (fConst19 * (fSlow35 * fSlow19)); + double fSlow37 = (fSlow35 * fSlow16); + double fSlow38 = (fConst19 * fSlow37); + double fSlow39 = ((3.0 * fSlow11) + -1.0); + double fSlow40 = ((2.5 * fSlow39) + -2.0); + double fSlow41 = (0.88191710368819687 * fSlow40); + double fSlow42 = (1.1180339887498949 * fSlow39); + double fSlow43 = (fConst20 * (fSlow31 * fSlow19)); + double fSlow44 = (0.13783222385544802 * fSlow10); + double fSlow45 = (fConst20 * (fSlow16 * fSlow31)); + double fSlow46 = (fConst22 * ((fSlow16 * fSlow12) * fSlow19)); + double fSlow47 = (fConst23 * ((fSlow10 * fSlow31) * fSlow19)); + double fSlow48 = (0.088970317927147144 * fSlow39); + double fSlow49 = (fConst23 * (fSlow27 * fSlow31)); + double fSlow50 = (fConst24 * (fSlow22 * fSlow12)); + double fSlow51 = (fConst25 * ((fSlow18 * fSlow13) * fSlow19)); + double fSlow52 = (fConst27 * ((fSlow27 * fSlow12) * fSlow19)); + double fSlow53 = (fConst28 * ((fSlow35 * fSlow31) * fSlow19)); + double fSlow54 = (0.070180733224632072 * (fSlow40 * fSlow10)); + double fSlow55 = (fConst28 * (fSlow37 * fSlow31)); + double fSlow56 = (fConst29 * (fSlow29 * fSlow12)); + double fSlow57 = (fConst25 * (fSlow23 * fSlow13)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow21 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input9[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input15[i]); + double fTemp5 = double(input4[i]); + double fTemp6 = double(input8[i]); + double fTemp7 = double(input10[i]); + double fTemp8 = double(input14[i]); + double fTemp9 = double(input1[i]); + double fTemp10 = double(input3[i]); + double fTemp11 = double(input5[i]); + double fTemp12 = double(input7[i]); + double fTemp13 = double(input11[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input2[i]); + double fTemp16 = double(input12[i]); + double fTemp17 = double(input6[i]); + double fTemp18 = ((fSlow14 * ((fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow23 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + ((fSlow24 * (((fConst7 * ((fSlow25 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5))))) + (fSlow26 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow28 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow30 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8))))))) + ((fSlow32 * (((((fConst15 * ((fSlow19 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9))))) + (fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10))))))) + (fSlow33 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11)))))) + (fSlow34 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow36 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow38 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14))))))) + ((fSlow10 * ((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15))))) + (fSlow41 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16))))))) + ((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp18))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow43 * fTemp18))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow44 * fTemp18))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow45 * fTemp18))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow46 * fTemp18))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow47 * fTemp18))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow48 * fTemp18))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow49 * fTemp18))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow50 * fTemp18))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow51 * fTemp18))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow52 * fTemp18))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow53 * fTemp18))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow54 * fTemp18))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow55 * fTemp18))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow56 * fTemp18))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow57 * fTemp18))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA4.cpp b/source/HOAUGens/HOABeamDirac2HOA4.cpp new file mode 100644 index 0000000000..dc4b50f9b1 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA4.cpp @@ -0,0 +1,1659 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA4" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + FAUSTFLOAT fVslider1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA4"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA4"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(2.5)); + fConst3 = double(tgamma(1.0)); + fConst4 = double(tgamma(5.0)); + fConst5 = sqrt((5.0 * (fConst3 / fConst4))); + fConst6 = double(tgamma(2.0)); + fConst7 = double(tgamma(6.0)); + fConst8 = sqrt((7.0 * (fConst6 / fConst7))); + fConst9 = (31.915382432114615 * fConst8); + fConst10 = (15.957691216057308 * fConst8); + fConst11 = (sqrt((9.0 * (fConst3 / double(tgamma(9.0))))) * double(tgamma(4.5))); + fConst12 = (25.532305945691693 * fConst11); + fConst13 = double(tgamma(3.0)); + fConst14 = double(tgamma(7.0)); + fConst15 = (sqrt((9.0 * (fConst13 / fConst14))) * fConst2); + fConst16 = (1.4142135623730951 * fConst15); + fConst17 = (0.70710678118654757 * fConst15); + fConst18 = (12.766152972845846 * fConst11); + fConst19 = double(tgamma(3.5)); + fConst20 = sqrt((7.0 * (fConst3 / fConst14))); + fConst21 = (6.3830764864229232 * fConst20); + fConst22 = sqrt((9.0 * (fConst6 / double(tgamma(8.0))))); + fConst23 = (44.681535404960464 * fConst22); + fConst24 = double(tgamma(1.5)); + fConst25 = sqrt((3.0 * (fConst3 / fConst13))); + fConst26 = (1.5957691216057308 * fConst25); + fConst27 = double(tgamma(4.0)); + fConst28 = sqrt((5.0 * (fConst6 / fConst27))); + fConst29 = (4.7873073648171927 * fConst28); + fConst30 = sqrt((7.0 * (fConst13 / fConst4))); + fConst31 = (0.70710678118654757 * fConst30); + fConst32 = sqrt((9.0 * (fConst27 / fConst7))); + fConst33 = (0.47140452079103168 * fConst32); + fConst34 = (0.12698727186848197 * (fConst25 * fConst24)); + fConst35 = (fConst5 * fConst2); + fConst36 = (0.50794908747392786 * fConst35); + fConst37 = (0.3809618156054459 * (fConst28 * fConst24)); + fConst38 = (0.25397454373696393 * fConst35); + fConst39 = (0.50794908747392786 * (fConst20 * fConst19)); + fConst40 = (fConst8 * fConst2); + fConst41 = (2.5397454373696391 * fConst40); + fConst42 = (0.056269769759819135 * (fConst30 * fConst24)); + fConst43 = (1.2698727186848195 * fConst40); + fConst44 = (2.0317963498957115 * fConst11); + fConst45 = (3.5556436123174948 * (fConst22 * fConst19)); + fConst46 = (0.11253953951963827 * fConst15); + fConst47 = (0.037513179839879424 * (fConst32 * fConst24)); + fConst48 = (0.056269769759819135 * fConst15); + fConst49 = (1.0158981749478557 * fConst11); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = double(fVslider2); + double fSlow14 = cos(fSlow13); + double fSlow15 = sin(fSlow13); + double fSlow16 = (6.3830764864229232 * (fSlow14 * fSlow15)); + double fSlow17 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow18 = mydsp_faustpower2_f(fSlow14); + double fSlow19 = ((2.0 * fSlow18) + -1.0); + double fSlow20 = (3.1915382432114616 * fSlow19); + double fSlow21 = (fSlow14 * fSlow10); + double fSlow22 = (fConst9 * (fSlow21 * fSlow15)); + double fSlow23 = (fSlow19 * fSlow10); + double fSlow24 = (fConst10 * fSlow23); + double fSlow25 = ((4.0 * fSlow18) + -1.0); + double fSlow26 = ((fSlow25 + -1.0) * fSlow14); + double fSlow27 = (fConst12 * ((fSlow26 * fSlow12) * fSlow15)); + double fSlow28 = ((78.986541696685876 * fSlow11) + -11.283791670955125); + double fSlow29 = (fSlow28 * fSlow14); + double fSlow30 = (fConst16 * (fSlow29 * fSlow15)); + double fSlow31 = (fSlow19 * fSlow28); + double fSlow32 = (fConst17 * fSlow31); + double fSlow33 = ((2.0 * fSlow19) + -1.0); + double fSlow34 = (1.0 - (2.0 * ((1.0 - fSlow33) * fSlow18))); + double fSlow35 = (fConst18 * (fSlow34 * fSlow12)); + double fSlow36 = pow(fSlow12, 1.5); + double fSlow37 = (fConst19 * fSlow36); + double fSlow38 = (fSlow25 * fSlow15); + double fSlow39 = (fSlow33 * fSlow14); + double fSlow40 = (fSlow25 * fSlow10); + double fSlow41 = (fConst23 * (fSlow40 * fSlow15)); + double fSlow42 = (fSlow39 * fSlow10); + double fSlow43 = (fConst23 * fSlow42); + double fSlow44 = pow(fSlow12, 0.5); + double fSlow45 = (fConst24 * fSlow44); + double fSlow46 = (fConst29 * (fSlow10 * fSlow15)); + double fSlow47 = (fConst29 * fSlow21); + double fSlow48 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow49 = (fConst31 * (fSlow48 * fSlow15)); + double fSlow50 = (fSlow48 * fSlow14); + double fSlow51 = (fConst31 * fSlow50); + double fSlow52 = ((3.5 * fSlow48) + -13.540550005146152); + double fSlow53 = (fSlow52 * fSlow10); + double fSlow54 = (fConst33 * (fSlow53 * fSlow15)); + double fSlow55 = ((fSlow52 * fSlow14) * fSlow10); + double fSlow56 = (fConst33 * fSlow55); + double fSlow57 = ((3.0 * fSlow11) + -1.0); + double fSlow58 = ((2.5 * fSlow57) + -2.0); + double fSlow59 = (0.88191710368819687 * fSlow58); + double fSlow60 = (1.1180339887498949 * fSlow57); + double fSlow61 = ((2.333333333333333 * (fSlow58 * fSlow11)) - (1.5 * fSlow57)); + double fSlow62 = (0.75 * fSlow61); + double fSlow63 = (fConst34 * (fSlow44 * fSlow15)); + double fSlow64 = (0.13783222385544802 * fSlow10); + double fSlow65 = (fConst34 * (fSlow14 * fSlow44)); + double fSlow66 = (fConst36 * ((fSlow14 * fSlow12) * fSlow15)); + double fSlow67 = (fConst37 * ((fSlow10 * fSlow44) * fSlow15)); + double fSlow68 = (0.088970317927147144 * fSlow57); + double fSlow69 = (fConst37 * (fSlow21 * fSlow44)); + double fSlow70 = (fConst38 * (fSlow19 * fSlow12)); + double fSlow71 = (fConst39 * ((fSlow25 * fSlow36) * fSlow15)); + double fSlow72 = (fConst41 * ((fSlow21 * fSlow12) * fSlow15)); + double fSlow73 = (fConst42 * ((fSlow48 * fSlow44) * fSlow15)); + double fSlow74 = (0.070180733224632072 * (fSlow58 * fSlow10)); + double fSlow75 = (fConst42 * (fSlow50 * fSlow44)); + double fSlow76 = (fConst43 * (fSlow23 * fSlow12)); + double fSlow77 = (fConst39 * (fSlow39 * fSlow36)); + double fSlow78 = mydsp_faustpower2_f(fSlow12); + double fSlow79 = (fConst44 * ((fSlow26 * fSlow78) * fSlow15)); + double fSlow80 = (fConst45 * ((fSlow40 * fSlow36) * fSlow15)); + double fSlow81 = (fConst46 * ((fSlow29 * fSlow12) * fSlow15)); + double fSlow82 = (fConst47 * ((fSlow53 * fSlow44) * fSlow15)); + double fSlow83 = (0.059683103659460751 * fSlow61); + double fSlow84 = (fConst47 * (fSlow55 * fSlow44)); + double fSlow85 = (fConst48 * (fSlow31 * fSlow12)); + double fSlow86 = (fConst45 * (fSlow42 * fSlow36)); + double fSlow87 = (fConst49 * (fSlow34 * fSlow78)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow17 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input4[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input8[i]); + double fTemp5 = double(input10[i]); + double fTemp6 = double(input14[i]); + double fTemp7 = double(input16[i]); + double fTemp8 = double(input18[i]); + double fTemp9 = double(input22[i]); + double fTemp10 = double(input24[i]); + double fTemp11 = double(input9[i]); + double fTemp12 = double(input15[i]); + double fTemp13 = double(input17[i]); + double fTemp14 = double(input23[i]); + double fTemp15 = double(input1[i]); + double fTemp16 = double(input3[i]); + double fTemp17 = double(input5[i]); + double fTemp18 = double(input7[i]); + double fTemp19 = double(input11[i]); + double fTemp20 = double(input13[i]); + double fTemp21 = double(input19[i]); + double fTemp22 = double(input21[i]); + double fTemp23 = double(input2[i]); + double fTemp24 = double(input12[i]); + double fTemp25 = double(input6[i]); + double fTemp26 = double(input20[i]); + double fTemp27 = ((fSlow12 * (((((fConst2 * (((fConst5 * ((fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + (fSlow22 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5)))))) + (fSlow24 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow27 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow30 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow32 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow35 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10))))))) + ((fSlow37 * (((fConst21 * ((fSlow38 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11))))) + (fSlow39 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12))))))) + (fSlow41 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow43 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14))))))) + ((fSlow45 * (((((((fConst26 * ((fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15))))) + (fSlow14 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16))))))) + (fSlow46 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))) + (fSlow47 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18)))))) + (fSlow49 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19)))))) + (fSlow51 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20)))))) + (fSlow54 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21)))))) + (fSlow56 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22))))))) + (((fSlow10 * ((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23))))) + (fSlow59 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24))))))) + ((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow60 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25))))))) + (fSlow62 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26))))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp27))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow63 * fTemp27))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow64 * fTemp27))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow65 * fTemp27))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow66 * fTemp27))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow67 * fTemp27))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow68 * fTemp27))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow69 * fTemp27))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow70 * fTemp27))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow71 * fTemp27))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow72 * fTemp27))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow73 * fTemp27))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow74 * fTemp27))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow75 * fTemp27))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow76 * fTemp27))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow77 * fTemp27))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow79 * fTemp27))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow80 * fTemp27))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow81 * fTemp27))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow82 * fTemp27))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow83 * fTemp27))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow84 * fTemp27))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow85 * fTemp27))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow86 * fTemp27))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow87 * fTemp27))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA5.cpp b/source/HOAUGens/HOABeamDirac2HOA5.cpp new file mode 100644 index 0000000000..24bccd4452 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA5.cpp @@ -0,0 +1,1872 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA5" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA5"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA5"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 36; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = (sqrt((11.0 * (fConst2 / double(tgamma(11.0))))) * double(tgamma(5.5))); + fConst4 = (25.532305945691693 * fConst3); + fConst5 = double(tgamma(2.0)); + fConst6 = double(tgamma(4.5)); + fConst7 = (sqrt((11.0 * (fConst5 / double(tgamma(10.0))))) * fConst6); + fConst8 = (229.79075351122526 * fConst7); + fConst9 = (114.89537675561263 * fConst7); + fConst10 = double(tgamma(3.5)); + fConst11 = double(tgamma(7.0)); + fConst12 = sqrt((7.0 * (fConst2 / fConst11))); + fConst13 = (6.3830764864229232 * fConst12); + fConst14 = double(tgamma(8.0)); + fConst15 = sqrt((9.0 * (fConst5 / fConst14))); + fConst16 = (44.681535404960464 * fConst15); + fConst17 = double(tgamma(3.0)); + fConst18 = double(tgamma(9.0)); + fConst19 = sqrt((11.0 * (fConst17 / fConst18))); + fConst20 = (0.70710678118654757 * fConst19); + fConst21 = double(tgamma(2.5)); + fConst22 = double(tgamma(5.0)); + fConst23 = sqrt((5.0 * (fConst2 / fConst22))); + fConst24 = double(tgamma(6.0)); + fConst25 = sqrt((7.0 * (fConst5 / fConst24))); + fConst26 = (31.915382432114615 * fConst25); + fConst27 = (15.957691216057308 * fConst25); + fConst28 = (sqrt((9.0 * (fConst2 / fConst18))) * fConst6); + fConst29 = (25.532305945691693 * fConst28); + fConst30 = (sqrt((9.0 * (fConst17 / fConst11))) * fConst21); + fConst31 = (1.4142135623730951 * fConst30); + fConst32 = (0.70710678118654757 * fConst30); + fConst33 = (12.766152972845846 * fConst28); + fConst34 = double(tgamma(4.0)); + fConst35 = (sqrt((11.0 * (fConst34 / fConst14))) * fConst21); + fConst36 = (0.94280904158206336 * fConst35); + fConst37 = (0.47140452079103168 * fConst35); + fConst38 = double(tgamma(1.5)); + fConst39 = sqrt((3.0 * (fConst2 / fConst17))); + fConst40 = (1.5957691216057308 * fConst39); + fConst41 = sqrt((5.0 * (fConst5 / fConst34))); + fConst42 = (4.7873073648171927 * fConst41); + fConst43 = sqrt((7.0 * (fConst17 / fConst22))); + fConst44 = (0.70710678118654757 * fConst43); + fConst45 = sqrt((9.0 * (fConst34 / fConst24))); + fConst46 = (0.47140452079103168 * fConst45); + fConst47 = sqrt((11.0 * (fConst22 / fConst11))); + fConst48 = (0.35355339059327379 * fConst47); + fConst49 = (0.12698727186848197 * (fConst39 * fConst38)); + fConst50 = (fConst23 * fConst21); + fConst51 = (0.50794908747392786 * fConst50); + fConst52 = (0.3809618156054459 * (fConst41 * fConst38)); + fConst53 = (0.25397454373696393 * fConst50); + fConst54 = (0.50794908747392786 * (fConst12 * fConst10)); + fConst55 = (fConst25 * fConst21); + fConst56 = (2.5397454373696391 * fConst55); + fConst57 = (0.056269769759819135 * (fConst43 * fConst38)); + fConst58 = (1.2698727186848195 * fConst55); + fConst59 = (2.0317963498957115 * fConst28); + fConst60 = (3.5556436123174948 * (fConst15 * fConst10)); + fConst61 = (0.11253953951963827 * fConst30); + fConst62 = (0.037513179839879424 * (fConst45 * fConst38)); + fConst63 = (0.056269769759819135 * fConst30); + fConst64 = (1.0158981749478557 * fConst28); + fConst65 = (2.0317963498957115 * fConst3); + fConst66 = (18.286167149061402 * fConst7); + fConst67 = (0.056269769759819135 * (fConst19 * fConst10)); + fConst68 = (0.075026359679758847 * fConst35); + fConst69 = (0.028134884879909568 * (fConst47 * fConst38)); + fConst70 = (0.037513179839879424 * fConst35); + fConst71 = (9.1430835745307011 * fConst7); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = pow(fSlow12, 2.5); + double fSlow14 = (fConst4 * fSlow13); + double fSlow15 = double(fVslider2); + double fSlow16 = cos(fSlow15); + double fSlow17 = mydsp_faustpower2_f(fSlow16); + double fSlow18 = ((4.0 * fSlow17) + -1.0); + double fSlow19 = (fSlow18 + -1.0); + double fSlow20 = (1.0 - (4.0 * ((1.0 - fSlow19) * fSlow17))); + double fSlow21 = sin(fSlow15); + double fSlow22 = (fSlow20 * fSlow21); + double fSlow23 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow24 = ((2.0 * fSlow17) + -1.0); + double fSlow25 = ((2.0 * fSlow24) + -1.0); + double fSlow26 = (1.0 - (2.0 * ((1.0 - fSlow25) * fSlow17))); + double fSlow27 = (((2.0 * fSlow26) - fSlow25) * fSlow16); + double fSlow28 = ((3.0 * fSlow11) + -1.0); + double fSlow29 = ((2.5 * fSlow28) + -2.0); + double fSlow30 = (0.88191710368819687 * fSlow29); + double fSlow31 = (fSlow19 * fSlow16); + double fSlow32 = mydsp_faustpower2_f(fSlow12); + double fSlow33 = ((fSlow31 * fSlow32) * fSlow21); + double fSlow34 = (fConst8 * fSlow33); + double fSlow35 = ((2.333333333333333 * (fSlow29 * fSlow11)) - (1.5 * fSlow28)); + double fSlow36 = ((2.25 * fSlow35) - (1.3333333333333333 * fSlow29)); + double fSlow37 = (0.66332495807108005 * fSlow36); + double fSlow38 = (fSlow26 * fSlow32); + double fSlow39 = (fConst9 * fSlow38); + double fSlow40 = pow(fSlow12, 1.5); + double fSlow41 = (fConst10 * fSlow40); + double fSlow42 = (fSlow18 * fSlow21); + double fSlow43 = (fSlow25 * fSlow16); + double fSlow44 = (fSlow18 * fSlow10); + double fSlow45 = (fConst16 * (fSlow44 * fSlow21)); + double fSlow46 = (fSlow43 * fSlow10); + double fSlow47 = (fConst16 * fSlow46); + double fSlow48 = ((284.35155010806915 * fSlow11) + -31.594616678674353); + double fSlow49 = (fSlow18 * fSlow48); + double fSlow50 = (fConst20 * (fSlow49 * fSlow21)); + double fSlow51 = ((fSlow25 * fSlow48) * fSlow16); + double fSlow52 = (fConst20 * fSlow51); + double fSlow53 = (6.3830764864229232 * (fSlow16 * fSlow21)); + double fSlow54 = (3.1915382432114616 * fSlow24); + double fSlow55 = (fSlow16 * fSlow10); + double fSlow56 = (fConst26 * (fSlow55 * fSlow21)); + double fSlow57 = (fSlow24 * fSlow10); + double fSlow58 = (fConst27 * fSlow57); + double fSlow59 = (fConst29 * ((fSlow31 * fSlow12) * fSlow21)); + double fSlow60 = ((78.986541696685876 * fSlow11) + -11.283791670955125); + double fSlow61 = (fSlow60 * fSlow16); + double fSlow62 = (fConst31 * (fSlow61 * fSlow21)); + double fSlow63 = (fSlow24 * fSlow60); + double fSlow64 = (fConst32 * fSlow63); + double fSlow65 = (fConst33 * (fSlow26 * fSlow12)); + double fSlow66 = ((4.5 * fSlow60) + -67.702750025730751); + double fSlow67 = ((fSlow66 * fSlow16) * fSlow10); + double fSlow68 = (fConst36 * (fSlow67 * fSlow21)); + double fSlow69 = ((fSlow24 * fSlow66) * fSlow10); + double fSlow70 = (fConst37 * fSlow69); + double fSlow71 = (1.1180339887498949 * fSlow28); + double fSlow72 = (0.75 * fSlow35); + double fSlow73 = pow(fSlow12, 0.5); + double fSlow74 = (fConst38 * fSlow73); + double fSlow75 = (fConst42 * (fSlow10 * fSlow21)); + double fSlow76 = (fConst42 * fSlow55); + double fSlow77 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow78 = (fConst44 * (fSlow77 * fSlow21)); + double fSlow79 = (fSlow77 * fSlow16); + double fSlow80 = (fConst44 * fSlow79); + double fSlow81 = ((3.5 * fSlow77) + -13.540550005146152); + double fSlow82 = (fSlow81 * fSlow10); + double fSlow83 = (fConst46 * (fSlow82 * fSlow21)); + double fSlow84 = ((fSlow81 * fSlow16) * fSlow10); + double fSlow85 = (fConst46 * fSlow84); + double fSlow86 = ((3.0 * (fSlow81 * fSlow11)) - (2.5 * fSlow77)); + double fSlow87 = (fConst48 * (fSlow86 * fSlow21)); + double fSlow88 = (fSlow86 * fSlow16); + double fSlow89 = (fConst48 * fSlow88); + double fSlow90 = (fConst49 * (fSlow73 * fSlow21)); + double fSlow91 = (0.13783222385544802 * fSlow10); + double fSlow92 = (fConst49 * (fSlow16 * fSlow73)); + double fSlow93 = (fConst51 * ((fSlow16 * fSlow12) * fSlow21)); + double fSlow94 = (fConst52 * ((fSlow10 * fSlow73) * fSlow21)); + double fSlow95 = (0.088970317927147144 * fSlow28); + double fSlow96 = (fConst52 * (fSlow55 * fSlow73)); + double fSlow97 = (fConst53 * (fSlow24 * fSlow12)); + double fSlow98 = (fConst54 * ((fSlow18 * fSlow40) * fSlow21)); + double fSlow99 = (fConst56 * ((fSlow55 * fSlow12) * fSlow21)); + double fSlow100 = (fConst57 * ((fSlow77 * fSlow73) * fSlow21)); + double fSlow101 = (0.070180733224632072 * (fSlow29 * fSlow10)); + double fSlow102 = (fConst57 * (fSlow79 * fSlow73)); + double fSlow103 = (fConst58 * (fSlow57 * fSlow12)); + double fSlow104 = (fConst54 * (fSlow43 * fSlow40)); + double fSlow105 = (fConst59 * fSlow33); + double fSlow106 = (fConst60 * ((fSlow44 * fSlow40) * fSlow21)); + double fSlow107 = (fConst61 * ((fSlow61 * fSlow12) * fSlow21)); + double fSlow108 = (fConst62 * ((fSlow82 * fSlow73) * fSlow21)); + double fSlow109 = (0.059683103659460751 * fSlow35); + double fSlow110 = (fConst62 * (fSlow84 * fSlow73)); + double fSlow111 = (fConst63 * (fSlow63 * fSlow12)); + double fSlow112 = (fConst60 * (fSlow46 * fSlow40)); + double fSlow113 = (fConst64 * fSlow38); + double fSlow114 = (fConst65 * ((fSlow20 * fSlow13) * fSlow21)); + double fSlow115 = (fConst66 * (((fSlow31 * fSlow10) * fSlow32) * fSlow21)); + double fSlow116 = (fConst67 * ((fSlow49 * fSlow40) * fSlow21)); + double fSlow117 = (fConst68 * ((fSlow67 * fSlow12) * fSlow21)); + double fSlow118 = (fConst69 * ((fSlow86 * fSlow73) * fSlow21)); + double fSlow119 = (0.052785722976618307 * (fSlow36 * fSlow10)); + double fSlow120 = (fConst69 * (fSlow88 * fSlow73)); + double fSlow121 = (fConst70 * (fSlow69 * fSlow12)); + double fSlow122 = (fConst67 * (fSlow51 * fSlow40)); + double fSlow123 = (fConst71 * ((fSlow26 * fSlow10) * fSlow32)); + double fSlow124 = (fConst65 * (fSlow27 * fSlow13)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow23 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input25[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input35[i]); + double fTemp5 = double(input2[i]); + double fTemp6 = double(input12[i]); + double fTemp7 = double(input26[i]); + double fTemp8 = double(input30[i]); + double fTemp9 = double(input34[i]); + double fTemp10 = double(input9[i]); + double fTemp11 = double(input15[i]); + double fTemp12 = double(input17[i]); + double fTemp13 = double(input23[i]); + double fTemp14 = double(input27[i]); + double fTemp15 = double(input33[i]); + double fTemp16 = double(input4[i]); + double fTemp17 = double(input8[i]); + double fTemp18 = double(input10[i]); + double fTemp19 = double(input14[i]); + double fTemp20 = double(input16[i]); + double fTemp21 = double(input18[i]); + double fTemp22 = double(input22[i]); + double fTemp23 = double(input24[i]); + double fTemp24 = double(input28[i]); + double fTemp25 = double(input32[i]); + double fTemp26 = double(input6[i]); + double fTemp27 = double(input20[i]); + double fTemp28 = double(input1[i]); + double fTemp29 = double(input3[i]); + double fTemp30 = double(input5[i]); + double fTemp31 = double(input7[i]); + double fTemp32 = double(input11[i]); + double fTemp33 = double(input13[i]); + double fTemp34 = double(input19[i]); + double fTemp35 = double(input21[i]); + double fTemp36 = double(input29[i]); + double fTemp37 = double(input31[i]); + double fTemp38 = ((fSlow14 * ((fSlow22 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow27 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + ((fSlow10 * (((((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5))))) + (fSlow30 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6)))))) + (fSlow34 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow37 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow39 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9))))))) + ((fSlow41 * (((((fConst13 * ((fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10))))) + (fSlow43 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11))))))) + (fSlow45 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow47 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow50 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14)))))) + (fSlow52 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15))))))) + ((fSlow12 * (((((((fConst21 * (((fConst23 * ((fSlow53 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16))))) + (fSlow54 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17))))))) + (fSlow56 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18)))))) + (fSlow58 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19))))))) + (fSlow59 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20)))))) + (fSlow62 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21)))))) + (fSlow64 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22)))))) + (fSlow65 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23)))))) + (fSlow68 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24)))))) + (fSlow70 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25))))))) + ((((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow71 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26)))))) + (fSlow72 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp27)):(iSlow2?(fSlow4 * (fTemp3 * fTemp27)):(fSlow4 * (fTemp1 * fTemp27)))))) + (fSlow74 * (((((((((fConst40 * ((fSlow21 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp28)):(iSlow2?(fSlow4 * (fTemp3 * fTemp28)):(fSlow4 * (fTemp1 * fTemp28))))) + (fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp29)):(iSlow2?(fSlow4 * (fTemp3 * fTemp29)):(fSlow4 * (fTemp1 * fTemp29))))))) + (fSlow75 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp30)):(iSlow2?(fSlow4 * (fTemp3 * fTemp30)):(fSlow4 * (fTemp1 * fTemp30)))))) + (fSlow76 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp31)):(iSlow2?(fSlow4 * (fTemp3 * fTemp31)):(fSlow4 * (fTemp1 * fTemp31)))))) + (fSlow78 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp32)):(iSlow2?(fSlow4 * (fTemp3 * fTemp32)):(fSlow4 * (fTemp1 * fTemp32)))))) + (fSlow80 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp33)):(iSlow2?(fSlow4 * (fTemp3 * fTemp33)):(fSlow4 * (fTemp1 * fTemp33)))))) + (fSlow83 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp34)):(iSlow2?(fSlow4 * (fTemp3 * fTemp34)):(fSlow4 * (fTemp1 * fTemp34)))))) + (fSlow85 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp35)):(iSlow2?(fSlow4 * (fTemp3 * fTemp35)):(fSlow4 * (fTemp1 * fTemp35)))))) + (fSlow87 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp36)):(iSlow2?(fSlow4 * (fTemp3 * fTemp36)):(fSlow4 * (fTemp1 * fTemp36)))))) + (fSlow89 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp37)):(iSlow2?(fSlow4 * (fTemp3 * fTemp37)):(fSlow4 * (fTemp1 * fTemp37)))))))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp38))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp28):(iSlow2?(fSlow4 * (fRec1[0] * fTemp28)):(fSlow4 * (fRec0[0] * fTemp28)))) + (fSlow90 * fTemp38))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow91 * fTemp38))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp29):(iSlow2?(fSlow4 * (fRec1[0] * fTemp29)):(fSlow4 * (fRec0[0] * fTemp29)))) + (fSlow92 * fTemp38))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow93 * fTemp38))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp30):(iSlow2?(fSlow4 * (fRec1[0] * fTemp30)):(fSlow4 * (fRec0[0] * fTemp30)))) + (fSlow94 * fTemp38))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow95 * fTemp38))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp31):(iSlow2?(fSlow4 * (fRec1[0] * fTemp31)):(fSlow4 * (fRec0[0] * fTemp31)))) + (fSlow96 * fTemp38))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow97 * fTemp38))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow98 * fTemp38))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow99 * fTemp38))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp32):(iSlow2?(fSlow4 * (fRec1[0] * fTemp32)):(fSlow4 * (fRec0[0] * fTemp32)))) + (fSlow100 * fTemp38))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow101 * fTemp38))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp33):(iSlow2?(fSlow4 * (fRec1[0] * fTemp33)):(fSlow4 * (fRec0[0] * fTemp33)))) + (fSlow102 * fTemp38))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow103 * fTemp38))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow104 * fTemp38))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow105 * fTemp38))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow106 * fTemp38))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow107 * fTemp38))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp34):(iSlow2?(fSlow4 * (fRec1[0] * fTemp34)):(fSlow4 * (fRec0[0] * fTemp34)))) + (fSlow108 * fTemp38))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp27):(iSlow2?(fSlow4 * (fRec1[0] * fTemp27)):(fSlow4 * (fRec0[0] * fTemp27)))) + (fSlow109 * fTemp38))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp35):(iSlow2?(fSlow4 * (fRec1[0] * fTemp35)):(fSlow4 * (fRec0[0] * fTemp35)))) + (fSlow110 * fTemp38))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow111 * fTemp38))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow112 * fTemp38))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow113 * fTemp38))); + output25[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow114 * fTemp38))); + output26[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow115 * fTemp38))); + output27[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow116 * fTemp38))); + output28[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow117 * fTemp38))); + output29[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp36):(iSlow2?(fSlow4 * (fRec1[0] * fTemp36)):(fSlow4 * (fRec0[0] * fTemp36)))) + (fSlow118 * fTemp38))); + output30[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow119 * fTemp38))); + output31[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp37):(iSlow2?(fSlow4 * (fRec1[0] * fTemp37)):(fSlow4 * (fRec0[0] * fTemp37)))) + (fSlow120 * fTemp38))); + output32[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow121 * fTemp38))); + output33[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow122 * fTemp38))); + output34[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow123 * fTemp38))); + output35[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow124 * fTemp38))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA6.cpp b/source/HOAUGens/HOABeamDirac2HOA6.cpp new file mode 100644 index 0000000000..71a7b4641e --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA6.cpp @@ -0,0 +1,2128 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA6" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} +double mydsp_faustpower3_f(double value) { + return ((value * value) * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + FAUSTFLOAT fVslider1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA6"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA6"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 49; + + } + virtual int getNumOutputs() { + return 49; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(2.5)); + fConst3 = double(tgamma(1.0)); + fConst4 = double(tgamma(5.0)); + fConst5 = sqrt((5.0 * (fConst3 / fConst4))); + fConst6 = double(tgamma(2.0)); + fConst7 = double(tgamma(6.0)); + fConst8 = sqrt((7.0 * (fConst6 / fConst7))); + fConst9 = (31.915382432114615 * fConst8); + fConst10 = (15.957691216057308 * fConst8); + fConst11 = double(tgamma(9.0)); + fConst12 = double(tgamma(4.5)); + fConst13 = (sqrt((9.0 * (fConst3 / fConst11))) * fConst12); + fConst14 = (25.532305945691693 * fConst13); + fConst15 = double(tgamma(3.0)); + fConst16 = double(tgamma(7.0)); + fConst17 = (sqrt((9.0 * (fConst15 / fConst16))) * fConst2); + fConst18 = (1.4142135623730951 * fConst17); + fConst19 = (0.70710678118654757 * fConst17); + fConst20 = (12.766152972845846 * fConst13); + fConst21 = double(tgamma(4.0)); + fConst22 = double(tgamma(8.0)); + fConst23 = (sqrt((11.0 * (fConst21 / fConst22))) * fConst2); + fConst24 = (0.94280904158206336 * fConst23); + fConst25 = (0.47140452079103168 * fConst23); + fConst26 = (sqrt((13.0 * (fConst3 / double(tgamma(13.0))))) * double(tgamma(6.5))); + fConst27 = (51.064611891383386 * fConst26); + fConst28 = double(tgamma(11.0)); + fConst29 = (sqrt((13.0 * (fConst15 / fConst28))) * fConst12); + fConst30 = (1.4142135623730951 * fConst29); + fConst31 = (sqrt((13.0 * (fConst4 / fConst11))) * fConst2); + fConst32 = (0.70710678118654757 * fConst31); + fConst33 = (0.35355339059327379 * fConst31); + fConst34 = (0.70710678118654757 * fConst29); + fConst35 = double(tgamma(5.5)); + fConst36 = sqrt((11.0 * (fConst3 / fConst28))); + fConst37 = (25.532305945691693 * fConst36); + fConst38 = sqrt((13.0 * (fConst6 / double(tgamma(12.0))))); + fConst39 = (280.85536540260864 * fConst38); + fConst40 = double(tgamma(3.5)); + fConst41 = sqrt((7.0 * (fConst3 / fConst16))); + fConst42 = (6.3830764864229232 * fConst41); + fConst43 = sqrt((9.0 * (fConst6 / fConst22))); + fConst44 = (44.681535404960464 * fConst43); + fConst45 = sqrt((11.0 * (fConst15 / fConst11))); + fConst46 = (0.70710678118654757 * fConst45); + fConst47 = double(tgamma(10.0)); + fConst48 = sqrt((13.0 * (fConst21 / fConst47))); + fConst49 = (0.47140452079103168 * fConst48); + fConst50 = double(tgamma(1.5)); + fConst51 = sqrt((3.0 * (fConst3 / fConst15))); + fConst52 = (1.5957691216057308 * fConst51); + fConst53 = sqrt((5.0 * (fConst6 / fConst21))); + fConst54 = (4.7873073648171927 * fConst53); + fConst55 = sqrt((7.0 * (fConst15 / fConst4))); + fConst56 = (0.70710678118654757 * fConst55); + fConst57 = sqrt((9.0 * (fConst21 / fConst7))); + fConst58 = (0.47140452079103168 * fConst57); + fConst59 = sqrt((11.0 * (fConst4 / fConst16))); + fConst60 = (0.35355339059327379 * fConst59); + fConst61 = sqrt((13.0 * (fConst7 / fConst22))); + fConst62 = (0.28284271247461906 * fConst61); + fConst63 = (sqrt((11.0 * (fConst6 / fConst47))) * fConst12); + fConst64 = (229.79075351122526 * fConst63); + fConst65 = (114.89537675561263 * fConst63); + fConst66 = (0.12698727186848197 * (fConst51 * fConst50)); + fConst67 = (fConst5 * fConst2); + fConst68 = (0.50794908747392786 * fConst67); + fConst69 = (0.3809618156054459 * (fConst53 * fConst50)); + fConst70 = (0.25397454373696393 * fConst67); + fConst71 = (0.50794908747392786 * (fConst41 * fConst40)); + fConst72 = (fConst8 * fConst2); + fConst73 = (2.5397454373696391 * fConst72); + fConst74 = (0.056269769759819135 * (fConst55 * fConst50)); + fConst75 = (1.2698727186848195 * fConst72); + fConst76 = (2.0317963498957115 * fConst13); + fConst77 = (3.5556436123174948 * (fConst43 * fConst40)); + fConst78 = (0.11253953951963827 * fConst17); + fConst79 = (0.037513179839879424 * (fConst57 * fConst50)); + fConst80 = (0.056269769759819135 * fConst17); + fConst81 = (1.0158981749478557 * fConst13); + fConst82 = (2.0317963498957115 * (fConst36 * fConst35)); + fConst83 = (18.286167149061402 * fConst63); + fConst84 = (0.056269769759819135 * (fConst45 * fConst40)); + fConst85 = (0.075026359679758847 * fConst23); + fConst86 = (0.028134884879909568 * (fConst59 * fConst50)); + fConst87 = (0.037513179839879424 * fConst23); + fConst88 = (9.1430835745307011 * fConst63); + fConst89 = (4.0635926997914229 * fConst26); + fConst90 = (22.349759848852827 * (fConst38 * fConst35)); + fConst91 = (0.11253953951963827 * fConst29); + fConst92 = (0.037513179839879424 * (fConst48 * fConst40)); + fConst93 = (0.056269769759819135 * fConst31); + fConst94 = (0.022507907903927659 * (fConst61 * fConst50)); + fConst95 = (0.028134884879909568 * fConst31); + fConst96 = (0.056269769759819135 * fConst29); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = double(fVslider2); + double fSlow14 = cos(fSlow13); + double fSlow15 = sin(fSlow13); + double fSlow16 = (6.3830764864229232 * (fSlow14 * fSlow15)); + double fSlow17 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow18 = mydsp_faustpower2_f(fSlow14); + double fSlow19 = ((2.0 * fSlow18) + -1.0); + double fSlow20 = (3.1915382432114616 * fSlow19); + double fSlow21 = (fSlow14 * fSlow10); + double fSlow22 = (fConst9 * (fSlow21 * fSlow15)); + double fSlow23 = (fSlow19 * fSlow10); + double fSlow24 = (fConst10 * fSlow23); + double fSlow25 = ((4.0 * fSlow18) + -1.0); + double fSlow26 = (fSlow25 + -1.0); + double fSlow27 = (fSlow26 * fSlow14); + double fSlow28 = (fConst14 * ((fSlow27 * fSlow12) * fSlow15)); + double fSlow29 = ((78.986541696685876 * fSlow11) + -11.283791670955125); + double fSlow30 = (fSlow29 * fSlow14); + double fSlow31 = (fConst18 * (fSlow30 * fSlow15)); + double fSlow32 = (fSlow19 * fSlow29); + double fSlow33 = (fConst19 * fSlow32); + double fSlow34 = ((2.0 * fSlow19) + -1.0); + double fSlow35 = (1.0 - fSlow34); + double fSlow36 = (1.0 - (2.0 * (fSlow35 * fSlow18))); + double fSlow37 = (fConst20 * (fSlow36 * fSlow12)); + double fSlow38 = ((4.5 * fSlow29) + -67.702750025730751); + double fSlow39 = ((fSlow38 * fSlow14) * fSlow10); + double fSlow40 = (fConst24 * (fSlow39 * fSlow15)); + double fSlow41 = ((fSlow19 * fSlow38) * fSlow10); + double fSlow42 = (fConst25 * fSlow41); + double fSlow43 = (1.0 - (4.0 * ((1.0 - fSlow26) * fSlow18))); + double fSlow44 = (0.0 - (2.0 * ((fSlow26 - fSlow43) * fSlow14))); + double fSlow45 = mydsp_faustpower2_f(fSlow12); + double fSlow46 = (fConst27 * ((fSlow44 * fSlow45) * fSlow15)); + double fSlow47 = ((893.67630033964599 * fSlow11) + -81.24330003087691); + double fSlow48 = ((fSlow26 * fSlow47) * fSlow14); + double fSlow49 = (fConst30 * ((fSlow48 * fSlow12) * fSlow15)); + double fSlow50 = ((3.6666666666666665 * (fSlow38 * fSlow11)) - (3.5 * fSlow29)); + double fSlow51 = (fSlow50 * fSlow14); + double fSlow52 = (fConst32 * (fSlow51 * fSlow15)); + double fSlow53 = (fSlow19 * fSlow50); + double fSlow54 = (fConst33 * fSlow53); + double fSlow55 = (fSlow36 * fSlow47); + double fSlow56 = (fConst34 * (fSlow55 * fSlow12)); + double fSlow57 = ((2.0 * fSlow36) - fSlow34); + double fSlow58 = ((2.0 * ((fSlow35 + fSlow57) * fSlow18)) + -1.0); + double fSlow59 = (fConst27 * (fSlow58 * fSlow45)); + double fSlow60 = pow(fSlow12, 2.5); + double fSlow61 = (fConst35 * fSlow60); + double fSlow62 = (fSlow43 * fSlow15); + double fSlow63 = (fSlow57 * fSlow14); + double fSlow64 = (fSlow43 * fSlow10); + double fSlow65 = (fConst39 * (fSlow64 * fSlow15)); + double fSlow66 = (fSlow63 * fSlow10); + double fSlow67 = (fConst39 * fSlow66); + double fSlow68 = pow(fSlow12, 1.5); + double fSlow69 = (fConst40 * fSlow68); + double fSlow70 = (fSlow25 * fSlow15); + double fSlow71 = (fSlow34 * fSlow14); + double fSlow72 = (fSlow25 * fSlow10); + double fSlow73 = (fConst44 * (fSlow72 * fSlow15)); + double fSlow74 = (fSlow71 * fSlow10); + double fSlow75 = (fConst44 * fSlow74); + double fSlow76 = ((284.35155010806915 * fSlow11) + -31.594616678674353); + double fSlow77 = (fSlow25 * fSlow76); + double fSlow78 = (fConst46 * (fSlow77 * fSlow15)); + double fSlow79 = ((fSlow34 * fSlow76) * fSlow14); + double fSlow80 = (fConst46 * fSlow79); + double fSlow81 = ((5.5 * fSlow76) + -252.75693342939482); + double fSlow82 = ((fSlow25 * fSlow81) * fSlow10); + double fSlow83 = (fConst49 * (fSlow82 * fSlow15)); + double fSlow84 = (((fSlow34 * fSlow81) * fSlow14) * fSlow10); + double fSlow85 = (fConst49 * fSlow84); + double fSlow86 = pow(fSlow12, 0.5); + double fSlow87 = (fConst50 * fSlow86); + double fSlow88 = (fConst54 * (fSlow10 * fSlow15)); + double fSlow89 = (fConst54 * fSlow21); + double fSlow90 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow91 = (fConst56 * (fSlow90 * fSlow15)); + double fSlow92 = (fSlow90 * fSlow14); + double fSlow93 = (fConst56 * fSlow92); + double fSlow94 = ((3.5 * fSlow90) + -13.540550005146152); + double fSlow95 = (fSlow94 * fSlow10); + double fSlow96 = (fConst58 * (fSlow95 * fSlow15)); + double fSlow97 = ((fSlow94 * fSlow14) * fSlow10); + double fSlow98 = (fConst58 * fSlow97); + double fSlow99 = ((3.0 * (fSlow94 * fSlow11)) - (2.5 * fSlow90)); + double fSlow100 = (fConst60 * (fSlow99 * fSlow15)); + double fSlow101 = (fSlow99 * fSlow14); + double fSlow102 = (fConst60 * fSlow101); + double fSlow103 = ((2.75 * fSlow99) - (2.0 * fSlow94)); + double fSlow104 = (fSlow103 * fSlow10); + double fSlow105 = (fConst62 * (fSlow104 * fSlow15)); + double fSlow106 = ((fSlow103 * fSlow14) * fSlow10); + double fSlow107 = (fConst62 * fSlow106); + double fSlow108 = ((3.0 * fSlow11) + -1.0); + double fSlow109 = (1.1180339887498949 * fSlow108); + double fSlow110 = ((2.5 * fSlow108) + -2.0); + double fSlow111 = ((2.333333333333333 * (fSlow110 * fSlow11)) - (1.5 * fSlow108)); + double fSlow112 = (0.75 * fSlow111); + double fSlow113 = (0.88191710368819687 * fSlow110); + double fSlow114 = ((fSlow27 * fSlow45) * fSlow15); + double fSlow115 = (fConst64 * fSlow114); + double fSlow116 = ((2.25 * fSlow111) - (1.3333333333333333 * fSlow110)); + double fSlow117 = (0.66332495807108005 * fSlow116); + double fSlow118 = (fSlow36 * fSlow45); + double fSlow119 = (fConst65 * fSlow118); + double fSlow120 = ((2.2000000000000002 * (fSlow116 * fSlow11)) - (1.25 * fSlow111)); + double fSlow121 = (0.60092521257733145 * fSlow120); + double fSlow122 = (fConst66 * (fSlow86 * fSlow15)); + double fSlow123 = (0.13783222385544802 * fSlow10); + double fSlow124 = (fConst66 * (fSlow14 * fSlow86)); + double fSlow125 = (fConst68 * ((fSlow14 * fSlow12) * fSlow15)); + double fSlow126 = (fConst69 * ((fSlow10 * fSlow86) * fSlow15)); + double fSlow127 = (0.088970317927147144 * fSlow108); + double fSlow128 = (fConst69 * (fSlow21 * fSlow86)); + double fSlow129 = (fConst70 * (fSlow19 * fSlow12)); + double fSlow130 = (fConst71 * ((fSlow25 * fSlow68) * fSlow15)); + double fSlow131 = (fConst73 * ((fSlow21 * fSlow12) * fSlow15)); + double fSlow132 = (fConst74 * ((fSlow90 * fSlow86) * fSlow15)); + double fSlow133 = (0.070180733224632072 * (fSlow110 * fSlow10)); + double fSlow134 = (fConst74 * (fSlow92 * fSlow86)); + double fSlow135 = (fConst75 * (fSlow23 * fSlow12)); + double fSlow136 = (fConst71 * (fSlow71 * fSlow68)); + double fSlow137 = (fConst76 * fSlow114); + double fSlow138 = (fConst77 * ((fSlow72 * fSlow68) * fSlow15)); + double fSlow139 = (fConst78 * ((fSlow30 * fSlow12) * fSlow15)); + double fSlow140 = (fConst79 * ((fSlow95 * fSlow86) * fSlow15)); + double fSlow141 = (0.059683103659460751 * fSlow111); + double fSlow142 = (fConst79 * (fSlow97 * fSlow86)); + double fSlow143 = (fConst80 * (fSlow32 * fSlow12)); + double fSlow144 = (fConst77 * (fSlow74 * fSlow68)); + double fSlow145 = (fConst81 * fSlow118); + double fSlow146 = (fConst82 * ((fSlow43 * fSlow60) * fSlow15)); + double fSlow147 = (fConst83 * (((fSlow27 * fSlow10) * fSlow45) * fSlow15)); + double fSlow148 = (fConst84 * ((fSlow77 * fSlow68) * fSlow15)); + double fSlow149 = (fConst85 * ((fSlow39 * fSlow12) * fSlow15)); + double fSlow150 = (fConst86 * ((fSlow99 * fSlow86) * fSlow15)); + double fSlow151 = (0.052785722976618307 * (fSlow116 * fSlow10)); + double fSlow152 = (fConst86 * (fSlow101 * fSlow86)); + double fSlow153 = (fConst87 * (fSlow41 * fSlow12)); + double fSlow154 = (fConst84 * (fSlow79 * fSlow68)); + double fSlow155 = (fConst88 * ((fSlow36 * fSlow10) * fSlow45)); + double fSlow156 = (fConst82 * (fSlow63 * fSlow60)); + double fSlow157 = mydsp_faustpower3_f(fSlow12); + double fSlow158 = (fConst89 * ((fSlow44 * fSlow157) * fSlow15)); + double fSlow159 = (fConst90 * ((fSlow64 * fSlow60) * fSlow15)); + double fSlow160 = (fConst91 * ((fSlow48 * fSlow45) * fSlow15)); + double fSlow161 = (fConst92 * ((fSlow82 * fSlow68) * fSlow15)); + double fSlow162 = (fConst93 * ((fSlow51 * fSlow12) * fSlow15)); + double fSlow163 = (fConst94 * ((fSlow104 * fSlow86) * fSlow15)); + double fSlow164 = (0.047820109005115151 * fSlow120); + double fSlow165 = (fConst94 * (fSlow106 * fSlow86)); + double fSlow166 = (fConst95 * (fSlow53 * fSlow12)); + double fSlow167 = (fConst92 * (fSlow84 * fSlow68)); + double fSlow168 = (fConst96 * (fSlow55 * fSlow45)); + double fSlow169 = (fConst90 * (fSlow66 * fSlow60)); + double fSlow170 = (fConst89 * (fSlow58 * fSlow157)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow17 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input4[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input8[i]); + double fTemp5 = double(input10[i]); + double fTemp6 = double(input14[i]); + double fTemp7 = double(input16[i]); + double fTemp8 = double(input18[i]); + double fTemp9 = double(input22[i]); + double fTemp10 = double(input24[i]); + double fTemp11 = double(input28[i]); + double fTemp12 = double(input32[i]); + double fTemp13 = double(input36[i]); + double fTemp14 = double(input38[i]); + double fTemp15 = double(input40[i]); + double fTemp16 = double(input44[i]); + double fTemp17 = double(input46[i]); + double fTemp18 = double(input48[i]); + double fTemp19 = double(input25[i]); + double fTemp20 = double(input35[i]); + double fTemp21 = double(input37[i]); + double fTemp22 = double(input47[i]); + double fTemp23 = double(input9[i]); + double fTemp24 = double(input15[i]); + double fTemp25 = double(input17[i]); + double fTemp26 = double(input23[i]); + double fTemp27 = double(input27[i]); + double fTemp28 = double(input33[i]); + double fTemp29 = double(input39[i]); + double fTemp30 = double(input45[i]); + double fTemp31 = double(input1[i]); + double fTemp32 = double(input3[i]); + double fTemp33 = double(input5[i]); + double fTemp34 = double(input7[i]); + double fTemp35 = double(input11[i]); + double fTemp36 = double(input13[i]); + double fTemp37 = double(input19[i]); + double fTemp38 = double(input21[i]); + double fTemp39 = double(input29[i]); + double fTemp40 = double(input31[i]); + double fTemp41 = double(input41[i]); + double fTemp42 = double(input43[i]); + double fTemp43 = double(input6[i]); + double fTemp44 = double(input20[i]); + double fTemp45 = double(input2[i]); + double fTemp46 = double(input12[i]); + double fTemp47 = double(input26[i]); + double fTemp48 = double(input30[i]); + double fTemp49 = double(input34[i]); + double fTemp50 = double(input42[i]); + double fTemp51 = ((fSlow12 * (((((((((((((fConst2 * (((fConst5 * ((fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + (fSlow22 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5)))))) + (fSlow24 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow28 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow31 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow33 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow37 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10)))))) + (fSlow40 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11)))))) + (fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow46 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow49 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14)))))) + (fSlow52 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15)))))) + (fSlow54 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16)))))) + (fSlow56 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))) + (fSlow59 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18))))))) + ((fSlow61 * (((fConst37 * ((fSlow62 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19))))) + (fSlow63 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20))))))) + (fSlow65 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21)))))) + (fSlow67 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22))))))) + ((fSlow69 * (((((((fConst42 * ((fSlow70 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23))))) + (fSlow71 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24))))))) + (fSlow73 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25)))))) + (fSlow75 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26)))))) + (fSlow78 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp27)):(iSlow2?(fSlow4 * (fTemp3 * fTemp27)):(fSlow4 * (fTemp1 * fTemp27)))))) + (fSlow80 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp28)):(iSlow2?(fSlow4 * (fTemp3 * fTemp28)):(fSlow4 * (fTemp1 * fTemp28)))))) + (fSlow83 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp29)):(iSlow2?(fSlow4 * (fTemp3 * fTemp29)):(fSlow4 * (fTemp1 * fTemp29)))))) + (fSlow85 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp30)):(iSlow2?(fSlow4 * (fTemp3 * fTemp30)):(fSlow4 * (fTemp1 * fTemp30))))))) + ((fSlow87 * (((((((((((fConst52 * ((fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp31)):(iSlow2?(fSlow4 * (fTemp3 * fTemp31)):(fSlow4 * (fTemp1 * fTemp31))))) + (fSlow14 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp32)):(iSlow2?(fSlow4 * (fTemp3 * fTemp32)):(fSlow4 * (fTemp1 * fTemp32))))))) + (fSlow88 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp33)):(iSlow2?(fSlow4 * (fTemp3 * fTemp33)):(fSlow4 * (fTemp1 * fTemp33)))))) + (fSlow89 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp34)):(iSlow2?(fSlow4 * (fTemp3 * fTemp34)):(fSlow4 * (fTemp1 * fTemp34)))))) + (fSlow91 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp35)):(iSlow2?(fSlow4 * (fTemp3 * fTemp35)):(fSlow4 * (fTemp1 * fTemp35)))))) + (fSlow93 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp36)):(iSlow2?(fSlow4 * (fTemp3 * fTemp36)):(fSlow4 * (fTemp1 * fTemp36)))))) + (fSlow96 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp37)):(iSlow2?(fSlow4 * (fTemp3 * fTemp37)):(fSlow4 * (fTemp1 * fTemp37)))))) + (fSlow98 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp38)):(iSlow2?(fSlow4 * (fTemp3 * fTemp38)):(fSlow4 * (fTemp1 * fTemp38)))))) + (fSlow100 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp39)):(iSlow2?(fSlow4 * (fTemp3 * fTemp39)):(fSlow4 * (fTemp1 * fTemp39)))))) + (fSlow102 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp40)):(iSlow2?(fSlow4 * (fTemp3 * fTemp40)):(fSlow4 * (fTemp1 * fTemp40)))))) + (fSlow105 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp41)):(iSlow2?(fSlow4 * (fTemp3 * fTemp41)):(fSlow4 * (fTemp1 * fTemp41)))))) + (fSlow107 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp42)):(iSlow2?(fSlow4 * (fTemp3 * fTemp42)):(fSlow4 * (fTemp1 * fTemp42))))))) + (((((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow109 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp43)):(iSlow2?(fSlow4 * (fTemp3 * fTemp43)):(fSlow4 * (fTemp1 * fTemp43)))))) + (fSlow112 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp44)):(iSlow2?(fSlow4 * (fTemp3 * fTemp44)):(fSlow4 * (fTemp1 * fTemp44)))))) + (fSlow10 * (((((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp45)):(iSlow2?(fSlow4 * (fTemp3 * fTemp45)):(fSlow4 * (fTemp1 * fTemp45))))) + (fSlow113 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp46)):(iSlow2?(fSlow4 * (fTemp3 * fTemp46)):(fSlow4 * (fTemp1 * fTemp46)))))) + (fSlow115 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp47)):(iSlow2?(fSlow4 * (fTemp3 * fTemp47)):(fSlow4 * (fTemp1 * fTemp47)))))) + (fSlow117 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp48)):(iSlow2?(fSlow4 * (fTemp3 * fTemp48)):(fSlow4 * (fTemp1 * fTemp48)))))) + (fSlow119 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp49)):(iSlow2?(fSlow4 * (fTemp3 * fTemp49)):(fSlow4 * (fTemp1 * fTemp49)))))))) + (fSlow121 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp50)):(iSlow2?(fSlow4 * (fTemp3 * fTemp50)):(fSlow4 * (fTemp1 * fTemp50)))))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp51))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp31):(iSlow2?(fSlow4 * (fRec1[0] * fTemp31)):(fSlow4 * (fRec0[0] * fTemp31)))) + (fSlow122 * fTemp51))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp45):(iSlow2?(fSlow4 * (fRec1[0] * fTemp45)):(fSlow4 * (fRec0[0] * fTemp45)))) + (fSlow123 * fTemp51))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp32):(iSlow2?(fSlow4 * (fRec1[0] * fTemp32)):(fSlow4 * (fRec0[0] * fTemp32)))) + (fSlow124 * fTemp51))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow125 * fTemp51))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp33):(iSlow2?(fSlow4 * (fRec1[0] * fTemp33)):(fSlow4 * (fRec0[0] * fTemp33)))) + (fSlow126 * fTemp51))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp43):(iSlow2?(fSlow4 * (fRec1[0] * fTemp43)):(fSlow4 * (fRec0[0] * fTemp43)))) + (fSlow127 * fTemp51))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp34):(iSlow2?(fSlow4 * (fRec1[0] * fTemp34)):(fSlow4 * (fRec0[0] * fTemp34)))) + (fSlow128 * fTemp51))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow129 * fTemp51))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow130 * fTemp51))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow131 * fTemp51))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp35):(iSlow2?(fSlow4 * (fRec1[0] * fTemp35)):(fSlow4 * (fRec0[0] * fTemp35)))) + (fSlow132 * fTemp51))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp46):(iSlow2?(fSlow4 * (fRec1[0] * fTemp46)):(fSlow4 * (fRec0[0] * fTemp46)))) + (fSlow133 * fTemp51))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp36):(iSlow2?(fSlow4 * (fRec1[0] * fTemp36)):(fSlow4 * (fRec0[0] * fTemp36)))) + (fSlow134 * fTemp51))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow135 * fTemp51))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow136 * fTemp51))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow137 * fTemp51))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow138 * fTemp51))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow139 * fTemp51))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp37):(iSlow2?(fSlow4 * (fRec1[0] * fTemp37)):(fSlow4 * (fRec0[0] * fTemp37)))) + (fSlow140 * fTemp51))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp44):(iSlow2?(fSlow4 * (fRec1[0] * fTemp44)):(fSlow4 * (fRec0[0] * fTemp44)))) + (fSlow141 * fTemp51))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp38):(iSlow2?(fSlow4 * (fRec1[0] * fTemp38)):(fSlow4 * (fRec0[0] * fTemp38)))) + (fSlow142 * fTemp51))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow143 * fTemp51))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow144 * fTemp51))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow145 * fTemp51))); + output25[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow146 * fTemp51))); + output26[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp47):(iSlow2?(fSlow4 * (fRec1[0] * fTemp47)):(fSlow4 * (fRec0[0] * fTemp47)))) + (fSlow147 * fTemp51))); + output27[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp27):(iSlow2?(fSlow4 * (fRec1[0] * fTemp27)):(fSlow4 * (fRec0[0] * fTemp27)))) + (fSlow148 * fTemp51))); + output28[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow149 * fTemp51))); + output29[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp39):(iSlow2?(fSlow4 * (fRec1[0] * fTemp39)):(fSlow4 * (fRec0[0] * fTemp39)))) + (fSlow150 * fTemp51))); + output30[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp48):(iSlow2?(fSlow4 * (fRec1[0] * fTemp48)):(fSlow4 * (fRec0[0] * fTemp48)))) + (fSlow151 * fTemp51))); + output31[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp40):(iSlow2?(fSlow4 * (fRec1[0] * fTemp40)):(fSlow4 * (fRec0[0] * fTemp40)))) + (fSlow152 * fTemp51))); + output32[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow153 * fTemp51))); + output33[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp28):(iSlow2?(fSlow4 * (fRec1[0] * fTemp28)):(fSlow4 * (fRec0[0] * fTemp28)))) + (fSlow154 * fTemp51))); + output34[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp49):(iSlow2?(fSlow4 * (fRec1[0] * fTemp49)):(fSlow4 * (fRec0[0] * fTemp49)))) + (fSlow155 * fTemp51))); + output35[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow156 * fTemp51))); + output36[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow158 * fTemp51))); + output37[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow159 * fTemp51))); + output38[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow160 * fTemp51))); + output39[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp29):(iSlow2?(fSlow4 * (fRec1[0] * fTemp29)):(fSlow4 * (fRec0[0] * fTemp29)))) + (fSlow161 * fTemp51))); + output40[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow162 * fTemp51))); + output41[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp41):(iSlow2?(fSlow4 * (fRec1[0] * fTemp41)):(fSlow4 * (fRec0[0] * fTemp41)))) + (fSlow163 * fTemp51))); + output42[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp50):(iSlow2?(fSlow4 * (fRec1[0] * fTemp50)):(fSlow4 * (fRec0[0] * fTemp50)))) + (fSlow164 * fTemp51))); + output43[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp42):(iSlow2?(fSlow4 * (fRec1[0] * fTemp42)):(fSlow4 * (fRec0[0] * fTemp42)))) + (fSlow165 * fTemp51))); + output44[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow166 * fTemp51))); + output45[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp30):(iSlow2?(fSlow4 * (fRec1[0] * fTemp30)):(fSlow4 * (fRec0[0] * fTemp30)))) + (fSlow167 * fTemp51))); + output46[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow168 * fTemp51))); + output47[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow169 * fTemp51))); + output48[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow170 * fTemp51))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA7.cpp b/source/HOAUGens/HOABeamDirac2HOA7.cpp new file mode 100644 index 0000000000..da86bbeeb1 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA7.cpp @@ -0,0 +1,2415 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA7" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} +double mydsp_faustpower3_f(double value) { + return ((value * value) * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + FAUSTFLOAT fVslider1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA7"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA7"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 64; + + } + virtual int getNumOutputs() { + return 64; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(2.5)); + fConst3 = double(tgamma(1.0)); + fConst4 = double(tgamma(5.0)); + fConst5 = sqrt((5.0 * (fConst3 / fConst4))); + fConst6 = double(tgamma(2.0)); + fConst7 = double(tgamma(6.0)); + fConst8 = sqrt((7.0 * (fConst6 / fConst7))); + fConst9 = (31.915382432114615 * fConst8); + fConst10 = (15.957691216057308 * fConst8); + fConst11 = double(tgamma(9.0)); + fConst12 = double(tgamma(4.5)); + fConst13 = (sqrt((9.0 * (fConst3 / fConst11))) * fConst12); + fConst14 = (25.532305945691693 * fConst13); + fConst15 = double(tgamma(3.0)); + fConst16 = double(tgamma(7.0)); + fConst17 = (sqrt((9.0 * (fConst15 / fConst16))) * fConst2); + fConst18 = (1.4142135623730951 * fConst17); + fConst19 = (0.70710678118654757 * fConst17); + fConst20 = (12.766152972845846 * fConst13); + fConst21 = double(tgamma(4.0)); + fConst22 = double(tgamma(8.0)); + fConst23 = (sqrt((11.0 * (fConst21 / fConst22))) * fConst2); + fConst24 = (0.94280904158206336 * fConst23); + fConst25 = (0.47140452079103168 * fConst23); + fConst26 = double(tgamma(13.0)); + fConst27 = double(tgamma(6.5)); + fConst28 = (sqrt((13.0 * (fConst3 / fConst26))) * fConst27); + fConst29 = (51.064611891383386 * fConst28); + fConst30 = double(tgamma(11.0)); + fConst31 = (sqrt((13.0 * (fConst15 / fConst30))) * fConst12); + fConst32 = (1.4142135623730951 * fConst31); + fConst33 = (sqrt((13.0 * (fConst4 / fConst11))) * fConst2); + fConst34 = (0.70710678118654757 * fConst33); + fConst35 = (0.35355339059327379 * fConst33); + fConst36 = (0.70710678118654757 * fConst31); + fConst37 = double(tgamma(12.0)); + fConst38 = (sqrt((15.0 * (fConst21 / fConst37))) * fConst12); + fConst39 = (0.94280904158206336 * fConst38); + fConst40 = double(tgamma(10.0)); + fConst41 = (sqrt((15.0 * (fConst7 / fConst40))) * fConst2); + fConst42 = (0.28284271247461906 * fConst41); + fConst43 = (sqrt((15.0 * (fConst6 / double(tgamma(14.0))))) * fConst27); + fConst44 = (663.83995458798404 * fConst43); + fConst45 = double(tgamma(5.5)); + fConst46 = sqrt((11.0 * (fConst3 / fConst30))); + fConst47 = (25.532305945691693 * fConst46); + fConst48 = sqrt((13.0 * (fConst6 / fConst37))); + fConst49 = (280.85536540260864 * fConst48); + fConst50 = sqrt((15.0 * (fConst15 / fConst26))); + fConst51 = (0.70710678118654757 * fConst50); + fConst52 = (sqrt((11.0 * (fConst6 / fConst40))) * fConst12); + fConst53 = (229.79075351122526 * fConst52); + fConst54 = (114.89537675561263 * fConst52); + fConst55 = (0.47140452079103168 * fConst38); + fConst56 = double(tgamma(3.5)); + fConst57 = sqrt((7.0 * (fConst3 / fConst16))); + fConst58 = (6.3830764864229232 * fConst57); + fConst59 = sqrt((9.0 * (fConst6 / fConst22))); + fConst60 = (44.681535404960464 * fConst59); + fConst61 = sqrt((11.0 * (fConst15 / fConst11))); + fConst62 = (0.70710678118654757 * fConst61); + fConst63 = sqrt((13.0 * (fConst21 / fConst40))); + fConst64 = (0.47140452079103168 * fConst63); + fConst65 = sqrt((15.0 * (fConst4 / fConst30))); + fConst66 = (0.35355339059327379 * fConst65); + fConst67 = (sqrt((15.0 * (fConst3 / double(tgamma(15.0))))) * double(tgamma(7.5))); + fConst68 = (102.12922378276677 * fConst67); + fConst69 = (0.56568542494923812 * fConst41); + fConst70 = double(tgamma(1.5)); + fConst71 = sqrt((3.0 * (fConst3 / fConst15))); + fConst72 = (1.5957691216057308 * fConst71); + fConst73 = sqrt((5.0 * (fConst6 / fConst21))); + fConst74 = (4.7873073648171927 * fConst73); + fConst75 = sqrt((7.0 * (fConst15 / fConst4))); + fConst76 = (0.70710678118654757 * fConst75); + fConst77 = sqrt((9.0 * (fConst21 / fConst7))); + fConst78 = (0.47140452079103168 * fConst77); + fConst79 = sqrt((11.0 * (fConst4 / fConst16))); + fConst80 = (0.35355339059327379 * fConst79); + fConst81 = sqrt((13.0 * (fConst7 / fConst22))); + fConst82 = (0.28284271247461906 * fConst81); + fConst83 = sqrt((15.0 * (fConst16 / fConst11))); + fConst84 = (0.23570226039551584 * fConst83); + fConst85 = (0.12698727186848197 * (fConst71 * fConst70)); + fConst86 = (fConst5 * fConst2); + fConst87 = (0.50794908747392786 * fConst86); + fConst88 = (0.3809618156054459 * (fConst73 * fConst70)); + fConst89 = (0.25397454373696393 * fConst86); + fConst90 = (0.50794908747392786 * (fConst57 * fConst56)); + fConst91 = (fConst8 * fConst2); + fConst92 = (2.5397454373696391 * fConst91); + fConst93 = (0.056269769759819135 * (fConst75 * fConst70)); + fConst94 = (1.2698727186848195 * fConst91); + fConst95 = (2.0317963498957115 * fConst13); + fConst96 = (3.5556436123174948 * (fConst59 * fConst56)); + fConst97 = (0.11253953951963827 * fConst17); + fConst98 = (0.037513179839879424 * (fConst77 * fConst70)); + fConst99 = (0.056269769759819135 * fConst17); + fConst100 = (1.0158981749478557 * fConst13); + fConst101 = (2.0317963498957115 * (fConst46 * fConst45)); + fConst102 = (18.286167149061402 * fConst52); + fConst103 = (0.056269769759819135 * (fConst61 * fConst56)); + fConst104 = (0.075026359679758847 * fConst23); + fConst105 = (0.028134884879909568 * (fConst79 * fConst70)); + fConst106 = (0.037513179839879424 * fConst23); + fConst107 = (9.1430835745307011 * fConst52); + fConst108 = (4.0635926997914229 * fConst28); + fConst109 = (22.349759848852827 * (fConst48 * fConst45)); + fConst110 = (0.11253953951963827 * fConst31); + fConst111 = (0.037513179839879424 * (fConst63 * fConst56)); + fConst112 = (0.056269769759819135 * fConst33); + fConst113 = (0.022507907903927659 * (fConst81 * fConst70)); + fConst114 = (0.028134884879909568 * fConst33); + fConst115 = (0.056269769759819135 * fConst31); + fConst116 = (8.1271853995828458 * fConst67); + fConst117 = (52.826705097288496 * fConst43); + fConst118 = (0.056269769759819135 * (fConst50 * fConst45)); + fConst119 = (0.075026359679758847 * fConst38); + fConst120 = (0.028134884879909568 * (fConst65 * fConst56)); + fConst121 = (0.045015815807855318 * fConst41); + fConst122 = (0.018756589919939712 * (fConst83 * fConst70)); + fConst123 = (0.022507907903927659 * fConst41); + fConst124 = (0.037513179839879424 * fConst38); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = double(fVslider2); + double fSlow14 = cos(fSlow13); + double fSlow15 = sin(fSlow13); + double fSlow16 = (6.3830764864229232 * (fSlow14 * fSlow15)); + double fSlow17 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow18 = mydsp_faustpower2_f(fSlow14); + double fSlow19 = ((2.0 * fSlow18) + -1.0); + double fSlow20 = (3.1915382432114616 * fSlow19); + double fSlow21 = (fSlow14 * fSlow10); + double fSlow22 = (fConst9 * (fSlow21 * fSlow15)); + double fSlow23 = (fSlow19 * fSlow10); + double fSlow24 = (fConst10 * fSlow23); + double fSlow25 = ((4.0 * fSlow18) + -1.0); + double fSlow26 = (fSlow25 + -1.0); + double fSlow27 = (fSlow26 * fSlow14); + double fSlow28 = (fConst14 * ((fSlow27 * fSlow12) * fSlow15)); + double fSlow29 = ((78.986541696685876 * fSlow11) + -11.283791670955125); + double fSlow30 = (fSlow29 * fSlow14); + double fSlow31 = (fConst18 * (fSlow30 * fSlow15)); + double fSlow32 = (fSlow19 * fSlow29); + double fSlow33 = (fConst19 * fSlow32); + double fSlow34 = ((2.0 * fSlow19) + -1.0); + double fSlow35 = (1.0 - fSlow34); + double fSlow36 = (1.0 - (2.0 * (fSlow35 * fSlow18))); + double fSlow37 = (fConst20 * (fSlow36 * fSlow12)); + double fSlow38 = ((4.5 * fSlow29) + -67.702750025730751); + double fSlow39 = ((fSlow38 * fSlow14) * fSlow10); + double fSlow40 = (fConst24 * (fSlow39 * fSlow15)); + double fSlow41 = ((fSlow19 * fSlow38) * fSlow10); + double fSlow42 = (fConst25 * fSlow41); + double fSlow43 = (1.0 - fSlow26); + double fSlow44 = (1.0 - (4.0 * (fSlow43 * fSlow18))); + double fSlow45 = (0.0 - (2.0 * ((fSlow26 - fSlow44) * fSlow14))); + double fSlow46 = mydsp_faustpower2_f(fSlow12); + double fSlow47 = (fConst29 * ((fSlow45 * fSlow46) * fSlow15)); + double fSlow48 = ((893.67630033964599 * fSlow11) + -81.24330003087691); + double fSlow49 = ((fSlow26 * fSlow48) * fSlow14); + double fSlow50 = (fConst32 * ((fSlow49 * fSlow12) * fSlow15)); + double fSlow51 = ((3.6666666666666665 * (fSlow38 * fSlow11)) - (3.5 * fSlow29)); + double fSlow52 = (fSlow51 * fSlow14); + double fSlow53 = (fConst34 * (fSlow52 * fSlow15)); + double fSlow54 = (fSlow19 * fSlow51); + double fSlow55 = (fConst35 * fSlow54); + double fSlow56 = (fSlow36 * fSlow48); + double fSlow57 = (fConst36 * (fSlow56 * fSlow12)); + double fSlow58 = ((2.0 * fSlow36) - fSlow34); + double fSlow59 = ((2.0 * ((fSlow35 + fSlow58) * fSlow18)) + -1.0); + double fSlow60 = (fConst29 * (fSlow59 * fSlow46)); + double fSlow61 = ((6.5 * fSlow48) + -812.43300030876912); + double fSlow62 = (((fSlow26 * fSlow61) * fSlow14) * fSlow10); + double fSlow63 = (fConst39 * ((fSlow62 * fSlow12) * fSlow15)); + double fSlow64 = ((3.25 * fSlow51) - (2.6666666666666665 * fSlow38)); + double fSlow65 = ((fSlow19 * fSlow64) * fSlow10); + double fSlow66 = (fConst42 * fSlow65); + double fSlow67 = (fSlow59 * fSlow10); + double fSlow68 = (fConst44 * (fSlow67 * fSlow46)); + double fSlow69 = pow(fSlow12, 2.5); + double fSlow70 = (fConst45 * fSlow69); + double fSlow71 = (fSlow44 * fSlow15); + double fSlow72 = (fSlow58 * fSlow14); + double fSlow73 = (fSlow44 * fSlow10); + double fSlow74 = (fConst49 * (fSlow73 * fSlow15)); + double fSlow75 = (fSlow72 * fSlow10); + double fSlow76 = (fConst49 * fSlow75); + double fSlow77 = ((2581.7315343145328 * fSlow11) + -198.59473340881021); + double fSlow78 = (fSlow44 * fSlow77); + double fSlow79 = (fConst51 * (fSlow78 * fSlow15)); + double fSlow80 = ((fSlow58 * fSlow77) * fSlow14); + double fSlow81 = (fConst51 * fSlow80); + double fSlow82 = ((3.0 * fSlow11) + -1.0); + double fSlow83 = ((2.5 * fSlow82) + -2.0); + double fSlow84 = (0.88191710368819687 * fSlow83); + double fSlow85 = ((fSlow27 * fSlow46) * fSlow15); + double fSlow86 = (fConst53 * fSlow85); + double fSlow87 = ((2.333333333333333 * (fSlow83 * fSlow11)) - (1.5 * fSlow82)); + double fSlow88 = ((2.25 * fSlow87) - (1.3333333333333333 * fSlow83)); + double fSlow89 = (0.66332495807108005 * fSlow88); + double fSlow90 = (fSlow36 * fSlow46); + double fSlow91 = (fConst54 * fSlow90); + double fSlow92 = mydsp_faustpower3_f(fSlow12); + double fSlow93 = ((fSlow45 * fSlow92) * fSlow15); + double fSlow94 = (fConst44 * fSlow93); + double fSlow95 = ((2.2000000000000002 * (fSlow88 * fSlow11)) - (1.25 * fSlow87)); + double fSlow96 = ((2.1666666666666665 * fSlow95) - (1.2000000000000002 * fSlow88)); + double fSlow97 = (0.55328333517248807 * fSlow96); + double fSlow98 = (fSlow36 * fSlow61); + double fSlow99 = (fConst55 * (fSlow98 * fSlow46)); + double fSlow100 = pow(fSlow12, 1.5); + double fSlow101 = (fConst56 * fSlow100); + double fSlow102 = (fSlow25 * fSlow15); + double fSlow103 = (fSlow34 * fSlow14); + double fSlow104 = (fSlow25 * fSlow10); + double fSlow105 = (fConst60 * (fSlow104 * fSlow15)); + double fSlow106 = (fSlow103 * fSlow10); + double fSlow107 = (fConst60 * fSlow106); + double fSlow108 = ((284.35155010806915 * fSlow11) + -31.594616678674353); + double fSlow109 = (fSlow25 * fSlow108); + double fSlow110 = (fConst62 * (fSlow109 * fSlow15)); + double fSlow111 = ((fSlow34 * fSlow108) * fSlow14); + double fSlow112 = (fConst62 * fSlow111); + double fSlow113 = ((5.5 * fSlow108) + -252.75693342939482); + double fSlow114 = ((fSlow25 * fSlow113) * fSlow10); + double fSlow115 = (fConst64 * (fSlow114 * fSlow15)); + double fSlow116 = (((fSlow34 * fSlow113) * fSlow14) * fSlow10); + double fSlow117 = (fConst64 * fSlow116); + double fSlow118 = ((4.333333333333333 * (fSlow113 * fSlow11)) - (4.5 * fSlow108)); + double fSlow119 = (fSlow25 * fSlow118); + double fSlow120 = (fConst66 * (fSlow119 * fSlow15)); + double fSlow121 = ((fSlow34 * fSlow118) * fSlow14); + double fSlow122 = (fConst66 * fSlow121); + double fSlow123 = (1.1180339887498949 * fSlow82); + double fSlow124 = (0.75 * fSlow87); + double fSlow125 = (0.60092521257733145 * fSlow95); + double fSlow126 = pow(fSlow12, 3.5); + double fSlow127 = (((((2.0 * fSlow45) + (4.0 * (fSlow43 * fSlow14))) * fSlow14) + -1.0) * fSlow126); + double fSlow128 = (fConst68 * fSlow127); + double fSlow129 = (((fSlow64 * fSlow14) * fSlow10) * fSlow12); + double fSlow130 = (fConst69 * fSlow129); + double fSlow131 = pow(fSlow12, 0.5); + double fSlow132 = (fConst70 * fSlow131); + double fSlow133 = (fConst74 * (fSlow10 * fSlow15)); + double fSlow134 = (fConst74 * fSlow21); + double fSlow135 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow136 = (fConst76 * (fSlow135 * fSlow15)); + double fSlow137 = (fSlow135 * fSlow14); + double fSlow138 = (fConst76 * fSlow137); + double fSlow139 = ((3.5 * fSlow135) + -13.540550005146152); + double fSlow140 = (fSlow139 * fSlow10); + double fSlow141 = (fConst78 * (fSlow140 * fSlow15)); + double fSlow142 = ((fSlow139 * fSlow14) * fSlow10); + double fSlow143 = (fConst78 * fSlow142); + double fSlow144 = ((3.0 * (fSlow139 * fSlow11)) - (2.5 * fSlow135)); + double fSlow145 = (fConst80 * (fSlow144 * fSlow15)); + double fSlow146 = (fSlow144 * fSlow14); + double fSlow147 = (fConst80 * fSlow146); + double fSlow148 = ((2.75 * fSlow144) - (2.0 * fSlow139)); + double fSlow149 = (fSlow148 * fSlow10); + double fSlow150 = (fConst82 * (fSlow149 * fSlow15)); + double fSlow151 = ((fSlow148 * fSlow14) * fSlow10); + double fSlow152 = (fConst82 * fSlow151); + double fSlow153 = ((2.6000000000000001 * (fSlow148 * fSlow11)) - (1.75 * fSlow144)); + double fSlow154 = (fConst84 * (fSlow153 * fSlow15)); + double fSlow155 = (fSlow153 * fSlow14); + double fSlow156 = (fConst84 * fSlow155); + double fSlow157 = ((((2.0 * fSlow59) - fSlow58) * fSlow14) * fSlow126); + double fSlow158 = (fConst68 * fSlow157); + double fSlow159 = (fConst85 * (fSlow131 * fSlow15)); + double fSlow160 = (0.13783222385544802 * fSlow10); + double fSlow161 = (fConst85 * (fSlow14 * fSlow131)); + double fSlow162 = (fConst87 * ((fSlow14 * fSlow12) * fSlow15)); + double fSlow163 = (fConst88 * ((fSlow10 * fSlow131) * fSlow15)); + double fSlow164 = (0.088970317927147144 * fSlow82); + double fSlow165 = (fConst88 * (fSlow21 * fSlow131)); + double fSlow166 = (fConst89 * (fSlow19 * fSlow12)); + double fSlow167 = (fConst90 * ((fSlow25 * fSlow100) * fSlow15)); + double fSlow168 = (fConst92 * ((fSlow21 * fSlow12) * fSlow15)); + double fSlow169 = (fConst93 * ((fSlow135 * fSlow131) * fSlow15)); + double fSlow170 = (0.070180733224632072 * (fSlow83 * fSlow10)); + double fSlow171 = (fConst93 * (fSlow137 * fSlow131)); + double fSlow172 = (fConst94 * (fSlow23 * fSlow12)); + double fSlow173 = (fConst90 * (fSlow103 * fSlow100)); + double fSlow174 = (fConst95 * fSlow85); + double fSlow175 = (fConst96 * ((fSlow104 * fSlow100) * fSlow15)); + double fSlow176 = (fConst97 * ((fSlow30 * fSlow12) * fSlow15)); + double fSlow177 = (fConst98 * ((fSlow140 * fSlow131) * fSlow15)); + double fSlow178 = (0.059683103659460751 * fSlow87); + double fSlow179 = (fConst98 * (fSlow142 * fSlow131)); + double fSlow180 = (fConst99 * (fSlow32 * fSlow12)); + double fSlow181 = (fConst96 * (fSlow106 * fSlow100)); + double fSlow182 = (fConst100 * fSlow90); + double fSlow183 = (fConst101 * ((fSlow44 * fSlow69) * fSlow15)); + double fSlow184 = (fConst102 * (((fSlow27 * fSlow10) * fSlow46) * fSlow15)); + double fSlow185 = (fConst103 * ((fSlow109 * fSlow100) * fSlow15)); + double fSlow186 = (fConst104 * ((fSlow39 * fSlow12) * fSlow15)); + double fSlow187 = (fConst105 * ((fSlow144 * fSlow131) * fSlow15)); + double fSlow188 = (0.052785722976618307 * (fSlow88 * fSlow10)); + double fSlow189 = (fConst105 * (fSlow146 * fSlow131)); + double fSlow190 = (fConst106 * (fSlow41 * fSlow12)); + double fSlow191 = (fConst103 * (fSlow111 * fSlow100)); + double fSlow192 = (fConst107 * ((fSlow36 * fSlow10) * fSlow46)); + double fSlow193 = (fConst101 * (fSlow72 * fSlow69)); + double fSlow194 = (fConst108 * fSlow93); + double fSlow195 = (fConst109 * ((fSlow73 * fSlow69) * fSlow15)); + double fSlow196 = (fConst110 * ((fSlow49 * fSlow46) * fSlow15)); + double fSlow197 = (fConst111 * ((fSlow114 * fSlow100) * fSlow15)); + double fSlow198 = (fConst112 * ((fSlow52 * fSlow12) * fSlow15)); + double fSlow199 = (fConst113 * ((fSlow149 * fSlow131) * fSlow15)); + double fSlow200 = (0.047820109005115151 * fSlow95); + double fSlow201 = (fConst113 * (fSlow151 * fSlow131)); + double fSlow202 = (fConst114 * (fSlow54 * fSlow12)); + double fSlow203 = (fConst111 * (fSlow116 * fSlow100)); + double fSlow204 = (fConst115 * (fSlow56 * fSlow46)); + double fSlow205 = (fConst109 * (fSlow75 * fSlow69)); + double fSlow206 = (fConst108 * (fSlow59 * fSlow92)); + double fSlow207 = (fConst116 * (fSlow127 * fSlow15)); + double fSlow208 = (fConst117 * (((fSlow45 * fSlow10) * fSlow92) * fSlow15)); + double fSlow209 = (fConst118 * ((fSlow78 * fSlow69) * fSlow15)); + double fSlow210 = (fConst119 * ((fSlow62 * fSlow46) * fSlow15)); + double fSlow211 = (fConst120 * ((fSlow119 * fSlow100) * fSlow15)); + double fSlow212 = (fConst121 * (fSlow129 * fSlow15)); + double fSlow213 = (fConst122 * ((fSlow153 * fSlow131) * fSlow15)); + double fSlow214 = (0.044028888861535699 * (fSlow96 * fSlow10)); + double fSlow215 = (fConst122 * (fSlow155 * fSlow131)); + double fSlow216 = (fConst123 * (fSlow65 * fSlow12)); + double fSlow217 = (fConst120 * (fSlow121 * fSlow100)); + double fSlow218 = (fConst124 * ((fSlow98 * fSlow10) * fSlow46)); + double fSlow219 = (fConst118 * (fSlow80 * fSlow69)); + double fSlow220 = (fConst117 * (fSlow67 * fSlow92)); + double fSlow221 = (fConst116 * fSlow157); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow17 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input4[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input8[i]); + double fTemp5 = double(input10[i]); + double fTemp6 = double(input14[i]); + double fTemp7 = double(input16[i]); + double fTemp8 = double(input18[i]); + double fTemp9 = double(input22[i]); + double fTemp10 = double(input24[i]); + double fTemp11 = double(input28[i]); + double fTemp12 = double(input32[i]); + double fTemp13 = double(input36[i]); + double fTemp14 = double(input38[i]); + double fTemp15 = double(input40[i]); + double fTemp16 = double(input44[i]); + double fTemp17 = double(input46[i]); + double fTemp18 = double(input48[i]); + double fTemp19 = double(input52[i]); + double fTemp20 = double(input58[i]); + double fTemp21 = double(input62[i]); + double fTemp22 = double(input25[i]); + double fTemp23 = double(input35[i]); + double fTemp24 = double(input37[i]); + double fTemp25 = double(input47[i]); + double fTemp26 = double(input51[i]); + double fTemp27 = double(input61[i]); + double fTemp28 = double(input2[i]); + double fTemp29 = double(input12[i]); + double fTemp30 = double(input26[i]); + double fTemp31 = double(input30[i]); + double fTemp32 = double(input34[i]); + double fTemp33 = double(input50[i]); + double fTemp34 = double(input56[i]); + double fTemp35 = double(input60[i]); + double fTemp36 = double(input9[i]); + double fTemp37 = double(input15[i]); + double fTemp38 = double(input17[i]); + double fTemp39 = double(input23[i]); + double fTemp40 = double(input27[i]); + double fTemp41 = double(input33[i]); + double fTemp42 = double(input39[i]); + double fTemp43 = double(input45[i]); + double fTemp44 = double(input53[i]); + double fTemp45 = double(input59[i]); + double fTemp46 = double(input6[i]); + double fTemp47 = double(input20[i]); + double fTemp48 = double(input42[i]); + double fTemp49 = double(input49[i]); + double fTemp50 = double(input54[i]); + double fTemp51 = double(input1[i]); + double fTemp52 = double(input3[i]); + double fTemp53 = double(input5[i]); + double fTemp54 = double(input7[i]); + double fTemp55 = double(input11[i]); + double fTemp56 = double(input13[i]); + double fTemp57 = double(input19[i]); + double fTemp58 = double(input21[i]); + double fTemp59 = double(input29[i]); + double fTemp60 = double(input31[i]); + double fTemp61 = double(input41[i]); + double fTemp62 = double(input43[i]); + double fTemp63 = double(input55[i]); + double fTemp64 = double(input57[i]); + double fTemp65 = double(input63[i]); + double fTemp66 = (((fSlow12 * ((((((((((((((((fConst2 * (((fConst5 * ((fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + (fSlow22 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5)))))) + (fSlow24 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow28 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow31 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow33 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow37 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10)))))) + (fSlow40 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11)))))) + (fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow47 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow50 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14)))))) + (fSlow53 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15)))))) + (fSlow55 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16)))))) + (fSlow57 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))) + (fSlow60 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18)))))) + (fSlow63 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19)))))) + (fSlow66 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20)))))) + (fSlow68 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21))))))) + ((fSlow70 * (((((fConst47 * ((fSlow71 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22))))) + (fSlow72 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23))))))) + (fSlow74 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24)))))) + (fSlow76 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25)))))) + (fSlow79 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26)))))) + (fSlow81 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp27)):(iSlow2?(fSlow4 * (fTemp3 * fTemp27)):(fSlow4 * (fTemp1 * fTemp27))))))) + ((fSlow10 * ((((((((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp28)):(iSlow2?(fSlow4 * (fTemp3 * fTemp28)):(fSlow4 * (fTemp1 * fTemp28))))) + (fSlow84 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp29)):(iSlow2?(fSlow4 * (fTemp3 * fTemp29)):(fSlow4 * (fTemp1 * fTemp29)))))) + (fSlow86 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp30)):(iSlow2?(fSlow4 * (fTemp3 * fTemp30)):(fSlow4 * (fTemp1 * fTemp30)))))) + (fSlow89 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp31)):(iSlow2?(fSlow4 * (fTemp3 * fTemp31)):(fSlow4 * (fTemp1 * fTemp31)))))) + (fSlow91 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp32)):(iSlow2?(fSlow4 * (fTemp3 * fTemp32)):(fSlow4 * (fTemp1 * fTemp32)))))) + (fSlow94 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp33)):(iSlow2?(fSlow4 * (fTemp3 * fTemp33)):(fSlow4 * (fTemp1 * fTemp33)))))) + (fSlow97 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp34)):(iSlow2?(fSlow4 * (fTemp3 * fTemp34)):(fSlow4 * (fTemp1 * fTemp34)))))) + (fSlow99 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp35)):(iSlow2?(fSlow4 * (fTemp3 * fTemp35)):(fSlow4 * (fTemp1 * fTemp35))))))) + ((fSlow101 * (((((((((fConst58 * ((fSlow102 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp36)):(iSlow2?(fSlow4 * (fTemp3 * fTemp36)):(fSlow4 * (fTemp1 * fTemp36))))) + (fSlow103 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp37)):(iSlow2?(fSlow4 * (fTemp3 * fTemp37)):(fSlow4 * (fTemp1 * fTemp37))))))) + (fSlow105 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp38)):(iSlow2?(fSlow4 * (fTemp3 * fTemp38)):(fSlow4 * (fTemp1 * fTemp38)))))) + (fSlow107 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp39)):(iSlow2?(fSlow4 * (fTemp3 * fTemp39)):(fSlow4 * (fTemp1 * fTemp39)))))) + (fSlow110 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp40)):(iSlow2?(fSlow4 * (fTemp3 * fTemp40)):(fSlow4 * (fTemp1 * fTemp40)))))) + (fSlow112 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp41)):(iSlow2?(fSlow4 * (fTemp3 * fTemp41)):(fSlow4 * (fTemp1 * fTemp41)))))) + (fSlow115 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp42)):(iSlow2?(fSlow4 * (fTemp3 * fTemp42)):(fSlow4 * (fTemp1 * fTemp42)))))) + (fSlow117 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp43)):(iSlow2?(fSlow4 * (fTemp3 * fTemp43)):(fSlow4 * (fTemp1 * fTemp43)))))) + (fSlow120 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp44)):(iSlow2?(fSlow4 * (fTemp3 * fTemp44)):(fSlow4 * (fTemp1 * fTemp44)))))) + (fSlow122 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp45)):(iSlow2?(fSlow4 * (fTemp3 * fTemp45)):(fSlow4 * (fTemp1 * fTemp45))))))) + ((((((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow123 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp46)):(iSlow2?(fSlow4 * (fTemp3 * fTemp46)):(fSlow4 * (fTemp1 * fTemp46)))))) + (fSlow124 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp47)):(iSlow2?(fSlow4 * (fTemp3 * fTemp47)):(fSlow4 * (fTemp1 * fTemp47)))))) + (fSlow125 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp48)):(iSlow2?(fSlow4 * (fTemp3 * fTemp48)):(fSlow4 * (fTemp1 * fTemp48)))))) + (fSlow15 * ((fSlow128 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp49)):(iSlow2?(fSlow4 * (fTemp3 * fTemp49)):(fSlow4 * (fTemp1 * fTemp49))))) + (fSlow130 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp50)):(iSlow2?(fSlow4 * (fTemp3 * fTemp50)):(fSlow4 * (fTemp1 * fTemp50)))))))) + (fSlow132 * (((((((((((((fConst72 * ((fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp51)):(iSlow2?(fSlow4 * (fTemp3 * fTemp51)):(fSlow4 * (fTemp1 * fTemp51))))) + (fSlow14 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp52)):(iSlow2?(fSlow4 * (fTemp3 * fTemp52)):(fSlow4 * (fTemp1 * fTemp52))))))) + (fSlow133 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp53)):(iSlow2?(fSlow4 * (fTemp3 * fTemp53)):(fSlow4 * (fTemp1 * fTemp53)))))) + (fSlow134 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp54)):(iSlow2?(fSlow4 * (fTemp3 * fTemp54)):(fSlow4 * (fTemp1 * fTemp54)))))) + (fSlow136 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp55)):(iSlow2?(fSlow4 * (fTemp3 * fTemp55)):(fSlow4 * (fTemp1 * fTemp55)))))) + (fSlow138 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp56)):(iSlow2?(fSlow4 * (fTemp3 * fTemp56)):(fSlow4 * (fTemp1 * fTemp56)))))) + (fSlow141 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp57)):(iSlow2?(fSlow4 * (fTemp3 * fTemp57)):(fSlow4 * (fTemp1 * fTemp57)))))) + (fSlow143 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp58)):(iSlow2?(fSlow4 * (fTemp3 * fTemp58)):(fSlow4 * (fTemp1 * fTemp58)))))) + (fSlow145 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp59)):(iSlow2?(fSlow4 * (fTemp3 * fTemp59)):(fSlow4 * (fTemp1 * fTemp59)))))) + (fSlow147 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp60)):(iSlow2?(fSlow4 * (fTemp3 * fTemp60)):(fSlow4 * (fTemp1 * fTemp60)))))) + (fSlow150 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp61)):(iSlow2?(fSlow4 * (fTemp3 * fTemp61)):(fSlow4 * (fTemp1 * fTemp61)))))) + (fSlow152 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp62)):(iSlow2?(fSlow4 * (fTemp3 * fTemp62)):(fSlow4 * (fTemp1 * fTemp62)))))) + (fSlow154 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp63)):(iSlow2?(fSlow4 * (fTemp3 * fTemp63)):(fSlow4 * (fTemp1 * fTemp63)))))) + (fSlow156 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp64)):(iSlow2?(fSlow4 * (fTemp3 * fTemp64)):(fSlow4 * (fTemp1 * fTemp64)))))))))))) + (fSlow158 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp65)):(iSlow2?(fSlow4 * (fTemp3 * fTemp65)):(fSlow4 * (fTemp1 * fTemp65)))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp66))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp51):(iSlow2?(fSlow4 * (fRec1[0] * fTemp51)):(fSlow4 * (fRec0[0] * fTemp51)))) + (fSlow159 * fTemp66))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp28):(iSlow2?(fSlow4 * (fRec1[0] * fTemp28)):(fSlow4 * (fRec0[0] * fTemp28)))) + (fSlow160 * fTemp66))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp52):(iSlow2?(fSlow4 * (fRec1[0] * fTemp52)):(fSlow4 * (fRec0[0] * fTemp52)))) + (fSlow161 * fTemp66))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow162 * fTemp66))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp53):(iSlow2?(fSlow4 * (fRec1[0] * fTemp53)):(fSlow4 * (fRec0[0] * fTemp53)))) + (fSlow163 * fTemp66))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp46):(iSlow2?(fSlow4 * (fRec1[0] * fTemp46)):(fSlow4 * (fRec0[0] * fTemp46)))) + (fSlow164 * fTemp66))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp54):(iSlow2?(fSlow4 * (fRec1[0] * fTemp54)):(fSlow4 * (fRec0[0] * fTemp54)))) + (fSlow165 * fTemp66))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow166 * fTemp66))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp36):(iSlow2?(fSlow4 * (fRec1[0] * fTemp36)):(fSlow4 * (fRec0[0] * fTemp36)))) + (fSlow167 * fTemp66))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow168 * fTemp66))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp55):(iSlow2?(fSlow4 * (fRec1[0] * fTemp55)):(fSlow4 * (fRec0[0] * fTemp55)))) + (fSlow169 * fTemp66))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp29):(iSlow2?(fSlow4 * (fRec1[0] * fTemp29)):(fSlow4 * (fRec0[0] * fTemp29)))) + (fSlow170 * fTemp66))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp56):(iSlow2?(fSlow4 * (fRec1[0] * fTemp56)):(fSlow4 * (fRec0[0] * fTemp56)))) + (fSlow171 * fTemp66))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow172 * fTemp66))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp37):(iSlow2?(fSlow4 * (fRec1[0] * fTemp37)):(fSlow4 * (fRec0[0] * fTemp37)))) + (fSlow173 * fTemp66))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow174 * fTemp66))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp38):(iSlow2?(fSlow4 * (fRec1[0] * fTemp38)):(fSlow4 * (fRec0[0] * fTemp38)))) + (fSlow175 * fTemp66))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow176 * fTemp66))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp57):(iSlow2?(fSlow4 * (fRec1[0] * fTemp57)):(fSlow4 * (fRec0[0] * fTemp57)))) + (fSlow177 * fTemp66))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp47):(iSlow2?(fSlow4 * (fRec1[0] * fTemp47)):(fSlow4 * (fRec0[0] * fTemp47)))) + (fSlow178 * fTemp66))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp58):(iSlow2?(fSlow4 * (fRec1[0] * fTemp58)):(fSlow4 * (fRec0[0] * fTemp58)))) + (fSlow179 * fTemp66))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow180 * fTemp66))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp39):(iSlow2?(fSlow4 * (fRec1[0] * fTemp39)):(fSlow4 * (fRec0[0] * fTemp39)))) + (fSlow181 * fTemp66))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow182 * fTemp66))); + output25[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow183 * fTemp66))); + output26[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp30):(iSlow2?(fSlow4 * (fRec1[0] * fTemp30)):(fSlow4 * (fRec0[0] * fTemp30)))) + (fSlow184 * fTemp66))); + output27[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp40):(iSlow2?(fSlow4 * (fRec1[0] * fTemp40)):(fSlow4 * (fRec0[0] * fTemp40)))) + (fSlow185 * fTemp66))); + output28[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow186 * fTemp66))); + output29[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp59):(iSlow2?(fSlow4 * (fRec1[0] * fTemp59)):(fSlow4 * (fRec0[0] * fTemp59)))) + (fSlow187 * fTemp66))); + output30[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp31):(iSlow2?(fSlow4 * (fRec1[0] * fTemp31)):(fSlow4 * (fRec0[0] * fTemp31)))) + (fSlow188 * fTemp66))); + output31[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp60):(iSlow2?(fSlow4 * (fRec1[0] * fTemp60)):(fSlow4 * (fRec0[0] * fTemp60)))) + (fSlow189 * fTemp66))); + output32[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow190 * fTemp66))); + output33[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp41):(iSlow2?(fSlow4 * (fRec1[0] * fTemp41)):(fSlow4 * (fRec0[0] * fTemp41)))) + (fSlow191 * fTemp66))); + output34[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp32):(iSlow2?(fSlow4 * (fRec1[0] * fTemp32)):(fSlow4 * (fRec0[0] * fTemp32)))) + (fSlow192 * fTemp66))); + output35[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow193 * fTemp66))); + output36[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow194 * fTemp66))); + output37[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow195 * fTemp66))); + output38[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow196 * fTemp66))); + output39[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp42):(iSlow2?(fSlow4 * (fRec1[0] * fTemp42)):(fSlow4 * (fRec0[0] * fTemp42)))) + (fSlow197 * fTemp66))); + output40[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow198 * fTemp66))); + output41[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp61):(iSlow2?(fSlow4 * (fRec1[0] * fTemp61)):(fSlow4 * (fRec0[0] * fTemp61)))) + (fSlow199 * fTemp66))); + output42[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp48):(iSlow2?(fSlow4 * (fRec1[0] * fTemp48)):(fSlow4 * (fRec0[0] * fTemp48)))) + (fSlow200 * fTemp66))); + output43[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp62):(iSlow2?(fSlow4 * (fRec1[0] * fTemp62)):(fSlow4 * (fRec0[0] * fTemp62)))) + (fSlow201 * fTemp66))); + output44[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow202 * fTemp66))); + output45[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp43):(iSlow2?(fSlow4 * (fRec1[0] * fTemp43)):(fSlow4 * (fRec0[0] * fTemp43)))) + (fSlow203 * fTemp66))); + output46[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow204 * fTemp66))); + output47[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow205 * fTemp66))); + output48[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow206 * fTemp66))); + output49[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp49):(iSlow2?(fSlow4 * (fRec1[0] * fTemp49)):(fSlow4 * (fRec0[0] * fTemp49)))) + (fSlow207 * fTemp66))); + output50[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp33):(iSlow2?(fSlow4 * (fRec1[0] * fTemp33)):(fSlow4 * (fRec0[0] * fTemp33)))) + (fSlow208 * fTemp66))); + output51[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow209 * fTemp66))); + output52[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow210 * fTemp66))); + output53[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp44):(iSlow2?(fSlow4 * (fRec1[0] * fTemp44)):(fSlow4 * (fRec0[0] * fTemp44)))) + (fSlow211 * fTemp66))); + output54[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp50):(iSlow2?(fSlow4 * (fRec1[0] * fTemp50)):(fSlow4 * (fRec0[0] * fTemp50)))) + (fSlow212 * fTemp66))); + output55[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp63):(iSlow2?(fSlow4 * (fRec1[0] * fTemp63)):(fSlow4 * (fRec0[0] * fTemp63)))) + (fSlow213 * fTemp66))); + output56[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp34):(iSlow2?(fSlow4 * (fRec1[0] * fTemp34)):(fSlow4 * (fRec0[0] * fTemp34)))) + (fSlow214 * fTemp66))); + output57[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp64):(iSlow2?(fSlow4 * (fRec1[0] * fTemp64)):(fSlow4 * (fRec0[0] * fTemp64)))) + (fSlow215 * fTemp66))); + output58[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow216 * fTemp66))); + output59[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp45):(iSlow2?(fSlow4 * (fRec1[0] * fTemp45)):(fSlow4 * (fRec0[0] * fTemp45)))) + (fSlow217 * fTemp66))); + output60[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp35):(iSlow2?(fSlow4 * (fRec1[0] * fTemp35)):(fSlow4 * (fRec0[0] * fTemp35)))) + (fSlow218 * fTemp66))); + output61[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp27):(iSlow2?(fSlow4 * (fRec1[0] * fTemp27)):(fSlow4 * (fRec0[0] * fTemp27)))) + (fSlow219 * fTemp66))); + output62[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow220 * fTemp66))); + output63[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp65):(iSlow2?(fSlow4 * (fRec1[0] * fTemp65)):(fSlow4 * (fRec0[0] * fTemp65)))) + (fSlow221 * fTemp66))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA8.cpp b/source/HOAUGens/HOABeamDirac2HOA8.cpp new file mode 100644 index 0000000000..bf3ec0e628 --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA8.cpp @@ -0,0 +1,2756 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA8" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} +double mydsp_faustpower3_f(double value) { + return ((value * value) * value); + +} +double mydsp_faustpower4_f(double value) { + return (((value * value) * value) * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + FAUSTFLOAT fVslider1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fVslider2; + FAUSTFLOAT fVslider3; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA8"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA8"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 81; + + } + virtual int getNumOutputs() { + return 81; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(2.5)); + fConst3 = double(tgamma(1.0)); + fConst4 = double(tgamma(5.0)); + fConst5 = sqrt((5.0 * (fConst3 / fConst4))); + fConst6 = double(tgamma(2.0)); + fConst7 = double(tgamma(6.0)); + fConst8 = sqrt((7.0 * (fConst6 / fConst7))); + fConst9 = (31.915382432114615 * fConst8); + fConst10 = (15.957691216057308 * fConst8); + fConst11 = double(tgamma(9.0)); + fConst12 = double(tgamma(4.5)); + fConst13 = (sqrt((9.0 * (fConst3 / fConst11))) * fConst12); + fConst14 = (25.532305945691693 * fConst13); + fConst15 = double(tgamma(3.0)); + fConst16 = double(tgamma(7.0)); + fConst17 = (sqrt((9.0 * (fConst15 / fConst16))) * fConst2); + fConst18 = (1.4142135623730951 * fConst17); + fConst19 = (0.70710678118654757 * fConst17); + fConst20 = (12.766152972845846 * fConst13); + fConst21 = double(tgamma(4.0)); + fConst22 = double(tgamma(8.0)); + fConst23 = (sqrt((11.0 * (fConst21 / fConst22))) * fConst2); + fConst24 = (0.94280904158206336 * fConst23); + fConst25 = (0.47140452079103168 * fConst23); + fConst26 = double(tgamma(13.0)); + fConst27 = double(tgamma(6.5)); + fConst28 = (sqrt((13.0 * (fConst3 / fConst26))) * fConst27); + fConst29 = (51.064611891383386 * fConst28); + fConst30 = double(tgamma(11.0)); + fConst31 = (sqrt((13.0 * (fConst15 / fConst30))) * fConst12); + fConst32 = (1.4142135623730951 * fConst31); + fConst33 = (sqrt((13.0 * (fConst4 / fConst11))) * fConst2); + fConst34 = (0.70710678118654757 * fConst33); + fConst35 = (0.35355339059327379 * fConst33); + fConst36 = (0.70710678118654757 * fConst31); + fConst37 = double(tgamma(12.0)); + fConst38 = (sqrt((15.0 * (fConst21 / fConst37))) * fConst12); + fConst39 = (0.94280904158206336 * fConst38); + fConst40 = double(tgamma(10.0)); + fConst41 = (sqrt((15.0 * (fConst7 / fConst40))) * fConst2); + fConst42 = (0.28284271247461906 * fConst41); + fConst43 = double(tgamma(14.0)); + fConst44 = (sqrt((15.0 * (fConst6 / fConst43))) * fConst27); + fConst45 = (663.83995458798404 * fConst44); + fConst46 = double(tgamma(15.0)); + fConst47 = (sqrt((17.0 * (fConst15 / fConst46))) * fConst27); + fConst48 = (0.70710678118654757 * fConst47); + fConst49 = (sqrt((17.0 * (fConst16 / fConst30))) * fConst2); + fConst50 = (0.47140452079103168 * fConst49); + fConst51 = (0.23570226039551584 * fConst49); + fConst52 = (sqrt((17.0 * (fConst4 / fConst26))) * fConst12); + fConst53 = (0.35355339059327379 * fConst52); + fConst54 = (sqrt((17.0 * (fConst3 / double(tgamma(17.0))))) * double(tgamma(8.5))); + fConst55 = (204.25844756553354 * fConst54); + fConst56 = double(tgamma(7.5)); + fConst57 = sqrt((15.0 * (fConst3 / fConst46))); + fConst58 = (102.12922378276677 * fConst57); + fConst59 = sqrt((17.0 * (fConst6 / double(tgamma(16.0))))); + fConst60 = (1531.9383567415016 * fConst59); + fConst61 = double(tgamma(5.5)); + fConst62 = sqrt((11.0 * (fConst3 / fConst30))); + fConst63 = (25.532305945691693 * fConst62); + fConst64 = sqrt((13.0 * (fConst6 / fConst37))); + fConst65 = (280.85536540260864 * fConst64); + fConst66 = sqrt((15.0 * (fConst15 / fConst26))); + fConst67 = (0.70710678118654757 * fConst66); + fConst68 = sqrt((17.0 * (fConst21 / fConst43))); + fConst69 = (0.47140452079103168 * fConst68); + fConst70 = double(tgamma(3.5)); + fConst71 = sqrt((7.0 * (fConst3 / fConst16))); + fConst72 = (6.3830764864229232 * fConst71); + fConst73 = sqrt((9.0 * (fConst6 / fConst22))); + fConst74 = (44.681535404960464 * fConst73); + fConst75 = sqrt((11.0 * (fConst15 / fConst11))); + fConst76 = (0.70710678118654757 * fConst75); + fConst77 = sqrt((13.0 * (fConst21 / fConst40))); + fConst78 = (0.47140452079103168 * fConst77); + fConst79 = sqrt((15.0 * (fConst4 / fConst30))); + fConst80 = (0.35355339059327379 * fConst79); + fConst81 = sqrt((17.0 * (fConst7 / fConst37))); + fConst82 = (0.28284271247461906 * fConst81); + fConst83 = double(tgamma(1.5)); + fConst84 = sqrt((3.0 * (fConst3 / fConst15))); + fConst85 = (1.5957691216057308 * fConst84); + fConst86 = sqrt((5.0 * (fConst6 / fConst21))); + fConst87 = (4.7873073648171927 * fConst86); + fConst88 = sqrt((7.0 * (fConst15 / fConst4))); + fConst89 = (0.70710678118654757 * fConst88); + fConst90 = sqrt((9.0 * (fConst21 / fConst7))); + fConst91 = (0.47140452079103168 * fConst90); + fConst92 = sqrt((11.0 * (fConst4 / fConst16))); + fConst93 = (0.35355339059327379 * fConst92); + fConst94 = sqrt((13.0 * (fConst7 / fConst22))); + fConst95 = (0.28284271247461906 * fConst94); + fConst96 = sqrt((15.0 * (fConst16 / fConst11))); + fConst97 = (0.23570226039551584 * fConst96); + fConst98 = sqrt((17.0 * (fConst22 / fConst40))); + fConst99 = (0.20203050891044216 * fConst98); + fConst100 = (fConst57 * fConst56); + fConst101 = (102.12922378276677 * fConst100); + fConst102 = (0.56568542494923812 * fConst41); + fConst103 = (408.51689513106709 * fConst54); + fConst104 = (0.70710678118654757 * fConst52); + fConst105 = (sqrt((11.0 * (fConst6 / fConst40))) * fConst12); + fConst106 = (229.79075351122526 * fConst105); + fConst107 = (114.89537675561263 * fConst105); + fConst108 = (0.47140452079103168 * fConst38); + fConst109 = (0.12698727186848197 * (fConst84 * fConst83)); + fConst110 = (fConst5 * fConst2); + fConst111 = (0.50794908747392786 * fConst110); + fConst112 = (0.3809618156054459 * (fConst86 * fConst83)); + fConst113 = (0.25397454373696393 * fConst110); + fConst114 = (0.50794908747392786 * (fConst71 * fConst70)); + fConst115 = (fConst8 * fConst2); + fConst116 = (2.5397454373696391 * fConst115); + fConst117 = (0.056269769759819135 * (fConst88 * fConst83)); + fConst118 = (1.2698727186848195 * fConst115); + fConst119 = (2.0317963498957115 * fConst13); + fConst120 = (3.5556436123174948 * (fConst73 * fConst70)); + fConst121 = (0.11253953951963827 * fConst17); + fConst122 = (0.037513179839879424 * (fConst90 * fConst83)); + fConst123 = (0.056269769759819135 * fConst17); + fConst124 = (1.0158981749478557 * fConst13); + fConst125 = (2.0317963498957115 * (fConst62 * fConst61)); + fConst126 = (18.286167149061402 * fConst105); + fConst127 = (0.056269769759819135 * (fConst75 * fConst70)); + fConst128 = (0.075026359679758847 * fConst23); + fConst129 = (0.028134884879909568 * (fConst92 * fConst83)); + fConst130 = (0.037513179839879424 * fConst23); + fConst131 = (9.1430835745307011 * fConst105); + fConst132 = (4.0635926997914229 * fConst28); + fConst133 = (22.349759848852827 * (fConst64 * fConst61)); + fConst134 = (0.11253953951963827 * fConst31); + fConst135 = (0.037513179839879424 * (fConst77 * fConst70)); + fConst136 = (0.056269769759819135 * fConst33); + fConst137 = (0.022507907903927659 * (fConst94 * fConst83)); + fConst138 = (0.028134884879909568 * fConst33); + fConst139 = (0.056269769759819135 * fConst31); + fConst140 = (8.1271853995828458 * fConst100); + fConst141 = (52.826705097288496 * fConst44); + fConst142 = (0.056269769759819135 * (fConst66 * fConst61)); + fConst143 = (0.075026359679758847 * fConst38); + fConst144 = (0.028134884879909568 * (fConst79 * fConst70)); + fConst145 = (0.045015815807855318 * fConst41); + fConst146 = (0.018756589919939712 * (fConst96 * fConst83)); + fConst147 = (0.022507907903927659 * fConst41); + fConst148 = (0.037513179839879424 * fConst38); + fConst149 = (32.508741598331383 * fConst54); + fConst150 = (121.90778099374268 * (fConst59 * fConst56)); + fConst151 = (0.056269769759819135 * fConst47); + fConst152 = (0.037513179839879424 * (fConst68 * fConst61)); + fConst153 = (0.056269769759819135 * fConst52); + fConst154 = (0.022507907903927659 * (fConst81 * fConst70)); + fConst155 = (0.037513179839879424 * fConst49); + fConst156 = (0.016077077074234038 * (fConst98 * fConst83)); + fConst157 = (0.018756589919939712 * fConst49); + fConst158 = (0.028134884879909568 * fConst52); + fConst159 = (16.254370799165692 * fConst54); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "4", ""); + ui_interface->declare(&fVslider3, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider3, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = mydsp_faustpower2_f(fSlow10); + double fSlow12 = (1.0 - fSlow11); + double fSlow13 = double(fVslider2); + double fSlow14 = cos(fSlow13); + double fSlow15 = sin(fSlow13); + double fSlow16 = (6.3830764864229232 * (fSlow14 * fSlow15)); + double fSlow17 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider3)))); + double fSlow18 = mydsp_faustpower2_f(fSlow14); + double fSlow19 = ((2.0 * fSlow18) + -1.0); + double fSlow20 = (3.1915382432114616 * fSlow19); + double fSlow21 = (fSlow14 * fSlow10); + double fSlow22 = (fConst9 * (fSlow21 * fSlow15)); + double fSlow23 = (fSlow19 * fSlow10); + double fSlow24 = (fConst10 * fSlow23); + double fSlow25 = ((4.0 * fSlow18) + -1.0); + double fSlow26 = (fSlow25 + -1.0); + double fSlow27 = (fSlow26 * fSlow14); + double fSlow28 = (fConst14 * ((fSlow27 * fSlow12) * fSlow15)); + double fSlow29 = ((78.986541696685876 * fSlow11) + -11.283791670955125); + double fSlow30 = (fSlow29 * fSlow14); + double fSlow31 = (fConst18 * (fSlow30 * fSlow15)); + double fSlow32 = (fSlow19 * fSlow29); + double fSlow33 = (fConst19 * fSlow32); + double fSlow34 = ((2.0 * fSlow19) + -1.0); + double fSlow35 = (1.0 - fSlow34); + double fSlow36 = (1.0 - (2.0 * (fSlow35 * fSlow18))); + double fSlow37 = (fConst20 * (fSlow36 * fSlow12)); + double fSlow38 = ((4.5 * fSlow29) + -67.702750025730751); + double fSlow39 = ((fSlow38 * fSlow14) * fSlow10); + double fSlow40 = (fConst24 * (fSlow39 * fSlow15)); + double fSlow41 = ((fSlow19 * fSlow38) * fSlow10); + double fSlow42 = (fConst25 * fSlow41); + double fSlow43 = (1.0 - fSlow26); + double fSlow44 = (1.0 - (4.0 * (fSlow43 * fSlow18))); + double fSlow45 = (fSlow26 - fSlow44); + double fSlow46 = (0.0 - (2.0 * (fSlow45 * fSlow14))); + double fSlow47 = mydsp_faustpower2_f(fSlow12); + double fSlow48 = (fConst29 * ((fSlow46 * fSlow47) * fSlow15)); + double fSlow49 = ((893.67630033964599 * fSlow11) + -81.24330003087691); + double fSlow50 = ((fSlow26 * fSlow49) * fSlow14); + double fSlow51 = (fConst32 * ((fSlow50 * fSlow12) * fSlow15)); + double fSlow52 = ((3.6666666666666665 * (fSlow38 * fSlow11)) - (3.5 * fSlow29)); + double fSlow53 = (fSlow52 * fSlow14); + double fSlow54 = (fConst34 * (fSlow53 * fSlow15)); + double fSlow55 = (fSlow19 * fSlow52); + double fSlow56 = (fConst35 * fSlow55); + double fSlow57 = (fSlow36 * fSlow49); + double fSlow58 = (fConst36 * (fSlow57 * fSlow12)); + double fSlow59 = ((2.0 * fSlow36) - fSlow34); + double fSlow60 = (fSlow35 + fSlow59); + double fSlow61 = ((2.0 * (fSlow60 * fSlow18)) + -1.0); + double fSlow62 = (fConst29 * (fSlow61 * fSlow47)); + double fSlow63 = ((6.5 * fSlow49) + -812.43300030876912); + double fSlow64 = (((fSlow26 * fSlow63) * fSlow14) * fSlow10); + double fSlow65 = (fConst39 * ((fSlow64 * fSlow12) * fSlow15)); + double fSlow66 = ((3.25 * fSlow52) - (2.6666666666666665 * fSlow38)); + double fSlow67 = ((fSlow19 * fSlow66) * fSlow10); + double fSlow68 = (fConst42 * fSlow67); + double fSlow69 = (fSlow61 * fSlow10); + double fSlow70 = (fConst45 * (fSlow69 * fSlow47)); + double fSlow71 = ((7041.0860026759983 * fSlow11) + -469.40573351173322); + double fSlow72 = (fSlow46 * fSlow71); + double fSlow73 = (fConst48 * ((fSlow72 * fSlow47) * fSlow15)); + double fSlow74 = ((3.0 * (fSlow66 * fSlow11)) - (2.25 * fSlow52)); + double fSlow75 = (fSlow74 * fSlow14); + double fSlow76 = (fConst50 * (fSlow75 * fSlow15)); + double fSlow77 = (fSlow19 * fSlow74); + double fSlow78 = (fConst51 * fSlow77); + double fSlow79 = ((5.0 * (fSlow63 * fSlow11)) - (5.5 * fSlow49)); + double fSlow80 = (fSlow36 * fSlow79); + double fSlow81 = (fConst53 * (fSlow80 * fSlow12)); + double fSlow82 = (fSlow61 * fSlow71); + double fSlow83 = (fConst48 * (fSlow82 * fSlow47)); + double fSlow84 = ((2.0 * fSlow61) - fSlow59); + double fSlow85 = (1.0 - (2.0 * ((fSlow60 - fSlow84) * fSlow18))); + double fSlow86 = mydsp_faustpower3_f(fSlow12); + double fSlow87 = (fConst55 * (fSlow85 * fSlow86)); + double fSlow88 = pow(fSlow12, 3.5); + double fSlow89 = (fConst56 * fSlow88); + double fSlow90 = (fSlow84 * fSlow14); + double fSlow91 = (fConst58 * fSlow90); + double fSlow92 = ((((2.0 * fSlow46) + (4.0 * (fSlow43 * fSlow14))) * fSlow14) + -1.0); + double fSlow93 = (fSlow92 * fSlow10); + double fSlow94 = (fConst60 * (fSlow93 * fSlow15)); + double fSlow95 = (fSlow90 * fSlow10); + double fSlow96 = (fConst60 * fSlow95); + double fSlow97 = pow(fSlow12, 2.5); + double fSlow98 = (fConst61 * fSlow97); + double fSlow99 = (fSlow44 * fSlow15); + double fSlow100 = (fSlow59 * fSlow14); + double fSlow101 = (fSlow44 * fSlow10); + double fSlow102 = (fConst65 * (fSlow101 * fSlow15)); + double fSlow103 = (fSlow100 * fSlow10); + double fSlow104 = (fConst65 * fSlow103); + double fSlow105 = ((2581.7315343145328 * fSlow11) + -198.59473340881021); + double fSlow106 = (fSlow44 * fSlow105); + double fSlow107 = (fConst67 * (fSlow106 * fSlow15)); + double fSlow108 = ((fSlow59 * fSlow105) * fSlow14); + double fSlow109 = (fConst67 * fSlow108); + double fSlow110 = ((7.5 * fSlow105) + -2383.1368009057223); + double fSlow111 = ((fSlow44 * fSlow110) * fSlow10); + double fSlow112 = (fConst69 * (fSlow111 * fSlow15)); + double fSlow113 = (((fSlow59 * fSlow110) * fSlow14) * fSlow10); + double fSlow114 = (fConst69 * fSlow113); + double fSlow115 = pow(fSlow12, 1.5); + double fSlow116 = (fConst70 * fSlow115); + double fSlow117 = (fSlow25 * fSlow15); + double fSlow118 = (fSlow34 * fSlow14); + double fSlow119 = (fSlow25 * fSlow10); + double fSlow120 = (fConst74 * (fSlow119 * fSlow15)); + double fSlow121 = (fSlow118 * fSlow10); + double fSlow122 = (fConst74 * fSlow121); + double fSlow123 = ((284.35155010806915 * fSlow11) + -31.594616678674353); + double fSlow124 = (fSlow25 * fSlow123); + double fSlow125 = (fConst76 * (fSlow124 * fSlow15)); + double fSlow126 = ((fSlow34 * fSlow123) * fSlow14); + double fSlow127 = (fConst76 * fSlow126); + double fSlow128 = ((5.5 * fSlow123) + -252.75693342939482); + double fSlow129 = ((fSlow25 * fSlow128) * fSlow10); + double fSlow130 = (fConst78 * (fSlow129 * fSlow15)); + double fSlow131 = (((fSlow34 * fSlow128) * fSlow14) * fSlow10); + double fSlow132 = (fConst78 * fSlow131); + double fSlow133 = ((4.333333333333333 * (fSlow128 * fSlow11)) - (4.5 * fSlow123)); + double fSlow134 = (fSlow25 * fSlow133); + double fSlow135 = (fConst80 * (fSlow134 * fSlow15)); + double fSlow136 = ((fSlow34 * fSlow133) * fSlow14); + double fSlow137 = (fConst80 * fSlow136); + double fSlow138 = ((3.75 * fSlow133) - (3.333333333333333 * fSlow128)); + double fSlow139 = ((fSlow25 * fSlow138) * fSlow10); + double fSlow140 = (fConst82 * (fSlow139 * fSlow15)); + double fSlow141 = (((fSlow34 * fSlow138) * fSlow14) * fSlow10); + double fSlow142 = (fConst82 * fSlow141); + double fSlow143 = pow(fSlow12, 0.5); + double fSlow144 = (fConst83 * fSlow143); + double fSlow145 = (fConst87 * (fSlow10 * fSlow15)); + double fSlow146 = (fConst87 * fSlow21); + double fSlow147 = ((16.925687506432688 * fSlow11) + -3.3851375012865379); + double fSlow148 = (fConst89 * (fSlow147 * fSlow15)); + double fSlow149 = (fSlow147 * fSlow14); + double fSlow150 = (fConst89 * fSlow149); + double fSlow151 = ((3.5 * fSlow147) + -13.540550005146152); + double fSlow152 = (fSlow151 * fSlow10); + double fSlow153 = (fConst91 * (fSlow152 * fSlow15)); + double fSlow154 = ((fSlow151 * fSlow14) * fSlow10); + double fSlow155 = (fConst91 * fSlow154); + double fSlow156 = ((3.0 * (fSlow151 * fSlow11)) - (2.5 * fSlow147)); + double fSlow157 = (fConst93 * (fSlow156 * fSlow15)); + double fSlow158 = (fSlow156 * fSlow14); + double fSlow159 = (fConst93 * fSlow158); + double fSlow160 = ((2.75 * fSlow156) - (2.0 * fSlow151)); + double fSlow161 = (fSlow160 * fSlow10); + double fSlow162 = (fConst95 * (fSlow161 * fSlow15)); + double fSlow163 = ((fSlow160 * fSlow14) * fSlow10); + double fSlow164 = (fConst95 * fSlow163); + double fSlow165 = ((2.6000000000000001 * (fSlow160 * fSlow11)) - (1.75 * fSlow156)); + double fSlow166 = (fConst97 * (fSlow165 * fSlow15)); + double fSlow167 = (fSlow165 * fSlow14); + double fSlow168 = (fConst97 * fSlow167); + double fSlow169 = ((2.5 * fSlow165) - (1.6000000000000001 * fSlow160)); + double fSlow170 = (fSlow169 * fSlow10); + double fSlow171 = (fConst99 * (fSlow170 * fSlow15)); + double fSlow172 = ((fSlow169 * fSlow14) * fSlow10); + double fSlow173 = (fConst99 * fSlow172); + double fSlow174 = ((3.0 * fSlow11) + -1.0); + double fSlow175 = ((2.5 * fSlow174) + -2.0); + double fSlow176 = ((2.333333333333333 * (fSlow175 * fSlow11)) - (1.5 * fSlow174)); + double fSlow177 = ((2.25 * fSlow176) - (1.3333333333333333 * fSlow175)); + double fSlow178 = ((2.2000000000000002 * (fSlow177 * fSlow11)) - (1.25 * fSlow176)); + double fSlow179 = ((2.1666666666666665 * fSlow178) - (1.2000000000000002 * fSlow177)); + double fSlow180 = ((2.1428571428571428 * (fSlow179 * fSlow11)) - (1.1666666666666665 * fSlow178)); + double fSlow181 = (0.51538820320220757 * fSlow180); + double fSlow182 = (fSlow92 * fSlow88); + double fSlow183 = (fConst101 * fSlow182); + double fSlow184 = (((fSlow66 * fSlow14) * fSlow10) * fSlow12); + double fSlow185 = (fConst102 * fSlow184); + double fSlow186 = mydsp_faustpower4_f(fSlow12); + double fSlow187 = (((fSlow45 + fSlow92) * fSlow14) * fSlow186); + double fSlow188 = (fConst103 * fSlow187); + double fSlow189 = (((fSlow26 * fSlow79) * fSlow14) * fSlow47); + double fSlow190 = (fConst104 * fSlow189); + double fSlow191 = (1.1180339887498949 * fSlow174); + double fSlow192 = (0.75 * fSlow176); + double fSlow193 = (0.60092521257733145 * fSlow178); + double fSlow194 = (0.88191710368819687 * fSlow175); + double fSlow195 = ((fSlow27 * fSlow47) * fSlow15); + double fSlow196 = (fConst106 * fSlow195); + double fSlow197 = (0.66332495807108005 * fSlow177); + double fSlow198 = (fSlow36 * fSlow47); + double fSlow199 = (fConst107 * fSlow198); + double fSlow200 = ((fSlow46 * fSlow86) * fSlow15); + double fSlow201 = (fConst45 * fSlow200); + double fSlow202 = (0.55328333517248807 * fSlow179); + double fSlow203 = (fSlow36 * fSlow63); + double fSlow204 = (fConst108 * (fSlow203 * fSlow47)); + double fSlow205 = (fConst109 * (fSlow143 * fSlow15)); + double fSlow206 = (0.13783222385544802 * fSlow10); + double fSlow207 = (fConst109 * (fSlow14 * fSlow143)); + double fSlow208 = (fConst111 * ((fSlow14 * fSlow12) * fSlow15)); + double fSlow209 = (fConst112 * ((fSlow10 * fSlow143) * fSlow15)); + double fSlow210 = (0.088970317927147144 * fSlow174); + double fSlow211 = (fConst112 * (fSlow21 * fSlow143)); + double fSlow212 = (fConst113 * (fSlow19 * fSlow12)); + double fSlow213 = (fConst114 * ((fSlow25 * fSlow115) * fSlow15)); + double fSlow214 = (fConst116 * ((fSlow21 * fSlow12) * fSlow15)); + double fSlow215 = (fConst117 * ((fSlow147 * fSlow143) * fSlow15)); + double fSlow216 = (0.070180733224632072 * (fSlow175 * fSlow10)); + double fSlow217 = (fConst117 * (fSlow149 * fSlow143)); + double fSlow218 = (fConst118 * (fSlow23 * fSlow12)); + double fSlow219 = (fConst114 * (fSlow118 * fSlow115)); + double fSlow220 = (fConst119 * fSlow195); + double fSlow221 = (fConst120 * ((fSlow119 * fSlow115) * fSlow15)); + double fSlow222 = (fConst121 * ((fSlow30 * fSlow12) * fSlow15)); + double fSlow223 = (fConst122 * ((fSlow152 * fSlow143) * fSlow15)); + double fSlow224 = (0.059683103659460751 * fSlow176); + double fSlow225 = (fConst122 * (fSlow154 * fSlow143)); + double fSlow226 = (fConst123 * (fSlow32 * fSlow12)); + double fSlow227 = (fConst120 * (fSlow121 * fSlow115)); + double fSlow228 = (fConst124 * fSlow198); + double fSlow229 = (fConst125 * ((fSlow44 * fSlow97) * fSlow15)); + double fSlow230 = (fConst126 * (((fSlow27 * fSlow10) * fSlow47) * fSlow15)); + double fSlow231 = (fConst127 * ((fSlow124 * fSlow115) * fSlow15)); + double fSlow232 = (fConst128 * ((fSlow39 * fSlow12) * fSlow15)); + double fSlow233 = (fConst129 * ((fSlow156 * fSlow143) * fSlow15)); + double fSlow234 = (0.052785722976618307 * (fSlow177 * fSlow10)); + double fSlow235 = (fConst129 * (fSlow158 * fSlow143)); + double fSlow236 = (fConst130 * (fSlow41 * fSlow12)); + double fSlow237 = (fConst127 * (fSlow126 * fSlow115)); + double fSlow238 = (fConst131 * ((fSlow36 * fSlow10) * fSlow47)); + double fSlow239 = (fConst125 * (fSlow100 * fSlow97)); + double fSlow240 = (fConst132 * fSlow200); + double fSlow241 = (fConst133 * ((fSlow101 * fSlow97) * fSlow15)); + double fSlow242 = (fConst134 * ((fSlow50 * fSlow47) * fSlow15)); + double fSlow243 = (fConst135 * ((fSlow129 * fSlow115) * fSlow15)); + double fSlow244 = (fConst136 * ((fSlow53 * fSlow12) * fSlow15)); + double fSlow245 = (fConst137 * ((fSlow161 * fSlow143) * fSlow15)); + double fSlow246 = (0.047820109005115151 * fSlow178); + double fSlow247 = (fConst137 * (fSlow163 * fSlow143)); + double fSlow248 = (fConst138 * (fSlow55 * fSlow12)); + double fSlow249 = (fConst135 * (fSlow131 * fSlow115)); + double fSlow250 = (fConst139 * (fSlow57 * fSlow47)); + double fSlow251 = (fConst133 * (fSlow103 * fSlow97)); + double fSlow252 = (fConst132 * (fSlow61 * fSlow86)); + double fSlow253 = (fConst140 * (fSlow182 * fSlow15)); + double fSlow254 = (fConst141 * (((fSlow46 * fSlow10) * fSlow86) * fSlow15)); + double fSlow255 = (fConst142 * ((fSlow106 * fSlow97) * fSlow15)); + double fSlow256 = (fConst143 * ((fSlow64 * fSlow47) * fSlow15)); + double fSlow257 = (fConst144 * ((fSlow134 * fSlow115) * fSlow15)); + double fSlow258 = (fConst145 * (fSlow184 * fSlow15)); + double fSlow259 = (fConst146 * ((fSlow165 * fSlow143) * fSlow15)); + double fSlow260 = (0.044028888861535699 * (fSlow179 * fSlow10)); + double fSlow261 = (fConst146 * (fSlow167 * fSlow143)); + double fSlow262 = (fConst147 * (fSlow67 * fSlow12)); + double fSlow263 = (fConst144 * (fSlow136 * fSlow115)); + double fSlow264 = (fConst148 * ((fSlow203 * fSlow10) * fSlow47)); + double fSlow265 = (fConst142 * (fSlow108 * fSlow97)); + double fSlow266 = (fConst141 * (fSlow69 * fSlow86)); + double fSlow267 = (fConst140 * (fSlow90 * fSlow88)); + double fSlow268 = (fConst149 * (fSlow187 * fSlow15)); + double fSlow269 = (fConst150 * ((fSlow93 * fSlow88) * fSlow15)); + double fSlow270 = (fConst151 * ((fSlow72 * fSlow86) * fSlow15)); + double fSlow271 = (fConst152 * ((fSlow111 * fSlow97) * fSlow15)); + double fSlow272 = (fConst153 * (fSlow189 * fSlow15)); + double fSlow273 = (fConst154 * ((fSlow139 * fSlow115) * fSlow15)); + double fSlow274 = (fConst155 * ((fSlow75 * fSlow12) * fSlow15)); + double fSlow275 = (fConst156 * ((fSlow170 * fSlow143) * fSlow15)); + double fSlow276 = (0.041013290075440773 * fSlow180); + double fSlow277 = (fConst156 * (fSlow172 * fSlow143)); + double fSlow278 = (fConst157 * (fSlow77 * fSlow12)); + double fSlow279 = (fConst154 * (fSlow141 * fSlow115)); + double fSlow280 = (fConst158 * (fSlow80 * fSlow47)); + double fSlow281 = (fConst152 * (fSlow113 * fSlow97)); + double fSlow282 = (fConst151 * (fSlow82 * fSlow86)); + double fSlow283 = (fConst150 * (fSlow95 * fSlow88)); + double fSlow284 = (fConst159 * (fSlow85 * fSlow186)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow17 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input4[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input8[i]); + double fTemp5 = double(input10[i]); + double fTemp6 = double(input14[i]); + double fTemp7 = double(input16[i]); + double fTemp8 = double(input18[i]); + double fTemp9 = double(input22[i]); + double fTemp10 = double(input24[i]); + double fTemp11 = double(input28[i]); + double fTemp12 = double(input32[i]); + double fTemp13 = double(input36[i]); + double fTemp14 = double(input38[i]); + double fTemp15 = double(input40[i]); + double fTemp16 = double(input44[i]); + double fTemp17 = double(input46[i]); + double fTemp18 = double(input48[i]); + double fTemp19 = double(input52[i]); + double fTemp20 = double(input58[i]); + double fTemp21 = double(input62[i]); + double fTemp22 = double(input66[i]); + double fTemp23 = double(input70[i]); + double fTemp24 = double(input74[i]); + double fTemp25 = double(input76[i]); + double fTemp26 = double(input78[i]); + double fTemp27 = double(input80[i]); + double fTemp28 = double(input63[i]); + double fTemp29 = double(input65[i]); + double fTemp30 = double(input79[i]); + double fTemp31 = double(input25[i]); + double fTemp32 = double(input35[i]); + double fTemp33 = double(input37[i]); + double fTemp34 = double(input47[i]); + double fTemp35 = double(input51[i]); + double fTemp36 = double(input61[i]); + double fTemp37 = double(input67[i]); + double fTemp38 = double(input77[i]); + double fTemp39 = double(input9[i]); + double fTemp40 = double(input15[i]); + double fTemp41 = double(input17[i]); + double fTemp42 = double(input23[i]); + double fTemp43 = double(input27[i]); + double fTemp44 = double(input33[i]); + double fTemp45 = double(input39[i]); + double fTemp46 = double(input45[i]); + double fTemp47 = double(input53[i]); + double fTemp48 = double(input59[i]); + double fTemp49 = double(input69[i]); + double fTemp50 = double(input75[i]); + double fTemp51 = double(input1[i]); + double fTemp52 = double(input3[i]); + double fTemp53 = double(input5[i]); + double fTemp54 = double(input7[i]); + double fTemp55 = double(input11[i]); + double fTemp56 = double(input13[i]); + double fTemp57 = double(input19[i]); + double fTemp58 = double(input21[i]); + double fTemp59 = double(input29[i]); + double fTemp60 = double(input31[i]); + double fTemp61 = double(input41[i]); + double fTemp62 = double(input43[i]); + double fTemp63 = double(input55[i]); + double fTemp64 = double(input57[i]); + double fTemp65 = double(input71[i]); + double fTemp66 = double(input73[i]); + double fTemp67 = double(input72[i]); + double fTemp68 = double(input49[i]); + double fTemp69 = double(input54[i]); + double fTemp70 = double(input64[i]); + double fTemp71 = double(input68[i]); + double fTemp72 = double(input6[i]); + double fTemp73 = double(input20[i]); + double fTemp74 = double(input42[i]); + double fTemp75 = double(input2[i]); + double fTemp76 = double(input12[i]); + double fTemp77 = double(input26[i]); + double fTemp78 = double(input30[i]); + double fTemp79 = double(input34[i]); + double fTemp80 = double(input50[i]); + double fTemp81 = double(input56[i]); + double fTemp82 = double(input60[i]); + double fTemp83 = ((fSlow12 * ((((((((((((((((((((((fConst2 * (((fConst5 * ((fSlow16 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow20 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4))))))) + (fSlow22 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5)))))) + (fSlow24 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6))))))) + (fSlow28 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow31 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow33 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow37 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10)))))) + (fSlow40 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11)))))) + (fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow48 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow51 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14)))))) + (fSlow54 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15)))))) + (fSlow56 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16)))))) + (fSlow58 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))) + (fSlow62 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18)))))) + (fSlow65 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19)))))) + (fSlow68 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20)))))) + (fSlow70 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21)))))) + (fSlow73 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22)))))) + (fSlow76 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23)))))) + (fSlow78 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24)))))) + (fSlow81 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25)))))) + (fSlow83 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26)))))) + (fSlow87 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp27)):(iSlow2?(fSlow4 * (fTemp3 * fTemp27)):(fSlow4 * (fTemp1 * fTemp27))))))) + ((fSlow89 * (((fSlow91 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp28)):(iSlow2?(fSlow4 * (fTemp3 * fTemp28)):(fSlow4 * (fTemp1 * fTemp28))))) + (fSlow94 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp29)):(iSlow2?(fSlow4 * (fTemp3 * fTemp29)):(fSlow4 * (fTemp1 * fTemp29)))))) + (fSlow96 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp30)):(iSlow2?(fSlow4 * (fTemp3 * fTemp30)):(fSlow4 * (fTemp1 * fTemp30))))))) + ((fSlow98 * (((((((fConst63 * ((fSlow99 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp31)):(iSlow2?(fSlow4 * (fTemp3 * fTemp31)):(fSlow4 * (fTemp1 * fTemp31))))) + (fSlow100 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp32)):(iSlow2?(fSlow4 * (fTemp3 * fTemp32)):(fSlow4 * (fTemp1 * fTemp32))))))) + (fSlow102 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp33)):(iSlow2?(fSlow4 * (fTemp3 * fTemp33)):(fSlow4 * (fTemp1 * fTemp33)))))) + (fSlow104 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp34)):(iSlow2?(fSlow4 * (fTemp3 * fTemp34)):(fSlow4 * (fTemp1 * fTemp34)))))) + (fSlow107 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp35)):(iSlow2?(fSlow4 * (fTemp3 * fTemp35)):(fSlow4 * (fTemp1 * fTemp35)))))) + (fSlow109 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp36)):(iSlow2?(fSlow4 * (fTemp3 * fTemp36)):(fSlow4 * (fTemp1 * fTemp36)))))) + (fSlow112 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp37)):(iSlow2?(fSlow4 * (fTemp3 * fTemp37)):(fSlow4 * (fTemp1 * fTemp37)))))) + (fSlow114 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp38)):(iSlow2?(fSlow4 * (fTemp3 * fTemp38)):(fSlow4 * (fTemp1 * fTemp38))))))) + ((fSlow116 * (((((((((((fConst72 * ((fSlow117 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp39)):(iSlow2?(fSlow4 * (fTemp3 * fTemp39)):(fSlow4 * (fTemp1 * fTemp39))))) + (fSlow118 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp40)):(iSlow2?(fSlow4 * (fTemp3 * fTemp40)):(fSlow4 * (fTemp1 * fTemp40))))))) + (fSlow120 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp41)):(iSlow2?(fSlow4 * (fTemp3 * fTemp41)):(fSlow4 * (fTemp1 * fTemp41)))))) + (fSlow122 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp42)):(iSlow2?(fSlow4 * (fTemp3 * fTemp42)):(fSlow4 * (fTemp1 * fTemp42)))))) + (fSlow125 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp43)):(iSlow2?(fSlow4 * (fTemp3 * fTemp43)):(fSlow4 * (fTemp1 * fTemp43)))))) + (fSlow127 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp44)):(iSlow2?(fSlow4 * (fTemp3 * fTemp44)):(fSlow4 * (fTemp1 * fTemp44)))))) + (fSlow130 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp45)):(iSlow2?(fSlow4 * (fTemp3 * fTemp45)):(fSlow4 * (fTemp1 * fTemp45)))))) + (fSlow132 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp46)):(iSlow2?(fSlow4 * (fTemp3 * fTemp46)):(fSlow4 * (fTemp1 * fTemp46)))))) + (fSlow135 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp47)):(iSlow2?(fSlow4 * (fTemp3 * fTemp47)):(fSlow4 * (fTemp1 * fTemp47)))))) + (fSlow137 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp48)):(iSlow2?(fSlow4 * (fTemp3 * fTemp48)):(fSlow4 * (fTemp1 * fTemp48)))))) + (fSlow140 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp49)):(iSlow2?(fSlow4 * (fTemp3 * fTemp49)):(fSlow4 * (fTemp1 * fTemp49)))))) + (fSlow142 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp50)):(iSlow2?(fSlow4 * (fTemp3 * fTemp50)):(fSlow4 * (fTemp1 * fTemp50))))))) + ((fSlow144 * (((((((((((((((fConst85 * ((fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp51)):(iSlow2?(fSlow4 * (fTemp3 * fTemp51)):(fSlow4 * (fTemp1 * fTemp51))))) + (fSlow14 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp52)):(iSlow2?(fSlow4 * (fTemp3 * fTemp52)):(fSlow4 * (fTemp1 * fTemp52))))))) + (fSlow145 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp53)):(iSlow2?(fSlow4 * (fTemp3 * fTemp53)):(fSlow4 * (fTemp1 * fTemp53)))))) + (fSlow146 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp54)):(iSlow2?(fSlow4 * (fTemp3 * fTemp54)):(fSlow4 * (fTemp1 * fTemp54)))))) + (fSlow148 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp55)):(iSlow2?(fSlow4 * (fTemp3 * fTemp55)):(fSlow4 * (fTemp1 * fTemp55)))))) + (fSlow150 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp56)):(iSlow2?(fSlow4 * (fTemp3 * fTemp56)):(fSlow4 * (fTemp1 * fTemp56)))))) + (fSlow153 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp57)):(iSlow2?(fSlow4 * (fTemp3 * fTemp57)):(fSlow4 * (fTemp1 * fTemp57)))))) + (fSlow155 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp58)):(iSlow2?(fSlow4 * (fTemp3 * fTemp58)):(fSlow4 * (fTemp1 * fTemp58)))))) + (fSlow157 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp59)):(iSlow2?(fSlow4 * (fTemp3 * fTemp59)):(fSlow4 * (fTemp1 * fTemp59)))))) + (fSlow159 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp60)):(iSlow2?(fSlow4 * (fTemp3 * fTemp60)):(fSlow4 * (fTemp1 * fTemp60)))))) + (fSlow162 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp61)):(iSlow2?(fSlow4 * (fTemp3 * fTemp61)):(fSlow4 * (fTemp1 * fTemp61)))))) + (fSlow164 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp62)):(iSlow2?(fSlow4 * (fTemp3 * fTemp62)):(fSlow4 * (fTemp1 * fTemp62)))))) + (fSlow166 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp63)):(iSlow2?(fSlow4 * (fTemp3 * fTemp63)):(fSlow4 * (fTemp1 * fTemp63)))))) + (fSlow168 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp64)):(iSlow2?(fSlow4 * (fTemp3 * fTemp64)):(fSlow4 * (fTemp1 * fTemp64)))))) + (fSlow171 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp65)):(iSlow2?(fSlow4 * (fTemp3 * fTemp65)):(fSlow4 * (fTemp1 * fTemp65)))))) + (fSlow173 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp66)):(iSlow2?(fSlow4 * (fTemp3 * fTemp66)):(fSlow4 * (fTemp1 * fTemp66))))))) + ((fSlow181 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp67)):(iSlow2?(fSlow4 * (fTemp3 * fTemp67)):(fSlow4 * (fTemp1 * fTemp67))))) + ((fSlow15 * ((((fSlow183 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp68)):(iSlow2?(fSlow4 * (fTemp3 * fTemp68)):(fSlow4 * (fTemp1 * fTemp68))))) + (fSlow185 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp69)):(iSlow2?(fSlow4 * (fTemp3 * fTemp69)):(fSlow4 * (fTemp1 * fTemp69)))))) + (fSlow188 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp70)):(iSlow2?(fSlow4 * (fTemp3 * fTemp70)):(fSlow4 * (fTemp1 * fTemp70)))))) + (fSlow190 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp71)):(iSlow2?(fSlow4 * (fTemp3 * fTemp71)):(fSlow4 * (fTemp1 * fTemp71))))))) + (((((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow191 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp72)):(iSlow2?(fSlow4 * (fTemp3 * fTemp72)):(fSlow4 * (fTemp1 * fTemp72)))))) + (fSlow192 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp73)):(iSlow2?(fSlow4 * (fTemp3 * fTemp73)):(fSlow4 * (fTemp1 * fTemp73)))))) + (fSlow193 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp74)):(iSlow2?(fSlow4 * (fTemp3 * fTemp74)):(fSlow4 * (fTemp1 * fTemp74)))))) + (fSlow10 * ((((((((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp75)):(iSlow2?(fSlow4 * (fTemp3 * fTemp75)):(fSlow4 * (fTemp1 * fTemp75))))) + (fSlow194 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp76)):(iSlow2?(fSlow4 * (fTemp3 * fTemp76)):(fSlow4 * (fTemp1 * fTemp76)))))) + (fSlow196 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp77)):(iSlow2?(fSlow4 * (fTemp3 * fTemp77)):(fSlow4 * (fTemp1 * fTemp77)))))) + (fSlow197 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp78)):(iSlow2?(fSlow4 * (fTemp3 * fTemp78)):(fSlow4 * (fTemp1 * fTemp78)))))) + (fSlow199 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp79)):(iSlow2?(fSlow4 * (fTemp3 * fTemp79)):(fSlow4 * (fTemp1 * fTemp79)))))) + (fSlow201 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp80)):(iSlow2?(fSlow4 * (fTemp3 * fTemp80)):(fSlow4 * (fTemp1 * fTemp80)))))) + (fSlow202 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp81)):(iSlow2?(fSlow4 * (fTemp3 * fTemp81)):(fSlow4 * (fTemp1 * fTemp81)))))) + (fSlow204 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp82)):(iSlow2?(fSlow4 * (fTemp3 * fTemp82)):(fSlow4 * (fTemp1 * fTemp82))))))))))))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp83))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp51):(iSlow2?(fSlow4 * (fRec1[0] * fTemp51)):(fSlow4 * (fRec0[0] * fTemp51)))) + (fSlow205 * fTemp83))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp75):(iSlow2?(fSlow4 * (fRec1[0] * fTemp75)):(fSlow4 * (fRec0[0] * fTemp75)))) + (fSlow206 * fTemp83))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp52):(iSlow2?(fSlow4 * (fRec1[0] * fTemp52)):(fSlow4 * (fRec0[0] * fTemp52)))) + (fSlow207 * fTemp83))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow208 * fTemp83))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp53):(iSlow2?(fSlow4 * (fRec1[0] * fTemp53)):(fSlow4 * (fRec0[0] * fTemp53)))) + (fSlow209 * fTemp83))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp72):(iSlow2?(fSlow4 * (fRec1[0] * fTemp72)):(fSlow4 * (fRec0[0] * fTemp72)))) + (fSlow210 * fTemp83))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp54):(iSlow2?(fSlow4 * (fRec1[0] * fTemp54)):(fSlow4 * (fRec0[0] * fTemp54)))) + (fSlow211 * fTemp83))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow212 * fTemp83))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp39):(iSlow2?(fSlow4 * (fRec1[0] * fTemp39)):(fSlow4 * (fRec0[0] * fTemp39)))) + (fSlow213 * fTemp83))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow214 * fTemp83))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp55):(iSlow2?(fSlow4 * (fRec1[0] * fTemp55)):(fSlow4 * (fRec0[0] * fTemp55)))) + (fSlow215 * fTemp83))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp76):(iSlow2?(fSlow4 * (fRec1[0] * fTemp76)):(fSlow4 * (fRec0[0] * fTemp76)))) + (fSlow216 * fTemp83))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp56):(iSlow2?(fSlow4 * (fRec1[0] * fTemp56)):(fSlow4 * (fRec0[0] * fTemp56)))) + (fSlow217 * fTemp83))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow218 * fTemp83))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp40):(iSlow2?(fSlow4 * (fRec1[0] * fTemp40)):(fSlow4 * (fRec0[0] * fTemp40)))) + (fSlow219 * fTemp83))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow220 * fTemp83))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp41):(iSlow2?(fSlow4 * (fRec1[0] * fTemp41)):(fSlow4 * (fRec0[0] * fTemp41)))) + (fSlow221 * fTemp83))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow222 * fTemp83))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp57):(iSlow2?(fSlow4 * (fRec1[0] * fTemp57)):(fSlow4 * (fRec0[0] * fTemp57)))) + (fSlow223 * fTemp83))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp73):(iSlow2?(fSlow4 * (fRec1[0] * fTemp73)):(fSlow4 * (fRec0[0] * fTemp73)))) + (fSlow224 * fTemp83))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp58):(iSlow2?(fSlow4 * (fRec1[0] * fTemp58)):(fSlow4 * (fRec0[0] * fTemp58)))) + (fSlow225 * fTemp83))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow226 * fTemp83))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp42):(iSlow2?(fSlow4 * (fRec1[0] * fTemp42)):(fSlow4 * (fRec0[0] * fTemp42)))) + (fSlow227 * fTemp83))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow228 * fTemp83))); + output25[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp31):(iSlow2?(fSlow4 * (fRec1[0] * fTemp31)):(fSlow4 * (fRec0[0] * fTemp31)))) + (fSlow229 * fTemp83))); + output26[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp77):(iSlow2?(fSlow4 * (fRec1[0] * fTemp77)):(fSlow4 * (fRec0[0] * fTemp77)))) + (fSlow230 * fTemp83))); + output27[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp43):(iSlow2?(fSlow4 * (fRec1[0] * fTemp43)):(fSlow4 * (fRec0[0] * fTemp43)))) + (fSlow231 * fTemp83))); + output28[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow232 * fTemp83))); + output29[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp59):(iSlow2?(fSlow4 * (fRec1[0] * fTemp59)):(fSlow4 * (fRec0[0] * fTemp59)))) + (fSlow233 * fTemp83))); + output30[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp78):(iSlow2?(fSlow4 * (fRec1[0] * fTemp78)):(fSlow4 * (fRec0[0] * fTemp78)))) + (fSlow234 * fTemp83))); + output31[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp60):(iSlow2?(fSlow4 * (fRec1[0] * fTemp60)):(fSlow4 * (fRec0[0] * fTemp60)))) + (fSlow235 * fTemp83))); + output32[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow236 * fTemp83))); + output33[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp44):(iSlow2?(fSlow4 * (fRec1[0] * fTemp44)):(fSlow4 * (fRec0[0] * fTemp44)))) + (fSlow237 * fTemp83))); + output34[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp79):(iSlow2?(fSlow4 * (fRec1[0] * fTemp79)):(fSlow4 * (fRec0[0] * fTemp79)))) + (fSlow238 * fTemp83))); + output35[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp32):(iSlow2?(fSlow4 * (fRec1[0] * fTemp32)):(fSlow4 * (fRec0[0] * fTemp32)))) + (fSlow239 * fTemp83))); + output36[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow240 * fTemp83))); + output37[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp33):(iSlow2?(fSlow4 * (fRec1[0] * fTemp33)):(fSlow4 * (fRec0[0] * fTemp33)))) + (fSlow241 * fTemp83))); + output38[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow242 * fTemp83))); + output39[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp45):(iSlow2?(fSlow4 * (fRec1[0] * fTemp45)):(fSlow4 * (fRec0[0] * fTemp45)))) + (fSlow243 * fTemp83))); + output40[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow244 * fTemp83))); + output41[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp61):(iSlow2?(fSlow4 * (fRec1[0] * fTemp61)):(fSlow4 * (fRec0[0] * fTemp61)))) + (fSlow245 * fTemp83))); + output42[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp74):(iSlow2?(fSlow4 * (fRec1[0] * fTemp74)):(fSlow4 * (fRec0[0] * fTemp74)))) + (fSlow246 * fTemp83))); + output43[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp62):(iSlow2?(fSlow4 * (fRec1[0] * fTemp62)):(fSlow4 * (fRec0[0] * fTemp62)))) + (fSlow247 * fTemp83))); + output44[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow248 * fTemp83))); + output45[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp46):(iSlow2?(fSlow4 * (fRec1[0] * fTemp46)):(fSlow4 * (fRec0[0] * fTemp46)))) + (fSlow249 * fTemp83))); + output46[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow250 * fTemp83))); + output47[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp34):(iSlow2?(fSlow4 * (fRec1[0] * fTemp34)):(fSlow4 * (fRec0[0] * fTemp34)))) + (fSlow251 * fTemp83))); + output48[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow252 * fTemp83))); + output49[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp68):(iSlow2?(fSlow4 * (fRec1[0] * fTemp68)):(fSlow4 * (fRec0[0] * fTemp68)))) + (fSlow253 * fTemp83))); + output50[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp80):(iSlow2?(fSlow4 * (fRec1[0] * fTemp80)):(fSlow4 * (fRec0[0] * fTemp80)))) + (fSlow254 * fTemp83))); + output51[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp35):(iSlow2?(fSlow4 * (fRec1[0] * fTemp35)):(fSlow4 * (fRec0[0] * fTemp35)))) + (fSlow255 * fTemp83))); + output52[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow256 * fTemp83))); + output53[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp47):(iSlow2?(fSlow4 * (fRec1[0] * fTemp47)):(fSlow4 * (fRec0[0] * fTemp47)))) + (fSlow257 * fTemp83))); + output54[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp69):(iSlow2?(fSlow4 * (fRec1[0] * fTemp69)):(fSlow4 * (fRec0[0] * fTemp69)))) + (fSlow258 * fTemp83))); + output55[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp63):(iSlow2?(fSlow4 * (fRec1[0] * fTemp63)):(fSlow4 * (fRec0[0] * fTemp63)))) + (fSlow259 * fTemp83))); + output56[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp81):(iSlow2?(fSlow4 * (fRec1[0] * fTemp81)):(fSlow4 * (fRec0[0] * fTemp81)))) + (fSlow260 * fTemp83))); + output57[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp64):(iSlow2?(fSlow4 * (fRec1[0] * fTemp64)):(fSlow4 * (fRec0[0] * fTemp64)))) + (fSlow261 * fTemp83))); + output58[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow262 * fTemp83))); + output59[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp48):(iSlow2?(fSlow4 * (fRec1[0] * fTemp48)):(fSlow4 * (fRec0[0] * fTemp48)))) + (fSlow263 * fTemp83))); + output60[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp82):(iSlow2?(fSlow4 * (fRec1[0] * fTemp82)):(fSlow4 * (fRec0[0] * fTemp82)))) + (fSlow264 * fTemp83))); + output61[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp36):(iSlow2?(fSlow4 * (fRec1[0] * fTemp36)):(fSlow4 * (fRec0[0] * fTemp36)))) + (fSlow265 * fTemp83))); + output62[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow266 * fTemp83))); + output63[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp28):(iSlow2?(fSlow4 * (fRec1[0] * fTemp28)):(fSlow4 * (fRec0[0] * fTemp28)))) + (fSlow267 * fTemp83))); + output64[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp70):(iSlow2?(fSlow4 * (fRec1[0] * fTemp70)):(fSlow4 * (fRec0[0] * fTemp70)))) + (fSlow268 * fTemp83))); + output65[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp29):(iSlow2?(fSlow4 * (fRec1[0] * fTemp29)):(fSlow4 * (fRec0[0] * fTemp29)))) + (fSlow269 * fTemp83))); + output66[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow270 * fTemp83))); + output67[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp37):(iSlow2?(fSlow4 * (fRec1[0] * fTemp37)):(fSlow4 * (fRec0[0] * fTemp37)))) + (fSlow271 * fTemp83))); + output68[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp71):(iSlow2?(fSlow4 * (fRec1[0] * fTemp71)):(fSlow4 * (fRec0[0] * fTemp71)))) + (fSlow272 * fTemp83))); + output69[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp49):(iSlow2?(fSlow4 * (fRec1[0] * fTemp49)):(fSlow4 * (fRec0[0] * fTemp49)))) + (fSlow273 * fTemp83))); + output70[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow274 * fTemp83))); + output71[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp65):(iSlow2?(fSlow4 * (fRec1[0] * fTemp65)):(fSlow4 * (fRec0[0] * fTemp65)))) + (fSlow275 * fTemp83))); + output72[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp67):(iSlow2?(fSlow4 * (fRec1[0] * fTemp67)):(fSlow4 * (fRec0[0] * fTemp67)))) + (fSlow276 * fTemp83))); + output73[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp66):(iSlow2?(fSlow4 * (fRec1[0] * fTemp66)):(fSlow4 * (fRec0[0] * fTemp66)))) + (fSlow277 * fTemp83))); + output74[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow278 * fTemp83))); + output75[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp50):(iSlow2?(fSlow4 * (fRec1[0] * fTemp50)):(fSlow4 * (fRec0[0] * fTemp50)))) + (fSlow279 * fTemp83))); + output76[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow280 * fTemp83))); + output77[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp38):(iSlow2?(fSlow4 * (fRec1[0] * fTemp38)):(fSlow4 * (fRec0[0] * fTemp38)))) + (fSlow281 * fTemp83))); + output78[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow282 * fTemp83))); + output79[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp30):(iSlow2?(fSlow4 * (fRec1[0] * fTemp30)):(fSlow4 * (fRec0[0] * fTemp30)))) + (fSlow283 * fTemp83))); + output80[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp27):(iSlow2?(fSlow4 * (fRec1[0] * fTemp27)):(fSlow4 * (fRec0[0] * fTemp27)))) + (fSlow284 * fTemp83))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamDirac2HOA9.cpp b/source/HOAUGens/HOABeamDirac2HOA9.cpp new file mode 100644 index 0000000000..668a8b00ca --- /dev/null +++ b/source/HOAUGens/HOABeamDirac2HOA9.cpp @@ -0,0 +1,3122 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamDirac2HOA9" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} +double mydsp_faustpower3_f(double value) { + return ((value * value) * value); + +} +double mydsp_faustpower4_f(double value) { + return (((value * value) * value) * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fEntry0; + double fRec0[2]; + double fRec1[2]; + FAUSTFLOAT fVslider0; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + double fRec2[2]; + double fRec3[2]; + double fRec4[2]; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + FAUSTFLOAT fVslider3; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamDirac2HOA9"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamDirac2HOA9"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 100; + + } + virtual int getNumOutputs() { + return 100; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (1.0 / fConst0); + fConst2 = double(tgamma(2.0)); + fConst3 = double(tgamma(10.0)); + fConst4 = double(tgamma(4.5)); + fConst5 = (sqrt((11.0 * (fConst2 / fConst3))) * fConst4); + fConst6 = (229.79075351122526 * fConst5); + fConst7 = (114.89537675561263 * fConst5); + fConst8 = double(tgamma(14.0)); + fConst9 = double(tgamma(6.5)); + fConst10 = (sqrt((15.0 * (fConst2 / fConst8))) * fConst9); + fConst11 = (663.83995458798404 * fConst10); + fConst12 = double(tgamma(4.0)); + fConst13 = double(tgamma(12.0)); + fConst14 = (sqrt((15.0 * (fConst12 / fConst13))) * fConst4); + fConst15 = (0.47140452079103168 * fConst14); + fConst16 = double(tgamma(8.5)); + fConst17 = (sqrt((19.0 * (fConst2 / double(tgamma(18.0))))) * fConst16); + fConst18 = (6944.7872172281404 * fConst17); + fConst19 = double(tgamma(8.0)); + fConst20 = double(tgamma(2.5)); + fConst21 = (sqrt((19.0 * (fConst19 / fConst13))) * fConst20); + fConst22 = (0.40406101782088433 * fConst21); + fConst23 = double(tgamma(6.0)); + fConst24 = (sqrt((19.0 * (fConst23 / fConst8))) * fConst4); + fConst25 = (0.28284271247461906 * fConst24); + fConst26 = (3472.3936086140702 * fConst17); + fConst27 = double(tgamma(7.5)); + fConst28 = double(tgamma(1.0)); + fConst29 = double(tgamma(15.0)); + fConst30 = sqrt((15.0 * (fConst28 / fConst29))); + fConst31 = (102.12922378276677 * fConst30); + fConst32 = double(tgamma(16.0)); + fConst33 = sqrt((17.0 * (fConst2 / fConst32))); + fConst34 = (1531.9383567415016 * fConst33); + fConst35 = double(tgamma(3.0)); + fConst36 = double(tgamma(17.0)); + fConst37 = sqrt((19.0 * (fConst35 / fConst36))); + fConst38 = (0.70710678118654757 * fConst37); + fConst39 = double(tgamma(5.0)); + fConst40 = sqrt((5.0 * (fConst28 / fConst39))); + fConst41 = sqrt((7.0 * (fConst2 / fConst23))); + fConst42 = (31.915382432114615 * fConst41); + fConst43 = (15.957691216057308 * fConst41); + fConst44 = double(tgamma(9.0)); + fConst45 = (sqrt((9.0 * (fConst28 / fConst44))) * fConst4); + fConst46 = (25.532305945691693 * fConst45); + fConst47 = double(tgamma(7.0)); + fConst48 = (sqrt((9.0 * (fConst35 / fConst47))) * fConst20); + fConst49 = (1.4142135623730951 * fConst48); + fConst50 = (0.70710678118654757 * fConst48); + fConst51 = (12.766152972845846 * fConst45); + fConst52 = (sqrt((11.0 * (fConst12 / fConst19))) * fConst20); + fConst53 = (0.94280904158206336 * fConst52); + fConst54 = (0.47140452079103168 * fConst52); + fConst55 = double(tgamma(13.0)); + fConst56 = (sqrt((13.0 * (fConst28 / fConst55))) * fConst9); + fConst57 = (51.064611891383386 * fConst56); + fConst58 = double(tgamma(11.0)); + fConst59 = (sqrt((13.0 * (fConst35 / fConst58))) * fConst4); + fConst60 = (1.4142135623730951 * fConst59); + fConst61 = (sqrt((13.0 * (fConst39 / fConst44))) * fConst20); + fConst62 = (0.70710678118654757 * fConst61); + fConst63 = (0.35355339059327379 * fConst61); + fConst64 = (0.70710678118654757 * fConst59); + fConst65 = (0.94280904158206336 * fConst14); + fConst66 = (sqrt((15.0 * (fConst23 / fConst3))) * fConst20); + fConst67 = (0.28284271247461906 * fConst66); + fConst68 = (sqrt((17.0 * (fConst35 / fConst29))) * fConst9); + fConst69 = (0.70710678118654757 * fConst68); + fConst70 = (sqrt((17.0 * (fConst47 / fConst58))) * fConst20); + fConst71 = (0.47140452079103168 * fConst70); + fConst72 = (0.23570226039551584 * fConst70); + fConst73 = (sqrt((17.0 * (fConst39 / fConst55))) * fConst4); + fConst74 = (0.35355339059327379 * fConst73); + fConst75 = (sqrt((17.0 * (fConst28 / fConst36))) * fConst16); + fConst76 = (204.25844756553354 * fConst75); + fConst77 = (sqrt((19.0 * (fConst12 / fConst32))) * fConst9); + fConst78 = (0.47140452079103168 * fConst77); + fConst79 = (0.20203050891044216 * fConst21); + fConst80 = double(tgamma(5.5)); + fConst81 = sqrt((11.0 * (fConst28 / fConst58))); + fConst82 = (25.532305945691693 * fConst81); + fConst83 = sqrt((13.0 * (fConst2 / fConst13))); + fConst84 = (280.85536540260864 * fConst83); + fConst85 = sqrt((15.0 * (fConst35 / fConst55))); + fConst86 = (0.70710678118654757 * fConst85); + fConst87 = sqrt((17.0 * (fConst12 / fConst8))); + fConst88 = (0.47140452079103168 * fConst87); + fConst89 = sqrt((19.0 * (fConst39 / fConst29))); + fConst90 = (0.35355339059327379 * fConst89); + fConst91 = double(tgamma(3.5)); + fConst92 = sqrt((7.0 * (fConst28 / fConst47))); + fConst93 = (6.3830764864229232 * fConst92); + fConst94 = sqrt((9.0 * (fConst2 / fConst19))); + fConst95 = (44.681535404960464 * fConst94); + fConst96 = sqrt((11.0 * (fConst35 / fConst44))); + fConst97 = (0.70710678118654757 * fConst96); + fConst98 = sqrt((13.0 * (fConst12 / fConst3))); + fConst99 = (0.47140452079103168 * fConst98); + fConst100 = sqrt((15.0 * (fConst39 / fConst58))); + fConst101 = (0.35355339059327379 * fConst100); + fConst102 = sqrt((17.0 * (fConst23 / fConst13))); + fConst103 = (0.28284271247461906 * fConst102); + fConst104 = sqrt((19.0 * (fConst47 / fConst55))); + fConst105 = (0.23570226039551584 * fConst104); + fConst106 = double(tgamma(1.5)); + fConst107 = sqrt((3.0 * (fConst28 / fConst35))); + fConst108 = (1.5957691216057308 * fConst107); + fConst109 = sqrt((5.0 * (fConst2 / fConst12))); + fConst110 = (4.7873073648171927 * fConst109); + fConst111 = sqrt((7.0 * (fConst35 / fConst39))); + fConst112 = (0.70710678118654757 * fConst111); + fConst113 = sqrt((9.0 * (fConst12 / fConst23))); + fConst114 = (0.47140452079103168 * fConst113); + fConst115 = sqrt((11.0 * (fConst39 / fConst47))); + fConst116 = (0.35355339059327379 * fConst115); + fConst117 = sqrt((13.0 * (fConst23 / fConst19))); + fConst118 = (0.28284271247461906 * fConst117); + fConst119 = sqrt((15.0 * (fConst47 / fConst44))); + fConst120 = (0.23570226039551584 * fConst119); + fConst121 = sqrt((17.0 * (fConst19 / fConst3))); + fConst122 = (0.20203050891044216 * fConst121); + fConst123 = sqrt((19.0 * (fConst44 / fConst58))); + fConst124 = (0.17677669529663689 * fConst123); + fConst125 = (fConst30 * fConst27); + fConst126 = (102.12922378276677 * fConst125); + fConst127 = (0.56568542494923812 * fConst66); + fConst128 = (408.51689513106709 * fConst75); + fConst129 = (0.70710678118654757 * fConst73); + fConst130 = (sqrt((19.0 * (fConst28 / double(tgamma(19.0))))) * double(tgamma(9.5))); + fConst131 = (408.51689513106709 * fConst130); + fConst132 = (0.56568542494923812 * fConst24); + fConst133 = (0.12698727186848197 * (fConst107 * fConst106)); + fConst134 = (fConst40 * fConst20); + fConst135 = (0.50794908747392786 * fConst134); + fConst136 = (0.3809618156054459 * (fConst109 * fConst106)); + fConst137 = (0.25397454373696393 * fConst134); + fConst138 = (0.50794908747392786 * (fConst92 * fConst91)); + fConst139 = (fConst41 * fConst20); + fConst140 = (2.5397454373696391 * fConst139); + fConst141 = (0.056269769759819135 * (fConst111 * fConst106)); + fConst142 = (1.2698727186848195 * fConst139); + fConst143 = (2.0317963498957115 * fConst45); + fConst144 = (3.5556436123174948 * (fConst94 * fConst91)); + fConst145 = (0.11253953951963827 * fConst48); + fConst146 = (0.037513179839879424 * (fConst113 * fConst106)); + fConst147 = (0.056269769759819135 * fConst48); + fConst148 = (1.0158981749478557 * fConst45); + fConst149 = (2.0317963498957115 * (fConst81 * fConst80)); + fConst150 = (18.286167149061402 * fConst5); + fConst151 = (0.056269769759819135 * (fConst96 * fConst91)); + fConst152 = (0.075026359679758847 * fConst52); + fConst153 = (0.028134884879909568 * (fConst115 * fConst106)); + fConst154 = (0.037513179839879424 * fConst52); + fConst155 = (9.1430835745307011 * fConst5); + fConst156 = (4.0635926997914229 * fConst56); + fConst157 = (22.349759848852827 * (fConst83 * fConst80)); + fConst158 = (0.11253953951963827 * fConst59); + fConst159 = (0.037513179839879424 * (fConst98 * fConst91)); + fConst160 = (0.056269769759819135 * fConst61); + fConst161 = (0.022507907903927659 * (fConst117 * fConst106)); + fConst162 = (0.028134884879909568 * fConst61); + fConst163 = (0.056269769759819135 * fConst59); + fConst164 = (8.1271853995828458 * fConst125); + fConst165 = (52.826705097288496 * fConst10); + fConst166 = (0.056269769759819135 * (fConst85 * fConst80)); + fConst167 = (0.075026359679758847 * fConst14); + fConst168 = (0.028134884879909568 * (fConst100 * fConst91)); + fConst169 = (0.045015815807855318 * fConst66); + fConst170 = (0.018756589919939712 * (fConst119 * fConst106)); + fConst171 = (0.022507907903927659 * fConst66); + fConst172 = (0.037513179839879424 * fConst14); + fConst173 = (32.508741598331383 * fConst75); + fConst174 = (121.90778099374268 * (fConst33 * fConst27)); + fConst175 = (0.056269769759819135 * fConst68); + fConst176 = (0.037513179839879424 * (fConst87 * fConst80)); + fConst177 = (0.056269769759819135 * fConst73); + fConst178 = (0.022507907903927659 * (fConst102 * fConst91)); + fConst179 = (0.037513179839879424 * fConst70); + fConst180 = (0.016077077074234038 * (fConst121 * fConst106)); + fConst181 = (0.018756589919939712 * fConst70); + fConst182 = (0.028134884879909568 * fConst73); + fConst183 = (16.254370799165692 * fConst75); + fConst184 = (32.508741598331383 * fConst130); + fConst185 = (552.64860717163344 * fConst17); + fConst186 = (0.056269769759819135 * (fConst37 * fConst27)); + fConst187 = (0.037513179839879424 * fConst77); + fConst188 = (0.028134884879909568 * (fConst89 * fConst80)); + fConst189 = (0.045015815807855318 * fConst24); + fConst190 = (0.018756589919939712 * (fConst104 * fConst91)); + fConst191 = (0.032154154148468075 * fConst21); + fConst192 = (0.014067442439954784 * (fConst123 * fConst106)); + fConst193 = (0.016077077074234038 * fConst21); + fConst194 = (0.022507907903927659 * fConst24); + fConst195 = (276.32430358581672 * fConst17); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0); + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fVslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec0[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec1[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("On/Off"); + ui_interface->addCheckButton("On", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "3", ""); + ui_interface->declare(&fEntry0, "unit", "s"); + ui_interface->addNumEntry("Crossfade", &fEntry0, 1.0, 0.10000000000000001, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "4", ""); + ui_interface->declare(&fVslider2, "unit", "dB"); + ui_interface->addVerticalSlider("Gain", &fVslider2, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fVslider3, "5", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "6", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(&fCheckbox0, "7", ""); + ui_interface->addCheckButton("Timer/Manual", &fCheckbox0); + ui_interface->declare(&fVslider0, "8", ""); + ui_interface->addVerticalSlider("Focus", &fVslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + int iSlow0 = int(double(fCheckbox0)); + double fSlow1 = double(fCheckbox1); + int iSlow2 = int(fSlow1); + double fSlow3 = double(fEntry0); + double fSlow4 = (fConst1 / fSlow3); + int iSlow5 = (fSlow1 > 0.0); + double fSlow6 = (fConst0 * fSlow3); + int iSlow7 = ((1.0 - fSlow1) > 0.0); + double fSlow8 = double(fVslider0); + double fSlow9 = (1.0 - fSlow8); + double fSlow10 = sin(double(fVslider1)); + double fSlow11 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider2)))); + double fSlow12 = mydsp_faustpower2_f(fSlow10); + double fSlow13 = ((3.0 * fSlow12) + -1.0); + double fSlow14 = ((2.5 * fSlow13) + -2.0); + double fSlow15 = (0.88191710368819687 * fSlow14); + double fSlow16 = double(fVslider3); + double fSlow17 = cos(fSlow16); + double fSlow18 = mydsp_faustpower2_f(fSlow17); + double fSlow19 = ((4.0 * fSlow18) + -1.0); + double fSlow20 = (fSlow19 + -1.0); + double fSlow21 = (fSlow20 * fSlow17); + double fSlow22 = (1.0 - fSlow12); + double fSlow23 = mydsp_faustpower2_f(fSlow22); + double fSlow24 = sin(fSlow16); + double fSlow25 = ((fSlow21 * fSlow23) * fSlow24); + double fSlow26 = (fConst6 * fSlow25); + double fSlow27 = ((2.333333333333333 * (fSlow14 * fSlow12)) - (1.5 * fSlow13)); + double fSlow28 = ((2.25 * fSlow27) - (1.3333333333333333 * fSlow14)); + double fSlow29 = (0.66332495807108005 * fSlow28); + double fSlow30 = ((2.0 * fSlow18) + -1.0); + double fSlow31 = ((2.0 * fSlow30) + -1.0); + double fSlow32 = (1.0 - fSlow31); + double fSlow33 = (1.0 - (2.0 * (fSlow32 * fSlow18))); + double fSlow34 = (fSlow33 * fSlow23); + double fSlow35 = (fConst7 * fSlow34); + double fSlow36 = (1.0 - fSlow20); + double fSlow37 = (1.0 - (4.0 * (fSlow36 * fSlow18))); + double fSlow38 = (fSlow20 - fSlow37); + double fSlow39 = (0.0 - (2.0 * (fSlow38 * fSlow17))); + double fSlow40 = mydsp_faustpower3_f(fSlow22); + double fSlow41 = ((fSlow39 * fSlow40) * fSlow24); + double fSlow42 = (fConst11 * fSlow41); + double fSlow43 = ((2.2000000000000002 * (fSlow28 * fSlow12)) - (1.25 * fSlow27)); + double fSlow44 = ((2.1666666666666665 * fSlow43) - (1.2000000000000002 * fSlow28)); + double fSlow45 = (0.55328333517248807 * fSlow44); + double fSlow46 = ((893.67630033964599 * fSlow12) + -81.24330003087691); + double fSlow47 = ((6.5 * fSlow46) + -812.43300030876912); + double fSlow48 = (fSlow33 * fSlow47); + double fSlow49 = (fConst15 * (fSlow48 * fSlow23)); + double fSlow50 = ((2.0 * fSlow39) + (4.0 * (fSlow36 * fSlow17))); + double fSlow51 = ((fSlow50 * fSlow17) + -1.0); + double fSlow52 = ((fSlow38 + fSlow51) * fSlow17); + double fSlow53 = mydsp_faustpower4_f(fSlow22); + double fSlow54 = (fSlow52 * fSlow53); + double fSlow55 = (fSlow54 * fSlow24); + double fSlow56 = (fConst18 * fSlow55); + double fSlow57 = ((78.986541696685876 * fSlow12) + -11.283791670955125); + double fSlow58 = ((4.5 * fSlow57) + -67.702750025730751); + double fSlow59 = ((3.6666666666666665 * (fSlow58 * fSlow12)) - (3.5 * fSlow57)); + double fSlow60 = ((3.25 * fSlow59) - (2.6666666666666665 * fSlow58)); + double fSlow61 = ((3.0 * (fSlow60 * fSlow12)) - (2.25 * fSlow59)); + double fSlow62 = ((2.833333333333333 * fSlow61) - (2.0 * fSlow60)); + double fSlow63 = (fSlow62 * fSlow17); + double fSlow64 = (fConst22 * ((fSlow63 * fSlow22) * fSlow24)); + double fSlow65 = ((2.1428571428571428 * (fSlow44 * fSlow12)) - (1.1666666666666665 * fSlow43)); + double fSlow66 = ((2.125 * fSlow65) - (1.1428571428571428 * fSlow44)); + double fSlow67 = (0.48432210483785265 * fSlow66); + double fSlow68 = ((5.0 * (fSlow47 * fSlow12)) - (5.5 * fSlow46)); + double fSlow69 = ((4.25 * fSlow68) - (4.0 * fSlow47)); + double fSlow70 = (fSlow33 * fSlow69); + double fSlow71 = (fConst25 * (fSlow70 * fSlow23)); + double fSlow72 = ((2.0 * fSlow33) - fSlow31); + double fSlow73 = (fSlow32 + fSlow72); + double fSlow74 = ((2.0 * (fSlow73 * fSlow18)) + -1.0); + double fSlow75 = ((2.0 * fSlow74) - fSlow72); + double fSlow76 = (1.0 - (2.0 * ((fSlow73 - fSlow75) * fSlow18))); + double fSlow77 = (fSlow76 * fSlow53); + double fSlow78 = (fConst26 * fSlow77); + double fSlow79 = pow(fSlow22, 3.5); + double fSlow80 = (fConst27 * fSlow79); + double fSlow81 = (fSlow75 * fSlow17); + double fSlow82 = (fConst31 * fSlow81); + double fSlow83 = (fSlow51 * fSlow10); + double fSlow84 = (fConst34 * (fSlow83 * fSlow24)); + double fSlow85 = (fSlow81 * fSlow10); + double fSlow86 = (fConst34 * fSlow85); + double fSlow87 = ((18415.148006998763 * fSlow12) + -1083.244000411692); + double fSlow88 = (fSlow51 * fSlow87); + double fSlow89 = (fConst38 * (fSlow88 * fSlow24)); + double fSlow90 = ((fSlow75 * fSlow87) * fSlow17); + double fSlow91 = (fConst38 * fSlow90); + double fSlow92 = (6.3830764864229232 * (fSlow17 * fSlow24)); + double fSlow93 = (3.1915382432114616 * fSlow30); + double fSlow94 = (fSlow17 * fSlow10); + double fSlow95 = (fConst42 * (fSlow94 * fSlow24)); + double fSlow96 = (fSlow30 * fSlow10); + double fSlow97 = (fConst43 * fSlow96); + double fSlow98 = (fConst46 * ((fSlow21 * fSlow22) * fSlow24)); + double fSlow99 = (fSlow57 * fSlow17); + double fSlow100 = (fConst49 * (fSlow99 * fSlow24)); + double fSlow101 = (fSlow30 * fSlow57); + double fSlow102 = (fConst50 * fSlow101); + double fSlow103 = (fConst51 * (fSlow33 * fSlow22)); + double fSlow104 = ((fSlow58 * fSlow17) * fSlow10); + double fSlow105 = (fConst53 * (fSlow104 * fSlow24)); + double fSlow106 = ((fSlow30 * fSlow58) * fSlow10); + double fSlow107 = (fConst54 * fSlow106); + double fSlow108 = (fConst57 * ((fSlow39 * fSlow23) * fSlow24)); + double fSlow109 = ((fSlow20 * fSlow46) * fSlow17); + double fSlow110 = (fConst60 * ((fSlow109 * fSlow22) * fSlow24)); + double fSlow111 = (fSlow59 * fSlow17); + double fSlow112 = (fConst62 * (fSlow111 * fSlow24)); + double fSlow113 = (fSlow30 * fSlow59); + double fSlow114 = (fConst63 * fSlow113); + double fSlow115 = (fSlow33 * fSlow46); + double fSlow116 = (fConst64 * (fSlow115 * fSlow22)); + double fSlow117 = (fConst57 * (fSlow74 * fSlow23)); + double fSlow118 = (((fSlow20 * fSlow47) * fSlow17) * fSlow10); + double fSlow119 = (fConst65 * ((fSlow118 * fSlow22) * fSlow24)); + double fSlow120 = ((fSlow30 * fSlow60) * fSlow10); + double fSlow121 = (fConst67 * fSlow120); + double fSlow122 = (fSlow74 * fSlow10); + double fSlow123 = (fConst11 * (fSlow122 * fSlow23)); + double fSlow124 = ((7041.0860026759983 * fSlow12) + -469.40573351173322); + double fSlow125 = (fSlow39 * fSlow124); + double fSlow126 = (fConst69 * ((fSlow125 * fSlow23) * fSlow24)); + double fSlow127 = (fSlow61 * fSlow17); + double fSlow128 = (fConst71 * (fSlow127 * fSlow24)); + double fSlow129 = (fSlow30 * fSlow61); + double fSlow130 = (fConst72 * fSlow129); + double fSlow131 = (fSlow33 * fSlow68); + double fSlow132 = (fConst74 * (fSlow131 * fSlow22)); + double fSlow133 = (fSlow74 * fSlow124); + double fSlow134 = (fConst69 * (fSlow133 * fSlow23)); + double fSlow135 = (fConst76 * (fSlow76 * fSlow40)); + double fSlow136 = ((8.5 * fSlow124) + -6571.6802691642652); + double fSlow137 = ((fSlow39 * fSlow136) * fSlow10); + double fSlow138 = (fConst78 * ((fSlow137 * fSlow23) * fSlow24)); + double fSlow139 = ((fSlow30 * fSlow62) * fSlow10); + double fSlow140 = (fConst79 * fSlow139); + double fSlow141 = ((fSlow74 * fSlow136) * fSlow10); + double fSlow142 = (fConst78 * (fSlow141 * fSlow23)); + double fSlow143 = pow(fSlow22, 2.5); + double fSlow144 = (fConst80 * fSlow143); + double fSlow145 = (fSlow37 * fSlow24); + double fSlow146 = (fSlow72 * fSlow17); + double fSlow147 = (fSlow37 * fSlow10); + double fSlow148 = (fConst84 * (fSlow147 * fSlow24)); + double fSlow149 = (fSlow146 * fSlow10); + double fSlow150 = (fConst84 * fSlow149); + double fSlow151 = ((2581.7315343145328 * fSlow12) + -198.59473340881021); + double fSlow152 = (fSlow37 * fSlow151); + double fSlow153 = (fConst86 * (fSlow152 * fSlow24)); + double fSlow154 = ((fSlow72 * fSlow151) * fSlow17); + double fSlow155 = (fConst86 * fSlow154); + double fSlow156 = ((7.5 * fSlow151) + -2383.1368009057223); + double fSlow157 = ((fSlow37 * fSlow156) * fSlow10); + double fSlow158 = (fConst88 * (fSlow157 * fSlow24)); + double fSlow159 = (((fSlow72 * fSlow156) * fSlow17) * fSlow10); + double fSlow160 = (fConst88 * fSlow159); + double fSlow161 = ((5.6666666666666661 * (fSlow156 * fSlow12)) - (6.5 * fSlow151)); + double fSlow162 = (fSlow37 * fSlow161); + double fSlow163 = (fConst90 * (fSlow162 * fSlow24)); + double fSlow164 = ((fSlow72 * fSlow161) * fSlow17); + double fSlow165 = (fConst90 * fSlow164); + double fSlow166 = pow(fSlow22, 1.5); + double fSlow167 = (fConst91 * fSlow166); + double fSlow168 = (fSlow19 * fSlow24); + double fSlow169 = (fSlow31 * fSlow17); + double fSlow170 = (fSlow19 * fSlow10); + double fSlow171 = (fConst95 * (fSlow170 * fSlow24)); + double fSlow172 = (fSlow169 * fSlow10); + double fSlow173 = (fConst95 * fSlow172); + double fSlow174 = ((284.35155010806915 * fSlow12) + -31.594616678674353); + double fSlow175 = (fSlow19 * fSlow174); + double fSlow176 = (fConst97 * (fSlow175 * fSlow24)); + double fSlow177 = ((fSlow31 * fSlow174) * fSlow17); + double fSlow178 = (fConst97 * fSlow177); + double fSlow179 = ((5.5 * fSlow174) + -252.75693342939482); + double fSlow180 = ((fSlow19 * fSlow179) * fSlow10); + double fSlow181 = (fConst99 * (fSlow180 * fSlow24)); + double fSlow182 = (((fSlow31 * fSlow179) * fSlow17) * fSlow10); + double fSlow183 = (fConst99 * fSlow182); + double fSlow184 = ((4.333333333333333 * (fSlow179 * fSlow12)) - (4.5 * fSlow174)); + double fSlow185 = (fSlow19 * fSlow184); + double fSlow186 = (fConst101 * (fSlow185 * fSlow24)); + double fSlow187 = ((fSlow31 * fSlow184) * fSlow17); + double fSlow188 = (fConst101 * fSlow187); + double fSlow189 = ((3.75 * fSlow184) - (3.333333333333333 * fSlow179)); + double fSlow190 = ((fSlow19 * fSlow189) * fSlow10); + double fSlow191 = (fConst103 * (fSlow190 * fSlow24)); + double fSlow192 = (((fSlow31 * fSlow189) * fSlow17) * fSlow10); + double fSlow193 = (fConst103 * fSlow192); + double fSlow194 = ((3.4000000000000004 * (fSlow189 * fSlow12)) - (2.75 * fSlow184)); + double fSlow195 = (fSlow19 * fSlow194); + double fSlow196 = (fConst105 * (fSlow195 * fSlow24)); + double fSlow197 = ((fSlow31 * fSlow194) * fSlow17); + double fSlow198 = (fConst105 * fSlow197); + double fSlow199 = pow(fSlow22, 0.5); + double fSlow200 = (fConst106 * fSlow199); + double fSlow201 = (fConst110 * (fSlow10 * fSlow24)); + double fSlow202 = (fConst110 * fSlow94); + double fSlow203 = ((16.925687506432688 * fSlow12) + -3.3851375012865379); + double fSlow204 = (fConst112 * (fSlow203 * fSlow24)); + double fSlow205 = (fSlow203 * fSlow17); + double fSlow206 = (fConst112 * fSlow205); + double fSlow207 = ((3.5 * fSlow203) + -13.540550005146152); + double fSlow208 = (fSlow207 * fSlow10); + double fSlow209 = (fConst114 * (fSlow208 * fSlow24)); + double fSlow210 = ((fSlow207 * fSlow17) * fSlow10); + double fSlow211 = (fConst114 * fSlow210); + double fSlow212 = ((3.0 * (fSlow207 * fSlow12)) - (2.5 * fSlow203)); + double fSlow213 = (fConst116 * (fSlow212 * fSlow24)); + double fSlow214 = (fSlow212 * fSlow17); + double fSlow215 = (fConst116 * fSlow214); + double fSlow216 = ((2.75 * fSlow212) - (2.0 * fSlow207)); + double fSlow217 = (fSlow216 * fSlow10); + double fSlow218 = (fConst118 * (fSlow217 * fSlow24)); + double fSlow219 = ((fSlow216 * fSlow17) * fSlow10); + double fSlow220 = (fConst118 * fSlow219); + double fSlow221 = ((2.6000000000000001 * (fSlow216 * fSlow12)) - (1.75 * fSlow212)); + double fSlow222 = (fConst120 * (fSlow221 * fSlow24)); + double fSlow223 = (fSlow221 * fSlow17); + double fSlow224 = (fConst120 * fSlow223); + double fSlow225 = ((2.5 * fSlow221) - (1.6000000000000001 * fSlow216)); + double fSlow226 = (fSlow225 * fSlow10); + double fSlow227 = (fConst122 * (fSlow226 * fSlow24)); + double fSlow228 = ((fSlow225 * fSlow17) * fSlow10); + double fSlow229 = (fConst122 * fSlow228); + double fSlow230 = ((2.4285714285714284 * (fSlow225 * fSlow12)) - (1.5 * fSlow221)); + double fSlow231 = (fConst124 * (fSlow230 * fSlow24)); + double fSlow232 = (fSlow230 * fSlow17); + double fSlow233 = (fConst124 * fSlow232); + double fSlow234 = (1.1180339887498949 * fSlow13); + double fSlow235 = (0.75 * fSlow27); + double fSlow236 = (0.60092521257733145 * fSlow43); + double fSlow237 = (0.51538820320220757 * fSlow65); + double fSlow238 = (fSlow51 * fSlow79); + double fSlow239 = (fConst126 * fSlow238); + double fSlow240 = (((fSlow60 * fSlow17) * fSlow10) * fSlow22); + double fSlow241 = (fConst127 * fSlow240); + double fSlow242 = (fConst128 * fSlow54); + double fSlow243 = (((fSlow20 * fSlow68) * fSlow17) * fSlow23); + double fSlow244 = (fConst129 * fSlow243); + double fSlow245 = pow(fSlow22, 4.5); + double fSlow246 = (((((4.0 * fSlow52) - fSlow50) * fSlow17) + 1.0) * fSlow245); + double fSlow247 = (fConst131 * fSlow246); + double fSlow248 = ((((fSlow20 * fSlow69) * fSlow17) * fSlow10) * fSlow23); + double fSlow249 = (fConst132 * fSlow248); + double fSlow250 = ((((2.0 * fSlow76) - fSlow75) * fSlow17) * fSlow245); + double fSlow251 = (fConst131 * fSlow250); + double fSlow252 = (fConst133 * (fSlow199 * fSlow24)); + double fSlow253 = (0.13783222385544802 * fSlow10); + double fSlow254 = (fConst133 * (fSlow17 * fSlow199)); + double fSlow255 = (fConst135 * ((fSlow17 * fSlow22) * fSlow24)); + double fSlow256 = (fConst136 * ((fSlow10 * fSlow199) * fSlow24)); + double fSlow257 = (0.088970317927147144 * fSlow13); + double fSlow258 = (fConst136 * (fSlow94 * fSlow199)); + double fSlow259 = (fConst137 * (fSlow30 * fSlow22)); + double fSlow260 = (fConst138 * ((fSlow19 * fSlow166) * fSlow24)); + double fSlow261 = (fConst140 * ((fSlow94 * fSlow22) * fSlow24)); + double fSlow262 = (fConst141 * ((fSlow203 * fSlow199) * fSlow24)); + double fSlow263 = (0.070180733224632072 * (fSlow14 * fSlow10)); + double fSlow264 = (fConst141 * (fSlow205 * fSlow199)); + double fSlow265 = (fConst142 * (fSlow96 * fSlow22)); + double fSlow266 = (fConst138 * (fSlow169 * fSlow166)); + double fSlow267 = (fConst143 * fSlow25); + double fSlow268 = (fConst144 * ((fSlow170 * fSlow166) * fSlow24)); + double fSlow269 = (fConst145 * ((fSlow99 * fSlow22) * fSlow24)); + double fSlow270 = (fConst146 * ((fSlow208 * fSlow199) * fSlow24)); + double fSlow271 = (0.059683103659460751 * fSlow27); + double fSlow272 = (fConst146 * (fSlow210 * fSlow199)); + double fSlow273 = (fConst147 * (fSlow101 * fSlow22)); + double fSlow274 = (fConst144 * (fSlow172 * fSlow166)); + double fSlow275 = (fConst148 * fSlow34); + double fSlow276 = (fConst149 * ((fSlow37 * fSlow143) * fSlow24)); + double fSlow277 = (fConst150 * (((fSlow21 * fSlow10) * fSlow23) * fSlow24)); + double fSlow278 = (fConst151 * ((fSlow175 * fSlow166) * fSlow24)); + double fSlow279 = (fConst152 * ((fSlow104 * fSlow22) * fSlow24)); + double fSlow280 = (fConst153 * ((fSlow212 * fSlow199) * fSlow24)); + double fSlow281 = (0.052785722976618307 * (fSlow28 * fSlow10)); + double fSlow282 = (fConst153 * (fSlow214 * fSlow199)); + double fSlow283 = (fConst154 * (fSlow106 * fSlow22)); + double fSlow284 = (fConst151 * (fSlow177 * fSlow166)); + double fSlow285 = (fConst155 * ((fSlow33 * fSlow10) * fSlow23)); + double fSlow286 = (fConst149 * (fSlow146 * fSlow143)); + double fSlow287 = (fConst156 * fSlow41); + double fSlow288 = (fConst157 * ((fSlow147 * fSlow143) * fSlow24)); + double fSlow289 = (fConst158 * ((fSlow109 * fSlow23) * fSlow24)); + double fSlow290 = (fConst159 * ((fSlow180 * fSlow166) * fSlow24)); + double fSlow291 = (fConst160 * ((fSlow111 * fSlow22) * fSlow24)); + double fSlow292 = (fConst161 * ((fSlow217 * fSlow199) * fSlow24)); + double fSlow293 = (0.047820109005115151 * fSlow43); + double fSlow294 = (fConst161 * (fSlow219 * fSlow199)); + double fSlow295 = (fConst162 * (fSlow113 * fSlow22)); + double fSlow296 = (fConst159 * (fSlow182 * fSlow166)); + double fSlow297 = (fConst163 * (fSlow115 * fSlow23)); + double fSlow298 = (fConst157 * (fSlow149 * fSlow143)); + double fSlow299 = (fConst156 * (fSlow74 * fSlow40)); + double fSlow300 = (fConst164 * (fSlow238 * fSlow24)); + double fSlow301 = (fConst165 * (((fSlow39 * fSlow10) * fSlow40) * fSlow24)); + double fSlow302 = (fConst166 * ((fSlow152 * fSlow143) * fSlow24)); + double fSlow303 = (fConst167 * ((fSlow118 * fSlow23) * fSlow24)); + double fSlow304 = (fConst168 * ((fSlow185 * fSlow166) * fSlow24)); + double fSlow305 = (fConst169 * (fSlow240 * fSlow24)); + double fSlow306 = (fConst170 * ((fSlow221 * fSlow199) * fSlow24)); + double fSlow307 = (0.044028888861535699 * (fSlow44 * fSlow10)); + double fSlow308 = (fConst170 * (fSlow223 * fSlow199)); + double fSlow309 = (fConst171 * (fSlow120 * fSlow22)); + double fSlow310 = (fConst168 * (fSlow187 * fSlow166)); + double fSlow311 = (fConst172 * ((fSlow48 * fSlow10) * fSlow23)); + double fSlow312 = (fConst166 * (fSlow154 * fSlow143)); + double fSlow313 = (fConst165 * (fSlow122 * fSlow40)); + double fSlow314 = (fConst164 * (fSlow81 * fSlow79)); + double fSlow315 = (fConst173 * fSlow55); + double fSlow316 = (fConst174 * ((fSlow83 * fSlow79) * fSlow24)); + double fSlow317 = (fConst175 * ((fSlow125 * fSlow40) * fSlow24)); + double fSlow318 = (fConst176 * ((fSlow157 * fSlow143) * fSlow24)); + double fSlow319 = (fConst177 * (fSlow243 * fSlow24)); + double fSlow320 = (fConst178 * ((fSlow190 * fSlow166) * fSlow24)); + double fSlow321 = (fConst179 * ((fSlow127 * fSlow22) * fSlow24)); + double fSlow322 = (fConst180 * ((fSlow226 * fSlow199) * fSlow24)); + double fSlow323 = (0.041013290075440773 * fSlow65); + double fSlow324 = (fConst180 * (fSlow228 * fSlow199)); + double fSlow325 = (fConst181 * (fSlow129 * fSlow22)); + double fSlow326 = (fConst178 * (fSlow192 * fSlow166)); + double fSlow327 = (fConst182 * (fSlow131 * fSlow23)); + double fSlow328 = (fConst176 * (fSlow159 * fSlow143)); + double fSlow329 = (fConst175 * (fSlow133 * fSlow40)); + double fSlow330 = (fConst174 * (fSlow85 * fSlow79)); + double fSlow331 = (fConst183 * fSlow77); + double fSlow332 = (fConst184 * (fSlow246 * fSlow24)); + double fSlow333 = (fConst185 * (((fSlow52 * fSlow10) * fSlow53) * fSlow24)); + double fSlow334 = (fConst186 * ((fSlow88 * fSlow79) * fSlow24)); + double fSlow335 = (fConst187 * ((fSlow137 * fSlow40) * fSlow24)); + double fSlow336 = (fConst188 * ((fSlow162 * fSlow143) * fSlow24)); + double fSlow337 = (fConst189 * (fSlow248 * fSlow24)); + double fSlow338 = (fConst190 * ((fSlow195 * fSlow166) * fSlow24)); + double fSlow339 = (fConst191 * (((fSlow63 * fSlow10) * fSlow22) * fSlow24)); + double fSlow340 = (fConst192 * ((fSlow230 * fSlow199) * fSlow24)); + double fSlow341 = (0.038541128516807702 * (fSlow66 * fSlow10)); + double fSlow342 = (fConst192 * (fSlow232 * fSlow199)); + double fSlow343 = (fConst193 * (fSlow139 * fSlow22)); + double fSlow344 = (fConst190 * (fSlow197 * fSlow166)); + double fSlow345 = (fConst194 * ((fSlow70 * fSlow10) * fSlow23)); + double fSlow346 = (fConst188 * (fSlow164 * fSlow143)); + double fSlow347 = (fConst187 * (fSlow141 * fSlow40)); + double fSlow348 = (fConst186 * (fSlow90 * fSlow79)); + double fSlow349 = (fConst195 * ((fSlow76 * fSlow10) * fSlow53)); + double fSlow350 = (fConst184 * fSlow250); + for (int i = 0; (i < count); i = (i + 1)) { + fRec0[0] = (iSlow5?0.0:min(fSlow6, (fRec0[1] + 1.0))); + double fTemp0 = double(input0[i]); + fRec1[0] = (iSlow7?fSlow6:max(0.0, (fRec1[1] + -1.0))); + fRec2[0] = (fSlow11 + (0.999 * fRec2[1])); + fRec3[0] = (iSlow5?fSlow6:max(0.0, (fRec3[1] + -1.0))); + double fTemp1 = (fRec2[0] * fRec3[0]); + double fTemp2 = double(input2[i]); + fRec4[0] = (iSlow7?0.0:min(fSlow6, (fRec4[1] + 1.0))); + double fTemp3 = (fRec2[0] * fRec4[0]); + double fTemp4 = double(input12[i]); + double fTemp5 = double(input26[i]); + double fTemp6 = double(input30[i]); + double fTemp7 = double(input34[i]); + double fTemp8 = double(input50[i]); + double fTemp9 = double(input56[i]); + double fTemp10 = double(input60[i]); + double fTemp11 = double(input82[i]); + double fTemp12 = double(input88[i]); + double fTemp13 = double(input90[i]); + double fTemp14 = double(input94[i]); + double fTemp15 = double(input98[i]); + double fTemp16 = double(input63[i]); + double fTemp17 = double(input65[i]); + double fTemp18 = double(input79[i]); + double fTemp19 = double(input83[i]); + double fTemp20 = double(input97[i]); + double fTemp21 = double(input4[i]); + double fTemp22 = double(input8[i]); + double fTemp23 = double(input10[i]); + double fTemp24 = double(input14[i]); + double fTemp25 = double(input16[i]); + double fTemp26 = double(input18[i]); + double fTemp27 = double(input22[i]); + double fTemp28 = double(input24[i]); + double fTemp29 = double(input28[i]); + double fTemp30 = double(input32[i]); + double fTemp31 = double(input36[i]); + double fTemp32 = double(input38[i]); + double fTemp33 = double(input40[i]); + double fTemp34 = double(input44[i]); + double fTemp35 = double(input46[i]); + double fTemp36 = double(input48[i]); + double fTemp37 = double(input52[i]); + double fTemp38 = double(input58[i]); + double fTemp39 = double(input62[i]); + double fTemp40 = double(input66[i]); + double fTemp41 = double(input70[i]); + double fTemp42 = double(input74[i]); + double fTemp43 = double(input76[i]); + double fTemp44 = double(input78[i]); + double fTemp45 = double(input80[i]); + double fTemp46 = double(input84[i]); + double fTemp47 = double(input92[i]); + double fTemp48 = double(input96[i]); + double fTemp49 = double(input25[i]); + double fTemp50 = double(input35[i]); + double fTemp51 = double(input37[i]); + double fTemp52 = double(input47[i]); + double fTemp53 = double(input51[i]); + double fTemp54 = double(input61[i]); + double fTemp55 = double(input67[i]); + double fTemp56 = double(input77[i]); + double fTemp57 = double(input85[i]); + double fTemp58 = double(input95[i]); + double fTemp59 = double(input9[i]); + double fTemp60 = double(input15[i]); + double fTemp61 = double(input17[i]); + double fTemp62 = double(input23[i]); + double fTemp63 = double(input27[i]); + double fTemp64 = double(input33[i]); + double fTemp65 = double(input39[i]); + double fTemp66 = double(input45[i]); + double fTemp67 = double(input53[i]); + double fTemp68 = double(input59[i]); + double fTemp69 = double(input69[i]); + double fTemp70 = double(input75[i]); + double fTemp71 = double(input87[i]); + double fTemp72 = double(input93[i]); + double fTemp73 = double(input1[i]); + double fTemp74 = double(input3[i]); + double fTemp75 = double(input5[i]); + double fTemp76 = double(input7[i]); + double fTemp77 = double(input11[i]); + double fTemp78 = double(input13[i]); + double fTemp79 = double(input19[i]); + double fTemp80 = double(input21[i]); + double fTemp81 = double(input29[i]); + double fTemp82 = double(input31[i]); + double fTemp83 = double(input41[i]); + double fTemp84 = double(input43[i]); + double fTemp85 = double(input55[i]); + double fTemp86 = double(input57[i]); + double fTemp87 = double(input71[i]); + double fTemp88 = double(input73[i]); + double fTemp89 = double(input89[i]); + double fTemp90 = double(input91[i]); + double fTemp91 = double(input6[i]); + double fTemp92 = double(input20[i]); + double fTemp93 = double(input42[i]); + double fTemp94 = double(input72[i]); + double fTemp95 = double(input49[i]); + double fTemp96 = double(input54[i]); + double fTemp97 = double(input64[i]); + double fTemp98 = double(input68[i]); + double fTemp99 = double(input81[i]); + double fTemp100 = double(input86[i]); + double fTemp101 = double(input99[i]); + double fTemp102 = (((fSlow10 * (((((((((((((1.7320508075688772 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp2)):(iSlow2?(fSlow4 * (fTemp3 * fTemp2)):(fSlow4 * (fTemp1 * fTemp2))))) + (fSlow15 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp4)):(iSlow2?(fSlow4 * (fTemp3 * fTemp4)):(fSlow4 * (fTemp1 * fTemp4)))))) + (fSlow26 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp5)):(iSlow2?(fSlow4 * (fTemp3 * fTemp5)):(fSlow4 * (fTemp1 * fTemp5)))))) + (fSlow29 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp6)):(iSlow2?(fSlow4 * (fTemp3 * fTemp6)):(fSlow4 * (fTemp1 * fTemp6)))))) + (fSlow35 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp7)):(iSlow2?(fSlow4 * (fTemp3 * fTemp7)):(fSlow4 * (fTemp1 * fTemp7)))))) + (fSlow42 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp8)):(iSlow2?(fSlow4 * (fTemp3 * fTemp8)):(fSlow4 * (fTemp1 * fTemp8)))))) + (fSlow45 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp9)):(iSlow2?(fSlow4 * (fTemp3 * fTemp9)):(fSlow4 * (fTemp1 * fTemp9)))))) + (fSlow49 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp10)):(iSlow2?(fSlow4 * (fTemp3 * fTemp10)):(fSlow4 * (fTemp1 * fTemp10)))))) + (fSlow56 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp11)):(iSlow2?(fSlow4 * (fTemp3 * fTemp11)):(fSlow4 * (fTemp1 * fTemp11)))))) + (fSlow64 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp12)):(iSlow2?(fSlow4 * (fTemp3 * fTemp12)):(fSlow4 * (fTemp1 * fTemp12)))))) + (fSlow67 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp13)):(iSlow2?(fSlow4 * (fTemp3 * fTemp13)):(fSlow4 * (fTemp1 * fTemp13)))))) + (fSlow71 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp14)):(iSlow2?(fSlow4 * (fTemp3 * fTemp14)):(fSlow4 * (fTemp1 * fTemp14)))))) + (fSlow78 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp15)):(iSlow2?(fSlow4 * (fTemp3 * fTemp15)):(fSlow4 * (fTemp1 * fTemp15))))))) + ((fSlow80 * (((((fSlow82 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp16)):(iSlow2?(fSlow4 * (fTemp3 * fTemp16)):(fSlow4 * (fTemp1 * fTemp16))))) + (fSlow84 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp17)):(iSlow2?(fSlow4 * (fTemp3 * fTemp17)):(fSlow4 * (fTemp1 * fTemp17)))))) + (fSlow86 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp18)):(iSlow2?(fSlow4 * (fTemp3 * fTemp18)):(fSlow4 * (fTemp1 * fTemp18)))))) + (fSlow89 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp19)):(iSlow2?(fSlow4 * (fTemp3 * fTemp19)):(fSlow4 * (fTemp1 * fTemp19)))))) + (fSlow91 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp20)):(iSlow2?(fSlow4 * (fTemp3 * fTemp20)):(fSlow4 * (fTemp1 * fTemp20))))))) + ((fSlow22 * (((((((((((((((((((((((((fConst20 * (((fConst40 * ((fSlow92 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp21)):(iSlow2?(fSlow4 * (fTemp3 * fTemp21)):(fSlow4 * (fTemp1 * fTemp21))))) + (fSlow93 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp22)):(iSlow2?(fSlow4 * (fTemp3 * fTemp22)):(fSlow4 * (fTemp1 * fTemp22))))))) + (fSlow95 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp23)):(iSlow2?(fSlow4 * (fTemp3 * fTemp23)):(fSlow4 * (fTemp1 * fTemp23)))))) + (fSlow97 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp24)):(iSlow2?(fSlow4 * (fTemp3 * fTemp24)):(fSlow4 * (fTemp1 * fTemp24))))))) + (fSlow98 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp25)):(iSlow2?(fSlow4 * (fTemp3 * fTemp25)):(fSlow4 * (fTemp1 * fTemp25)))))) + (fSlow100 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp26)):(iSlow2?(fSlow4 * (fTemp3 * fTemp26)):(fSlow4 * (fTemp1 * fTemp26)))))) + (fSlow102 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp27)):(iSlow2?(fSlow4 * (fTemp3 * fTemp27)):(fSlow4 * (fTemp1 * fTemp27)))))) + (fSlow103 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp28)):(iSlow2?(fSlow4 * (fTemp3 * fTemp28)):(fSlow4 * (fTemp1 * fTemp28)))))) + (fSlow105 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp29)):(iSlow2?(fSlow4 * (fTemp3 * fTemp29)):(fSlow4 * (fTemp1 * fTemp29)))))) + (fSlow107 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp30)):(iSlow2?(fSlow4 * (fTemp3 * fTemp30)):(fSlow4 * (fTemp1 * fTemp30)))))) + (fSlow108 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp31)):(iSlow2?(fSlow4 * (fTemp3 * fTemp31)):(fSlow4 * (fTemp1 * fTemp31)))))) + (fSlow110 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp32)):(iSlow2?(fSlow4 * (fTemp3 * fTemp32)):(fSlow4 * (fTemp1 * fTemp32)))))) + (fSlow112 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp33)):(iSlow2?(fSlow4 * (fTemp3 * fTemp33)):(fSlow4 * (fTemp1 * fTemp33)))))) + (fSlow114 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp34)):(iSlow2?(fSlow4 * (fTemp3 * fTemp34)):(fSlow4 * (fTemp1 * fTemp34)))))) + (fSlow116 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp35)):(iSlow2?(fSlow4 * (fTemp3 * fTemp35)):(fSlow4 * (fTemp1 * fTemp35)))))) + (fSlow117 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp36)):(iSlow2?(fSlow4 * (fTemp3 * fTemp36)):(fSlow4 * (fTemp1 * fTemp36)))))) + (fSlow119 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp37)):(iSlow2?(fSlow4 * (fTemp3 * fTemp37)):(fSlow4 * (fTemp1 * fTemp37)))))) + (fSlow121 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp38)):(iSlow2?(fSlow4 * (fTemp3 * fTemp38)):(fSlow4 * (fTemp1 * fTemp38)))))) + (fSlow123 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp39)):(iSlow2?(fSlow4 * (fTemp3 * fTemp39)):(fSlow4 * (fTemp1 * fTemp39)))))) + (fSlow126 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp40)):(iSlow2?(fSlow4 * (fTemp3 * fTemp40)):(fSlow4 * (fTemp1 * fTemp40)))))) + (fSlow128 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp41)):(iSlow2?(fSlow4 * (fTemp3 * fTemp41)):(fSlow4 * (fTemp1 * fTemp41)))))) + (fSlow130 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp42)):(iSlow2?(fSlow4 * (fTemp3 * fTemp42)):(fSlow4 * (fTemp1 * fTemp42)))))) + (fSlow132 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp43)):(iSlow2?(fSlow4 * (fTemp3 * fTemp43)):(fSlow4 * (fTemp1 * fTemp43)))))) + (fSlow134 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp44)):(iSlow2?(fSlow4 * (fTemp3 * fTemp44)):(fSlow4 * (fTemp1 * fTemp44)))))) + (fSlow135 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp45)):(iSlow2?(fSlow4 * (fTemp3 * fTemp45)):(fSlow4 * (fTemp1 * fTemp45)))))) + (fSlow138 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp46)):(iSlow2?(fSlow4 * (fTemp3 * fTemp46)):(fSlow4 * (fTemp1 * fTemp46)))))) + (fSlow140 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp47)):(iSlow2?(fSlow4 * (fTemp3 * fTemp47)):(fSlow4 * (fTemp1 * fTemp47)))))) + (fSlow142 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp48)):(iSlow2?(fSlow4 * (fTemp3 * fTemp48)):(fSlow4 * (fTemp1 * fTemp48))))))) + ((fSlow144 * (((((((((fConst82 * ((fSlow145 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp49)):(iSlow2?(fSlow4 * (fTemp3 * fTemp49)):(fSlow4 * (fTemp1 * fTemp49))))) + (fSlow146 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp50)):(iSlow2?(fSlow4 * (fTemp3 * fTemp50)):(fSlow4 * (fTemp1 * fTemp50))))))) + (fSlow148 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp51)):(iSlow2?(fSlow4 * (fTemp3 * fTemp51)):(fSlow4 * (fTemp1 * fTemp51)))))) + (fSlow150 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp52)):(iSlow2?(fSlow4 * (fTemp3 * fTemp52)):(fSlow4 * (fTemp1 * fTemp52)))))) + (fSlow153 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp53)):(iSlow2?(fSlow4 * (fTemp3 * fTemp53)):(fSlow4 * (fTemp1 * fTemp53)))))) + (fSlow155 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp54)):(iSlow2?(fSlow4 * (fTemp3 * fTemp54)):(fSlow4 * (fTemp1 * fTemp54)))))) + (fSlow158 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp55)):(iSlow2?(fSlow4 * (fTemp3 * fTemp55)):(fSlow4 * (fTemp1 * fTemp55)))))) + (fSlow160 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp56)):(iSlow2?(fSlow4 * (fTemp3 * fTemp56)):(fSlow4 * (fTemp1 * fTemp56)))))) + (fSlow163 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp57)):(iSlow2?(fSlow4 * (fTemp3 * fTemp57)):(fSlow4 * (fTemp1 * fTemp57)))))) + (fSlow165 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp58)):(iSlow2?(fSlow4 * (fTemp3 * fTemp58)):(fSlow4 * (fTemp1 * fTemp58))))))) + ((fSlow167 * (((((((((((((fConst93 * ((fSlow168 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp59)):(iSlow2?(fSlow4 * (fTemp3 * fTemp59)):(fSlow4 * (fTemp1 * fTemp59))))) + (fSlow169 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp60)):(iSlow2?(fSlow4 * (fTemp3 * fTemp60)):(fSlow4 * (fTemp1 * fTemp60))))))) + (fSlow171 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp61)):(iSlow2?(fSlow4 * (fTemp3 * fTemp61)):(fSlow4 * (fTemp1 * fTemp61)))))) + (fSlow173 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp62)):(iSlow2?(fSlow4 * (fTemp3 * fTemp62)):(fSlow4 * (fTemp1 * fTemp62)))))) + (fSlow176 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp63)):(iSlow2?(fSlow4 * (fTemp3 * fTemp63)):(fSlow4 * (fTemp1 * fTemp63)))))) + (fSlow178 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp64)):(iSlow2?(fSlow4 * (fTemp3 * fTemp64)):(fSlow4 * (fTemp1 * fTemp64)))))) + (fSlow181 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp65)):(iSlow2?(fSlow4 * (fTemp3 * fTemp65)):(fSlow4 * (fTemp1 * fTemp65)))))) + (fSlow183 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp66)):(iSlow2?(fSlow4 * (fTemp3 * fTemp66)):(fSlow4 * (fTemp1 * fTemp66)))))) + (fSlow186 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp67)):(iSlow2?(fSlow4 * (fTemp3 * fTemp67)):(fSlow4 * (fTemp1 * fTemp67)))))) + (fSlow188 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp68)):(iSlow2?(fSlow4 * (fTemp3 * fTemp68)):(fSlow4 * (fTemp1 * fTemp68)))))) + (fSlow191 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp69)):(iSlow2?(fSlow4 * (fTemp3 * fTemp69)):(fSlow4 * (fTemp1 * fTemp69)))))) + (fSlow193 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp70)):(iSlow2?(fSlow4 * (fTemp3 * fTemp70)):(fSlow4 * (fTemp1 * fTemp70)))))) + (fSlow196 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp71)):(iSlow2?(fSlow4 * (fTemp3 * fTemp71)):(fSlow4 * (fTemp1 * fTemp71)))))) + (fSlow198 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp72)):(iSlow2?(fSlow4 * (fTemp3 * fTemp72)):(fSlow4 * (fTemp1 * fTemp72))))))) + ((fSlow200 * (((((((((((((((((fConst108 * ((fSlow24 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp73)):(iSlow2?(fSlow4 * (fTemp3 * fTemp73)):(fSlow4 * (fTemp1 * fTemp73))))) + (fSlow17 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp74)):(iSlow2?(fSlow4 * (fTemp3 * fTemp74)):(fSlow4 * (fTemp1 * fTemp74))))))) + (fSlow201 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp75)):(iSlow2?(fSlow4 * (fTemp3 * fTemp75)):(fSlow4 * (fTemp1 * fTemp75)))))) + (fSlow202 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp76)):(iSlow2?(fSlow4 * (fTemp3 * fTemp76)):(fSlow4 * (fTemp1 * fTemp76)))))) + (fSlow204 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp77)):(iSlow2?(fSlow4 * (fTemp3 * fTemp77)):(fSlow4 * (fTemp1 * fTemp77)))))) + (fSlow206 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp78)):(iSlow2?(fSlow4 * (fTemp3 * fTemp78)):(fSlow4 * (fTemp1 * fTemp78)))))) + (fSlow209 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp79)):(iSlow2?(fSlow4 * (fTemp3 * fTemp79)):(fSlow4 * (fTemp1 * fTemp79)))))) + (fSlow211 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp80)):(iSlow2?(fSlow4 * (fTemp3 * fTemp80)):(fSlow4 * (fTemp1 * fTemp80)))))) + (fSlow213 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp81)):(iSlow2?(fSlow4 * (fTemp3 * fTemp81)):(fSlow4 * (fTemp1 * fTemp81)))))) + (fSlow215 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp82)):(iSlow2?(fSlow4 * (fTemp3 * fTemp82)):(fSlow4 * (fTemp1 * fTemp82)))))) + (fSlow218 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp83)):(iSlow2?(fSlow4 * (fTemp3 * fTemp83)):(fSlow4 * (fTemp1 * fTemp83)))))) + (fSlow220 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp84)):(iSlow2?(fSlow4 * (fTemp3 * fTemp84)):(fSlow4 * (fTemp1 * fTemp84)))))) + (fSlow222 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp85)):(iSlow2?(fSlow4 * (fTemp3 * fTemp85)):(fSlow4 * (fTemp1 * fTemp85)))))) + (fSlow224 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp86)):(iSlow2?(fSlow4 * (fTemp3 * fTemp86)):(fSlow4 * (fTemp1 * fTemp86)))))) + (fSlow227 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp87)):(iSlow2?(fSlow4 * (fTemp3 * fTemp87)):(fSlow4 * (fTemp1 * fTemp87)))))) + (fSlow229 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp88)):(iSlow2?(fSlow4 * (fTemp3 * fTemp88)):(fSlow4 * (fTemp1 * fTemp88)))))) + (fSlow231 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp89)):(iSlow2?(fSlow4 * (fTemp3 * fTemp89)):(fSlow4 * (fTemp1 * fTemp89)))))) + (fSlow233 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp90)):(iSlow2?(fSlow4 * (fTemp3 * fTemp90)):(fSlow4 * (fTemp1 * fTemp90))))))) + ((((((iSlow0?(fSlow8 * (fRec2[0] * fTemp0)):(iSlow2?(fSlow4 * (fTemp3 * fTemp0)):(fSlow4 * (fTemp1 * fTemp0)))) + (fSlow234 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp91)):(iSlow2?(fSlow4 * (fTemp3 * fTemp91)):(fSlow4 * (fTemp1 * fTemp91)))))) + (fSlow235 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp92)):(iSlow2?(fSlow4 * (fTemp3 * fTemp92)):(fSlow4 * (fTemp1 * fTemp92)))))) + (fSlow236 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp93)):(iSlow2?(fSlow4 * (fTemp3 * fTemp93)):(fSlow4 * (fTemp1 * fTemp93)))))) + (fSlow237 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp94)):(iSlow2?(fSlow4 * (fTemp3 * fTemp94)):(fSlow4 * (fTemp1 * fTemp94)))))) + (fSlow24 * ((((((fSlow239 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp95)):(iSlow2?(fSlow4 * (fTemp3 * fTemp95)):(fSlow4 * (fTemp1 * fTemp95))))) + (fSlow241 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp96)):(iSlow2?(fSlow4 * (fTemp3 * fTemp96)):(fSlow4 * (fTemp1 * fTemp96)))))) + (fSlow242 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp97)):(iSlow2?(fSlow4 * (fTemp3 * fTemp97)):(fSlow4 * (fTemp1 * fTemp97)))))) + (fSlow244 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp98)):(iSlow2?(fSlow4 * (fTemp3 * fTemp98)):(fSlow4 * (fTemp1 * fTemp98)))))) + (fSlow247 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp99)):(iSlow2?(fSlow4 * (fTemp3 * fTemp99)):(fSlow4 * (fTemp1 * fTemp99)))))) + (fSlow249 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp100)):(iSlow2?(fSlow4 * (fTemp3 * fTemp100)):(fSlow4 * (fTemp1 * fTemp100)))))))))))))) + (fSlow251 * (iSlow0?(fSlow8 * (fRec2[0] * fTemp101)):(iSlow2?(fSlow4 * (fTemp3 * fTemp101)):(fSlow4 * (fTemp1 * fTemp101)))))); + output0[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp0):(iSlow2?(fSlow4 * (fRec1[0] * fTemp0)):(fSlow4 * (fRec0[0] * fTemp0)))) + (0.079577471545947673 * fTemp102))); + output1[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp73):(iSlow2?(fSlow4 * (fRec1[0] * fTemp73)):(fSlow4 * (fRec0[0] * fTemp73)))) + (fSlow252 * fTemp102))); + output2[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp2):(iSlow2?(fSlow4 * (fRec1[0] * fTemp2)):(fSlow4 * (fRec0[0] * fTemp2)))) + (fSlow253 * fTemp102))); + output3[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp74):(iSlow2?(fSlow4 * (fRec1[0] * fTemp74)):(fSlow4 * (fRec0[0] * fTemp74)))) + (fSlow254 * fTemp102))); + output4[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp21):(iSlow2?(fSlow4 * (fRec1[0] * fTemp21)):(fSlow4 * (fRec0[0] * fTemp21)))) + (fSlow255 * fTemp102))); + output5[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp75):(iSlow2?(fSlow4 * (fRec1[0] * fTemp75)):(fSlow4 * (fRec0[0] * fTemp75)))) + (fSlow256 * fTemp102))); + output6[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp91):(iSlow2?(fSlow4 * (fRec1[0] * fTemp91)):(fSlow4 * (fRec0[0] * fTemp91)))) + (fSlow257 * fTemp102))); + output7[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp76):(iSlow2?(fSlow4 * (fRec1[0] * fTemp76)):(fSlow4 * (fRec0[0] * fTemp76)))) + (fSlow258 * fTemp102))); + output8[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp22):(iSlow2?(fSlow4 * (fRec1[0] * fTemp22)):(fSlow4 * (fRec0[0] * fTemp22)))) + (fSlow259 * fTemp102))); + output9[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp59):(iSlow2?(fSlow4 * (fRec1[0] * fTemp59)):(fSlow4 * (fRec0[0] * fTemp59)))) + (fSlow260 * fTemp102))); + output10[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp23):(iSlow2?(fSlow4 * (fRec1[0] * fTemp23)):(fSlow4 * (fRec0[0] * fTemp23)))) + (fSlow261 * fTemp102))); + output11[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp77):(iSlow2?(fSlow4 * (fRec1[0] * fTemp77)):(fSlow4 * (fRec0[0] * fTemp77)))) + (fSlow262 * fTemp102))); + output12[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp4):(iSlow2?(fSlow4 * (fRec1[0] * fTemp4)):(fSlow4 * (fRec0[0] * fTemp4)))) + (fSlow263 * fTemp102))); + output13[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp78):(iSlow2?(fSlow4 * (fRec1[0] * fTemp78)):(fSlow4 * (fRec0[0] * fTemp78)))) + (fSlow264 * fTemp102))); + output14[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp24):(iSlow2?(fSlow4 * (fRec1[0] * fTemp24)):(fSlow4 * (fRec0[0] * fTemp24)))) + (fSlow265 * fTemp102))); + output15[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp60):(iSlow2?(fSlow4 * (fRec1[0] * fTemp60)):(fSlow4 * (fRec0[0] * fTemp60)))) + (fSlow266 * fTemp102))); + output16[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp25):(iSlow2?(fSlow4 * (fRec1[0] * fTemp25)):(fSlow4 * (fRec0[0] * fTemp25)))) + (fSlow267 * fTemp102))); + output17[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp61):(iSlow2?(fSlow4 * (fRec1[0] * fTemp61)):(fSlow4 * (fRec0[0] * fTemp61)))) + (fSlow268 * fTemp102))); + output18[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp26):(iSlow2?(fSlow4 * (fRec1[0] * fTemp26)):(fSlow4 * (fRec0[0] * fTemp26)))) + (fSlow269 * fTemp102))); + output19[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp79):(iSlow2?(fSlow4 * (fRec1[0] * fTemp79)):(fSlow4 * (fRec0[0] * fTemp79)))) + (fSlow270 * fTemp102))); + output20[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp92):(iSlow2?(fSlow4 * (fRec1[0] * fTemp92)):(fSlow4 * (fRec0[0] * fTemp92)))) + (fSlow271 * fTemp102))); + output21[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp80):(iSlow2?(fSlow4 * (fRec1[0] * fTemp80)):(fSlow4 * (fRec0[0] * fTemp80)))) + (fSlow272 * fTemp102))); + output22[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp27):(iSlow2?(fSlow4 * (fRec1[0] * fTemp27)):(fSlow4 * (fRec0[0] * fTemp27)))) + (fSlow273 * fTemp102))); + output23[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp62):(iSlow2?(fSlow4 * (fRec1[0] * fTemp62)):(fSlow4 * (fRec0[0] * fTemp62)))) + (fSlow274 * fTemp102))); + output24[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp28):(iSlow2?(fSlow4 * (fRec1[0] * fTemp28)):(fSlow4 * (fRec0[0] * fTemp28)))) + (fSlow275 * fTemp102))); + output25[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp49):(iSlow2?(fSlow4 * (fRec1[0] * fTemp49)):(fSlow4 * (fRec0[0] * fTemp49)))) + (fSlow276 * fTemp102))); + output26[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp5):(iSlow2?(fSlow4 * (fRec1[0] * fTemp5)):(fSlow4 * (fRec0[0] * fTemp5)))) + (fSlow277 * fTemp102))); + output27[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp63):(iSlow2?(fSlow4 * (fRec1[0] * fTemp63)):(fSlow4 * (fRec0[0] * fTemp63)))) + (fSlow278 * fTemp102))); + output28[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp29):(iSlow2?(fSlow4 * (fRec1[0] * fTemp29)):(fSlow4 * (fRec0[0] * fTemp29)))) + (fSlow279 * fTemp102))); + output29[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp81):(iSlow2?(fSlow4 * (fRec1[0] * fTemp81)):(fSlow4 * (fRec0[0] * fTemp81)))) + (fSlow280 * fTemp102))); + output30[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp6):(iSlow2?(fSlow4 * (fRec1[0] * fTemp6)):(fSlow4 * (fRec0[0] * fTemp6)))) + (fSlow281 * fTemp102))); + output31[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp82):(iSlow2?(fSlow4 * (fRec1[0] * fTemp82)):(fSlow4 * (fRec0[0] * fTemp82)))) + (fSlow282 * fTemp102))); + output32[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp30):(iSlow2?(fSlow4 * (fRec1[0] * fTemp30)):(fSlow4 * (fRec0[0] * fTemp30)))) + (fSlow283 * fTemp102))); + output33[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp64):(iSlow2?(fSlow4 * (fRec1[0] * fTemp64)):(fSlow4 * (fRec0[0] * fTemp64)))) + (fSlow284 * fTemp102))); + output34[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp7):(iSlow2?(fSlow4 * (fRec1[0] * fTemp7)):(fSlow4 * (fRec0[0] * fTemp7)))) + (fSlow285 * fTemp102))); + output35[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp50):(iSlow2?(fSlow4 * (fRec1[0] * fTemp50)):(fSlow4 * (fRec0[0] * fTemp50)))) + (fSlow286 * fTemp102))); + output36[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp31):(iSlow2?(fSlow4 * (fRec1[0] * fTemp31)):(fSlow4 * (fRec0[0] * fTemp31)))) + (fSlow287 * fTemp102))); + output37[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp51):(iSlow2?(fSlow4 * (fRec1[0] * fTemp51)):(fSlow4 * (fRec0[0] * fTemp51)))) + (fSlow288 * fTemp102))); + output38[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp32):(iSlow2?(fSlow4 * (fRec1[0] * fTemp32)):(fSlow4 * (fRec0[0] * fTemp32)))) + (fSlow289 * fTemp102))); + output39[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp65):(iSlow2?(fSlow4 * (fRec1[0] * fTemp65)):(fSlow4 * (fRec0[0] * fTemp65)))) + (fSlow290 * fTemp102))); + output40[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp33):(iSlow2?(fSlow4 * (fRec1[0] * fTemp33)):(fSlow4 * (fRec0[0] * fTemp33)))) + (fSlow291 * fTemp102))); + output41[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp83):(iSlow2?(fSlow4 * (fRec1[0] * fTemp83)):(fSlow4 * (fRec0[0] * fTemp83)))) + (fSlow292 * fTemp102))); + output42[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp93):(iSlow2?(fSlow4 * (fRec1[0] * fTemp93)):(fSlow4 * (fRec0[0] * fTemp93)))) + (fSlow293 * fTemp102))); + output43[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp84):(iSlow2?(fSlow4 * (fRec1[0] * fTemp84)):(fSlow4 * (fRec0[0] * fTemp84)))) + (fSlow294 * fTemp102))); + output44[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp34):(iSlow2?(fSlow4 * (fRec1[0] * fTemp34)):(fSlow4 * (fRec0[0] * fTemp34)))) + (fSlow295 * fTemp102))); + output45[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp66):(iSlow2?(fSlow4 * (fRec1[0] * fTemp66)):(fSlow4 * (fRec0[0] * fTemp66)))) + (fSlow296 * fTemp102))); + output46[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp35):(iSlow2?(fSlow4 * (fRec1[0] * fTemp35)):(fSlow4 * (fRec0[0] * fTemp35)))) + (fSlow297 * fTemp102))); + output47[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp52):(iSlow2?(fSlow4 * (fRec1[0] * fTemp52)):(fSlow4 * (fRec0[0] * fTemp52)))) + (fSlow298 * fTemp102))); + output48[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp36):(iSlow2?(fSlow4 * (fRec1[0] * fTemp36)):(fSlow4 * (fRec0[0] * fTemp36)))) + (fSlow299 * fTemp102))); + output49[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp95):(iSlow2?(fSlow4 * (fRec1[0] * fTemp95)):(fSlow4 * (fRec0[0] * fTemp95)))) + (fSlow300 * fTemp102))); + output50[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp8):(iSlow2?(fSlow4 * (fRec1[0] * fTemp8)):(fSlow4 * (fRec0[0] * fTemp8)))) + (fSlow301 * fTemp102))); + output51[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp53):(iSlow2?(fSlow4 * (fRec1[0] * fTemp53)):(fSlow4 * (fRec0[0] * fTemp53)))) + (fSlow302 * fTemp102))); + output52[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp37):(iSlow2?(fSlow4 * (fRec1[0] * fTemp37)):(fSlow4 * (fRec0[0] * fTemp37)))) + (fSlow303 * fTemp102))); + output53[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp67):(iSlow2?(fSlow4 * (fRec1[0] * fTemp67)):(fSlow4 * (fRec0[0] * fTemp67)))) + (fSlow304 * fTemp102))); + output54[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp96):(iSlow2?(fSlow4 * (fRec1[0] * fTemp96)):(fSlow4 * (fRec0[0] * fTemp96)))) + (fSlow305 * fTemp102))); + output55[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp85):(iSlow2?(fSlow4 * (fRec1[0] * fTemp85)):(fSlow4 * (fRec0[0] * fTemp85)))) + (fSlow306 * fTemp102))); + output56[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp9):(iSlow2?(fSlow4 * (fRec1[0] * fTemp9)):(fSlow4 * (fRec0[0] * fTemp9)))) + (fSlow307 * fTemp102))); + output57[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp86):(iSlow2?(fSlow4 * (fRec1[0] * fTemp86)):(fSlow4 * (fRec0[0] * fTemp86)))) + (fSlow308 * fTemp102))); + output58[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp38):(iSlow2?(fSlow4 * (fRec1[0] * fTemp38)):(fSlow4 * (fRec0[0] * fTemp38)))) + (fSlow309 * fTemp102))); + output59[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp68):(iSlow2?(fSlow4 * (fRec1[0] * fTemp68)):(fSlow4 * (fRec0[0] * fTemp68)))) + (fSlow310 * fTemp102))); + output60[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp10):(iSlow2?(fSlow4 * (fRec1[0] * fTemp10)):(fSlow4 * (fRec0[0] * fTemp10)))) + (fSlow311 * fTemp102))); + output61[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp54):(iSlow2?(fSlow4 * (fRec1[0] * fTemp54)):(fSlow4 * (fRec0[0] * fTemp54)))) + (fSlow312 * fTemp102))); + output62[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp39):(iSlow2?(fSlow4 * (fRec1[0] * fTemp39)):(fSlow4 * (fRec0[0] * fTemp39)))) + (fSlow313 * fTemp102))); + output63[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp16):(iSlow2?(fSlow4 * (fRec1[0] * fTemp16)):(fSlow4 * (fRec0[0] * fTemp16)))) + (fSlow314 * fTemp102))); + output64[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp97):(iSlow2?(fSlow4 * (fRec1[0] * fTemp97)):(fSlow4 * (fRec0[0] * fTemp97)))) + (fSlow315 * fTemp102))); + output65[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp17):(iSlow2?(fSlow4 * (fRec1[0] * fTemp17)):(fSlow4 * (fRec0[0] * fTemp17)))) + (fSlow316 * fTemp102))); + output66[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp40):(iSlow2?(fSlow4 * (fRec1[0] * fTemp40)):(fSlow4 * (fRec0[0] * fTemp40)))) + (fSlow317 * fTemp102))); + output67[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp55):(iSlow2?(fSlow4 * (fRec1[0] * fTemp55)):(fSlow4 * (fRec0[0] * fTemp55)))) + (fSlow318 * fTemp102))); + output68[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp98):(iSlow2?(fSlow4 * (fRec1[0] * fTemp98)):(fSlow4 * (fRec0[0] * fTemp98)))) + (fSlow319 * fTemp102))); + output69[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp69):(iSlow2?(fSlow4 * (fRec1[0] * fTemp69)):(fSlow4 * (fRec0[0] * fTemp69)))) + (fSlow320 * fTemp102))); + output70[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp41):(iSlow2?(fSlow4 * (fRec1[0] * fTemp41)):(fSlow4 * (fRec0[0] * fTemp41)))) + (fSlow321 * fTemp102))); + output71[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp87):(iSlow2?(fSlow4 * (fRec1[0] * fTemp87)):(fSlow4 * (fRec0[0] * fTemp87)))) + (fSlow322 * fTemp102))); + output72[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp94):(iSlow2?(fSlow4 * (fRec1[0] * fTemp94)):(fSlow4 * (fRec0[0] * fTemp94)))) + (fSlow323 * fTemp102))); + output73[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp88):(iSlow2?(fSlow4 * (fRec1[0] * fTemp88)):(fSlow4 * (fRec0[0] * fTemp88)))) + (fSlow324 * fTemp102))); + output74[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp42):(iSlow2?(fSlow4 * (fRec1[0] * fTemp42)):(fSlow4 * (fRec0[0] * fTemp42)))) + (fSlow325 * fTemp102))); + output75[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp70):(iSlow2?(fSlow4 * (fRec1[0] * fTemp70)):(fSlow4 * (fRec0[0] * fTemp70)))) + (fSlow326 * fTemp102))); + output76[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp43):(iSlow2?(fSlow4 * (fRec1[0] * fTemp43)):(fSlow4 * (fRec0[0] * fTemp43)))) + (fSlow327 * fTemp102))); + output77[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp56):(iSlow2?(fSlow4 * (fRec1[0] * fTemp56)):(fSlow4 * (fRec0[0] * fTemp56)))) + (fSlow328 * fTemp102))); + output78[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp44):(iSlow2?(fSlow4 * (fRec1[0] * fTemp44)):(fSlow4 * (fRec0[0] * fTemp44)))) + (fSlow329 * fTemp102))); + output79[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp18):(iSlow2?(fSlow4 * (fRec1[0] * fTemp18)):(fSlow4 * (fRec0[0] * fTemp18)))) + (fSlow330 * fTemp102))); + output80[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp45):(iSlow2?(fSlow4 * (fRec1[0] * fTemp45)):(fSlow4 * (fRec0[0] * fTemp45)))) + (fSlow331 * fTemp102))); + output81[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp99):(iSlow2?(fSlow4 * (fRec1[0] * fTemp99)):(fSlow4 * (fRec0[0] * fTemp99)))) + (fSlow332 * fTemp102))); + output82[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp11):(iSlow2?(fSlow4 * (fRec1[0] * fTemp11)):(fSlow4 * (fRec0[0] * fTemp11)))) + (fSlow333 * fTemp102))); + output83[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp19):(iSlow2?(fSlow4 * (fRec1[0] * fTemp19)):(fSlow4 * (fRec0[0] * fTemp19)))) + (fSlow334 * fTemp102))); + output84[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp46):(iSlow2?(fSlow4 * (fRec1[0] * fTemp46)):(fSlow4 * (fRec0[0] * fTemp46)))) + (fSlow335 * fTemp102))); + output85[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp57):(iSlow2?(fSlow4 * (fRec1[0] * fTemp57)):(fSlow4 * (fRec0[0] * fTemp57)))) + (fSlow336 * fTemp102))); + output86[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp100):(iSlow2?(fSlow4 * (fRec1[0] * fTemp100)):(fSlow4 * (fRec0[0] * fTemp100)))) + (fSlow337 * fTemp102))); + output87[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp71):(iSlow2?(fSlow4 * (fRec1[0] * fTemp71)):(fSlow4 * (fRec0[0] * fTemp71)))) + (fSlow338 * fTemp102))); + output88[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp12):(iSlow2?(fSlow4 * (fRec1[0] * fTemp12)):(fSlow4 * (fRec0[0] * fTemp12)))) + (fSlow339 * fTemp102))); + output89[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp89):(iSlow2?(fSlow4 * (fRec1[0] * fTemp89)):(fSlow4 * (fRec0[0] * fTemp89)))) + (fSlow340 * fTemp102))); + output90[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp13):(iSlow2?(fSlow4 * (fRec1[0] * fTemp13)):(fSlow4 * (fRec0[0] * fTemp13)))) + (fSlow341 * fTemp102))); + output91[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp90):(iSlow2?(fSlow4 * (fRec1[0] * fTemp90)):(fSlow4 * (fRec0[0] * fTemp90)))) + (fSlow342 * fTemp102))); + output92[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp47):(iSlow2?(fSlow4 * (fRec1[0] * fTemp47)):(fSlow4 * (fRec0[0] * fTemp47)))) + (fSlow343 * fTemp102))); + output93[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp72):(iSlow2?(fSlow4 * (fRec1[0] * fTemp72)):(fSlow4 * (fRec0[0] * fTemp72)))) + (fSlow344 * fTemp102))); + output94[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp14):(iSlow2?(fSlow4 * (fRec1[0] * fTemp14)):(fSlow4 * (fRec0[0] * fTemp14)))) + (fSlow345 * fTemp102))); + output95[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp58):(iSlow2?(fSlow4 * (fRec1[0] * fTemp58)):(fSlow4 * (fRec0[0] * fTemp58)))) + (fSlow346 * fTemp102))); + output96[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp48):(iSlow2?(fSlow4 * (fRec1[0] * fTemp48)):(fSlow4 * (fRec0[0] * fTemp48)))) + (fSlow347 * fTemp102))); + output97[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp20):(iSlow2?(fSlow4 * (fRec1[0] * fTemp20)):(fSlow4 * (fRec0[0] * fTemp20)))) + (fSlow348 * fTemp102))); + output98[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp15):(iSlow2?(fSlow4 * (fRec1[0] * fTemp15)):(fSlow4 * (fRec0[0] * fTemp15)))) + (fSlow349 * fTemp102))); + output99[i] = FAUSTFLOAT(((iSlow0?(fSlow9 * fTemp101):(iSlow2?(fSlow4 * (fRec1[0] * fTemp101)):(fSlow4 * (fRec0[0] * fTemp101)))) + (fSlow350 * fTemp102))); + fRec0[1] = fRec0[0]; + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamHCardio2HOA1.cpp b/source/HOAUGens/HOABeamHCardio2HOA1.cpp new file mode 100644 index 0000000000..f7e20384d5 --- /dev/null +++ b/source/HOAUGens/HOABeamHCardio2HOA1.cpp @@ -0,0 +1,1383 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamHCardio2HOA1" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fConst0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fHslider2; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("cijk.lib/author", "Pierre Lecomte"); + m->declare("cijk.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("cijk.lib/license", "GPL"); + m->declare("cijk.lib/name", "Cijk matrix"); + m->declare("cijk.lib/version", "10"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamHCardio2HOA1"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamHCardio2HOA1"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = double(tgamma(1.5)); + fConst1 = double(tgamma(1.0)); + fConst2 = sqrt((3.0 * (fConst1 / double(tgamma(3.0))))); + fConst3 = (fConst0 * fConst2); + fConst4 = (0.39894624032434478 * fConst3); + fConst5 = (0.17730759750868944 * fConst3); + fConst6 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst1 / double(tgamma(5.0)))))); + fConst7 = (0.27467957472329729 * fConst6); + fConst8 = (0.17730759750868944 * fConst2); + fConst9 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst10 = (0.41201936208494599 * fConst9); + fConst11 = (0.54935914944659459 * fConst6); + fConst12 = (fConst0 * fConst9); + fConst13 = (0.41201936208494599 * fConst12); + fConst14 = (0.30902256091651653 * fConst3); + fConst15 = (0.13734193310743828 * fConst3); + fConst16 = (0.70921930945587786 * fConst6); + fConst17 = (0.53191448209190839 * fConst12); + fConst18 = (0.17841434392041153 * fConst3); + fConst19 = (0.079294439912251033 * fConst3); + fConst20 = (0.13734193310743828 * fConst2); + fConst21 = (0.53191448209190839 * fConst9); + fConst22 = (0.35460965472793893 * fConst6); + fConst23 = (0.34821994335939616 * fConst12); + fConst24 = (0.46429325781252823 * fConst6); + fConst25 = (0.073411290721777919 * fConst6); + fConst26 = (0.44046721241618542 * fConst12); + fConst27 = (0.14682258144355584 * fConst6); + fConst28 = (0.26973011046743212 * fConst12); + fConst29 = (0.23214662890626411 * fConst6); + fConst30 = (0.56864069481277157 * fConst6); + fConst31 = (0.28432034740638579 * fConst6); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "3", ""); + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation", &fHslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->addCheckButton("Int/Float", &fCheckbox0); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Order", &fHslider0, 0.0, 0.0, 2.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + double fSlow0 = double(fHslider0); + double fSlow1 = (int(double(fCheckbox0))?fSlow0:double(int(fSlow0))); + double fSlow2 = max(0.0, (1.0 - fabs(fSlow1))); + double fSlow3 = sin(double(fHslider1)); + double fSlow4 = (0.43301700000000004 * fSlow3); + double fSlow5 = mydsp_faustpower2_f(fSlow3); + double fSlow6 = (1.0 - fSlow5); + double fSlow7 = pow(fSlow6, 0.5); + double fSlow8 = (fConst4 * fSlow7); + double fSlow9 = double(fHslider2); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = max(0.0, (1.0 - fabs((fSlow1 + -1.0)))); + double fSlow13 = (0.19245000000000004 * fSlow3); + double fSlow14 = (fConst5 * fSlow7); + double fSlow15 = max(0.0, (1.0 - fabs((fSlow1 + -2.0)))); + double fSlow16 = (fSlow7 * fSlow10); + double fSlow17 = (fConst4 * fSlow16); + double fSlow18 = ((3.0 * fSlow5) + -1.0); + double fSlow19 = (0.055554711935999999 * fSlow18); + double fSlow20 = ((2.0 * mydsp_faustpower2_f(fSlow11)) + -1.0); + double fSlow21 = (fSlow20 * fSlow6); + double fSlow22 = (fConst7 * fSlow21); + double fSlow23 = (0.11112 - (fSlow19 + fSlow22)); + double fSlow24 = (fConst0 * fSlow7); + double fSlow25 = (fConst10 * fSlow3); + double fSlow26 = (fSlow11 * fSlow6); + double fSlow27 = (fConst11 * fSlow26); + double fSlow28 = ((0.111109299648 * fSlow18) + 0.11112); + double fSlow29 = (fConst13 * fSlow16); + double fSlow30 = (fSlow11 * fSlow7); + double fSlow31 = (fConst13 * fSlow30); + double fSlow32 = (fConst4 * fSlow30); + double fSlow33 = (fSlow6 * fSlow10); + double fSlow34 = (fConst11 * fSlow33); + double fSlow35 = (fSlow3 * fSlow7); + double fSlow36 = (fConst13 * fSlow35); + double fSlow37 = (fSlow22 + (0.11112 - fSlow19)); + double fSlow38 = (fConst14 * fSlow7); + double fSlow39 = (fConst15 * fSlow7); + double fSlow40 = (fConst16 * fSlow33); + double fSlow41 = (fConst15 * fSlow16); + double fSlow42 = (0.335413669149 * fSlow3); + double fSlow43 = (fConst14 * fSlow16); + double fSlow44 = (fConst17 * fSlow16); + double fSlow45 = (0.0 - (fConst18 * fSlow16)); + double fSlow46 = (0.38730209625899997 * fSlow3); + double fSlow47 = (0.0 - (fConst18 * fSlow30)); + double fSlow48 = (0.0 - (fConst19 * fSlow16)); + double fSlow49 = (0.124224 * fSlow18); + double fSlow50 = (0.17213247615000002 * fSlow3); + double fSlow51 = (0.0 - (fConst19 * fSlow30)); + double fSlow52 = (fConst14 * fSlow30); + double fSlow53 = (fConst0 * fSlow30); + double fSlow54 = (fConst21 * fSlow3); + double fSlow55 = (0.14907119265000002 * fSlow3); + double fSlow56 = (0.0 - fSlow43); + double fSlow57 = (0.0 - fSlow41); + double fSlow58 = (fConst22 * fSlow21); + double fSlow59 = (fConst15 * fSlow30); + double fSlow60 = (fConst6 * fSlow6); + double fSlow61 = (0.56864069481277157 * (fSlow11 * fSlow10)); + double fSlow62 = (0.28432034740638579 * fSlow20); + double fSlow63 = (fConst23 * fSlow35); + double fSlow64 = (fConst24 * fSlow33); + double fSlow65 = (fSlow35 * fSlow10); + double fSlow66 = (fConst23 * fSlow65); + double fSlow67 = (0.089085626687999991 * fSlow18); + double fSlow68 = (fConst25 * fSlow21); + double fSlow69 = (fSlow67 + fSlow68); + double fSlow70 = (fConst26 * fSlow65); + double fSlow71 = (fSlow26 * fSlow10); + double fSlow72 = (0.0 - (fConst27 * fSlow71)); + double fSlow73 = (0.0 - (fConst28 * fSlow65)); + double fSlow74 = (0.10910718143999999 * fSlow18); + double fSlow75 = ((fSlow11 * fSlow3) * fSlow7); + double fSlow76 = (0.0 - (fConst28 * fSlow75)); + double fSlow77 = (fConst26 * fSlow75); + double fSlow78 = (fSlow67 - fSlow68); + double fSlow79 = (fConst29 * fSlow21); + double fSlow80 = (0.0 - fSlow66); + double fSlow81 = (fConst23 * fSlow75); + double fSlow82 = (0.0 - (fConst30 * fSlow71)); + double fSlow83 = (fConst31 * fSlow21); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input1[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = ((fSlow10 * fTemp2) + (fSlow11 * fTemp3)); + output0[i] = FAUSTFLOAT((((fSlow2 * fTemp0) + (((0.24993000000000001 * fTemp0) + ((fSlow4 * fTemp1) + (fSlow8 * fTemp4))) * fSlow12)) + (((0.11112 * fTemp0) + ((fSlow13 * fTemp1) + (fSlow14 * fTemp4))) * fSlow15))); + output1[i] = FAUSTFLOAT((((fSlow2 * fTemp2) + (fSlow12 * ((fSlow17 * fTemp0) + (0.24993000000000001 * fTemp2)))) + (fSlow15 * ((fSlow23 * fTemp2) + (fSlow10 * ((fSlow24 * ((fConst8 * fTemp0) + (fSlow25 * fTemp1))) + (fSlow27 * fTemp3))))))); + output2[i] = FAUSTFLOAT((((fSlow2 * fTemp1) + (fSlow12 * ((fSlow4 * fTemp0) + (0.24993000000000001 * fTemp1)))) + (fSlow15 * ((fSlow28 * fTemp1) + (fSlow3 * (((fSlow29 * fTemp2) + (0.19245000000000004 * fTemp0)) + (fSlow31 * fTemp3))))))); + output3[i] = FAUSTFLOAT((((fSlow2 * fTemp3) + (fSlow12 * ((fSlow32 * fTemp0) + (0.24993000000000001 * fTemp3)))) + (fSlow15 * ((fSlow11 * (((fSlow14 * fTemp0) + (fSlow34 * fTemp2)) + (fSlow36 * fTemp1))) + (fSlow37 * fTemp3))))); + output4[i] = FAUSTFLOAT(((fSlow38 * (fSlow12 * ((fSlow11 * fTemp2) + (fSlow10 * fTemp3)))) + (fSlow15 * ((fSlow11 * ((fSlow39 * fTemp2) + (fSlow40 * fTemp0))) + (fSlow41 * fTemp3))))); + output5[i] = FAUSTFLOAT(((fSlow12 * ((fSlow42 * fTemp2) + (fSlow43 * fTemp1))) + (fSlow15 * ((fSlow3 * ((fSlow44 * fTemp0) + (0.14907119265000002 * fTemp2))) + (fSlow41 * fTemp1))))); + output6[i] = FAUSTFLOAT(((fSlow12 * (((fSlow45 * fTemp2) + (fSlow46 * fTemp1)) + (fSlow47 * fTemp3))) + (fSlow15 * (((fSlow48 * fTemp2) + ((fSlow49 * fTemp0) + (fSlow50 * fTemp1))) + (fSlow51 * fTemp3))))); + output7[i] = FAUSTFLOAT(((fSlow12 * ((fSlow52 * fTemp1) + (fSlow42 * fTemp3))) + (fSlow15 * ((fSlow53 * ((fConst20 * fTemp1) + (fSlow54 * fTemp0))) + (fSlow55 * fTemp3))))); + output8[i] = FAUSTFLOAT(((fSlow12 * ((fSlow56 * fTemp2) + (fSlow52 * fTemp3))) + (fSlow15 * ((fSlow57 * fTemp2) + ((fSlow58 * fTemp0) + (fSlow59 * fTemp3)))))); + output9[i] = FAUSTFLOAT((fSlow60 * (fSlow15 * ((fSlow61 * fTemp3) + (fSlow62 * fTemp2))))); + output10[i] = FAUSTFLOAT((fSlow15 * ((fSlow11 * ((fSlow63 * fTemp2) + (fSlow64 * fTemp1))) + (fSlow66 * fTemp3)))); + output11[i] = FAUSTFLOAT((fSlow15 * (((fSlow69 * fTemp2) + (fSlow70 * fTemp1)) + (fSlow72 * fTemp3)))); + output12[i] = FAUSTFLOAT((fSlow15 * (((fSlow73 * fTemp2) + (fSlow74 * fTemp1)) + (fSlow76 * fTemp3)))); + output13[i] = FAUSTFLOAT((fSlow15 * (((fSlow72 * fTemp2) + (fSlow77 * fTemp1)) + (fSlow78 * fTemp3)))); + output14[i] = FAUSTFLOAT((fSlow15 * ((fSlow79 * fTemp1) + ((fSlow80 * fTemp2) + (fSlow81 * fTemp3))))); + output15[i] = FAUSTFLOAT((fSlow15 * ((fSlow82 * fTemp2) + (fSlow83 * fTemp3)))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamHCardio2HOA2.cpp b/source/HOAUGens/HOABeamHCardio2HOA2.cpp new file mode 100644 index 0000000000..f5d3f0893a --- /dev/null +++ b/source/HOAUGens/HOABeamHCardio2HOA2.cpp @@ -0,0 +1,1619 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamHCardio2HOA2" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fConst0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fHslider2; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("cijk.lib/author", "Pierre Lecomte"); + m->declare("cijk.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("cijk.lib/license", "GPL"); + m->declare("cijk.lib/name", "Cijk matrix"); + m->declare("cijk.lib/version", "10"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamHCardio2HOA2"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamHCardio2HOA2"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = double(tgamma(1.5)); + fConst1 = double(tgamma(1.0)); + fConst2 = sqrt((3.0 * (fConst1 / double(tgamma(3.0))))); + fConst3 = (fConst0 * fConst2); + fConst4 = (0.39894624032434478 * fConst3); + fConst5 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst1 / double(tgamma(5.0)))))); + fConst6 = (0.17730759750868944 * fConst2); + fConst7 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst8 = (0.53191448209190839 * fConst7); + fConst9 = (0.17841434392041153 * fConst3); + fConst10 = (0.30902256091651653 * fConst3); + fConst11 = (0.41201936208494599 * fConst7); + fConst12 = (0.54935914944659459 * fConst5); + fConst13 = (0.27467957472329729 * fConst5); + fConst14 = (0.13734193310743828 * fConst3); + fConst15 = (0.079294439912251033 * fConst3); + fConst16 = (fConst0 * fConst7); + fConst17 = (0.41201936208494599 * fConst16); + fConst18 = (0.17730759750868944 * fConst3); + fConst19 = (0.13734193310743828 * fConst2); + fConst20 = (0.29429924039525734 * fConst7); + fConst21 = (0.70921930945587786 * fConst5); + fConst22 = (0.45310390476724288 * fConst5); + fConst23 = (0.16991369833047504 * fConst7); + fConst24 = (0.53191448209190839 * fConst16); + fConst25 = (0.19619949359683822 * fConst5); + fConst26 = (0.39239898719367644 * fConst5); + fConst27 = (0.29429924039525734 * fConst16); + fConst28 = (0.16991369833047504 * fConst16); + fConst29 = (0.22655195238362144 * fConst5); + fConst30 = (0.35460965472793893 * fConst5); + fConst31 = (0.31986871235221448 * fConst3); + fConst32 = (0.14216239476090706 * fConst3); + fConst33 = (0.26117175201329362 * fConst3); + fConst34 = (0.34821994335939616 * fConst16); + fConst35 = (0.46429325781252823 * fConst5); + fConst36 = (0.11607512793945357 * fConst3); + fConst37 = (0.082589850671945866 * fConst3); + fConst38 = (0.44046721241618542 * fConst16); + fConst39 = (0.036706218836248881 * fConst3); + fConst40 = (0.073411290721777919 * fConst5); + fConst41 = (0.14682258144355584 * fConst5); + fConst42 = (0.20230284584479297 * fConst3); + fConst43 = (0.089911441543473844 * fConst3); + fConst44 = (0.26973011046743212 * fConst16); + fConst45 = (0.28609910994747967 * fConst3); + fConst46 = (0.44046721241618542 * fConst7); + fConst47 = (0.127153838554589 * fConst2); + fConst48 = (0.11607512793945357 * fConst2); + fConst49 = (0.34821994335939616 * fConst7); + fConst50 = (0.23214662890626411 * fConst5); + fConst51 = (0.28432034740638579 * fConst5); + fConst52 = (0.56864069481277157 * fConst5); + fConst53 = (0.31787954130087376 * fConst16); + fConst54 = (0.3398279285754322 * fConst16); + fConst55 = (0.12014724747147398 * fConst16); + fConst56 = (0.080098164980982656 * fConst5); + fConst57 = (0.16019632996196531 * fConst5); + fConst58 = (0.30395136058729716 * fConst16); + fConst59 = (0.41620233757211678 * fConst16); + fConst60 = (0.21191969420058249 * fConst5); + fConst61 = (0.42383938840116497 * fConst5); + fConst62 = (0.59939953626387299 * fConst5); + fConst63 = (0.29969976813193649 * fConst5); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "3", ""); + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation", &fHslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->addCheckButton("Int/Float", &fCheckbox0); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Order", &fHslider0, 0.0, 0.0, 2.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + double fSlow0 = double(fHslider0); + double fSlow1 = (int(double(fCheckbox0))?fSlow0:double(int(fSlow0))); + double fSlow2 = max(0.0, (1.0 - fabs(fSlow1))); + double fSlow3 = sin(double(fHslider1)); + double fSlow4 = (0.43301700000000004 * fSlow3); + double fSlow5 = mydsp_faustpower2_f(fSlow3); + double fSlow6 = (1.0 - fSlow5); + double fSlow7 = pow(fSlow6, 0.5); + double fSlow8 = (fConst4 * fSlow7); + double fSlow9 = double(fHslider2); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = max(0.0, (1.0 - fabs((fSlow1 + -1.0)))); + double fSlow13 = (fConst5 * fSlow6); + double fSlow14 = (fSlow11 * fSlow10); + double fSlow15 = (0.70921930945587786 * fSlow14); + double fSlow16 = ((2.0 * mydsp_faustpower2_f(fSlow11)) + -1.0); + double fSlow17 = (0.35460965472793893 * fSlow16); + double fSlow18 = (fConst0 * fSlow7); + double fSlow19 = (fSlow3 * fSlow10); + double fSlow20 = (fConst8 * fSlow19); + double fSlow21 = (fSlow11 * fSlow3); + double fSlow22 = (fConst8 * fSlow21); + double fSlow23 = (0.19245000000000004 * fSlow3); + double fSlow24 = ((3.0 * fSlow5) + -1.0); + double fSlow25 = (0.124224 * fSlow24); + double fSlow26 = max(0.0, (1.0 - fabs((fSlow1 + -2.0)))); + double fSlow27 = (fConst3 * fSlow7); + double fSlow28 = (0.39894624032434478 * fSlow10); + double fSlow29 = (0.30902256091651653 * fSlow11); + double fSlow30 = (0.335413669149 * fSlow3); + double fSlow31 = (fSlow7 * fSlow10); + double fSlow32 = (0.0 - (fConst9 * fSlow31)); + double fSlow33 = (fConst10 * fSlow31); + double fSlow34 = (0.0 - fSlow33); + double fSlow35 = (fConst11 * fSlow3); + double fSlow36 = (fSlow11 * fSlow6); + double fSlow37 = (fConst12 * fSlow36); + double fSlow38 = (0.055554711935999999 * fSlow24); + double fSlow39 = (fSlow16 * fSlow6); + double fSlow40 = (fConst13 * fSlow39); + double fSlow41 = (0.11112 - (fSlow38 + fSlow40)); + double fSlow42 = (fSlow11 * fSlow7); + double fSlow43 = (fConst14 * fSlow42); + double fSlow44 = (0.14907119265000002 * fSlow3); + double fSlow45 = (0.0 - (fConst15 * fSlow31)); + double fSlow46 = (0.0 - (fConst14 * fSlow31)); + double fSlow47 = (fConst10 * fSlow7); + double fSlow48 = (fConst17 * fSlow31); + double fSlow49 = (fConst17 * fSlow42); + double fSlow50 = ((0.111109299648 * fSlow24) + 0.11112); + double fSlow51 = (fConst14 * fSlow7); + double fSlow52 = (0.39894624032434478 * fSlow11); + double fSlow53 = (0.30902256091651653 * fSlow10); + double fSlow54 = (0.0 - (fConst9 * fSlow42)); + double fSlow55 = (0.0 - (fConst15 * fSlow42)); + double fSlow56 = (fSlow40 + (0.11112 - fSlow38)); + double fSlow57 = (fConst18 * fSlow7); + double fSlow58 = (fSlow6 * fSlow10); + double fSlow59 = (fConst12 * fSlow58); + double fSlow60 = (fSlow3 * fSlow7); + double fSlow61 = (fConst17 * fSlow60); + double fSlow62 = (fConst19 * fSlow10); + double fSlow63 = (fConst20 * fSlow21); + double fSlow64 = (fConst20 * fSlow19); + double fSlow65 = (fConst21 * fSlow58); + double fSlow66 = (0.079363856447999995 * fSlow24); + double fSlow67 = (0.11112 - fSlow66); + double fSlow68 = (fSlow36 * fSlow10); + double fSlow69 = (0.0 - (fConst22 * fSlow68)); + double fSlow70 = (fConst23 * fSlow19); + double fSlow71 = (fConst24 * fSlow31); + double fSlow72 = (0.039681866111999996 * fSlow24); + double fSlow73 = (fConst25 * fSlow39); + double fSlow74 = (fSlow72 + (0.11112 - fSlow73)); + double fSlow75 = (fConst26 * fSlow68); + double fSlow76 = (fSlow60 * fSlow10); + double fSlow77 = (0.0 - (fConst27 * fSlow76)); + double fSlow78 = (0.38730209625899997 * fSlow3); + double fSlow79 = (fConst28 * fSlow31); + double fSlow80 = (fConst28 * fSlow42); + double fSlow81 = (fSlow66 + 0.11112); + double fSlow82 = (0.0 - (fConst29 * fSlow39)); + double fSlow83 = (fConst10 * fSlow42); + double fSlow84 = (fConst8 * fSlow3); + double fSlow85 = (fConst23 * fSlow21); + double fSlow86 = ((fSlow72 + fSlow73) + 0.11112); + double fSlow87 = (fConst0 * fSlow42); + double fSlow88 = (fConst20 * fSlow3); + double fSlow89 = (fConst30 * fSlow39); + double fSlow90 = (fConst31 * fSlow7); + double fSlow91 = (0.56864069481277157 * fSlow14); + double fSlow92 = (0.28432034740638579 * fSlow16); + double fSlow93 = (fConst32 * fSlow7); + double fSlow94 = (0.28347631111800004 * fSlow3); + double fSlow95 = (fConst33 * fSlow7); + double fSlow96 = (fConst34 * fSlow60); + double fSlow97 = (fConst35 * fSlow58); + double fSlow98 = (fConst36 * fSlow7); + double fSlow99 = (fConst34 * fSlow31); + double fSlow100 = (fConst36 * fSlow31); + double fSlow101 = (0.0 - (fConst37 * fSlow42)); + double fSlow102 = (0.35857228434300004 * fSlow3); + double fSlow103 = (fConst3 * fSlow31); + double fSlow104 = (fConst38 * fSlow31); + double fSlow105 = (0.0 - (fConst39 * fSlow42)); + double fSlow106 = (0.089085626687999991 * fSlow24); + double fSlow107 = (fConst40 * fSlow39); + double fSlow108 = (fSlow106 + fSlow107); + double fSlow109 = (0.0 - (fConst41 * fSlow68)); + double fSlow110 = (0.0 - (fConst42 * fSlow31)); + double fSlow111 = (0.38032316126999999 * fSlow3); + double fSlow112 = (0.0 - (fConst42 * fSlow42)); + double fSlow113 = (0.0 - (fConst43 * fSlow31)); + double fSlow114 = (fSlow21 * fSlow7); + double fSlow115 = (0.0 - (fConst44 * fSlow114)); + double fSlow116 = (0.10910718143999999 * fSlow24); + double fSlow117 = (0.0 - (fConst44 * fSlow76)); + double fSlow118 = (0.16903075950000004 * fSlow3); + double fSlow119 = (0.0 - (fConst43 * fSlow42)); + double fSlow120 = (fConst45 * fSlow42); + double fSlow121 = (0.0 - (fConst37 * fSlow31)); + double fSlow122 = (fConst46 * fSlow3); + double fSlow123 = (0.0 - (fConst39 * fSlow31)); + double fSlow124 = (fSlow106 - fSlow107); + double fSlow125 = (0.15936380355000002 * fSlow3); + double fSlow126 = (0.0 - (fConst33 * fSlow31)); + double fSlow127 = (fConst33 * fSlow42); + double fSlow128 = (fConst49 * fSlow3); + double fSlow129 = (0.0 - fSlow100); + double fSlow130 = (fConst50 * fSlow39); + double fSlow131 = (0.0 - (fConst34 * fSlow76)); + double fSlow132 = (0.12598816230000001 * fSlow3); + double fSlow133 = (0.0 - (fConst31 * fSlow31)); + double fSlow134 = (fConst31 * fSlow42); + double fSlow135 = (0.0 - (fConst32 * fSlow31)); + double fSlow136 = (fConst51 * fSlow39); + double fSlow137 = (0.0 - (fConst52 * fSlow68)); + double fSlow138 = (fConst32 * fSlow42); + double fSlow139 = (0.29969976813193649 * fSlow16); + double fSlow140 = (0.59939953626387299 * fSlow14); + double fSlow141 = (0.42383938840116497 * fSlow14); + double fSlow142 = (0.21191969420058249 * fSlow16); + double fSlow143 = (fConst53 * fSlow60); + double fSlow144 = (fConst54 * fSlow60); + double fSlow145 = (fConst26 * fSlow58); + double fSlow146 = (0.068731027392000002 * fSlow24); + double fSlow147 = (fConst54 * fSlow76); + double fSlow148 = (fConst16 * fSlow76); + double fSlow149 = (0.0 - (fConst55 * fSlow114)); + double fSlow150 = (0.097200435264000004 * fSlow24); + double fSlow151 = (fConst56 * fSlow39); + double fSlow152 = (fSlow150 + fSlow151); + double fSlow153 = (0.0 - (fConst57 * fSlow68)); + double fSlow154 = (0.10131694289093836 * fSlow14); + double fSlow155 = (0.050658471445469179 * fSlow16); + double fSlow156 = (0.0 - (fConst58 * fSlow114)); + double fSlow157 = (0.0 - (fConst58 * fSlow76)); + double fSlow158 = (0.10647773203199999 * fSlow24); + double fSlow159 = (0.0 - (fConst55 * fSlow76)); + double fSlow160 = (fConst59 * fSlow114); + double fSlow161 = (fSlow150 - fSlow151); + double fSlow162 = (0.0 - fSlow147); + double fSlow163 = (fConst54 * fSlow114); + double fSlow164 = (fConst60 * fSlow39); + double fSlow165 = (0.0 - (fConst61 * fSlow68)); + double fSlow166 = (0.0 - (fConst53 * fSlow76)); + double fSlow167 = (fConst53 * fSlow114); + double fSlow168 = (0.0 - (fConst62 * fSlow68)); + double fSlow169 = (fConst63 * fSlow39); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input1[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = ((fSlow10 * fTemp2) + (fSlow11 * fTemp3)); + double fTemp5 = double(input4[i]); + double fTemp6 = double(input8[i]); + double fTemp7 = double(input5[i]); + double fTemp8 = double(input7[i]); + double fTemp9 = double(input6[i]); + output0[i] = FAUSTFLOAT((((fSlow2 * fTemp0) + (((0.24993000000000001 * fTemp0) + ((fSlow4 * fTemp1) + (fSlow8 * fTemp4))) * fSlow12)) + (((0.11112 * fTemp0) + ((fSlow13 * ((fSlow15 * fTemp5) + (fSlow17 * fTemp6))) + ((fSlow18 * (((fConst6 * fTemp4) + (fSlow20 * fTemp7)) + (fSlow22 * fTemp8))) + ((fSlow23 * fTemp1) + (fSlow25 * fTemp9))))) * fSlow26))); + output1[i] = FAUSTFLOAT((((fSlow2 * fTemp2) + (fSlow12 * ((0.24993000000000001 * fTemp2) + ((((fSlow27 * ((fSlow28 * fTemp0) + (fSlow29 * fTemp5))) + (fSlow30 * fTemp7)) + (fSlow32 * fTemp9)) + (fSlow34 * fTemp6))))) + (fSlow26 * ((((fSlow10 * ((fSlow18 * ((fConst6 * fTemp0) + (fSlow35 * fTemp1))) + (fSlow37 * fTemp3))) + ((fSlow41 * fTemp2) + ((fSlow43 * fTemp5) + (fSlow44 * fTemp7)))) + (fSlow45 * fTemp9)) + (fSlow46 * fTemp6))))); + double fTemp10 = ((fSlow10 * fTemp7) + (fSlow11 * fTemp8)); + output2[i] = FAUSTFLOAT((((fSlow2 * fTemp1) + (fSlow12 * ((0.24993000000000001 * fTemp1) + ((fSlow3 * ((0.43301700000000004 * fTemp0) + (0.38730209625899997 * fTemp9))) + (fSlow47 * fTemp10))))) + (fSlow26 * ((fSlow3 * ((((fSlow48 * fTemp2) + (0.19245000000000004 * fTemp0)) + (fSlow49 * fTemp3)) + (0.17213247615000002 * fTemp9))) + ((fSlow50 * fTemp1) + (fSlow51 * fTemp10)))))); + output3[i] = FAUSTFLOAT((((fSlow2 * fTemp3) + (fSlow12 * ((0.24993000000000001 * fTemp3) + ((fSlow27 * (((fSlow52 * fTemp0) + (fSlow53 * fTemp5)) + (fSlow29 * fTemp6))) + ((fSlow54 * fTemp9) + (fSlow30 * fTemp8)))))) + (fSlow26 * ((fSlow51 * ((fSlow10 * fTemp5) + (fSlow11 * fTemp6))) + ((fSlow55 * fTemp9) + ((fSlow56 * fTemp3) + ((fSlow11 * (((fSlow57 * fTemp0) + (fSlow59 * fTemp2)) + (fSlow61 * fTemp1))) + (fSlow44 * fTemp8)))))))); + output4[i] = FAUSTFLOAT((((fSlow2 * fTemp5) + (fSlow12 * ((fSlow47 * ((fSlow11 * fTemp2) + (fSlow10 * fTemp3))) + (0.24993000000000001 * fTemp5)))) + (fSlow26 * ((fSlow18 * (((fSlow62 * fTemp3) + (fSlow63 * fTemp7)) + (fSlow64 * fTemp8))) + (((fSlow11 * ((fSlow51 * fTemp2) + (fSlow65 * fTemp0))) + (fSlow67 * fTemp5)) + (fSlow69 * fTemp9)))))); + output5[i] = FAUSTFLOAT((((fSlow2 * fTemp7) + (fSlow12 * (((fSlow30 * fTemp2) + (fSlow33 * fTemp1)) + (0.24993000000000001 * fTemp7)))) + (fSlow26 * ((((fSlow18 * (((fSlow62 * fTemp1) + (fSlow63 * fTemp5)) + (fSlow70 * fTemp9))) + ((fSlow3 * ((fSlow71 * fTemp0) + (0.14907119265000002 * fTemp2))) + (fSlow74 * fTemp7))) + (fSlow75 * fTemp8)) + (fSlow77 * fTemp6))))); + output6[i] = FAUSTFLOAT((((fSlow2 * fTemp9) + (fSlow12 * ((((fSlow32 * fTemp2) + (fSlow78 * fTemp1)) + (fSlow54 * fTemp3)) + (0.24993000000000001 * fTemp9)))) + (fSlow26 * (((fSlow3 * (((fSlow79 * fTemp7) + (0.17213247615000002 * fTemp1)) + (fSlow80 * fTemp8))) + (((fSlow69 * fTemp5) + (((fSlow25 * fTemp0) + (fSlow45 * fTemp2)) + (fSlow55 * fTemp3))) + (fSlow81 * fTemp9))) + (fSlow82 * fTemp6))))); + output7[i] = FAUSTFLOAT((((fSlow2 * fTemp8) + (fSlow12 * (((fSlow83 * fTemp1) + (fSlow30 * fTemp3)) + (0.24993000000000001 * fTemp8)))) + (fSlow26 * ((fSlow18 * ((((fSlow11 * ((fConst19 * fTemp1) + (fSlow84 * fTemp0))) + (fSlow64 * fTemp5)) + (fSlow85 * fTemp9)) + (fSlow63 * fTemp6))) + (((fSlow44 * fTemp3) + (fSlow75 * fTemp7)) + (fSlow86 * fTemp8)))))); + output8[i] = FAUSTFLOAT((((fSlow2 * fTemp6) + (fSlow12 * (((fSlow34 * fTemp2) + (fSlow83 * fTemp3)) + (0.24993000000000001 * fTemp6)))) + (fSlow26 * (((fSlow87 * ((fConst19 * fTemp3) + (fSlow88 * fTemp8))) + ((fSlow82 * fTemp9) + (((fSlow89 * fTemp0) + (fSlow46 * fTemp2)) + (fSlow77 * fTemp7)))) + (fSlow67 * fTemp6))))); + double fTemp11 = ((fSlow11 * fTemp5) + (fSlow10 * fTemp6)); + output9[i] = FAUSTFLOAT(((fSlow90 * (fSlow12 * fTemp11)) + (fSlow26 * ((fSlow13 * ((fSlow91 * fTemp3) + (fSlow92 * fTemp2))) + (fSlow93 * fTemp11))))); + output10[i] = FAUSTFLOAT(((fSlow12 * ((fSlow94 * fTemp5) + (fSlow95 * ((fSlow11 * fTemp7) + (fSlow10 * fTemp8))))) + (fSlow26 * ((fSlow11 * (((fSlow96 * fTemp2) + (fSlow97 * fTemp1)) + (fSlow98 * fTemp7))) + ((fSlow3 * ((fSlow99 * fTemp3) + (0.12598816230000001 * fTemp5))) + (fSlow100 * fTemp8)))))); + output11[i] = FAUSTFLOAT(((fSlow12 * (((fSlow101 * fTemp5) + (fSlow102 * fTemp7)) + (fSlow103 * ((0.082589850671945866 * fTemp6) + (0.28609910994747967 * fTemp9))))) + (fSlow26 * (((fSlow3 * ((fSlow104 * fTemp1) + (0.15936380355000002 * fTemp7))) + ((fSlow105 * fTemp5) + ((fSlow108 * fTemp2) + (fSlow109 * fTemp3)))) + (fSlow103 * ((0.036706218836248881 * fTemp6) + (0.127153838554589 * fTemp9))))))); + output12[i] = FAUSTFLOAT(((fSlow12 * (((fSlow110 * fTemp7) + (fSlow111 * fTemp9)) + (fSlow112 * fTemp8))) + (fSlow26 * (((fSlow113 * fTemp7) + ((fSlow115 * fTemp3) + ((fSlow116 * fTemp1) + ((fSlow117 * fTemp2) + (fSlow118 * fTemp9))))) + (fSlow119 * fTemp8))))); + output13[i] = FAUSTFLOAT(((fSlow12 * (((fSlow120 * fTemp9) + ((fSlow121 * fTemp5) + (fSlow102 * fTemp8))) + (fSlow101 * fTemp6))) + (fSlow26 * (((fSlow87 * ((fSlow122 * fTemp1) + (fConst47 * fTemp9))) + ((fSlow123 * fTemp5) + ((fSlow124 * fTemp3) + ((fSlow109 * fTemp2) + (fSlow125 * fTemp8))))) + (fSlow105 * fTemp6))))); + output14[i] = FAUSTFLOAT(((fSlow12 * (((fSlow126 * fTemp7) + (fSlow127 * fTemp8)) + (fSlow94 * fTemp6))) + (fSlow26 * ((fSlow87 * ((fConst48 * fTemp8) + (fSlow128 * fTemp3))) + ((fSlow129 * fTemp7) + ((fSlow130 * fTemp1) + ((fSlow131 * fTemp2) + (fSlow132 * fTemp6)))))))); + output15[i] = FAUSTFLOAT(((fSlow12 * ((fSlow133 * fTemp5) + (fSlow134 * fTemp6))) + (fSlow26 * ((fSlow135 * fTemp5) + ((fSlow136 * fTemp3) + ((fSlow137 * fTemp2) + (fSlow138 * fTemp6))))))); + output16[i] = FAUSTFLOAT((fSlow13 * (fSlow26 * ((fSlow139 * fTemp5) + (fSlow140 * fTemp6))))); + output17[i] = FAUSTFLOAT((fSlow26 * ((fSlow13 * ((fSlow141 * fTemp8) + (fSlow142 * fTemp7))) + (fSlow143 * fTemp11)))); + output18[i] = FAUSTFLOAT((fSlow26 * ((fSlow11 * ((fSlow144 * fTemp7) + (fSlow145 * fTemp9))) + ((fSlow146 * fTemp5) + (fSlow147 * fTemp8))))); + output19[i] = FAUSTFLOAT((fSlow26 * ((fSlow148 * ((0.12014724747147398 * fTemp6) + (0.41620233757211678 * fTemp9))) + (((fSlow149 * fTemp5) + (fSlow152 * fTemp7)) + (fSlow153 * fTemp8))))); + output20[i] = FAUSTFLOAT((fSlow26 * ((fSlow13 * ((fSlow154 * fTemp5) + (fSlow155 * fTemp6))) + ((fSlow156 * fTemp8) + ((fSlow157 * fTemp7) + (fSlow158 * fTemp9)))))); + output21[i] = FAUSTFLOAT((fSlow26 * ((((fSlow153 * fTemp7) + ((fSlow159 * fTemp5) + (fSlow160 * fTemp9))) + (fSlow161 * fTemp8)) + (fSlow149 * fTemp6)))); + output22[i] = FAUSTFLOAT((fSlow26 * (((fSlow73 * fTemp9) + ((fSlow162 * fTemp7) + (fSlow163 * fTemp8))) + (fSlow146 * fTemp6)))); + output23[i] = FAUSTFLOAT((fSlow26 * ((fSlow164 * fTemp8) + ((fSlow165 * fTemp7) + ((fSlow166 * fTemp5) + (fSlow167 * fTemp6)))))); + output24[i] = FAUSTFLOAT((fSlow26 * ((fSlow168 * fTemp5) + (fSlow169 * fTemp6)))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamHCardio2HOA3.cpp b/source/HOAUGens/HOABeamHCardio2HOA3.cpp new file mode 100644 index 0000000000..e7d2139308 --- /dev/null +++ b/source/HOAUGens/HOABeamHCardio2HOA3.cpp @@ -0,0 +1,1945 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOABeamHCardio2HOA3" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fConst0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fHslider2; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("cijk.lib/author", "Pierre Lecomte"); + m->declare("cijk.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("cijk.lib/license", "GPL"); + m->declare("cijk.lib/name", "Cijk matrix"); + m->declare("cijk.lib/version", "10"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("filename", "HOABeamHCardio2HOA3"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamHCardio2HOA3"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = double(tgamma(1.5)); + fConst1 = double(tgamma(1.0)); + fConst2 = sqrt((3.0 * (fConst1 / double(tgamma(3.0))))); + fConst3 = (fConst0 * fConst2); + fConst4 = (0.39894624032434478 * fConst3); + fConst5 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst1 / double(tgamma(5.0)))))); + fConst6 = (0.17730759750868944 * fConst2); + fConst7 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst8 = (0.53191448209190839 * fConst7); + fConst9 = (0.17841434392041153 * fConst3); + fConst10 = (0.30902256091651653 * fConst3); + fConst11 = (0.13734193310743828 * fConst2); + fConst12 = (0.34821994335939616 * fConst7); + fConst13 = (0.28432034740638579 * fConst5); + fConst14 = (0.13734193310743828 * fConst3); + fConst15 = (0.079294439912251033 * fConst3); + fConst16 = (0.41201936208494599 * fConst7); + fConst17 = (0.54935914944659459 * fConst5); + fConst18 = (0.27467957472329729 * fConst5); + fConst19 = (0.073411290721777919 * fConst5); + fConst20 = (fConst0 * fConst7); + fConst21 = (0.26973011046743212 * fConst20); + fConst22 = (0.14682258144355584 * fConst5); + fConst23 = (0.34821994335939616 * fConst20); + fConst24 = (0.56864069481277157 * fConst5); + fConst25 = (0.44046721241618542 * fConst7); + fConst26 = (0.41201936208494599 * fConst20); + fConst27 = (0.17730759750868944 * fConst3); + fConst28 = (0.082589850671945866 * fConst3); + fConst29 = (0.31986871235221448 * fConst3); + fConst30 = (0.29429924039525734 * fConst7); + fConst31 = (0.14216239476090706 * fConst2); + fConst32 = (0.45310390476724288 * fConst5); + fConst33 = (0.70921930945587786 * fConst5); + fConst34 = (0.036706218836248881 * fConst3); + fConst35 = (0.14216239476090706 * fConst3); + fConst36 = (0.20230284584479297 * fConst3); + fConst37 = (0.26117175201329362 * fConst3); + fConst38 = (0.53191448209190839 * fConst20); + fConst39 = (0.16991369833047504 * fConst7); + fConst40 = (0.11607512793945357 * fConst2); + fConst41 = (0.29429924039525734 * fConst20); + fConst42 = (0.19619949359683822 * fConst5); + fConst43 = (0.39239898719367644 * fConst5); + fConst44 = (0.089911441543473844 * fConst3); + fConst45 = (0.11607512793945357 * fConst3); + fConst46 = (0.28609910994747967 * fConst3); + fConst47 = (0.16991369833047504 * fConst20); + fConst48 = (0.22655195238362144 * fConst5); + fConst49 = (0.127153838554589 * fConst3); + fConst50 = (0.036706218836248881 * fConst2); + fConst51 = (0.35460965472793893 * fConst5); + fConst52 = (0.28034340012861197 * fConst7); + fConst53 = (0.23640620007885615 * fConst5); + fConst54 = (0.11820310003942808 * fConst5); + fConst55 = (0.21715302348505744 * fConst7); + fConst56 = (0.46429325781252823 * fConst5); + fConst57 = (0.47281310937702176 * fConst5); + fConst58 = (0.28034340012861197 * fConst20); + fConst59 = (0.11213767920013405 * fConst7); + fConst60 = (0.44046721241618542 * fConst20); + fConst61 = (0.18311971648219821 * fConst5); + fConst62 = (0.21715302348505744 * fConst20); + fConst63 = (0.11213767920013405 * fConst20); + fConst64 = (0.23640655468851088 * fConst5); + fConst65 = (0.127153838554589 * fConst2); + fConst66 = (0.36623943296439643 * fConst5); + fConst67 = (0.23214662890626411 * fConst5); + fConst68 = (0.32573840838610657 * fConst3); + fConst69 = (0.1447711214430524 * fConst3); + fConst70 = (0.28209767915702649 * fConst3); + fConst71 = (0.31787954130087376 * fConst20); + fConst72 = (0.12537544335157685 * fConst3); + fConst73 = (0.061558601720767374 * fConst3); + fConst74 = (0.3398279285754322 * fConst20); + fConst75 = (0.10596150257755792 * fConst3); + fConst76 = (0.027359094218383301 * fConst3); + fConst77 = (0.10662277113532474 * fConst3); + fConst78 = (0.12014724747147398 * fConst20); + fConst79 = (0.080098164980982656 * fConst5); + fConst80 = (0.16019632996196531 * fConst5); + fConst81 = (0.047387405817769852 * fConst3); + fConst82 = (0.21324554227064949 * fConst3); + fConst83 = (0.094774811635539705 * fConst3); + fConst84 = (0.30395136058729716 * fConst20); + fConst85 = (0.27529923627565928 * fConst3); + fConst86 = (0.41620233757211678 * fConst7); + fConst87 = (0.12235394458243126 * fConst2); + fConst88 = (0.23841585846519298 * fConst3); + fConst89 = (0.3398279285754322 * fConst7); + fConst90 = (0.10596150257755792 * fConst2); + fConst91 = (0.12537544335157685 * fConst2); + fConst92 = (0.31787954130087376 * fConst7); + fConst93 = (0.21191969420058249 * fConst5); + fConst94 = (0.42383938840116497 * fConst5); + fConst95 = (0.59939953626387299 * fConst5); + fConst96 = (0.29969976813193649 * fConst5); + fConst97 = (0.29280934793091795 * fConst20); + fConst98 = (0.33810718522586491 * fConst20); + fConst99 = (0.084526530349225165 * fConst20); + fConst100 = (0.3273704914048397 * fConst20); + fConst101 = (0.35639617816845831 * fConst5); + fConst102 = (0.021298742387096829 * fConst5); + fConst103 = (0.15651317678313359 * fConst20); + fConst104 = (0.082489652492467883 * fConst5); + fConst105 = (0.16497930498493577 * fConst5); + fConst106 = (0.042597484774193659 * fConst5); + fConst107 = (0.31948113580645249 * fConst20); + fConst108 = (0.40411511288106022 * fConst20); + fConst109 = (0.17819808908422916 * fConst5); + fConst110 = (0.4781556584351529 * fConst5); + fConst111 = (0.23907782921757645 * fConst5); + fConst112 = (0.6172959763186826 * fConst5); + fConst113 = (0.3086479881593413 * fConst5); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "3", ""); + ui_interface->openHorizontalBox("Parameters"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation", &fHslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->addCheckButton("Int/Float", &fCheckbox0); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Order", &fHslider0, 0.0, 0.0, 2.0, 0.0001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + double fSlow0 = double(fHslider0); + double fSlow1 = (int(double(fCheckbox0))?fSlow0:double(int(fSlow0))); + double fSlow2 = max(0.0, (1.0 - fabs(fSlow1))); + double fSlow3 = sin(double(fHslider1)); + double fSlow4 = (0.43301700000000004 * fSlow3); + double fSlow5 = mydsp_faustpower2_f(fSlow3); + double fSlow6 = (1.0 - fSlow5); + double fSlow7 = pow(fSlow6, 0.5); + double fSlow8 = (fConst4 * fSlow7); + double fSlow9 = double(fHslider2); + double fSlow10 = sin(fSlow9); + double fSlow11 = cos(fSlow9); + double fSlow12 = max(0.0, (1.0 - fabs((fSlow1 + -1.0)))); + double fSlow13 = (fConst5 * fSlow6); + double fSlow14 = (fSlow11 * fSlow10); + double fSlow15 = (0.70921930945587786 * fSlow14); + double fSlow16 = ((2.0 * mydsp_faustpower2_f(fSlow11)) + -1.0); + double fSlow17 = (0.35460965472793893 * fSlow16); + double fSlow18 = (fConst0 * fSlow7); + double fSlow19 = (fSlow3 * fSlow10); + double fSlow20 = (fConst8 * fSlow19); + double fSlow21 = (fSlow11 * fSlow3); + double fSlow22 = (fConst8 * fSlow21); + double fSlow23 = (0.19245000000000004 * fSlow3); + double fSlow24 = ((3.0 * fSlow5) + -1.0); + double fSlow25 = (0.124224 * fSlow24); + double fSlow26 = max(0.0, (1.0 - fabs((fSlow1 + -2.0)))); + double fSlow27 = (fConst3 * fSlow7); + double fSlow28 = (0.39894624032434478 * fSlow10); + double fSlow29 = (0.30902256091651653 * fSlow11); + double fSlow30 = (0.335413669149 * fSlow3); + double fSlow31 = (fSlow7 * fSlow10); + double fSlow32 = (0.0 - (fConst9 * fSlow31)); + double fSlow33 = (0.0 - (fConst10 * fSlow31)); + double fSlow34 = (fSlow11 * fSlow7); + double fSlow35 = (fConst0 * fSlow34); + double fSlow36 = (fConst12 * fSlow3); + double fSlow37 = (fSlow16 * fSlow6); + double fSlow38 = (fConst13 * fSlow37); + double fSlow39 = (0.0 - (fConst14 * fSlow31)); + double fSlow40 = (0.0 - (fConst15 * fSlow31)); + double fSlow41 = (fConst16 * fSlow3); + double fSlow42 = (fSlow11 * fSlow6); + double fSlow43 = (fConst17 * fSlow42); + double fSlow44 = (0.055554711935999999 * fSlow24); + double fSlow45 = (fConst18 * fSlow37); + double fSlow46 = (0.11112 - (fSlow44 + fSlow45)); + double fSlow47 = (0.14907119265000002 * fSlow3); + double fSlow48 = (0.089085626687999991 * fSlow24); + double fSlow49 = (fConst19 * fSlow37); + double fSlow50 = (fSlow48 + fSlow49); + double fSlow51 = (fSlow3 * fSlow7); + double fSlow52 = (fSlow51 * fSlow10); + double fSlow53 = (0.0 - (fConst21 * fSlow52)); + double fSlow54 = (fSlow42 * fSlow10); + double fSlow55 = (0.0 - (fConst22 * fSlow54)); + double fSlow56 = (0.0 - (fConst23 * fSlow52)); + double fSlow57 = (0.0 - (fConst24 * fSlow54)); + double fSlow58 = (fConst10 * fSlow7); + double fSlow59 = (0.46429325781252823 * fSlow14); + double fSlow60 = (0.23214662890626411 * fSlow16); + double fSlow61 = (fConst25 * fSlow19); + double fSlow62 = (fConst25 * fSlow21); + double fSlow63 = ((0.111109299648 * fSlow24) + 0.11112); + double fSlow64 = (fConst26 * fSlow31); + double fSlow65 = (fConst26 * fSlow34); + double fSlow66 = (0.10910718143999999 * fSlow24); + double fSlow67 = (0.39894624032434478 * fSlow11); + double fSlow68 = (0.30902256091651653 * fSlow10); + double fSlow69 = (0.0 - (fConst9 * fSlow34)); + double fSlow70 = (fConst12 * fSlow19); + double fSlow71 = (fConst12 * fSlow21); + double fSlow72 = (fSlow48 - fSlow49); + double fSlow73 = (fSlow21 * fSlow7); + double fSlow74 = (0.0 - (fConst21 * fSlow73)); + double fSlow75 = (fSlow6 * fSlow10); + double fSlow76 = (fConst17 * fSlow75); + double fSlow77 = (fConst27 * fSlow7); + double fSlow78 = (fConst26 * fSlow51); + double fSlow79 = (fConst24 * fSlow75); + double fSlow80 = (0.0 - (fConst15 * fSlow34)); + double fSlow81 = (fSlow45 + (0.11112 - fSlow44)); + double fSlow82 = (0.31986871235221448 * fSlow11); + double fSlow83 = (0.28347631111800004 * fSlow3); + double fSlow84 = (0.0 - (fConst28 * fSlow34)); + double fSlow85 = (0.0 - (fConst28 * fSlow31)); + double fSlow86 = (0.0 - (fConst29 * fSlow31)); + double fSlow87 = (fConst11 * fSlow10); + double fSlow88 = (fConst30 * fSlow21); + double fSlow89 = (fConst30 * fSlow19); + double fSlow90 = (fConst31 * fSlow11); + double fSlow91 = (0.0 - (fConst32 * fSlow54)); + double fSlow92 = (0.079363856447999995 * fSlow24); + double fSlow93 = (0.11112 - fSlow92); + double fSlow94 = (fConst14 * fSlow7); + double fSlow95 = (fConst33 * fSlow75); + double fSlow96 = (0.12598816230000001 * fSlow3); + double fSlow97 = (0.0 - (fConst34 * fSlow34)); + double fSlow98 = (0.0 - (fConst34 * fSlow31)); + double fSlow99 = (0.0 - (fConst35 * fSlow31)); + double fSlow100 = (0.26117175201329362 * fSlow11); + double fSlow101 = (0.0 - (fConst36 * fSlow31)); + double fSlow102 = (0.0 - (fConst37 * fSlow31)); + double fSlow103 = (fConst38 * fSlow31); + double fSlow104 = (fConst39 * fSlow19); + double fSlow105 = (fConst40 * fSlow11); + double fSlow106 = (0.0 - (fConst41 * fSlow52)); + double fSlow107 = (0.039681866111999996 * fSlow24); + double fSlow108 = (fConst42 * fSlow37); + double fSlow109 = (fSlow107 + (0.11112 - fSlow108)); + double fSlow110 = (fConst43 * fSlow54); + double fSlow111 = (0.0 - (fConst44 * fSlow31)); + double fSlow112 = (0.0 - (fConst45 * fSlow31)); + double fSlow113 = (fConst46 * fSlow7); + double fSlow114 = (fConst47 * fSlow31); + double fSlow115 = (fConst47 * fSlow34); + double fSlow116 = (0.0 - (fConst48 * fSlow37)); + double fSlow117 = (fSlow92 + 0.11112); + double fSlow118 = (fConst49 * fSlow7); + double fSlow119 = (0.26117175201329362 * fSlow10); + double fSlow120 = (0.0 - (fConst36 * fSlow34)); + double fSlow121 = (fConst8 * fSlow3); + double fSlow122 = (fConst39 * fSlow21); + double fSlow123 = (fConst40 * fSlow10); + double fSlow124 = (0.0 - (fConst44 * fSlow34)); + double fSlow125 = ((fSlow107 + fSlow108) + 0.11112); + double fSlow126 = (0.31986871235221448 * fSlow10); + double fSlow127 = (0.082589850671945866 * fSlow10); + double fSlow128 = (fConst30 * fSlow3); + double fSlow129 = (fConst31 * fSlow10); + double fSlow130 = (fConst50 * fSlow10); + double fSlow131 = (fConst51 * fSlow37); + double fSlow132 = (fConst29 * fSlow7); + double fSlow133 = (fConst52 * fSlow21); + double fSlow134 = (fConst52 * fSlow19); + double fSlow135 = (0.0 - (fConst53 * fSlow54)); + double fSlow136 = (0.56864069481277157 * fSlow14); + double fSlow137 = (0.28432034740638579 * fSlow16); + double fSlow138 = (0.11112 - (0.092591103744000008 * fSlow24)); + double fSlow139 = (0.0 - (fConst54 * fSlow37)); + double fSlow140 = (fConst37 * fSlow7); + double fSlow141 = (fConst55 * fSlow21); + double fSlow142 = (fConst55 * fSlow19); + double fSlow143 = (fConst23 * fSlow31); + double fSlow144 = (fConst23 * fSlow51); + double fSlow145 = (fConst56 * fSlow75); + double fSlow146 = (fConst45 * fSlow7); + double fSlow147 = (0.0 - (fConst57 * fSlow54)); + double fSlow148 = (0.0 - (fConst58 * fSlow52)); + double fSlow149 = (0.35857228434300004 * fSlow3); + double fSlow150 = (fConst3 * fSlow31); + double fSlow151 = (fConst5 * fSlow54); + double fSlow152 = (fConst2 * fSlow10); + double fSlow153 = (fConst59 * fSlow19); + double fSlow154 = (fConst60 * fSlow31); + double fSlow155 = (fConst61 * fSlow37); + double fSlow156 = (fSlow44 + (0.11112 - fSlow155)); + double fSlow157 = (0.0 - (fConst62 * fSlow52)); + double fSlow158 = (0.38032316126999999 * fSlow3); + double fSlow159 = (fConst63 * fSlow31); + double fSlow160 = (fConst63 * fSlow34); + double fSlow161 = ((0.074072907839999994 * fSlow24) + 0.11112); + double fSlow162 = (0.0 - (fConst64 * fSlow37)); + double fSlow163 = (fConst46 * fSlow34); + double fSlow164 = (fConst25 * fSlow3); + double fSlow165 = (fConst59 * fSlow21); + double fSlow166 = (0.15936380355000002 * fSlow3); + double fSlow167 = (fConst66 * fSlow54); + double fSlow168 = ((fSlow44 + fSlow155) + 0.11112); + double fSlow169 = (fConst37 * fSlow34); + double fSlow170 = (fConst67 * fSlow37); + double fSlow171 = (fConst29 * fSlow34); + double fSlow172 = (fConst52 * fSlow3); + double fSlow173 = (0.23640620007885615 * fSlow14); + double fSlow174 = (fConst68 * fSlow7); + double fSlow175 = (0.29969976813193649 * fSlow16); + double fSlow176 = (0.59939953626387299 * fSlow14); + double fSlow177 = (fConst69 * fSlow7); + double fSlow178 = (0.25000236495 * fSlow3); + double fSlow179 = (fConst70 * fSlow7); + double fSlow180 = (fConst71 * fSlow7); + double fSlow181 = (0.42383938840116497 * fSlow14); + double fSlow182 = (0.21191969420058249 * fSlow16); + double fSlow183 = (fConst72 * fSlow7); + double fSlow184 = (0.0 - (fConst73 * fSlow34)); + double fSlow185 = (0.32733010779299998 * fSlow3); + double fSlow186 = (0.061558601720767374 * fSlow10); + double fSlow187 = (fConst74 * fSlow51); + double fSlow188 = (fConst43 * fSlow75); + double fSlow189 = (fConst75 * fSlow7); + double fSlow190 = (fConst74 * fSlow31); + double fSlow191 = (0.068731027392000002 * fSlow24); + double fSlow192 = (0.0 - (fConst76 * fSlow34)); + double fSlow193 = (0.0 - (fConst77 * fSlow34)); + double fSlow194 = (0.365966049618 * fSlow3); + double fSlow195 = (fConst20 * fSlow31); + double fSlow196 = (0.0 - (fConst78 * fSlow73)); + double fSlow197 = (0.097200435264000004 * fSlow24); + double fSlow198 = (fConst79 * fSlow37); + double fSlow199 = (fSlow197 + fSlow198); + double fSlow200 = (0.0 - (fConst80 * fSlow54)); + double fSlow201 = (0.0 - (fConst81 * fSlow34)); + double fSlow202 = (0.0 - (fConst82 * fSlow31)); + double fSlow203 = (0.37796841482400001 * fSlow3); + double fSlow204 = (0.0 - (fConst82 * fSlow34)); + double fSlow205 = (0.0 - (fConst83 * fSlow31)); + double fSlow206 = (0.10131694289093836 * fSlow14); + double fSlow207 = (0.050658471445469179 * fSlow16); + double fSlow208 = (0.0 - (fConst84 * fSlow73)); + double fSlow209 = (0.0 - (fConst84 * fSlow52)); + double fSlow210 = (0.10647773203199999 * fSlow24); + double fSlow211 = (0.16798421640000002 * fSlow3); + double fSlow212 = (0.0 - (fConst83 * fSlow34)); + double fSlow213 = (fConst85 * fSlow34); + double fSlow214 = (0.0 - (fConst77 * fSlow31)); + double fSlow215 = (fConst86 * fSlow3); + double fSlow216 = (0.0 - (fConst81 * fSlow31)); + double fSlow217 = (fSlow197 - fSlow198); + double fSlow218 = (0.0 - (fConst78 * fSlow52)); + double fSlow219 = (0.16264988730000002 * fSlow3); + double fSlow220 = (0.0 - (fConst88 * fSlow31)); + double fSlow221 = (0.0 - (fConst73 * fSlow31)); + double fSlow222 = (fConst88 * fSlow34); + double fSlow223 = (fConst89 * fSlow3); + double fSlow224 = (0.0 - (fConst75 * fSlow31)); + double fSlow225 = (0.0 - (fConst76 * fSlow31)); + double fSlow226 = (0.0 - (fConst74 * fSlow52)); + double fSlow227 = (0.14547853605000002 * fSlow3); + double fSlow228 = (0.0 - (fConst70 * fSlow31)); + double fSlow229 = (fConst70 * fSlow34); + double fSlow230 = (fConst92 * fSlow3); + double fSlow231 = (0.0 - (fConst72 * fSlow31)); + double fSlow232 = (fConst93 * fSlow37); + double fSlow233 = (0.0 - (fConst94 * fSlow54)); + double fSlow234 = (0.0 - (fConst71 * fSlow52)); + double fSlow235 = (0.11111100750000003 * fSlow3); + double fSlow236 = (0.0 - (fConst68 * fSlow31)); + double fSlow237 = (fConst68 * fSlow34); + double fSlow238 = (0.0 - (fConst69 * fSlow31)); + double fSlow239 = (0.0 - (fConst95 * fSlow54)); + double fSlow240 = (fConst96 * fSlow37); + double fSlow241 = (fConst69 * fSlow34); + double fSlow242 = (0.3086479881593413 * fSlow16); + double fSlow243 = (0.6172959763186826 * fSlow14); + double fSlow244 = (0.23907782921757645 * fSlow16); + double fSlow245 = (0.4781556584351529 * fSlow14); + double fSlow246 = (fConst97 * fSlow51); + double fSlow247 = (fConst98 * fSlow51); + double fSlow248 = (0.055834588607999995 * fSlow24); + double fSlow249 = (0.35639617816845831 * fSlow14); + double fSlow250 = (0.17819808908422916 * fSlow16); + double fSlow251 = (0.0 - (fConst99 * fSlow73)); + double fSlow252 = (0.083751820800000001 * fSlow24); + double fSlow253 = (fConst100 * fSlow51); + double fSlow254 = (fConst101 * fSlow75); + double fSlow255 = (fConst20 * fSlow52); + double fSlow256 = (fConst102 * fSlow37); + double fSlow257 = (0.0 - (fConst103 * fSlow73)); + double fSlow258 = (0.10010255635199999 * fSlow24); + double fSlow259 = (fConst104 * fSlow37); + double fSlow260 = (fSlow258 + fSlow259); + double fSlow261 = (0.0 - (fConst105 * fSlow54)); + double fSlow262 = (0.0 - (fConst106 * fSlow54)); + double fSlow263 = (0.1347048603221927 * fSlow14); + double fSlow264 = (0.067352430161096349 * fSlow16); + double fSlow265 = (0.0 - (fConst107 * fSlow73)); + double fSlow266 = (0.0 - (fConst107 * fSlow52)); + double fSlow267 = (0.10551735628799999 * fSlow24); + double fSlow268 = (fSlow258 - fSlow259); + double fSlow269 = (fConst106 * fSlow75); + double fSlow270 = (fConst108 * fSlow51); + double fSlow271 = (0.0 - (fConst103 * fSlow52)); + double fSlow272 = (fConst109 * fSlow37); + double fSlow273 = (0.0 - (fConst100 * fSlow52)); + double fSlow274 = (0.0 - (fConst99 * fSlow52)); + double fSlow275 = (fConst100 * fSlow73); + double fSlow276 = (0.0 - (fConst101 * fSlow54)); + double fSlow277 = (0.0 - (fConst98 * fSlow52)); + double fSlow278 = (fConst98 * fSlow73); + double fSlow279 = (0.0 - (fConst110 * fSlow54)); + double fSlow280 = (0.0 - (fConst97 * fSlow52)); + double fSlow281 = (fConst111 * fSlow37); + double fSlow282 = (fConst97 * fSlow73); + double fSlow283 = (0.0 - (fConst112 * fSlow54)); + double fSlow284 = (fConst113 * fSlow37); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input1[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = ((fSlow10 * fTemp2) + (fSlow11 * fTemp3)); + double fTemp5 = double(input4[i]); + double fTemp6 = double(input8[i]); + double fTemp7 = double(input5[i]); + double fTemp8 = double(input7[i]); + double fTemp9 = double(input6[i]); + output0[i] = FAUSTFLOAT((((fSlow2 * fTemp0) + (((0.24993000000000001 * fTemp0) + ((fSlow4 * fTemp1) + (fSlow8 * fTemp4))) * fSlow12)) + (((0.11112 * fTemp0) + ((fSlow13 * ((fSlow15 * fTemp5) + (fSlow17 * fTemp6))) + ((fSlow18 * (((fConst6 * fTemp4) + (fSlow20 * fTemp7)) + (fSlow22 * fTemp8))) + ((fSlow23 * fTemp1) + (fSlow25 * fTemp9))))) * fSlow26))); + double fTemp10 = double(input10[i]); + double fTemp11 = double(input9[i]); + double fTemp12 = double(input11[i]); + double fTemp13 = double(input12[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input14[i]); + double fTemp16 = double(input15[i]); + output1[i] = FAUSTFLOAT((((fSlow2 * fTemp2) + (fSlow12 * ((0.24993000000000001 * fTemp2) + ((((fSlow27 * ((fSlow28 * fTemp0) + (fSlow29 * fTemp5))) + (fSlow30 * fTemp7)) + (fSlow32 * fTemp9)) + (fSlow33 * fTemp6))))) + (fSlow26 * (((((((fSlow35 * ((fConst11 * fTemp5) + (fSlow36 * fTemp10))) + ((fSlow38 * fTemp11) + ((fSlow39 * fTemp6) + ((fSlow40 * fTemp9) + ((fSlow10 * ((fSlow18 * ((fConst6 * fTemp0) + (fSlow41 * fTemp1))) + (fSlow43 * fTemp3))) + ((fSlow46 * fTemp2) + (fSlow47 * fTemp7))))))) + (fSlow50 * fTemp12)) + (fSlow53 * fTemp13)) + (fSlow55 * fTemp14)) + (fSlow56 * fTemp15)) + (fSlow57 * fTemp16))))); + double fTemp17 = ((fSlow10 * fTemp7) + (fSlow11 * fTemp8)); + output2[i] = FAUSTFLOAT((((fSlow2 * fTemp1) + (fSlow12 * ((0.24993000000000001 * fTemp1) + ((fSlow3 * ((0.38730209625899997 * fTemp9) + (0.43301700000000004 * fTemp0))) + (fSlow58 * fTemp17))))) + (fSlow26 * ((fSlow13 * ((fSlow59 * fTemp10) + (fSlow60 * fTemp15))) + ((fSlow18 * (((fConst11 * fTemp17) + (fSlow61 * fTemp12)) + (fSlow62 * fTemp14))) + (((fSlow63 * fTemp1) + (fSlow3 * ((((fSlow64 * fTemp2) + (0.19245000000000004 * fTemp0)) + (fSlow65 * fTemp3)) + (0.17213247615000002 * fTemp9)))) + (fSlow66 * fTemp13))))))); + output3[i] = FAUSTFLOAT((((fSlow2 * fTemp3) + (fSlow12 * ((0.24993000000000001 * fTemp3) + ((fSlow27 * (((fSlow67 * fTemp0) + (fSlow68 * fTemp5)) + (fSlow29 * fTemp6))) + ((fSlow69 * fTemp9) + (fSlow30 * fTemp8)))))) + (fSlow26 * (((fSlow18 * (((fConst11 * ((fSlow10 * fTemp5) + (fSlow11 * fTemp6))) + (fSlow70 * fTemp10)) + (fSlow71 * fTemp15))) + ((fSlow72 * fTemp14) + ((fSlow74 * fTemp13) + (((fSlow11 * ((((fSlow76 * fTemp2) + (fSlow77 * fTemp0)) + (fSlow78 * fTemp1)) + (fSlow79 * fTemp11))) + ((fSlow80 * fTemp9) + ((fSlow81 * fTemp3) + (fSlow47 * fTemp8)))) + (fSlow55 * fTemp12))))) + (fSlow38 * fTemp16))))); + output4[i] = FAUSTFLOAT((((fSlow2 * fTemp5) + (fSlow12 * ((0.24993000000000001 * fTemp5) + (((((fSlow27 * ((0.30902256091651653 * ((fSlow11 * fTemp2) + (fSlow10 * fTemp3))) + (fSlow82 * fTemp11))) + (fSlow83 * fTemp10)) + (fSlow84 * fTemp12)) + (fSlow85 * fTemp14)) + (fSlow86 * fTemp16))))) + (fSlow26 * (((((fSlow18 * ((((fSlow87 * fTemp3) + (fSlow88 * fTemp7)) + (fSlow89 * fTemp8)) + (fSlow90 * fTemp11))) + ((fSlow91 * fTemp9) + ((fSlow93 * fTemp5) + ((fSlow11 * ((fSlow94 * fTemp2) + (fSlow95 * fTemp0))) + (fSlow96 * fTemp10))))) + (fSlow97 * fTemp12)) + (fSlow98 * fTemp14)) + (fSlow99 * fTemp16))))); + output5[i] = FAUSTFLOAT((((fSlow2 * fTemp7) + (fSlow12 * ((0.24993000000000001 * fTemp7) + ((((fSlow27 * ((fSlow68 * fTemp1) + (fSlow100 * fTemp10))) + (fSlow3 * ((0.335413669149 * fTemp2) + (0.35857228434300004 * fTemp12)))) + (fSlow101 * fTemp13)) + (fSlow102 * fTemp15))))) + (fSlow26 * ((((fSlow3 * (((fSlow103 * fTemp0) + (0.14907119265000002 * fTemp2)) + (0.15936380355000002 * fTemp12))) + ((fSlow18 * ((((fSlow87 * fTemp1) + (fSlow88 * fTemp5)) + (fSlow104 * fTemp9)) + (fSlow105 * fTemp10))) + ((fSlow106 * fTemp6) + ((fSlow109 * fTemp7) + (fSlow110 * fTemp8))))) + (fSlow111 * fTemp13)) + (fSlow112 * fTemp15))))); + double fTemp18 = ((fSlow10 * fTemp12) + (fSlow11 * fTemp14)); + output6[i] = FAUSTFLOAT((((fSlow2 * fTemp9) + (fSlow12 * ((0.24993000000000001 * fTemp9) + ((fSlow113 * fTemp18) + ((fSlow3 * ((0.38032316126999999 * fTemp13) + (0.38730209625899997 * fTemp1))) + ((fSlow32 * fTemp2) + (fSlow69 * fTemp3))))))) + (fSlow26 * ((fSlow3 * ((((fSlow114 * fTemp7) + (0.17213247615000002 * fTemp1)) + (fSlow115 * fTemp8)) + (0.16903075950000004 * fTemp13))) + ((fSlow116 * fTemp6) + ((fSlow117 * fTemp9) + ((fSlow91 * fTemp5) + ((fSlow80 * fTemp3) + ((fSlow40 * fTemp2) + ((fSlow25 * fTemp0) + (fSlow118 * fTemp18))))))))))); + output7[i] = FAUSTFLOAT((((fSlow2 * fTemp8) + (fSlow12 * ((0.24993000000000001 * fTemp8) + ((fSlow27 * (((fSlow29 * fTemp1) + (fSlow119 * fTemp10)) + (fSlow100 * fTemp15))) + ((fSlow120 * fTemp13) + (fSlow3 * ((0.35857228434300004 * fTemp14) + (0.335413669149 * fTemp3)))))))) + (fSlow26 * ((fSlow18 * ((((((fSlow11 * ((fConst11 * fTemp1) + (fSlow121 * fTemp0))) + (fSlow89 * fTemp5)) + (fSlow122 * fTemp9)) + (fSlow88 * fTemp6)) + (fSlow123 * fTemp10)) + (fSlow105 * fTemp15))) + ((fSlow3 * ((0.15936380355000002 * fTemp14) + (0.14907119265000002 * fTemp3))) + ((fSlow124 * fTemp13) + ((fSlow110 * fTemp7) + (fSlow125 * fTemp8)))))))); + output8[i] = FAUSTFLOAT((((fSlow2 * fTemp6) + (fSlow12 * ((0.24993000000000001 * fTemp6) + ((fSlow27 * ((((fSlow29 * fTemp3) + (fSlow126 * fTemp11)) + (fSlow127 * fTemp12)) + (fSlow82 * fTemp16))) + ((fSlow83 * fTemp15) + ((fSlow33 * fTemp2) + (fSlow84 * fTemp14))))))) + (fSlow26 * ((fSlow18 * ((((fSlow11 * ((fConst11 * fTemp3) + (fSlow128 * fTemp8))) + (fSlow129 * fTemp11)) + (fSlow130 * fTemp12)) + (fSlow90 * fTemp16))) + ((fSlow97 * fTemp14) + ((fSlow93 * fTemp6) + ((fSlow116 * fTemp9) + ((fSlow106 * fTemp7) + ((fSlow39 * fTemp2) + ((fSlow131 * fTemp0) + (fSlow96 * fTemp15))))))))))); + double fTemp19 = ((fSlow11 * fTemp5) + (fSlow10 * fTemp6)); + output9[i] = FAUSTFLOAT((((fSlow2 * fTemp11) + (fSlow12 * ((fSlow132 * fTemp19) + (0.24993000000000001 * fTemp11)))) + (fSlow26 * ((fSlow18 * (((fSlow133 * fTemp10) + (fConst31 * fTemp19)) + (fSlow134 * fTemp15))) + ((fSlow135 * fTemp14) + (((fSlow13 * ((fSlow136 * fTemp3) + (fSlow137 * fTemp2))) + (fSlow138 * fTemp11)) + (fSlow139 * fTemp12))))))); + output10[i] = FAUSTFLOAT((((fSlow2 * fTemp10) + (fSlow12 * (((fSlow83 * fTemp5) + (fSlow140 * ((fSlow11 * fTemp7) + (fSlow10 * fTemp8)))) + (0.24993000000000001 * fTemp10)))) + (fSlow26 * ((0.11112 * fTemp10) + (((fSlow18 * ((((fSlow123 * fTemp8) + (fSlow133 * fTemp11)) + (fSlow141 * fTemp12)) + (fSlow142 * fTemp14))) + (((fSlow3 * ((fSlow143 * fTemp3) + (0.12598816230000001 * fTemp5))) + (fSlow11 * (((fSlow144 * fTemp2) + (fSlow145 * fTemp1)) + (fSlow146 * fTemp7)))) + (fSlow147 * fTemp13))) + (fSlow148 * fTemp16)))))); + output11[i] = FAUSTFLOAT((((fSlow2 * fTemp12) + (fSlow12 * ((((fSlow84 * fTemp5) + (fSlow149 * fTemp7)) + (fSlow150 * ((0.28609910994747967 * fTemp9) + (0.082589850671945866 * fTemp6)))) + (0.24993000000000001 * fTemp12)))) + (fSlow26 * ((fSlow151 * ((0.36623943296439643 * fTemp14) + (0.23640620007885615 * fTemp16))) + (((fSlow18 * (((fSlow152 * ((0.127153838554589 * fTemp9) + (0.036706218836248881 * fTemp6))) + (fSlow141 * fTemp10)) + (fSlow153 * fTemp13))) + ((((fSlow3 * ((fSlow154 * fTemp1) + (0.15936380355000002 * fTemp7))) + ((fSlow97 * fTemp5) + ((fSlow50 * fTemp2) + (fSlow55 * fTemp3)))) + (fSlow139 * fTemp11)) + (fSlow156 * fTemp12))) + (fSlow157 * fTemp15)))))); + output12[i] = FAUSTFLOAT((((fSlow2 * fTemp13) + (fSlow12 * ((((fSlow101 * fTemp7) + (fSlow158 * fTemp9)) + (fSlow120 * fTemp8)) + (0.24993000000000001 * fTemp13)))) + (fSlow26 * (((fSlow3 * (((fSlow159 * fTemp12) + (0.16903075950000004 * fTemp9)) + (fSlow160 * fTemp14))) + (((fSlow147 * fTemp10) + (((((fSlow53 * fTemp2) + (fSlow66 * fTemp1)) + (fSlow74 * fTemp3)) + (fSlow111 * fTemp7)) + (fSlow124 * fTemp8))) + (fSlow161 * fTemp13))) + (fSlow162 * fTemp15))))); + output13[i] = FAUSTFLOAT((((fSlow2 * fTemp14) + (fSlow12 * ((((fSlow163 * fTemp9) + ((fSlow85 * fTemp5) + (fSlow149 * fTemp8))) + (fSlow84 * fTemp6)) + (0.24993000000000001 * fTemp14)))) + (fSlow26 * (((fSlow18 * ((((fSlow11 * ((fSlow164 * fTemp1) + (fConst65 * fTemp9))) + (fSlow142 * fTemp10)) + (fSlow165 * fTemp13)) + (fSlow141 * fTemp15))) + ((((fSlow135 * fTemp11) + (((fSlow98 * fTemp5) + ((fSlow72 * fTemp3) + ((fSlow55 * fTemp2) + (fSlow166 * fTemp8)))) + (fSlow97 * fTemp6))) + (fSlow167 * fTemp12)) + (fSlow168 * fTemp14))) + (fSlow139 * fTemp16))))); + output14[i] = FAUSTFLOAT((((fSlow2 * fTemp15) + (fSlow12 * ((((fSlow102 * fTemp7) + (fSlow169 * fTemp8)) + (fSlow83 * fTemp6)) + (0.24993000000000001 * fTemp15)))) + (fSlow26 * ((0.11112 * fTemp15) + (((fSlow162 * fTemp13) + (((fSlow112 * fTemp7) + ((fSlow170 * fTemp1) + ((fSlow56 * fTemp2) + (fSlow96 * fTemp6)))) + (fSlow157 * fTemp12))) + (fSlow18 * ((((fSlow11 * ((fConst40 * fTemp8) + (fSlow36 * fTemp3))) + (fSlow134 * fTemp11)) + (fSlow141 * fTemp14)) + (fSlow133 * fTemp16)))))))); + output15[i] = FAUSTFLOAT((((fSlow2 * fTemp16) + (fSlow12 * (((fSlow86 * fTemp5) + (fSlow171 * fTemp6)) + (0.24993000000000001 * fTemp16)))) + (fSlow26 * (((fSlow35 * ((fConst31 * fTemp6) + (fSlow172 * fTemp15))) + ((fSlow139 * fTemp14) + ((fSlow13 * ((fSlow173 * fTemp12) + (fSlow137 * fTemp3))) + ((fSlow148 * fTemp10) + ((fSlow57 * fTemp2) + (fSlow99 * fTemp5)))))) + (fSlow138 * fTemp16))))); + double fTemp20 = ((fSlow11 * fTemp11) + (fSlow10 * fTemp16)); + output16[i] = FAUSTFLOAT(((fSlow174 * (fSlow12 * fTemp20)) + (fSlow26 * ((fSlow13 * ((fSlow175 * fTemp5) + (fSlow176 * fTemp6))) + (fSlow177 * fTemp20))))); + double fTemp21 = ((fSlow11 * fTemp10) + (fSlow10 * fTemp15)); + output17[i] = FAUSTFLOAT(((fSlow12 * ((fSlow178 * fTemp11) + (fSlow179 * fTemp21))) + (fSlow26 * ((fSlow3 * ((fSlow180 * fTemp19) + (0.11111100750000003 * fTemp11))) + ((fSlow13 * ((fSlow181 * fTemp8) + (fSlow182 * fTemp7))) + (fSlow183 * fTemp21)))))); + output18[i] = FAUSTFLOAT(((fSlow12 * (((fSlow184 * fTemp11) + (fSlow185 * fTemp10)) + (fSlow27 * ((fSlow186 * fTemp16) + (0.23841585846519298 * ((fSlow11 * fTemp12) + (fSlow10 * fTemp14))))))) + (fSlow26 * (((fSlow11 * (((fSlow187 * fTemp7) + (fSlow188 * fTemp9)) + (fSlow189 * fTemp12))) + ((fSlow3 * ((fSlow190 * fTemp8) + (0.14547853605000002 * fTemp10))) + ((fSlow191 * fTemp5) + (fSlow192 * fTemp11)))) + (fSlow150 * ((0.10596150257755792 * fTemp14) + (0.027359094218383301 * fTemp16))))))); + output19[i] = FAUSTFLOAT(((fSlow12 * (((fSlow193 * fTemp10) + (fSlow194 * fTemp12)) + (fSlow150 * ((0.10662277113532474 * fTemp15) + (0.27529923627565928 * fTemp13))))) + (fSlow26 * (((fSlow3 * ((fSlow195 * ((0.41620233757211678 * fTemp9) + (0.12014724747147398 * fTemp6))) + (0.16264988730000002 * fTemp12))) + ((((fSlow196 * fTemp5) + (fSlow199 * fTemp7)) + (fSlow200 * fTemp8)) + (fSlow201 * fTemp10))) + (fSlow150 * ((0.047387405817769852 * fTemp15) + (0.12235394458243126 * fTemp13))))))); + output20[i] = FAUSTFLOAT(((fSlow12 * (((fSlow202 * fTemp12) + (fSlow203 * fTemp13)) + (fSlow204 * fTemp14))) + (fSlow26 * (((fSlow205 * fTemp12) + ((fSlow13 * ((fSlow206 * fTemp5) + (fSlow207 * fTemp6))) + ((fSlow208 * fTemp8) + ((fSlow209 * fTemp7) + ((fSlow210 * fTemp9) + (fSlow211 * fTemp13)))))) + (fSlow212 * fTemp14))))); + output21[i] = FAUSTFLOAT(((fSlow12 * (((fSlow213 * fTemp13) + ((fSlow214 * fTemp10) + (fSlow194 * fTemp14))) + (fSlow193 * fTemp15))) + (fSlow26 * (((fSlow35 * ((fSlow215 * fTemp9) + (fConst87 * fTemp13))) + ((fSlow216 * fTemp10) + ((fSlow196 * fTemp6) + ((fSlow217 * fTemp8) + ((fSlow200 * fTemp7) + ((fSlow218 * fTemp5) + (fSlow219 * fTemp14))))))) + (fSlow201 * fTemp15))))); + output22[i] = FAUSTFLOAT(((fSlow12 * (((fSlow220 * fTemp12) + ((fSlow221 * fTemp11) + ((fSlow222 * fTemp14) + (fSlow185 * fTemp15)))) + (fSlow184 * fTemp16))) + (fSlow26 * (((fSlow35 * ((fSlow223 * fTemp8) + (fConst90 * fTemp14))) + ((fSlow224 * fTemp12) + ((fSlow225 * fTemp11) + ((fSlow191 * fTemp6) + ((fSlow108 * fTemp9) + ((fSlow226 * fTemp7) + (fSlow227 * fTemp15))))))) + (fSlow192 * fTemp16))))); + output23[i] = FAUSTFLOAT(((fSlow12 * (((fSlow228 * fTemp10) + (fSlow229 * fTemp15)) + (fSlow178 * fTemp16))) + (fSlow26 * ((fSlow35 * ((fConst91 * fTemp15) + (fSlow230 * fTemp6))) + ((fSlow231 * fTemp10) + ((fSlow232 * fTemp8) + ((fSlow233 * fTemp7) + ((fSlow234 * fTemp5) + (fSlow235 * fTemp16))))))))); + output24[i] = FAUSTFLOAT(((fSlow12 * ((fSlow236 * fTemp11) + (fSlow237 * fTemp16))) + (fSlow26 * ((fSlow238 * fTemp11) + ((fSlow239 * fTemp5) + ((fSlow240 * fTemp6) + (fSlow241 * fTemp16))))))); + output25[i] = FAUSTFLOAT((fSlow13 * (fSlow26 * ((fSlow242 * fTemp11) + (fSlow243 * fTemp16))))); + output26[i] = FAUSTFLOAT((fSlow26 * ((fSlow13 * ((fSlow244 * fTemp10) + (fSlow245 * fTemp15))) + (fSlow246 * fTemp20)))); + output27[i] = FAUSTFLOAT((fSlow26 * ((fSlow247 * fTemp21) + ((fSlow248 * fTemp11) + (fSlow13 * ((fSlow249 * fTemp14) + (fSlow250 * fTemp12))))))); + output28[i] = FAUSTFLOAT((fSlow26 * ((((fSlow251 * fTemp11) + (fSlow252 * fTemp10)) + (fSlow11 * ((fSlow253 * fTemp12) + (fSlow254 * fTemp13)))) + (fSlow255 * ((0.3273704914048397 * fTemp14) + (0.084526530349225165 * fTemp16)))))); + output29[i] = FAUSTFLOAT((fSlow26 * (((fSlow255 * ((0.15651317678313359 * fTemp15) + (0.40411511288106022 * fTemp13))) + ((((fSlow256 * fTemp11) + (fSlow257 * fTemp10)) + (fSlow260 * fTemp12)) + (fSlow261 * fTemp14))) + (fSlow262 * fTemp16)))); + output30[i] = FAUSTFLOAT((fSlow26 * ((fSlow13 * ((fSlow263 * fTemp10) + (fSlow264 * fTemp15))) + ((fSlow265 * fTemp14) + ((fSlow266 * fTemp12) + (fSlow267 * fTemp13)))))); + output31[i] = FAUSTFLOAT((fSlow26 * ((fSlow257 * fTemp15) + ((fSlow268 * fTemp14) + ((fSlow11 * ((fSlow269 * fTemp11) + (fSlow270 * fTemp13))) + ((fSlow261 * fTemp12) + ((fSlow271 * fTemp10) + (fSlow256 * fTemp16)))))))); + output32[i] = FAUSTFLOAT((fSlow26 * ((((fSlow272 * fTemp13) + ((fSlow273 * fTemp12) + ((fSlow274 * fTemp11) + (fSlow275 * fTemp14)))) + (fSlow252 * fTemp15)) + (fSlow251 * fTemp16)))); + output33[i] = FAUSTFLOAT((fSlow26 * (((fSlow272 * fTemp14) + ((fSlow276 * fTemp12) + ((fSlow277 * fTemp10) + (fSlow278 * fTemp15)))) + (fSlow248 * fTemp16)))); + output34[i] = FAUSTFLOAT((fSlow26 * ((fSlow279 * fTemp10) + ((fSlow280 * fTemp11) + ((fSlow281 * fTemp15) + (fSlow282 * fTemp16)))))); + output35[i] = FAUSTFLOAT((fSlow26 * ((fSlow283 * fTemp11) + (fSlow284 * fTemp16)))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamHCardio2Mono1.cpp b/source/HOAUGens/HOABeamHCardio2Mono1.cpp new file mode 100644 index 0000000000..8b2126d1dc --- /dev/null +++ b/source/HOAUGens/HOABeamHCardio2Mono1.cpp @@ -0,0 +1,1237 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOABeamHCardio2Mono1" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + double fConst1; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("cijk.lib/author", "Pierre Lecomte"); + m->declare("cijk.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("cijk.lib/license", "GPL"); + m->declare("cijk.lib/name", "Cijk matrix"); + m->declare("cijk.lib/version", "10"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filename", "HOABeamHCardio2Mono1"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamHCardio2Mono1"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 1; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = (0.39894624032434478 * (sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0))))) * double(tgamma(1.5)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec0[l5] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOABeamHCardio2Mono1"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56232caf5150", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56232caea260", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56232cafa870", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56232caefa60", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->addCheckButton("Int/Float", &fCheckbox0); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Order", &fHslider0, 0.0, 0.0, 1.0, 0.0001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->addVerticalSlider("Output Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "3", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "4", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Output"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x56232cb02eb0", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = sin(double(fVslider1)); + double fSlow2 = (fConst1 * pow((1.0 - mydsp_faustpower2_f(fSlow1)), 0.5)); + double fSlow3 = double(fVslider2); + double fSlow4 = sin(fSlow3); + double fSlow5 = cos(fSlow3); + double fSlow6 = (0.43301700000000004 * fSlow1); + double fSlow7 = double(fHslider0); + double fSlow8 = max(0.0, (1.0 - fabs(((int(double(fCheckbox0))?fSlow7:double(int(fSlow7))) + -1.0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input1[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = double(input0[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = ((fRec1[0] * ((fSlow2 * ((fSlow4 * fTemp0) + (fSlow5 * fTemp1))) + ((0.24993000000000001 * fTemp2) + (fSlow6 * fTemp3)))) * fSlow8); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp4); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec0[1] = fRec0[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamHCardio2Mono2.cpp b/source/HOAUGens/HOABeamHCardio2Mono2.cpp new file mode 100644 index 0000000000..f16bc5dd84 --- /dev/null +++ b/source/HOAUGens/HOABeamHCardio2Mono2.cpp @@ -0,0 +1,1360 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOABeamHCardio2Mono2" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + double fConst5; + double fRec6[2]; + FAUSTFLOAT fVbargraph4; + double fRec7[2]; + FAUSTFLOAT fVbargraph5; + double fConst6; + double fConst7; + double fRec8[2]; + FAUSTFLOAT fVbargraph6; + double fRec9[2]; + FAUSTFLOAT fVbargraph7; + double fRec10[2]; + FAUSTFLOAT fVbargraph8; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("cijk.lib/author", "Pierre Lecomte"); + m->declare("cijk.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("cijk.lib/license", "GPL"); + m->declare("cijk.lib/name", "Cijk matrix"); + m->declare("cijk.lib/version", "10"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filename", "HOABeamHCardio2Mono2"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamHCardio2Mono2"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 1; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = sqrt((3.0 * (fConst1 / double(tgamma(3.0))))); + fConst3 = double(tgamma(1.5)); + fConst4 = (0.39894624032434478 * (fConst2 * fConst3)); + fConst5 = (sqrt((5.0 * (fConst1 / double(tgamma(5.0))))) * double(tgamma(2.5))); + fConst6 = (0.17730759750868944 * fConst2); + fConst7 = (0.53191448209190839 * sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0)))))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec6[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec8[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec10[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec0[l10] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOABeamHCardio2Mono2"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e61a4c0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e60f3c0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e61fbe0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e614bc0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e62b530", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e639dc0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e6467c0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e63f890", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56104e631990", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->addCheckButton("Int/Float", &fCheckbox0); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Order", &fHslider0, 0.0, 0.0, 2.0, 0.0001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->addVerticalSlider("Output Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "3", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "4", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Output"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x56104e64cc40", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = sin(double(fVslider1)); + double fSlow2 = mydsp_faustpower2_f(fSlow1); + double fSlow3 = (1.0 - fSlow2); + double fSlow4 = pow(fSlow3, 0.5); + double fSlow5 = (fConst4 * fSlow4); + double fSlow6 = double(fVslider2); + double fSlow7 = sin(fSlow6); + double fSlow8 = cos(fSlow6); + double fSlow9 = (0.43301700000000004 * fSlow1); + double fSlow10 = double(fHslider0); + double fSlow11 = (int(double(fCheckbox0))?fSlow10:double(int(fSlow10))); + double fSlow12 = max(0.0, (1.0 - fabs((fSlow11 + -1.0)))); + double fSlow13 = (fConst5 * fSlow3); + double fSlow14 = (0.70921930945587786 * (fSlow8 * fSlow7)); + double fSlow15 = (0.35460965472793893 * ((2.0 * mydsp_faustpower2_f(fSlow8)) + -1.0)); + double fSlow16 = (fConst3 * fSlow4); + double fSlow17 = (fConst7 * (fSlow1 * fSlow7)); + double fSlow18 = (fConst7 * (fSlow8 * fSlow1)); + double fSlow19 = (0.19245000000000004 * fSlow1); + double fSlow20 = (0.124224 * ((3.0 * fSlow2) + -1.0)); + double fSlow21 = max(0.0, (1.0 - fabs((fSlow11 + -2.0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input1[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = ((fSlow7 * fTemp0) + (fSlow8 * fTemp1)); + double fTemp3 = double(input0[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = double(input4[i]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph4 = FAUSTFLOAT(fRec6[0]); + double fTemp6 = double(input8[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph5 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = double(input5[i]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph6 = FAUSTFLOAT(fRec8[0]); + double fTemp8 = double(input7[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph7 = FAUSTFLOAT(fRec9[0]); + double fTemp9 = double(input6[i]); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph8 = FAUSTFLOAT(fRec10[0]); + double fTemp10 = (fRec1[0] * ((((fSlow5 * fTemp2) + ((0.24993000000000001 * fTemp3) + (fSlow9 * fTemp4))) * fSlow12) + (((fSlow13 * ((fSlow14 * fTemp5) + (fSlow15 * fTemp6))) + ((fSlow16 * (((fConst6 * fTemp2) + (fSlow17 * fTemp7)) + (fSlow18 * fTemp8))) + (((0.11112 * fTemp3) + (fSlow19 * fTemp4)) + (fSlow20 * fTemp9)))) * fSlow21))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp10); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec0[1] = fRec0[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOABeamHCardio2Mono3.cpp b/source/HOAUGens/HOABeamHCardio2Mono3.cpp new file mode 100644 index 0000000000..2fb84a23c3 --- /dev/null +++ b/source/HOAUGens/HOABeamHCardio2Mono3.cpp @@ -0,0 +1,1543 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOABeamHCardio2Mono3" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fVslider1; + FAUSTFLOAT fVslider2; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fRec6[2]; + FAUSTFLOAT fVbargraph4; + double fRec7[2]; + FAUSTFLOAT fVbargraph5; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec8[2]; + FAUSTFLOAT fVbargraph6; + double fRec9[2]; + FAUSTFLOAT fVbargraph7; + double fRec10[2]; + FAUSTFLOAT fVbargraph8; + double fConst14; + double fRec11[2]; + FAUSTFLOAT fVbargraph9; + double fRec12[2]; + FAUSTFLOAT fVbargraph10; + double fConst15; + double fConst16; + double fRec13[2]; + FAUSTFLOAT fVbargraph11; + double fConst17; + double fRec14[2]; + FAUSTFLOAT fVbargraph12; + double fConst18; + double fConst19; + double fConst20; + double fRec15[2]; + FAUSTFLOAT fVbargraph13; + double fRec16[2]; + FAUSTFLOAT fVbargraph14; + double fRec17[2]; + FAUSTFLOAT fVbargraph15; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("cijk.lib/author", "Pierre Lecomte"); + m->declare("cijk.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("cijk.lib/license", "GPL"); + m->declare("cijk.lib/name", "Cijk matrix"); + m->declare("cijk.lib/version", "10"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filename", "HOABeamHCardio2Mono3"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOABeamHCardio2Mono3"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 1; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = double(tgamma(3.0)); + fConst3 = sqrt((3.0 * (fConst1 / fConst2))); + fConst4 = double(tgamma(1.5)); + fConst5 = (0.39894624032434478 * (fConst3 * fConst4)); + fConst6 = double(tgamma(5.0)); + fConst7 = sqrt((5.0 * (fConst1 / fConst6))); + fConst8 = double(tgamma(2.5)); + fConst9 = (fConst7 * fConst8); + fConst10 = (0.17730759750868944 * fConst3); + fConst11 = double(tgamma(2.0)); + fConst12 = sqrt((5.0 * (fConst11 / double(tgamma(4.0))))); + fConst13 = (0.53191448209190839 * fConst12); + fConst14 = (0.39895565345202538 * (sqrt((7.0 * (fConst1 / double(tgamma(7.0))))) * double(tgamma(3.5)))); + fConst15 = sqrt((7.0 * (fConst11 / double(tgamma(6.0))))); + fConst16 = (1.9947782672601269 * fConst15); + fConst17 = (0.99738913363006343 * fConst15); + fConst18 = (0.099724352621138213 * fConst3); + fConst19 = (0.2991997552277591 * fConst12); + fConst20 = (0.044195655268848062 * sqrt((7.0 * (fConst2 / fConst6)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + fVslider2 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec6[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec8[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec10[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec12[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec16[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec0[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOABeamHCardio2Mono3"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd311b10", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd306a10", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd317230", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd30c210", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd323690", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd332b50", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd33f970", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd338830", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd329f10", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd349860", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd358070", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd367860", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd373c00", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd36d4f0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd35e2d0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558bcd34f4d0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->addCheckButton("Int/Float", &fCheckbox0); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Order", &fHslider0, 0.0, 0.0, 3.0, 0.0001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->addVerticalSlider("Output Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider2, "3", ""); + ui_interface->addVerticalSlider("Azimuth", &fVslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fVslider1, "4", ""); + ui_interface->addVerticalSlider("Elevation", &fVslider1, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Output"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x558bcd37b510", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = sin(double(fVslider1)); + double fSlow2 = mydsp_faustpower2_f(fSlow1); + double fSlow3 = (1.0 - fSlow2); + double fSlow4 = pow(fSlow3, 0.5); + double fSlow5 = (fConst5 * fSlow4); + double fSlow6 = double(fVslider2); + double fSlow7 = sin(fSlow6); + double fSlow8 = cos(fSlow6); + double fSlow9 = (0.43301700000000004 * fSlow1); + double fSlow10 = double(fHslider0); + double fSlow11 = (int(double(fCheckbox0))?fSlow10:double(int(fSlow10))); + double fSlow12 = max(0.0, (1.0 - fabs((fSlow11 + -1.0)))); + double fSlow13 = (fConst9 * fSlow3); + double fSlow14 = (fSlow8 * fSlow7); + double fSlow15 = (0.70921930945587786 * fSlow14); + double fSlow16 = mydsp_faustpower2_f(fSlow8); + double fSlow17 = ((2.0 * fSlow16) + -1.0); + double fSlow18 = (0.35460965472793893 * fSlow17); + double fSlow19 = (fConst4 * fSlow4); + double fSlow20 = (fSlow1 * fSlow7); + double fSlow21 = (fConst13 * fSlow20); + double fSlow22 = (fSlow8 * fSlow1); + double fSlow23 = (fConst13 * fSlow22); + double fSlow24 = (0.19245000000000004 * fSlow1); + double fSlow25 = ((3.0 * fSlow2) + -1.0); + double fSlow26 = (0.124224 * fSlow25); + double fSlow27 = max(0.0, (1.0 - fabs((fSlow11 + -2.0)))); + double fSlow28 = (fConst14 * pow(fSlow3, 1.5)); + double fSlow29 = (((4.0 * fSlow16) + -1.0) * fSlow7); + double fSlow30 = (((2.0 * fSlow17) + -1.0) * fSlow8); + double fSlow31 = (fConst8 * fSlow3); + double fSlow32 = (0.39893300697034545 * fSlow14); + double fSlow33 = (0.19946650348517272 * fSlow17); + double fSlow34 = (fConst16 * (fSlow22 * fSlow7)); + double fSlow35 = (fConst17 * (fSlow17 * fSlow1)); + double fSlow36 = (fConst19 * fSlow20); + double fSlow37 = (fConst19 * fSlow22); + double fSlow38 = ((16.925687506432688 * fSlow2) + -3.3851375012865379); + double fSlow39 = (fConst20 * (fSlow38 * fSlow7)); + double fSlow40 = (fConst20 * (fSlow38 * fSlow8)); + double fSlow41 = (0.055121666666666666 * ((2.5 * fSlow25) + -2.0)); + double fSlow42 = (0.069875499999999993 * fSlow25); + double fSlow43 = max(0.0, (1.0 - fabs((fSlow11 + -3.0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input1[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = ((fSlow7 * fTemp0) + (fSlow8 * fTemp1)); + double fTemp3 = double(input0[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = double(input4[i]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph4 = FAUSTFLOAT(fRec6[0]); + double fTemp6 = double(input8[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph5 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = double(input5[i]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph6 = FAUSTFLOAT(fRec8[0]); + double fTemp8 = double(input7[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph7 = FAUSTFLOAT(fRec9[0]); + double fTemp9 = double(input6[i]); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph8 = FAUSTFLOAT(fRec10[0]); + double fTemp10 = double(input9[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph9 = FAUSTFLOAT(fRec11[0]); + double fTemp11 = double(input15[i]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph10 = FAUSTFLOAT(fRec12[0]); + double fTemp12 = double(input10[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph11 = FAUSTFLOAT(fRec13[0]); + double fTemp13 = double(input14[i]); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph12 = FAUSTFLOAT(fRec14[0]); + double fTemp14 = double(input11[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph13 = FAUSTFLOAT(fRec15[0]); + double fTemp15 = double(input13[i]); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph14 = FAUSTFLOAT(fRec16[0]); + double fTemp16 = double(input12[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph15 = FAUSTFLOAT(fRec17[0]); + double fTemp17 = (fRec1[0] * (((((fSlow5 * fTemp2) + ((0.24993000000000001 * fTemp3) + (fSlow9 * fTemp4))) * fSlow12) + (((fSlow13 * ((fSlow15 * fTemp5) + (fSlow18 * fTemp6))) + ((fSlow19 * (((fConst10 * fTemp2) + (fSlow21 * fTemp7)) + (fSlow23 * fTemp8))) + (((0.11112 * fTemp3) + (fSlow24 * fTemp4)) + (fSlow26 * fTemp9)))) * fSlow27)) + (((fSlow28 * ((fSlow29 * fTemp10) + (fSlow30 * fTemp11))) + ((fSlow31 * (((fConst7 * ((fSlow32 * fTemp5) + (fSlow33 * fTemp6))) + (fSlow34 * fTemp12)) + (fSlow35 * fTemp13))) + ((fSlow19 * (((((fConst18 * fTemp2) + (fSlow36 * fTemp7)) + (fSlow37 * fTemp8)) + (fSlow39 * fTemp14)) + (fSlow40 * fTemp15))) + ((fSlow1 * ((0.108241 * fTemp4) + (fSlow41 * fTemp16))) + ((0.062512799999999993 * fTemp3) + (fSlow42 * fTemp9)))))) * fSlow43))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp17); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec0[1] = fRec0[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d1.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d1.cpp new file mode 100644 index 0000000000..afded0e83d --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d1.cpp @@ -0,0 +1,1251 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d1"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d1"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20f2570", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20fc260", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2106170", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2110160", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20f66f0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x21007d0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x210a6e0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x21147b0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d10.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d10.cpp new file mode 100644 index 0000000000..933173f119 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d10.cpp @@ -0,0 +1,5850 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d10" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fRec50[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fRec52[2]; + FAUSTFLOAT fVbargraph53; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fRec54[2]; + FAUSTFLOAT fVbargraph55; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + double fRec56[2]; + FAUSTFLOAT fVbargraph57; + double fRec59[2]; + FAUSTFLOAT fVbargraph58; + double fRec58[2]; + FAUSTFLOAT fVbargraph59; + double fRec61[2]; + FAUSTFLOAT fVbargraph60; + double fRec60[2]; + FAUSTFLOAT fVbargraph61; + double fRec63[2]; + FAUSTFLOAT fVbargraph62; + double fRec62[2]; + FAUSTFLOAT fVbargraph63; + double fRec65[2]; + FAUSTFLOAT fVbargraph64; + double fRec64[2]; + FAUSTFLOAT fVbargraph65; + double fRec67[2]; + FAUSTFLOAT fVbargraph66; + double fRec66[2]; + FAUSTFLOAT fVbargraph67; + double fRec69[2]; + FAUSTFLOAT fVbargraph68; + double fRec68[2]; + FAUSTFLOAT fVbargraph69; + double fRec71[2]; + FAUSTFLOAT fVbargraph70; + double fRec70[2]; + FAUSTFLOAT fVbargraph71; + double fRec73[2]; + FAUSTFLOAT fVbargraph72; + double fRec72[2]; + FAUSTFLOAT fVbargraph73; + double fRec75[2]; + FAUSTFLOAT fVbargraph74; + double fRec74[2]; + FAUSTFLOAT fVbargraph75; + double fRec77[2]; + FAUSTFLOAT fVbargraph76; + double fRec76[2]; + FAUSTFLOAT fVbargraph77; + double fRec79[2]; + FAUSTFLOAT fVbargraph78; + double fRec78[2]; + FAUSTFLOAT fVbargraph79; + double fRec81[2]; + FAUSTFLOAT fVbargraph80; + double fRec80[2]; + FAUSTFLOAT fVbargraph81; + double fRec83[2]; + FAUSTFLOAT fVbargraph82; + double fRec82[2]; + FAUSTFLOAT fVbargraph83; + double fRec85[2]; + FAUSTFLOAT fVbargraph84; + double fRec84[2]; + FAUSTFLOAT fVbargraph85; + double fRec87[2]; + FAUSTFLOAT fVbargraph86; + double fRec86[2]; + FAUSTFLOAT fVbargraph87; + double fRec89[2]; + FAUSTFLOAT fVbargraph88; + double fRec88[2]; + FAUSTFLOAT fVbargraph89; + double fRec91[2]; + FAUSTFLOAT fVbargraph90; + double fRec90[2]; + FAUSTFLOAT fVbargraph91; + double fRec93[2]; + FAUSTFLOAT fVbargraph92; + double fRec92[2]; + FAUSTFLOAT fVbargraph93; + double fRec95[2]; + FAUSTFLOAT fVbargraph94; + double fRec94[2]; + FAUSTFLOAT fVbargraph95; + double fRec97[2]; + FAUSTFLOAT fVbargraph96; + double fRec96[2]; + FAUSTFLOAT fVbargraph97; + double fRec99[2]; + FAUSTFLOAT fVbargraph98; + double fRec98[2]; + FAUSTFLOAT fVbargraph99; + double fRec101[2]; + FAUSTFLOAT fVbargraph100; + double fRec100[2]; + FAUSTFLOAT fVbargraph101; + double fRec103[2]; + FAUSTFLOAT fVbargraph102; + double fRec102[2]; + FAUSTFLOAT fVbargraph103; + double fRec105[2]; + FAUSTFLOAT fVbargraph104; + double fRec104[2]; + FAUSTFLOAT fVbargraph105; + double fRec107[2]; + FAUSTFLOAT fVbargraph106; + double fRec106[2]; + FAUSTFLOAT fVbargraph107; + double fRec109[2]; + FAUSTFLOAT fVbargraph108; + double fRec108[2]; + FAUSTFLOAT fVbargraph109; + double fRec111[2]; + FAUSTFLOAT fVbargraph110; + double fRec110[2]; + FAUSTFLOAT fVbargraph111; + double fRec113[2]; + FAUSTFLOAT fVbargraph112; + double fRec112[2]; + FAUSTFLOAT fVbargraph113; + double fRec115[2]; + FAUSTFLOAT fVbargraph114; + double fRec114[2]; + FAUSTFLOAT fVbargraph115; + double fRec117[2]; + FAUSTFLOAT fVbargraph116; + double fRec116[2]; + FAUSTFLOAT fVbargraph117; + double fRec119[2]; + FAUSTFLOAT fVbargraph118; + double fRec118[2]; + FAUSTFLOAT fVbargraph119; + double fRec121[2]; + FAUSTFLOAT fVbargraph120; + double fRec120[2]; + FAUSTFLOAT fVbargraph121; + double fRec123[2]; + FAUSTFLOAT fVbargraph122; + double fRec122[2]; + FAUSTFLOAT fVbargraph123; + double fRec125[2]; + FAUSTFLOAT fVbargraph124; + double fRec124[2]; + FAUSTFLOAT fVbargraph125; + double fRec127[2]; + FAUSTFLOAT fVbargraph126; + double fRec126[2]; + FAUSTFLOAT fVbargraph127; + double fRec129[2]; + FAUSTFLOAT fVbargraph128; + double fRec128[2]; + FAUSTFLOAT fVbargraph129; + double fRec131[2]; + FAUSTFLOAT fVbargraph130; + double fRec130[2]; + FAUSTFLOAT fVbargraph131; + double fRec133[2]; + FAUSTFLOAT fVbargraph132; + double fRec132[2]; + FAUSTFLOAT fVbargraph133; + double fRec135[2]; + FAUSTFLOAT fVbargraph134; + double fRec134[2]; + FAUSTFLOAT fVbargraph135; + double fRec137[2]; + FAUSTFLOAT fVbargraph136; + double fRec136[2]; + FAUSTFLOAT fVbargraph137; + double fRec139[2]; + FAUSTFLOAT fVbargraph138; + double fRec138[2]; + FAUSTFLOAT fVbargraph139; + double fRec141[2]; + FAUSTFLOAT fVbargraph140; + double fRec140[2]; + FAUSTFLOAT fVbargraph141; + double fRec143[2]; + FAUSTFLOAT fVbargraph142; + double fRec142[2]; + FAUSTFLOAT fVbargraph143; + double fRec145[2]; + FAUSTFLOAT fVbargraph144; + double fRec144[2]; + FAUSTFLOAT fVbargraph145; + double fRec147[2]; + FAUSTFLOAT fVbargraph146; + double fRec146[2]; + FAUSTFLOAT fVbargraph147; + double fRec149[2]; + FAUSTFLOAT fVbargraph148; + double fRec148[2]; + FAUSTFLOAT fVbargraph149; + double fRec151[2]; + FAUSTFLOAT fVbargraph150; + double fRec150[2]; + FAUSTFLOAT fVbargraph151; + double fRec153[2]; + FAUSTFLOAT fVbargraph152; + double fRec152[2]; + FAUSTFLOAT fVbargraph153; + double fRec155[2]; + FAUSTFLOAT fVbargraph154; + double fRec154[2]; + FAUSTFLOAT fVbargraph155; + double fRec157[2]; + FAUSTFLOAT fVbargraph156; + double fRec156[2]; + FAUSTFLOAT fVbargraph157; + double fRec159[2]; + FAUSTFLOAT fVbargraph158; + double fRec158[2]; + FAUSTFLOAT fVbargraph159; + double fRec161[2]; + FAUSTFLOAT fVbargraph160; + double fRec160[2]; + FAUSTFLOAT fVbargraph161; + double fRec163[2]; + FAUSTFLOAT fVbargraph162; + double fRec162[2]; + FAUSTFLOAT fVbargraph163; + double fRec165[2]; + FAUSTFLOAT fVbargraph164; + double fRec164[2]; + FAUSTFLOAT fVbargraph165; + double fRec167[2]; + FAUSTFLOAT fVbargraph166; + double fRec166[2]; + FAUSTFLOAT fVbargraph167; + double fRec169[2]; + FAUSTFLOAT fVbargraph168; + double fRec168[2]; + FAUSTFLOAT fVbargraph169; + double fRec171[2]; + FAUSTFLOAT fVbargraph170; + double fRec170[2]; + FAUSTFLOAT fVbargraph171; + double fRec173[2]; + FAUSTFLOAT fVbargraph172; + double fRec172[2]; + FAUSTFLOAT fVbargraph173; + double fRec175[2]; + FAUSTFLOAT fVbargraph174; + double fRec174[2]; + FAUSTFLOAT fVbargraph175; + double fRec177[2]; + FAUSTFLOAT fVbargraph176; + double fRec176[2]; + FAUSTFLOAT fVbargraph177; + double fRec179[2]; + FAUSTFLOAT fVbargraph178; + double fRec178[2]; + FAUSTFLOAT fVbargraph179; + double fRec181[2]; + FAUSTFLOAT fVbargraph180; + double fRec180[2]; + FAUSTFLOAT fVbargraph181; + double fRec183[2]; + FAUSTFLOAT fVbargraph182; + double fRec182[2]; + FAUSTFLOAT fVbargraph183; + double fRec185[2]; + FAUSTFLOAT fVbargraph184; + double fRec184[2]; + FAUSTFLOAT fVbargraph185; + double fRec187[2]; + FAUSTFLOAT fVbargraph186; + double fRec186[2]; + FAUSTFLOAT fVbargraph187; + double fRec189[2]; + FAUSTFLOAT fVbargraph188; + double fRec188[2]; + FAUSTFLOAT fVbargraph189; + double fRec191[2]; + FAUSTFLOAT fVbargraph190; + double fRec190[2]; + FAUSTFLOAT fVbargraph191; + double fRec193[2]; + FAUSTFLOAT fVbargraph192; + double fRec192[2]; + FAUSTFLOAT fVbargraph193; + double fRec195[2]; + FAUSTFLOAT fVbargraph194; + double fRec194[2]; + FAUSTFLOAT fVbargraph195; + double fRec197[2]; + FAUSTFLOAT fVbargraph196; + double fRec196[2]; + FAUSTFLOAT fVbargraph197; + double fRec199[2]; + FAUSTFLOAT fVbargraph198; + double fRec198[2]; + FAUSTFLOAT fVbargraph199; + double fRec201[2]; + FAUSTFLOAT fVbargraph200; + double fRec200[2]; + FAUSTFLOAT fVbargraph201; + double fRec203[2]; + FAUSTFLOAT fVbargraph202; + double fRec202[2]; + FAUSTFLOAT fVbargraph203; + double fRec205[2]; + FAUSTFLOAT fVbargraph204; + double fRec204[2]; + FAUSTFLOAT fVbargraph205; + double fRec207[2]; + FAUSTFLOAT fVbargraph206; + double fRec206[2]; + FAUSTFLOAT fVbargraph207; + double fRec209[2]; + FAUSTFLOAT fVbargraph208; + double fRec208[2]; + FAUSTFLOAT fVbargraph209; + double fRec211[2]; + FAUSTFLOAT fVbargraph210; + double fRec210[2]; + FAUSTFLOAT fVbargraph211; + double fRec213[2]; + FAUSTFLOAT fVbargraph212; + double fRec212[2]; + FAUSTFLOAT fVbargraph213; + double fRec215[2]; + FAUSTFLOAT fVbargraph214; + double fRec214[2]; + FAUSTFLOAT fVbargraph215; + double fRec217[2]; + FAUSTFLOAT fVbargraph216; + double fRec216[2]; + FAUSTFLOAT fVbargraph217; + double fRec219[2]; + FAUSTFLOAT fVbargraph218; + double fRec218[2]; + FAUSTFLOAT fVbargraph219; + double fRec221[2]; + FAUSTFLOAT fVbargraph220; + double fRec220[2]; + FAUSTFLOAT fVbargraph221; + double fRec223[2]; + FAUSTFLOAT fVbargraph222; + double fRec222[2]; + FAUSTFLOAT fVbargraph223; + double fRec225[2]; + FAUSTFLOAT fVbargraph224; + double fRec224[2]; + FAUSTFLOAT fVbargraph225; + double fRec227[2]; + FAUSTFLOAT fVbargraph226; + double fRec226[2]; + FAUSTFLOAT fVbargraph227; + double fRec229[2]; + FAUSTFLOAT fVbargraph228; + double fRec228[2]; + FAUSTFLOAT fVbargraph229; + double fRec231[2]; + FAUSTFLOAT fVbargraph230; + double fRec230[2]; + FAUSTFLOAT fVbargraph231; + double fRec233[2]; + FAUSTFLOAT fVbargraph232; + double fRec232[2]; + FAUSTFLOAT fVbargraph233; + double fRec235[2]; + FAUSTFLOAT fVbargraph234; + double fRec234[2]; + FAUSTFLOAT fVbargraph235; + double fRec237[2]; + FAUSTFLOAT fVbargraph236; + double fRec236[2]; + FAUSTFLOAT fVbargraph237; + double fRec239[2]; + FAUSTFLOAT fVbargraph238; + double fRec238[2]; + FAUSTFLOAT fVbargraph239; + double fRec241[2]; + FAUSTFLOAT fVbargraph240; + double fRec240[2]; + FAUSTFLOAT fVbargraph241; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d10"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 121; + + } + virtual int getNumOutputs() { + return 121; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec51[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec55[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec63[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec65[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec64[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec66[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec69[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec68[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec71[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec70[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec73[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec72[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec75[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec74[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec77[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec76[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec79[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec78[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec81[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec80[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec83[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec82[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec85[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec84[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec87[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec86[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec88[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec91[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec90[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec93[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec92[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec95[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec94[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec96[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec99[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec98[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec101[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec100[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec103[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec102[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec105[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec104[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec107[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec106[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec109[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec108[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec111[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec110[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec113[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec112[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec115[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec114[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec117[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec116[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec119[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec118[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec121[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec120[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec123[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec122[l123] = 0.0; + + } + for (int l124 = 0; (l124 < 2); l124 = (l124 + 1)) { + fRec125[l124] = 0.0; + + } + for (int l125 = 0; (l125 < 2); l125 = (l125 + 1)) { + fRec124[l125] = 0.0; + + } + for (int l126 = 0; (l126 < 2); l126 = (l126 + 1)) { + fRec127[l126] = 0.0; + + } + for (int l127 = 0; (l127 < 2); l127 = (l127 + 1)) { + fRec126[l127] = 0.0; + + } + for (int l128 = 0; (l128 < 2); l128 = (l128 + 1)) { + fRec129[l128] = 0.0; + + } + for (int l129 = 0; (l129 < 2); l129 = (l129 + 1)) { + fRec128[l129] = 0.0; + + } + for (int l130 = 0; (l130 < 2); l130 = (l130 + 1)) { + fRec131[l130] = 0.0; + + } + for (int l131 = 0; (l131 < 2); l131 = (l131 + 1)) { + fRec130[l131] = 0.0; + + } + for (int l132 = 0; (l132 < 2); l132 = (l132 + 1)) { + fRec133[l132] = 0.0; + + } + for (int l133 = 0; (l133 < 2); l133 = (l133 + 1)) { + fRec132[l133] = 0.0; + + } + for (int l134 = 0; (l134 < 2); l134 = (l134 + 1)) { + fRec135[l134] = 0.0; + + } + for (int l135 = 0; (l135 < 2); l135 = (l135 + 1)) { + fRec134[l135] = 0.0; + + } + for (int l136 = 0; (l136 < 2); l136 = (l136 + 1)) { + fRec137[l136] = 0.0; + + } + for (int l137 = 0; (l137 < 2); l137 = (l137 + 1)) { + fRec136[l137] = 0.0; + + } + for (int l138 = 0; (l138 < 2); l138 = (l138 + 1)) { + fRec139[l138] = 0.0; + + } + for (int l139 = 0; (l139 < 2); l139 = (l139 + 1)) { + fRec138[l139] = 0.0; + + } + for (int l140 = 0; (l140 < 2); l140 = (l140 + 1)) { + fRec141[l140] = 0.0; + + } + for (int l141 = 0; (l141 < 2); l141 = (l141 + 1)) { + fRec140[l141] = 0.0; + + } + for (int l142 = 0; (l142 < 2); l142 = (l142 + 1)) { + fRec143[l142] = 0.0; + + } + for (int l143 = 0; (l143 < 2); l143 = (l143 + 1)) { + fRec142[l143] = 0.0; + + } + for (int l144 = 0; (l144 < 2); l144 = (l144 + 1)) { + fRec145[l144] = 0.0; + + } + for (int l145 = 0; (l145 < 2); l145 = (l145 + 1)) { + fRec144[l145] = 0.0; + + } + for (int l146 = 0; (l146 < 2); l146 = (l146 + 1)) { + fRec147[l146] = 0.0; + + } + for (int l147 = 0; (l147 < 2); l147 = (l147 + 1)) { + fRec146[l147] = 0.0; + + } + for (int l148 = 0; (l148 < 2); l148 = (l148 + 1)) { + fRec149[l148] = 0.0; + + } + for (int l149 = 0; (l149 < 2); l149 = (l149 + 1)) { + fRec148[l149] = 0.0; + + } + for (int l150 = 0; (l150 < 2); l150 = (l150 + 1)) { + fRec151[l150] = 0.0; + + } + for (int l151 = 0; (l151 < 2); l151 = (l151 + 1)) { + fRec150[l151] = 0.0; + + } + for (int l152 = 0; (l152 < 2); l152 = (l152 + 1)) { + fRec153[l152] = 0.0; + + } + for (int l153 = 0; (l153 < 2); l153 = (l153 + 1)) { + fRec152[l153] = 0.0; + + } + for (int l154 = 0; (l154 < 2); l154 = (l154 + 1)) { + fRec155[l154] = 0.0; + + } + for (int l155 = 0; (l155 < 2); l155 = (l155 + 1)) { + fRec154[l155] = 0.0; + + } + for (int l156 = 0; (l156 < 2); l156 = (l156 + 1)) { + fRec157[l156] = 0.0; + + } + for (int l157 = 0; (l157 < 2); l157 = (l157 + 1)) { + fRec156[l157] = 0.0; + + } + for (int l158 = 0; (l158 < 2); l158 = (l158 + 1)) { + fRec159[l158] = 0.0; + + } + for (int l159 = 0; (l159 < 2); l159 = (l159 + 1)) { + fRec158[l159] = 0.0; + + } + for (int l160 = 0; (l160 < 2); l160 = (l160 + 1)) { + fRec161[l160] = 0.0; + + } + for (int l161 = 0; (l161 < 2); l161 = (l161 + 1)) { + fRec160[l161] = 0.0; + + } + for (int l162 = 0; (l162 < 2); l162 = (l162 + 1)) { + fRec163[l162] = 0.0; + + } + for (int l163 = 0; (l163 < 2); l163 = (l163 + 1)) { + fRec162[l163] = 0.0; + + } + for (int l164 = 0; (l164 < 2); l164 = (l164 + 1)) { + fRec165[l164] = 0.0; + + } + for (int l165 = 0; (l165 < 2); l165 = (l165 + 1)) { + fRec164[l165] = 0.0; + + } + for (int l166 = 0; (l166 < 2); l166 = (l166 + 1)) { + fRec167[l166] = 0.0; + + } + for (int l167 = 0; (l167 < 2); l167 = (l167 + 1)) { + fRec166[l167] = 0.0; + + } + for (int l168 = 0; (l168 < 2); l168 = (l168 + 1)) { + fRec169[l168] = 0.0; + + } + for (int l169 = 0; (l169 < 2); l169 = (l169 + 1)) { + fRec168[l169] = 0.0; + + } + for (int l170 = 0; (l170 < 2); l170 = (l170 + 1)) { + fRec171[l170] = 0.0; + + } + for (int l171 = 0; (l171 < 2); l171 = (l171 + 1)) { + fRec170[l171] = 0.0; + + } + for (int l172 = 0; (l172 < 2); l172 = (l172 + 1)) { + fRec173[l172] = 0.0; + + } + for (int l173 = 0; (l173 < 2); l173 = (l173 + 1)) { + fRec172[l173] = 0.0; + + } + for (int l174 = 0; (l174 < 2); l174 = (l174 + 1)) { + fRec175[l174] = 0.0; + + } + for (int l175 = 0; (l175 < 2); l175 = (l175 + 1)) { + fRec174[l175] = 0.0; + + } + for (int l176 = 0; (l176 < 2); l176 = (l176 + 1)) { + fRec177[l176] = 0.0; + + } + for (int l177 = 0; (l177 < 2); l177 = (l177 + 1)) { + fRec176[l177] = 0.0; + + } + for (int l178 = 0; (l178 < 2); l178 = (l178 + 1)) { + fRec179[l178] = 0.0; + + } + for (int l179 = 0; (l179 < 2); l179 = (l179 + 1)) { + fRec178[l179] = 0.0; + + } + for (int l180 = 0; (l180 < 2); l180 = (l180 + 1)) { + fRec181[l180] = 0.0; + + } + for (int l181 = 0; (l181 < 2); l181 = (l181 + 1)) { + fRec180[l181] = 0.0; + + } + for (int l182 = 0; (l182 < 2); l182 = (l182 + 1)) { + fRec183[l182] = 0.0; + + } + for (int l183 = 0; (l183 < 2); l183 = (l183 + 1)) { + fRec182[l183] = 0.0; + + } + for (int l184 = 0; (l184 < 2); l184 = (l184 + 1)) { + fRec185[l184] = 0.0; + + } + for (int l185 = 0; (l185 < 2); l185 = (l185 + 1)) { + fRec184[l185] = 0.0; + + } + for (int l186 = 0; (l186 < 2); l186 = (l186 + 1)) { + fRec187[l186] = 0.0; + + } + for (int l187 = 0; (l187 < 2); l187 = (l187 + 1)) { + fRec186[l187] = 0.0; + + } + for (int l188 = 0; (l188 < 2); l188 = (l188 + 1)) { + fRec189[l188] = 0.0; + + } + for (int l189 = 0; (l189 < 2); l189 = (l189 + 1)) { + fRec188[l189] = 0.0; + + } + for (int l190 = 0; (l190 < 2); l190 = (l190 + 1)) { + fRec191[l190] = 0.0; + + } + for (int l191 = 0; (l191 < 2); l191 = (l191 + 1)) { + fRec190[l191] = 0.0; + + } + for (int l192 = 0; (l192 < 2); l192 = (l192 + 1)) { + fRec193[l192] = 0.0; + + } + for (int l193 = 0; (l193 < 2); l193 = (l193 + 1)) { + fRec192[l193] = 0.0; + + } + for (int l194 = 0; (l194 < 2); l194 = (l194 + 1)) { + fRec195[l194] = 0.0; + + } + for (int l195 = 0; (l195 < 2); l195 = (l195 + 1)) { + fRec194[l195] = 0.0; + + } + for (int l196 = 0; (l196 < 2); l196 = (l196 + 1)) { + fRec197[l196] = 0.0; + + } + for (int l197 = 0; (l197 < 2); l197 = (l197 + 1)) { + fRec196[l197] = 0.0; + + } + for (int l198 = 0; (l198 < 2); l198 = (l198 + 1)) { + fRec199[l198] = 0.0; + + } + for (int l199 = 0; (l199 < 2); l199 = (l199 + 1)) { + fRec198[l199] = 0.0; + + } + for (int l200 = 0; (l200 < 2); l200 = (l200 + 1)) { + fRec201[l200] = 0.0; + + } + for (int l201 = 0; (l201 < 2); l201 = (l201 + 1)) { + fRec200[l201] = 0.0; + + } + for (int l202 = 0; (l202 < 2); l202 = (l202 + 1)) { + fRec203[l202] = 0.0; + + } + for (int l203 = 0; (l203 < 2); l203 = (l203 + 1)) { + fRec202[l203] = 0.0; + + } + for (int l204 = 0; (l204 < 2); l204 = (l204 + 1)) { + fRec205[l204] = 0.0; + + } + for (int l205 = 0; (l205 < 2); l205 = (l205 + 1)) { + fRec204[l205] = 0.0; + + } + for (int l206 = 0; (l206 < 2); l206 = (l206 + 1)) { + fRec207[l206] = 0.0; + + } + for (int l207 = 0; (l207 < 2); l207 = (l207 + 1)) { + fRec206[l207] = 0.0; + + } + for (int l208 = 0; (l208 < 2); l208 = (l208 + 1)) { + fRec209[l208] = 0.0; + + } + for (int l209 = 0; (l209 < 2); l209 = (l209 + 1)) { + fRec208[l209] = 0.0; + + } + for (int l210 = 0; (l210 < 2); l210 = (l210 + 1)) { + fRec211[l210] = 0.0; + + } + for (int l211 = 0; (l211 < 2); l211 = (l211 + 1)) { + fRec210[l211] = 0.0; + + } + for (int l212 = 0; (l212 < 2); l212 = (l212 + 1)) { + fRec213[l212] = 0.0; + + } + for (int l213 = 0; (l213 < 2); l213 = (l213 + 1)) { + fRec212[l213] = 0.0; + + } + for (int l214 = 0; (l214 < 2); l214 = (l214 + 1)) { + fRec215[l214] = 0.0; + + } + for (int l215 = 0; (l215 < 2); l215 = (l215 + 1)) { + fRec214[l215] = 0.0; + + } + for (int l216 = 0; (l216 < 2); l216 = (l216 + 1)) { + fRec217[l216] = 0.0; + + } + for (int l217 = 0; (l217 < 2); l217 = (l217 + 1)) { + fRec216[l217] = 0.0; + + } + for (int l218 = 0; (l218 < 2); l218 = (l218 + 1)) { + fRec219[l218] = 0.0; + + } + for (int l219 = 0; (l219 < 2); l219 = (l219 + 1)) { + fRec218[l219] = 0.0; + + } + for (int l220 = 0; (l220 < 2); l220 = (l220 + 1)) { + fRec221[l220] = 0.0; + + } + for (int l221 = 0; (l221 < 2); l221 = (l221 + 1)) { + fRec220[l221] = 0.0; + + } + for (int l222 = 0; (l222 < 2); l222 = (l222 + 1)) { + fRec223[l222] = 0.0; + + } + for (int l223 = 0; (l223 < 2); l223 = (l223 + 1)) { + fRec222[l223] = 0.0; + + } + for (int l224 = 0; (l224 < 2); l224 = (l224 + 1)) { + fRec225[l224] = 0.0; + + } + for (int l225 = 0; (l225 < 2); l225 = (l225 + 1)) { + fRec224[l225] = 0.0; + + } + for (int l226 = 0; (l226 < 2); l226 = (l226 + 1)) { + fRec227[l226] = 0.0; + + } + for (int l227 = 0; (l227 < 2); l227 = (l227 + 1)) { + fRec226[l227] = 0.0; + + } + for (int l228 = 0; (l228 < 2); l228 = (l228 + 1)) { + fRec229[l228] = 0.0; + + } + for (int l229 = 0; (l229 < 2); l229 = (l229 + 1)) { + fRec228[l229] = 0.0; + + } + for (int l230 = 0; (l230 < 2); l230 = (l230 + 1)) { + fRec231[l230] = 0.0; + + } + for (int l231 = 0; (l231 < 2); l231 = (l231 + 1)) { + fRec230[l231] = 0.0; + + } + for (int l232 = 0; (l232 < 2); l232 = (l232 + 1)) { + fRec233[l232] = 0.0; + + } + for (int l233 = 0; (l233 < 2); l233 = (l233 + 1)) { + fRec232[l233] = 0.0; + + } + for (int l234 = 0; (l234 < 2); l234 = (l234 + 1)) { + fRec235[l234] = 0.0; + + } + for (int l235 = 0; (l235 < 2); l235 = (l235 + 1)) { + fRec234[l235] = 0.0; + + } + for (int l236 = 0; (l236 < 2); l236 = (l236 + 1)) { + fRec237[l236] = 0.0; + + } + for (int l237 = 0; (l237 < 2); l237 = (l237 + 1)) { + fRec236[l237] = 0.0; + + } + for (int l238 = 0; (l238 < 2); l238 = (l238 + 1)) { + fRec239[l238] = 0.0; + + } + for (int l239 = 0; (l239 < 2); l239 = (l239 + 1)) { + fRec238[l239] = 0.0; + + } + for (int l240 = 0; (l240 < 2); l240 = (l240 + 1)) { + fRec241[l240] = 0.0; + + } + for (int l241 = 0; (l241 < 2); l241 = (l241 + 1)) { + fRec240[l241] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d10"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38b15e0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38bb2d0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38c51e0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38cf1d0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("10"); + ui_interface->openVerticalBox("100"); + ui_interface->declare(&fVbargraph200, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d0b300", &fVbargraph200, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("101"); + ui_interface->declare(&fVbargraph202, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d153d0", &fVbargraph202, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("102"); + ui_interface->declare(&fVbargraph204, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d1f580", &fVbargraph204, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("103"); + ui_interface->declare(&fVbargraph206, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d298f0", &fVbargraph206, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("104"); + ui_interface->declare(&fVbargraph208, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d33e20", &fVbargraph208, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("105"); + ui_interface->declare(&fVbargraph210, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d3e510", &fVbargraph210, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("106"); + ui_interface->declare(&fVbargraph212, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d48dc0", &fVbargraph212, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("107"); + ui_interface->declare(&fVbargraph214, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d53830", &fVbargraph214, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("108"); + ui_interface->declare(&fVbargraph216, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d5e460", &fVbargraph216, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("109"); + ui_interface->declare(&fVbargraph218, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d69250", &fVbargraph218, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("110"); + ui_interface->declare(&fVbargraph220, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d74200", &fVbargraph220, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("111"); + ui_interface->declare(&fVbargraph222, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d7f370", &fVbargraph222, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("112"); + ui_interface->declare(&fVbargraph224, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d8a6a0", &fVbargraph224, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("113"); + ui_interface->declare(&fVbargraph226, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d95b90", &fVbargraph226, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("114"); + ui_interface->declare(&fVbargraph228, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3da1240", &fVbargraph228, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("115"); + ui_interface->declare(&fVbargraph230, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3dacab0", &fVbargraph230, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("116"); + ui_interface->declare(&fVbargraph232, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3db84e0", &fVbargraph232, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("117"); + ui_interface->declare(&fVbargraph234, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3dc40d0", &fVbargraph234, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("118"); + ui_interface->declare(&fVbargraph236, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3dcfe80", &fVbargraph236, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("119"); + ui_interface->declare(&fVbargraph238, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ddbdf0", &fVbargraph238, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("120"); + ui_interface->declare(&fVbargraph240, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3de7f20", &fVbargraph240, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38d9550", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38e3620", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38ed7d0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f7b40", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3902070", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x390c930", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3916bc0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3920f30", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x392b460", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3935b50", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3940400", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x394ae70", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3955c70", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39600c0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x396a5f0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3974ce0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x397f590", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398a000", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3994c30", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x399fa20", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39aa9d0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39b5d10", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c0320", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39caa10", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d52d0", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39dfd40", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ea970", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f5760", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a00710", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a0b880", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a16bb0", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a220a0", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a2d920", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a380f0", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph76, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a429a0", &fVbargraph76, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph78, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a4d410", &fVbargraph78, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph80, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a58040", &fVbargraph80, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph82, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a62e30", &fVbargraph82, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph84, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a6dde0", &fVbargraph84, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph86, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a78f60", &fVbargraph86, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph88, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a84290", &fVbargraph88, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph90, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a8f780", &fVbargraph90, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph92, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a9ae30", &fVbargraph92, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph94, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa66a0", &fVbargraph94, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph96, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab20d0", &fVbargraph96, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph98, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3abde90", &fVbargraph98, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph100, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ac8820", &fVbargraph100, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph102, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ad3290", &fVbargraph102, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph104, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3addec0", &fVbargraph104, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph106, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ae8cb0", &fVbargraph106, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph108, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af3c60", &fVbargraph108, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph110, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3afedd0", &fVbargraph110, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph112, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b0a100", &fVbargraph112, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph114, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b155f0", &fVbargraph114, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph116, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b20ca0", &fVbargraph116, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph118, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b2c510", &fVbargraph118, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph120, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b37f40", &fVbargraph120, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph122, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b43b40", &fVbargraph122, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph124, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b4f8f0", &fVbargraph124, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph126, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b5b860", &fVbargraph126, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("8"); + ui_interface->openVerticalBox("64"); + ui_interface->declare(&fVbargraph128, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b67b60", &fVbargraph128, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("65"); + ui_interface->declare(&fVbargraph130, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b726b0", &fVbargraph130, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("66"); + ui_interface->declare(&fVbargraph132, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b7d2e0", &fVbargraph132, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("67"); + ui_interface->declare(&fVbargraph134, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b880d0", &fVbargraph134, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("68"); + ui_interface->declare(&fVbargraph136, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b93080", &fVbargraph136, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("69"); + ui_interface->declare(&fVbargraph138, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b9e1f0", &fVbargraph138, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("70"); + ui_interface->declare(&fVbargraph140, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ba9520", &fVbargraph140, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("71"); + ui_interface->declare(&fVbargraph142, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bb4a10", &fVbargraph142, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("72"); + ui_interface->declare(&fVbargraph144, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bc00c0", &fVbargraph144, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("73"); + ui_interface->declare(&fVbargraph146, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bcb930", &fVbargraph146, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("74"); + ui_interface->declare(&fVbargraph148, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bd7360", &fVbargraph148, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("75"); + ui_interface->declare(&fVbargraph150, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3be2f50", &fVbargraph150, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("76"); + ui_interface->declare(&fVbargraph152, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3beed00", &fVbargraph152, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("77"); + ui_interface->declare(&fVbargraph154, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bfac70", &fVbargraph154, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("78"); + ui_interface->declare(&fVbargraph156, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c06da0", &fVbargraph156, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("79"); + ui_interface->declare(&fVbargraph158, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c13090", &fVbargraph158, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("80"); + ui_interface->declare(&fVbargraph160, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c1f540", &fVbargraph160, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("9"); + ui_interface->openVerticalBox("81"); + ui_interface->declare(&fVbargraph162, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c2bd80", &fVbargraph162, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("82"); + ui_interface->declare(&fVbargraph164, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c36a90", &fVbargraph164, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("83"); + ui_interface->declare(&fVbargraph166, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c41880", &fVbargraph166, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("84"); + ui_interface->declare(&fVbargraph168, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c4c830", &fVbargraph168, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("85"); + ui_interface->declare(&fVbargraph170, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c579a0", &fVbargraph170, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("86"); + ui_interface->declare(&fVbargraph172, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c62cd0", &fVbargraph172, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("87"); + ui_interface->declare(&fVbargraph174, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c6e1c0", &fVbargraph174, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("88"); + ui_interface->declare(&fVbargraph176, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c79870", &fVbargraph176, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("89"); + ui_interface->declare(&fVbargraph178, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c850e0", &fVbargraph178, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("90"); + ui_interface->declare(&fVbargraph180, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c90b10", &fVbargraph180, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("91"); + ui_interface->declare(&fVbargraph182, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c9c700", &fVbargraph182, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("92"); + ui_interface->declare(&fVbargraph184, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ca84b0", &fVbargraph184, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("93"); + ui_interface->declare(&fVbargraph186, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cb4420", &fVbargraph186, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("94"); + ui_interface->declare(&fVbargraph188, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cc0550", &fVbargraph188, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("95"); + ui_interface->declare(&fVbargraph190, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ccc840", &fVbargraph190, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("96"); + ui_interface->declare(&fVbargraph192, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cd8cf0", &fVbargraph192, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("97"); + ui_interface->declare(&fVbargraph194, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ce5360", &fVbargraph194, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("98"); + ui_interface->declare(&fVbargraph196, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cf1b90", &fVbargraph196, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("99"); + ui_interface->declare(&fVbargraph198, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cfe580", &fVbargraph198, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38b5760", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38bf840", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38c9750", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38d3820", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("10"); + ui_interface->openVerticalBox("100"); + ui_interface->declare(&fVbargraph201, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d0f950", &fVbargraph201, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("101"); + ui_interface->declare(&fVbargraph203, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d19a20", &fVbargraph203, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("102"); + ui_interface->declare(&fVbargraph205, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d23cb0", &fVbargraph205, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("103"); + ui_interface->declare(&fVbargraph207, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d2e100", &fVbargraph207, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("104"); + ui_interface->declare(&fVbargraph209, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d38710", &fVbargraph209, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("105"); + ui_interface->declare(&fVbargraph211, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d42ee0", &fVbargraph211, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("106"); + ui_interface->declare(&fVbargraph213, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d4d870", &fVbargraph213, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("107"); + ui_interface->declare(&fVbargraph215, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d583c0", &fVbargraph215, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("108"); + ui_interface->declare(&fVbargraph217, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d630d0", &fVbargraph217, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("109"); + ui_interface->declare(&fVbargraph219, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d6dfa0", &fVbargraph219, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("110"); + ui_interface->declare(&fVbargraph221, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d79030", &fVbargraph221, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("111"); + ui_interface->declare(&fVbargraph223, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d84280", &fVbargraph223, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("112"); + ui_interface->declare(&fVbargraph225, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d8f690", &fVbargraph225, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("113"); + ui_interface->declare(&fVbargraph227, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d9ac60", &fVbargraph227, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("114"); + ui_interface->declare(&fVbargraph229, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3da63f0", &fVbargraph229, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("115"); + ui_interface->declare(&fVbargraph231, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3db1d40", &fVbargraph231, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("116"); + ui_interface->declare(&fVbargraph233, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3dbd850", &fVbargraph233, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("117"); + ui_interface->declare(&fVbargraph235, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3dc9520", &fVbargraph235, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("118"); + ui_interface->declare(&fVbargraph237, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3dd53b0", &fVbargraph237, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("119"); + ui_interface->declare(&fVbargraph239, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3de1400", &fVbargraph239, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("120"); + ui_interface->declare(&fVbargraph241, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ded610", &fVbargraph241, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38ddba0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38e7c70", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f1f00", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38fc350", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3906960", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3911060", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x391b2f0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3925740", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x392fd50", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x393a520", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3944eb0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x394fa00", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x395a480", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39648d0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x396eee0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39796b0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3984040", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398eb90", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39998a0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39a4770", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39af800", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ba600", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c4c10", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39cf3e0", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d9d80", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e48d0", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ef5e0", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39fa4b0", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a05540", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a10790", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a1bba0", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a27170", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a322f0", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph75, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a3cac0", &fVbargraph75, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph77, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a47450", &fVbargraph77, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph79, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a51fa0", &fVbargraph79, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph81, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a5ccb0", &fVbargraph81, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph83, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a67b80", &fVbargraph83, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph85, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a72c10", &fVbargraph85, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph87, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a7de70", &fVbargraph87, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph89, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a89280", &fVbargraph89, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph91, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a94850", &fVbargraph91, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph93, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a9ffe0", &fVbargraph93, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph95, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aab930", &fVbargraph95, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph97, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab7440", &fVbargraph97, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph99, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ac2940", &fVbargraph99, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph101, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3acd2d0", &fVbargraph101, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph103, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ad7e20", &fVbargraph103, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph105, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ae2b30", &fVbargraph105, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph107, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aeda00", &fVbargraph107, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph109, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af8a90", &fVbargraph109, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph111, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b03ce0", &fVbargraph111, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph113, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b0f0f0", &fVbargraph113, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph115, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b1a6c0", &fVbargraph115, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph117, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b25e50", &fVbargraph117, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph119, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b317a0", &fVbargraph119, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph121, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b3d2c0", &fVbargraph121, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph123, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b48f90", &fVbargraph123, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph125, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b54e20", &fVbargraph125, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph127, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b60e70", &fVbargraph127, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("8"); + ui_interface->openVerticalBox("64"); + ui_interface->declare(&fVbargraph129, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b6c6f0", &fVbargraph129, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("65"); + ui_interface->declare(&fVbargraph131, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b77240", &fVbargraph131, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("66"); + ui_interface->declare(&fVbargraph133, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b81f50", &fVbargraph133, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("67"); + ui_interface->declare(&fVbargraph135, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b8ce20", &fVbargraph135, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("68"); + ui_interface->declare(&fVbargraph137, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b97eb0", &fVbargraph137, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("69"); + ui_interface->declare(&fVbargraph139, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ba3100", &fVbargraph139, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("70"); + ui_interface->declare(&fVbargraph141, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bae510", &fVbargraph141, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("71"); + ui_interface->declare(&fVbargraph143, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bb9ae0", &fVbargraph143, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("72"); + ui_interface->declare(&fVbargraph145, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bc5270", &fVbargraph145, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("73"); + ui_interface->declare(&fVbargraph147, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bd0bc0", &fVbargraph147, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("74"); + ui_interface->declare(&fVbargraph149, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bdc6d0", &fVbargraph149, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("75"); + ui_interface->declare(&fVbargraph151, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3be83a0", &fVbargraph151, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("76"); + ui_interface->declare(&fVbargraph153, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bf4230", &fVbargraph153, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("77"); + ui_interface->declare(&fVbargraph155, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c00280", &fVbargraph155, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("78"); + ui_interface->declare(&fVbargraph157, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c0c490", &fVbargraph157, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("79"); + ui_interface->declare(&fVbargraph159, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c18860", &fVbargraph159, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("80"); + ui_interface->declare(&fVbargraph161, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c24df0", &fVbargraph161, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("9"); + ui_interface->openVerticalBox("81"); + ui_interface->declare(&fVbargraph163, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c309f0", &fVbargraph163, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("82"); + ui_interface->declare(&fVbargraph165, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c3b700", &fVbargraph165, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("83"); + ui_interface->declare(&fVbargraph167, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c465d0", &fVbargraph167, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("84"); + ui_interface->declare(&fVbargraph169, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c51660", &fVbargraph169, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("85"); + ui_interface->declare(&fVbargraph171, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c5c8b0", &fVbargraph171, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("86"); + ui_interface->declare(&fVbargraph173, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c67cc0", &fVbargraph173, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("87"); + ui_interface->declare(&fVbargraph175, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c73290", &fVbargraph175, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("88"); + ui_interface->declare(&fVbargraph177, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c7ea20", &fVbargraph177, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("89"); + ui_interface->declare(&fVbargraph179, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c8a370", &fVbargraph179, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("90"); + ui_interface->declare(&fVbargraph181, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3c95e80", &fVbargraph181, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("91"); + ui_interface->declare(&fVbargraph183, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ca1b50", &fVbargraph183, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("92"); + ui_interface->declare(&fVbargraph185, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cad9e0", &fVbargraph185, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("93"); + ui_interface->declare(&fVbargraph187, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cb9a30", &fVbargraph187, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("94"); + ui_interface->declare(&fVbargraph189, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cc5c40", &fVbargraph189, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("95"); + ui_interface->declare(&fVbargraph191, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cd2010", &fVbargraph191, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("96"); + ui_interface->declare(&fVbargraph193, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cde5a0", &fVbargraph193, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("97"); + ui_interface->declare(&fVbargraph195, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ceacf0", &fVbargraph195, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("98"); + ui_interface->declare(&fVbargraph197, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3cf7600", &fVbargraph197, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("99"); + ui_interface->declare(&fVbargraph199, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3d040d0", &fVbargraph199, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* input100 = inputs[100]; + FAUSTFLOAT* input101 = inputs[101]; + FAUSTFLOAT* input102 = inputs[102]; + FAUSTFLOAT* input103 = inputs[103]; + FAUSTFLOAT* input104 = inputs[104]; + FAUSTFLOAT* input105 = inputs[105]; + FAUSTFLOAT* input106 = inputs[106]; + FAUSTFLOAT* input107 = inputs[107]; + FAUSTFLOAT* input108 = inputs[108]; + FAUSTFLOAT* input109 = inputs[109]; + FAUSTFLOAT* input110 = inputs[110]; + FAUSTFLOAT* input111 = inputs[111]; + FAUSTFLOAT* input112 = inputs[112]; + FAUSTFLOAT* input113 = inputs[113]; + FAUSTFLOAT* input114 = inputs[114]; + FAUSTFLOAT* input115 = inputs[115]; + FAUSTFLOAT* input116 = inputs[116]; + FAUSTFLOAT* input117 = inputs[117]; + FAUSTFLOAT* input118 = inputs[118]; + FAUSTFLOAT* input119 = inputs[119]; + FAUSTFLOAT* input120 = inputs[120]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + FAUSTFLOAT* output100 = outputs[100]; + FAUSTFLOAT* output101 = outputs[101]; + FAUSTFLOAT* output102 = outputs[102]; + FAUSTFLOAT* output103 = outputs[103]; + FAUSTFLOAT* output104 = outputs[104]; + FAUSTFLOAT* output105 = outputs[105]; + FAUSTFLOAT* output106 = outputs[106]; + FAUSTFLOAT* output107 = outputs[107]; + FAUSTFLOAT* output108 = outputs[108]; + FAUSTFLOAT* output109 = outputs[109]; + FAUSTFLOAT* output110 = outputs[110]; + FAUSTFLOAT* output111 = outputs[111]; + FAUSTFLOAT* output112 = outputs[112]; + FAUSTFLOAT* output113 = outputs[113]; + FAUSTFLOAT* output114 = outputs[114]; + FAUSTFLOAT* output115 = outputs[115]; + FAUSTFLOAT* output116 = outputs[116]; + FAUSTFLOAT* output117 = outputs[117]; + FAUSTFLOAT* output118 = outputs[118]; + FAUSTFLOAT* output119 = outputs[119]; + FAUSTFLOAT* output120 = outputs[120]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = double(input25[i]); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + double fTemp50 = (0.30151134457776363 * fTemp49); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph51 = FAUSTFLOAT(fRec50[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = double(input26[i]); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + double fTemp52 = (0.30151134457776363 * fTemp51); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph53 = FAUSTFLOAT(fRec52[0]); + output26[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = double(input27[i]); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + double fTemp54 = (0.30151134457776363 * fTemp53); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph55 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = double(input28[i]); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + double fTemp56 = (0.30151134457776363 * fTemp55); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph57 = FAUSTFLOAT(fRec56[0]); + output28[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = double(input29[i]); + fRec59[0] = max((fRec59[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph58 = FAUSTFLOAT(fRec59[0]); + double fTemp58 = (0.30151134457776363 * fTemp57); + fRec58[0] = max((fRec58[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph59 = FAUSTFLOAT(fRec58[0]); + output29[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = double(input30[i]); + fRec61[0] = max((fRec61[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph60 = FAUSTFLOAT(fRec61[0]); + double fTemp60 = (0.30151134457776363 * fTemp59); + fRec60[0] = max((fRec60[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph61 = FAUSTFLOAT(fRec60[0]); + output30[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = double(input31[i]); + fRec63[0] = max((fRec63[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph62 = FAUSTFLOAT(fRec63[0]); + double fTemp62 = (0.30151134457776363 * fTemp61); + fRec62[0] = max((fRec62[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph63 = FAUSTFLOAT(fRec62[0]); + output31[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = double(input32[i]); + fRec65[0] = max((fRec65[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph64 = FAUSTFLOAT(fRec65[0]); + double fTemp64 = (0.30151134457776363 * fTemp63); + fRec64[0] = max((fRec64[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph65 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = double(input33[i]); + fRec67[0] = max((fRec67[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph66 = FAUSTFLOAT(fRec67[0]); + double fTemp66 = (0.30151134457776363 * fTemp65); + fRec66[0] = max((fRec66[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph67 = FAUSTFLOAT(fRec66[0]); + output33[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = double(input34[i]); + fRec69[0] = max((fRec69[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph68 = FAUSTFLOAT(fRec69[0]); + double fTemp68 = (0.30151134457776363 * fTemp67); + fRec68[0] = max((fRec68[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph69 = FAUSTFLOAT(fRec68[0]); + output34[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = double(input35[i]); + fRec71[0] = max((fRec71[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph70 = FAUSTFLOAT(fRec71[0]); + double fTemp70 = (0.30151134457776363 * fTemp69); + fRec70[0] = max((fRec70[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph71 = FAUSTFLOAT(fRec70[0]); + output35[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = double(input36[i]); + fRec73[0] = max((fRec73[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph72 = FAUSTFLOAT(fRec73[0]); + double fTemp72 = (0.27735009811261457 * fTemp71); + fRec72[0] = max((fRec72[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph73 = FAUSTFLOAT(fRec72[0]); + output36[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = double(input37[i]); + fRec75[0] = max((fRec75[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph74 = FAUSTFLOAT(fRec75[0]); + double fTemp74 = (0.27735009811261457 * fTemp73); + fRec74[0] = max((fRec74[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph75 = FAUSTFLOAT(fRec74[0]); + output37[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = double(input38[i]); + fRec77[0] = max((fRec77[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp75)))))); + fVbargraph76 = FAUSTFLOAT(fRec77[0]); + double fTemp76 = (0.27735009811261457 * fTemp75); + fRec76[0] = max((fRec76[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph77 = FAUSTFLOAT(fRec76[0]); + output38[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = double(input39[i]); + fRec79[0] = max((fRec79[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph78 = FAUSTFLOAT(fRec79[0]); + double fTemp78 = (0.27735009811261457 * fTemp77); + fRec78[0] = max((fRec78[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph79 = FAUSTFLOAT(fRec78[0]); + output39[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = double(input40[i]); + fRec81[0] = max((fRec81[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp79)))))); + fVbargraph80 = FAUSTFLOAT(fRec81[0]); + double fTemp80 = (0.27735009811261457 * fTemp79); + fRec80[0] = max((fRec80[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph81 = FAUSTFLOAT(fRec80[0]); + output40[i] = FAUSTFLOAT(fTemp80); + double fTemp81 = double(input41[i]); + fRec83[0] = max((fRec83[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp81)))))); + fVbargraph82 = FAUSTFLOAT(fRec83[0]); + double fTemp82 = (0.27735009811261457 * fTemp81); + fRec82[0] = max((fRec82[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph83 = FAUSTFLOAT(fRec82[0]); + output41[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = double(input42[i]); + fRec85[0] = max((fRec85[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph84 = FAUSTFLOAT(fRec85[0]); + double fTemp84 = (0.27735009811261457 * fTemp83); + fRec84[0] = max((fRec84[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph85 = FAUSTFLOAT(fRec84[0]); + output42[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = double(input43[i]); + fRec87[0] = max((fRec87[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph86 = FAUSTFLOAT(fRec87[0]); + double fTemp86 = (0.27735009811261457 * fTemp85); + fRec86[0] = max((fRec86[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph87 = FAUSTFLOAT(fRec86[0]); + output43[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = double(input44[i]); + fRec89[0] = max((fRec89[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph88 = FAUSTFLOAT(fRec89[0]); + double fTemp88 = (0.27735009811261457 * fTemp87); + fRec88[0] = max((fRec88[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph89 = FAUSTFLOAT(fRec88[0]); + output44[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = double(input45[i]); + fRec91[0] = max((fRec91[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph90 = FAUSTFLOAT(fRec91[0]); + double fTemp90 = (0.27735009811261457 * fTemp89); + fRec90[0] = max((fRec90[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph91 = FAUSTFLOAT(fRec90[0]); + output45[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = double(input46[i]); + fRec93[0] = max((fRec93[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph92 = FAUSTFLOAT(fRec93[0]); + double fTemp92 = (0.27735009811261457 * fTemp91); + fRec92[0] = max((fRec92[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph93 = FAUSTFLOAT(fRec92[0]); + output46[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = double(input47[i]); + fRec95[0] = max((fRec95[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph94 = FAUSTFLOAT(fRec95[0]); + double fTemp94 = (0.27735009811261457 * fTemp93); + fRec94[0] = max((fRec94[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph95 = FAUSTFLOAT(fRec94[0]); + output47[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = double(input48[i]); + fRec97[0] = max((fRec97[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph96 = FAUSTFLOAT(fRec97[0]); + double fTemp96 = (0.27735009811261457 * fTemp95); + fRec96[0] = max((fRec96[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph97 = FAUSTFLOAT(fRec96[0]); + output48[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = double(input49[i]); + fRec99[0] = max((fRec99[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph98 = FAUSTFLOAT(fRec99[0]); + double fTemp98 = (0.2581988897471611 * fTemp97); + fRec98[0] = max((fRec98[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph99 = FAUSTFLOAT(fRec98[0]); + output49[i] = FAUSTFLOAT(fTemp98); + double fTemp99 = double(input50[i]); + fRec101[0] = max((fRec101[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp99)))))); + fVbargraph100 = FAUSTFLOAT(fRec101[0]); + double fTemp100 = (0.2581988897471611 * fTemp99); + fRec100[0] = max((fRec100[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph101 = FAUSTFLOAT(fRec100[0]); + output50[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = double(input51[i]); + fRec103[0] = max((fRec103[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp101)))))); + fVbargraph102 = FAUSTFLOAT(fRec103[0]); + double fTemp102 = (0.2581988897471611 * fTemp101); + fRec102[0] = max((fRec102[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph103 = FAUSTFLOAT(fRec102[0]); + output51[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = double(input52[i]); + fRec105[0] = max((fRec105[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph104 = FAUSTFLOAT(fRec105[0]); + double fTemp104 = (0.2581988897471611 * fTemp103); + fRec104[0] = max((fRec104[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph105 = FAUSTFLOAT(fRec104[0]); + output52[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = double(input53[i]); + fRec107[0] = max((fRec107[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph106 = FAUSTFLOAT(fRec107[0]); + double fTemp106 = (0.2581988897471611 * fTemp105); + fRec106[0] = max((fRec106[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph107 = FAUSTFLOAT(fRec106[0]); + output53[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = double(input54[i]); + fRec109[0] = max((fRec109[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph108 = FAUSTFLOAT(fRec109[0]); + double fTemp108 = (0.2581988897471611 * fTemp107); + fRec108[0] = max((fRec108[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph109 = FAUSTFLOAT(fRec108[0]); + output54[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = double(input55[i]); + fRec111[0] = max((fRec111[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp109)))))); + fVbargraph110 = FAUSTFLOAT(fRec111[0]); + double fTemp110 = (0.2581988897471611 * fTemp109); + fRec110[0] = max((fRec110[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp110)))))); + fVbargraph111 = FAUSTFLOAT(fRec110[0]); + output55[i] = FAUSTFLOAT(fTemp110); + double fTemp111 = double(input56[i]); + fRec113[0] = max((fRec113[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp111)))))); + fVbargraph112 = FAUSTFLOAT(fRec113[0]); + double fTemp112 = (0.2581988897471611 * fTemp111); + fRec112[0] = max((fRec112[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp112)))))); + fVbargraph113 = FAUSTFLOAT(fRec112[0]); + output56[i] = FAUSTFLOAT(fTemp112); + double fTemp113 = double(input57[i]); + fRec115[0] = max((fRec115[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp113)))))); + fVbargraph114 = FAUSTFLOAT(fRec115[0]); + double fTemp114 = (0.2581988897471611 * fTemp113); + fRec114[0] = max((fRec114[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp114)))))); + fVbargraph115 = FAUSTFLOAT(fRec114[0]); + output57[i] = FAUSTFLOAT(fTemp114); + double fTemp115 = double(input58[i]); + fRec117[0] = max((fRec117[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp115)))))); + fVbargraph116 = FAUSTFLOAT(fRec117[0]); + double fTemp116 = (0.2581988897471611 * fTemp115); + fRec116[0] = max((fRec116[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp116)))))); + fVbargraph117 = FAUSTFLOAT(fRec116[0]); + output58[i] = FAUSTFLOAT(fTemp116); + double fTemp117 = double(input59[i]); + fRec119[0] = max((fRec119[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp117)))))); + fVbargraph118 = FAUSTFLOAT(fRec119[0]); + double fTemp118 = (0.2581988897471611 * fTemp117); + fRec118[0] = max((fRec118[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp118)))))); + fVbargraph119 = FAUSTFLOAT(fRec118[0]); + output59[i] = FAUSTFLOAT(fTemp118); + double fTemp119 = double(input60[i]); + fRec121[0] = max((fRec121[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp119)))))); + fVbargraph120 = FAUSTFLOAT(fRec121[0]); + double fTemp120 = (0.2581988897471611 * fTemp119); + fRec120[0] = max((fRec120[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp120)))))); + fVbargraph121 = FAUSTFLOAT(fRec120[0]); + output60[i] = FAUSTFLOAT(fTemp120); + double fTemp121 = double(input61[i]); + fRec123[0] = max((fRec123[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp121)))))); + fVbargraph122 = FAUSTFLOAT(fRec123[0]); + double fTemp122 = (0.2581988897471611 * fTemp121); + fRec122[0] = max((fRec122[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp122)))))); + fVbargraph123 = FAUSTFLOAT(fRec122[0]); + output61[i] = FAUSTFLOAT(fTemp122); + double fTemp123 = double(input62[i]); + fRec125[0] = max((fRec125[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp123)))))); + fVbargraph124 = FAUSTFLOAT(fRec125[0]); + double fTemp124 = (0.2581988897471611 * fTemp123); + fRec124[0] = max((fRec124[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp124)))))); + fVbargraph125 = FAUSTFLOAT(fRec124[0]); + output62[i] = FAUSTFLOAT(fTemp124); + double fTemp125 = double(input63[i]); + fRec127[0] = max((fRec127[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp125)))))); + fVbargraph126 = FAUSTFLOAT(fRec127[0]); + double fTemp126 = (0.2581988897471611 * fTemp125); + fRec126[0] = max((fRec126[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp126)))))); + fVbargraph127 = FAUSTFLOAT(fRec126[0]); + output63[i] = FAUSTFLOAT(fTemp126); + double fTemp127 = double(input64[i]); + fRec129[0] = max((fRec129[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp127)))))); + fVbargraph128 = FAUSTFLOAT(fRec129[0]); + double fTemp128 = (0.24253562503633297 * fTemp127); + fRec128[0] = max((fRec128[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp128)))))); + fVbargraph129 = FAUSTFLOAT(fRec128[0]); + output64[i] = FAUSTFLOAT(fTemp128); + double fTemp129 = double(input65[i]); + fRec131[0] = max((fRec131[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp129)))))); + fVbargraph130 = FAUSTFLOAT(fRec131[0]); + double fTemp130 = (0.24253562503633297 * fTemp129); + fRec130[0] = max((fRec130[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp130)))))); + fVbargraph131 = FAUSTFLOAT(fRec130[0]); + output65[i] = FAUSTFLOAT(fTemp130); + double fTemp131 = double(input66[i]); + fRec133[0] = max((fRec133[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp131)))))); + fVbargraph132 = FAUSTFLOAT(fRec133[0]); + double fTemp132 = (0.24253562503633297 * fTemp131); + fRec132[0] = max((fRec132[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp132)))))); + fVbargraph133 = FAUSTFLOAT(fRec132[0]); + output66[i] = FAUSTFLOAT(fTemp132); + double fTemp133 = double(input67[i]); + fRec135[0] = max((fRec135[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp133)))))); + fVbargraph134 = FAUSTFLOAT(fRec135[0]); + double fTemp134 = (0.24253562503633297 * fTemp133); + fRec134[0] = max((fRec134[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp134)))))); + fVbargraph135 = FAUSTFLOAT(fRec134[0]); + output67[i] = FAUSTFLOAT(fTemp134); + double fTemp135 = double(input68[i]); + fRec137[0] = max((fRec137[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp135)))))); + fVbargraph136 = FAUSTFLOAT(fRec137[0]); + double fTemp136 = (0.24253562503633297 * fTemp135); + fRec136[0] = max((fRec136[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp136)))))); + fVbargraph137 = FAUSTFLOAT(fRec136[0]); + output68[i] = FAUSTFLOAT(fTemp136); + double fTemp137 = double(input69[i]); + fRec139[0] = max((fRec139[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp137)))))); + fVbargraph138 = FAUSTFLOAT(fRec139[0]); + double fTemp138 = (0.24253562503633297 * fTemp137); + fRec138[0] = max((fRec138[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp138)))))); + fVbargraph139 = FAUSTFLOAT(fRec138[0]); + output69[i] = FAUSTFLOAT(fTemp138); + double fTemp139 = double(input70[i]); + fRec141[0] = max((fRec141[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp139)))))); + fVbargraph140 = FAUSTFLOAT(fRec141[0]); + double fTemp140 = (0.24253562503633297 * fTemp139); + fRec140[0] = max((fRec140[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp140)))))); + fVbargraph141 = FAUSTFLOAT(fRec140[0]); + output70[i] = FAUSTFLOAT(fTemp140); + double fTemp141 = double(input71[i]); + fRec143[0] = max((fRec143[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp141)))))); + fVbargraph142 = FAUSTFLOAT(fRec143[0]); + double fTemp142 = (0.24253562503633297 * fTemp141); + fRec142[0] = max((fRec142[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp142)))))); + fVbargraph143 = FAUSTFLOAT(fRec142[0]); + output71[i] = FAUSTFLOAT(fTemp142); + double fTemp143 = double(input72[i]); + fRec145[0] = max((fRec145[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp143)))))); + fVbargraph144 = FAUSTFLOAT(fRec145[0]); + double fTemp144 = (0.24253562503633297 * fTemp143); + fRec144[0] = max((fRec144[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp144)))))); + fVbargraph145 = FAUSTFLOAT(fRec144[0]); + output72[i] = FAUSTFLOAT(fTemp144); + double fTemp145 = double(input73[i]); + fRec147[0] = max((fRec147[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp145)))))); + fVbargraph146 = FAUSTFLOAT(fRec147[0]); + double fTemp146 = (0.24253562503633297 * fTemp145); + fRec146[0] = max((fRec146[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp146)))))); + fVbargraph147 = FAUSTFLOAT(fRec146[0]); + output73[i] = FAUSTFLOAT(fTemp146); + double fTemp147 = double(input74[i]); + fRec149[0] = max((fRec149[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp147)))))); + fVbargraph148 = FAUSTFLOAT(fRec149[0]); + double fTemp148 = (0.24253562503633297 * fTemp147); + fRec148[0] = max((fRec148[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp148)))))); + fVbargraph149 = FAUSTFLOAT(fRec148[0]); + output74[i] = FAUSTFLOAT(fTemp148); + double fTemp149 = double(input75[i]); + fRec151[0] = max((fRec151[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp149)))))); + fVbargraph150 = FAUSTFLOAT(fRec151[0]); + double fTemp150 = (0.24253562503633297 * fTemp149); + fRec150[0] = max((fRec150[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp150)))))); + fVbargraph151 = FAUSTFLOAT(fRec150[0]); + output75[i] = FAUSTFLOAT(fTemp150); + double fTemp151 = double(input76[i]); + fRec153[0] = max((fRec153[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp151)))))); + fVbargraph152 = FAUSTFLOAT(fRec153[0]); + double fTemp152 = (0.24253562503633297 * fTemp151); + fRec152[0] = max((fRec152[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp152)))))); + fVbargraph153 = FAUSTFLOAT(fRec152[0]); + output76[i] = FAUSTFLOAT(fTemp152); + double fTemp153 = double(input77[i]); + fRec155[0] = max((fRec155[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp153)))))); + fVbargraph154 = FAUSTFLOAT(fRec155[0]); + double fTemp154 = (0.24253562503633297 * fTemp153); + fRec154[0] = max((fRec154[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp154)))))); + fVbargraph155 = FAUSTFLOAT(fRec154[0]); + output77[i] = FAUSTFLOAT(fTemp154); + double fTemp155 = double(input78[i]); + fRec157[0] = max((fRec157[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp155)))))); + fVbargraph156 = FAUSTFLOAT(fRec157[0]); + double fTemp156 = (0.24253562503633297 * fTemp155); + fRec156[0] = max((fRec156[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp156)))))); + fVbargraph157 = FAUSTFLOAT(fRec156[0]); + output78[i] = FAUSTFLOAT(fTemp156); + double fTemp157 = double(input79[i]); + fRec159[0] = max((fRec159[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp157)))))); + fVbargraph158 = FAUSTFLOAT(fRec159[0]); + double fTemp158 = (0.24253562503633297 * fTemp157); + fRec158[0] = max((fRec158[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp158)))))); + fVbargraph159 = FAUSTFLOAT(fRec158[0]); + output79[i] = FAUSTFLOAT(fTemp158); + double fTemp159 = double(input80[i]); + fRec161[0] = max((fRec161[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp159)))))); + fVbargraph160 = FAUSTFLOAT(fRec161[0]); + double fTemp160 = (0.24253562503633297 * fTemp159); + fRec160[0] = max((fRec160[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp160)))))); + fVbargraph161 = FAUSTFLOAT(fRec160[0]); + output80[i] = FAUSTFLOAT(fTemp160); + double fTemp161 = double(input81[i]); + fRec163[0] = max((fRec163[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp161)))))); + fVbargraph162 = FAUSTFLOAT(fRec163[0]); + double fTemp162 = (0.22941573387056174 * fTemp161); + fRec162[0] = max((fRec162[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp162)))))); + fVbargraph163 = FAUSTFLOAT(fRec162[0]); + output81[i] = FAUSTFLOAT(fTemp162); + double fTemp163 = double(input82[i]); + fRec165[0] = max((fRec165[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp163)))))); + fVbargraph164 = FAUSTFLOAT(fRec165[0]); + double fTemp164 = (0.22941573387056174 * fTemp163); + fRec164[0] = max((fRec164[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp164)))))); + fVbargraph165 = FAUSTFLOAT(fRec164[0]); + output82[i] = FAUSTFLOAT(fTemp164); + double fTemp165 = double(input83[i]); + fRec167[0] = max((fRec167[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp165)))))); + fVbargraph166 = FAUSTFLOAT(fRec167[0]); + double fTemp166 = (0.22941573387056174 * fTemp165); + fRec166[0] = max((fRec166[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp166)))))); + fVbargraph167 = FAUSTFLOAT(fRec166[0]); + output83[i] = FAUSTFLOAT(fTemp166); + double fTemp167 = double(input84[i]); + fRec169[0] = max((fRec169[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp167)))))); + fVbargraph168 = FAUSTFLOAT(fRec169[0]); + double fTemp168 = (0.22941573387056174 * fTemp167); + fRec168[0] = max((fRec168[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp168)))))); + fVbargraph169 = FAUSTFLOAT(fRec168[0]); + output84[i] = FAUSTFLOAT(fTemp168); + double fTemp169 = double(input85[i]); + fRec171[0] = max((fRec171[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp169)))))); + fVbargraph170 = FAUSTFLOAT(fRec171[0]); + double fTemp170 = (0.22941573387056174 * fTemp169); + fRec170[0] = max((fRec170[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp170)))))); + fVbargraph171 = FAUSTFLOAT(fRec170[0]); + output85[i] = FAUSTFLOAT(fTemp170); + double fTemp171 = double(input86[i]); + fRec173[0] = max((fRec173[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp171)))))); + fVbargraph172 = FAUSTFLOAT(fRec173[0]); + double fTemp172 = (0.22941573387056174 * fTemp171); + fRec172[0] = max((fRec172[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp172)))))); + fVbargraph173 = FAUSTFLOAT(fRec172[0]); + output86[i] = FAUSTFLOAT(fTemp172); + double fTemp173 = double(input87[i]); + fRec175[0] = max((fRec175[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp173)))))); + fVbargraph174 = FAUSTFLOAT(fRec175[0]); + double fTemp174 = (0.22941573387056174 * fTemp173); + fRec174[0] = max((fRec174[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp174)))))); + fVbargraph175 = FAUSTFLOAT(fRec174[0]); + output87[i] = FAUSTFLOAT(fTemp174); + double fTemp175 = double(input88[i]); + fRec177[0] = max((fRec177[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp175)))))); + fVbargraph176 = FAUSTFLOAT(fRec177[0]); + double fTemp176 = (0.22941573387056174 * fTemp175); + fRec176[0] = max((fRec176[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp176)))))); + fVbargraph177 = FAUSTFLOAT(fRec176[0]); + output88[i] = FAUSTFLOAT(fTemp176); + double fTemp177 = double(input89[i]); + fRec179[0] = max((fRec179[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp177)))))); + fVbargraph178 = FAUSTFLOAT(fRec179[0]); + double fTemp178 = (0.22941573387056174 * fTemp177); + fRec178[0] = max((fRec178[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp178)))))); + fVbargraph179 = FAUSTFLOAT(fRec178[0]); + output89[i] = FAUSTFLOAT(fTemp178); + double fTemp179 = double(input90[i]); + fRec181[0] = max((fRec181[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp179)))))); + fVbargraph180 = FAUSTFLOAT(fRec181[0]); + double fTemp180 = (0.22941573387056174 * fTemp179); + fRec180[0] = max((fRec180[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp180)))))); + fVbargraph181 = FAUSTFLOAT(fRec180[0]); + output90[i] = FAUSTFLOAT(fTemp180); + double fTemp181 = double(input91[i]); + fRec183[0] = max((fRec183[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp181)))))); + fVbargraph182 = FAUSTFLOAT(fRec183[0]); + double fTemp182 = (0.22941573387056174 * fTemp181); + fRec182[0] = max((fRec182[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp182)))))); + fVbargraph183 = FAUSTFLOAT(fRec182[0]); + output91[i] = FAUSTFLOAT(fTemp182); + double fTemp183 = double(input92[i]); + fRec185[0] = max((fRec185[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp183)))))); + fVbargraph184 = FAUSTFLOAT(fRec185[0]); + double fTemp184 = (0.22941573387056174 * fTemp183); + fRec184[0] = max((fRec184[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp184)))))); + fVbargraph185 = FAUSTFLOAT(fRec184[0]); + output92[i] = FAUSTFLOAT(fTemp184); + double fTemp185 = double(input93[i]); + fRec187[0] = max((fRec187[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp185)))))); + fVbargraph186 = FAUSTFLOAT(fRec187[0]); + double fTemp186 = (0.22941573387056174 * fTemp185); + fRec186[0] = max((fRec186[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp186)))))); + fVbargraph187 = FAUSTFLOAT(fRec186[0]); + output93[i] = FAUSTFLOAT(fTemp186); + double fTemp187 = double(input94[i]); + fRec189[0] = max((fRec189[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp187)))))); + fVbargraph188 = FAUSTFLOAT(fRec189[0]); + double fTemp188 = (0.22941573387056174 * fTemp187); + fRec188[0] = max((fRec188[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp188)))))); + fVbargraph189 = FAUSTFLOAT(fRec188[0]); + output94[i] = FAUSTFLOAT(fTemp188); + double fTemp189 = double(input95[i]); + fRec191[0] = max((fRec191[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp189)))))); + fVbargraph190 = FAUSTFLOAT(fRec191[0]); + double fTemp190 = (0.22941573387056174 * fTemp189); + fRec190[0] = max((fRec190[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp190)))))); + fVbargraph191 = FAUSTFLOAT(fRec190[0]); + output95[i] = FAUSTFLOAT(fTemp190); + double fTemp191 = double(input96[i]); + fRec193[0] = max((fRec193[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp191)))))); + fVbargraph192 = FAUSTFLOAT(fRec193[0]); + double fTemp192 = (0.22941573387056174 * fTemp191); + fRec192[0] = max((fRec192[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp192)))))); + fVbargraph193 = FAUSTFLOAT(fRec192[0]); + output96[i] = FAUSTFLOAT(fTemp192); + double fTemp193 = double(input97[i]); + fRec195[0] = max((fRec195[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp193)))))); + fVbargraph194 = FAUSTFLOAT(fRec195[0]); + double fTemp194 = (0.22941573387056174 * fTemp193); + fRec194[0] = max((fRec194[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp194)))))); + fVbargraph195 = FAUSTFLOAT(fRec194[0]); + output97[i] = FAUSTFLOAT(fTemp194); + double fTemp195 = double(input98[i]); + fRec197[0] = max((fRec197[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp195)))))); + fVbargraph196 = FAUSTFLOAT(fRec197[0]); + double fTemp196 = (0.22941573387056174 * fTemp195); + fRec196[0] = max((fRec196[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp196)))))); + fVbargraph197 = FAUSTFLOAT(fRec196[0]); + output98[i] = FAUSTFLOAT(fTemp196); + double fTemp197 = double(input99[i]); + fRec199[0] = max((fRec199[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp197)))))); + fVbargraph198 = FAUSTFLOAT(fRec199[0]); + double fTemp198 = (0.22941573387056174 * fTemp197); + fRec198[0] = max((fRec198[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp198)))))); + fVbargraph199 = FAUSTFLOAT(fRec198[0]); + output99[i] = FAUSTFLOAT(fTemp198); + double fTemp199 = double(input100[i]); + fRec201[0] = max((fRec201[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp199)))))); + fVbargraph200 = FAUSTFLOAT(fRec201[0]); + double fTemp200 = (0.21821789023599239 * fTemp199); + fRec200[0] = max((fRec200[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp200)))))); + fVbargraph201 = FAUSTFLOAT(fRec200[0]); + output100[i] = FAUSTFLOAT(fTemp200); + double fTemp201 = double(input101[i]); + fRec203[0] = max((fRec203[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp201)))))); + fVbargraph202 = FAUSTFLOAT(fRec203[0]); + double fTemp202 = (0.21821789023599239 * fTemp201); + fRec202[0] = max((fRec202[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp202)))))); + fVbargraph203 = FAUSTFLOAT(fRec202[0]); + output101[i] = FAUSTFLOAT(fTemp202); + double fTemp203 = double(input102[i]); + fRec205[0] = max((fRec205[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp203)))))); + fVbargraph204 = FAUSTFLOAT(fRec205[0]); + double fTemp204 = (0.21821789023599239 * fTemp203); + fRec204[0] = max((fRec204[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp204)))))); + fVbargraph205 = FAUSTFLOAT(fRec204[0]); + output102[i] = FAUSTFLOAT(fTemp204); + double fTemp205 = double(input103[i]); + fRec207[0] = max((fRec207[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp205)))))); + fVbargraph206 = FAUSTFLOAT(fRec207[0]); + double fTemp206 = (0.21821789023599239 * fTemp205); + fRec206[0] = max((fRec206[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp206)))))); + fVbargraph207 = FAUSTFLOAT(fRec206[0]); + output103[i] = FAUSTFLOAT(fTemp206); + double fTemp207 = double(input104[i]); + fRec209[0] = max((fRec209[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp207)))))); + fVbargraph208 = FAUSTFLOAT(fRec209[0]); + double fTemp208 = (0.21821789023599239 * fTemp207); + fRec208[0] = max((fRec208[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp208)))))); + fVbargraph209 = FAUSTFLOAT(fRec208[0]); + output104[i] = FAUSTFLOAT(fTemp208); + double fTemp209 = double(input105[i]); + fRec211[0] = max((fRec211[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp209)))))); + fVbargraph210 = FAUSTFLOAT(fRec211[0]); + double fTemp210 = (0.21821789023599239 * fTemp209); + fRec210[0] = max((fRec210[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp210)))))); + fVbargraph211 = FAUSTFLOAT(fRec210[0]); + output105[i] = FAUSTFLOAT(fTemp210); + double fTemp211 = double(input106[i]); + fRec213[0] = max((fRec213[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp211)))))); + fVbargraph212 = FAUSTFLOAT(fRec213[0]); + double fTemp212 = (0.21821789023599239 * fTemp211); + fRec212[0] = max((fRec212[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp212)))))); + fVbargraph213 = FAUSTFLOAT(fRec212[0]); + output106[i] = FAUSTFLOAT(fTemp212); + double fTemp213 = double(input107[i]); + fRec215[0] = max((fRec215[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp213)))))); + fVbargraph214 = FAUSTFLOAT(fRec215[0]); + double fTemp214 = (0.21821789023599239 * fTemp213); + fRec214[0] = max((fRec214[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp214)))))); + fVbargraph215 = FAUSTFLOAT(fRec214[0]); + output107[i] = FAUSTFLOAT(fTemp214); + double fTemp215 = double(input108[i]); + fRec217[0] = max((fRec217[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp215)))))); + fVbargraph216 = FAUSTFLOAT(fRec217[0]); + double fTemp216 = (0.21821789023599239 * fTemp215); + fRec216[0] = max((fRec216[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp216)))))); + fVbargraph217 = FAUSTFLOAT(fRec216[0]); + output108[i] = FAUSTFLOAT(fTemp216); + double fTemp217 = double(input109[i]); + fRec219[0] = max((fRec219[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp217)))))); + fVbargraph218 = FAUSTFLOAT(fRec219[0]); + double fTemp218 = (0.21821789023599239 * fTemp217); + fRec218[0] = max((fRec218[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp218)))))); + fVbargraph219 = FAUSTFLOAT(fRec218[0]); + output109[i] = FAUSTFLOAT(fTemp218); + double fTemp219 = double(input110[i]); + fRec221[0] = max((fRec221[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp219)))))); + fVbargraph220 = FAUSTFLOAT(fRec221[0]); + double fTemp220 = (0.21821789023599239 * fTemp219); + fRec220[0] = max((fRec220[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp220)))))); + fVbargraph221 = FAUSTFLOAT(fRec220[0]); + output110[i] = FAUSTFLOAT(fTemp220); + double fTemp221 = double(input111[i]); + fRec223[0] = max((fRec223[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp221)))))); + fVbargraph222 = FAUSTFLOAT(fRec223[0]); + double fTemp222 = (0.21821789023599239 * fTemp221); + fRec222[0] = max((fRec222[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp222)))))); + fVbargraph223 = FAUSTFLOAT(fRec222[0]); + output111[i] = FAUSTFLOAT(fTemp222); + double fTemp223 = double(input112[i]); + fRec225[0] = max((fRec225[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp223)))))); + fVbargraph224 = FAUSTFLOAT(fRec225[0]); + double fTemp224 = (0.21821789023599239 * fTemp223); + fRec224[0] = max((fRec224[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp224)))))); + fVbargraph225 = FAUSTFLOAT(fRec224[0]); + output112[i] = FAUSTFLOAT(fTemp224); + double fTemp225 = double(input113[i]); + fRec227[0] = max((fRec227[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp225)))))); + fVbargraph226 = FAUSTFLOAT(fRec227[0]); + double fTemp226 = (0.21821789023599239 * fTemp225); + fRec226[0] = max((fRec226[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp226)))))); + fVbargraph227 = FAUSTFLOAT(fRec226[0]); + output113[i] = FAUSTFLOAT(fTemp226); + double fTemp227 = double(input114[i]); + fRec229[0] = max((fRec229[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp227)))))); + fVbargraph228 = FAUSTFLOAT(fRec229[0]); + double fTemp228 = (0.21821789023599239 * fTemp227); + fRec228[0] = max((fRec228[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp228)))))); + fVbargraph229 = FAUSTFLOAT(fRec228[0]); + output114[i] = FAUSTFLOAT(fTemp228); + double fTemp229 = double(input115[i]); + fRec231[0] = max((fRec231[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp229)))))); + fVbargraph230 = FAUSTFLOAT(fRec231[0]); + double fTemp230 = (0.21821789023599239 * fTemp229); + fRec230[0] = max((fRec230[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp230)))))); + fVbargraph231 = FAUSTFLOAT(fRec230[0]); + output115[i] = FAUSTFLOAT(fTemp230); + double fTemp231 = double(input116[i]); + fRec233[0] = max((fRec233[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp231)))))); + fVbargraph232 = FAUSTFLOAT(fRec233[0]); + double fTemp232 = (0.21821789023599239 * fTemp231); + fRec232[0] = max((fRec232[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp232)))))); + fVbargraph233 = FAUSTFLOAT(fRec232[0]); + output116[i] = FAUSTFLOAT(fTemp232); + double fTemp233 = double(input117[i]); + fRec235[0] = max((fRec235[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp233)))))); + fVbargraph234 = FAUSTFLOAT(fRec235[0]); + double fTemp234 = (0.21821789023599239 * fTemp233); + fRec234[0] = max((fRec234[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp234)))))); + fVbargraph235 = FAUSTFLOAT(fRec234[0]); + output117[i] = FAUSTFLOAT(fTemp234); + double fTemp235 = double(input118[i]); + fRec237[0] = max((fRec237[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp235)))))); + fVbargraph236 = FAUSTFLOAT(fRec237[0]); + double fTemp236 = (0.21821789023599239 * fTemp235); + fRec236[0] = max((fRec236[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp236)))))); + fVbargraph237 = FAUSTFLOAT(fRec236[0]); + output118[i] = FAUSTFLOAT(fTemp236); + double fTemp237 = double(input119[i]); + fRec239[0] = max((fRec239[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp237)))))); + fVbargraph238 = FAUSTFLOAT(fRec239[0]); + double fTemp238 = (0.21821789023599239 * fTemp237); + fRec238[0] = max((fRec238[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp238)))))); + fVbargraph239 = FAUSTFLOAT(fRec238[0]); + output119[i] = FAUSTFLOAT(fTemp238); + double fTemp239 = double(input120[i]); + fRec241[0] = max((fRec241[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp239)))))); + fVbargraph240 = FAUSTFLOAT(fRec241[0]); + double fTemp240 = (0.21821789023599239 * fTemp239); + fRec240[0] = max((fRec240[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp240)))))); + fVbargraph241 = FAUSTFLOAT(fRec240[0]); + output120[i] = FAUSTFLOAT(fTemp240); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec51[1] = fRec51[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec55[1] = fRec55[0]; + fRec54[1] = fRec54[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec62[1] = fRec62[0]; + fRec65[1] = fRec65[0]; + fRec64[1] = fRec64[0]; + fRec67[1] = fRec67[0]; + fRec66[1] = fRec66[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec71[1] = fRec71[0]; + fRec70[1] = fRec70[0]; + fRec73[1] = fRec73[0]; + fRec72[1] = fRec72[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec77[1] = fRec77[0]; + fRec76[1] = fRec76[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec81[1] = fRec81[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec82[1] = fRec82[0]; + fRec85[1] = fRec85[0]; + fRec84[1] = fRec84[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec89[1] = fRec89[0]; + fRec88[1] = fRec88[0]; + fRec91[1] = fRec91[0]; + fRec90[1] = fRec90[0]; + fRec93[1] = fRec93[0]; + fRec92[1] = fRec92[0]; + fRec95[1] = fRec95[0]; + fRec94[1] = fRec94[0]; + fRec97[1] = fRec97[0]; + fRec96[1] = fRec96[0]; + fRec99[1] = fRec99[0]; + fRec98[1] = fRec98[0]; + fRec101[1] = fRec101[0]; + fRec100[1] = fRec100[0]; + fRec103[1] = fRec103[0]; + fRec102[1] = fRec102[0]; + fRec105[1] = fRec105[0]; + fRec104[1] = fRec104[0]; + fRec107[1] = fRec107[0]; + fRec106[1] = fRec106[0]; + fRec109[1] = fRec109[0]; + fRec108[1] = fRec108[0]; + fRec111[1] = fRec111[0]; + fRec110[1] = fRec110[0]; + fRec113[1] = fRec113[0]; + fRec112[1] = fRec112[0]; + fRec115[1] = fRec115[0]; + fRec114[1] = fRec114[0]; + fRec117[1] = fRec117[0]; + fRec116[1] = fRec116[0]; + fRec119[1] = fRec119[0]; + fRec118[1] = fRec118[0]; + fRec121[1] = fRec121[0]; + fRec120[1] = fRec120[0]; + fRec123[1] = fRec123[0]; + fRec122[1] = fRec122[0]; + fRec125[1] = fRec125[0]; + fRec124[1] = fRec124[0]; + fRec127[1] = fRec127[0]; + fRec126[1] = fRec126[0]; + fRec129[1] = fRec129[0]; + fRec128[1] = fRec128[0]; + fRec131[1] = fRec131[0]; + fRec130[1] = fRec130[0]; + fRec133[1] = fRec133[0]; + fRec132[1] = fRec132[0]; + fRec135[1] = fRec135[0]; + fRec134[1] = fRec134[0]; + fRec137[1] = fRec137[0]; + fRec136[1] = fRec136[0]; + fRec139[1] = fRec139[0]; + fRec138[1] = fRec138[0]; + fRec141[1] = fRec141[0]; + fRec140[1] = fRec140[0]; + fRec143[1] = fRec143[0]; + fRec142[1] = fRec142[0]; + fRec145[1] = fRec145[0]; + fRec144[1] = fRec144[0]; + fRec147[1] = fRec147[0]; + fRec146[1] = fRec146[0]; + fRec149[1] = fRec149[0]; + fRec148[1] = fRec148[0]; + fRec151[1] = fRec151[0]; + fRec150[1] = fRec150[0]; + fRec153[1] = fRec153[0]; + fRec152[1] = fRec152[0]; + fRec155[1] = fRec155[0]; + fRec154[1] = fRec154[0]; + fRec157[1] = fRec157[0]; + fRec156[1] = fRec156[0]; + fRec159[1] = fRec159[0]; + fRec158[1] = fRec158[0]; + fRec161[1] = fRec161[0]; + fRec160[1] = fRec160[0]; + fRec163[1] = fRec163[0]; + fRec162[1] = fRec162[0]; + fRec165[1] = fRec165[0]; + fRec164[1] = fRec164[0]; + fRec167[1] = fRec167[0]; + fRec166[1] = fRec166[0]; + fRec169[1] = fRec169[0]; + fRec168[1] = fRec168[0]; + fRec171[1] = fRec171[0]; + fRec170[1] = fRec170[0]; + fRec173[1] = fRec173[0]; + fRec172[1] = fRec172[0]; + fRec175[1] = fRec175[0]; + fRec174[1] = fRec174[0]; + fRec177[1] = fRec177[0]; + fRec176[1] = fRec176[0]; + fRec179[1] = fRec179[0]; + fRec178[1] = fRec178[0]; + fRec181[1] = fRec181[0]; + fRec180[1] = fRec180[0]; + fRec183[1] = fRec183[0]; + fRec182[1] = fRec182[0]; + fRec185[1] = fRec185[0]; + fRec184[1] = fRec184[0]; + fRec187[1] = fRec187[0]; + fRec186[1] = fRec186[0]; + fRec189[1] = fRec189[0]; + fRec188[1] = fRec188[0]; + fRec191[1] = fRec191[0]; + fRec190[1] = fRec190[0]; + fRec193[1] = fRec193[0]; + fRec192[1] = fRec192[0]; + fRec195[1] = fRec195[0]; + fRec194[1] = fRec194[0]; + fRec197[1] = fRec197[0]; + fRec196[1] = fRec196[0]; + fRec199[1] = fRec199[0]; + fRec198[1] = fRec198[0]; + fRec201[1] = fRec201[0]; + fRec200[1] = fRec200[0]; + fRec203[1] = fRec203[0]; + fRec202[1] = fRec202[0]; + fRec205[1] = fRec205[0]; + fRec204[1] = fRec204[0]; + fRec207[1] = fRec207[0]; + fRec206[1] = fRec206[0]; + fRec209[1] = fRec209[0]; + fRec208[1] = fRec208[0]; + fRec211[1] = fRec211[0]; + fRec210[1] = fRec210[0]; + fRec213[1] = fRec213[0]; + fRec212[1] = fRec212[0]; + fRec215[1] = fRec215[0]; + fRec214[1] = fRec214[0]; + fRec217[1] = fRec217[0]; + fRec216[1] = fRec216[0]; + fRec219[1] = fRec219[0]; + fRec218[1] = fRec218[0]; + fRec221[1] = fRec221[0]; + fRec220[1] = fRec220[0]; + fRec223[1] = fRec223[0]; + fRec222[1] = fRec222[0]; + fRec225[1] = fRec225[0]; + fRec224[1] = fRec224[0]; + fRec227[1] = fRec227[0]; + fRec226[1] = fRec226[0]; + fRec229[1] = fRec229[0]; + fRec228[1] = fRec228[0]; + fRec231[1] = fRec231[0]; + fRec230[1] = fRec230[0]; + fRec233[1] = fRec233[0]; + fRec232[1] = fRec232[0]; + fRec235[1] = fRec235[0]; + fRec234[1] = fRec234[0]; + fRec237[1] = fRec237[0]; + fRec236[1] = fRec236[0]; + fRec239[1] = fRec239[0]; + fRec238[1] = fRec238[0]; + fRec241[1] = fRec241[0]; + fRec240[1] = fRec240[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d2.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d2.cpp new file mode 100644 index 0000000000..35b5211c2f --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d2.cpp @@ -0,0 +1,1450 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d2"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d2"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313de60", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3147b50", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3151a60", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x315ba50", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3165dd0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316fea0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317a050", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31843c0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318e8f0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3141fe0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314c0c0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3155fd0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31600a0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316a420", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31744f0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317e780", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3188bd0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31931e0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d3.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d3.cpp new file mode 100644 index 0000000000..2c4f132f7d --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d3.cpp @@ -0,0 +1,1727 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d3"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d3"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x337de80", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3387b70", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3391a80", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x339ba70", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33a5df0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33afec0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33ba070", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33c43e0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33ce910", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33d91d0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33e3460", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33ed7d0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33f7d00", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34023f0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x340cca0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3417710", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3382000", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x338c0e0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3395ff0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33a00c0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33aa440", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33b4510", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33be7a0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33c8bf0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33d3200", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33dd900", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33e7b90", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33f1fe0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33fc5f0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3406dc0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3411750", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x341c2a0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d4.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d4.cpp new file mode 100644 index 0000000000..f6d3d4b212 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d4.cpp @@ -0,0 +1,2082 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d4" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d4"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d4"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3228bb0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32328a0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x323c7c0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32467b0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3250b30", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x325ac00", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3264db0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x326f120", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3279650", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3283f10", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x328e1a0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3298510", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32a2a40", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32ad130", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32b79e0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32c2450", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32cd250", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32d76a0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32e1be0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32ec2d0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32f6b80", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33015f0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x330c220", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3317010", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3321fc0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x322cd30", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3236e20", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3240d30", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x324ae00", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3255180", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x325f250", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32694e0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3273930", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x327df40", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3288640", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32928d0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x329cd20", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32a7330", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32b1b00", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32bc490", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32c6fe0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32d1a60", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32dbec0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32e64d0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32f0ca0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32fb630", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3306180", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3310e90", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x331bd60", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3326df0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d5.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d5.cpp new file mode 100644 index 0000000000..b1aa1f3f26 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d5.cpp @@ -0,0 +1,2515 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d5" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fRec50[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fRec52[2]; + FAUSTFLOAT fVbargraph53; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fRec54[2]; + FAUSTFLOAT fVbargraph55; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + double fRec56[2]; + FAUSTFLOAT fVbargraph57; + double fRec59[2]; + FAUSTFLOAT fVbargraph58; + double fRec58[2]; + FAUSTFLOAT fVbargraph59; + double fRec61[2]; + FAUSTFLOAT fVbargraph60; + double fRec60[2]; + FAUSTFLOAT fVbargraph61; + double fRec63[2]; + FAUSTFLOAT fVbargraph62; + double fRec62[2]; + FAUSTFLOAT fVbargraph63; + double fRec65[2]; + FAUSTFLOAT fVbargraph64; + double fRec64[2]; + FAUSTFLOAT fVbargraph65; + double fRec67[2]; + FAUSTFLOAT fVbargraph66; + double fRec66[2]; + FAUSTFLOAT fVbargraph67; + double fRec69[2]; + FAUSTFLOAT fVbargraph68; + double fRec68[2]; + FAUSTFLOAT fVbargraph69; + double fRec71[2]; + FAUSTFLOAT fVbargraph70; + double fRec70[2]; + FAUSTFLOAT fVbargraph71; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d5"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 36; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec51[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec55[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec63[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec65[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec64[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec66[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec69[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec68[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec71[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec70[l71] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d5"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d63c80", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d6d970", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d77880", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d81870", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d8bbf0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d95cc0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d9fe70", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1daa1e0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1db4710", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dbefd0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dc9260", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dd35d0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dddb00", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1de81f0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1df2aa0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dfd510", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e08310", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e12760", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e1cc90", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e27380", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e31c30", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e3c6a0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e472d0", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e520c0", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e5d070", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e683b0", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e729c0", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e7d0b0", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e87960", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e923d0", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e9d000", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ea7df0", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1eb2db0", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ebdf20", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ec9250", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ed4750", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d67e00", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d71ee0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d7bdf0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d85ec0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d90240", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1d9a310", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1da45a0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dae9f0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1db9000", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dc3700", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dcd990", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1dd7de0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1de23f0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1decbc0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1df7550", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e020a0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e0cb20", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e16f70", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e21580", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e2bd50", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e366e0", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e41230", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e4bf40", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e56e10", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e61ea0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e6cca0", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e772b0", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e81a80", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e8c410", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1e96f60", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ea1c70", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1eacb40", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1eb7be0", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ec2e30", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ece240", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ed9820", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = double(input25[i]); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + double fTemp50 = (0.30151134457776363 * fTemp49); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph51 = FAUSTFLOAT(fRec50[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = double(input26[i]); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + double fTemp52 = (0.30151134457776363 * fTemp51); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph53 = FAUSTFLOAT(fRec52[0]); + output26[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = double(input27[i]); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + double fTemp54 = (0.30151134457776363 * fTemp53); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph55 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = double(input28[i]); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + double fTemp56 = (0.30151134457776363 * fTemp55); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph57 = FAUSTFLOAT(fRec56[0]); + output28[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = double(input29[i]); + fRec59[0] = max((fRec59[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph58 = FAUSTFLOAT(fRec59[0]); + double fTemp58 = (0.30151134457776363 * fTemp57); + fRec58[0] = max((fRec58[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph59 = FAUSTFLOAT(fRec58[0]); + output29[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = double(input30[i]); + fRec61[0] = max((fRec61[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph60 = FAUSTFLOAT(fRec61[0]); + double fTemp60 = (0.30151134457776363 * fTemp59); + fRec60[0] = max((fRec60[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph61 = FAUSTFLOAT(fRec60[0]); + output30[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = double(input31[i]); + fRec63[0] = max((fRec63[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph62 = FAUSTFLOAT(fRec63[0]); + double fTemp62 = (0.30151134457776363 * fTemp61); + fRec62[0] = max((fRec62[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph63 = FAUSTFLOAT(fRec62[0]); + output31[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = double(input32[i]); + fRec65[0] = max((fRec65[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph64 = FAUSTFLOAT(fRec65[0]); + double fTemp64 = (0.30151134457776363 * fTemp63); + fRec64[0] = max((fRec64[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph65 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = double(input33[i]); + fRec67[0] = max((fRec67[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph66 = FAUSTFLOAT(fRec67[0]); + double fTemp66 = (0.30151134457776363 * fTemp65); + fRec66[0] = max((fRec66[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph67 = FAUSTFLOAT(fRec66[0]); + output33[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = double(input34[i]); + fRec69[0] = max((fRec69[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph68 = FAUSTFLOAT(fRec69[0]); + double fTemp68 = (0.30151134457776363 * fTemp67); + fRec68[0] = max((fRec68[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph69 = FAUSTFLOAT(fRec68[0]); + output34[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = double(input35[i]); + fRec71[0] = max((fRec71[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph70 = FAUSTFLOAT(fRec71[0]); + double fTemp70 = (0.30151134457776363 * fTemp69); + fRec70[0] = max((fRec70[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph71 = FAUSTFLOAT(fRec70[0]); + output35[i] = FAUSTFLOAT(fTemp70); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec51[1] = fRec51[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec55[1] = fRec55[0]; + fRec54[1] = fRec54[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec62[1] = fRec62[0]; + fRec65[1] = fRec65[0]; + fRec64[1] = fRec64[0]; + fRec67[1] = fRec67[0]; + fRec66[1] = fRec66[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec71[1] = fRec71[0]; + fRec70[1] = fRec70[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d6.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d6.cpp new file mode 100644 index 0000000000..c4449c6732 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d6.cpp @@ -0,0 +1,3026 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d6" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fRec50[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fRec52[2]; + FAUSTFLOAT fVbargraph53; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fRec54[2]; + FAUSTFLOAT fVbargraph55; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + double fRec56[2]; + FAUSTFLOAT fVbargraph57; + double fRec59[2]; + FAUSTFLOAT fVbargraph58; + double fRec58[2]; + FAUSTFLOAT fVbargraph59; + double fRec61[2]; + FAUSTFLOAT fVbargraph60; + double fRec60[2]; + FAUSTFLOAT fVbargraph61; + double fRec63[2]; + FAUSTFLOAT fVbargraph62; + double fRec62[2]; + FAUSTFLOAT fVbargraph63; + double fRec65[2]; + FAUSTFLOAT fVbargraph64; + double fRec64[2]; + FAUSTFLOAT fVbargraph65; + double fRec67[2]; + FAUSTFLOAT fVbargraph66; + double fRec66[2]; + FAUSTFLOAT fVbargraph67; + double fRec69[2]; + FAUSTFLOAT fVbargraph68; + double fRec68[2]; + FAUSTFLOAT fVbargraph69; + double fRec71[2]; + FAUSTFLOAT fVbargraph70; + double fRec70[2]; + FAUSTFLOAT fVbargraph71; + double fRec73[2]; + FAUSTFLOAT fVbargraph72; + double fRec72[2]; + FAUSTFLOAT fVbargraph73; + double fRec75[2]; + FAUSTFLOAT fVbargraph74; + double fRec74[2]; + FAUSTFLOAT fVbargraph75; + double fRec77[2]; + FAUSTFLOAT fVbargraph76; + double fRec76[2]; + FAUSTFLOAT fVbargraph77; + double fRec79[2]; + FAUSTFLOAT fVbargraph78; + double fRec78[2]; + FAUSTFLOAT fVbargraph79; + double fRec81[2]; + FAUSTFLOAT fVbargraph80; + double fRec80[2]; + FAUSTFLOAT fVbargraph81; + double fRec83[2]; + FAUSTFLOAT fVbargraph82; + double fRec82[2]; + FAUSTFLOAT fVbargraph83; + double fRec85[2]; + FAUSTFLOAT fVbargraph84; + double fRec84[2]; + FAUSTFLOAT fVbargraph85; + double fRec87[2]; + FAUSTFLOAT fVbargraph86; + double fRec86[2]; + FAUSTFLOAT fVbargraph87; + double fRec89[2]; + FAUSTFLOAT fVbargraph88; + double fRec88[2]; + FAUSTFLOAT fVbargraph89; + double fRec91[2]; + FAUSTFLOAT fVbargraph90; + double fRec90[2]; + FAUSTFLOAT fVbargraph91; + double fRec93[2]; + FAUSTFLOAT fVbargraph92; + double fRec92[2]; + FAUSTFLOAT fVbargraph93; + double fRec95[2]; + FAUSTFLOAT fVbargraph94; + double fRec94[2]; + FAUSTFLOAT fVbargraph95; + double fRec97[2]; + FAUSTFLOAT fVbargraph96; + double fRec96[2]; + FAUSTFLOAT fVbargraph97; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d6"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 49; + + } + virtual int getNumOutputs() { + return 49; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec51[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec55[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec63[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec65[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec64[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec66[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec69[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec68[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec71[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec70[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec73[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec72[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec75[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec74[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec77[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec76[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec79[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec78[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec81[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec80[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec83[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec82[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec85[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec84[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec87[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec86[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec88[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec91[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec90[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec93[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec92[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec95[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec94[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec96[l97] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d6"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3953b40", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x395d840", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3967750", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3971740", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x397bac0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3985b90", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398fd40", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x399a0b0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39a45e0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39aeea0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39b9130", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c34a0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39cd9d0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d80c0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e2970", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ed3e0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f81e0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a02630", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a0cb60", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a17250", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a21b00", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a2c570", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a371a0", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a41f90", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a4cf40", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a58280", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a62890", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a6cf80", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a77830", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a822a0", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a8ced0", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a97cc0", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa2c70", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aadde0", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab9110", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ac4600", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3acfe80", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ada650", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph76, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ae4f00", &fVbargraph76, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph78, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aef970", &fVbargraph78, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph80, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3afa5a0", &fVbargraph80, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph82, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b05390", &fVbargraph82, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph84, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b10340", &fVbargraph84, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph86, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b1b4b0", &fVbargraph86, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph88, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b267e0", &fVbargraph88, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph90, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b31cd0", &fVbargraph90, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph92, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b3d380", &fVbargraph92, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph94, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b48bf0", &fVbargraph94, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph96, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b54620", &fVbargraph96, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3957cc0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3961db0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x396bcc0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3975d90", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3980110", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398a1e0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3994470", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x399e8c0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39a8ed0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39b35d0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39bd860", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c7cb0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d22c0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39dca90", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e7420", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f1f70", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39fc9f0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a06e40", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a11450", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a1bc20", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a265b0", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a31100", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a3be10", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a46ce0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a51d70", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a5cb70", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a67180", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a71950", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a7c2e0", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a86e30", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a91b40", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a9ca10", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa7aa0", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab2cf0", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3abe100", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ac96d0", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ad4850", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph75, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3adf020", &fVbargraph75, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph77, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ae99b0", &fVbargraph77, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph79, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af4500", &fVbargraph79, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph81, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aff210", &fVbargraph81, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph83, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b0a0e0", &fVbargraph83, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph85, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b15170", &fVbargraph85, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph87, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b203c0", &fVbargraph87, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph89, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b2b7d0", &fVbargraph89, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph91, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b36da0", &fVbargraph91, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph93, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b42530", &fVbargraph93, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph95, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b4de80", &fVbargraph95, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph97, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b59990", &fVbargraph97, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = double(input25[i]); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + double fTemp50 = (0.30151134457776363 * fTemp49); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph51 = FAUSTFLOAT(fRec50[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = double(input26[i]); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + double fTemp52 = (0.30151134457776363 * fTemp51); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph53 = FAUSTFLOAT(fRec52[0]); + output26[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = double(input27[i]); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + double fTemp54 = (0.30151134457776363 * fTemp53); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph55 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = double(input28[i]); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + double fTemp56 = (0.30151134457776363 * fTemp55); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph57 = FAUSTFLOAT(fRec56[0]); + output28[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = double(input29[i]); + fRec59[0] = max((fRec59[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph58 = FAUSTFLOAT(fRec59[0]); + double fTemp58 = (0.30151134457776363 * fTemp57); + fRec58[0] = max((fRec58[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph59 = FAUSTFLOAT(fRec58[0]); + output29[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = double(input30[i]); + fRec61[0] = max((fRec61[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph60 = FAUSTFLOAT(fRec61[0]); + double fTemp60 = (0.30151134457776363 * fTemp59); + fRec60[0] = max((fRec60[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph61 = FAUSTFLOAT(fRec60[0]); + output30[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = double(input31[i]); + fRec63[0] = max((fRec63[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph62 = FAUSTFLOAT(fRec63[0]); + double fTemp62 = (0.30151134457776363 * fTemp61); + fRec62[0] = max((fRec62[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph63 = FAUSTFLOAT(fRec62[0]); + output31[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = double(input32[i]); + fRec65[0] = max((fRec65[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph64 = FAUSTFLOAT(fRec65[0]); + double fTemp64 = (0.30151134457776363 * fTemp63); + fRec64[0] = max((fRec64[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph65 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = double(input33[i]); + fRec67[0] = max((fRec67[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph66 = FAUSTFLOAT(fRec67[0]); + double fTemp66 = (0.30151134457776363 * fTemp65); + fRec66[0] = max((fRec66[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph67 = FAUSTFLOAT(fRec66[0]); + output33[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = double(input34[i]); + fRec69[0] = max((fRec69[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph68 = FAUSTFLOAT(fRec69[0]); + double fTemp68 = (0.30151134457776363 * fTemp67); + fRec68[0] = max((fRec68[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph69 = FAUSTFLOAT(fRec68[0]); + output34[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = double(input35[i]); + fRec71[0] = max((fRec71[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph70 = FAUSTFLOAT(fRec71[0]); + double fTemp70 = (0.30151134457776363 * fTemp69); + fRec70[0] = max((fRec70[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph71 = FAUSTFLOAT(fRec70[0]); + output35[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = double(input36[i]); + fRec73[0] = max((fRec73[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph72 = FAUSTFLOAT(fRec73[0]); + double fTemp72 = (0.27735009811261457 * fTemp71); + fRec72[0] = max((fRec72[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph73 = FAUSTFLOAT(fRec72[0]); + output36[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = double(input37[i]); + fRec75[0] = max((fRec75[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph74 = FAUSTFLOAT(fRec75[0]); + double fTemp74 = (0.27735009811261457 * fTemp73); + fRec74[0] = max((fRec74[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph75 = FAUSTFLOAT(fRec74[0]); + output37[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = double(input38[i]); + fRec77[0] = max((fRec77[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp75)))))); + fVbargraph76 = FAUSTFLOAT(fRec77[0]); + double fTemp76 = (0.27735009811261457 * fTemp75); + fRec76[0] = max((fRec76[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph77 = FAUSTFLOAT(fRec76[0]); + output38[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = double(input39[i]); + fRec79[0] = max((fRec79[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph78 = FAUSTFLOAT(fRec79[0]); + double fTemp78 = (0.27735009811261457 * fTemp77); + fRec78[0] = max((fRec78[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph79 = FAUSTFLOAT(fRec78[0]); + output39[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = double(input40[i]); + fRec81[0] = max((fRec81[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp79)))))); + fVbargraph80 = FAUSTFLOAT(fRec81[0]); + double fTemp80 = (0.27735009811261457 * fTemp79); + fRec80[0] = max((fRec80[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph81 = FAUSTFLOAT(fRec80[0]); + output40[i] = FAUSTFLOAT(fTemp80); + double fTemp81 = double(input41[i]); + fRec83[0] = max((fRec83[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp81)))))); + fVbargraph82 = FAUSTFLOAT(fRec83[0]); + double fTemp82 = (0.27735009811261457 * fTemp81); + fRec82[0] = max((fRec82[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph83 = FAUSTFLOAT(fRec82[0]); + output41[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = double(input42[i]); + fRec85[0] = max((fRec85[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph84 = FAUSTFLOAT(fRec85[0]); + double fTemp84 = (0.27735009811261457 * fTemp83); + fRec84[0] = max((fRec84[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph85 = FAUSTFLOAT(fRec84[0]); + output42[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = double(input43[i]); + fRec87[0] = max((fRec87[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph86 = FAUSTFLOAT(fRec87[0]); + double fTemp86 = (0.27735009811261457 * fTemp85); + fRec86[0] = max((fRec86[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph87 = FAUSTFLOAT(fRec86[0]); + output43[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = double(input44[i]); + fRec89[0] = max((fRec89[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph88 = FAUSTFLOAT(fRec89[0]); + double fTemp88 = (0.27735009811261457 * fTemp87); + fRec88[0] = max((fRec88[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph89 = FAUSTFLOAT(fRec88[0]); + output44[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = double(input45[i]); + fRec91[0] = max((fRec91[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph90 = FAUSTFLOAT(fRec91[0]); + double fTemp90 = (0.27735009811261457 * fTemp89); + fRec90[0] = max((fRec90[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph91 = FAUSTFLOAT(fRec90[0]); + output45[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = double(input46[i]); + fRec93[0] = max((fRec93[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph92 = FAUSTFLOAT(fRec93[0]); + double fTemp92 = (0.27735009811261457 * fTemp91); + fRec92[0] = max((fRec92[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph93 = FAUSTFLOAT(fRec92[0]); + output46[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = double(input47[i]); + fRec95[0] = max((fRec95[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph94 = FAUSTFLOAT(fRec95[0]); + double fTemp94 = (0.27735009811261457 * fTemp93); + fRec94[0] = max((fRec94[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph95 = FAUSTFLOAT(fRec94[0]); + output47[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = double(input48[i]); + fRec97[0] = max((fRec97[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph96 = FAUSTFLOAT(fRec97[0]); + double fTemp96 = (0.27735009811261457 * fTemp95); + fRec96[0] = max((fRec96[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph97 = FAUSTFLOAT(fRec96[0]); + output48[i] = FAUSTFLOAT(fTemp96); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec51[1] = fRec51[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec55[1] = fRec55[0]; + fRec54[1] = fRec54[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec62[1] = fRec62[0]; + fRec65[1] = fRec65[0]; + fRec64[1] = fRec64[0]; + fRec67[1] = fRec67[0]; + fRec66[1] = fRec66[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec71[1] = fRec71[0]; + fRec70[1] = fRec70[0]; + fRec73[1] = fRec73[0]; + fRec72[1] = fRec72[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec77[1] = fRec77[0]; + fRec76[1] = fRec76[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec81[1] = fRec81[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec82[1] = fRec82[0]; + fRec85[1] = fRec85[0]; + fRec84[1] = fRec84[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec89[1] = fRec89[0]; + fRec88[1] = fRec88[0]; + fRec91[1] = fRec91[0]; + fRec90[1] = fRec90[0]; + fRec93[1] = fRec93[0]; + fRec92[1] = fRec92[0]; + fRec95[1] = fRec95[0]; + fRec94[1] = fRec94[0]; + fRec97[1] = fRec97[0]; + fRec96[1] = fRec96[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d7.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d7.cpp new file mode 100644 index 0000000000..b756c7bde5 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d7.cpp @@ -0,0 +1,3615 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d7" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fRec50[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fRec52[2]; + FAUSTFLOAT fVbargraph53; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fRec54[2]; + FAUSTFLOAT fVbargraph55; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + double fRec56[2]; + FAUSTFLOAT fVbargraph57; + double fRec59[2]; + FAUSTFLOAT fVbargraph58; + double fRec58[2]; + FAUSTFLOAT fVbargraph59; + double fRec61[2]; + FAUSTFLOAT fVbargraph60; + double fRec60[2]; + FAUSTFLOAT fVbargraph61; + double fRec63[2]; + FAUSTFLOAT fVbargraph62; + double fRec62[2]; + FAUSTFLOAT fVbargraph63; + double fRec65[2]; + FAUSTFLOAT fVbargraph64; + double fRec64[2]; + FAUSTFLOAT fVbargraph65; + double fRec67[2]; + FAUSTFLOAT fVbargraph66; + double fRec66[2]; + FAUSTFLOAT fVbargraph67; + double fRec69[2]; + FAUSTFLOAT fVbargraph68; + double fRec68[2]; + FAUSTFLOAT fVbargraph69; + double fRec71[2]; + FAUSTFLOAT fVbargraph70; + double fRec70[2]; + FAUSTFLOAT fVbargraph71; + double fRec73[2]; + FAUSTFLOAT fVbargraph72; + double fRec72[2]; + FAUSTFLOAT fVbargraph73; + double fRec75[2]; + FAUSTFLOAT fVbargraph74; + double fRec74[2]; + FAUSTFLOAT fVbargraph75; + double fRec77[2]; + FAUSTFLOAT fVbargraph76; + double fRec76[2]; + FAUSTFLOAT fVbargraph77; + double fRec79[2]; + FAUSTFLOAT fVbargraph78; + double fRec78[2]; + FAUSTFLOAT fVbargraph79; + double fRec81[2]; + FAUSTFLOAT fVbargraph80; + double fRec80[2]; + FAUSTFLOAT fVbargraph81; + double fRec83[2]; + FAUSTFLOAT fVbargraph82; + double fRec82[2]; + FAUSTFLOAT fVbargraph83; + double fRec85[2]; + FAUSTFLOAT fVbargraph84; + double fRec84[2]; + FAUSTFLOAT fVbargraph85; + double fRec87[2]; + FAUSTFLOAT fVbargraph86; + double fRec86[2]; + FAUSTFLOAT fVbargraph87; + double fRec89[2]; + FAUSTFLOAT fVbargraph88; + double fRec88[2]; + FAUSTFLOAT fVbargraph89; + double fRec91[2]; + FAUSTFLOAT fVbargraph90; + double fRec90[2]; + FAUSTFLOAT fVbargraph91; + double fRec93[2]; + FAUSTFLOAT fVbargraph92; + double fRec92[2]; + FAUSTFLOAT fVbargraph93; + double fRec95[2]; + FAUSTFLOAT fVbargraph94; + double fRec94[2]; + FAUSTFLOAT fVbargraph95; + double fRec97[2]; + FAUSTFLOAT fVbargraph96; + double fRec96[2]; + FAUSTFLOAT fVbargraph97; + double fRec99[2]; + FAUSTFLOAT fVbargraph98; + double fRec98[2]; + FAUSTFLOAT fVbargraph99; + double fRec101[2]; + FAUSTFLOAT fVbargraph100; + double fRec100[2]; + FAUSTFLOAT fVbargraph101; + double fRec103[2]; + FAUSTFLOAT fVbargraph102; + double fRec102[2]; + FAUSTFLOAT fVbargraph103; + double fRec105[2]; + FAUSTFLOAT fVbargraph104; + double fRec104[2]; + FAUSTFLOAT fVbargraph105; + double fRec107[2]; + FAUSTFLOAT fVbargraph106; + double fRec106[2]; + FAUSTFLOAT fVbargraph107; + double fRec109[2]; + FAUSTFLOAT fVbargraph108; + double fRec108[2]; + FAUSTFLOAT fVbargraph109; + double fRec111[2]; + FAUSTFLOAT fVbargraph110; + double fRec110[2]; + FAUSTFLOAT fVbargraph111; + double fRec113[2]; + FAUSTFLOAT fVbargraph112; + double fRec112[2]; + FAUSTFLOAT fVbargraph113; + double fRec115[2]; + FAUSTFLOAT fVbargraph114; + double fRec114[2]; + FAUSTFLOAT fVbargraph115; + double fRec117[2]; + FAUSTFLOAT fVbargraph116; + double fRec116[2]; + FAUSTFLOAT fVbargraph117; + double fRec119[2]; + FAUSTFLOAT fVbargraph118; + double fRec118[2]; + FAUSTFLOAT fVbargraph119; + double fRec121[2]; + FAUSTFLOAT fVbargraph120; + double fRec120[2]; + FAUSTFLOAT fVbargraph121; + double fRec123[2]; + FAUSTFLOAT fVbargraph122; + double fRec122[2]; + FAUSTFLOAT fVbargraph123; + double fRec125[2]; + FAUSTFLOAT fVbargraph124; + double fRec124[2]; + FAUSTFLOAT fVbargraph125; + double fRec127[2]; + FAUSTFLOAT fVbargraph126; + double fRec126[2]; + FAUSTFLOAT fVbargraph127; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d7"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 64; + + } + virtual int getNumOutputs() { + return 64; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec51[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec55[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec63[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec65[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec64[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec66[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec69[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec68[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec71[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec70[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec73[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec72[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec75[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec74[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec77[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec76[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec79[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec78[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec81[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec80[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec83[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec82[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec85[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec84[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec87[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec86[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec88[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec91[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec90[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec93[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec92[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec95[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec94[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec96[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec99[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec98[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec101[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec100[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec103[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec102[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec105[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec104[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec107[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec106[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec109[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec108[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec111[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec110[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec113[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec112[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec115[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec114[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec117[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec116[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec119[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec118[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec121[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec120[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec123[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec122[l123] = 0.0; + + } + for (int l124 = 0; (l124 < 2); l124 = (l124 + 1)) { + fRec125[l124] = 0.0; + + } + for (int l125 = 0; (l125 < 2); l125 = (l125 + 1)) { + fRec124[l125] = 0.0; + + } + for (int l126 = 0; (l126 < 2); l126 = (l126 + 1)) { + fRec127[l126] = 0.0; + + } + for (int l127 = 0; (l127 < 2); l127 = (l127 + 1)) { + fRec126[l127] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d7"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35f9820", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3603510", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x360d420", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3617410", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3621790", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x362b860", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3635a10", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x363fd80", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x364a2b0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3654b70", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x365ee10", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3669180", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36736b0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x367dda0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3688650", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36930c0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x369dec0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36a8310", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36b2840", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36bcf30", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36c77e0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36d2250", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36dce80", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36e7c70", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36f2c20", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36fdf60", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3708570", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3712c60", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x371d510", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3727f80", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3732bb0", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x373d9a0", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3748950", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3753ac0", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x375edf0", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x376a2e0", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3775b60", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3780330", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph76, "unit", "dB"); + ui_interface->addVerticalBargraph("0x378abe0", &fVbargraph76, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph78, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3795650", &fVbargraph78, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph80, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37a0280", &fVbargraph80, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph82, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37ab070", &fVbargraph82, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph84, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37b6020", &fVbargraph84, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph86, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37c1190", &fVbargraph86, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph88, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37cc4c0", &fVbargraph88, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph90, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37d79b0", &fVbargraph90, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph92, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37e3060", &fVbargraph92, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph94, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37ee8d0", &fVbargraph94, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph96, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37fa300", &fVbargraph96, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph98, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38060c0", &fVbargraph98, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph100, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3810a50", &fVbargraph100, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph102, "unit", "dB"); + ui_interface->addVerticalBargraph("0x381b4c0", &fVbargraph102, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph104, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38260f0", &fVbargraph104, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph106, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3830ee0", &fVbargraph106, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph108, "unit", "dB"); + ui_interface->addVerticalBargraph("0x383be90", &fVbargraph108, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph110, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3847000", &fVbargraph110, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph112, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3852330", &fVbargraph112, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph114, "unit", "dB"); + ui_interface->addVerticalBargraph("0x385d820", &fVbargraph114, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph116, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3868ed0", &fVbargraph116, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph118, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3874740", &fVbargraph118, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph120, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3880170", &fVbargraph120, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph122, "unit", "dB"); + ui_interface->addVerticalBargraph("0x388bd60", &fVbargraph122, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph124, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3897b10", &fVbargraph124, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph126, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38a3a80", &fVbargraph126, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35fd9a0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3607a80", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3611990", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x361ba60", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3625de0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x362feb0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x363a140", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3644590", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x364eba0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36592b0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3663540", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x366d990", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3677fa0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3682770", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x368d100", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3697c50", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36a26d0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36acb20", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36b7130", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36c1900", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36cc290", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36d6de0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36e1af0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36ec9c0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36f7a50", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3702850", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x370ce60", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3717630", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3721fc0", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x372cb10", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3737820", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37426f0", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x374d780", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37589d0", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3763de0", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x376f3b0", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x377a530", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph75, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3784d00", &fVbargraph75, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph77, "unit", "dB"); + ui_interface->addVerticalBargraph("0x378f690", &fVbargraph77, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph79, "unit", "dB"); + ui_interface->addVerticalBargraph("0x379a1e0", &fVbargraph79, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph81, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37a4ef0", &fVbargraph81, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph83, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37afdc0", &fVbargraph83, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph85, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37bae50", &fVbargraph85, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph87, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37c60a0", &fVbargraph87, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph89, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37d14b0", &fVbargraph89, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph91, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37dca80", &fVbargraph91, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph93, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37e8210", &fVbargraph93, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph95, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37f3b60", &fVbargraph95, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph97, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37ff670", &fVbargraph97, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph99, "unit", "dB"); + ui_interface->addVerticalBargraph("0x380ab70", &fVbargraph99, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph101, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3815500", &fVbargraph101, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph103, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3820050", &fVbargraph103, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph105, "unit", "dB"); + ui_interface->addVerticalBargraph("0x382ad60", &fVbargraph105, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph107, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3835c30", &fVbargraph107, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph109, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3840cc0", &fVbargraph109, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph111, "unit", "dB"); + ui_interface->addVerticalBargraph("0x384bf10", &fVbargraph111, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph113, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3857320", &fVbargraph113, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph115, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38628f0", &fVbargraph115, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph117, "unit", "dB"); + ui_interface->addVerticalBargraph("0x386e080", &fVbargraph117, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph119, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38799d0", &fVbargraph119, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph121, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38854e0", &fVbargraph121, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph123, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38911b0", &fVbargraph123, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph125, "unit", "dB"); + ui_interface->addVerticalBargraph("0x389d040", &fVbargraph125, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph127, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38a9090", &fVbargraph127, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = double(input25[i]); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + double fTemp50 = (0.30151134457776363 * fTemp49); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph51 = FAUSTFLOAT(fRec50[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = double(input26[i]); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + double fTemp52 = (0.30151134457776363 * fTemp51); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph53 = FAUSTFLOAT(fRec52[0]); + output26[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = double(input27[i]); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + double fTemp54 = (0.30151134457776363 * fTemp53); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph55 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = double(input28[i]); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + double fTemp56 = (0.30151134457776363 * fTemp55); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph57 = FAUSTFLOAT(fRec56[0]); + output28[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = double(input29[i]); + fRec59[0] = max((fRec59[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph58 = FAUSTFLOAT(fRec59[0]); + double fTemp58 = (0.30151134457776363 * fTemp57); + fRec58[0] = max((fRec58[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph59 = FAUSTFLOAT(fRec58[0]); + output29[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = double(input30[i]); + fRec61[0] = max((fRec61[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph60 = FAUSTFLOAT(fRec61[0]); + double fTemp60 = (0.30151134457776363 * fTemp59); + fRec60[0] = max((fRec60[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph61 = FAUSTFLOAT(fRec60[0]); + output30[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = double(input31[i]); + fRec63[0] = max((fRec63[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph62 = FAUSTFLOAT(fRec63[0]); + double fTemp62 = (0.30151134457776363 * fTemp61); + fRec62[0] = max((fRec62[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph63 = FAUSTFLOAT(fRec62[0]); + output31[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = double(input32[i]); + fRec65[0] = max((fRec65[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph64 = FAUSTFLOAT(fRec65[0]); + double fTemp64 = (0.30151134457776363 * fTemp63); + fRec64[0] = max((fRec64[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph65 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = double(input33[i]); + fRec67[0] = max((fRec67[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph66 = FAUSTFLOAT(fRec67[0]); + double fTemp66 = (0.30151134457776363 * fTemp65); + fRec66[0] = max((fRec66[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph67 = FAUSTFLOAT(fRec66[0]); + output33[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = double(input34[i]); + fRec69[0] = max((fRec69[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph68 = FAUSTFLOAT(fRec69[0]); + double fTemp68 = (0.30151134457776363 * fTemp67); + fRec68[0] = max((fRec68[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph69 = FAUSTFLOAT(fRec68[0]); + output34[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = double(input35[i]); + fRec71[0] = max((fRec71[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph70 = FAUSTFLOAT(fRec71[0]); + double fTemp70 = (0.30151134457776363 * fTemp69); + fRec70[0] = max((fRec70[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph71 = FAUSTFLOAT(fRec70[0]); + output35[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = double(input36[i]); + fRec73[0] = max((fRec73[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph72 = FAUSTFLOAT(fRec73[0]); + double fTemp72 = (0.27735009811261457 * fTemp71); + fRec72[0] = max((fRec72[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph73 = FAUSTFLOAT(fRec72[0]); + output36[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = double(input37[i]); + fRec75[0] = max((fRec75[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph74 = FAUSTFLOAT(fRec75[0]); + double fTemp74 = (0.27735009811261457 * fTemp73); + fRec74[0] = max((fRec74[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph75 = FAUSTFLOAT(fRec74[0]); + output37[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = double(input38[i]); + fRec77[0] = max((fRec77[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp75)))))); + fVbargraph76 = FAUSTFLOAT(fRec77[0]); + double fTemp76 = (0.27735009811261457 * fTemp75); + fRec76[0] = max((fRec76[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph77 = FAUSTFLOAT(fRec76[0]); + output38[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = double(input39[i]); + fRec79[0] = max((fRec79[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph78 = FAUSTFLOAT(fRec79[0]); + double fTemp78 = (0.27735009811261457 * fTemp77); + fRec78[0] = max((fRec78[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph79 = FAUSTFLOAT(fRec78[0]); + output39[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = double(input40[i]); + fRec81[0] = max((fRec81[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp79)))))); + fVbargraph80 = FAUSTFLOAT(fRec81[0]); + double fTemp80 = (0.27735009811261457 * fTemp79); + fRec80[0] = max((fRec80[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph81 = FAUSTFLOAT(fRec80[0]); + output40[i] = FAUSTFLOAT(fTemp80); + double fTemp81 = double(input41[i]); + fRec83[0] = max((fRec83[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp81)))))); + fVbargraph82 = FAUSTFLOAT(fRec83[0]); + double fTemp82 = (0.27735009811261457 * fTemp81); + fRec82[0] = max((fRec82[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph83 = FAUSTFLOAT(fRec82[0]); + output41[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = double(input42[i]); + fRec85[0] = max((fRec85[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph84 = FAUSTFLOAT(fRec85[0]); + double fTemp84 = (0.27735009811261457 * fTemp83); + fRec84[0] = max((fRec84[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph85 = FAUSTFLOAT(fRec84[0]); + output42[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = double(input43[i]); + fRec87[0] = max((fRec87[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph86 = FAUSTFLOAT(fRec87[0]); + double fTemp86 = (0.27735009811261457 * fTemp85); + fRec86[0] = max((fRec86[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph87 = FAUSTFLOAT(fRec86[0]); + output43[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = double(input44[i]); + fRec89[0] = max((fRec89[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph88 = FAUSTFLOAT(fRec89[0]); + double fTemp88 = (0.27735009811261457 * fTemp87); + fRec88[0] = max((fRec88[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph89 = FAUSTFLOAT(fRec88[0]); + output44[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = double(input45[i]); + fRec91[0] = max((fRec91[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph90 = FAUSTFLOAT(fRec91[0]); + double fTemp90 = (0.27735009811261457 * fTemp89); + fRec90[0] = max((fRec90[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph91 = FAUSTFLOAT(fRec90[0]); + output45[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = double(input46[i]); + fRec93[0] = max((fRec93[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph92 = FAUSTFLOAT(fRec93[0]); + double fTemp92 = (0.27735009811261457 * fTemp91); + fRec92[0] = max((fRec92[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph93 = FAUSTFLOAT(fRec92[0]); + output46[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = double(input47[i]); + fRec95[0] = max((fRec95[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph94 = FAUSTFLOAT(fRec95[0]); + double fTemp94 = (0.27735009811261457 * fTemp93); + fRec94[0] = max((fRec94[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph95 = FAUSTFLOAT(fRec94[0]); + output47[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = double(input48[i]); + fRec97[0] = max((fRec97[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph96 = FAUSTFLOAT(fRec97[0]); + double fTemp96 = (0.27735009811261457 * fTemp95); + fRec96[0] = max((fRec96[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph97 = FAUSTFLOAT(fRec96[0]); + output48[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = double(input49[i]); + fRec99[0] = max((fRec99[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph98 = FAUSTFLOAT(fRec99[0]); + double fTemp98 = (0.2581988897471611 * fTemp97); + fRec98[0] = max((fRec98[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph99 = FAUSTFLOAT(fRec98[0]); + output49[i] = FAUSTFLOAT(fTemp98); + double fTemp99 = double(input50[i]); + fRec101[0] = max((fRec101[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp99)))))); + fVbargraph100 = FAUSTFLOAT(fRec101[0]); + double fTemp100 = (0.2581988897471611 * fTemp99); + fRec100[0] = max((fRec100[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph101 = FAUSTFLOAT(fRec100[0]); + output50[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = double(input51[i]); + fRec103[0] = max((fRec103[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp101)))))); + fVbargraph102 = FAUSTFLOAT(fRec103[0]); + double fTemp102 = (0.2581988897471611 * fTemp101); + fRec102[0] = max((fRec102[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph103 = FAUSTFLOAT(fRec102[0]); + output51[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = double(input52[i]); + fRec105[0] = max((fRec105[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph104 = FAUSTFLOAT(fRec105[0]); + double fTemp104 = (0.2581988897471611 * fTemp103); + fRec104[0] = max((fRec104[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph105 = FAUSTFLOAT(fRec104[0]); + output52[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = double(input53[i]); + fRec107[0] = max((fRec107[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph106 = FAUSTFLOAT(fRec107[0]); + double fTemp106 = (0.2581988897471611 * fTemp105); + fRec106[0] = max((fRec106[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph107 = FAUSTFLOAT(fRec106[0]); + output53[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = double(input54[i]); + fRec109[0] = max((fRec109[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph108 = FAUSTFLOAT(fRec109[0]); + double fTemp108 = (0.2581988897471611 * fTemp107); + fRec108[0] = max((fRec108[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph109 = FAUSTFLOAT(fRec108[0]); + output54[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = double(input55[i]); + fRec111[0] = max((fRec111[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp109)))))); + fVbargraph110 = FAUSTFLOAT(fRec111[0]); + double fTemp110 = (0.2581988897471611 * fTemp109); + fRec110[0] = max((fRec110[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp110)))))); + fVbargraph111 = FAUSTFLOAT(fRec110[0]); + output55[i] = FAUSTFLOAT(fTemp110); + double fTemp111 = double(input56[i]); + fRec113[0] = max((fRec113[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp111)))))); + fVbargraph112 = FAUSTFLOAT(fRec113[0]); + double fTemp112 = (0.2581988897471611 * fTemp111); + fRec112[0] = max((fRec112[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp112)))))); + fVbargraph113 = FAUSTFLOAT(fRec112[0]); + output56[i] = FAUSTFLOAT(fTemp112); + double fTemp113 = double(input57[i]); + fRec115[0] = max((fRec115[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp113)))))); + fVbargraph114 = FAUSTFLOAT(fRec115[0]); + double fTemp114 = (0.2581988897471611 * fTemp113); + fRec114[0] = max((fRec114[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp114)))))); + fVbargraph115 = FAUSTFLOAT(fRec114[0]); + output57[i] = FAUSTFLOAT(fTemp114); + double fTemp115 = double(input58[i]); + fRec117[0] = max((fRec117[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp115)))))); + fVbargraph116 = FAUSTFLOAT(fRec117[0]); + double fTemp116 = (0.2581988897471611 * fTemp115); + fRec116[0] = max((fRec116[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp116)))))); + fVbargraph117 = FAUSTFLOAT(fRec116[0]); + output58[i] = FAUSTFLOAT(fTemp116); + double fTemp117 = double(input59[i]); + fRec119[0] = max((fRec119[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp117)))))); + fVbargraph118 = FAUSTFLOAT(fRec119[0]); + double fTemp118 = (0.2581988897471611 * fTemp117); + fRec118[0] = max((fRec118[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp118)))))); + fVbargraph119 = FAUSTFLOAT(fRec118[0]); + output59[i] = FAUSTFLOAT(fTemp118); + double fTemp119 = double(input60[i]); + fRec121[0] = max((fRec121[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp119)))))); + fVbargraph120 = FAUSTFLOAT(fRec121[0]); + double fTemp120 = (0.2581988897471611 * fTemp119); + fRec120[0] = max((fRec120[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp120)))))); + fVbargraph121 = FAUSTFLOAT(fRec120[0]); + output60[i] = FAUSTFLOAT(fTemp120); + double fTemp121 = double(input61[i]); + fRec123[0] = max((fRec123[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp121)))))); + fVbargraph122 = FAUSTFLOAT(fRec123[0]); + double fTemp122 = (0.2581988897471611 * fTemp121); + fRec122[0] = max((fRec122[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp122)))))); + fVbargraph123 = FAUSTFLOAT(fRec122[0]); + output61[i] = FAUSTFLOAT(fTemp122); + double fTemp123 = double(input62[i]); + fRec125[0] = max((fRec125[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp123)))))); + fVbargraph124 = FAUSTFLOAT(fRec125[0]); + double fTemp124 = (0.2581988897471611 * fTemp123); + fRec124[0] = max((fRec124[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp124)))))); + fVbargraph125 = FAUSTFLOAT(fRec124[0]); + output62[i] = FAUSTFLOAT(fTemp124); + double fTemp125 = double(input63[i]); + fRec127[0] = max((fRec127[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp125)))))); + fVbargraph126 = FAUSTFLOAT(fRec127[0]); + double fTemp126 = (0.2581988897471611 * fTemp125); + fRec126[0] = max((fRec126[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp126)))))); + fVbargraph127 = FAUSTFLOAT(fRec126[0]); + output63[i] = FAUSTFLOAT(fTemp126); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec51[1] = fRec51[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec55[1] = fRec55[0]; + fRec54[1] = fRec54[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec62[1] = fRec62[0]; + fRec65[1] = fRec65[0]; + fRec64[1] = fRec64[0]; + fRec67[1] = fRec67[0]; + fRec66[1] = fRec66[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec71[1] = fRec71[0]; + fRec70[1] = fRec70[0]; + fRec73[1] = fRec73[0]; + fRec72[1] = fRec72[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec77[1] = fRec77[0]; + fRec76[1] = fRec76[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec81[1] = fRec81[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec82[1] = fRec82[0]; + fRec85[1] = fRec85[0]; + fRec84[1] = fRec84[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec89[1] = fRec89[0]; + fRec88[1] = fRec88[0]; + fRec91[1] = fRec91[0]; + fRec90[1] = fRec90[0]; + fRec93[1] = fRec93[0]; + fRec92[1] = fRec92[0]; + fRec95[1] = fRec95[0]; + fRec94[1] = fRec94[0]; + fRec97[1] = fRec97[0]; + fRec96[1] = fRec96[0]; + fRec99[1] = fRec99[0]; + fRec98[1] = fRec98[0]; + fRec101[1] = fRec101[0]; + fRec100[1] = fRec100[0]; + fRec103[1] = fRec103[0]; + fRec102[1] = fRec102[0]; + fRec105[1] = fRec105[0]; + fRec104[1] = fRec104[0]; + fRec107[1] = fRec107[0]; + fRec106[1] = fRec106[0]; + fRec109[1] = fRec109[0]; + fRec108[1] = fRec108[0]; + fRec111[1] = fRec111[0]; + fRec110[1] = fRec110[0]; + fRec113[1] = fRec113[0]; + fRec112[1] = fRec112[0]; + fRec115[1] = fRec115[0]; + fRec114[1] = fRec114[0]; + fRec117[1] = fRec117[0]; + fRec116[1] = fRec116[0]; + fRec119[1] = fRec119[0]; + fRec118[1] = fRec118[0]; + fRec121[1] = fRec121[0]; + fRec120[1] = fRec120[0]; + fRec123[1] = fRec123[0]; + fRec122[1] = fRec122[0]; + fRec125[1] = fRec125[0]; + fRec124[1] = fRec124[0]; + fRec127[1] = fRec127[0]; + fRec126[1] = fRec126[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d8.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d8.cpp new file mode 100644 index 0000000000..c692d25f29 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d8.cpp @@ -0,0 +1,4282 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d8" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fRec50[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fRec52[2]; + FAUSTFLOAT fVbargraph53; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fRec54[2]; + FAUSTFLOAT fVbargraph55; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + double fRec56[2]; + FAUSTFLOAT fVbargraph57; + double fRec59[2]; + FAUSTFLOAT fVbargraph58; + double fRec58[2]; + FAUSTFLOAT fVbargraph59; + double fRec61[2]; + FAUSTFLOAT fVbargraph60; + double fRec60[2]; + FAUSTFLOAT fVbargraph61; + double fRec63[2]; + FAUSTFLOAT fVbargraph62; + double fRec62[2]; + FAUSTFLOAT fVbargraph63; + double fRec65[2]; + FAUSTFLOAT fVbargraph64; + double fRec64[2]; + FAUSTFLOAT fVbargraph65; + double fRec67[2]; + FAUSTFLOAT fVbargraph66; + double fRec66[2]; + FAUSTFLOAT fVbargraph67; + double fRec69[2]; + FAUSTFLOAT fVbargraph68; + double fRec68[2]; + FAUSTFLOAT fVbargraph69; + double fRec71[2]; + FAUSTFLOAT fVbargraph70; + double fRec70[2]; + FAUSTFLOAT fVbargraph71; + double fRec73[2]; + FAUSTFLOAT fVbargraph72; + double fRec72[2]; + FAUSTFLOAT fVbargraph73; + double fRec75[2]; + FAUSTFLOAT fVbargraph74; + double fRec74[2]; + FAUSTFLOAT fVbargraph75; + double fRec77[2]; + FAUSTFLOAT fVbargraph76; + double fRec76[2]; + FAUSTFLOAT fVbargraph77; + double fRec79[2]; + FAUSTFLOAT fVbargraph78; + double fRec78[2]; + FAUSTFLOAT fVbargraph79; + double fRec81[2]; + FAUSTFLOAT fVbargraph80; + double fRec80[2]; + FAUSTFLOAT fVbargraph81; + double fRec83[2]; + FAUSTFLOAT fVbargraph82; + double fRec82[2]; + FAUSTFLOAT fVbargraph83; + double fRec85[2]; + FAUSTFLOAT fVbargraph84; + double fRec84[2]; + FAUSTFLOAT fVbargraph85; + double fRec87[2]; + FAUSTFLOAT fVbargraph86; + double fRec86[2]; + FAUSTFLOAT fVbargraph87; + double fRec89[2]; + FAUSTFLOAT fVbargraph88; + double fRec88[2]; + FAUSTFLOAT fVbargraph89; + double fRec91[2]; + FAUSTFLOAT fVbargraph90; + double fRec90[2]; + FAUSTFLOAT fVbargraph91; + double fRec93[2]; + FAUSTFLOAT fVbargraph92; + double fRec92[2]; + FAUSTFLOAT fVbargraph93; + double fRec95[2]; + FAUSTFLOAT fVbargraph94; + double fRec94[2]; + FAUSTFLOAT fVbargraph95; + double fRec97[2]; + FAUSTFLOAT fVbargraph96; + double fRec96[2]; + FAUSTFLOAT fVbargraph97; + double fRec99[2]; + FAUSTFLOAT fVbargraph98; + double fRec98[2]; + FAUSTFLOAT fVbargraph99; + double fRec101[2]; + FAUSTFLOAT fVbargraph100; + double fRec100[2]; + FAUSTFLOAT fVbargraph101; + double fRec103[2]; + FAUSTFLOAT fVbargraph102; + double fRec102[2]; + FAUSTFLOAT fVbargraph103; + double fRec105[2]; + FAUSTFLOAT fVbargraph104; + double fRec104[2]; + FAUSTFLOAT fVbargraph105; + double fRec107[2]; + FAUSTFLOAT fVbargraph106; + double fRec106[2]; + FAUSTFLOAT fVbargraph107; + double fRec109[2]; + FAUSTFLOAT fVbargraph108; + double fRec108[2]; + FAUSTFLOAT fVbargraph109; + double fRec111[2]; + FAUSTFLOAT fVbargraph110; + double fRec110[2]; + FAUSTFLOAT fVbargraph111; + double fRec113[2]; + FAUSTFLOAT fVbargraph112; + double fRec112[2]; + FAUSTFLOAT fVbargraph113; + double fRec115[2]; + FAUSTFLOAT fVbargraph114; + double fRec114[2]; + FAUSTFLOAT fVbargraph115; + double fRec117[2]; + FAUSTFLOAT fVbargraph116; + double fRec116[2]; + FAUSTFLOAT fVbargraph117; + double fRec119[2]; + FAUSTFLOAT fVbargraph118; + double fRec118[2]; + FAUSTFLOAT fVbargraph119; + double fRec121[2]; + FAUSTFLOAT fVbargraph120; + double fRec120[2]; + FAUSTFLOAT fVbargraph121; + double fRec123[2]; + FAUSTFLOAT fVbargraph122; + double fRec122[2]; + FAUSTFLOAT fVbargraph123; + double fRec125[2]; + FAUSTFLOAT fVbargraph124; + double fRec124[2]; + FAUSTFLOAT fVbargraph125; + double fRec127[2]; + FAUSTFLOAT fVbargraph126; + double fRec126[2]; + FAUSTFLOAT fVbargraph127; + double fRec129[2]; + FAUSTFLOAT fVbargraph128; + double fRec128[2]; + FAUSTFLOAT fVbargraph129; + double fRec131[2]; + FAUSTFLOAT fVbargraph130; + double fRec130[2]; + FAUSTFLOAT fVbargraph131; + double fRec133[2]; + FAUSTFLOAT fVbargraph132; + double fRec132[2]; + FAUSTFLOAT fVbargraph133; + double fRec135[2]; + FAUSTFLOAT fVbargraph134; + double fRec134[2]; + FAUSTFLOAT fVbargraph135; + double fRec137[2]; + FAUSTFLOAT fVbargraph136; + double fRec136[2]; + FAUSTFLOAT fVbargraph137; + double fRec139[2]; + FAUSTFLOAT fVbargraph138; + double fRec138[2]; + FAUSTFLOAT fVbargraph139; + double fRec141[2]; + FAUSTFLOAT fVbargraph140; + double fRec140[2]; + FAUSTFLOAT fVbargraph141; + double fRec143[2]; + FAUSTFLOAT fVbargraph142; + double fRec142[2]; + FAUSTFLOAT fVbargraph143; + double fRec145[2]; + FAUSTFLOAT fVbargraph144; + double fRec144[2]; + FAUSTFLOAT fVbargraph145; + double fRec147[2]; + FAUSTFLOAT fVbargraph146; + double fRec146[2]; + FAUSTFLOAT fVbargraph147; + double fRec149[2]; + FAUSTFLOAT fVbargraph148; + double fRec148[2]; + FAUSTFLOAT fVbargraph149; + double fRec151[2]; + FAUSTFLOAT fVbargraph150; + double fRec150[2]; + FAUSTFLOAT fVbargraph151; + double fRec153[2]; + FAUSTFLOAT fVbargraph152; + double fRec152[2]; + FAUSTFLOAT fVbargraph153; + double fRec155[2]; + FAUSTFLOAT fVbargraph154; + double fRec154[2]; + FAUSTFLOAT fVbargraph155; + double fRec157[2]; + FAUSTFLOAT fVbargraph156; + double fRec156[2]; + FAUSTFLOAT fVbargraph157; + double fRec159[2]; + FAUSTFLOAT fVbargraph158; + double fRec158[2]; + FAUSTFLOAT fVbargraph159; + double fRec161[2]; + FAUSTFLOAT fVbargraph160; + double fRec160[2]; + FAUSTFLOAT fVbargraph161; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d8"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 81; + + } + virtual int getNumOutputs() { + return 81; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec51[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec55[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec63[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec65[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec64[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec66[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec69[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec68[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec71[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec70[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec73[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec72[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec75[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec74[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec77[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec76[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec79[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec78[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec81[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec80[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec83[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec82[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec85[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec84[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec87[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec86[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec88[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec91[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec90[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec93[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec92[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec95[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec94[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec96[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec99[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec98[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec101[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec100[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec103[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec102[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec105[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec104[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec107[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec106[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec109[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec108[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec111[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec110[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec113[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec112[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec115[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec114[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec117[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec116[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec119[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec118[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec121[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec120[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec123[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec122[l123] = 0.0; + + } + for (int l124 = 0; (l124 < 2); l124 = (l124 + 1)) { + fRec125[l124] = 0.0; + + } + for (int l125 = 0; (l125 < 2); l125 = (l125 + 1)) { + fRec124[l125] = 0.0; + + } + for (int l126 = 0; (l126 < 2); l126 = (l126 + 1)) { + fRec127[l126] = 0.0; + + } + for (int l127 = 0; (l127 < 2); l127 = (l127 + 1)) { + fRec126[l127] = 0.0; + + } + for (int l128 = 0; (l128 < 2); l128 = (l128 + 1)) { + fRec129[l128] = 0.0; + + } + for (int l129 = 0; (l129 < 2); l129 = (l129 + 1)) { + fRec128[l129] = 0.0; + + } + for (int l130 = 0; (l130 < 2); l130 = (l130 + 1)) { + fRec131[l130] = 0.0; + + } + for (int l131 = 0; (l131 < 2); l131 = (l131 + 1)) { + fRec130[l131] = 0.0; + + } + for (int l132 = 0; (l132 < 2); l132 = (l132 + 1)) { + fRec133[l132] = 0.0; + + } + for (int l133 = 0; (l133 < 2); l133 = (l133 + 1)) { + fRec132[l133] = 0.0; + + } + for (int l134 = 0; (l134 < 2); l134 = (l134 + 1)) { + fRec135[l134] = 0.0; + + } + for (int l135 = 0; (l135 < 2); l135 = (l135 + 1)) { + fRec134[l135] = 0.0; + + } + for (int l136 = 0; (l136 < 2); l136 = (l136 + 1)) { + fRec137[l136] = 0.0; + + } + for (int l137 = 0; (l137 < 2); l137 = (l137 + 1)) { + fRec136[l137] = 0.0; + + } + for (int l138 = 0; (l138 < 2); l138 = (l138 + 1)) { + fRec139[l138] = 0.0; + + } + for (int l139 = 0; (l139 < 2); l139 = (l139 + 1)) { + fRec138[l139] = 0.0; + + } + for (int l140 = 0; (l140 < 2); l140 = (l140 + 1)) { + fRec141[l140] = 0.0; + + } + for (int l141 = 0; (l141 < 2); l141 = (l141 + 1)) { + fRec140[l141] = 0.0; + + } + for (int l142 = 0; (l142 < 2); l142 = (l142 + 1)) { + fRec143[l142] = 0.0; + + } + for (int l143 = 0; (l143 < 2); l143 = (l143 + 1)) { + fRec142[l143] = 0.0; + + } + for (int l144 = 0; (l144 < 2); l144 = (l144 + 1)) { + fRec145[l144] = 0.0; + + } + for (int l145 = 0; (l145 < 2); l145 = (l145 + 1)) { + fRec144[l145] = 0.0; + + } + for (int l146 = 0; (l146 < 2); l146 = (l146 + 1)) { + fRec147[l146] = 0.0; + + } + for (int l147 = 0; (l147 < 2); l147 = (l147 + 1)) { + fRec146[l147] = 0.0; + + } + for (int l148 = 0; (l148 < 2); l148 = (l148 + 1)) { + fRec149[l148] = 0.0; + + } + for (int l149 = 0; (l149 < 2); l149 = (l149 + 1)) { + fRec148[l149] = 0.0; + + } + for (int l150 = 0; (l150 < 2); l150 = (l150 + 1)) { + fRec151[l150] = 0.0; + + } + for (int l151 = 0; (l151 < 2); l151 = (l151 + 1)) { + fRec150[l151] = 0.0; + + } + for (int l152 = 0; (l152 < 2); l152 = (l152 + 1)) { + fRec153[l152] = 0.0; + + } + for (int l153 = 0; (l153 < 2); l153 = (l153 + 1)) { + fRec152[l153] = 0.0; + + } + for (int l154 = 0; (l154 < 2); l154 = (l154 + 1)) { + fRec155[l154] = 0.0; + + } + for (int l155 = 0; (l155 < 2); l155 = (l155 + 1)) { + fRec154[l155] = 0.0; + + } + for (int l156 = 0; (l156 < 2); l156 = (l156 + 1)) { + fRec157[l156] = 0.0; + + } + for (int l157 = 0; (l157 < 2); l157 = (l157 + 1)) { + fRec156[l157] = 0.0; + + } + for (int l158 = 0; (l158 < 2); l158 = (l158 + 1)) { + fRec159[l158] = 0.0; + + } + for (int l159 = 0; (l159 < 2); l159 = (l159 + 1)) { + fRec158[l159] = 0.0; + + } + for (int l160 = 0; (l160 < 2); l160 = (l160 + 1)) { + fRec161[l160] = 0.0; + + } + for (int l161 = 0; (l161 < 2); l161 = (l161 + 1)) { + fRec160[l161] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d8"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37f93c0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38030b0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x380cfc0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3816fb0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3821330", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x382b400", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38355b0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x383f920", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3849e50", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3854710", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x385e9a0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3868d10", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3873240", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x387d930", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38881e0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3892c50", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x389da50", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38a7ea0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38b23d0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38bcac0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38c7370", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38d1de0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38dca10", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38e7800", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f27b0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38fdaf0", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3908100", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39127f0", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x391d0a0", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3927b10", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3932740", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x393d530", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39484e0", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3953650", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x395e980", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3969e70", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39756f0", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x397fec0", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph76, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398a770", &fVbargraph76, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph78, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39951e0", &fVbargraph78, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph80, "unit", "dB"); + ui_interface->addVerticalBargraph("0x399fe10", &fVbargraph80, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph82, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39aac00", &fVbargraph82, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph84, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39b5bb0", &fVbargraph84, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph86, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c0d20", &fVbargraph86, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph88, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39cc050", &fVbargraph88, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph90, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d7540", &fVbargraph90, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph92, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e2bf0", &fVbargraph92, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph94, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ee460", &fVbargraph94, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph96, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f9e90", &fVbargraph96, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph98, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a05c50", &fVbargraph98, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph100, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a105e0", &fVbargraph100, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph102, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a1b050", &fVbargraph102, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph104, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a25c80", &fVbargraph104, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph106, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a30a70", &fVbargraph106, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph108, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a3ba20", &fVbargraph108, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph110, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a46b90", &fVbargraph110, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph112, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a51ec0", &fVbargraph112, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph114, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a5d3b0", &fVbargraph114, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph116, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a68a60", &fVbargraph116, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph118, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a742d0", &fVbargraph118, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph120, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a7fd00", &fVbargraph120, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph122, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a8b8f0", &fVbargraph122, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph124, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a976a0", &fVbargraph124, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph126, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa3610", &fVbargraph126, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("8"); + ui_interface->openVerticalBox("64"); + ui_interface->declare(&fVbargraph128, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aaf910", &fVbargraph128, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("65"); + ui_interface->declare(&fVbargraph130, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aba460", &fVbargraph130, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("66"); + ui_interface->declare(&fVbargraph132, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ac5090", &fVbargraph132, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("67"); + ui_interface->declare(&fVbargraph134, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3acfe80", &fVbargraph134, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("68"); + ui_interface->declare(&fVbargraph136, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3adae30", &fVbargraph136, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("69"); + ui_interface->declare(&fVbargraph138, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ae5fb0", &fVbargraph138, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("70"); + ui_interface->declare(&fVbargraph140, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af12e0", &fVbargraph140, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("71"); + ui_interface->declare(&fVbargraph142, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3afc7d0", &fVbargraph142, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("72"); + ui_interface->declare(&fVbargraph144, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b07e80", &fVbargraph144, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("73"); + ui_interface->declare(&fVbargraph146, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b136f0", &fVbargraph146, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("74"); + ui_interface->declare(&fVbargraph148, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b1f120", &fVbargraph148, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("75"); + ui_interface->declare(&fVbargraph150, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b2ad10", &fVbargraph150, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("76"); + ui_interface->declare(&fVbargraph152, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b36ac0", &fVbargraph152, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("77"); + ui_interface->declare(&fVbargraph154, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b42a30", &fVbargraph154, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("78"); + ui_interface->declare(&fVbargraph156, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b4eb60", &fVbargraph156, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("79"); + ui_interface->declare(&fVbargraph158, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b5ae50", &fVbargraph158, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("80"); + ui_interface->declare(&fVbargraph160, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b67310", &fVbargraph160, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37fd540", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3807620", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3811530", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x381b600", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3825980", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x382fa50", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3839ce0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3844130", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x384e740", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3858e40", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38630d0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x386d520", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3877b30", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3882300", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x388cc90", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38977e0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38a2260", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38ac6b0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38b6cc0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38c1490", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38cbe20", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38d6970", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38e1680", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38ec550", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f75e0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39023e0", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x390c9f0", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39171c0", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3921b50", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x392c6a0", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39373b0", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3942280", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x394d310", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3958560", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3963970", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x396ef40", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x397a0c0", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph75, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3984890", &fVbargraph75, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph77, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398f220", &fVbargraph77, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph79, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3999d70", &fVbargraph79, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph81, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39a4a80", &fVbargraph81, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph83, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39af950", &fVbargraph83, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph85, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ba9e0", &fVbargraph85, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph87, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c5c30", &fVbargraph87, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph89, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d1040", &fVbargraph89, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph91, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39dc610", &fVbargraph91, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph93, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e7da0", &fVbargraph93, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph95, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f36f0", &fVbargraph95, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph97, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ff200", &fVbargraph97, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph99, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a0a700", &fVbargraph99, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph101, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a15090", &fVbargraph101, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph103, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a1fbe0", &fVbargraph103, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph105, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a2a8f0", &fVbargraph105, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph107, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a357c0", &fVbargraph107, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph109, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a40850", &fVbargraph109, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph111, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a4baa0", &fVbargraph111, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph113, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a56eb0", &fVbargraph113, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph115, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a62480", &fVbargraph115, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph117, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a6dc10", &fVbargraph117, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph119, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a79560", &fVbargraph119, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph121, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a85070", &fVbargraph121, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph123, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a90d40", &fVbargraph123, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph125, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a9cbd0", &fVbargraph125, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph127, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa8c20", &fVbargraph127, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("8"); + ui_interface->openVerticalBox("64"); + ui_interface->declare(&fVbargraph129, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab44a0", &fVbargraph129, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("65"); + ui_interface->declare(&fVbargraph131, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3abeff0", &fVbargraph131, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("66"); + ui_interface->declare(&fVbargraph133, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ac9d00", &fVbargraph133, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("67"); + ui_interface->declare(&fVbargraph135, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ad4bd0", &fVbargraph135, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("68"); + ui_interface->declare(&fVbargraph137, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3adfc60", &fVbargraph137, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("69"); + ui_interface->declare(&fVbargraph139, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aeaec0", &fVbargraph139, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("70"); + ui_interface->declare(&fVbargraph141, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af62d0", &fVbargraph141, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("71"); + ui_interface->declare(&fVbargraph143, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b018a0", &fVbargraph143, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("72"); + ui_interface->declare(&fVbargraph145, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b0d030", &fVbargraph145, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("73"); + ui_interface->declare(&fVbargraph147, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b18980", &fVbargraph147, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("74"); + ui_interface->declare(&fVbargraph149, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b24490", &fVbargraph149, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("75"); + ui_interface->declare(&fVbargraph151, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b30160", &fVbargraph151, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("76"); + ui_interface->declare(&fVbargraph153, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b3bff0", &fVbargraph153, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("77"); + ui_interface->declare(&fVbargraph155, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b48040", &fVbargraph155, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("78"); + ui_interface->declare(&fVbargraph157, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b54250", &fVbargraph157, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("79"); + ui_interface->declare(&fVbargraph159, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b60620", &fVbargraph159, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("80"); + ui_interface->declare(&fVbargraph161, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b6cbc0", &fVbargraph161, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = double(input25[i]); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + double fTemp50 = (0.30151134457776363 * fTemp49); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph51 = FAUSTFLOAT(fRec50[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = double(input26[i]); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + double fTemp52 = (0.30151134457776363 * fTemp51); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph53 = FAUSTFLOAT(fRec52[0]); + output26[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = double(input27[i]); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + double fTemp54 = (0.30151134457776363 * fTemp53); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph55 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = double(input28[i]); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + double fTemp56 = (0.30151134457776363 * fTemp55); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph57 = FAUSTFLOAT(fRec56[0]); + output28[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = double(input29[i]); + fRec59[0] = max((fRec59[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph58 = FAUSTFLOAT(fRec59[0]); + double fTemp58 = (0.30151134457776363 * fTemp57); + fRec58[0] = max((fRec58[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph59 = FAUSTFLOAT(fRec58[0]); + output29[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = double(input30[i]); + fRec61[0] = max((fRec61[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph60 = FAUSTFLOAT(fRec61[0]); + double fTemp60 = (0.30151134457776363 * fTemp59); + fRec60[0] = max((fRec60[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph61 = FAUSTFLOAT(fRec60[0]); + output30[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = double(input31[i]); + fRec63[0] = max((fRec63[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph62 = FAUSTFLOAT(fRec63[0]); + double fTemp62 = (0.30151134457776363 * fTemp61); + fRec62[0] = max((fRec62[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph63 = FAUSTFLOAT(fRec62[0]); + output31[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = double(input32[i]); + fRec65[0] = max((fRec65[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph64 = FAUSTFLOAT(fRec65[0]); + double fTemp64 = (0.30151134457776363 * fTemp63); + fRec64[0] = max((fRec64[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph65 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = double(input33[i]); + fRec67[0] = max((fRec67[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph66 = FAUSTFLOAT(fRec67[0]); + double fTemp66 = (0.30151134457776363 * fTemp65); + fRec66[0] = max((fRec66[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph67 = FAUSTFLOAT(fRec66[0]); + output33[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = double(input34[i]); + fRec69[0] = max((fRec69[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph68 = FAUSTFLOAT(fRec69[0]); + double fTemp68 = (0.30151134457776363 * fTemp67); + fRec68[0] = max((fRec68[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph69 = FAUSTFLOAT(fRec68[0]); + output34[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = double(input35[i]); + fRec71[0] = max((fRec71[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph70 = FAUSTFLOAT(fRec71[0]); + double fTemp70 = (0.30151134457776363 * fTemp69); + fRec70[0] = max((fRec70[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph71 = FAUSTFLOAT(fRec70[0]); + output35[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = double(input36[i]); + fRec73[0] = max((fRec73[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph72 = FAUSTFLOAT(fRec73[0]); + double fTemp72 = (0.27735009811261457 * fTemp71); + fRec72[0] = max((fRec72[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph73 = FAUSTFLOAT(fRec72[0]); + output36[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = double(input37[i]); + fRec75[0] = max((fRec75[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph74 = FAUSTFLOAT(fRec75[0]); + double fTemp74 = (0.27735009811261457 * fTemp73); + fRec74[0] = max((fRec74[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph75 = FAUSTFLOAT(fRec74[0]); + output37[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = double(input38[i]); + fRec77[0] = max((fRec77[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp75)))))); + fVbargraph76 = FAUSTFLOAT(fRec77[0]); + double fTemp76 = (0.27735009811261457 * fTemp75); + fRec76[0] = max((fRec76[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph77 = FAUSTFLOAT(fRec76[0]); + output38[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = double(input39[i]); + fRec79[0] = max((fRec79[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph78 = FAUSTFLOAT(fRec79[0]); + double fTemp78 = (0.27735009811261457 * fTemp77); + fRec78[0] = max((fRec78[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph79 = FAUSTFLOAT(fRec78[0]); + output39[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = double(input40[i]); + fRec81[0] = max((fRec81[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp79)))))); + fVbargraph80 = FAUSTFLOAT(fRec81[0]); + double fTemp80 = (0.27735009811261457 * fTemp79); + fRec80[0] = max((fRec80[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph81 = FAUSTFLOAT(fRec80[0]); + output40[i] = FAUSTFLOAT(fTemp80); + double fTemp81 = double(input41[i]); + fRec83[0] = max((fRec83[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp81)))))); + fVbargraph82 = FAUSTFLOAT(fRec83[0]); + double fTemp82 = (0.27735009811261457 * fTemp81); + fRec82[0] = max((fRec82[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph83 = FAUSTFLOAT(fRec82[0]); + output41[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = double(input42[i]); + fRec85[0] = max((fRec85[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph84 = FAUSTFLOAT(fRec85[0]); + double fTemp84 = (0.27735009811261457 * fTemp83); + fRec84[0] = max((fRec84[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph85 = FAUSTFLOAT(fRec84[0]); + output42[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = double(input43[i]); + fRec87[0] = max((fRec87[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph86 = FAUSTFLOAT(fRec87[0]); + double fTemp86 = (0.27735009811261457 * fTemp85); + fRec86[0] = max((fRec86[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph87 = FAUSTFLOAT(fRec86[0]); + output43[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = double(input44[i]); + fRec89[0] = max((fRec89[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph88 = FAUSTFLOAT(fRec89[0]); + double fTemp88 = (0.27735009811261457 * fTemp87); + fRec88[0] = max((fRec88[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph89 = FAUSTFLOAT(fRec88[0]); + output44[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = double(input45[i]); + fRec91[0] = max((fRec91[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph90 = FAUSTFLOAT(fRec91[0]); + double fTemp90 = (0.27735009811261457 * fTemp89); + fRec90[0] = max((fRec90[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph91 = FAUSTFLOAT(fRec90[0]); + output45[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = double(input46[i]); + fRec93[0] = max((fRec93[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph92 = FAUSTFLOAT(fRec93[0]); + double fTemp92 = (0.27735009811261457 * fTemp91); + fRec92[0] = max((fRec92[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph93 = FAUSTFLOAT(fRec92[0]); + output46[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = double(input47[i]); + fRec95[0] = max((fRec95[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph94 = FAUSTFLOAT(fRec95[0]); + double fTemp94 = (0.27735009811261457 * fTemp93); + fRec94[0] = max((fRec94[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph95 = FAUSTFLOAT(fRec94[0]); + output47[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = double(input48[i]); + fRec97[0] = max((fRec97[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph96 = FAUSTFLOAT(fRec97[0]); + double fTemp96 = (0.27735009811261457 * fTemp95); + fRec96[0] = max((fRec96[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph97 = FAUSTFLOAT(fRec96[0]); + output48[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = double(input49[i]); + fRec99[0] = max((fRec99[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph98 = FAUSTFLOAT(fRec99[0]); + double fTemp98 = (0.2581988897471611 * fTemp97); + fRec98[0] = max((fRec98[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph99 = FAUSTFLOAT(fRec98[0]); + output49[i] = FAUSTFLOAT(fTemp98); + double fTemp99 = double(input50[i]); + fRec101[0] = max((fRec101[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp99)))))); + fVbargraph100 = FAUSTFLOAT(fRec101[0]); + double fTemp100 = (0.2581988897471611 * fTemp99); + fRec100[0] = max((fRec100[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph101 = FAUSTFLOAT(fRec100[0]); + output50[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = double(input51[i]); + fRec103[0] = max((fRec103[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp101)))))); + fVbargraph102 = FAUSTFLOAT(fRec103[0]); + double fTemp102 = (0.2581988897471611 * fTemp101); + fRec102[0] = max((fRec102[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph103 = FAUSTFLOAT(fRec102[0]); + output51[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = double(input52[i]); + fRec105[0] = max((fRec105[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph104 = FAUSTFLOAT(fRec105[0]); + double fTemp104 = (0.2581988897471611 * fTemp103); + fRec104[0] = max((fRec104[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph105 = FAUSTFLOAT(fRec104[0]); + output52[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = double(input53[i]); + fRec107[0] = max((fRec107[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph106 = FAUSTFLOAT(fRec107[0]); + double fTemp106 = (0.2581988897471611 * fTemp105); + fRec106[0] = max((fRec106[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph107 = FAUSTFLOAT(fRec106[0]); + output53[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = double(input54[i]); + fRec109[0] = max((fRec109[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph108 = FAUSTFLOAT(fRec109[0]); + double fTemp108 = (0.2581988897471611 * fTemp107); + fRec108[0] = max((fRec108[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph109 = FAUSTFLOAT(fRec108[0]); + output54[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = double(input55[i]); + fRec111[0] = max((fRec111[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp109)))))); + fVbargraph110 = FAUSTFLOAT(fRec111[0]); + double fTemp110 = (0.2581988897471611 * fTemp109); + fRec110[0] = max((fRec110[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp110)))))); + fVbargraph111 = FAUSTFLOAT(fRec110[0]); + output55[i] = FAUSTFLOAT(fTemp110); + double fTemp111 = double(input56[i]); + fRec113[0] = max((fRec113[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp111)))))); + fVbargraph112 = FAUSTFLOAT(fRec113[0]); + double fTemp112 = (0.2581988897471611 * fTemp111); + fRec112[0] = max((fRec112[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp112)))))); + fVbargraph113 = FAUSTFLOAT(fRec112[0]); + output56[i] = FAUSTFLOAT(fTemp112); + double fTemp113 = double(input57[i]); + fRec115[0] = max((fRec115[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp113)))))); + fVbargraph114 = FAUSTFLOAT(fRec115[0]); + double fTemp114 = (0.2581988897471611 * fTemp113); + fRec114[0] = max((fRec114[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp114)))))); + fVbargraph115 = FAUSTFLOAT(fRec114[0]); + output57[i] = FAUSTFLOAT(fTemp114); + double fTemp115 = double(input58[i]); + fRec117[0] = max((fRec117[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp115)))))); + fVbargraph116 = FAUSTFLOAT(fRec117[0]); + double fTemp116 = (0.2581988897471611 * fTemp115); + fRec116[0] = max((fRec116[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp116)))))); + fVbargraph117 = FAUSTFLOAT(fRec116[0]); + output58[i] = FAUSTFLOAT(fTemp116); + double fTemp117 = double(input59[i]); + fRec119[0] = max((fRec119[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp117)))))); + fVbargraph118 = FAUSTFLOAT(fRec119[0]); + double fTemp118 = (0.2581988897471611 * fTemp117); + fRec118[0] = max((fRec118[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp118)))))); + fVbargraph119 = FAUSTFLOAT(fRec118[0]); + output59[i] = FAUSTFLOAT(fTemp118); + double fTemp119 = double(input60[i]); + fRec121[0] = max((fRec121[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp119)))))); + fVbargraph120 = FAUSTFLOAT(fRec121[0]); + double fTemp120 = (0.2581988897471611 * fTemp119); + fRec120[0] = max((fRec120[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp120)))))); + fVbargraph121 = FAUSTFLOAT(fRec120[0]); + output60[i] = FAUSTFLOAT(fTemp120); + double fTemp121 = double(input61[i]); + fRec123[0] = max((fRec123[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp121)))))); + fVbargraph122 = FAUSTFLOAT(fRec123[0]); + double fTemp122 = (0.2581988897471611 * fTemp121); + fRec122[0] = max((fRec122[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp122)))))); + fVbargraph123 = FAUSTFLOAT(fRec122[0]); + output61[i] = FAUSTFLOAT(fTemp122); + double fTemp123 = double(input62[i]); + fRec125[0] = max((fRec125[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp123)))))); + fVbargraph124 = FAUSTFLOAT(fRec125[0]); + double fTemp124 = (0.2581988897471611 * fTemp123); + fRec124[0] = max((fRec124[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp124)))))); + fVbargraph125 = FAUSTFLOAT(fRec124[0]); + output62[i] = FAUSTFLOAT(fTemp124); + double fTemp125 = double(input63[i]); + fRec127[0] = max((fRec127[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp125)))))); + fVbargraph126 = FAUSTFLOAT(fRec127[0]); + double fTemp126 = (0.2581988897471611 * fTemp125); + fRec126[0] = max((fRec126[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp126)))))); + fVbargraph127 = FAUSTFLOAT(fRec126[0]); + output63[i] = FAUSTFLOAT(fTemp126); + double fTemp127 = double(input64[i]); + fRec129[0] = max((fRec129[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp127)))))); + fVbargraph128 = FAUSTFLOAT(fRec129[0]); + double fTemp128 = (0.24253562503633297 * fTemp127); + fRec128[0] = max((fRec128[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp128)))))); + fVbargraph129 = FAUSTFLOAT(fRec128[0]); + output64[i] = FAUSTFLOAT(fTemp128); + double fTemp129 = double(input65[i]); + fRec131[0] = max((fRec131[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp129)))))); + fVbargraph130 = FAUSTFLOAT(fRec131[0]); + double fTemp130 = (0.24253562503633297 * fTemp129); + fRec130[0] = max((fRec130[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp130)))))); + fVbargraph131 = FAUSTFLOAT(fRec130[0]); + output65[i] = FAUSTFLOAT(fTemp130); + double fTemp131 = double(input66[i]); + fRec133[0] = max((fRec133[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp131)))))); + fVbargraph132 = FAUSTFLOAT(fRec133[0]); + double fTemp132 = (0.24253562503633297 * fTemp131); + fRec132[0] = max((fRec132[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp132)))))); + fVbargraph133 = FAUSTFLOAT(fRec132[0]); + output66[i] = FAUSTFLOAT(fTemp132); + double fTemp133 = double(input67[i]); + fRec135[0] = max((fRec135[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp133)))))); + fVbargraph134 = FAUSTFLOAT(fRec135[0]); + double fTemp134 = (0.24253562503633297 * fTemp133); + fRec134[0] = max((fRec134[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp134)))))); + fVbargraph135 = FAUSTFLOAT(fRec134[0]); + output67[i] = FAUSTFLOAT(fTemp134); + double fTemp135 = double(input68[i]); + fRec137[0] = max((fRec137[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp135)))))); + fVbargraph136 = FAUSTFLOAT(fRec137[0]); + double fTemp136 = (0.24253562503633297 * fTemp135); + fRec136[0] = max((fRec136[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp136)))))); + fVbargraph137 = FAUSTFLOAT(fRec136[0]); + output68[i] = FAUSTFLOAT(fTemp136); + double fTemp137 = double(input69[i]); + fRec139[0] = max((fRec139[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp137)))))); + fVbargraph138 = FAUSTFLOAT(fRec139[0]); + double fTemp138 = (0.24253562503633297 * fTemp137); + fRec138[0] = max((fRec138[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp138)))))); + fVbargraph139 = FAUSTFLOAT(fRec138[0]); + output69[i] = FAUSTFLOAT(fTemp138); + double fTemp139 = double(input70[i]); + fRec141[0] = max((fRec141[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp139)))))); + fVbargraph140 = FAUSTFLOAT(fRec141[0]); + double fTemp140 = (0.24253562503633297 * fTemp139); + fRec140[0] = max((fRec140[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp140)))))); + fVbargraph141 = FAUSTFLOAT(fRec140[0]); + output70[i] = FAUSTFLOAT(fTemp140); + double fTemp141 = double(input71[i]); + fRec143[0] = max((fRec143[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp141)))))); + fVbargraph142 = FAUSTFLOAT(fRec143[0]); + double fTemp142 = (0.24253562503633297 * fTemp141); + fRec142[0] = max((fRec142[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp142)))))); + fVbargraph143 = FAUSTFLOAT(fRec142[0]); + output71[i] = FAUSTFLOAT(fTemp142); + double fTemp143 = double(input72[i]); + fRec145[0] = max((fRec145[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp143)))))); + fVbargraph144 = FAUSTFLOAT(fRec145[0]); + double fTemp144 = (0.24253562503633297 * fTemp143); + fRec144[0] = max((fRec144[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp144)))))); + fVbargraph145 = FAUSTFLOAT(fRec144[0]); + output72[i] = FAUSTFLOAT(fTemp144); + double fTemp145 = double(input73[i]); + fRec147[0] = max((fRec147[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp145)))))); + fVbargraph146 = FAUSTFLOAT(fRec147[0]); + double fTemp146 = (0.24253562503633297 * fTemp145); + fRec146[0] = max((fRec146[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp146)))))); + fVbargraph147 = FAUSTFLOAT(fRec146[0]); + output73[i] = FAUSTFLOAT(fTemp146); + double fTemp147 = double(input74[i]); + fRec149[0] = max((fRec149[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp147)))))); + fVbargraph148 = FAUSTFLOAT(fRec149[0]); + double fTemp148 = (0.24253562503633297 * fTemp147); + fRec148[0] = max((fRec148[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp148)))))); + fVbargraph149 = FAUSTFLOAT(fRec148[0]); + output74[i] = FAUSTFLOAT(fTemp148); + double fTemp149 = double(input75[i]); + fRec151[0] = max((fRec151[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp149)))))); + fVbargraph150 = FAUSTFLOAT(fRec151[0]); + double fTemp150 = (0.24253562503633297 * fTemp149); + fRec150[0] = max((fRec150[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp150)))))); + fVbargraph151 = FAUSTFLOAT(fRec150[0]); + output75[i] = FAUSTFLOAT(fTemp150); + double fTemp151 = double(input76[i]); + fRec153[0] = max((fRec153[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp151)))))); + fVbargraph152 = FAUSTFLOAT(fRec153[0]); + double fTemp152 = (0.24253562503633297 * fTemp151); + fRec152[0] = max((fRec152[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp152)))))); + fVbargraph153 = FAUSTFLOAT(fRec152[0]); + output76[i] = FAUSTFLOAT(fTemp152); + double fTemp153 = double(input77[i]); + fRec155[0] = max((fRec155[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp153)))))); + fVbargraph154 = FAUSTFLOAT(fRec155[0]); + double fTemp154 = (0.24253562503633297 * fTemp153); + fRec154[0] = max((fRec154[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp154)))))); + fVbargraph155 = FAUSTFLOAT(fRec154[0]); + output77[i] = FAUSTFLOAT(fTemp154); + double fTemp155 = double(input78[i]); + fRec157[0] = max((fRec157[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp155)))))); + fVbargraph156 = FAUSTFLOAT(fRec157[0]); + double fTemp156 = (0.24253562503633297 * fTemp155); + fRec156[0] = max((fRec156[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp156)))))); + fVbargraph157 = FAUSTFLOAT(fRec156[0]); + output78[i] = FAUSTFLOAT(fTemp156); + double fTemp157 = double(input79[i]); + fRec159[0] = max((fRec159[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp157)))))); + fVbargraph158 = FAUSTFLOAT(fRec159[0]); + double fTemp158 = (0.24253562503633297 * fTemp157); + fRec158[0] = max((fRec158[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp158)))))); + fVbargraph159 = FAUSTFLOAT(fRec158[0]); + output79[i] = FAUSTFLOAT(fTemp158); + double fTemp159 = double(input80[i]); + fRec161[0] = max((fRec161[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp159)))))); + fVbargraph160 = FAUSTFLOAT(fRec161[0]); + double fTemp160 = (0.24253562503633297 * fTemp159); + fRec160[0] = max((fRec160[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp160)))))); + fVbargraph161 = FAUSTFLOAT(fRec160[0]); + output80[i] = FAUSTFLOAT(fTemp160); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec51[1] = fRec51[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec55[1] = fRec55[0]; + fRec54[1] = fRec54[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec62[1] = fRec62[0]; + fRec65[1] = fRec65[0]; + fRec64[1] = fRec64[0]; + fRec67[1] = fRec67[0]; + fRec66[1] = fRec66[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec71[1] = fRec71[0]; + fRec70[1] = fRec70[0]; + fRec73[1] = fRec73[0]; + fRec72[1] = fRec72[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec77[1] = fRec77[0]; + fRec76[1] = fRec76[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec81[1] = fRec81[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec82[1] = fRec82[0]; + fRec85[1] = fRec85[0]; + fRec84[1] = fRec84[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec89[1] = fRec89[0]; + fRec88[1] = fRec88[0]; + fRec91[1] = fRec91[0]; + fRec90[1] = fRec90[0]; + fRec93[1] = fRec93[0]; + fRec92[1] = fRec92[0]; + fRec95[1] = fRec95[0]; + fRec94[1] = fRec94[0]; + fRec97[1] = fRec97[0]; + fRec96[1] = fRec96[0]; + fRec99[1] = fRec99[0]; + fRec98[1] = fRec98[0]; + fRec101[1] = fRec101[0]; + fRec100[1] = fRec100[0]; + fRec103[1] = fRec103[0]; + fRec102[1] = fRec102[0]; + fRec105[1] = fRec105[0]; + fRec104[1] = fRec104[0]; + fRec107[1] = fRec107[0]; + fRec106[1] = fRec106[0]; + fRec109[1] = fRec109[0]; + fRec108[1] = fRec108[0]; + fRec111[1] = fRec111[0]; + fRec110[1] = fRec110[0]; + fRec113[1] = fRec113[0]; + fRec112[1] = fRec112[0]; + fRec115[1] = fRec115[0]; + fRec114[1] = fRec114[0]; + fRec117[1] = fRec117[0]; + fRec116[1] = fRec116[0]; + fRec119[1] = fRec119[0]; + fRec118[1] = fRec118[0]; + fRec121[1] = fRec121[0]; + fRec120[1] = fRec120[0]; + fRec123[1] = fRec123[0]; + fRec122[1] = fRec122[0]; + fRec125[1] = fRec125[0]; + fRec124[1] = fRec124[0]; + fRec127[1] = fRec127[0]; + fRec126[1] = fRec126[0]; + fRec129[1] = fRec129[0]; + fRec128[1] = fRec128[0]; + fRec131[1] = fRec131[0]; + fRec130[1] = fRec130[0]; + fRec133[1] = fRec133[0]; + fRec132[1] = fRec132[0]; + fRec135[1] = fRec135[0]; + fRec134[1] = fRec134[0]; + fRec137[1] = fRec137[0]; + fRec136[1] = fRec136[0]; + fRec139[1] = fRec139[0]; + fRec138[1] = fRec138[0]; + fRec141[1] = fRec141[0]; + fRec140[1] = fRec140[0]; + fRec143[1] = fRec143[0]; + fRec142[1] = fRec142[0]; + fRec145[1] = fRec145[0]; + fRec144[1] = fRec144[0]; + fRec147[1] = fRec147[0]; + fRec146[1] = fRec146[0]; + fRec149[1] = fRec149[0]; + fRec148[1] = fRec148[0]; + fRec151[1] = fRec151[0]; + fRec150[1] = fRec150[0]; + fRec153[1] = fRec153[0]; + fRec152[1] = fRec152[0]; + fRec155[1] = fRec155[0]; + fRec154[1] = fRec154[0]; + fRec157[1] = fRec157[0]; + fRec156[1] = fRec156[0]; + fRec159[1] = fRec159[0]; + fRec158[1] = fRec158[0]; + fRec161[1] = fRec161[0]; + fRec160[1] = fRec160[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d9.cpp b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d9.cpp new file mode 100644 index 0000000000..fbfbc108f8 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2AcnSn3d9.cpp @@ -0,0 +1,5027 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2AcnSn3d9" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fRec32[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fRec34[2]; + FAUSTFLOAT fVbargraph35; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fRec36[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fRec38[2]; + FAUSTFLOAT fVbargraph39; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fRec40[2]; + FAUSTFLOAT fVbargraph41; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fRec42[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fRec44[2]; + FAUSTFLOAT fVbargraph45; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fRec46[2]; + FAUSTFLOAT fVbargraph47; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fRec48[2]; + FAUSTFLOAT fVbargraph49; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fRec50[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fRec52[2]; + FAUSTFLOAT fVbargraph53; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fRec54[2]; + FAUSTFLOAT fVbargraph55; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + double fRec56[2]; + FAUSTFLOAT fVbargraph57; + double fRec59[2]; + FAUSTFLOAT fVbargraph58; + double fRec58[2]; + FAUSTFLOAT fVbargraph59; + double fRec61[2]; + FAUSTFLOAT fVbargraph60; + double fRec60[2]; + FAUSTFLOAT fVbargraph61; + double fRec63[2]; + FAUSTFLOAT fVbargraph62; + double fRec62[2]; + FAUSTFLOAT fVbargraph63; + double fRec65[2]; + FAUSTFLOAT fVbargraph64; + double fRec64[2]; + FAUSTFLOAT fVbargraph65; + double fRec67[2]; + FAUSTFLOAT fVbargraph66; + double fRec66[2]; + FAUSTFLOAT fVbargraph67; + double fRec69[2]; + FAUSTFLOAT fVbargraph68; + double fRec68[2]; + FAUSTFLOAT fVbargraph69; + double fRec71[2]; + FAUSTFLOAT fVbargraph70; + double fRec70[2]; + FAUSTFLOAT fVbargraph71; + double fRec73[2]; + FAUSTFLOAT fVbargraph72; + double fRec72[2]; + FAUSTFLOAT fVbargraph73; + double fRec75[2]; + FAUSTFLOAT fVbargraph74; + double fRec74[2]; + FAUSTFLOAT fVbargraph75; + double fRec77[2]; + FAUSTFLOAT fVbargraph76; + double fRec76[2]; + FAUSTFLOAT fVbargraph77; + double fRec79[2]; + FAUSTFLOAT fVbargraph78; + double fRec78[2]; + FAUSTFLOAT fVbargraph79; + double fRec81[2]; + FAUSTFLOAT fVbargraph80; + double fRec80[2]; + FAUSTFLOAT fVbargraph81; + double fRec83[2]; + FAUSTFLOAT fVbargraph82; + double fRec82[2]; + FAUSTFLOAT fVbargraph83; + double fRec85[2]; + FAUSTFLOAT fVbargraph84; + double fRec84[2]; + FAUSTFLOAT fVbargraph85; + double fRec87[2]; + FAUSTFLOAT fVbargraph86; + double fRec86[2]; + FAUSTFLOAT fVbargraph87; + double fRec89[2]; + FAUSTFLOAT fVbargraph88; + double fRec88[2]; + FAUSTFLOAT fVbargraph89; + double fRec91[2]; + FAUSTFLOAT fVbargraph90; + double fRec90[2]; + FAUSTFLOAT fVbargraph91; + double fRec93[2]; + FAUSTFLOAT fVbargraph92; + double fRec92[2]; + FAUSTFLOAT fVbargraph93; + double fRec95[2]; + FAUSTFLOAT fVbargraph94; + double fRec94[2]; + FAUSTFLOAT fVbargraph95; + double fRec97[2]; + FAUSTFLOAT fVbargraph96; + double fRec96[2]; + FAUSTFLOAT fVbargraph97; + double fRec99[2]; + FAUSTFLOAT fVbargraph98; + double fRec98[2]; + FAUSTFLOAT fVbargraph99; + double fRec101[2]; + FAUSTFLOAT fVbargraph100; + double fRec100[2]; + FAUSTFLOAT fVbargraph101; + double fRec103[2]; + FAUSTFLOAT fVbargraph102; + double fRec102[2]; + FAUSTFLOAT fVbargraph103; + double fRec105[2]; + FAUSTFLOAT fVbargraph104; + double fRec104[2]; + FAUSTFLOAT fVbargraph105; + double fRec107[2]; + FAUSTFLOAT fVbargraph106; + double fRec106[2]; + FAUSTFLOAT fVbargraph107; + double fRec109[2]; + FAUSTFLOAT fVbargraph108; + double fRec108[2]; + FAUSTFLOAT fVbargraph109; + double fRec111[2]; + FAUSTFLOAT fVbargraph110; + double fRec110[2]; + FAUSTFLOAT fVbargraph111; + double fRec113[2]; + FAUSTFLOAT fVbargraph112; + double fRec112[2]; + FAUSTFLOAT fVbargraph113; + double fRec115[2]; + FAUSTFLOAT fVbargraph114; + double fRec114[2]; + FAUSTFLOAT fVbargraph115; + double fRec117[2]; + FAUSTFLOAT fVbargraph116; + double fRec116[2]; + FAUSTFLOAT fVbargraph117; + double fRec119[2]; + FAUSTFLOAT fVbargraph118; + double fRec118[2]; + FAUSTFLOAT fVbargraph119; + double fRec121[2]; + FAUSTFLOAT fVbargraph120; + double fRec120[2]; + FAUSTFLOAT fVbargraph121; + double fRec123[2]; + FAUSTFLOAT fVbargraph122; + double fRec122[2]; + FAUSTFLOAT fVbargraph123; + double fRec125[2]; + FAUSTFLOAT fVbargraph124; + double fRec124[2]; + FAUSTFLOAT fVbargraph125; + double fRec127[2]; + FAUSTFLOAT fVbargraph126; + double fRec126[2]; + FAUSTFLOAT fVbargraph127; + double fRec129[2]; + FAUSTFLOAT fVbargraph128; + double fRec128[2]; + FAUSTFLOAT fVbargraph129; + double fRec131[2]; + FAUSTFLOAT fVbargraph130; + double fRec130[2]; + FAUSTFLOAT fVbargraph131; + double fRec133[2]; + FAUSTFLOAT fVbargraph132; + double fRec132[2]; + FAUSTFLOAT fVbargraph133; + double fRec135[2]; + FAUSTFLOAT fVbargraph134; + double fRec134[2]; + FAUSTFLOAT fVbargraph135; + double fRec137[2]; + FAUSTFLOAT fVbargraph136; + double fRec136[2]; + FAUSTFLOAT fVbargraph137; + double fRec139[2]; + FAUSTFLOAT fVbargraph138; + double fRec138[2]; + FAUSTFLOAT fVbargraph139; + double fRec141[2]; + FAUSTFLOAT fVbargraph140; + double fRec140[2]; + FAUSTFLOAT fVbargraph141; + double fRec143[2]; + FAUSTFLOAT fVbargraph142; + double fRec142[2]; + FAUSTFLOAT fVbargraph143; + double fRec145[2]; + FAUSTFLOAT fVbargraph144; + double fRec144[2]; + FAUSTFLOAT fVbargraph145; + double fRec147[2]; + FAUSTFLOAT fVbargraph146; + double fRec146[2]; + FAUSTFLOAT fVbargraph147; + double fRec149[2]; + FAUSTFLOAT fVbargraph148; + double fRec148[2]; + FAUSTFLOAT fVbargraph149; + double fRec151[2]; + FAUSTFLOAT fVbargraph150; + double fRec150[2]; + FAUSTFLOAT fVbargraph151; + double fRec153[2]; + FAUSTFLOAT fVbargraph152; + double fRec152[2]; + FAUSTFLOAT fVbargraph153; + double fRec155[2]; + FAUSTFLOAT fVbargraph154; + double fRec154[2]; + FAUSTFLOAT fVbargraph155; + double fRec157[2]; + FAUSTFLOAT fVbargraph156; + double fRec156[2]; + FAUSTFLOAT fVbargraph157; + double fRec159[2]; + FAUSTFLOAT fVbargraph158; + double fRec158[2]; + FAUSTFLOAT fVbargraph159; + double fRec161[2]; + FAUSTFLOAT fVbargraph160; + double fRec160[2]; + FAUSTFLOAT fVbargraph161; + double fRec163[2]; + FAUSTFLOAT fVbargraph162; + double fRec162[2]; + FAUSTFLOAT fVbargraph163; + double fRec165[2]; + FAUSTFLOAT fVbargraph164; + double fRec164[2]; + FAUSTFLOAT fVbargraph165; + double fRec167[2]; + FAUSTFLOAT fVbargraph166; + double fRec166[2]; + FAUSTFLOAT fVbargraph167; + double fRec169[2]; + FAUSTFLOAT fVbargraph168; + double fRec168[2]; + FAUSTFLOAT fVbargraph169; + double fRec171[2]; + FAUSTFLOAT fVbargraph170; + double fRec170[2]; + FAUSTFLOAT fVbargraph171; + double fRec173[2]; + FAUSTFLOAT fVbargraph172; + double fRec172[2]; + FAUSTFLOAT fVbargraph173; + double fRec175[2]; + FAUSTFLOAT fVbargraph174; + double fRec174[2]; + FAUSTFLOAT fVbargraph175; + double fRec177[2]; + FAUSTFLOAT fVbargraph176; + double fRec176[2]; + FAUSTFLOAT fVbargraph177; + double fRec179[2]; + FAUSTFLOAT fVbargraph178; + double fRec178[2]; + FAUSTFLOAT fVbargraph179; + double fRec181[2]; + FAUSTFLOAT fVbargraph180; + double fRec180[2]; + FAUSTFLOAT fVbargraph181; + double fRec183[2]; + FAUSTFLOAT fVbargraph182; + double fRec182[2]; + FAUSTFLOAT fVbargraph183; + double fRec185[2]; + FAUSTFLOAT fVbargraph184; + double fRec184[2]; + FAUSTFLOAT fVbargraph185; + double fRec187[2]; + FAUSTFLOAT fVbargraph186; + double fRec186[2]; + FAUSTFLOAT fVbargraph187; + double fRec189[2]; + FAUSTFLOAT fVbargraph188; + double fRec188[2]; + FAUSTFLOAT fVbargraph189; + double fRec191[2]; + FAUSTFLOAT fVbargraph190; + double fRec190[2]; + FAUSTFLOAT fVbargraph191; + double fRec193[2]; + FAUSTFLOAT fVbargraph192; + double fRec192[2]; + FAUSTFLOAT fVbargraph193; + double fRec195[2]; + FAUSTFLOAT fVbargraph194; + double fRec194[2]; + FAUSTFLOAT fVbargraph195; + double fRec197[2]; + FAUSTFLOAT fVbargraph196; + double fRec196[2]; + FAUSTFLOAT fVbargraph197; + double fRec199[2]; + FAUSTFLOAT fVbargraph198; + double fRec198[2]; + FAUSTFLOAT fVbargraph199; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2AcnSn3d9"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 100; + + } + virtual int getNumOutputs() { + return 100; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec35[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec41[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec45[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec47[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec51[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec55[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec63[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec65[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec64[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec66[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec69[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec68[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec71[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec70[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec73[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec72[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec75[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec74[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec77[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec76[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec79[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec78[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec81[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec80[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec83[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec82[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec85[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec84[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec87[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec86[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec88[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec91[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec90[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec93[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec92[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec95[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec94[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec96[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec99[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec98[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec101[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec100[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec103[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec102[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec105[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec104[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec107[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec106[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec109[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec108[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec111[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec110[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec113[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec112[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec115[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec114[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec117[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec116[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec119[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec118[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec121[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec120[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec123[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec122[l123] = 0.0; + + } + for (int l124 = 0; (l124 < 2); l124 = (l124 + 1)) { + fRec125[l124] = 0.0; + + } + for (int l125 = 0; (l125 < 2); l125 = (l125 + 1)) { + fRec124[l125] = 0.0; + + } + for (int l126 = 0; (l126 < 2); l126 = (l126 + 1)) { + fRec127[l126] = 0.0; + + } + for (int l127 = 0; (l127 < 2); l127 = (l127 + 1)) { + fRec126[l127] = 0.0; + + } + for (int l128 = 0; (l128 < 2); l128 = (l128 + 1)) { + fRec129[l128] = 0.0; + + } + for (int l129 = 0; (l129 < 2); l129 = (l129 + 1)) { + fRec128[l129] = 0.0; + + } + for (int l130 = 0; (l130 < 2); l130 = (l130 + 1)) { + fRec131[l130] = 0.0; + + } + for (int l131 = 0; (l131 < 2); l131 = (l131 + 1)) { + fRec130[l131] = 0.0; + + } + for (int l132 = 0; (l132 < 2); l132 = (l132 + 1)) { + fRec133[l132] = 0.0; + + } + for (int l133 = 0; (l133 < 2); l133 = (l133 + 1)) { + fRec132[l133] = 0.0; + + } + for (int l134 = 0; (l134 < 2); l134 = (l134 + 1)) { + fRec135[l134] = 0.0; + + } + for (int l135 = 0; (l135 < 2); l135 = (l135 + 1)) { + fRec134[l135] = 0.0; + + } + for (int l136 = 0; (l136 < 2); l136 = (l136 + 1)) { + fRec137[l136] = 0.0; + + } + for (int l137 = 0; (l137 < 2); l137 = (l137 + 1)) { + fRec136[l137] = 0.0; + + } + for (int l138 = 0; (l138 < 2); l138 = (l138 + 1)) { + fRec139[l138] = 0.0; + + } + for (int l139 = 0; (l139 < 2); l139 = (l139 + 1)) { + fRec138[l139] = 0.0; + + } + for (int l140 = 0; (l140 < 2); l140 = (l140 + 1)) { + fRec141[l140] = 0.0; + + } + for (int l141 = 0; (l141 < 2); l141 = (l141 + 1)) { + fRec140[l141] = 0.0; + + } + for (int l142 = 0; (l142 < 2); l142 = (l142 + 1)) { + fRec143[l142] = 0.0; + + } + for (int l143 = 0; (l143 < 2); l143 = (l143 + 1)) { + fRec142[l143] = 0.0; + + } + for (int l144 = 0; (l144 < 2); l144 = (l144 + 1)) { + fRec145[l144] = 0.0; + + } + for (int l145 = 0; (l145 < 2); l145 = (l145 + 1)) { + fRec144[l145] = 0.0; + + } + for (int l146 = 0; (l146 < 2); l146 = (l146 + 1)) { + fRec147[l146] = 0.0; + + } + for (int l147 = 0; (l147 < 2); l147 = (l147 + 1)) { + fRec146[l147] = 0.0; + + } + for (int l148 = 0; (l148 < 2); l148 = (l148 + 1)) { + fRec149[l148] = 0.0; + + } + for (int l149 = 0; (l149 < 2); l149 = (l149 + 1)) { + fRec148[l149] = 0.0; + + } + for (int l150 = 0; (l150 < 2); l150 = (l150 + 1)) { + fRec151[l150] = 0.0; + + } + for (int l151 = 0; (l151 < 2); l151 = (l151 + 1)) { + fRec150[l151] = 0.0; + + } + for (int l152 = 0; (l152 < 2); l152 = (l152 + 1)) { + fRec153[l152] = 0.0; + + } + for (int l153 = 0; (l153 < 2); l153 = (l153 + 1)) { + fRec152[l153] = 0.0; + + } + for (int l154 = 0; (l154 < 2); l154 = (l154 + 1)) { + fRec155[l154] = 0.0; + + } + for (int l155 = 0; (l155 < 2); l155 = (l155 + 1)) { + fRec154[l155] = 0.0; + + } + for (int l156 = 0; (l156 < 2); l156 = (l156 + 1)) { + fRec157[l156] = 0.0; + + } + for (int l157 = 0; (l157 < 2); l157 = (l157 + 1)) { + fRec156[l157] = 0.0; + + } + for (int l158 = 0; (l158 < 2); l158 = (l158 + 1)) { + fRec159[l158] = 0.0; + + } + for (int l159 = 0; (l159 < 2); l159 = (l159 + 1)) { + fRec158[l159] = 0.0; + + } + for (int l160 = 0; (l160 < 2); l160 = (l160 + 1)) { + fRec161[l160] = 0.0; + + } + for (int l161 = 0; (l161 < 2); l161 = (l161 + 1)) { + fRec160[l161] = 0.0; + + } + for (int l162 = 0; (l162 < 2); l162 = (l162 + 1)) { + fRec163[l162] = 0.0; + + } + for (int l163 = 0; (l163 < 2); l163 = (l163 + 1)) { + fRec162[l163] = 0.0; + + } + for (int l164 = 0; (l164 < 2); l164 = (l164 + 1)) { + fRec165[l164] = 0.0; + + } + for (int l165 = 0; (l165 < 2); l165 = (l165 + 1)) { + fRec164[l165] = 0.0; + + } + for (int l166 = 0; (l166 < 2); l166 = (l166 + 1)) { + fRec167[l166] = 0.0; + + } + for (int l167 = 0; (l167 < 2); l167 = (l167 + 1)) { + fRec166[l167] = 0.0; + + } + for (int l168 = 0; (l168 < 2); l168 = (l168 + 1)) { + fRec169[l168] = 0.0; + + } + for (int l169 = 0; (l169 < 2); l169 = (l169 + 1)) { + fRec168[l169] = 0.0; + + } + for (int l170 = 0; (l170 < 2); l170 = (l170 + 1)) { + fRec171[l170] = 0.0; + + } + for (int l171 = 0; (l171 < 2); l171 = (l171 + 1)) { + fRec170[l171] = 0.0; + + } + for (int l172 = 0; (l172 < 2); l172 = (l172 + 1)) { + fRec173[l172] = 0.0; + + } + for (int l173 = 0; (l173 < 2); l173 = (l173 + 1)) { + fRec172[l173] = 0.0; + + } + for (int l174 = 0; (l174 < 2); l174 = (l174 + 1)) { + fRec175[l174] = 0.0; + + } + for (int l175 = 0; (l175 < 2); l175 = (l175 + 1)) { + fRec174[l175] = 0.0; + + } + for (int l176 = 0; (l176 < 2); l176 = (l176 + 1)) { + fRec177[l176] = 0.0; + + } + for (int l177 = 0; (l177 < 2); l177 = (l177 + 1)) { + fRec176[l177] = 0.0; + + } + for (int l178 = 0; (l178 < 2); l178 = (l178 + 1)) { + fRec179[l178] = 0.0; + + } + for (int l179 = 0; (l179 < 2); l179 = (l179 + 1)) { + fRec178[l179] = 0.0; + + } + for (int l180 = 0; (l180 < 2); l180 = (l180 + 1)) { + fRec181[l180] = 0.0; + + } + for (int l181 = 0; (l181 < 2); l181 = (l181 + 1)) { + fRec180[l181] = 0.0; + + } + for (int l182 = 0; (l182 < 2); l182 = (l182 + 1)) { + fRec183[l182] = 0.0; + + } + for (int l183 = 0; (l183 < 2); l183 = (l183 + 1)) { + fRec182[l183] = 0.0; + + } + for (int l184 = 0; (l184 < 2); l184 = (l184 + 1)) { + fRec185[l184] = 0.0; + + } + for (int l185 = 0; (l185 < 2); l185 = (l185 + 1)) { + fRec184[l185] = 0.0; + + } + for (int l186 = 0; (l186 < 2); l186 = (l186 + 1)) { + fRec187[l186] = 0.0; + + } + for (int l187 = 0; (l187 < 2); l187 = (l187 + 1)) { + fRec186[l187] = 0.0; + + } + for (int l188 = 0; (l188 < 2); l188 = (l188 + 1)) { + fRec189[l188] = 0.0; + + } + for (int l189 = 0; (l189 < 2); l189 = (l189 + 1)) { + fRec188[l189] = 0.0; + + } + for (int l190 = 0; (l190 < 2); l190 = (l190 + 1)) { + fRec191[l190] = 0.0; + + } + for (int l191 = 0; (l191 < 2); l191 = (l191 + 1)) { + fRec190[l191] = 0.0; + + } + for (int l192 = 0; (l192 < 2); l192 = (l192 + 1)) { + fRec193[l192] = 0.0; + + } + for (int l193 = 0; (l193 < 2); l193 = (l193 + 1)) { + fRec192[l193] = 0.0; + + } + for (int l194 = 0; (l194 < 2); l194 = (l194 + 1)) { + fRec195[l194] = 0.0; + + } + for (int l195 = 0; (l195 < 2); l195 = (l195 + 1)) { + fRec194[l195] = 0.0; + + } + for (int l196 = 0; (l196 < 2); l196 = (l196 + 1)) { + fRec197[l196] = 0.0; + + } + for (int l197 = 0; (l197 < 2); l197 = (l197 + 1)) { + fRec196[l197] = 0.0; + + } + for (int l198 = 0; (l198 < 2); l198 = (l198 + 1)) { + fRec199[l198] = 0.0; + + } + for (int l199 = 0; (l199 < 2); l199 = (l199 + 1)) { + fRec198[l199] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2AcnSn3d9"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f37000", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f40cf0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f4ac00", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f54bf0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f5ef70", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f69040", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f731f0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f7d560", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f87a90", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f92350", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f9c5e0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fa6950", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fb0e80", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fbb570", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fc5e20", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fd0890", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fdb690", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fe5af0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ff0020", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ffa710", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3004fc0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x300fa30", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x301a660", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3025450", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3030400", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x303b740", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3045d50", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3050440", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x305acf0", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3065760", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3070390", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x307b180", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3086130", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30912a0", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x309c5d0", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30a7ac0", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30b3340", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30bdb10", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph76, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30c83c0", &fVbargraph76, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph78, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30d2e30", &fVbargraph78, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph80, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30dda60", &fVbargraph80, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph82, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30e8850", &fVbargraph82, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph84, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30f3800", &fVbargraph84, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph86, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30fe970", &fVbargraph86, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph88, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3109ca0", &fVbargraph88, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph90, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3115190", &fVbargraph90, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph92, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3120840", &fVbargraph92, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph94, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312c0b0", &fVbargraph94, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph96, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3137ae0", &fVbargraph96, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph98, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31438a0", &fVbargraph98, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph100, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314e230", &fVbargraph100, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph102, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3158ca0", &fVbargraph102, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph104, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31638d0", &fVbargraph104, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph106, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316e6c0", &fVbargraph106, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph108, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3179670", &fVbargraph108, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph110, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31847e0", &fVbargraph110, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph112, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318fb10", &fVbargraph112, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph114, "unit", "dB"); + ui_interface->addVerticalBargraph("0x319b000", &fVbargraph114, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph116, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a66b0", &fVbargraph116, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph118, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31b1f30", &fVbargraph118, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph120, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31bd960", &fVbargraph120, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph122, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31c9550", &fVbargraph122, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph124, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31d5300", &fVbargraph124, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph126, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31e1270", &fVbargraph126, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("8"); + ui_interface->openVerticalBox("64"); + ui_interface->declare(&fVbargraph128, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31ed570", &fVbargraph128, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("65"); + ui_interface->declare(&fVbargraph130, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31f80c0", &fVbargraph130, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("66"); + ui_interface->declare(&fVbargraph132, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3202cf0", &fVbargraph132, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("67"); + ui_interface->declare(&fVbargraph134, "unit", "dB"); + ui_interface->addVerticalBargraph("0x320dae0", &fVbargraph134, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("68"); + ui_interface->declare(&fVbargraph136, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3218a90", &fVbargraph136, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("69"); + ui_interface->declare(&fVbargraph138, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3223c00", &fVbargraph138, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("70"); + ui_interface->declare(&fVbargraph140, "unit", "dB"); + ui_interface->addVerticalBargraph("0x322ef40", &fVbargraph140, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("71"); + ui_interface->declare(&fVbargraph142, "unit", "dB"); + ui_interface->addVerticalBargraph("0x323a430", &fVbargraph142, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("72"); + ui_interface->declare(&fVbargraph144, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3245ae0", &fVbargraph144, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("73"); + ui_interface->declare(&fVbargraph146, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3251350", &fVbargraph146, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("74"); + ui_interface->declare(&fVbargraph148, "unit", "dB"); + ui_interface->addVerticalBargraph("0x325cd80", &fVbargraph148, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("75"); + ui_interface->declare(&fVbargraph150, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3268970", &fVbargraph150, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("76"); + ui_interface->declare(&fVbargraph152, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3274720", &fVbargraph152, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("77"); + ui_interface->declare(&fVbargraph154, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3280690", &fVbargraph154, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("78"); + ui_interface->declare(&fVbargraph156, "unit", "dB"); + ui_interface->addVerticalBargraph("0x328c7c0", &fVbargraph156, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("79"); + ui_interface->declare(&fVbargraph158, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3298ac0", &fVbargraph158, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("80"); + ui_interface->declare(&fVbargraph160, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32a4f70", &fVbargraph160, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("9"); + ui_interface->openVerticalBox("81"); + ui_interface->declare(&fVbargraph162, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32b17b0", &fVbargraph162, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("82"); + ui_interface->declare(&fVbargraph164, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32bc4c0", &fVbargraph164, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("83"); + ui_interface->declare(&fVbargraph166, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32c72b0", &fVbargraph166, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("84"); + ui_interface->declare(&fVbargraph168, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32d2260", &fVbargraph168, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("85"); + ui_interface->declare(&fVbargraph170, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32dd3d0", &fVbargraph170, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("86"); + ui_interface->declare(&fVbargraph172, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32e8700", &fVbargraph172, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("87"); + ui_interface->declare(&fVbargraph174, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32f3bf0", &fVbargraph174, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("88"); + ui_interface->declare(&fVbargraph176, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32ff2a0", &fVbargraph176, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("89"); + ui_interface->declare(&fVbargraph178, "unit", "dB"); + ui_interface->addVerticalBargraph("0x330ab10", &fVbargraph178, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("90"); + ui_interface->declare(&fVbargraph180, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3316540", &fVbargraph180, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("91"); + ui_interface->declare(&fVbargraph182, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3322130", &fVbargraph182, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("92"); + ui_interface->declare(&fVbargraph184, "unit", "dB"); + ui_interface->addVerticalBargraph("0x332dee0", &fVbargraph184, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("93"); + ui_interface->declare(&fVbargraph186, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3339e50", &fVbargraph186, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("94"); + ui_interface->declare(&fVbargraph188, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3345f80", &fVbargraph188, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("95"); + ui_interface->declare(&fVbargraph190, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3352270", &fVbargraph190, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("96"); + ui_interface->declare(&fVbargraph192, "unit", "dB"); + ui_interface->addVerticalBargraph("0x335e720", &fVbargraph192, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("97"); + ui_interface->declare(&fVbargraph194, "unit", "dB"); + ui_interface->addVerticalBargraph("0x336ad90", &fVbargraph194, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("98"); + ui_interface->declare(&fVbargraph196, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33775c0", &fVbargraph196, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("99"); + ui_interface->declare(&fVbargraph198, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3383fb0", &fVbargraph198, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f3b180", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f45260", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f4f170", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f59240", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f635c0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f6d690", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f77920", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f81d70", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f8c380", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2f96a80", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fa0d10", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fab160", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fb5770", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fbff40", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fca8d0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fd5420", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fdfeb0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fea300", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ff4910", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fff0e0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3009a70", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30145c0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x301f2d0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x302a1a0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3035230", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3040030", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x304a640", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3054e10", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x305f7a0", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x306a2f0", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3075000", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x307fed0", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x308af60", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30961b0", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30a15c0", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30acb90", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("6"); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30b7d10", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph75, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30c24e0", &fVbargraph75, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph77, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30cce70", &fVbargraph77, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph79, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30d79c0", &fVbargraph79, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph81, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30e26d0", &fVbargraph81, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph83, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30ed5a0", &fVbargraph83, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph85, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30f8630", &fVbargraph85, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph87, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3103880", &fVbargraph87, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph89, "unit", "dB"); + ui_interface->addVerticalBargraph("0x310ec90", &fVbargraph89, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph91, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311a260", &fVbargraph91, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph93, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31259f0", &fVbargraph93, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph95, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3131340", &fVbargraph95, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph97, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313ce50", &fVbargraph97, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("7"); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph99, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3148350", &fVbargraph99, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph101, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3152ce0", &fVbargraph101, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("51"); + ui_interface->declare(&fVbargraph103, "unit", "dB"); + ui_interface->addVerticalBargraph("0x315d830", &fVbargraph103, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("52"); + ui_interface->declare(&fVbargraph105, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3168540", &fVbargraph105, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("53"); + ui_interface->declare(&fVbargraph107, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3173410", &fVbargraph107, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("54"); + ui_interface->declare(&fVbargraph109, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317e4a0", &fVbargraph109, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("55"); + ui_interface->declare(&fVbargraph111, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31896f0", &fVbargraph111, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("56"); + ui_interface->declare(&fVbargraph113, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3194b00", &fVbargraph113, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("57"); + ui_interface->declare(&fVbargraph115, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a00d0", &fVbargraph115, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("58"); + ui_interface->declare(&fVbargraph117, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31ab870", &fVbargraph117, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("59"); + ui_interface->declare(&fVbargraph119, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31b71c0", &fVbargraph119, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("60"); + ui_interface->declare(&fVbargraph121, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31c2cd0", &fVbargraph121, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("61"); + ui_interface->declare(&fVbargraph123, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31ce9a0", &fVbargraph123, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("62"); + ui_interface->declare(&fVbargraph125, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31da830", &fVbargraph125, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("63"); + ui_interface->declare(&fVbargraph127, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31e6880", &fVbargraph127, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("8"); + ui_interface->openVerticalBox("64"); + ui_interface->declare(&fVbargraph129, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31f2100", &fVbargraph129, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("65"); + ui_interface->declare(&fVbargraph131, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31fcc50", &fVbargraph131, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("66"); + ui_interface->declare(&fVbargraph133, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3207960", &fVbargraph133, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("67"); + ui_interface->declare(&fVbargraph135, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3212830", &fVbargraph135, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("68"); + ui_interface->declare(&fVbargraph137, "unit", "dB"); + ui_interface->addVerticalBargraph("0x321d8c0", &fVbargraph137, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("69"); + ui_interface->declare(&fVbargraph139, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3228b10", &fVbargraph139, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("70"); + ui_interface->declare(&fVbargraph141, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3233f30", &fVbargraph141, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("71"); + ui_interface->declare(&fVbargraph143, "unit", "dB"); + ui_interface->addVerticalBargraph("0x323f500", &fVbargraph143, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("72"); + ui_interface->declare(&fVbargraph145, "unit", "dB"); + ui_interface->addVerticalBargraph("0x324ac90", &fVbargraph145, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("73"); + ui_interface->declare(&fVbargraph147, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32565e0", &fVbargraph147, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("74"); + ui_interface->declare(&fVbargraph149, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32620f0", &fVbargraph149, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("75"); + ui_interface->declare(&fVbargraph151, "unit", "dB"); + ui_interface->addVerticalBargraph("0x326ddc0", &fVbargraph151, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("76"); + ui_interface->declare(&fVbargraph153, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3279c50", &fVbargraph153, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("77"); + ui_interface->declare(&fVbargraph155, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3285ca0", &fVbargraph155, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("78"); + ui_interface->declare(&fVbargraph157, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3291ec0", &fVbargraph157, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("79"); + ui_interface->declare(&fVbargraph159, "unit", "dB"); + ui_interface->addVerticalBargraph("0x329e290", &fVbargraph159, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("80"); + ui_interface->declare(&fVbargraph161, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32aa820", &fVbargraph161, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("9"); + ui_interface->openVerticalBox("81"); + ui_interface->declare(&fVbargraph163, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32b6420", &fVbargraph163, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("82"); + ui_interface->declare(&fVbargraph165, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32c1130", &fVbargraph165, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("83"); + ui_interface->declare(&fVbargraph167, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32cc000", &fVbargraph167, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("84"); + ui_interface->declare(&fVbargraph169, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32d7090", &fVbargraph169, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("85"); + ui_interface->declare(&fVbargraph171, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32e22e0", &fVbargraph171, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("86"); + ui_interface->declare(&fVbargraph173, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32ed6f0", &fVbargraph173, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("87"); + ui_interface->declare(&fVbargraph175, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32f8cc0", &fVbargraph175, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("88"); + ui_interface->declare(&fVbargraph177, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3304450", &fVbargraph177, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("89"); + ui_interface->declare(&fVbargraph179, "unit", "dB"); + ui_interface->addVerticalBargraph("0x330fda0", &fVbargraph179, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("90"); + ui_interface->declare(&fVbargraph181, "unit", "dB"); + ui_interface->addVerticalBargraph("0x331b8b0", &fVbargraph181, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("91"); + ui_interface->declare(&fVbargraph183, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3327580", &fVbargraph183, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("92"); + ui_interface->declare(&fVbargraph185, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3333410", &fVbargraph185, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("93"); + ui_interface->declare(&fVbargraph187, "unit", "dB"); + ui_interface->addVerticalBargraph("0x333f460", &fVbargraph187, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("94"); + ui_interface->declare(&fVbargraph189, "unit", "dB"); + ui_interface->addVerticalBargraph("0x334b670", &fVbargraph189, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("95"); + ui_interface->declare(&fVbargraph191, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3357a40", &fVbargraph191, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("96"); + ui_interface->declare(&fVbargraph193, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3363fd0", &fVbargraph193, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("97"); + ui_interface->declare(&fVbargraph195, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3370720", &fVbargraph195, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("98"); + ui_interface->declare(&fVbargraph197, "unit", "dB"); + ui_interface->addVerticalBargraph("0x337d030", &fVbargraph197, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("99"); + ui_interface->declare(&fVbargraph199, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3389b00", &fVbargraph199, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp0); + double fTemp1 = double(input1[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = (0.57735026918962584 * fTemp1); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = (0.57735026918962584 * fTemp3); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input3[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = (0.57735026918962584 * fTemp5); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input4[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = (0.44721359549995793 * fTemp7); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input5[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.44721359549995793 * fTemp9); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = double(input6[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = (0.44721359549995793 * fTemp11); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = double(input7[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = (0.44721359549995793 * fTemp13); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = (0.44721359549995793 * fTemp15); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input9[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (0.3779644730092272 * fTemp17); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input10[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = (0.3779644730092272 * fTemp19); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = (0.3779644730092272 * fTemp21); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = (0.3779644730092272 * fTemp23); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input13[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = (0.3779644730092272 * fTemp25); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = double(input14[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = (0.3779644730092272 * fTemp27); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = double(input15[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = (0.3779644730092272 * fTemp29); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = double(input16[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.33333333333333331 * fTemp31); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph33 = FAUSTFLOAT(fRec32[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = double(input17[i]); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + double fTemp34 = (0.33333333333333331 * fTemp33); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph35 = FAUSTFLOAT(fRec34[0]); + output17[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = double(input18[i]); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + double fTemp36 = (0.33333333333333331 * fTemp35); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph37 = FAUSTFLOAT(fRec36[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = double(input19[i]); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + double fTemp38 = (0.33333333333333331 * fTemp37); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph39 = FAUSTFLOAT(fRec38[0]); + output19[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = double(input20[i]); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + double fTemp40 = (0.33333333333333331 * fTemp39); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph41 = FAUSTFLOAT(fRec40[0]); + output20[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = double(input21[i]); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + double fTemp42 = (0.33333333333333331 * fTemp41); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph43 = FAUSTFLOAT(fRec42[0]); + output21[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = double(input22[i]); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + double fTemp44 = (0.33333333333333331 * fTemp43); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph45 = FAUSTFLOAT(fRec44[0]); + output22[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = double(input23[i]); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + double fTemp46 = (0.33333333333333331 * fTemp45); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph47 = FAUSTFLOAT(fRec46[0]); + output23[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = double(input24[i]); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + double fTemp48 = (0.33333333333333331 * fTemp47); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph49 = FAUSTFLOAT(fRec48[0]); + output24[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = double(input25[i]); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + double fTemp50 = (0.30151134457776363 * fTemp49); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph51 = FAUSTFLOAT(fRec50[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = double(input26[i]); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + double fTemp52 = (0.30151134457776363 * fTemp51); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph53 = FAUSTFLOAT(fRec52[0]); + output26[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = double(input27[i]); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + double fTemp54 = (0.30151134457776363 * fTemp53); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph55 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = double(input28[i]); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + double fTemp56 = (0.30151134457776363 * fTemp55); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph57 = FAUSTFLOAT(fRec56[0]); + output28[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = double(input29[i]); + fRec59[0] = max((fRec59[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph58 = FAUSTFLOAT(fRec59[0]); + double fTemp58 = (0.30151134457776363 * fTemp57); + fRec58[0] = max((fRec58[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph59 = FAUSTFLOAT(fRec58[0]); + output29[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = double(input30[i]); + fRec61[0] = max((fRec61[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph60 = FAUSTFLOAT(fRec61[0]); + double fTemp60 = (0.30151134457776363 * fTemp59); + fRec60[0] = max((fRec60[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph61 = FAUSTFLOAT(fRec60[0]); + output30[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = double(input31[i]); + fRec63[0] = max((fRec63[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph62 = FAUSTFLOAT(fRec63[0]); + double fTemp62 = (0.30151134457776363 * fTemp61); + fRec62[0] = max((fRec62[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph63 = FAUSTFLOAT(fRec62[0]); + output31[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = double(input32[i]); + fRec65[0] = max((fRec65[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph64 = FAUSTFLOAT(fRec65[0]); + double fTemp64 = (0.30151134457776363 * fTemp63); + fRec64[0] = max((fRec64[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph65 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = double(input33[i]); + fRec67[0] = max((fRec67[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph66 = FAUSTFLOAT(fRec67[0]); + double fTemp66 = (0.30151134457776363 * fTemp65); + fRec66[0] = max((fRec66[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph67 = FAUSTFLOAT(fRec66[0]); + output33[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = double(input34[i]); + fRec69[0] = max((fRec69[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph68 = FAUSTFLOAT(fRec69[0]); + double fTemp68 = (0.30151134457776363 * fTemp67); + fRec68[0] = max((fRec68[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph69 = FAUSTFLOAT(fRec68[0]); + output34[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = double(input35[i]); + fRec71[0] = max((fRec71[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph70 = FAUSTFLOAT(fRec71[0]); + double fTemp70 = (0.30151134457776363 * fTemp69); + fRec70[0] = max((fRec70[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph71 = FAUSTFLOAT(fRec70[0]); + output35[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = double(input36[i]); + fRec73[0] = max((fRec73[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph72 = FAUSTFLOAT(fRec73[0]); + double fTemp72 = (0.27735009811261457 * fTemp71); + fRec72[0] = max((fRec72[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph73 = FAUSTFLOAT(fRec72[0]); + output36[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = double(input37[i]); + fRec75[0] = max((fRec75[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph74 = FAUSTFLOAT(fRec75[0]); + double fTemp74 = (0.27735009811261457 * fTemp73); + fRec74[0] = max((fRec74[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph75 = FAUSTFLOAT(fRec74[0]); + output37[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = double(input38[i]); + fRec77[0] = max((fRec77[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp75)))))); + fVbargraph76 = FAUSTFLOAT(fRec77[0]); + double fTemp76 = (0.27735009811261457 * fTemp75); + fRec76[0] = max((fRec76[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph77 = FAUSTFLOAT(fRec76[0]); + output38[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = double(input39[i]); + fRec79[0] = max((fRec79[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph78 = FAUSTFLOAT(fRec79[0]); + double fTemp78 = (0.27735009811261457 * fTemp77); + fRec78[0] = max((fRec78[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph79 = FAUSTFLOAT(fRec78[0]); + output39[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = double(input40[i]); + fRec81[0] = max((fRec81[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp79)))))); + fVbargraph80 = FAUSTFLOAT(fRec81[0]); + double fTemp80 = (0.27735009811261457 * fTemp79); + fRec80[0] = max((fRec80[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph81 = FAUSTFLOAT(fRec80[0]); + output40[i] = FAUSTFLOAT(fTemp80); + double fTemp81 = double(input41[i]); + fRec83[0] = max((fRec83[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp81)))))); + fVbargraph82 = FAUSTFLOAT(fRec83[0]); + double fTemp82 = (0.27735009811261457 * fTemp81); + fRec82[0] = max((fRec82[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph83 = FAUSTFLOAT(fRec82[0]); + output41[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = double(input42[i]); + fRec85[0] = max((fRec85[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph84 = FAUSTFLOAT(fRec85[0]); + double fTemp84 = (0.27735009811261457 * fTemp83); + fRec84[0] = max((fRec84[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph85 = FAUSTFLOAT(fRec84[0]); + output42[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = double(input43[i]); + fRec87[0] = max((fRec87[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph86 = FAUSTFLOAT(fRec87[0]); + double fTemp86 = (0.27735009811261457 * fTemp85); + fRec86[0] = max((fRec86[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph87 = FAUSTFLOAT(fRec86[0]); + output43[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = double(input44[i]); + fRec89[0] = max((fRec89[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph88 = FAUSTFLOAT(fRec89[0]); + double fTemp88 = (0.27735009811261457 * fTemp87); + fRec88[0] = max((fRec88[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph89 = FAUSTFLOAT(fRec88[0]); + output44[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = double(input45[i]); + fRec91[0] = max((fRec91[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph90 = FAUSTFLOAT(fRec91[0]); + double fTemp90 = (0.27735009811261457 * fTemp89); + fRec90[0] = max((fRec90[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph91 = FAUSTFLOAT(fRec90[0]); + output45[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = double(input46[i]); + fRec93[0] = max((fRec93[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph92 = FAUSTFLOAT(fRec93[0]); + double fTemp92 = (0.27735009811261457 * fTemp91); + fRec92[0] = max((fRec92[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph93 = FAUSTFLOAT(fRec92[0]); + output46[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = double(input47[i]); + fRec95[0] = max((fRec95[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph94 = FAUSTFLOAT(fRec95[0]); + double fTemp94 = (0.27735009811261457 * fTemp93); + fRec94[0] = max((fRec94[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph95 = FAUSTFLOAT(fRec94[0]); + output47[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = double(input48[i]); + fRec97[0] = max((fRec97[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph96 = FAUSTFLOAT(fRec97[0]); + double fTemp96 = (0.27735009811261457 * fTemp95); + fRec96[0] = max((fRec96[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph97 = FAUSTFLOAT(fRec96[0]); + output48[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = double(input49[i]); + fRec99[0] = max((fRec99[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph98 = FAUSTFLOAT(fRec99[0]); + double fTemp98 = (0.2581988897471611 * fTemp97); + fRec98[0] = max((fRec98[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph99 = FAUSTFLOAT(fRec98[0]); + output49[i] = FAUSTFLOAT(fTemp98); + double fTemp99 = double(input50[i]); + fRec101[0] = max((fRec101[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp99)))))); + fVbargraph100 = FAUSTFLOAT(fRec101[0]); + double fTemp100 = (0.2581988897471611 * fTemp99); + fRec100[0] = max((fRec100[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph101 = FAUSTFLOAT(fRec100[0]); + output50[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = double(input51[i]); + fRec103[0] = max((fRec103[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp101)))))); + fVbargraph102 = FAUSTFLOAT(fRec103[0]); + double fTemp102 = (0.2581988897471611 * fTemp101); + fRec102[0] = max((fRec102[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph103 = FAUSTFLOAT(fRec102[0]); + output51[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = double(input52[i]); + fRec105[0] = max((fRec105[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph104 = FAUSTFLOAT(fRec105[0]); + double fTemp104 = (0.2581988897471611 * fTemp103); + fRec104[0] = max((fRec104[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph105 = FAUSTFLOAT(fRec104[0]); + output52[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = double(input53[i]); + fRec107[0] = max((fRec107[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph106 = FAUSTFLOAT(fRec107[0]); + double fTemp106 = (0.2581988897471611 * fTemp105); + fRec106[0] = max((fRec106[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph107 = FAUSTFLOAT(fRec106[0]); + output53[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = double(input54[i]); + fRec109[0] = max((fRec109[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph108 = FAUSTFLOAT(fRec109[0]); + double fTemp108 = (0.2581988897471611 * fTemp107); + fRec108[0] = max((fRec108[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph109 = FAUSTFLOAT(fRec108[0]); + output54[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = double(input55[i]); + fRec111[0] = max((fRec111[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp109)))))); + fVbargraph110 = FAUSTFLOAT(fRec111[0]); + double fTemp110 = (0.2581988897471611 * fTemp109); + fRec110[0] = max((fRec110[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp110)))))); + fVbargraph111 = FAUSTFLOAT(fRec110[0]); + output55[i] = FAUSTFLOAT(fTemp110); + double fTemp111 = double(input56[i]); + fRec113[0] = max((fRec113[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp111)))))); + fVbargraph112 = FAUSTFLOAT(fRec113[0]); + double fTemp112 = (0.2581988897471611 * fTemp111); + fRec112[0] = max((fRec112[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp112)))))); + fVbargraph113 = FAUSTFLOAT(fRec112[0]); + output56[i] = FAUSTFLOAT(fTemp112); + double fTemp113 = double(input57[i]); + fRec115[0] = max((fRec115[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp113)))))); + fVbargraph114 = FAUSTFLOAT(fRec115[0]); + double fTemp114 = (0.2581988897471611 * fTemp113); + fRec114[0] = max((fRec114[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp114)))))); + fVbargraph115 = FAUSTFLOAT(fRec114[0]); + output57[i] = FAUSTFLOAT(fTemp114); + double fTemp115 = double(input58[i]); + fRec117[0] = max((fRec117[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp115)))))); + fVbargraph116 = FAUSTFLOAT(fRec117[0]); + double fTemp116 = (0.2581988897471611 * fTemp115); + fRec116[0] = max((fRec116[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp116)))))); + fVbargraph117 = FAUSTFLOAT(fRec116[0]); + output58[i] = FAUSTFLOAT(fTemp116); + double fTemp117 = double(input59[i]); + fRec119[0] = max((fRec119[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp117)))))); + fVbargraph118 = FAUSTFLOAT(fRec119[0]); + double fTemp118 = (0.2581988897471611 * fTemp117); + fRec118[0] = max((fRec118[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp118)))))); + fVbargraph119 = FAUSTFLOAT(fRec118[0]); + output59[i] = FAUSTFLOAT(fTemp118); + double fTemp119 = double(input60[i]); + fRec121[0] = max((fRec121[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp119)))))); + fVbargraph120 = FAUSTFLOAT(fRec121[0]); + double fTemp120 = (0.2581988897471611 * fTemp119); + fRec120[0] = max((fRec120[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp120)))))); + fVbargraph121 = FAUSTFLOAT(fRec120[0]); + output60[i] = FAUSTFLOAT(fTemp120); + double fTemp121 = double(input61[i]); + fRec123[0] = max((fRec123[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp121)))))); + fVbargraph122 = FAUSTFLOAT(fRec123[0]); + double fTemp122 = (0.2581988897471611 * fTemp121); + fRec122[0] = max((fRec122[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp122)))))); + fVbargraph123 = FAUSTFLOAT(fRec122[0]); + output61[i] = FAUSTFLOAT(fTemp122); + double fTemp123 = double(input62[i]); + fRec125[0] = max((fRec125[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp123)))))); + fVbargraph124 = FAUSTFLOAT(fRec125[0]); + double fTemp124 = (0.2581988897471611 * fTemp123); + fRec124[0] = max((fRec124[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp124)))))); + fVbargraph125 = FAUSTFLOAT(fRec124[0]); + output62[i] = FAUSTFLOAT(fTemp124); + double fTemp125 = double(input63[i]); + fRec127[0] = max((fRec127[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp125)))))); + fVbargraph126 = FAUSTFLOAT(fRec127[0]); + double fTemp126 = (0.2581988897471611 * fTemp125); + fRec126[0] = max((fRec126[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp126)))))); + fVbargraph127 = FAUSTFLOAT(fRec126[0]); + output63[i] = FAUSTFLOAT(fTemp126); + double fTemp127 = double(input64[i]); + fRec129[0] = max((fRec129[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp127)))))); + fVbargraph128 = FAUSTFLOAT(fRec129[0]); + double fTemp128 = (0.24253562503633297 * fTemp127); + fRec128[0] = max((fRec128[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp128)))))); + fVbargraph129 = FAUSTFLOAT(fRec128[0]); + output64[i] = FAUSTFLOAT(fTemp128); + double fTemp129 = double(input65[i]); + fRec131[0] = max((fRec131[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp129)))))); + fVbargraph130 = FAUSTFLOAT(fRec131[0]); + double fTemp130 = (0.24253562503633297 * fTemp129); + fRec130[0] = max((fRec130[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp130)))))); + fVbargraph131 = FAUSTFLOAT(fRec130[0]); + output65[i] = FAUSTFLOAT(fTemp130); + double fTemp131 = double(input66[i]); + fRec133[0] = max((fRec133[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp131)))))); + fVbargraph132 = FAUSTFLOAT(fRec133[0]); + double fTemp132 = (0.24253562503633297 * fTemp131); + fRec132[0] = max((fRec132[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp132)))))); + fVbargraph133 = FAUSTFLOAT(fRec132[0]); + output66[i] = FAUSTFLOAT(fTemp132); + double fTemp133 = double(input67[i]); + fRec135[0] = max((fRec135[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp133)))))); + fVbargraph134 = FAUSTFLOAT(fRec135[0]); + double fTemp134 = (0.24253562503633297 * fTemp133); + fRec134[0] = max((fRec134[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp134)))))); + fVbargraph135 = FAUSTFLOAT(fRec134[0]); + output67[i] = FAUSTFLOAT(fTemp134); + double fTemp135 = double(input68[i]); + fRec137[0] = max((fRec137[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp135)))))); + fVbargraph136 = FAUSTFLOAT(fRec137[0]); + double fTemp136 = (0.24253562503633297 * fTemp135); + fRec136[0] = max((fRec136[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp136)))))); + fVbargraph137 = FAUSTFLOAT(fRec136[0]); + output68[i] = FAUSTFLOAT(fTemp136); + double fTemp137 = double(input69[i]); + fRec139[0] = max((fRec139[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp137)))))); + fVbargraph138 = FAUSTFLOAT(fRec139[0]); + double fTemp138 = (0.24253562503633297 * fTemp137); + fRec138[0] = max((fRec138[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp138)))))); + fVbargraph139 = FAUSTFLOAT(fRec138[0]); + output69[i] = FAUSTFLOAT(fTemp138); + double fTemp139 = double(input70[i]); + fRec141[0] = max((fRec141[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp139)))))); + fVbargraph140 = FAUSTFLOAT(fRec141[0]); + double fTemp140 = (0.24253562503633297 * fTemp139); + fRec140[0] = max((fRec140[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp140)))))); + fVbargraph141 = FAUSTFLOAT(fRec140[0]); + output70[i] = FAUSTFLOAT(fTemp140); + double fTemp141 = double(input71[i]); + fRec143[0] = max((fRec143[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp141)))))); + fVbargraph142 = FAUSTFLOAT(fRec143[0]); + double fTemp142 = (0.24253562503633297 * fTemp141); + fRec142[0] = max((fRec142[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp142)))))); + fVbargraph143 = FAUSTFLOAT(fRec142[0]); + output71[i] = FAUSTFLOAT(fTemp142); + double fTemp143 = double(input72[i]); + fRec145[0] = max((fRec145[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp143)))))); + fVbargraph144 = FAUSTFLOAT(fRec145[0]); + double fTemp144 = (0.24253562503633297 * fTemp143); + fRec144[0] = max((fRec144[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp144)))))); + fVbargraph145 = FAUSTFLOAT(fRec144[0]); + output72[i] = FAUSTFLOAT(fTemp144); + double fTemp145 = double(input73[i]); + fRec147[0] = max((fRec147[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp145)))))); + fVbargraph146 = FAUSTFLOAT(fRec147[0]); + double fTemp146 = (0.24253562503633297 * fTemp145); + fRec146[0] = max((fRec146[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp146)))))); + fVbargraph147 = FAUSTFLOAT(fRec146[0]); + output73[i] = FAUSTFLOAT(fTemp146); + double fTemp147 = double(input74[i]); + fRec149[0] = max((fRec149[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp147)))))); + fVbargraph148 = FAUSTFLOAT(fRec149[0]); + double fTemp148 = (0.24253562503633297 * fTemp147); + fRec148[0] = max((fRec148[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp148)))))); + fVbargraph149 = FAUSTFLOAT(fRec148[0]); + output74[i] = FAUSTFLOAT(fTemp148); + double fTemp149 = double(input75[i]); + fRec151[0] = max((fRec151[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp149)))))); + fVbargraph150 = FAUSTFLOAT(fRec151[0]); + double fTemp150 = (0.24253562503633297 * fTemp149); + fRec150[0] = max((fRec150[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp150)))))); + fVbargraph151 = FAUSTFLOAT(fRec150[0]); + output75[i] = FAUSTFLOAT(fTemp150); + double fTemp151 = double(input76[i]); + fRec153[0] = max((fRec153[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp151)))))); + fVbargraph152 = FAUSTFLOAT(fRec153[0]); + double fTemp152 = (0.24253562503633297 * fTemp151); + fRec152[0] = max((fRec152[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp152)))))); + fVbargraph153 = FAUSTFLOAT(fRec152[0]); + output76[i] = FAUSTFLOAT(fTemp152); + double fTemp153 = double(input77[i]); + fRec155[0] = max((fRec155[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp153)))))); + fVbargraph154 = FAUSTFLOAT(fRec155[0]); + double fTemp154 = (0.24253562503633297 * fTemp153); + fRec154[0] = max((fRec154[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp154)))))); + fVbargraph155 = FAUSTFLOAT(fRec154[0]); + output77[i] = FAUSTFLOAT(fTemp154); + double fTemp155 = double(input78[i]); + fRec157[0] = max((fRec157[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp155)))))); + fVbargraph156 = FAUSTFLOAT(fRec157[0]); + double fTemp156 = (0.24253562503633297 * fTemp155); + fRec156[0] = max((fRec156[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp156)))))); + fVbargraph157 = FAUSTFLOAT(fRec156[0]); + output78[i] = FAUSTFLOAT(fTemp156); + double fTemp157 = double(input79[i]); + fRec159[0] = max((fRec159[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp157)))))); + fVbargraph158 = FAUSTFLOAT(fRec159[0]); + double fTemp158 = (0.24253562503633297 * fTemp157); + fRec158[0] = max((fRec158[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp158)))))); + fVbargraph159 = FAUSTFLOAT(fRec158[0]); + output79[i] = FAUSTFLOAT(fTemp158); + double fTemp159 = double(input80[i]); + fRec161[0] = max((fRec161[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp159)))))); + fVbargraph160 = FAUSTFLOAT(fRec161[0]); + double fTemp160 = (0.24253562503633297 * fTemp159); + fRec160[0] = max((fRec160[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp160)))))); + fVbargraph161 = FAUSTFLOAT(fRec160[0]); + output80[i] = FAUSTFLOAT(fTemp160); + double fTemp161 = double(input81[i]); + fRec163[0] = max((fRec163[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp161)))))); + fVbargraph162 = FAUSTFLOAT(fRec163[0]); + double fTemp162 = (0.22941573387056174 * fTemp161); + fRec162[0] = max((fRec162[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp162)))))); + fVbargraph163 = FAUSTFLOAT(fRec162[0]); + output81[i] = FAUSTFLOAT(fTemp162); + double fTemp163 = double(input82[i]); + fRec165[0] = max((fRec165[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp163)))))); + fVbargraph164 = FAUSTFLOAT(fRec165[0]); + double fTemp164 = (0.22941573387056174 * fTemp163); + fRec164[0] = max((fRec164[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp164)))))); + fVbargraph165 = FAUSTFLOAT(fRec164[0]); + output82[i] = FAUSTFLOAT(fTemp164); + double fTemp165 = double(input83[i]); + fRec167[0] = max((fRec167[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp165)))))); + fVbargraph166 = FAUSTFLOAT(fRec167[0]); + double fTemp166 = (0.22941573387056174 * fTemp165); + fRec166[0] = max((fRec166[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp166)))))); + fVbargraph167 = FAUSTFLOAT(fRec166[0]); + output83[i] = FAUSTFLOAT(fTemp166); + double fTemp167 = double(input84[i]); + fRec169[0] = max((fRec169[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp167)))))); + fVbargraph168 = FAUSTFLOAT(fRec169[0]); + double fTemp168 = (0.22941573387056174 * fTemp167); + fRec168[0] = max((fRec168[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp168)))))); + fVbargraph169 = FAUSTFLOAT(fRec168[0]); + output84[i] = FAUSTFLOAT(fTemp168); + double fTemp169 = double(input85[i]); + fRec171[0] = max((fRec171[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp169)))))); + fVbargraph170 = FAUSTFLOAT(fRec171[0]); + double fTemp170 = (0.22941573387056174 * fTemp169); + fRec170[0] = max((fRec170[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp170)))))); + fVbargraph171 = FAUSTFLOAT(fRec170[0]); + output85[i] = FAUSTFLOAT(fTemp170); + double fTemp171 = double(input86[i]); + fRec173[0] = max((fRec173[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp171)))))); + fVbargraph172 = FAUSTFLOAT(fRec173[0]); + double fTemp172 = (0.22941573387056174 * fTemp171); + fRec172[0] = max((fRec172[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp172)))))); + fVbargraph173 = FAUSTFLOAT(fRec172[0]); + output86[i] = FAUSTFLOAT(fTemp172); + double fTemp173 = double(input87[i]); + fRec175[0] = max((fRec175[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp173)))))); + fVbargraph174 = FAUSTFLOAT(fRec175[0]); + double fTemp174 = (0.22941573387056174 * fTemp173); + fRec174[0] = max((fRec174[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp174)))))); + fVbargraph175 = FAUSTFLOAT(fRec174[0]); + output87[i] = FAUSTFLOAT(fTemp174); + double fTemp175 = double(input88[i]); + fRec177[0] = max((fRec177[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp175)))))); + fVbargraph176 = FAUSTFLOAT(fRec177[0]); + double fTemp176 = (0.22941573387056174 * fTemp175); + fRec176[0] = max((fRec176[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp176)))))); + fVbargraph177 = FAUSTFLOAT(fRec176[0]); + output88[i] = FAUSTFLOAT(fTemp176); + double fTemp177 = double(input89[i]); + fRec179[0] = max((fRec179[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp177)))))); + fVbargraph178 = FAUSTFLOAT(fRec179[0]); + double fTemp178 = (0.22941573387056174 * fTemp177); + fRec178[0] = max((fRec178[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp178)))))); + fVbargraph179 = FAUSTFLOAT(fRec178[0]); + output89[i] = FAUSTFLOAT(fTemp178); + double fTemp179 = double(input90[i]); + fRec181[0] = max((fRec181[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp179)))))); + fVbargraph180 = FAUSTFLOAT(fRec181[0]); + double fTemp180 = (0.22941573387056174 * fTemp179); + fRec180[0] = max((fRec180[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp180)))))); + fVbargraph181 = FAUSTFLOAT(fRec180[0]); + output90[i] = FAUSTFLOAT(fTemp180); + double fTemp181 = double(input91[i]); + fRec183[0] = max((fRec183[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp181)))))); + fVbargraph182 = FAUSTFLOAT(fRec183[0]); + double fTemp182 = (0.22941573387056174 * fTemp181); + fRec182[0] = max((fRec182[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp182)))))); + fVbargraph183 = FAUSTFLOAT(fRec182[0]); + output91[i] = FAUSTFLOAT(fTemp182); + double fTemp183 = double(input92[i]); + fRec185[0] = max((fRec185[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp183)))))); + fVbargraph184 = FAUSTFLOAT(fRec185[0]); + double fTemp184 = (0.22941573387056174 * fTemp183); + fRec184[0] = max((fRec184[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp184)))))); + fVbargraph185 = FAUSTFLOAT(fRec184[0]); + output92[i] = FAUSTFLOAT(fTemp184); + double fTemp185 = double(input93[i]); + fRec187[0] = max((fRec187[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp185)))))); + fVbargraph186 = FAUSTFLOAT(fRec187[0]); + double fTemp186 = (0.22941573387056174 * fTemp185); + fRec186[0] = max((fRec186[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp186)))))); + fVbargraph187 = FAUSTFLOAT(fRec186[0]); + output93[i] = FAUSTFLOAT(fTemp186); + double fTemp187 = double(input94[i]); + fRec189[0] = max((fRec189[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp187)))))); + fVbargraph188 = FAUSTFLOAT(fRec189[0]); + double fTemp188 = (0.22941573387056174 * fTemp187); + fRec188[0] = max((fRec188[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp188)))))); + fVbargraph189 = FAUSTFLOAT(fRec188[0]); + output94[i] = FAUSTFLOAT(fTemp188); + double fTemp189 = double(input95[i]); + fRec191[0] = max((fRec191[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp189)))))); + fVbargraph190 = FAUSTFLOAT(fRec191[0]); + double fTemp190 = (0.22941573387056174 * fTemp189); + fRec190[0] = max((fRec190[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp190)))))); + fVbargraph191 = FAUSTFLOAT(fRec190[0]); + output95[i] = FAUSTFLOAT(fTemp190); + double fTemp191 = double(input96[i]); + fRec193[0] = max((fRec193[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp191)))))); + fVbargraph192 = FAUSTFLOAT(fRec193[0]); + double fTemp192 = (0.22941573387056174 * fTemp191); + fRec192[0] = max((fRec192[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp192)))))); + fVbargraph193 = FAUSTFLOAT(fRec192[0]); + output96[i] = FAUSTFLOAT(fTemp192); + double fTemp193 = double(input97[i]); + fRec195[0] = max((fRec195[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp193)))))); + fVbargraph194 = FAUSTFLOAT(fRec195[0]); + double fTemp194 = (0.22941573387056174 * fTemp193); + fRec194[0] = max((fRec194[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp194)))))); + fVbargraph195 = FAUSTFLOAT(fRec194[0]); + output97[i] = FAUSTFLOAT(fTemp194); + double fTemp195 = double(input98[i]); + fRec197[0] = max((fRec197[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp195)))))); + fVbargraph196 = FAUSTFLOAT(fRec197[0]); + double fTemp196 = (0.22941573387056174 * fTemp195); + fRec196[0] = max((fRec196[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp196)))))); + fVbargraph197 = FAUSTFLOAT(fRec196[0]); + output98[i] = FAUSTFLOAT(fTemp196); + double fTemp197 = double(input99[i]); + fRec199[0] = max((fRec199[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp197)))))); + fVbargraph198 = FAUSTFLOAT(fRec199[0]); + double fTemp198 = (0.22941573387056174 * fTemp197); + fRec198[0] = max((fRec198[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp198)))))); + fVbargraph199 = FAUSTFLOAT(fRec198[0]); + output99[i] = FAUSTFLOAT(fTemp198); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec37[1] = fRec37[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec47[1] = fRec47[0]; + fRec46[1] = fRec46[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec51[1] = fRec51[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec55[1] = fRec55[0]; + fRec54[1] = fRec54[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec62[1] = fRec62[0]; + fRec65[1] = fRec65[0]; + fRec64[1] = fRec64[0]; + fRec67[1] = fRec67[0]; + fRec66[1] = fRec66[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec71[1] = fRec71[0]; + fRec70[1] = fRec70[0]; + fRec73[1] = fRec73[0]; + fRec72[1] = fRec72[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec77[1] = fRec77[0]; + fRec76[1] = fRec76[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec81[1] = fRec81[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec82[1] = fRec82[0]; + fRec85[1] = fRec85[0]; + fRec84[1] = fRec84[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec89[1] = fRec89[0]; + fRec88[1] = fRec88[0]; + fRec91[1] = fRec91[0]; + fRec90[1] = fRec90[0]; + fRec93[1] = fRec93[0]; + fRec92[1] = fRec92[0]; + fRec95[1] = fRec95[0]; + fRec94[1] = fRec94[0]; + fRec97[1] = fRec97[0]; + fRec96[1] = fRec96[0]; + fRec99[1] = fRec99[0]; + fRec98[1] = fRec98[0]; + fRec101[1] = fRec101[0]; + fRec100[1] = fRec100[0]; + fRec103[1] = fRec103[0]; + fRec102[1] = fRec102[0]; + fRec105[1] = fRec105[0]; + fRec104[1] = fRec104[0]; + fRec107[1] = fRec107[0]; + fRec106[1] = fRec106[0]; + fRec109[1] = fRec109[0]; + fRec108[1] = fRec108[0]; + fRec111[1] = fRec111[0]; + fRec110[1] = fRec110[0]; + fRec113[1] = fRec113[0]; + fRec112[1] = fRec112[0]; + fRec115[1] = fRec115[0]; + fRec114[1] = fRec114[0]; + fRec117[1] = fRec117[0]; + fRec116[1] = fRec116[0]; + fRec119[1] = fRec119[0]; + fRec118[1] = fRec118[0]; + fRec121[1] = fRec121[0]; + fRec120[1] = fRec120[0]; + fRec123[1] = fRec123[0]; + fRec122[1] = fRec122[0]; + fRec125[1] = fRec125[0]; + fRec124[1] = fRec124[0]; + fRec127[1] = fRec127[0]; + fRec126[1] = fRec126[0]; + fRec129[1] = fRec129[0]; + fRec128[1] = fRec128[0]; + fRec131[1] = fRec131[0]; + fRec130[1] = fRec130[0]; + fRec133[1] = fRec133[0]; + fRec132[1] = fRec132[0]; + fRec135[1] = fRec135[0]; + fRec134[1] = fRec134[0]; + fRec137[1] = fRec137[0]; + fRec136[1] = fRec136[0]; + fRec139[1] = fRec139[0]; + fRec138[1] = fRec138[0]; + fRec141[1] = fRec141[0]; + fRec140[1] = fRec140[0]; + fRec143[1] = fRec143[0]; + fRec142[1] = fRec142[0]; + fRec145[1] = fRec145[0]; + fRec144[1] = fRec144[0]; + fRec147[1] = fRec147[0]; + fRec146[1] = fRec146[0]; + fRec149[1] = fRec149[0]; + fRec148[1] = fRec148[0]; + fRec151[1] = fRec151[0]; + fRec150[1] = fRec150[0]; + fRec153[1] = fRec153[0]; + fRec152[1] = fRec152[0]; + fRec155[1] = fRec155[0]; + fRec154[1] = fRec154[0]; + fRec157[1] = fRec157[0]; + fRec156[1] = fRec156[0]; + fRec159[1] = fRec159[0]; + fRec158[1] = fRec158[0]; + fRec161[1] = fRec161[0]; + fRec160[1] = fRec160[0]; + fRec163[1] = fRec163[0]; + fRec162[1] = fRec162[0]; + fRec165[1] = fRec165[0]; + fRec164[1] = fRec164[0]; + fRec167[1] = fRec167[0]; + fRec166[1] = fRec166[0]; + fRec169[1] = fRec169[0]; + fRec168[1] = fRec168[0]; + fRec171[1] = fRec171[0]; + fRec170[1] = fRec170[0]; + fRec173[1] = fRec173[0]; + fRec172[1] = fRec172[0]; + fRec175[1] = fRec175[0]; + fRec174[1] = fRec174[0]; + fRec177[1] = fRec177[0]; + fRec176[1] = fRec176[0]; + fRec179[1] = fRec179[0]; + fRec178[1] = fRec178[0]; + fRec181[1] = fRec181[0]; + fRec180[1] = fRec180[0]; + fRec183[1] = fRec183[0]; + fRec182[1] = fRec182[0]; + fRec185[1] = fRec185[0]; + fRec184[1] = fRec184[0]; + fRec187[1] = fRec187[0]; + fRec186[1] = fRec186[0]; + fRec189[1] = fRec189[0]; + fRec188[1] = fRec188[0]; + fRec191[1] = fRec191[0]; + fRec190[1] = fRec190[0]; + fRec193[1] = fRec193[0]; + fRec192[1] = fRec192[0]; + fRec195[1] = fRec195[0]; + fRec194[1] = fRec194[0]; + fRec197[1] = fRec197[0]; + fRec196[1] = fRec196[0]; + fRec199[1] = fRec199[0]; + fRec198[1] = fRec198[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2FuMa1.cpp b/source/HOAUGens/HOAConverterAcnN3d2FuMa1.cpp new file mode 100644 index 0000000000..dc97ccb3b6 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2FuMa1.cpp @@ -0,0 +1,1254 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2FuMa1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2FuMa1"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2FuMa1"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c25170", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c39400", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c43310", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c2f250", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c296e0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c337c0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c3d5f0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1c475e0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (0.70710678118654746 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp3 = (0.57735026918962584 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input1[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = (0.57735026918962584 * fTemp4); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input2[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.57735026918962584 * fTemp6); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp7); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2FuMa2.cpp b/source/HOAUGens/HOAConverterAcnN3d2FuMa2.cpp new file mode 100644 index 0000000000..6cc77d8554 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2FuMa2.cpp @@ -0,0 +1,1453 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2FuMa2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2FuMa2"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2FuMa2"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2357170", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x236b400", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2375310", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2361250", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23a80e0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2393ca0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x237f310", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2389850", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x239dbb0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x235b6e0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23657c0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x236f5f0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23795e0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2383960", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x238dea0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2397f70", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23a23c0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23ac3b0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (0.70710678118654746 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp3 = (0.57735026918962584 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input1[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = (0.57735026918962584 * fTemp4); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input2[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.57735026918962584 * fTemp6); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = double(input6[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp9 = (0.44721359549995793 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input7[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp11 = (0.5163977794943222 * fTemp10); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input5[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp13 = (0.5163977794943222 * fTemp12); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = double(input8[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp15 = (0.5163977794943222 * fTemp14); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = double(input4[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp17 = (0.5163977794943222 * fTemp16); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp17); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnN3d2FuMa3.cpp b/source/HOAUGens/HOAConverterAcnN3d2FuMa3.cpp new file mode 100644 index 0000000000..8491a31417 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnN3d2FuMa3.cpp @@ -0,0 +1,1730 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnN3d2FuMa3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnN3d2FuMa3"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnN3d2FuMa3"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ad9fb0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2aee240", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2af8150", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ae4090", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b2af20", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b16ae0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b02150", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b0c690", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b209f0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b739e0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b5eb10", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b49ee0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b351d0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b3f8d0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b54420", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b68f70", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ade520", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ae8600", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2af2430", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2afc420", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b067a0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b10ce0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b1adb0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b25200", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b2f1f0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b39900", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b44000", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b4e530", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b58d10", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b62ec0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b6da20", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b77d90", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (0.70710678118654746 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp3 = (0.57735026918962584 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input1[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = (0.57735026918962584 * fTemp4); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input2[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.57735026918962584 * fTemp6); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = double(input6[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp9 = (0.44721359549995793 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input7[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp11 = (0.5163977794943222 * fTemp10); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input5[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp13 = (0.5163977794943222 * fTemp12); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = double(input8[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp15 = (0.5163977794943222 * fTemp14); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = double(input4[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp17 = (0.5163977794943222 * fTemp16); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = double(input12[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp19 = (0.3779644730092272 * fTemp18); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = double(input13[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp21 = (0.44821072850039761 * fTemp20); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp23 = (0.44821072850039761 * fTemp22); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = double(input14[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp25 = (0.50709255283710997 * fTemp24); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = double(input10[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp27 = (0.50709255283710997 * fTemp26); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = double(input15[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp29 = (0.47809144373375745 * fTemp28); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = double(input9[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp31 = (0.47809144373375745 * fTemp30); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp31); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnSn3d2FuMa1.cpp b/source/HOAUGens/HOAConverterAcnSn3d2FuMa1.cpp new file mode 100644 index 0000000000..8804007e14 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnSn3d2FuMa1.cpp @@ -0,0 +1,1251 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnSn3d2FuMa1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnSn3d2FuMa1"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnSn3d2FuMa1"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x360f430", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3623110", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x362cc30", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3619350", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36139a0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x361d4d0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3626f10", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3630b10", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (0.70710678118654746 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input1[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input2[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp4); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnSn3d2FuMa2.cpp b/source/HOAUGens/HOAConverterAcnSn3d2FuMa2.cpp new file mode 100644 index 0000000000..bb5d96dec9 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnSn3d2FuMa2.cpp @@ -0,0 +1,1449 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnSn3d2FuMa2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnSn3d2FuMa2"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnSn3d2FuMa2"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b56970", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b6a640", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b74160", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b60880", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ba6580", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b92140", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b7dba0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b87cf0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b9c050", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b5aee0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b64a00", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b6e440", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b78040", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b81e00", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b8c340", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1b96410", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ba0860", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1baa850", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (0.70710678118654746 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input1[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input2[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input6[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input7[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp7 = (1.1547005383792515 * fTemp6); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = double(input5[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp9 = (1.1547005383792515 * fTemp8); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input8[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp11 = (1.1547005383792515 * fTemp10); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input4[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp13 = (1.1547005383792515 * fTemp12); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp13); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterAcnSn3d2FuMa3.cpp b/source/HOAUGens/HOAConverterAcnSn3d2FuMa3.cpp new file mode 100644 index 0000000000..2caf6daae7 --- /dev/null +++ b/source/HOAUGens/HOAConverterAcnSn3d2FuMa3.cpp @@ -0,0 +1,1725 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterAcnSn3d2FuMa3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterAcnSn3d2FuMa3"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterAcnSn3d2FuMa3"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30fa680", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x310e350", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3117e70", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3104590", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314a290", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3135e50", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31218b0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312ba00", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313fd60", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3192780", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317d8b0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3168c80", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3154360", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x315e670", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31731c0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3187d10", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30febf0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3108710", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3112150", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311bd50", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3125b10", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3130050", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313a120", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3144570", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314e560", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31586a0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3162da0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316d2d0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3177ab0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3181c60", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318c7c0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3196b30", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (0.70710678118654746 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input3[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input1[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input2[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input6[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input7[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp7 = (1.1547005383792515 * fTemp6); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = double(input5[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp9 = (1.1547005383792515 * fTemp8); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input8[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp11 = (1.1547005383792515 * fTemp10); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input4[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp13 = (1.1547005383792515 * fTemp12); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = double(input12[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = double(input13[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp16 = (1.1858541225631423 * fTemp15); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp18 = (1.1858541225631423 * fTemp17); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = double(input14[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp20 = (1.3416407864998738 * fTemp19); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input10[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp22 = (1.3416407864998738 * fTemp21); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input15[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp24 = (1.2649110640673518 * fTemp23); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input9[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp26 = (1.2649110640673518 * fTemp25); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp26); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterFuma2AcnN3d1.cpp b/source/HOAUGens/HOAConverterFuma2AcnN3d1.cpp new file mode 100644 index 0000000000..865abe3395 --- /dev/null +++ b/source/HOAUGens/HOAConverterFuma2AcnN3d1.cpp @@ -0,0 +1,1254 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterFuma2AcnN3d1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterFuma2AcnN3d1"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterFuma2AcnN3d1"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3115e90", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3134110", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311ff70", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312a120", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311a400", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31244e0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312e690", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3138300", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (1.4142135623730951 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input2[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp3 = (1.7320508075688772 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input3[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = (1.7320508075688772 * fTemp4); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (1.7320508075688772 * fTemp6); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp7); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterFuma2AcnN3d2.cpp b/source/HOAUGens/HOAConverterFuma2AcnN3d2.cpp new file mode 100644 index 0000000000..48ae54911e --- /dev/null +++ b/source/HOAUGens/HOAConverterFuma2AcnN3d2.cpp @@ -0,0 +1,1453 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterFuma2AcnN3d2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterFuma2AcnN3d2"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterFuma2AcnN3d2"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d64c60", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d82ef0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d6ed40", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d78ef0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2da16c0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dab5d0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d97180", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2db5940", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d8ce10", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d691d0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d732b0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d7d460", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d870e0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d91460", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d9b6f0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2da5990", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2daf980", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2db9eb0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (1.4142135623730951 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input2[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp3 = (1.7320508075688772 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input3[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = (1.7320508075688772 * fTemp4); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (1.7320508075688772 * fTemp6); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = double(input8[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp9 = (1.9364916731037085 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input6[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp11 = (1.9364916731037085 * fTemp10); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input4[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp13 = (2.2360679774997898 * fTemp12); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = double(input5[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp15 = (1.9364916731037085 * fTemp14); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = double(input7[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp17 = (1.9364916731037085 * fTemp16); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp17); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterFuma2AcnN3d3.cpp b/source/HOAUGens/HOAConverterFuma2AcnN3d3.cpp new file mode 100644 index 0000000000..c306d24599 --- /dev/null +++ b/source/HOAUGens/HOAConverterFuma2AcnN3d3.cpp @@ -0,0 +1,1730 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterFuma2AcnN3d3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterFuma2AcnN3d3"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterFuma2AcnN3d3"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34bb850", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34d9ad0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34c5930", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34cfae0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34f82b0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35021c0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34edd60", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x350c530", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34e39f0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3535db0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3540210", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x352b870", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x354a580", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3521170", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3554e30", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3516a70", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN N3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34bfdc0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34c9ea0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34d4050", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34ddcc0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34e8040", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34f22d0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x34fc580", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3506570", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3510aa0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x351b1a0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35257c0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x352fec0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x353a170", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35446a0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x354ebd0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3559640", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (1.4142135623730951 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input2[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + double fTemp3 = (1.7320508075688772 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input3[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + double fTemp5 = (1.7320508075688772 * fTemp4); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (1.7320508075688772 * fTemp6); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = double(input8[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp9 = (1.9364916731037085 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input6[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp11 = (1.9364916731037085 * fTemp10); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input4[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + double fTemp13 = (2.2360679774997898 * fTemp12); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = double(input5[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp15 = (1.9364916731037085 * fTemp14); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = double(input7[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp17 = (1.9364916731037085 * fTemp16); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = double(input15[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp19 = (2.0916500663351889 * fTemp18); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = double(input13[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp21 = (1.9720265943665387 * fTemp20); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp23 = (2.2310934040908683 * fTemp22); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = double(input9[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + double fTemp25 = (2.6457513110645907 * fTemp24); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = double(input10[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp27 = (2.2310934040908683 * fTemp26); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = double(input12[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp29 = (1.9720265943665387 * fTemp28); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = double(input14[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp31 = (2.0916500663351889 * fTemp30); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp31); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterFuma2AcnSn3d1.cpp b/source/HOAUGens/HOAConverterFuma2AcnSn3d1.cpp new file mode 100644 index 0000000000..0f5328d281 --- /dev/null +++ b/source/HOAUGens/HOAConverterFuma2AcnSn3d1.cpp @@ -0,0 +1,1251 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterFuma2AcnSn3d1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterFuma2AcnSn3d1"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterFuma2AcnSn3d1"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b32820", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b500f0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b3c730", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b464f0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b36d90", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b408b0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b4a670", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b53ef0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (1.4142135623730951 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input2[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input3[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp4); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterFuma2AcnSn3d2.cpp b/source/HOAUGens/HOAConverterFuma2AcnSn3d2.cpp new file mode 100644 index 0000000000..949ae18b33 --- /dev/null +++ b/source/HOAUGens/HOAConverterFuma2AcnSn3d2.cpp @@ -0,0 +1,1449 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterFuma2AcnSn3d2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterFuma2AcnSn3d2"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterFuma2AcnSn3d2"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e51b0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a02a80", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ef0c0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f8e80", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a20c90", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a2a7b0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a16920", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a34b20", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a0c5b0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e9720", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f3240", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39fd000", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a06880", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a10c00", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a1ae90", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a24b70", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a2eb60", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a39090", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (1.4142135623730951 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input2[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input3[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input8[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp6 = (0.86602540378443871 * fTemp5); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input6[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp8 = (0.86602540378443871 * fTemp7); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input4[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input5[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp11 = (0.86602540378443871 * fTemp10); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input7[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp13 = (0.86602540378443871 * fTemp12); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp13); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAConverterFuma2AcnSn3d3.cpp b/source/HOAUGens/HOAConverterFuma2AcnSn3d3.cpp new file mode 100644 index 0000000000..47aa3ce25f --- /dev/null +++ b/source/HOAUGens/HOAConverterFuma2AcnSn3d3.cpp @@ -0,0 +1,1725 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOAConverterFuma2AcnSn3d3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fRec1[2]; + FAUSTFLOAT fVbargraph0; + double fRec0[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fRec2[2]; + FAUSTFLOAT fVbargraph3; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fRec4[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fRec6[2]; + FAUSTFLOAT fVbargraph7; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fRec8[2]; + FAUSTFLOAT fVbargraph9; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fRec10[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fRec12[2]; + FAUSTFLOAT fVbargraph13; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fRec14[2]; + FAUSTFLOAT fVbargraph15; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fRec16[2]; + FAUSTFLOAT fVbargraph17; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fRec18[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fRec20[2]; + FAUSTFLOAT fVbargraph21; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fRec22[2]; + FAUSTFLOAT fVbargraph23; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fRec24[2]; + FAUSTFLOAT fVbargraph25; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fRec26[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec28[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fRec30[2]; + FAUSTFLOAT fVbargraph31; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAConverterFuma2AcnSn3d3"); + m->declare("routes.lib/name", "Faust Signal Routing Library"); + m->declare("routes.lib/version", "0.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec6[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec10[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAConverterFuma2AcnSn3d3"); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("FuMa"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30e8120", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31059f0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30f2030", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30fbdf0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3123c00", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312d720", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3119890", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3137a90", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x310f520", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3161140", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316b1a0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3156dd0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3175510", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314c6d0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317fdc0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3141fd0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openHorizontalBox("ACN SN3D"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30ec690", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30f61b0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30fff70", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31097f0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3113b70", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311de00", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3127ae0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3131ad0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313c000", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3146700", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3150d20", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x315b420", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3165100", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316f630", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3179b60", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31845d0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + fRec1[0] = max((fRec1[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec1[0]); + double fTemp1 = (1.4142135623730951 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + double fTemp2 = double(input2[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph3 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp2); + double fTemp3 = double(input3[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph5 = FAUSTFLOAT(fRec4[0]); + output2[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph7 = FAUSTFLOAT(fRec6[0]); + output3[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = double(input8[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + double fTemp6 = (0.86602540378443871 * fTemp5); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph9 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = double(input6[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + double fTemp8 = (0.86602540378443871 * fTemp7); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph11 = FAUSTFLOAT(fRec10[0]); + output5[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = double(input4[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph13 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = double(input5[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + double fTemp11 = (0.86602540378443871 * fTemp10); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph15 = FAUSTFLOAT(fRec14[0]); + output7[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = double(input7[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + double fTemp13 = (0.86602540378443871 * fTemp12); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph17 = FAUSTFLOAT(fRec16[0]); + output8[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = double(input15[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + double fTemp15 = (0.79056941504209477 * fTemp14); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph19 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = double(input13[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + double fTemp17 = (0.7453559924999299 * fTemp16); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph21 = FAUSTFLOAT(fRec20[0]); + output10[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = double(input11[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + double fTemp19 = (0.84327404271156781 * fTemp18); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph23 = FAUSTFLOAT(fRec22[0]); + output11[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = double(input9[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph25 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = double(input10[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + double fTemp22 = (0.84327404271156781 * fTemp21); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph27 = FAUSTFLOAT(fRec26[0]); + output13[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = double(input12[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + double fTemp24 = (0.7453559924999299 * fTemp23); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph29 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = double(input14[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + double fTemp26 = (0.79056941504209477 * fTemp25); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph31 = FAUSTFLOAT(fRec30[0]); + output15[i] = FAUSTFLOAT(fTemp26); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec7[1] = fRec7[0]; + fRec6[1] = fRec6[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec11[1] = fRec11[0]; + fRec10[1] = fRec10[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec15[1] = fRec15[0]; + fRec14[1] = fRec14[0]; + fRec17[1] = fRec17[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec23[1] = fRec23[0]; + fRec22[1] = fRec22[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fRec31[1] = fRec31[0]; + fRec30[1] = fRec30[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecBinaural1.cpp b/source/HOAUGens/HOADecBinaural1.cpp new file mode 100644 index 0000000000..adde48bc27 --- /dev/null +++ b/source/HOAUGens/HOADecBinaural1.cpp @@ -0,0 +1,1263 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL)" +name: "HOADecBinaural1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + int IOTA; + double fVec0[128]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fVec1[128]; + double fRec5[2]; + FAUSTFLOAT fVbargraph2; + double fVec2[128]; + double fRec6[2]; + FAUSTFLOAT fVbargraph3; + double fVec3[128]; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + double fRec7[2]; + FAUSTFLOAT fHbargraph1; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filters.lib/name", "Faust Filters Library"); + m->declare("filters.lib/version", "0.0"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL)"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecBinaural1"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 2; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + IOTA = 0; + for (int l3 = 0; (l3 < 128); l3 = (l3 + 1)) { + fVec0[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 128); l5 = (l5 + 1)) { + fVec1[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec5[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 128); l7 = (l7 + 1)) { + fVec2[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec6[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 128); l9 = (l9 + 1)) { + fVec3[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec7[l11] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecBinaural1"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3606590", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35e5b70", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x35b95d0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x358e450", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 10"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 10"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("Left"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x36f74c0", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Right"); + ui_interface->declare(&fHbargraph1, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x37aca40", &fHbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow1 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input3[i])); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + fVec0[(IOTA & 127)] = fTemp0; + double fTemp1 = (fRec3[0] * double(input2[i])); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + fVec1[(IOTA & 127)] = fTemp1; + double fTemp2 = (fRec3[0] * double(input1[i])); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec5[0]); + fVec2[(IOTA & 127)] = fTemp2; + double fTemp3 = (fRec3[0] * double(input0[i])); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec6[0]); + fVec3[(IOTA & 127)] = fTemp3; + double fTemp4 = (fRec1[0] * (((2.4533100000000001e-06 * fVec0[((IOTA - 126) & 127)]) + ((1.70273e-06 * fVec0[((IOTA - 125) & 127)]) + ((8.0341699999999997e-06 * fVec0[((IOTA - 123) & 127)]) + ((3.8827600000000008e-05 * fVec0[((IOTA - 122) & 127)]) + ((0.000101833 * fVec0[((IOTA - 121) & 127)]) + ((0.000105639 * fVec0[((IOTA - 120) & 127)]) + ((3.9296600000000006e-05 * fVec0[((IOTA - 119) & 127)]) + ((3.85491e-05 * fVec0[((IOTA - 117) & 127)]) + ((0.00018456300000000003 * fVec0[((IOTA - 116) & 127)]) + ((0.000184012 * fVec0[((IOTA - 115) & 127)]) + ((0.0019589099999999999 * fVec0[((IOTA - 96) & 127)]) + ((0.0031713800000000001 * fVec0[((IOTA - 95) & 127)]) + ((0.00068253400000000005 * fVec0[((IOTA - 94) & 127)]) + ((0.00056285600000000003 * fVec0[((IOTA - 91) & 127)]) + ((0.0014036900000000002 * fVec0[((IOTA - 90) & 127)]) + ((0.00337025 * fVec0[((IOTA - 87) & 127)]) + ((0.0052786200000000004 * fVec0[((IOTA - 86) & 127)]) + ((0.0015441700000000001 * fVec0[((IOTA - 85) & 127)]) + ((0.00036768800000000002 * fVec0[((IOTA - 84) & 127)]) + ((0.00069545300000000007 * fVec0[((IOTA - 83) & 127)]) + ((0.0010311999999999999 * fVec0[((IOTA - 65) & 127)]) + ((0.00113331 * fVec0[((IOTA - 64) & 127)]) + ((0.0014698599999999999 * fVec0[((IOTA - 63) & 127)]) + ((0.00070883900000000006 * fVec0[((IOTA - 62) & 127)]) + ((0.0020663499999999998 * fVec0[((IOTA - 57) & 127)]) + ((0.00288332 * fVec0[((IOTA - 56) & 127)]) + ((0.0008817050000000001 * fVec0[((IOTA - 55) & 127)]) + ((0.0035919900000000002 * fVec0[((IOTA - 54) & 127)]) + ((0.0016634199999999999 * fVec0[((IOTA - 53) & 127)]) + ((0.0012247 * fVec0[((IOTA - 52) & 127)]) + ((0.00117636 * fVec0[((IOTA - 51) & 127)]) + ((0.0053477200000000003 * fVec0[((IOTA - 49) & 127)]) + ((0.00571347 * fVec0[((IOTA - 48) & 127)]) + ((0.0068109299999999998 * fVec0[((IOTA - 45) & 127)]) + ((0.00503769 * fVec0[((IOTA - 44) & 127)]) + ((0.0033690899999999999 * fVec0[((IOTA - 43) & 127)]) + ((0.0081425600000000001 * fVec0[((IOTA - 42) & 127)]) + ((0.0048383499999999999 * fVec0[((IOTA - 39) & 127)]) + ((1.73416e-05 * fVec0[((IOTA - 38) & 127)]) + ((0.0011593500000000002 * fVec0[((IOTA - 37) & 127)]) + ((0.00341282 * fVec0[((IOTA - 36) & 127)]) + ((0.0053672899999999994 * fVec0[((IOTA - 34) & 127)]) + ((0.0060068300000000003 * fVec0[((IOTA - 33) & 127)]) + ((0.036282299999999996 * fVec0[((IOTA - 30) & 127)]) + ((0.0096774400000000007 * fVec0[((IOTA - 29) & 127)]) + ((0.03066 * fVec0[((IOTA - 26) & 127)]) + ((0.00053443399999999997 * fVec0[((IOTA - 6) & 127)]) + ((0.00069470999999999997 * fVec0[((IOTA - 4) & 127)]) + ((0.00013874000000000002 * fVec0[((IOTA - 2) & 127)]) + ((2.49699e-05 * fVec0[((IOTA - 1) & 127)]) + ((9.9362800000000004e-06 * fTemp0) + ((0.0019489700000000002 * fVec0[((IOTA - 23) & 127)]) + ((9.4065400000000002e-05 * fVec0[((IOTA - 22) & 127)]) + ((0.000702438 * fVec0[((IOTA - 20) & 127)]) + ((0.0174746 * fVec0[((IOTA - 18) & 127)]) + ((0.021190899999999999 * fVec0[((IOTA - 17) & 127)]) + ((0.0025345699999999999 * fVec0[((IOTA - 16) & 127)]) + ((0.0025992000000000003 * fVec0[((IOTA - 15) & 127)]) + ((0.0061892400000000004 * fVec0[((IOTA - 13) & 127)]) + ((2.4082099999999999e-06 * fVec1[((IOTA - 126) & 127)]) + ((8.464169999999999e-06 * fVec1[((IOTA - 125) & 127)]) + ((8.8836499999999992e-06 * fVec1[((IOTA - 124) & 127)]) + ((8.7967399999999994e-06 * fVec1[((IOTA - 123) & 127)]) + ((2.4375700000000001e-05 * fVec1[((IOTA - 122) & 127)]) + ((8.0066800000000004e-05 * fVec1[((IOTA - 121) & 127)]) + ((9.9426100000000014e-05 * fVec1[((IOTA - 120) & 127)]) + ((9.0816700000000014e-05 * fVec1[((IOTA - 119) & 127)]) + ((5.80835e-05 * fVec1[((IOTA - 118) & 127)]) + ((7.7452699999999998e-05 * fVec1[((IOTA - 117) & 127)]) + ((9.5024799999999997e-07 * fVec1[((IOTA - 116) & 127)]) + ((0.0020100199999999999 * fVec0[((IOTA - 10) & 127)]) + ((0.00148817 * fVec0[((IOTA - 8) & 127)]) + ((5.1149400000000002e-05 * fVec1[((IOTA - 98) & 127)]) + ((0.00032476299999999999 * fVec1[((IOTA - 97) & 127)]) + ((0.0012872900000000002 * fVec1[((IOTA - 94) & 127)]) + ((0.0022912900000000001 * fVec1[((IOTA - 93) & 127)]) + ((0.00119739 * fVec1[((IOTA - 92) & 127)]) + ((0.0019518999999999999 * fVec1[((IOTA - 90) & 127)]) + ((0.0043689900000000005 * fVec1[((IOTA - 89) & 127)]) + ((0.00375801 * fVec1[((IOTA - 88) & 127)]) + ((0.0016994499999999999 * fVec1[((IOTA - 87) & 127)]) + ((0.0032713800000000004 * fVec1[((IOTA - 86) & 127)]) + ((0.0036832600000000003 * fVec1[((IOTA - 85) & 127)]) + ((0.00089328000000000009 * fVec1[((IOTA - 84) & 127)]) + ((0.00072158200000000002 * fVec1[((IOTA - 83) & 127)]) + ((0.00038337700000000001 * fVec1[((IOTA - 80) & 127)]) + ((0.0016079900000000001 * fVec1[((IOTA - 79) & 127)]) + ((0.0020680200000000003 * fVec1[((IOTA - 78) & 127)]) + ((0.00028545500000000005 * fVec1[((IOTA - 77) & 127)]) + ((0.00025900400000000002 * fVec1[((IOTA - 75) & 127)]) + ((3.3718100000000005e-05 * fVec1[((IOTA - 63) & 127)]) + ((0.0016691100000000001 * fVec1[((IOTA - 62) & 127)]) + ((0.00089519800000000015 * fVec1[((IOTA - 60) & 127)]) + ((0.00079125400000000002 * fVec1[((IOTA - 59) & 127)]) + ((0.00099548200000000001 * fVec1[((IOTA - 58) & 127)]) + ((0.0024358800000000001 * fVec1[((IOTA - 54) & 127)]) + ((0.0056765999999999995 * fVec1[((IOTA - 53) & 127)]) + ((0.0027909200000000001 * fVec1[((IOTA - 52) & 127)]) + ((0.00077908600000000012 * fVec1[((IOTA - 51) & 127)]) + ((0.0016214599999999999 * fVec1[((IOTA - 50) & 127)]) + ((0.0042173100000000002 * fVec1[((IOTA - 48) & 127)]) + ((0.0091871399999999999 * fVec1[((IOTA - 47) & 127)]) + ((0.0013077200000000001 * fVec1[((IOTA - 46) & 127)]) + ((0.0021427500000000001 * fVec1[((IOTA - 45) & 127)]) + ((0.0022329500000000005 * fVec1[((IOTA - 44) & 127)]) + ((0.0028589500000000003 * fVec1[((IOTA - 42) & 127)]) + ((0.0070971000000000003 * fVec1[((IOTA - 41) & 127)]) + ((0.0030150300000000001 * fVec1[((IOTA - 39) & 127)]) + ((0.00053429399999999994 * fVec1[((IOTA - 36) & 127)]) + ((0.0164669 * fVec1[((IOTA - 35) & 127)]) + ((0.0037660800000000002 * fVec1[((IOTA - 33) & 127)]) + ((0.0086483100000000011 * fVec1[((IOTA - 32) & 127)]) + ((0.021576300000000003 * fVec1[((IOTA - 29) & 127)]) + ((0.021685099999999999 * fVec1[((IOTA - 28) & 127)]) + ((0.0057969700000000002 * fVec1[((IOTA - 26) & 127)]) + ((0.0057622799999999998 * fVec1[((IOTA - 24) & 127)]) + ((0.0197594 * fVec1[((IOTA - 21) & 127)]) + ((0.0121098 * fVec1[((IOTA - 20) & 127)]) + ((0.032535399999999999 * fVec1[((IOTA - 17) & 127)]) + ((0.00050339700000000005 * fVec1[((IOTA - 14) & 127)]) + ((0.00086802899999999998 * fVec1[((IOTA - 13) & 127)]) + ((0.0016583500000000001 * fVec1[((IOTA - 8) & 127)]) + ((0.00031507000000000003 * fVec1[((IOTA - 5) & 127)]) + ((0.00049461800000000005 * fVec1[((IOTA - 4) & 127)]) + ((0.00015840400000000001 * fVec1[((IOTA - 2) & 127)]) + ((2.8519800000000004e-05 * fVec1[((IOTA - 1) & 127)]) + ((4.4578800000000004e-06 * fTemp1) + ((1.1796500000000001e-05 * fVec2[((IOTA - 114) & 127)]) + ((0.00041981599999999999 * fVec2[((IOTA - 107) & 127)]) + ((5.3605900000000008e-05 * fVec2[((IOTA - 105) & 127)]) + ((0.00046969700000000004 * fVec2[((IOTA - 104) & 127)]) + ((0.00047704000000000008 * fVec2[((IOTA - 103) & 127)]) + ((0.00043236800000000009 * fVec2[((IOTA - 102) & 127)]) + ((0.00070973900000000003 * fVec2[((IOTA - 101) & 127)]) + ((0.000705385 * fVec2[((IOTA - 100) & 127)]) + ((0.00045614100000000008 * fVec2[((IOTA - 99) & 127)]) + ((0.00092227100000000001 * fVec2[((IOTA - 98) & 127)]) + ((0.00081300600000000002 * fVec2[((IOTA - 97) & 127)]) + ((0.000623519 * fVec2[((IOTA - 96) & 127)]) + ((0.0013659500000000001 * fVec2[((IOTA - 95) & 127)]) + ((0.00214314 * fVec2[((IOTA - 94) & 127)]) + ((0.0016777999999999999 * fVec2[((IOTA - 93) & 127)]) + ((0.00108099 * fVec2[((IOTA - 92) & 127)]) + ((6.7984800000000007e-05 * fVec2[((IOTA - 90) & 127)]) + ((0.000264467 * fVec2[((IOTA - 89) & 127)]) + ((0.00045975200000000007 * fVec2[((IOTA - 88) & 127)]) + ((0.0013345100000000001 * fVec2[((IOTA - 87) & 127)]) + ((0.0013671599999999999 * fVec2[((IOTA - 86) & 127)]) + ((0.00088433700000000001 * fVec2[((IOTA - 85) & 127)]) + ((0.0010498400000000002 * fVec2[((IOTA - 84) & 127)]) + ((0.00300031 * fVec2[((IOTA - 83) & 127)]) + ((0.00033132700000000002 * fVec2[((IOTA - 82) & 127)]) + ((0.0053105900000000004 * fVec1[((IOTA - 40) & 127)]) + ((2.3648600000000003e-05 * fVec2[((IOTA - 80) & 127)]) + ((0.00058793100000000009 * fVec2[((IOTA - 79) & 127)]) + ((0.0027816299999999998 * fVec2[((IOTA - 78) & 127)]) + ((0.0017765299999999999 * fVec2[((IOTA - 77) & 127)]) + ((0.00046795000000000002 * fVec2[((IOTA - 73) & 127)]) + ((0.0016152100000000002 * fVec2[((IOTA - 72) & 127)]) + ((0.00010376700000000001 * fVec2[((IOTA - 71) & 127)]) + ((0.058508199999999996 * fVec2[((IOTA - 22) & 127)]) + ((0.050635700000000006 * fVec2[((IOTA - 21) & 127)]) + ((0.041341200000000002 * fVec2[((IOTA - 20) & 127)]) + ((0.0214629 * fVec2[((IOTA - 19) & 127)]) + ((0.029345699999999999 * fVec2[((IOTA - 18) & 127)]) + ((0.088954799999999987 * fVec2[((IOTA - 17) & 127)]) + ((0.063658400000000004 * fVec2[((IOTA - 16) & 127)]) + ((0.078143400000000002 * fVec2[((IOTA - 15) & 127)]) + ((0.060886200000000001 * fVec2[((IOTA - 14) & 127)]) + ((0.077131900000000003 * fVec2[((IOTA - 13) & 127)]) + ((0.090551499999999993 * fVec2[((IOTA - 12) & 127)]) + ((0.0054581200000000003 * fVec2[((IOTA - 11) & 127)]) + ((0.0018110400000000001 * fVec2[((IOTA - 9) & 127)]) + ((0.00194177 * fVec2[((IOTA - 7) & 127)]) + ((2.0625300000000001e-06 * fVec3[((IOTA - 126) & 127)]) + ((5.0813899999999995e-06 * fVec3[((IOTA - 125) & 127)]) + ((5.7126099999999992e-06 * fVec3[((IOTA - 124) & 127)]) + ((0.00114689 * fVec2[((IOTA - 5) & 127)]) + ((2.09787e-05 * fVec3[((IOTA - 123) & 127)]) + ((0.00058690300000000006 * fVec2[((IOTA - 4) & 127)]) + ((1.8717900000000003e-05 * fVec3[((IOTA - 122) & 127)]) + ((4.2541300000000006e-05 * fVec3[((IOTA - 121) & 127)]) + ((0.00010654600000000001 * fVec3[((IOTA - 120) & 127)]) + ((0.00016404399999999999 * fVec3[((IOTA - 119) & 127)]) + ((0.0012299100000000001 * fVec2[((IOTA - 3) & 127)]) + ((0.00016872499999999999 * fVec3[((IOTA - 118) & 127)]) + ((0.00025855300000000002 * fVec3[((IOTA - 117) & 127)]) + ((0.00034160000000000001 * fVec3[((IOTA - 116) & 127)]) + ((0.00045382400000000002 * fVec3[((IOTA - 115) & 127)]) + ((0.00054736599999999998 * fVec3[((IOTA - 114) & 127)]) + ((0.00053358400000000003 * fVec3[((IOTA - 113) & 127)]) + ((0.00015469 * fVec2[((IOTA - 1) & 127)]) + ((0.00050102000000000002 * fVec3[((IOTA - 112) & 127)]) + ((0.00067625599999999997 * fVec3[((IOTA - 111) & 127)]) + ((0.00098166300000000002 * fVec3[((IOTA - 110) & 127)]) + ((0.00083451500000000008 * fVec3[((IOTA - 109) & 127)]) + ((0.0009436510000000001 * fVec3[((IOTA - 108) & 127)]) + ((0.0012923000000000001 * fVec3[((IOTA - 107) & 127)]) + ((0.00136699 * fVec3[((IOTA - 106) & 127)]) + ((0.0014059200000000002 * fVec3[((IOTA - 105) & 127)]) + ((0.0012065399999999999 * fVec3[((IOTA - 104) & 127)]) + ((0.00185348 * fVec3[((IOTA - 103) & 127)]) + ((0.00154024 * fVec3[((IOTA - 102) & 127)]) + ((0.00087727600000000008 * fVec3[((IOTA - 101) & 127)]) + ((0.00050683400000000006 * fVec3[((IOTA - 100) & 127)]) + ((0.00061282500000000011 * fVec3[((IOTA - 99) & 127)]) + ((0.00058470199999999999 * fVec3[((IOTA - 98) & 127)]) + ((0.00054874000000000004 * fVec3[((IOTA - 96) & 127)]) + ((0.00272945 * fVec3[((IOTA - 95) & 127)]) + ((0.0021461499999999999 * fVec3[((IOTA - 94) & 127)]) + ((2.3955000000000004e-05 * fVec3[((IOTA - 93) & 127)]) + ((0.00041329900000000006 * fVec3[((IOTA - 90) & 127)]) + ((0.0037083100000000003 * fVec3[((IOTA - 87) & 127)]) + ((0.0051757600000000006 * fVec3[((IOTA - 86) & 127)]) + ((0.0016799500000000001 * fVec3[((IOTA - 85) & 127)]) + ((0.0015701700000000001 * fVec3[((IOTA - 83) & 127)]) + ((0.00056369199999999997 * fVec3[((IOTA - 82) & 127)]) + ((0.0024365300000000001 * fVec3[((IOTA - 80) & 127)]) + ((0.0041905200000000005 * fVec3[((IOTA - 79) & 127)]) + ((0.0024405 * fVec3[((IOTA - 78) & 127)]) + ((0.00082847699999999999 * fVec3[((IOTA - 77) & 127)]) + ((0.0041945800000000007 * fVec3[((IOTA - 76) & 127)]) + ((0.0063743100000000002 * fVec3[((IOTA - 75) & 127)]) + ((0.0029129100000000003 * fVec3[((IOTA - 74) & 127)]) + ((0.0030868900000000001 * fVec3[((IOTA - 73) & 127)]) + ((0.0052356299999999998 * fVec3[((IOTA - 72) & 127)]) + ((0.0032107500000000001 * fVec3[((IOTA - 71) & 127)]) + ((0.00185049 * fVec3[((IOTA - 70) & 127)]) + ((0.0014647 * fVec3[((IOTA - 69) & 127)]) + ((0.0022559300000000002 * fVec3[((IOTA - 68) & 127)]) + ((0.0034284599999999999 * fVec3[((IOTA - 67) & 127)]) + ((0.0023089200000000003 * fVec3[((IOTA - 66) & 127)]) + ((0.0027403499999999999 * fVec3[((IOTA - 65) & 127)]) + ((0.0042152999999999999 * fVec3[((IOTA - 64) & 127)]) + ((0.0062385100000000001 * fVec3[((IOTA - 63) & 127)]) + ((0.0068040700000000006 * fVec3[((IOTA - 62) & 127)]) + ((0.0035775299999999998 * fVec3[((IOTA - 61) & 127)]) + ((0.0042250600000000001 * fVec3[((IOTA - 60) & 127)]) + ((0.0031211899999999998 * fVec3[((IOTA - 59) & 127)]) + ((0.0036129299999999999 * fVec3[((IOTA - 58) & 127)]) + ((0.0050028199999999998 * fVec3[((IOTA - 57) & 127)]) + ((0.0012118500000000002 * fVec3[((IOTA - 56) & 127)]) + ((0.0012461600000000001 * fVec3[((IOTA - 55) & 127)]) + ((0.00305273 * fVec3[((IOTA - 54) & 127)]) + ((0.00325793 * fVec3[((IOTA - 53) & 127)]) + ((0.0028833999999999999 * fVec3[((IOTA - 52) & 127)]) + ((0.0036652500000000001 * fVec3[((IOTA - 51) & 127)]) + ((0.00086377000000000014 * fVec3[((IOTA - 50) & 127)]) + ((0.00175234 * fVec3[((IOTA - 49) & 127)]) + ((0.00306785 * fVec3[((IOTA - 48) & 127)]) + ((0.00250454 * fVec3[((IOTA - 46) & 127)]) + ((0.015005800000000001 * fVec3[((IOTA - 45) & 127)]) + ((0.0079248200000000008 * fVec3[((IOTA - 44) & 127)]) + ((0.0028857800000000001 * fVec3[((IOTA - 43) & 127)]) + ((0.0074329900000000004 * fVec3[((IOTA - 42) & 127)]) + ((0.0056945699999999995 * fVec3[((IOTA - 41) & 127)]) + ((0.0064973000000000001 * fVec3[((IOTA - 40) & 127)]) + ((0.011589100000000001 * fVec3[((IOTA - 39) & 127)]) + ((0.0069301900000000001 * fVec3[((IOTA - 38) & 127)]) + ((0.0079812000000000008 * fVec3[((IOTA - 37) & 127)]) + ((0.0141227 * fVec3[((IOTA - 36) & 127)]) + ((0.0044680700000000002 * fVec3[((IOTA - 35) & 127)]) + ((0.020023599999999999 * fVec3[((IOTA - 34) & 127)]) + ((0.023001999999999998 * fVec3[((IOTA - 33) & 127)]) + ((0.0057082499999999998 * fVec3[((IOTA - 32) & 127)]) + ((0.011366300000000001 * fVec3[((IOTA - 31) & 127)]) + ((0.0266261 * fVec3[((IOTA - 30) & 127)]) + ((0.0087064099999999995 * fVec3[((IOTA - 29) & 127)]) + ((0.030624600000000002 * fVec3[((IOTA - 27) & 127)]) + ((0.0528391 * fVec3[((IOTA - 26) & 127)]) + ((0.031746299999999998 * fVec3[((IOTA - 25) & 127)]) + ((((((((((((((((((((((((2.5118200000000003e-05 * fTemp3) + (0.00012370799999999999 * fVec3[((IOTA - 1) & 127)])) + (0.00096838400000000008 * fVec3[((IOTA - 3) & 127)])) + (0.00059949000000000005 * fVec3[((IOTA - 4) & 127)])) + (0.00076772799999999997 * fVec3[((IOTA - 5) & 127)])) + (0.00014117900000000001 * fVec3[((IOTA - 6) & 127)])) + (0.0018634200000000002 * fVec3[((IOTA - 7) & 127)])) + (0.00024957099999999997 * fVec3[((IOTA - 8) & 127)])) + (0.0011589199999999999 * fVec3[((IOTA - 9) & 127)])) + (0.00050879500000000004 * fVec3[((IOTA - 10) & 127)])) + (0.0036302599999999997 * fVec3[((IOTA - 11) & 127)])) + (0.056510400000000002 * fVec3[((IOTA - 12) & 127)])) + (0.049342300000000006 * fVec3[((IOTA - 13) & 127)])) + (0.0449074 * fVec3[((IOTA - 14) & 127)])) + (0.064749100000000004 * fVec3[((IOTA - 15) & 127)])) + (0.059606500000000007 * fVec3[((IOTA - 16) & 127)])) + (0.073495100000000008 * fVec3[((IOTA - 17) & 127)])) + (0.034514800000000005 * fVec3[((IOTA - 18) & 127)])) + (0.055772500000000003 * fVec3[((IOTA - 19) & 127)])) + (0.06596840000000001 * fVec3[((IOTA - 20) & 127)])) + (0.057809200000000005 * fVec3[((IOTA - 21) & 127)])) + (0.096895100000000012 * fVec3[((IOTA - 22) & 127)])) + (0.021260899999999999 * fVec3[((IOTA - 23) & 127)])) + (3.3955100000000003e-05 * fTemp2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((6.9716599999999994e-06 * fVec0[((IOTA - 124) & 127)]) + ((9.8485200000000004e-06 * fVec0[((IOTA - 118) & 127)]) + ((0.00010357900000000001 * fVec0[((IOTA - 114) & 127)]) + ((0.00042897299999999997 * fVec0[((IOTA - 113) & 127)]) + ((0.00029024100000000006 * fVec0[((IOTA - 112) & 127)]) + ((9.8297200000000012e-05 * fVec0[((IOTA - 111) & 127)]) + ((0.00020804999999999999 * fVec0[((IOTA - 110) & 127)]) + ((0.00054109500000000001 * fVec0[((IOTA - 109) & 127)]) + ((0.00083962700000000002 * fVec0[((IOTA - 108) & 127)]) + ((0.00056389100000000007 * fVec0[((IOTA - 107) & 127)]) + ((0.00051816800000000006 * fVec0[((IOTA - 106) & 127)]) + ((0.00065456900000000003 * fVec0[((IOTA - 105) & 127)]) + ((0.00088825400000000011 * fVec0[((IOTA - 104) & 127)]) + ((0.000446193 * fVec0[((IOTA - 103) & 127)]) + ((0.00071199100000000003 * fVec0[((IOTA - 102) & 127)]) + ((0.0012468500000000001 * fVec0[((IOTA - 101) & 127)]) + ((0.0012435300000000001 * fVec0[((IOTA - 100) & 127)]) + ((0.0010388900000000002 * fVec0[((IOTA - 99) & 127)]) + ((0.00170268 * fVec0[((IOTA - 98) & 127)]) + ((0.00126004 * fVec0[((IOTA - 97) & 127)]) + ((0.0013548899999999999 * fVec0[((IOTA - 93) & 127)]) + ((0.0020163799999999999 * fVec0[((IOTA - 92) & 127)]) + ((0.0010302600000000001 * fVec0[((IOTA - 89) & 127)]) + ((0.00142103 * fVec0[((IOTA - 88) & 127)]) + ((0.0020040399999999999 * fVec0[((IOTA - 82) & 127)]) + ((0.0030592000000000002 * fVec0[((IOTA - 81) & 127)]) + ((0.00082976100000000015 * fVec0[((IOTA - 80) & 127)]) + ((0.00083032800000000008 * fVec0[((IOTA - 79) & 127)]) + ((0.00146794 * fVec0[((IOTA - 78) & 127)]) + ((0.0029912300000000001 * fVec0[((IOTA - 77) & 127)]) + ((0.0019008400000000002 * fVec0[((IOTA - 76) & 127)]) + ((0.00032308700000000001 * fVec0[((IOTA - 75) & 127)]) + ((0.00121188 * fVec0[((IOTA - 74) & 127)]) + ((0.0015286800000000001 * fVec0[((IOTA - 73) & 127)]) + ((0.0016313200000000001 * fVec0[((IOTA - 72) & 127)]) + ((0.0019843199999999999 * fVec0[((IOTA - 71) & 127)]) + ((0.0031219500000000001 * fVec0[((IOTA - 70) & 127)]) + ((0.0017147500000000001 * fVec0[((IOTA - 69) & 127)]) + ((4.5241600000000004e-05 * fVec0[((IOTA - 68) & 127)]) + ((0.00193403 * fVec0[((IOTA - 67) & 127)]) + ((0.00103439 * fVec0[((IOTA - 66) & 127)]) + ((0.00025587599999999999 * fVec0[((IOTA - 61) & 127)]) + ((0.0014905299999999999 * fVec0[((IOTA - 60) & 127)]) + ((0.000502175 * fVec0[((IOTA - 59) & 127)]) + ((0.00055048599999999999 * fVec0[((IOTA - 58) & 127)]) + ((0.00049892100000000004 * fVec0[((IOTA - 50) & 127)]) + ((0.0029968600000000001 * fVec0[((IOTA - 47) & 127)]) + ((0.0024887899999999998 * fVec0[((IOTA - 46) & 127)]) + ((0.0030320900000000003 * fVec0[((IOTA - 41) & 127)]) + ((0.0076587399999999998 * fVec0[((IOTA - 40) & 127)]) + ((0.010064699999999999 * fVec0[((IOTA - 35) & 127)]) + ((0.030136699999999999 * fVec0[((IOTA - 32) & 127)]) + ((0.017341200000000001 * fVec0[((IOTA - 31) & 127)]) + ((0.039170099999999999 * fVec0[((IOTA - 28) & 127)]) + ((0.00031563800000000003 * fVec0[((IOTA - 27) & 127)]) + ((0.00069887100000000011 * fVec0[((IOTA - 25) & 127)]) + ((0.025458500000000002 * fVec0[((IOTA - 24) & 127)]) + ((0.0011081700000000001 * fVec0[((IOTA - 7) & 127)]) + ((0.00036208399999999998 * fVec0[((IOTA - 5) & 127)]) + ((0.00017773600000000001 * fVec0[((IOTA - 3) & 127)]) + ((0.0120184 * fVec0[((IOTA - 21) & 127)]) + ((0.011691100000000001 * fVec0[((IOTA - 19) & 127)]) + ((0.0053095800000000004 * fVec0[((IOTA - 14) & 127)]) + ((0.0072171800000000001 * fVec0[((IOTA - 12) & 127)]) + ((0.0030320200000000003 * fVec0[((IOTA - 11) & 127)]) + ((6.574880000000001e-05 * fVec1[((IOTA - 115) & 127)]) + ((7.5893800000000015e-05 * fVec1[((IOTA - 114) & 127)]) + ((0.00131485 * fVec0[((IOTA - 9) & 127)]) + ((0.00055035400000000008 * fVec1[((IOTA - 113) & 127)]) + ((0.00054230400000000007 * fVec1[((IOTA - 112) & 127)]) + ((0.00038862600000000004 * fVec1[((IOTA - 111) & 127)]) + ((0.00038355300000000002 * fVec1[((IOTA - 110) & 127)]) + ((0.0010789999999999999 * fVec1[((IOTA - 109) & 127)]) + ((0.00127535 * fVec1[((IOTA - 108) & 127)]) + ((0.00026040700000000004 * fVec1[((IOTA - 107) & 127)]) + ((0.00064190699999999994 * fVec1[((IOTA - 106) & 127)]) + ((0.0012643700000000001 * fVec1[((IOTA - 105) & 127)]) + ((0.0014951399999999998 * fVec1[((IOTA - 104) & 127)]) + ((0.00096466700000000011 * fVec1[((IOTA - 103) & 127)]) + ((0.00062200899999999997 * fVec1[((IOTA - 102) & 127)]) + ((0.0013151 * fVec1[((IOTA - 101) & 127)]) + ((0.00155276 * fVec1[((IOTA - 100) & 127)]) + ((0.00147963 * fVec1[((IOTA - 99) & 127)]) + ((0.0012132899999999999 * fVec1[((IOTA - 96) & 127)]) + ((0.0010497099999999999 * fVec1[((IOTA - 95) & 127)]) + ((5.4447799999999994e-06 * fVec1[((IOTA - 91) & 127)]) + ((0.00060830200000000002 * fVec1[((IOTA - 82) & 127)]) + ((0.00073753600000000001 * fVec1[((IOTA - 81) & 127)]) + ((4.1098800000000007e-05 * fVec1[((IOTA - 76) & 127)]) + ((0.00031511100000000003 * fVec1[((IOTA - 74) & 127)]) + ((0.0011385200000000001 * fVec1[((IOTA - 73) & 127)]) + ((0.0023925600000000002 * fVec1[((IOTA - 72) & 127)]) + ((0.00191902 * fVec1[((IOTA - 71) & 127)]) + ((0.00073584900000000001 * fVec1[((IOTA - 70) & 127)]) + ((0.0033698500000000002 * fVec1[((IOTA - 69) & 127)]) + ((0.0046562499999999998 * fVec1[((IOTA - 68) & 127)]) + ((0.0026088700000000001 * fVec1[((IOTA - 67) & 127)]) + ((0.0015381499999999998 * fVec1[((IOTA - 66) & 127)]) + ((0.00177024 * fVec1[((IOTA - 65) & 127)]) + ((0.0027169400000000002 * fVec1[((IOTA - 64) & 127)]) + ((0.0011334100000000001 * fVec1[((IOTA - 61) & 127)]) + ((0.0012374899999999999 * fVec1[((IOTA - 57) & 127)]) + ((0.00350462 * fVec1[((IOTA - 56) & 127)]) + ((0.00029472900000000003 * fVec1[((IOTA - 55) & 127)]) + ((0.00161133 * fVec1[((IOTA - 49) & 127)]) + ((0.0043256300000000004 * fVec1[((IOTA - 43) & 127)]) + ((0.0039263700000000002 * fVec1[((IOTA - 38) & 127)]) + ((0.0193136 * fVec1[((IOTA - 37) & 127)]) + ((0.0137585 * fVec1[((IOTA - 34) & 127)]) + ((0.016165499999999999 * fVec1[((IOTA - 31) & 127)]) + ((0.0200181 * fVec1[((IOTA - 30) & 127)]) + ((0.00436148 * fVec1[((IOTA - 27) & 127)]) + ((0.0115485 * fVec1[((IOTA - 25) & 127)]) + ((0.0032127699999999998 * fVec1[((IOTA - 23) & 127)]) + ((0.0057804000000000006 * fVec1[((IOTA - 22) & 127)]) + ((0.037111700000000004 * fVec1[((IOTA - 19) & 127)]) + ((0.014907300000000002 * fVec1[((IOTA - 18) & 127)]) + ((0.0092683000000000001 * fVec1[((IOTA - 16) & 127)]) + ((0.0158698 * fVec1[((IOTA - 15) & 127)]) + ((0.00489909 * fVec1[((IOTA - 12) & 127)]) + ((0.00036272099999999999 * fVec1[((IOTA - 11) & 127)]) + ((0.00043871700000000003 * fVec1[((IOTA - 10) & 127)]) + ((0.00018132700000000001 * fVec1[((IOTA - 9) & 127)]) + ((0.00097058900000000011 * fVec1[((IOTA - 7) & 127)]) + ((0.00016036100000000001 * fVec1[((IOTA - 6) & 127)]) + (((1.8656099999999998e-06 * fVec2[((IOTA - 126) & 127)]) + ((2.5639300000000001e-06 * fVec2[((IOTA - 125) & 127)]) + ((8.3185099999999991e-06 * fVec2[((IOTA - 124) & 127)]) + ((3.8801999999999999e-05 * fVec2[((IOTA - 123) & 127)]) + ((6.5230500000000005e-05 * fVec2[((IOTA - 122) & 127)]) + ((4.81323e-05 * fVec2[((IOTA - 121) & 127)]) + ((3.1175000000000006e-05 * fVec2[((IOTA - 120) & 127)]) + ((1.1129000000000001e-05 * fVec2[((IOTA - 119) & 127)]) + ((0.00016385400000000001 * fVec2[((IOTA - 118) & 127)]) + ((0.000137362 * fVec2[((IOTA - 117) & 127)]) + ((9.139900000000001e-05 * fVec2[((IOTA - 116) & 127)]) + ((0.00012562199999999998 * fVec2[((IOTA - 115) & 127)]) + ((0.00025063300000000005 * fVec2[((IOTA - 113) & 127)]) + ((0.000272806 * fVec2[((IOTA - 112) & 127)]) + ((0.000314307 * fVec2[((IOTA - 111) & 127)]) + ((0.00026935700000000002 * fVec2[((IOTA - 110) & 127)]) + ((0.00027303400000000002 * fVec2[((IOTA - 109) & 127)]) + ((8.74662e-06 * fVec2[((IOTA - 108) & 127)]) + ((0.00035653000000000003 * fVec2[((IOTA - 106) & 127)]) + ((0.000138672 * fVec2[((IOTA - 91) & 127)]) + ((0.0011749499999999999 * fVec2[((IOTA - 81) & 127)]) + ((0.00092974400000000003 * fVec2[((IOTA - 76) & 127)]) + ((0.00189912 * fVec2[((IOTA - 75) & 127)]) + ((0.0018498099999999999 * fVec2[((IOTA - 74) & 127)]) + ((0.00102903 * fVec2[((IOTA - 70) & 127)]) + ((0.0023879000000000001 * fVec2[((IOTA - 69) & 127)]) + ((0.00157916 * fVec2[((IOTA - 67) & 127)]) + ((0.0021747000000000003 * fVec2[((IOTA - 66) & 127)]) + ((0.0024374800000000001 * fVec2[((IOTA - 65) & 127)]) + ((0.0017056100000000002 * fVec2[((IOTA - 64) & 127)]) + ((0.00246014 * fVec2[((IOTA - 63) & 127)]) + ((0.0044470300000000003 * fVec2[((IOTA - 62) & 127)]) + ((0.0030104600000000004 * fVec2[((IOTA - 68) & 127)]) + ((0.0047484400000000005 * fVec2[((IOTA - 61) & 127)]) + ((0.0027951100000000004 * fVec2[((IOTA - 60) & 127)]) + ((0.0047547600000000002 * fVec2[((IOTA - 59) & 127)]) + ((0.0037710400000000002 * fVec2[((IOTA - 58) & 127)]) + ((0.0045419900000000001 * fVec2[((IOTA - 57) & 127)]) + ((0.010441600000000001 * fVec2[((IOTA - 56) & 127)]) + ((0.0100582 * fVec2[((IOTA - 55) & 127)]) + ((0.0076609499999999997 * fVec2[((IOTA - 54) & 127)]) + ((0.0068764300000000002 * fVec2[((IOTA - 53) & 127)]) + ((0.0095819500000000005 * fVec2[((IOTA - 52) & 127)]) + ((0.015913200000000002 * fVec2[((IOTA - 51) & 127)]) + ((0.015119400000000002 * fVec2[((IOTA - 50) & 127)]) + ((0.0128559 * fVec2[((IOTA - 49) & 127)]) + ((0.016606200000000002 * fVec2[((IOTA - 48) & 127)]) + ((0.016194200000000002 * fVec2[((IOTA - 47) & 127)]) + ((0.0116756 * fVec2[((IOTA - 46) & 127)]) + ((0.008875280000000001 * fVec2[((IOTA - 45) & 127)]) + ((0.016079200000000002 * fVec2[((IOTA - 44) & 127)]) + ((0.0188738 * fVec2[((IOTA - 43) & 127)]) + ((0.022184499999999999 * fVec2[((IOTA - 42) & 127)]) + ((0.020373700000000002 * fVec2[((IOTA - 41) & 127)]) + ((0.0086227300000000003 * fVec2[((IOTA - 40) & 127)]) + ((0.015368999999999999 * fVec2[((IOTA - 39) & 127)]) + ((0.025263300000000002 * fVec2[((IOTA - 38) & 127)]) + ((0.026966700000000003 * fVec2[((IOTA - 37) & 127)]) + ((0.023967600000000002 * fVec2[((IOTA - 36) & 127)]) + ((0.0180915 * fVec2[((IOTA - 35) & 127)]) + ((0.026436999999999999 * fVec2[((IOTA - 34) & 127)]) + ((0.035762599999999999 * fVec2[((IOTA - 33) & 127)]) + ((0.019380700000000001 * fVec2[((IOTA - 32) & 127)]) + ((0.0052166499999999998 * fVec2[((IOTA - 31) & 127)]) + ((0.012525700000000001 * fVec2[((IOTA - 30) & 127)]) + ((0.039007399999999998 * fVec2[((IOTA - 29) & 127)]) + ((0.039406500000000004 * fVec2[((IOTA - 28) & 127)]) + ((0.0160175 * fVec2[((IOTA - 27) & 127)]) + ((0.0095142000000000004 * fVec2[((IOTA - 26) & 127)]) + ((0.00060328500000000006 * fVec2[((IOTA - 25) & 127)]) + ((0.042794800000000008 * fVec2[((IOTA - 24) & 127)]) + ((0.034687500000000003 * fVec2[((IOTA - 23) & 127)]) + ((0.0011779100000000001 * fVec2[((IOTA - 10) & 127)]) + ((0.000167329 * fVec2[((IOTA - 8) & 127)]) + ((0.00041459900000000003 * fVec2[((IOTA - 6) & 127)]) + ((((((((((((0.00017378000000000001 * fVec3[((IOTA - 2) & 127)]) + (0.015415000000000002 * fVec3[((IOTA - 24) & 127)])) + (0.0114164 * fVec3[((IOTA - 28) & 127)])) + (0.0029673899999999999 * fVec3[((IOTA - 47) & 127)])) + (0.0010694400000000001 * fVec3[((IOTA - 81) & 127)])) + (0.000311911 * fVec3[((IOTA - 84) & 127)])) + (0.00141242 * fVec3[((IOTA - 88) & 127)])) + (0.00134669 * fVec3[((IOTA - 89) & 127)])) + (0.0014838199999999998 * fVec3[((IOTA - 91) & 127)])) + (0.0024969700000000003 * fVec3[((IOTA - 92) & 127)])) + (0.00054486499999999995 * fVec3[((IOTA - 97) & 127)])) + (0.00031506200000000001 * fVec2[((IOTA - 2) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00019245000000000002 * fVec1[((IOTA - 3) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (fRec1[0] * (((1.4188099999999999e-06 * fVec0[((IOTA - 126) & 127)]) + ((3.3187600000000001e-06 * fVec0[((IOTA - 125) & 127)]) + ((5.1482899999999996e-06 * fVec0[((IOTA - 124) & 127)]) + ((8.7600299999999995e-06 * fVec0[((IOTA - 123) & 127)]) + ((5.5660599999999997e-06 * fVec0[((IOTA - 122) & 127)]) + ((5.530960000000001e-05 * fVec0[((IOTA - 121) & 127)]) + ((0.00011918500000000002 * fVec0[((IOTA - 120) & 127)]) + ((9.8678100000000013e-05 * fVec0[((IOTA - 119) & 127)]) + ((4.2207000000000004e-05 * fVec0[((IOTA - 118) & 127)]) + ((3.2490500000000003e-05 * fVec0[((IOTA - 117) & 127)]) + ((0.00011697900000000002 * fVec0[((IOTA - 116) & 127)]) + ((5.6691300000000004e-05 * fVec0[((IOTA - 112) & 127)]) + ((0.000115798 * fVec0[((IOTA - 111) & 127)]) + ((0.0037339199999999999 * fVec0[((IOTA - 96) & 127)]) + ((0.0027517499999999999 * fVec0[((IOTA - 95) & 127)]) + ((0.00065997500000000004 * fVec0[((IOTA - 92) & 127)]) + ((0.0016790700000000002 * fVec0[((IOTA - 91) & 127)]) + ((0.0019817300000000001 * fVec0[((IOTA - 88) & 127)]) + ((0.0040626200000000003 * fVec0[((IOTA - 87) & 127)]) + ((0.0023261500000000004 * fVec0[((IOTA - 86) & 127)]) + ((0.0015044699999999999 * fVec0[((IOTA - 85) & 127)]) + ((0.0010922900000000001 * fVec0[((IOTA - 84) & 127)]) + ((0.0012104800000000001 * fVec0[((IOTA - 64) & 127)]) + ((0.0039074399999999999 * fVec0[((IOTA - 63) & 127)]) + ((0.00102589 * fVec0[((IOTA - 62) & 127)]) + ((0.00070128400000000004 * fVec0[((IOTA - 59) & 127)]) + ((0.00040873600000000004 * fVec0[((IOTA - 58) & 127)]) + ((0.0011136799999999999 * fVec0[((IOTA - 57) & 127)]) + ((0.0035448200000000002 * fVec0[((IOTA - 56) & 127)]) + ((0.0022150400000000002 * fVec0[((IOTA - 55) & 127)]) + ((3.8517100000000004e-05 * fVec0[((IOTA - 54) & 127)]) + ((0.0011952499999999999 * fVec0[((IOTA - 53) & 127)]) + ((0.00017855099999999999 * fVec0[((IOTA - 52) & 127)]) + ((0.0020778099999999998 * fVec0[((IOTA - 51) & 127)]) + ((0.0048699899999999994 * fVec0[((IOTA - 50) & 127)]) + ((0.0020168600000000001 * fVec0[((IOTA - 49) & 127)]) + ((0.0011997199999999998 * fVec0[((IOTA - 47) & 127)]) + ((0.0061526599999999999 * fVec0[((IOTA - 46) & 127)]) + ((0.0028706900000000004 * fVec0[((IOTA - 44) & 127)]) + ((0.011077500000000001 * fVec0[((IOTA - 43) & 127)]) + ((0.0022290399999999998 * fVec0[((IOTA - 42) & 127)]) + ((0.0084232300000000003 * fVec0[((IOTA - 39) & 127)]) + ((0.00127378 * fVec0[((IOTA - 38) & 127)]) + ((0.0125606 * fVec0[((IOTA - 34) & 127)]) + ((0.011542200000000001 * fVec0[((IOTA - 31) & 127)]) + ((0.024367400000000001 * fVec0[((IOTA - 30) & 127)]) + ((0.0537481 * fVec0[((IOTA - 26) & 127)]) + ((0.00056964699999999995 * fVec0[((IOTA - 6) & 127)]) + ((0.00055874899999999999 * fVec0[((IOTA - 4) & 127)]) + ((0.000107706 * fVec0[((IOTA - 2) & 127)]) + ((2.3258800000000005e-05 * fVec0[((IOTA - 1) & 127)]) + ((1.5002200000000002e-05 * fTemp0) + ((0.013059400000000001 * fVec0[((IOTA - 23) & 127)]) + ((0.021176 * fVec0[((IOTA - 22) & 127)]) + ((0.0292041 * fVec0[((IOTA - 18) & 127)]) + ((0.015611 * fVec0[((IOTA - 17) & 127)]) + ((0.0131959 * fVec0[((IOTA - 15) & 127)]) + ((0.0033820999999999999 * fVec0[((IOTA - 13) & 127)]) + ((1.8648999999999999e-06 * fVec1[((IOTA - 126) & 127)]) + ((1.0045e-05 * fVec1[((IOTA - 125) & 127)]) + ((1.8977800000000003e-05 * fVec1[((IOTA - 124) & 127)]) + ((1.9873400000000002e-05 * fVec1[((IOTA - 123) & 127)]) + ((3.4954000000000004e-05 * fVec1[((IOTA - 122) & 127)]) + ((9.3229500000000019e-05 * fVec1[((IOTA - 121) & 127)]) + ((0.00012240800000000001 * fVec1[((IOTA - 120) & 127)]) + ((9.5701199999999998e-05 * fVec1[((IOTA - 119) & 127)]) + ((5.5900900000000005e-05 * fVec1[((IOTA - 115) & 127)]) + ((1.9102600000000002e-05 * fVec1[((IOTA - 114) & 127)]) + ((0.00012754700000000002 * fVec0[((IOTA - 9) & 127)]) + ((0.00065433400000000001 * fVec0[((IOTA - 10) & 127)]) + (((0.000876507 * fVec1[((IOTA - 91) & 127)]) + ((0.0020406000000000001 * fVec1[((IOTA - 90) & 127)]) + ((0.0013280499999999999 * fVec1[((IOTA - 89) & 127)]) + ((0.0017303100000000001 * fVec1[((IOTA - 88) & 127)]) + ((0.0029776099999999999 * fVec1[((IOTA - 87) & 127)]) + ((0.0025195700000000001 * fVec1[((IOTA - 86) & 127)]) + ((0.0011889400000000001 * fVec1[((IOTA - 83) & 127)]) + ((0.000386788 * fVec1[((IOTA - 81) & 127)]) + ((0.00090610300000000012 * fVec1[((IOTA - 80) & 127)]) + ((0.0014508500000000001 * fVec1[((IOTA - 79) & 127)]) + ((0.00082739399999999996 * fVec1[((IOTA - 78) & 127)]) + ((0.00013990400000000002 * fVec1[((IOTA - 76) & 127)]) + ((0.00174807 * fVec1[((IOTA - 75) & 127)]) + ((0.00102092 * fVec1[((IOTA - 74) & 127)]) + ((0.00235812 * fVec1[((IOTA - 63) & 127)]) + ((0.0021519 * fVec1[((IOTA - 62) & 127)]) + ((7.6654099999999985e-06 * fVec1[((IOTA - 61) & 127)]) + ((0.0022741699999999998 * fVec1[((IOTA - 55) & 127)]) + ((0.0042530099999999998 * fVec1[((IOTA - 54) & 127)]) + ((0.0032282000000000001 * fVec1[((IOTA - 53) & 127)]) + ((0.0041592900000000004 * fVec1[((IOTA - 50) & 127)]) + ((0.0075640600000000001 * fVec1[((IOTA - 49) & 127)]) + ((0.0079603199999999999 * fVec1[((IOTA - 48) & 127)]) + ((0.0030812000000000001 * fVec1[((IOTA - 47) & 127)]) + ((0.00018497500000000001 * fVec1[((IOTA - 46) & 127)]) + ((0.00033097600000000002 * fVec1[((IOTA - 43) & 127)]) + ((0.0066906600000000002 * fVec1[((IOTA - 42) & 127)]) + ((0.0081795500000000007 * fVec1[((IOTA - 41) & 127)]) + ((0.0088403900000000001 * fVec1[((IOTA - 36) & 127)]) + ((0.0054466000000000002 * fVec1[((IOTA - 35) & 127)]) + ((0.0040393699999999996 * fVec1[((IOTA - 33) & 127)]) + ((0.033863999999999998 * fVec1[((IOTA - 29) & 127)]) + ((0.0092350000000000002 * fVec1[((IOTA - 28) & 127)]) + ((0.00053732699999999999 * fVec1[((IOTA - 26) & 127)]) + ((0.0043864799999999999 * fVec1[((IOTA - 24) & 127)]) + ((0.0027836500000000004 * fVec1[((IOTA - 23) & 127)]) + ((0.0092729000000000006 * fVec1[((IOTA - 22) & 127)]) + ((0.022299000000000003 * fVec1[((IOTA - 21) & 127)]) + ((0.0012059800000000002 * fVec1[((IOTA - 20) & 127)]) + ((0.025815500000000002 * fVec1[((IOTA - 17) & 127)]) + ((7.0800700000000008e-05 * fVec1[((IOTA - 9) & 127)]) + ((0.00076956600000000007 * fVec1[((IOTA - 8) & 127)]) + ((0.000231146 * fVec1[((IOTA - 5) & 127)]) + ((0.00014766099999999999 * fVec1[((IOTA - 4) & 127)]) + ((1.4833700000000001e-06 * fVec2[((IOTA - 126) & 127)]) + ((3.6973199999999999e-06 * fVec2[((IOTA - 125) & 127)]) + ((8.5058500000000009e-06 * fVec2[((IOTA - 124) & 127)]) + ((4.1470500000000002e-05 * fVec2[((IOTA - 123) & 127)]) + ((7.1901800000000003e-05 * fVec2[((IOTA - 122) & 127)]) + ((3.71676e-05 * fVec2[((IOTA - 121) & 127)]) + ((3.3982700000000002e-05 * fVec2[((IOTA - 119) & 127)]) + ((0.00016550199999999999 * fVec2[((IOTA - 118) & 127)]) + ((0.00015893600000000001 * fVec2[((IOTA - 117) & 127)]) + ((0.00011888700000000002 * fVec2[((IOTA - 116) & 127)]) + ((2.6751600000000003e-05 * fVec2[((IOTA - 115) & 127)]) + ((1.5261800000000004e-05 * fVec2[((IOTA - 114) & 127)]) + ((0.00030627700000000004 * fVec2[((IOTA - 113) & 127)]) + ((0.00036830800000000003 * fVec2[((IOTA - 112) & 127)]) + ((0.000251322 * fVec2[((IOTA - 111) & 127)]) + ((0.00022708 * fVec2[((IOTA - 110) & 127)]) + ((0.000239084 * fVec2[((IOTA - 109) & 127)]) + ((9.1238799999999995e-06 * fVec2[((IOTA - 108) & 127)]) + ((0.00015429699999999999 * fVec2[((IOTA - 90) & 127)]) + ((0.00021972700000000002 * fVec2[((IOTA - 89) & 127)]) + ((0.0011643300000000001 * fVec2[((IOTA - 82) & 127)]) + ((0.00108066 * fVec1[((IOTA - 40) & 127)]) + ((0.00065994200000000006 * fVec2[((IOTA - 77) & 127)]) + ((0.0017905 * fVec2[((IOTA - 76) & 127)]) + ((0.00015571700000000001 * fVec2[((IOTA - 71) & 127)]) + ((0.0044549899999999998 * fVec2[((IOTA - 70) & 127)]) + ((0.0039002500000000005 * fVec2[((IOTA - 69) & 127)]) + ((0.00164631 * fVec2[((IOTA - 67) & 127)]) + ((0.00128867 * fVec2[((IOTA - 66) & 127)]) + ((0.000377902 * fVec2[((IOTA - 65) & 127)]) + ((0.00227327 * fVec2[((IOTA - 64) & 127)]) + ((0.0030369999999999998 * fVec2[((IOTA - 63) & 127)]) + ((0.0023284899999999999 * fVec2[((IOTA - 62) & 127)]) + ((0.00054205300000000002 * fVec2[((IOTA - 68) & 127)]) + ((0.0020450900000000003 * fVec2[((IOTA - 61) & 127)]) + ((0.0038926099999999999 * fVec2[((IOTA - 60) & 127)]) + ((0.0051357799999999995 * fVec2[((IOTA - 59) & 127)]) + ((0.0057548899999999995 * fVec2[((IOTA - 58) & 127)]) + ((0.0110121 * fVec2[((IOTA - 57) & 127)]) + ((0.010980500000000001 * fVec2[((IOTA - 56) & 127)]) + ((0.0074067100000000004 * fVec2[((IOTA - 55) & 127)]) + ((0.0058000299999999994 * fVec2[((IOTA - 54) & 127)]) + ((0.0046881500000000003 * fVec2[((IOTA - 53) & 127)]) + ((0.0079024400000000002 * fVec2[((IOTA - 52) & 127)]) + ((0.0143637 * fVec2[((IOTA - 51) & 127)]) + ((0.018899099999999999 * fVec2[((IOTA - 50) & 127)]) + ((0.016699200000000001 * fVec2[((IOTA - 49) & 127)]) + ((0.0121522 * fVec2[((IOTA - 48) & 127)]) + ((0.011685700000000002 * fVec2[((IOTA - 47) & 127)]) + ((0.0122635 * fVec2[((IOTA - 46) & 127)]) + ((0.017027300000000002 * fVec2[((IOTA - 45) & 127)]) + ((0.019806900000000002 * fVec2[((IOTA - 44) & 127)]) + ((0.017303499999999999 * fVec2[((IOTA - 43) & 127)]) + ((0.017569399999999999 * fVec2[((IOTA - 42) & 127)]) + ((0.016072400000000001 * fVec2[((IOTA - 41) & 127)]) + ((0.0227996 * fVec2[((IOTA - 40) & 127)]) + ((0.016965000000000001 * fVec2[((IOTA - 39) & 127)]) + ((0.017693 * fVec2[((IOTA - 38) & 127)]) + ((0.033336499999999998 * fVec2[((IOTA - 37) & 127)]) + ((0.029073099999999998 * fVec2[((IOTA - 36) & 127)]) + ((0.018621700000000001 * fVec2[((IOTA - 35) & 127)]) + ((0.023295900000000001 * fVec2[((IOTA - 34) & 127)]) + ((0.030269900000000002 * fVec2[((IOTA - 33) & 127)]) + ((0.023498000000000002 * fVec2[((IOTA - 32) & 127)]) + ((0.012867100000000001 * fVec2[((IOTA - 31) & 127)]) + ((0.024658199999999998 * fVec2[((IOTA - 30) & 127)]) + ((0.033071500000000004 * fVec2[((IOTA - 29) & 127)]) + ((0.023601800000000003 * fVec2[((IOTA - 28) & 127)]) + ((0.025422899999999998 * fVec2[((IOTA - 27) & 127)]) + ((0.014210199999999999 * fVec2[((IOTA - 26) & 127)]) + ((0.010567 * fVec2[((IOTA - 25) & 127)]) + ((0.056895100000000004 * fVec2[((IOTA - 24) & 127)]) + ((1.74779e-06 * fVec3[((IOTA - 126) & 127)]) + ((7.1374800000000001e-06 * fVec3[((IOTA - 125) & 127)]) + ((1.69708e-05 * fVec3[((IOTA - 124) & 127)]) + ((7.3980599999999995e-07 * fVec3[((IOTA - 123) & 127)]) + ((5.5996800000000006e-05 * fVec3[((IOTA - 121) & 127)]) + ((0.000117308 * fVec3[((IOTA - 120) & 127)]) + ((0.000195057 * fVec3[((IOTA - 119) & 127)]) + ((0.00020216400000000001 * fVec3[((IOTA - 118) & 127)]) + ((0.00016114100000000001 * fVec3[((IOTA - 117) & 127)]) + ((0.00038352400000000005 * fVec3[((IOTA - 116) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((((((((4.49754e-06 * fVec3[((IOTA - 56) & 127)]) + ((0.0039973999999999999 * fVec3[((IOTA - 55) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((((((((1.96889e-05 * fTemp3) + (0.00012713900000000002 * fVec3[((IOTA - 1) & 127)])) + (0.00072445800000000009 * fVec3[((IOTA - 3) & 127)])) + (0.00084005400000000002 * fVec3[((IOTA - 4) & 127)])) + (0.00078251799999999995 * fVec3[((IOTA - 5) & 127)])) + (0.00064681700000000005 * fVec3[((IOTA - 6) & 127)])) + (0.00105561 * fVec3[((IOTA - 7) & 127)])) + (0.00107368 * fVec3[((IOTA - 8) & 127)])) + (0.00055752700000000004 * fVec3[((IOTA - 9) & 127)])) + (0.0020685400000000002 * fVec3[((IOTA - 10) & 127)])) + (0.0007391530000000001 * fVec3[((IOTA - 11) & 127)])) + (0.048941400000000003 * fVec3[((IOTA - 12) & 127)])) + (0.053001199999999998 * fVec3[((IOTA - 13) & 127)])) + (0.046698700000000003 * fVec3[((IOTA - 14) & 127)])) + (0.062211200000000001 * fVec3[((IOTA - 15) & 127)])) + (0.043948600000000004 * fVec3[((IOTA - 16) & 127)])) + (0.081345899999999999 * fVec3[((IOTA - 17) & 127)])) + (0.047424299999999996 * fVec3[((IOTA - 18) & 127)])) + (0.041405900000000002 * fVec3[((IOTA - 19) & 127)])) + (0.069732299999999997 * fVec3[((IOTA - 20) & 127)])) + (0.050380599999999998 * fVec3[((IOTA - 21) & 127)])) + (0.111697 * fVec3[((IOTA - 22) & 127)])) + (0.054464300000000007 * fVec3[((IOTA - 23) & 127)])) + (0.036801199999999999 * fVec3[((IOTA - 25) & 127)])) + (0.042423700000000002 * fVec3[((IOTA - 26) & 127)])) + (0.0075229400000000005 * fVec3[((IOTA - 27) & 127)])) + (0.0123141 * fVec3[((IOTA - 28) & 127)])) + (0.0216826 * fVec3[((IOTA - 29) & 127)])) + (0.017730600000000003 * fVec3[((IOTA - 30) & 127)])) + (0.0080194200000000011 * fVec3[((IOTA - 31) & 127)])) + (0.021074000000000002 * fVec3[((IOTA - 33) & 127)])) + (0.0272114 * fVec3[((IOTA - 34) & 127)])) + (0.0056564199999999997 * fVec3[((IOTA - 35) & 127)])) + (0.010539099999999999 * fVec3[((IOTA - 36) & 127)])) + (0.0081598500000000015 * fVec3[((IOTA - 37) & 127)])) + (0.0060665699999999994 * fVec3[((IOTA - 38) & 127)])) + (0.0072938400000000002 * fVec3[((IOTA - 39) & 127)])) + (0.0014525200000000001 * fVec3[((IOTA - 40) & 127)])) + (0.0049862900000000009 * fVec3[((IOTA - 41) & 127)])) + (0.014038399999999999 * fVec3[((IOTA - 42) & 127)])) + (0.0105579 * fVec3[((IOTA - 43) & 127)])) + (0.00431154 * fVec3[((IOTA - 45) & 127)])) + (0.0084629900000000001 * fVec3[((IOTA - 46) & 127)])) + (0.0007157 * fVec3[((IOTA - 47) & 127)])) + (0.00067166600000000002 * fVec3[((IOTA - 48) & 127)])) + (0.0046483699999999998 * fVec3[((IOTA - 49) & 127)])) + (0.0014356600000000001 * fVec3[((IOTA - 50) & 127)])) + (0.00020930100000000001 * fVec3[((IOTA - 51) & 127)])) + (0.00139635 * fVec3[((IOTA - 52) & 127)])) + (0.0029229899999999999 * fVec3[((IOTA - 53) & 127)])) + (0.0042595000000000003 * fVec3[((IOTA - 54) & 127)])))) + (0.00278079 * fVec3[((IOTA - 58) & 127)])) + (0.0038020800000000002 * fVec3[((IOTA - 59) & 127)])) + (0.0026122100000000002 * fVec3[((IOTA - 60) & 127)])) + (0.00338193 * fVec3[((IOTA - 61) & 127)])) + (0.0064815100000000002 * fVec3[((IOTA - 62) & 127)])) + (0.0067297599999999996 * fVec3[((IOTA - 63) & 127)])) + (0.0038801100000000004 * fVec3[((IOTA - 64) & 127)])) + (0.0029381799999999999 * fVec3[((IOTA - 65) & 127)])) + (0.0016933400000000002 * fVec3[((IOTA - 66) & 127)])) + (0.0028127900000000003 * fVec3[((IOTA - 67) & 127)])) + (0.0033726400000000001 * fVec3[((IOTA - 68) & 127)])) + (0.00072404000000000001 * fVec3[((IOTA - 70) & 127)])) + (0.0019828699999999999 * fVec3[((IOTA - 71) & 127)])) + (0.0039087499999999999 * fVec3[((IOTA - 72) & 127)])) + (0.0053022700000000004 * fVec3[((IOTA - 73) & 127)])) + (0.0036032700000000004 * fVec3[((IOTA - 74) & 127)])) + (0.0053821700000000004 * fVec3[((IOTA - 75) & 127)])) + (0.0046326400000000004 * fVec3[((IOTA - 76) & 127)])) + (0.0020199900000000002 * fVec3[((IOTA - 77) & 127)])) + (0.0020409600000000001 * fVec3[((IOTA - 78) & 127)])) + (0.00144247 * fVec3[((IOTA - 79) & 127)])) + (0.0026692399999999998 * fVec3[((IOTA - 80) & 127)])) + (0.0015368900000000002 * fVec3[((IOTA - 81) & 127)])) + (2.5156400000000002e-05 * fVec3[((IOTA - 83) & 127)])) + (0.0010550900000000001 * fVec3[((IOTA - 84) & 127)])) + (0.0017505699999999999 * fVec3[((IOTA - 85) & 127)])) + (0.0026745600000000003 * fVec3[((IOTA - 86) & 127)])) + (0.00365475 * fVec3[((IOTA - 87) & 127)])) + (0.00193882 * fVec3[((IOTA - 88) & 127)])) + (0.0033512100000000003 * fVec3[((IOTA - 95) & 127)])) + (0.0025739000000000001 * fVec3[((IOTA - 96) & 127)])) + (0.00059498000000000005 * fVec3[((IOTA - 99) & 127)])) + (0.00094503799999999993 * fVec3[((IOTA - 100) & 127)])) + (0.0013272 * fVec3[((IOTA - 101) & 127)])) + (0.00147426 * fVec3[((IOTA - 102) & 127)])) + (0.0018419899999999999 * fVec3[((IOTA - 103) & 127)])) + (0.0012236 * fVec3[((IOTA - 104) & 127)])) + (0.00100501 * fVec3[((IOTA - 105) & 127)])) + (0.0016259900000000001 * fVec3[((IOTA - 106) & 127)])) + (0.0013097499999999999 * fVec3[((IOTA - 107) & 127)])) + (0.00095978899999999995 * fVec3[((IOTA - 108) & 127)])) + (0.000779071 * fVec3[((IOTA - 109) & 127)])) + (0.00070924500000000006 * fVec3[((IOTA - 110) & 127)])) + (0.0010336799999999999 * fVec3[((IOTA - 111) & 127)])) + (0.00050421999999999999 * fVec3[((IOTA - 112) & 127)])) + (0.00042659700000000002 * fVec3[((IOTA - 113) & 127)])) + (0.00050803600000000001 * fVec3[((IOTA - 114) & 127)])) + (0.00050261399999999997 * fVec3[((IOTA - 115) & 127)])) + (0.00027516900000000002 * fVec2[((IOTA - 2) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00028600400000000002 * fVec0[((IOTA - 8) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((7.4329200000000013e-05 * fVec0[((IOTA - 115) & 127)]) + ((0.00029377599999999999 * fVec0[((IOTA - 114) & 127)]) + ((0.000280439 * fVec0[((IOTA - 113) & 127)]) + ((0.00052814500000000005 * fVec0[((IOTA - 110) & 127)]) + ((0.00070229999999999999 * fVec0[((IOTA - 109) & 127)]) + ((0.00080632699999999991 * fVec0[((IOTA - 108) & 127)]) + ((0.000643591 * fVec0[((IOTA - 107) & 127)]) + ((0.00081294000000000006 * fVec0[((IOTA - 106) & 127)]) + ((0.00082950500000000002 * fVec0[((IOTA - 105) & 127)]) + ((0.00023107600000000004 * fVec0[((IOTA - 104) & 127)]) + ((0.00064061300000000005 * fVec0[((IOTA - 103) & 127)]) + ((0.00091664000000000003 * fVec0[((IOTA - 102) & 127)]) + ((0.00073955600000000005 * fVec0[((IOTA - 101) & 127)]) + ((0.00059890600000000007 * fVec0[((IOTA - 100) & 127)]) + ((0.0013073099999999999 * fVec0[((IOTA - 99) & 127)]) + ((0.0027768799999999998 * fVec0[((IOTA - 98) & 127)]) + ((0.00040949500000000001 * fVec0[((IOTA - 97) & 127)]) + ((0.00145302 * fVec0[((IOTA - 94) & 127)]) + ((0.0022861500000000002 * fVec0[((IOTA - 93) & 127)]) + ((0.001377 * fVec0[((IOTA - 90) & 127)]) + ((0.0017080400000000001 * fVec0[((IOTA - 89) & 127)]) + ((0.00016274 * fVec0[((IOTA - 83) & 127)]) + ((0.0027307400000000002 * fVec0[((IOTA - 82) & 127)]) + ((0.0028667500000000004 * fVec0[((IOTA - 81) & 127)]) + ((0.0011399600000000002 * fVec0[((IOTA - 80) & 127)]) + ((0.00110995 * fVec0[((IOTA - 79) & 127)]) + ((0.00124602 * fVec0[((IOTA - 78) & 127)]) + ((0.00129805 * fVec0[((IOTA - 77) & 127)]) + ((0.00100318 * fVec0[((IOTA - 76) & 127)]) + ((0.0022987899999999998 * fVec0[((IOTA - 75) & 127)]) + ((0.0019049100000000001 * fVec0[((IOTA - 74) & 127)]) + ((0.00059075000000000002 * fVec0[((IOTA - 73) & 127)]) + ((0.00103864 * fVec0[((IOTA - 72) & 127)]) + ((0.0013787300000000001 * fVec0[((IOTA - 71) & 127)]) + ((0.00181733 * fVec0[((IOTA - 70) & 127)]) + ((0.00293582 * fVec0[((IOTA - 69) & 127)]) + ((0.0023355800000000003 * fVec0[((IOTA - 68) & 127)]) + ((0.0011070699999999999 * fVec0[((IOTA - 67) & 127)]) + ((0.00050953999999999995 * fVec0[((IOTA - 66) & 127)]) + ((0.00044511000000000003 * fVec0[((IOTA - 65) & 127)]) + ((0.0038312400000000001 * fVec0[((IOTA - 61) & 127)]) + ((0.0016638 * fVec0[((IOTA - 60) & 127)]) + ((0.0043739400000000006 * fVec0[((IOTA - 48) & 127)]) + ((0.0013932899999999999 * fVec0[((IOTA - 45) & 127)]) + ((0.0106382 * fVec0[((IOTA - 41) & 127)]) + ((0.0043469900000000002 * fVec0[((IOTA - 40) & 127)]) + ((0.0015759000000000001 * fVec0[((IOTA - 37) & 127)]) + ((0.0073185999999999998 * fVec0[((IOTA - 36) & 127)]) + ((0.0045973800000000007 * fVec0[((IOTA - 35) & 127)]) + ((0.013183400000000001 * fVec0[((IOTA - 33) & 127)]) + ((0.028645500000000001 * fVec0[((IOTA - 32) & 127)]) + ((0.0092487699999999999 * fVec0[((IOTA - 29) & 127)]) + ((0.039121700000000002 * fVec0[((IOTA - 28) & 127)]) + ((0.00144425 * fVec0[((IOTA - 27) & 127)]) + ((0.0060285 * fVec0[((IOTA - 25) & 127)]) + ((0.057524800000000001 * fVec0[((IOTA - 24) & 127)]) + ((0.00050577300000000005 * fVec0[((IOTA - 7) & 127)]) + ((0.00019702400000000002 * fVec0[((IOTA - 5) & 127)]) + ((6.4290300000000003e-05 * fVec0[((IOTA - 3) & 127)]) + ((0.021570599999999999 * fVec0[((IOTA - 21) & 127)]) + ((0.0014793400000000002 * fVec0[((IOTA - 20) & 127)]) + ((0.0043988899999999999 * fVec0[((IOTA - 19) & 127)]) + ((0.0073680199999999994 * fVec0[((IOTA - 16) & 127)]) + ((0.00058021900000000009 * fVec0[((IOTA - 14) & 127)]) + ((0.0037306700000000002 * fVec0[((IOTA - 12) & 127)]) + (((7.8904099999999995e-07 * fVec1[((IOTA - 118) & 127)]) + ((5.1851200000000009e-05 * fVec1[((IOTA - 117) & 127)]) + ((3.48346e-05 * fVec1[((IOTA - 116) & 127)]) + ((0.000263489 * fVec1[((IOTA - 113) & 127)]) + ((0.00048678400000000003 * fVec1[((IOTA - 112) & 127)]) + ((0.00066577900000000002 * fVec1[((IOTA - 111) & 127)]) + ((0.00072508600000000011 * fVec1[((IOTA - 110) & 127)]) + ((0.00094771800000000006 * fVec1[((IOTA - 109) & 127)]) + ((0.00085589900000000003 * fVec1[((IOTA - 108) & 127)]) + ((0.00097958799999999999 * fVec1[((IOTA - 107) & 127)]) + ((0.00110553 * fVec1[((IOTA - 106) & 127)]) + ((0.00082826600000000003 * fVec1[((IOTA - 105) & 127)]) + ((0.0013655500000000001 * fVec1[((IOTA - 104) & 127)]) + ((0.0018638400000000001 * fVec1[((IOTA - 103) & 127)]) + ((0.0016748900000000001 * fVec1[((IOTA - 102) & 127)]) + ((0.0013615999999999999 * fVec1[((IOTA - 101) & 127)]) + ((0.00120272 * fVec1[((IOTA - 100) & 127)]) + ((0.00103053 * fVec1[((IOTA - 99) & 127)]) + ((0.00040302800000000005 * fVec1[((IOTA - 98) & 127)]) + ((0.0012814900000000001 * fVec1[((IOTA - 97) & 127)]) + ((0.0015273399999999999 * fVec1[((IOTA - 96) & 127)]) + ((0.00046550599999999997 * fVec1[((IOTA - 95) & 127)]) + ((0.00038473700000000001 * fVec1[((IOTA - 94) & 127)]) + ((0.0010250300000000001 * fVec1[((IOTA - 93) & 127)]) + ((0.0011346700000000002 * fVec1[((IOTA - 92) & 127)]) + ((0.00043984100000000006 * fVec1[((IOTA - 85) & 127)]) + ((0.00021673800000000001 * fVec1[((IOTA - 84) & 127)]) + ((2.74177e-05 * fVec1[((IOTA - 82) & 127)]) + ((0.0010960700000000002 * fVec1[((IOTA - 77) & 127)]) + ((0.0013700399999999999 * fVec1[((IOTA - 73) & 127)]) + ((0.0030635300000000001 * fVec1[((IOTA - 72) & 127)]) + ((0.0019637600000000002 * fVec1[((IOTA - 71) & 127)]) + ((0.0018260300000000002 * fVec1[((IOTA - 70) & 127)]) + ((0.00238017 * fVec1[((IOTA - 69) & 127)]) + ((0.0031654200000000004 * fVec1[((IOTA - 68) & 127)]) + ((0.00275033 * fVec1[((IOTA - 67) & 127)]) + ((0.0016457800000000001 * fVec1[((IOTA - 66) & 127)]) + ((0.0025982900000000001 * fVec1[((IOTA - 65) & 127)]) + ((0.0013408299999999999 * fVec1[((IOTA - 64) & 127)]) + ((0.00068048499999999999 * fVec1[((IOTA - 60) & 127)]) + ((0.00122218 * fVec1[((IOTA - 59) & 127)]) + ((0.00152893 * fVec1[((IOTA - 58) & 127)]) + ((0.0022063899999999999 * fVec1[((IOTA - 57) & 127)]) + ((0.00078379700000000003 * fVec1[((IOTA - 56) & 127)]) + ((0.00022987799999999998 * fVec1[((IOTA - 52) & 127)]) + ((0.00078511300000000004 * fVec1[((IOTA - 51) & 127)]) + ((0.0012260999999999999 * fVec1[((IOTA - 45) & 127)]) + ((0.0026344099999999998 * fVec1[((IOTA - 44) & 127)]) + ((0.0038961999999999998 * fVec1[((IOTA - 39) & 127)]) + ((0.011467400000000001 * fVec1[((IOTA - 38) & 127)]) + ((0.0078678299999999993 * fVec1[((IOTA - 37) & 127)]) + ((0.0013363100000000001 * fVec1[((IOTA - 34) & 127)]) + ((0.0089890100000000004 * fVec1[((IOTA - 32) & 127)]) + ((0.0143689 * fVec1[((IOTA - 31) & 127)]) + ((0.0049334100000000001 * fVec1[((IOTA - 30) & 127)]) + ((0.019686699999999998 * fVec1[((IOTA - 27) & 127)]) + ((0.0086390499999999988 * fVec1[((IOTA - 25) & 127)]) + ((0.043355600000000001 * fVec1[((IOTA - 19) & 127)]) + ((0.00249322 * fVec1[((IOTA - 18) & 127)]) + ((0.0141169 * fVec1[((IOTA - 16) & 127)]) + ((0.0111431 * fVec1[((IOTA - 15) & 127)]) + ((0.0018486100000000001 * fVec1[((IOTA - 14) & 127)]) + ((0.000976993 * fVec1[((IOTA - 13) & 127)]) + ((0.0056459800000000001 * fVec1[((IOTA - 12) & 127)]) + ((0.00021246900000000004 * fVec1[((IOTA - 11) & 127)]) + ((0.00095016999999999996 * fVec1[((IOTA - 10) & 127)]) + ((0.0010622000000000001 * fVec1[((IOTA - 7) & 127)]) + ((0.00024919200000000002 * fVec1[((IOTA - 6) & 127)]) + ((0.00027049600000000001 * fVec1[((IOTA - 3) & 127)]) + ((5.1123399999999996e-06 * fVec1[((IOTA - 2) & 127)]) + ((3.7580000000000003e-05 * fVec1[((IOTA - 1) & 127)]) + (((2.5019199999999998e-06 * fVec2[((IOTA - 120) & 127)]) + ((0.00015476800000000001 * fVec2[((IOTA - 107) & 127)]) + ((2.3801800000000003e-05 * fVec2[((IOTA - 106) & 127)]) + ((0.00041578400000000004 * fVec2[((IOTA - 105) & 127)]) + ((0.00040693400000000007 * fVec2[((IOTA - 104) & 127)]) + ((0.00042180200000000004 * fVec2[((IOTA - 103) & 127)]) + ((0.00064933700000000005 * fVec2[((IOTA - 102) & 127)]) + ((0.0010572399999999999 * fVec2[((IOTA - 101) & 127)]) + ((0.00096599000000000012 * fVec2[((IOTA - 100) & 127)]) + ((0.00077855999999999997 * fVec2[((IOTA - 99) & 127)]) + ((0.00073777800000000002 * fVec2[((IOTA - 98) & 127)]) + ((0.00065036 * fVec2[((IOTA - 97) & 127)]) + ((0.00069698000000000004 * fVec2[((IOTA - 96) & 127)]) + ((0.0013956400000000001 * fVec2[((IOTA - 95) & 127)]) + ((0.0020596199999999999 * fVec2[((IOTA - 94) & 127)]) + ((0.0017169000000000002 * fVec2[((IOTA - 93) & 127)]) + ((0.0012716300000000002 * fVec2[((IOTA - 92) & 127)]) + ((0.00130908 * fVec2[((IOTA - 91) & 127)]) + ((0.00161012 * fVec2[((IOTA - 88) & 127)]) + ((0.0016711600000000001 * fVec2[((IOTA - 87) & 127)]) + ((0.00075290600000000002 * fVec2[((IOTA - 86) & 127)]) + ((0.00144013 * fVec2[((IOTA - 85) & 127)]) + ((0.0021273399999999997 * fVec2[((IOTA - 84) & 127)]) + ((0.00061597300000000002 * fVec2[((IOTA - 83) & 127)]) + ((0.00011313 * fVec2[((IOTA - 81) & 127)]) + ((0.0017438199999999999 * fVec2[((IOTA - 80) & 127)]) + ((0.0024799100000000001 * fVec2[((IOTA - 79) & 127)]) + ((0.00256507 * fVec2[((IOTA - 78) & 127)]) + ((0.0011552999999999999 * fVec2[((IOTA - 75) & 127)]) + ((0.00098456699999999999 * fVec2[((IOTA - 74) & 127)]) + ((0.000597807 * fVec2[((IOTA - 73) & 127)]) + ((0.0018893200000000001 * fVec2[((IOTA - 72) & 127)]) + ((0.00092920600000000002 * fVec2[((IOTA - 23) & 127)]) + ((0.080136100000000002 * fVec2[((IOTA - 22) & 127)]) + ((0.041393800000000001 * fVec2[((IOTA - 21) & 127)]) + ((0.042661300000000006 * fVec2[((IOTA - 20) & 127)]) + ((0.0088175100000000006 * fVec2[((IOTA - 19) & 127)]) + ((0.053196100000000003 * fVec2[((IOTA - 18) & 127)]) + ((0.097787600000000002 * fVec2[((IOTA - 17) & 127)]) + ((0.040092800000000005 * fVec2[((IOTA - 16) & 127)]) + ((0.077296500000000004 * fVec2[((IOTA - 15) & 127)]) + ((0.064767000000000005 * fVec2[((IOTA - 14) & 127)]) + ((0.082935599999999998 * fVec2[((IOTA - 13) & 127)]) + ((0.078489900000000001 * fVec2[((IOTA - 12) & 127)]) + ((0.00067357800000000009 * fVec2[((IOTA - 11) & 127)]) + ((0.00149621 * fVec2[((IOTA - 10) & 127)]) + ((0.00072128000000000003 * fVec2[((IOTA - 9) & 127)]) + ((0.00101019 * fVec2[((IOTA - 8) & 127)]) + ((0.000453602 * fVec2[((IOTA - 7) & 127)]) + ((0.00042969900000000002 * fVec2[((IOTA - 6) & 127)]) + ((0.0010723199999999999 * fVec2[((IOTA - 5) & 127)]) + ((0.00084950300000000004 * fVec2[((IOTA - 4) & 127)]) + ((1.47262e-06 * fVec3[((IOTA - 122) & 127)]) + ((0.00085153200000000001 * fVec2[((IOTA - 3) & 127)]) + ((0.00015027000000000001 * fVec2[((IOTA - 1) & 127)]) + ((0.00048385000000000002 * fVec3[((IOTA - 98) & 127)]) + ((0.00047365100000000001 * fVec3[((IOTA - 97) & 127)]) + ((9.940880000000001e-05 * fVec3[((IOTA - 94) & 127)]) + ((0.0023706000000000001 * fVec3[((IOTA - 93) & 127)]) + ((0.00196204 * fVec3[((IOTA - 92) & 127)]) + ((1.7742000000000001e-05 * fVec3[((IOTA - 91) & 127)]) + ((0.000611186 * fVec3[((IOTA - 90) & 127)]) + ((0.00087519700000000008 * fVec3[((IOTA - 89) & 127)]) + ((0.000687957 * fVec3[((IOTA - 82) & 127)]) + ((0.00036222200000000004 * fVec3[((IOTA - 69) & 127)]) + ((0.00063317100000000008 * fVec3[((IOTA - 57) & 127)]) + ((0.00092078700000000006 * fVec3[((IOTA - 44) & 127)]) + ((0.0029395300000000001 * fVec3[((IOTA - 32) & 127)]) + (((0.00016075400000000001 * fVec3[((IOTA - 2) & 127)]) + (0.021295600000000001 * fVec3[((IOTA - 24) & 127)])) + (2.4709800000000002e-05 * fTemp2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.0426200000000002e-05 * fTemp1))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.000216524 * fVec0[((IOTA - 11) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fHbargraph1 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp5); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + IOTA = (IOTA + 1); + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec0[1] = fRec0[0]; + fRec7[1] = fRec7[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecBinaural2.cpp b/source/HOAUGens/HOADecBinaural2.cpp new file mode 100644 index 0000000000..68bc5f0b40 --- /dev/null +++ b/source/HOAUGens/HOADecBinaural2.cpp @@ -0,0 +1,1390 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL)" +name: "HOADecBinaural2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + int IOTA; + double fVec0[128]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fVec1[128]; + double fRec5[2]; + FAUSTFLOAT fVbargraph2; + double fVec2[128]; + double fRec6[2]; + FAUSTFLOAT fVbargraph3; + double fVec3[128]; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fVec4[128]; + double fRec8[2]; + FAUSTFLOAT fVbargraph5; + double fVec5[128]; + double fRec9[2]; + FAUSTFLOAT fVbargraph6; + double fVec6[128]; + double fRec10[2]; + FAUSTFLOAT fVbargraph7; + double fVec7[128]; + double fRec11[2]; + FAUSTFLOAT fVbargraph8; + double fVec8[128]; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + double fRec12[2]; + FAUSTFLOAT fHbargraph1; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filters.lib/name", "Faust Filters Library"); + m->declare("filters.lib/version", "0.0"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL)"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecBinaural2"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 2; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + IOTA = 0; + for (int l3 = 0; (l3 < 128); l3 = (l3 + 1)) { + fVec0[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 128); l5 = (l5 + 1)) { + fVec1[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec5[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 128); l7 = (l7 + 1)) { + fVec2[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec6[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 128); l9 = (l9 + 1)) { + fVec3[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 128); l11 = (l11 + 1)) { + fVec4[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec8[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 128); l13 = (l13 + 1)) { + fVec5[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec9[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 128); l15 = (l15 + 1)) { + fVec6[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec10[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 128); l17 = (l17 + 1)) { + fVec7[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec11[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 128); l19 = (l19 + 1)) { + fVec8[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec0[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec12[l21] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecBinaural2"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f5640", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38d5570", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38acb00", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3885f50", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x385caa0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38292f0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3804d10", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37d6fe0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37b3a80", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 10"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 10"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("Left"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x3acf3c0", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Right"); + ui_interface->declare(&fHbargraph1, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x3c613a0", &fHbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow1 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input8[i])); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + fVec0[(IOTA & 127)] = fTemp0; + double fTemp1 = (fRec3[0] * double(input7[i])); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + fVec1[(IOTA & 127)] = fTemp1; + double fTemp2 = (fRec3[0] * double(input6[i])); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec5[0]); + fVec2[(IOTA & 127)] = fTemp2; + double fTemp3 = (fRec3[0] * double(input5[i])); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec6[0]); + fVec3[(IOTA & 127)] = fTemp3; + double fTemp4 = (fRec3[0] * double(input4[i])); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + fVec4[(IOTA & 127)] = fTemp4; + double fTemp5 = (fRec3[0] * double(input3[i])); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec8[0]); + fVec5[(IOTA & 127)] = fTemp5; + double fTemp6 = (fRec3[0] * double(input2[i])); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec9[0]); + fVec6[(IOTA & 127)] = fTemp6; + double fTemp7 = (fRec3[0] * double(input1[i])); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec10[0]); + fVec7[(IOTA & 127)] = fTemp7; + double fTemp8 = (fRec3[0] * double(input0[i])); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec11[0]); + fVec8[(IOTA & 127)] = fTemp8; + double fTemp9 = (fRec1[0] * (((1.06705e-06 * fVec0[((IOTA - 126) & 127)]) + ((3.8319600000000005e-05 * fVec0[((IOTA - 122) & 127)]) + ((5.611290000000001e-05 * fVec0[((IOTA - 121) & 127)]) + ((4.3469500000000001e-05 * fVec0[((IOTA - 120) & 127)]) + ((0.00012807300000000001 * fVec0[((IOTA - 4) & 127)]) + ((0.000378556 * fVec0[((IOTA - 2) & 127)]) + ((4.8748200000000002e-05 * fVec0[((IOTA - 117) & 127)]) + ((0.000144938 * fVec0[((IOTA - 110) & 127)]) + ((7.2644700000000013e-05 * fVec0[((IOTA - 104) & 127)]) + ((1.0278999999999999e-06 * fVec0[((IOTA - 103) & 127)]) + ((0.0011606799999999999 * fVec0[((IOTA - 96) & 127)]) + ((0.0031629900000000001 * fVec0[((IOTA - 95) & 127)]) + ((0.00078389600000000007 * fVec0[((IOTA - 94) & 127)]) + ((3.61728e-05 * fVec0[((IOTA - 91) & 127)]) + ((0.0022532999999999997 * fVec0[((IOTA - 86) & 127)]) + ((0.00078204200000000005 * fVec0[((IOTA - 79) & 127)]) + ((0.00053547700000000002 * fVec0[((IOTA - 77) & 127)]) + ((0.00089492 * fVec0[((IOTA - 76) & 127)]) + ((0.00098582100000000001 * fVec0[((IOTA - 75) & 127)]) + ((0.0010638000000000002 * fVec0[((IOTA - 74) & 127)]) + ((0.0020713300000000001 * fVec0[((IOTA - 72) & 127)]) + ((0.00287405 * fVec0[((IOTA - 71) & 127)]) + ((0.0018535400000000001 * fVec0[((IOTA - 70) & 127)]) + ((0.0024114399999999999 * fVec0[((IOTA - 69) & 127)]) + ((0.0054627 * fVec0[((IOTA - 68) & 127)]) + ((0.0053478500000000003 * fVec0[((IOTA - 67) & 127)]) + ((0.0036506200000000003 * fVec0[((IOTA - 66) & 127)]) + ((0.0039108500000000004 * fVec0[((IOTA - 65) & 127)]) + ((0.00124406 * fVec0[((IOTA - 64) & 127)]) + ((0.0026607500000000004 * fVec0[((IOTA - 10) & 127)]) + ((0.00066612700000000008 * fVec0[((IOTA - 53) & 127)]) + ((0.00021471700000000001 * fVec0[((IOTA - 42) & 127)]) + ((0.0083305600000000007 * fVec0[((IOTA - 38) & 127)]) + ((0.0016041499999999999 * fVec0[((IOTA - 34) & 127)]) + ((0.018119700000000002 * fVec0[((IOTA - 33) & 127)]) + ((0.036438700000000004 * fVec0[((IOTA - 30) & 127)]) + ((0.027385400000000001 * fVec0[((IOTA - 29) & 127)]) + ((0.0048108300000000003 * fVec0[((IOTA - 28) & 127)]) + ((0.040978300000000002 * fVec0[((IOTA - 27) & 127)]) + ((0.049985600000000005 * fVec0[((IOTA - 26) & 127)]) + ((0.038770699999999998 * fVec0[((IOTA - 24) & 127)]) + ((0.10758200000000001 * fVec0[((IOTA - 23) & 127)]) + ((0.021392099999999997 * fVec0[((IOTA - 22) & 127)]) + ((0.041771900000000008 * fVec0[((IOTA - 20) & 127)]) + ((0.055177400000000001 * fVec0[((IOTA - 19) & 127)]) + ((0.0108086 * fVec0[((IOTA - 18) & 127)]) + ((4.9495899999999995e-07 * fVec1[((IOTA - 126) & 127)]) + ((2.773e-06 * fVec1[((IOTA - 125) & 127)]) + ((5.3135e-06 * fVec1[((IOTA - 121) & 127)]) + ((0.0013556799999999999 * fVec0[((IOTA - 6) & 127)]) + ((2.8457499999999998e-06 * fVec1[((IOTA - 117) & 127)]) + ((2.4558300000000005e-05 * fVec1[((IOTA - 116) & 127)]) + ((5.2591200000000006e-05 * fVec1[((IOTA - 112) & 127)]) + ((0.00024796200000000001 * fVec1[((IOTA - 111) & 127)]) + ((0.00014221200000000001 * fVec1[((IOTA - 110) & 127)]) + ((0.00010309 * fVec1[((IOTA - 108) & 127)]) + ((0.00018337600000000001 * fVec1[((IOTA - 107) & 127)]) + ((0.00035608600000000003 * fVec1[((IOTA - 106) & 127)]) + ((0.00034403800000000002 * fVec1[((IOTA - 105) & 127)]) + ((0.00025383300000000002 * fVec1[((IOTA - 104) & 127)]) + ((0.00028535700000000003 * fVec1[((IOTA - 103) & 127)]) + ((0.00070562000000000001 * fVec1[((IOTA - 102) & 127)]) + ((0.0005151 * fVec1[((IOTA - 101) & 127)]) + ((0.00066903899999999996 * fVec0[((IOTA - 8) & 127)]) + ((0.00032077100000000002 * fVec1[((IOTA - 100) & 127)]) + ((9.0654800000000018e-05 * fVec1[((IOTA - 99) & 127)]) + ((0.00071143700000000009 * fVec1[((IOTA - 98) & 127)]) + ((0.0014366699999999999 * fVec1[((IOTA - 97) & 127)]) + ((0.00124614 * fVec1[((IOTA - 94) & 127)]) + ((0.0022713 * fVec1[((IOTA - 93) & 127)]) + ((0.00127749 * fVec1[((IOTA - 86) & 127)]) + ((0.00070097300000000003 * fVec1[((IOTA - 85) & 127)]) + ((6.2936500000000003e-05 * fVec1[((IOTA - 77) & 127)]) + ((2.0687900000000002e-05 * fVec1[((IOTA - 76) & 127)]) + ((0.00074920100000000001 * fVec1[((IOTA - 72) & 127)]) + ((0.00108661 * fVec1[((IOTA - 71) & 127)]) + ((0.00066226100000000003 * fVec1[((IOTA - 70) & 127)]) + ((0.00221192 * fVec1[((IOTA - 68) & 127)]) + ((0.0036181899999999999 * fVec1[((IOTA - 67) & 127)]) + ((3.8066800000000006e-05 * fVec1[((IOTA - 66) & 127)]) + ((2.7286800000000004e-05 * fVec1[((IOTA - 64) & 127)]) + ((0.0014662800000000001 * fVec1[((IOTA - 63) & 127)]) + ((0.0025716599999999999 * fVec1[((IOTA - 62) & 127)]) + ((0.00040080500000000001 * fVec1[((IOTA - 61) & 127)]) + ((0.0022166500000000001 * fVec1[((IOTA - 59) & 127)]) + ((0.0027539400000000003 * fVec1[((IOTA - 58) & 127)]) + ((0.000547636 * fVec1[((IOTA - 57) & 127)]) + ((0.0034324300000000002 * fVec1[((IOTA - 56) & 127)]) + ((0.0028814800000000001 * fVec1[((IOTA - 55) & 127)]) + ((0.00020467599999999999 * fVec1[((IOTA - 54) & 127)]) + ((0.0030387000000000001 * fVec1[((IOTA - 36) & 127)]) + ((0.021556799999999997 * fVec1[((IOTA - 35) & 127)]) + ((0.023527200000000002 * fVec1[((IOTA - 32) & 127)]) + ((0.0021948500000000004 * fVec1[((IOTA - 31) & 127)]) + ((0.00051807200000000006 * fVec1[((IOTA - 29) & 127)]) + ((0.024944000000000001 * fVec1[((IOTA - 26) & 127)]) + ((0.0035849099999999997 * fVec1[((IOTA - 25) & 127)]) + ((0.011300600000000001 * fVec1[((IOTA - 19) & 127)]) + ((0.0094331200000000014 * fVec1[((IOTA - 18) & 127)]) + ((0.0071840999999999997 * fVec1[((IOTA - 15) & 127)]) + ((0.00027813700000000002 * fVec1[((IOTA - 12) & 127)]) + ((0.00027818999999999999 * fVec1[((IOTA - 11) & 127)]) + ((0.00033955200000000002 * fVec1[((IOTA - 10) & 127)]) + ((0.00022609 * fVec1[((IOTA - 9) & 127)]) + ((0.00016021500000000001 * fVec1[((IOTA - 7) & 127)]) + ((0.000240886 * fVec1[((IOTA - 6) & 127)]) + ((2.4972599999999999e-05 * fVec1[((IOTA - 3) & 127)]) + ((5.2352700000000004e-05 * fVec1[((IOTA - 2) & 127)]) + ((4.2462999999999995e-06 * fTemp1) + ((0.0021549399999999997 * fVec1[((IOTA - 44) & 127)]) + ((0.0025276200000000004 * fVec1[((IOTA - 51) & 127)]) + ((0.0045955500000000003 * fVec1[((IOTA - 50) & 127)]) + ((0.0013761300000000001 * fVec1[((IOTA - 41) & 127)]) + ((0.002183 * fVec1[((IOTA - 38) & 127)]) + ((8.9630500000000016e-08 * fVec2[((IOTA - 126) & 127)]) + ((4.86084e-05 * fVec2[((IOTA - 119) & 127)]) + ((3.0215200000000005e-05 * fVec2[((IOTA - 118) & 127)]) + ((0.00010084700000000001 * fVec2[((IOTA - 110) & 127)]) + ((0.00034166200000000001 * fVec2[((IOTA - 109) & 127)]) + ((0.000204718 * fVec2[((IOTA - 108) & 127)]) + ((0.00033797299999999998 * fVec2[((IOTA - 107) & 127)]) + ((0.00045785700000000004 * fVec2[((IOTA - 106) & 127)]) + ((0.00013590400000000001 * fVec2[((IOTA - 105) & 127)]) + ((6.0929900000000008e-05 * fVec2[((IOTA - 104) & 127)]) + ((0.000208667 * fVec2[((IOTA - 102) & 127)]) + ((0.00030785900000000001 * fVec2[((IOTA - 101) & 127)]) + ((0.00026147399999999998 * fVec2[((IOTA - 100) & 127)]) + ((0.00048677700000000003 * fVec2[((IOTA - 99) & 127)]) + ((0.0012107800000000001 * fVec2[((IOTA - 98) & 127)]) + ((0.00076490500000000008 * fVec2[((IOTA - 97) & 127)]) + ((0.00058266999999999998 * fVec2[((IOTA - 94) & 127)]) + ((0.00082486899999999999 * fVec2[((IOTA - 93) & 127)]) + ((0.0011506799999999998 * fVec2[((IOTA - 92) & 127)]) + ((3.5632800000000002e-05 * fVec2[((IOTA - 91) & 127)]) + ((3.64663e-05 * fVec2[((IOTA - 90) & 127)]) + ((0.00056137899999999998 * fVec2[((IOTA - 88) & 127)]) + ((0.00015598000000000001 * fVec2[((IOTA - 87) & 127)]) + ((0.00076870700000000009 * fVec2[((IOTA - 84) & 127)]) + ((0.0014322200000000001 * fVec2[((IOTA - 83) & 127)]) + ((0.00046067700000000005 * fVec2[((IOTA - 82) & 127)]) + ((0.00064690400000000001 * fVec2[((IOTA - 79) & 127)]) + ((0.00271718 * fVec2[((IOTA - 75) & 127)]) + ((6.2586200000000001e-05 * fVec2[((IOTA - 72) & 127)]) + ((0.00117567 * fVec2[((IOTA - 71) & 127)]) + ((0.0012521400000000001 * fVec2[((IOTA - 70) & 127)]) + ((0.00055114699999999999 * fVec2[((IOTA - 66) & 127)]) + ((0.00110439 * fVec2[((IOTA - 65) & 127)]) + ((0.0016155 * fVec2[((IOTA - 64) & 127)]) + ((0.0021511500000000001 * fVec2[((IOTA - 63) & 127)]) + ((0.0019438999999999999 * fVec2[((IOTA - 60) & 127)]) + ((0.00122438 * fVec2[((IOTA - 52) & 127)]) + ((0.0010133200000000001 * fVec2[((IOTA - 6) & 127)]) + ((0.00025746299999999998 * fVec2[((IOTA - 2) & 127)]) + ((0.052758300000000001 * fVec2[((IOTA - 25) & 127)]) + ((0.0124978 * fVec2[((IOTA - 24) & 127)]) + ((0.035996800000000002 * fVec2[((IOTA - 22) & 127)]) + ((0.013752100000000001 * fVec2[((IOTA - 21) & 127)]) + ((0.0018844000000000001 * fVec2[((IOTA - 20) & 127)]) + ((0.0448946 * fVec2[((IOTA - 19) & 127)]) + ((0.00033159299999999998 * fVec2[((IOTA - 18) & 127)]) + ((0.0070393900000000004 * fVec2[((IOTA - 39) & 127)]) + ((0.0048936500000000003 * fVec2[((IOTA - 37) & 127)]) + ((0.0095701499999999995 * fVec2[((IOTA - 36) & 127)]) + ((0.015800600000000001 * fVec2[((IOTA - 33) & 127)]) + ((0.011886499999999999 * fVec2[((IOTA - 32) & 127)]) + ((0.0058739299999999994 * fVec2[((IOTA - 30) & 127)]) + ((0.024750999999999999 * fVec2[((IOTA - 29) & 127)]) + ((0.0086730599999999998 * fVec2[((IOTA - 28) & 127)]) + ((0.023463500000000002 * fVec2[((IOTA - 26) & 127)]) + ((3.43292e-08 * fVec3[((IOTA - 126) & 127)]) + ((3.3588899999999999e-06 * fVec3[((IOTA - 125) & 127)]) + ((3.9804799999999997e-06 * fVec3[((IOTA - 124) & 127)]) + ((0.00255288 * fVec2[((IOTA - 10) & 127)]) + ((2.0105900000000003e-05 * fVec3[((IOTA - 123) & 127)]) + ((7.7608600000000008e-05 * fVec3[((IOTA - 119) & 127)]) + ((5.0789799999999999e-05 * fVec3[((IOTA - 116) & 127)]) + ((0.00020361699999999999 * fVec3[((IOTA - 115) & 127)]) + ((0.00030080800000000001 * fVec3[((IOTA - 114) & 127)]) + ((3.2623300000000003e-05 * fVec3[((IOTA - 113) & 127)]) + ((0.00026027500000000002 * fVec3[((IOTA - 110) & 127)]) + ((0.00020187200000000002 * fVec3[((IOTA - 109) & 127)]) + ((0.00040571999999999998 * fVec3[((IOTA - 108) & 127)]) + ((0.00053009599999999997 * fVec3[((IOTA - 107) & 127)]) + ((0.00050674400000000005 * fVec3[((IOTA - 106) & 127)]) + ((0.00049718700000000006 * fVec3[((IOTA - 105) & 127)]) + ((0.0011330000000000001 * fVec3[((IOTA - 104) & 127)]) + ((0.0016271899999999999 * fVec3[((IOTA - 103) & 127)]) + ((0.00069229100000000004 * fVec3[((IOTA - 102) & 127)]) + ((0.00046662400000000006 * fVec3[((IOTA - 101) & 127)]) + ((0.00069381500000000008 * fVec3[((IOTA - 100) & 127)]) + ((0.00038071900000000001 * fVec3[((IOTA - 99) & 127)]) + ((0.00084254300000000007 * fVec3[((IOTA - 98) & 127)]) + ((0.00094661300000000001 * fVec2[((IOTA - 8) & 127)]) + ((0.00156339 * fVec3[((IOTA - 97) & 127)]) + ((0.0034697200000000004 * fVec3[((IOTA - 96) & 127)]) + ((0.0030116200000000004 * fVec3[((IOTA - 95) & 127)]) + ((0.00075465500000000002 * fVec3[((IOTA - 94) & 127)]) + ((0.00068181600000000002 * fVec3[((IOTA - 93) & 127)]) + ((0.00071934100000000008 * fVec3[((IOTA - 92) & 127)]) + ((0.00040184499999999996 * fVec3[((IOTA - 91) & 127)]) + ((0.00055143000000000011 * fVec3[((IOTA - 90) & 127)]) + ((0.0016723300000000001 * fVec3[((IOTA - 89) & 127)]) + ((0.0017063 * fVec3[((IOTA - 88) & 127)]) + ((0.0013395900000000001 * fVec3[((IOTA - 87) & 127)]) + ((0.0026214800000000003 * fVec3[((IOTA - 86) & 127)]) + ((0.0034494400000000002 * fVec3[((IOTA - 85) & 127)]) + ((0.0025590399999999998 * fVec3[((IOTA - 84) & 127)]) + ((0.0014532900000000001 * fVec3[((IOTA - 83) & 127)]) + ((0.00127111 * fVec3[((IOTA - 78) & 127)]) + ((0.0011545000000000001 * fVec3[((IOTA - 77) & 127)]) + ((0.00061171300000000006 * fVec3[((IOTA - 76) & 127)]) + ((0.00020694100000000001 * fVec3[((IOTA - 75) & 127)]) + ((0.00064708400000000003 * fVec3[((IOTA - 74) & 127)]) + ((0.0010632999999999999 * fVec3[((IOTA - 73) & 127)]) + ((0.000609699 * fVec3[((IOTA - 72) & 127)]) + ((0.00058977500000000006 * fVec3[((IOTA - 71) & 127)]) + ((0.0005591420000000001 * fVec3[((IOTA - 67) & 127)]) + ((8.8419900000000004e-05 * fVec3[((IOTA - 65) & 127)]) + ((0.00150508 * fVec3[((IOTA - 64) & 127)]) + ((0.00215198 * fVec3[((IOTA - 54) & 127)]) + ((0.000219724 * fVec3[((IOTA - 52) & 127)]) + ((0.0017431900000000001 * fVec3[((IOTA - 51) & 127)]) + ((0.000292148 * fVec3[((IOTA - 49) & 127)]) + ((0.00356967 * fVec3[((IOTA - 48) & 127)]) + ((0.00055458199999999997 * fVec3[((IOTA - 47) & 127)]) + ((0.0018462400000000001 * fVec3[((IOTA - 45) & 127)]) + ((0.0038023500000000003 * fVec3[((IOTA - 42) & 127)]) + ((0.0029068700000000002 * fVec3[((IOTA - 40) & 127)]) + ((0.0047945900000000005 * fVec3[((IOTA - 39) & 127)]) + ((0.0038672100000000003 * fVec3[((IOTA - 38) & 127)]) + ((4.1971900000000004e-05 * fVec3[((IOTA - 36) & 127)]) + ((0.0060181399999999999 * fVec3[((IOTA - 35) & 127)]) + ((0.0049045500000000006 * fVec3[((IOTA - 33) & 127)]) + ((0.0091428700000000009 * fVec3[((IOTA - 32) & 127)]) + ((0.0099856200000000006 * fVec3[((IOTA - 29) & 127)]) + ((0.010922899999999999 * fVec3[((IOTA - 28) & 127)]) + ((0.0013328999999999999 * fVec3[((IOTA - 24) & 127)]) + ((0.0016006100000000001 * fVec3[((IOTA - 23) & 127)]) + ((0.0099153599999999998 * fVec3[((IOTA - 22) & 127)]) + ((0.013603000000000001 * fVec3[((IOTA - 21) & 127)]) + ((0.016723499999999999 * fVec3[((IOTA - 20) & 127)]) + ((0.045127499999999994 * fVec3[((IOTA - 17) & 127)]) + ((0.0059659600000000002 * fVec3[((IOTA - 14) & 127)]) + ((0.0027371000000000001 * fVec3[((IOTA - 13) & 127)]) + ((4.6184399999999998e-05 * fVec3[((IOTA - 10) & 127)]) + ((0.0025209700000000004 * fVec3[((IOTA - 8) & 127)]) + ((0.00036855699999999999 * fVec3[((IOTA - 6) & 127)]) + ((0.00070276500000000005 * fVec3[((IOTA - 5) & 127)]) + ((0.00090358699999999997 * fVec3[((IOTA - 4) & 127)]) + ((0.000231406 * fVec3[((IOTA - 2) & 127)]) + ((4.4178200000000003e-05 * fVec3[((IOTA - 1) & 127)]) + ((1.57811e-05 * fTemp3) + ((0.0014054500000000001 * fVec3[((IOTA - 60) & 127)]) + ((2.5137800000000002e-07 * fVec4[((IOTA - 126) & 127)]) + ((6.1820100000000001e-06 * fVec4[((IOTA - 125) & 127)]) + ((3.82797e-06 * fVec4[((IOTA - 124) & 127)]) + ((2.1185900000000001e-06 * fVec4[((IOTA - 123) & 127)]) + ((2.7248300000000001e-05 * fVec4[((IOTA - 121) & 127)]) + ((3.8722400000000007e-05 * fVec4[((IOTA - 120) & 127)]) + ((8.2140799999999984e-06 * fVec4[((IOTA - 119) & 127)]) + ((3.8470500000000004e-05 * fVec4[((IOTA - 117) & 127)]) + ((9.096330000000001e-05 * fVec4[((IOTA - 116) & 127)]) + ((8.7317000000000004e-05 * fVec4[((IOTA - 114) & 127)]) + ((0.000227166 * fVec4[((IOTA - 113) & 127)]) + ((8.3273200000000014e-05 * fVec4[((IOTA - 112) & 127)]) + ((8.2866000000000002e-05 * fVec4[((IOTA - 111) & 127)]) + ((0.00014514899999999999 * fVec4[((IOTA - 110) & 127)]) + ((0.00010655300000000001 * fVec4[((IOTA - 108) & 127)]) + ((0.00020428199999999999 * fVec4[((IOTA - 107) & 127)]) + ((5.2586900000000003e-05 * fVec4[((IOTA - 106) & 127)]) + ((0.00036701000000000003 * fVec4[((IOTA - 105) & 127)]) + ((0.00050770799999999994 * fVec4[((IOTA - 104) & 127)]) + ((0.00025426099999999998 * fVec4[((IOTA - 101) & 127)]) + ((0.00018379600000000001 * fVec4[((IOTA - 98) & 127)]) + ((0.00035138200000000002 * fVec4[((IOTA - 97) & 127)]) + ((7.6149300000000013e-05 * fVec4[((IOTA - 95) & 127)]) + ((0.0015575400000000001 * fVec4[((IOTA - 94) & 127)]) + ((0.00063264199999999999 * fVec4[((IOTA - 93) & 127)]) + ((0.00014839199999999998 * fVec4[((IOTA - 92) & 127)]) + ((0.00086251900000000007 * fVec4[((IOTA - 87) & 127)]) + ((0.0019024199999999999 * fVec4[((IOTA - 86) & 127)]) + ((0.00129144 * fVec4[((IOTA - 83) & 127)]) + ((0.00047882000000000003 * fVec4[((IOTA - 78) & 127)]) + ((0.0013118799999999999 * fVec4[((IOTA - 75) & 127)]) + ((0.0011614100000000001 * fVec4[((IOTA - 74) & 127)]) + ((0.0014712700000000002 * fVec4[((IOTA - 68) & 127)]) + ((0.0026238199999999998 * fVec4[((IOTA - 67) & 127)]) + ((8.7116700000000006e-05 * fVec4[((IOTA - 66) & 127)]) + ((0.0020513699999999998 * fVec4[((IOTA - 62) & 127)]) + ((0.00160801 * fVec4[((IOTA - 61) & 127)]) + ((0.00147938 * fVec4[((IOTA - 59) & 127)]) + ((0.00013115699999999999 * fVec4[((IOTA - 58) & 127)]) + ((0.00050519600000000007 * fVec4[((IOTA - 57) & 127)]) + ((0.0016339300000000002 * fVec4[((IOTA - 56) & 127)]) + ((0.0011073599999999999 * fVec4[((IOTA - 52) & 127)]) + ((0.0016051100000000001 * fVec4[((IOTA - 50) & 127)]) + ((0.0079808199999999996 * fVec4[((IOTA - 49) & 127)]) + ((0.00196889 * fVec4[((IOTA - 48) & 127)]) + ((0.0044432300000000003 * fVec4[((IOTA - 45) & 127)]) + ((0.000208879 * fVec4[((IOTA - 44) & 127)]) + ((0.0013145500000000001 * fVec4[((IOTA - 42) & 127)]) + ((9.226730000000001e-05 * fVec4[((IOTA - 40) & 127)]) + ((0.0053560100000000005 * fVec4[((IOTA - 39) & 127)]) + ((0.0053043999999999999 * fVec4[((IOTA - 38) & 127)]) + ((0.00291413 * fVec4[((IOTA - 37) & 127)]) + ((0.010230900000000001 * fVec4[((IOTA - 36) & 127)]) + ((0.0073240200000000005 * fVec4[((IOTA - 35) & 127)]) + ((0.0073238899999999996 * fVec4[((IOTA - 31) & 127)]) + ((0.0105234 * fVec4[((IOTA - 30) & 127)]) + ((0.0024724199999999999 * fVec4[((IOTA - 8) & 127)]) + ((0.0012886100000000001 * fVec4[((IOTA - 6) & 127)]) + ((0.00084856599999999993 * fVec4[((IOTA - 4) & 127)]) + ((0.00020222799999999999 * fVec4[((IOTA - 2) & 127)]) + ((2.0016700000000001e-05 * fVec4[((IOTA - 1) & 127)]) + ((1.4622100000000002e-05 * fTemp4) + ((0.031673199999999999 * fVec4[((IOTA - 18) & 127)]) + ((0.0274497 * fVec4[((IOTA - 17) & 127)]) + ((0.0030908899999999998 * fVec4[((IOTA - 16) & 127)]) + ((0.0103427 * fVec4[((IOTA - 15) & 127)]) + ((0.0034125200000000005 * fVec4[((IOTA - 26) & 127)]) + ((0.0069197900000000003 * fVec4[((IOTA - 25) & 127)]) + ((2.4533100000000001e-06 * fVec5[((IOTA - 126) & 127)]) + ((1.70273e-06 * fVec5[((IOTA - 125) & 127)]) + ((0.0120915 * fVec4[((IOTA - 13) & 127)]) + ((8.0341699999999997e-06 * fVec5[((IOTA - 123) & 127)]) + ((0.0038904299999999998 * fVec4[((IOTA - 10) & 127)]) + ((3.8827600000000008e-05 * fVec5[((IOTA - 122) & 127)]) + ((0.000101833 * fVec5[((IOTA - 121) & 127)]) + ((3.9296600000000006e-05 * fVec5[((IOTA - 119) & 127)]) + ((3.85491e-05 * fVec5[((IOTA - 117) & 127)]) + ((0.00018456300000000003 * fVec5[((IOTA - 116) & 127)]) + ((0.000184012 * fVec5[((IOTA - 115) & 127)]) + ((0.0019589099999999999 * fVec5[((IOTA - 96) & 127)]) + ((0.0031713800000000001 * fVec5[((IOTA - 95) & 127)]) + ((0.00068253400000000005 * fVec5[((IOTA - 94) & 127)]) + ((0.00056285600000000003 * fVec5[((IOTA - 91) & 127)]) + ((0.0014036900000000002 * fVec5[((IOTA - 90) & 127)]) + ((0.00337025 * fVec5[((IOTA - 87) & 127)]) + ((0.0052786200000000004 * fVec5[((IOTA - 86) & 127)]) + ((0.0015441700000000001 * fVec5[((IOTA - 85) & 127)]) + ((0.00036768800000000002 * fVec5[((IOTA - 84) & 127)]) + ((0.00069545300000000007 * fVec5[((IOTA - 83) & 127)]) + ((0.000105639 * fVec5[((IOTA - 120) & 127)]) + ((0.0010311999999999999 * fVec5[((IOTA - 65) & 127)]) + ((0.00113331 * fVec5[((IOTA - 64) & 127)]) + ((0.0014698599999999999 * fVec5[((IOTA - 63) & 127)]) + ((0.00070883900000000006 * fVec5[((IOTA - 62) & 127)]) + ((0.0020663499999999998 * fVec5[((IOTA - 57) & 127)]) + ((0.00288332 * fVec5[((IOTA - 56) & 127)]) + ((0.0008817050000000001 * fVec5[((IOTA - 55) & 127)]) + ((0.0035919900000000002 * fVec5[((IOTA - 54) & 127)]) + ((0.0016634199999999999 * fVec5[((IOTA - 53) & 127)]) + ((0.0012247 * fVec5[((IOTA - 52) & 127)]) + ((0.00117636 * fVec5[((IOTA - 51) & 127)]) + ((0.00571347 * fVec5[((IOTA - 48) & 127)]) + ((0.0068109299999999998 * fVec5[((IOTA - 45) & 127)]) + ((0.00503769 * fVec5[((IOTA - 44) & 127)]) + ((0.0033690899999999999 * fVec5[((IOTA - 43) & 127)]) + ((0.0081425600000000001 * fVec5[((IOTA - 42) & 127)]) + ((0.0048383499999999999 * fVec5[((IOTA - 39) & 127)]) + ((1.73416e-05 * fVec5[((IOTA - 38) & 127)]) + ((0.0011593500000000002 * fVec5[((IOTA - 37) & 127)]) + ((0.00341282 * fVec5[((IOTA - 36) & 127)]) + ((0.0053672899999999994 * fVec5[((IOTA - 34) & 127)]) + ((0.0060068300000000003 * fVec5[((IOTA - 33) & 127)]) + ((0.036282299999999996 * fVec5[((IOTA - 30) & 127)]) + ((0.0096774400000000007 * fVec5[((IOTA - 29) & 127)]) + ((0.03066 * fVec5[((IOTA - 26) & 127)]) + ((0.0019489700000000002 * fVec5[((IOTA - 23) & 127)]) + ((9.4065400000000002e-05 * fVec5[((IOTA - 22) & 127)]) + ((0.000702438 * fVec5[((IOTA - 20) & 127)]) + ((0.0174746 * fVec5[((IOTA - 18) & 127)]) + ((0.021190899999999999 * fVec5[((IOTA - 17) & 127)]) + ((0.0025345699999999999 * fVec5[((IOTA - 16) & 127)]) + ((0.0025992000000000003 * fVec5[((IOTA - 15) & 127)]) + ((0.0061892400000000004 * fVec5[((IOTA - 13) & 127)]) + ((0.0020100199999999999 * fVec5[((IOTA - 10) & 127)]) + ((0.00148817 * fVec5[((IOTA - 8) & 127)]) + ((0.00053443399999999997 * fVec5[((IOTA - 6) & 127)]) + ((0.00069470999999999997 * fVec5[((IOTA - 4) & 127)]) + ((0.00013874000000000002 * fVec5[((IOTA - 2) & 127)]) + ((2.49699e-05 * fVec5[((IOTA - 1) & 127)]) + ((9.9362800000000004e-06 * fTemp5) + ((0.0053477200000000003 * fVec5[((IOTA - 49) & 127)]) + ((2.4082099999999999e-06 * fVec6[((IOTA - 126) & 127)]) + ((8.464169999999999e-06 * fVec6[((IOTA - 125) & 127)]) + ((8.8836499999999992e-06 * fVec6[((IOTA - 124) & 127)]) + ((8.7967399999999994e-06 * fVec6[((IOTA - 123) & 127)]) + ((2.4375700000000001e-05 * fVec6[((IOTA - 122) & 127)]) + ((8.0066800000000004e-05 * fVec6[((IOTA - 121) & 127)]) + ((9.9426100000000014e-05 * fVec6[((IOTA - 120) & 127)]) + ((9.0816700000000014e-05 * fVec6[((IOTA - 119) & 127)]) + ((5.80835e-05 * fVec6[((IOTA - 118) & 127)]) + ((7.7452699999999998e-05 * fVec6[((IOTA - 117) & 127)]) + ((9.5024799999999997e-07 * fVec6[((IOTA - 116) & 127)]) + ((5.1149400000000002e-05 * fVec6[((IOTA - 98) & 127)]) + ((0.00032476299999999999 * fVec6[((IOTA - 97) & 127)]) + ((0.0012872900000000002 * fVec6[((IOTA - 94) & 127)]) + ((0.0022912900000000001 * fVec6[((IOTA - 93) & 127)]) + ((0.00119739 * fVec6[((IOTA - 92) & 127)]) + ((0.0019518999999999999 * fVec6[((IOTA - 90) & 127)]) + ((0.0043689900000000005 * fVec6[((IOTA - 89) & 127)]) + ((0.00375801 * fVec6[((IOTA - 88) & 127)]) + ((0.0016994499999999999 * fVec6[((IOTA - 87) & 127)]) + ((0.0032713800000000004 * fVec6[((IOTA - 86) & 127)]) + ((0.0036832600000000003 * fVec6[((IOTA - 85) & 127)]) + ((0.00089328000000000009 * fVec6[((IOTA - 84) & 127)]) + ((0.00072158200000000002 * fVec6[((IOTA - 83) & 127)]) + ((0.00038337700000000001 * fVec6[((IOTA - 80) & 127)]) + ((0.0016079900000000001 * fVec6[((IOTA - 79) & 127)]) + ((0.0020680200000000003 * fVec6[((IOTA - 78) & 127)]) + ((0.00028545500000000005 * fVec6[((IOTA - 77) & 127)]) + ((0.00025900400000000002 * fVec6[((IOTA - 75) & 127)]) + ((3.3718100000000005e-05 * fVec6[((IOTA - 63) & 127)]) + ((0.0016691100000000001 * fVec6[((IOTA - 62) & 127)]) + ((0.00089519800000000015 * fVec6[((IOTA - 60) & 127)]) + ((0.00079125400000000002 * fVec6[((IOTA - 59) & 127)]) + ((0.00099548200000000001 * fVec6[((IOTA - 58) & 127)]) + ((0.0024358800000000001 * fVec6[((IOTA - 54) & 127)]) + ((0.0056765999999999995 * fVec6[((IOTA - 53) & 127)]) + ((0.0027909200000000001 * fVec6[((IOTA - 52) & 127)]) + ((0.00077908600000000012 * fVec6[((IOTA - 51) & 127)]) + ((0.0016214599999999999 * fVec6[((IOTA - 50) & 127)]) + ((0.0042173100000000002 * fVec6[((IOTA - 48) & 127)]) + ((0.0091871399999999999 * fVec6[((IOTA - 47) & 127)]) + ((0.0013077200000000001 * fVec6[((IOTA - 46) & 127)]) + ((0.0021427500000000001 * fVec6[((IOTA - 45) & 127)]) + ((0.0022329500000000005 * fVec6[((IOTA - 44) & 127)]) + ((0.0028589500000000003 * fVec6[((IOTA - 42) & 127)]) + ((0.0070971000000000003 * fVec6[((IOTA - 41) & 127)]) + ((0.0053105900000000004 * fVec6[((IOTA - 40) & 127)]) + ((0.0030150300000000001 * fVec6[((IOTA - 39) & 127)]) + ((0.00053429399999999994 * fVec6[((IOTA - 36) & 127)]) + ((0.0164669 * fVec6[((IOTA - 35) & 127)]) + ((0.0037660800000000002 * fVec6[((IOTA - 33) & 127)]) + ((0.0086483100000000011 * fVec6[((IOTA - 32) & 127)]) + ((0.021576300000000003 * fVec6[((IOTA - 29) & 127)]) + ((0.021685099999999999 * fVec6[((IOTA - 28) & 127)]) + ((0.0057969700000000002 * fVec6[((IOTA - 26) & 127)]) + ((0.0057622799999999998 * fVec6[((IOTA - 24) & 127)]) + ((0.0197594 * fVec6[((IOTA - 21) & 127)]) + ((0.0121098 * fVec6[((IOTA - 20) & 127)]) + ((0.032535399999999999 * fVec6[((IOTA - 17) & 127)]) + ((0.00050339700000000005 * fVec6[((IOTA - 14) & 127)]) + ((0.00086802899999999998 * fVec6[((IOTA - 13) & 127)]) + ((0.0016583500000000001 * fVec6[((IOTA - 8) & 127)]) + ((0.00031507000000000003 * fVec6[((IOTA - 5) & 127)]) + ((0.00049461800000000005 * fVec6[((IOTA - 4) & 127)]) + ((0.00015840400000000001 * fVec6[((IOTA - 2) & 127)]) + ((2.8519800000000004e-05 * fVec6[((IOTA - 1) & 127)]) + (((1.1796500000000001e-05 * fVec7[((IOTA - 114) & 127)]) + ((0.00041981599999999999 * fVec7[((IOTA - 107) & 127)]) + ((5.3605900000000008e-05 * fVec7[((IOTA - 105) & 127)]) + ((0.00046969700000000004 * fVec7[((IOTA - 104) & 127)]) + ((0.00047704000000000008 * fVec7[((IOTA - 103) & 127)]) + ((0.00043236800000000009 * fVec7[((IOTA - 102) & 127)]) + ((0.00070973900000000003 * fVec7[((IOTA - 101) & 127)]) + ((0.000705385 * fVec7[((IOTA - 100) & 127)]) + ((0.00045614100000000008 * fVec7[((IOTA - 99) & 127)]) + ((0.00092227100000000001 * fVec7[((IOTA - 98) & 127)]) + ((0.00081300600000000002 * fVec7[((IOTA - 97) & 127)]) + ((0.000623519 * fVec7[((IOTA - 96) & 127)]) + ((0.0013659500000000001 * fVec7[((IOTA - 95) & 127)]) + ((0.00214314 * fVec7[((IOTA - 94) & 127)]) + ((0.0016777999999999999 * fVec7[((IOTA - 93) & 127)]) + ((0.00108099 * fVec7[((IOTA - 92) & 127)]) + ((0.000264467 * fVec7[((IOTA - 89) & 127)]) + ((0.00045975200000000007 * fVec7[((IOTA - 88) & 127)]) + ((0.0013345100000000001 * fVec7[((IOTA - 87) & 127)]) + ((0.0013671599999999999 * fVec7[((IOTA - 86) & 127)]) + ((0.00088433700000000001 * fVec7[((IOTA - 85) & 127)]) + ((0.0010498400000000002 * fVec7[((IOTA - 84) & 127)]) + ((0.00300031 * fVec7[((IOTA - 83) & 127)]) + ((0.00033132700000000002 * fVec7[((IOTA - 82) & 127)]) + ((2.3648600000000003e-05 * fVec7[((IOTA - 80) & 127)]) + ((0.00058793100000000009 * fVec7[((IOTA - 79) & 127)]) + ((0.0027816299999999998 * fVec7[((IOTA - 78) & 127)]) + ((0.0017765299999999999 * fVec7[((IOTA - 77) & 127)]) + ((6.7984800000000007e-05 * fVec7[((IOTA - 90) & 127)]) + ((0.00046795000000000002 * fVec7[((IOTA - 73) & 127)]) + ((0.0016152100000000002 * fVec7[((IOTA - 72) & 127)]) + ((0.00010376700000000001 * fVec7[((IOTA - 71) & 127)]) + ((0.058508199999999996 * fVec7[((IOTA - 22) & 127)]) + ((0.050635700000000006 * fVec7[((IOTA - 21) & 127)]) + ((0.041341200000000002 * fVec7[((IOTA - 20) & 127)]) + ((0.0214629 * fVec7[((IOTA - 19) & 127)]) + ((0.029345699999999999 * fVec7[((IOTA - 18) & 127)]) + ((0.088954799999999987 * fVec7[((IOTA - 17) & 127)]) + ((0.063658400000000004 * fVec7[((IOTA - 16) & 127)]) + ((0.078143400000000002 * fVec7[((IOTA - 15) & 127)]) + ((0.060886200000000001 * fVec7[((IOTA - 14) & 127)]) + ((0.077131900000000003 * fVec7[((IOTA - 13) & 127)]) + ((0.090551499999999993 * fVec7[((IOTA - 12) & 127)]) + ((0.0054581200000000003 * fVec7[((IOTA - 11) & 127)]) + ((0.0018110400000000001 * fVec7[((IOTA - 9) & 127)]) + ((0.00194177 * fVec7[((IOTA - 7) & 127)]) + ((0.00114689 * fVec7[((IOTA - 5) & 127)]) + ((0.00058690300000000006 * fVec7[((IOTA - 4) & 127)]) + ((0.0012299100000000001 * fVec7[((IOTA - 3) & 127)]) + ((0.00015469 * fVec7[((IOTA - 1) & 127)]) + ((((((((((((((((((((((((((((((((((((((0.0051757600000000006 * fVec8[((IOTA - 86) & 127)]) + ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((2.5118200000000003e-05 * fTemp8) + (0.00012370799999999999 * fVec8[((IOTA - 1) & 127)])) + (0.00096838400000000008 * fVec8[((IOTA - 3) & 127)])) + (0.00059949000000000005 * fVec8[((IOTA - 4) & 127)])) + (0.00076772799999999997 * fVec8[((IOTA - 5) & 127)])) + (0.00014117900000000001 * fVec8[((IOTA - 6) & 127)])) + (0.0018634200000000002 * fVec8[((IOTA - 7) & 127)])) + (0.00024957099999999997 * fVec8[((IOTA - 8) & 127)])) + (0.0011589199999999999 * fVec8[((IOTA - 9) & 127)])) + (0.00050879500000000004 * fVec8[((IOTA - 10) & 127)])) + (0.0036302599999999997 * fVec8[((IOTA - 11) & 127)])) + (0.056510400000000002 * fVec8[((IOTA - 12) & 127)])) + (0.049342300000000006 * fVec8[((IOTA - 13) & 127)])) + (0.0449074 * fVec8[((IOTA - 14) & 127)])) + (0.064749100000000004 * fVec8[((IOTA - 15) & 127)])) + (0.059606500000000007 * fVec8[((IOTA - 16) & 127)])) + (0.073495100000000008 * fVec8[((IOTA - 17) & 127)])) + (0.034514800000000005 * fVec8[((IOTA - 18) & 127)])) + (0.055772500000000003 * fVec8[((IOTA - 19) & 127)])) + (0.06596840000000001 * fVec8[((IOTA - 20) & 127)])) + (0.057809200000000005 * fVec8[((IOTA - 21) & 127)])) + (0.096895100000000012 * fVec8[((IOTA - 22) & 127)])) + (0.021260899999999999 * fVec8[((IOTA - 23) & 127)])) + (0.031746299999999998 * fVec8[((IOTA - 25) & 127)])) + (0.0528391 * fVec8[((IOTA - 26) & 127)])) + (0.030624600000000002 * fVec8[((IOTA - 27) & 127)])) + (0.0087064099999999995 * fVec8[((IOTA - 29) & 127)])) + (0.0266261 * fVec8[((IOTA - 30) & 127)])) + (0.011366300000000001 * fVec8[((IOTA - 31) & 127)])) + (0.0057082499999999998 * fVec8[((IOTA - 32) & 127)])) + (0.023001999999999998 * fVec8[((IOTA - 33) & 127)])) + (0.020023599999999999 * fVec8[((IOTA - 34) & 127)])) + (0.0044680700000000002 * fVec8[((IOTA - 35) & 127)])) + (0.0141227 * fVec8[((IOTA - 36) & 127)])) + (0.0079812000000000008 * fVec8[((IOTA - 37) & 127)])) + (0.0069301900000000001 * fVec8[((IOTA - 38) & 127)])) + (0.011589100000000001 * fVec8[((IOTA - 39) & 127)])) + (0.0064973000000000001 * fVec8[((IOTA - 40) & 127)])) + (0.0056945699999999995 * fVec8[((IOTA - 41) & 127)])) + (0.0074329900000000004 * fVec8[((IOTA - 42) & 127)])) + (0.0028857800000000001 * fVec8[((IOTA - 43) & 127)])) + (0.0079248200000000008 * fVec8[((IOTA - 44) & 127)])) + (0.015005800000000001 * fVec8[((IOTA - 45) & 127)])) + (0.00250454 * fVec8[((IOTA - 46) & 127)])) + (0.00306785 * fVec8[((IOTA - 48) & 127)])) + (0.00175234 * fVec8[((IOTA - 49) & 127)])) + (0.00086377000000000014 * fVec8[((IOTA - 50) & 127)])) + (0.0036652500000000001 * fVec8[((IOTA - 51) & 127)])) + (0.0028833999999999999 * fVec8[((IOTA - 52) & 127)])) + (0.00325793 * fVec8[((IOTA - 53) & 127)])) + (0.00305273 * fVec8[((IOTA - 54) & 127)])) + (0.0012461600000000001 * fVec8[((IOTA - 55) & 127)])) + (0.0012118500000000002 * fVec8[((IOTA - 56) & 127)])) + (0.0050028199999999998 * fVec8[((IOTA - 57) & 127)])) + (0.0036129299999999999 * fVec8[((IOTA - 58) & 127)])) + (0.0031211899999999998 * fVec8[((IOTA - 59) & 127)])) + (0.0042250600000000001 * fVec8[((IOTA - 60) & 127)])) + (0.0035775299999999998 * fVec8[((IOTA - 61) & 127)])) + (0.0068040700000000006 * fVec8[((IOTA - 62) & 127)])) + (0.0062385100000000001 * fVec8[((IOTA - 63) & 127)])) + (0.0042152999999999999 * fVec8[((IOTA - 64) & 127)])) + (0.0027403499999999999 * fVec8[((IOTA - 65) & 127)])) + (0.0023089200000000003 * fVec8[((IOTA - 66) & 127)])) + (0.0034284599999999999 * fVec8[((IOTA - 67) & 127)])) + (0.0022559300000000002 * fVec8[((IOTA - 68) & 127)])) + (0.0014647 * fVec8[((IOTA - 69) & 127)])) + (0.00185049 * fVec8[((IOTA - 70) & 127)])) + (0.0032107500000000001 * fVec8[((IOTA - 71) & 127)])) + (0.0052356299999999998 * fVec8[((IOTA - 72) & 127)])) + (0.0030868900000000001 * fVec8[((IOTA - 73) & 127)])) + (0.0029129100000000003 * fVec8[((IOTA - 74) & 127)])) + (0.0063743100000000002 * fVec8[((IOTA - 75) & 127)])) + (0.0041945800000000007 * fVec8[((IOTA - 76) & 127)])) + (0.00082847699999999999 * fVec8[((IOTA - 77) & 127)])) + (0.0024405 * fVec8[((IOTA - 78) & 127)])) + (0.0041905200000000005 * fVec8[((IOTA - 79) & 127)])) + (0.0024365300000000001 * fVec8[((IOTA - 80) & 127)])) + (0.00056369199999999997 * fVec8[((IOTA - 82) & 127)])) + (0.0015701700000000001 * fVec8[((IOTA - 83) & 127)])) + (0.0016799500000000001 * fVec8[((IOTA - 85) & 127)]))) + (0.0037083100000000003 * fVec8[((IOTA - 87) & 127)])) + (0.00041329900000000006 * fVec8[((IOTA - 90) & 127)])) + (2.3955000000000004e-05 * fVec8[((IOTA - 93) & 127)])) + (0.0021461499999999999 * fVec8[((IOTA - 94) & 127)])) + (0.00272945 * fVec8[((IOTA - 95) & 127)])) + (0.00054874000000000004 * fVec8[((IOTA - 96) & 127)])) + (0.00058470199999999999 * fVec8[((IOTA - 98) & 127)])) + (0.00061282500000000011 * fVec8[((IOTA - 99) & 127)])) + (0.00050683400000000006 * fVec8[((IOTA - 100) & 127)])) + (0.00087727600000000008 * fVec8[((IOTA - 101) & 127)])) + (0.00154024 * fVec8[((IOTA - 102) & 127)])) + (0.00185348 * fVec8[((IOTA - 103) & 127)])) + (0.0012065399999999999 * fVec8[((IOTA - 104) & 127)])) + (0.0014059200000000002 * fVec8[((IOTA - 105) & 127)])) + (0.00136699 * fVec8[((IOTA - 106) & 127)])) + (0.0012923000000000001 * fVec8[((IOTA - 107) & 127)])) + (0.0009436510000000001 * fVec8[((IOTA - 108) & 127)])) + (0.00083451500000000008 * fVec8[((IOTA - 109) & 127)])) + (0.00098166300000000002 * fVec8[((IOTA - 110) & 127)])) + (0.00067625599999999997 * fVec8[((IOTA - 111) & 127)])) + (0.00050102000000000002 * fVec8[((IOTA - 112) & 127)])) + (0.00053358400000000003 * fVec8[((IOTA - 113) & 127)])) + (0.00054736599999999998 * fVec8[((IOTA - 114) & 127)])) + (0.00045382400000000002 * fVec8[((IOTA - 115) & 127)])) + (0.00034160000000000001 * fVec8[((IOTA - 116) & 127)])) + (0.00025855300000000002 * fVec8[((IOTA - 117) & 127)])) + (0.00016872499999999999 * fVec8[((IOTA - 118) & 127)])) + (0.00016404399999999999 * fVec8[((IOTA - 119) & 127)])) + (0.00010654600000000001 * fVec8[((IOTA - 120) & 127)])) + (4.2541300000000006e-05 * fVec8[((IOTA - 121) & 127)])) + (1.8717900000000003e-05 * fVec8[((IOTA - 122) & 127)])) + (2.09787e-05 * fVec8[((IOTA - 123) & 127)])) + (5.7126099999999992e-06 * fVec8[((IOTA - 124) & 127)])) + (5.0813899999999995e-06 * fVec8[((IOTA - 125) & 127)])) + (2.0625300000000001e-06 * fVec8[((IOTA - 126) & 127)])) + (3.3955100000000003e-05 * fTemp7)))))))))))))))))))))))))))))))))))))))))))))))))))) + (4.4578800000000004e-06 * fTemp6)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((2.1103299999999999e-06 * fVec0[((IOTA - 125) & 127)]) + ((5.5217400000000003e-06 * fVec0[((IOTA - 124) & 127)]) + ((3.11789e-06 * fVec0[((IOTA - 123) & 127)]) + ((9.0368300000000007e-05 * fVec0[((IOTA - 119) & 127)]) + ((0.00011532 * fVec0[((IOTA - 118) & 127)]) + ((0.00074305500000000006 * fVec0[((IOTA - 5) & 127)]) + ((0.00070165199999999998 * fVec0[((IOTA - 3) & 127)]) + ((7.2115300000000004e-05 * fVec0[((IOTA - 1) & 127)]) + ((1.68655e-05 * fTemp0) + ((0.00014172800000000001 * (fVec4[((IOTA - 109) & 127)] - fVec1[((IOTA - 78) & 127)])) + ((1.9649999999999998e-06 * fVec0[((IOTA - 116) & 127)]) + ((0.00021442500000000002 * fVec0[((IOTA - 115) & 127)]) + ((0.00030905200000000004 * fVec0[((IOTA - 114) & 127)]) + ((4.7581900000000006e-05 * fVec0[((IOTA - 113) & 127)]) + ((0.00016311100000000002 * fVec0[((IOTA - 112) & 127)]) + ((0.00016924900000000001 * fVec0[((IOTA - 111) & 127)]) + ((3.0118399999999995e-06 * fVec0[((IOTA - 109) & 127)]) + ((0.00053920599999999997 * fVec0[((IOTA - 108) & 127)]) + ((0.00034291200000000001 * fVec0[((IOTA - 107) & 127)]) + ((0.00026214100000000002 * fVec0[((IOTA - 106) & 127)]) + ((0.00023320700000000001 * fVec0[((IOTA - 105) & 127)]) + ((0.00041387999999999999 * fVec0[((IOTA - 102) & 127)]) + ((0.000138245 * fVec0[((IOTA - 101) & 127)]) + ((0.000478309 * fVec0[((IOTA - 100) & 127)]) + ((0.00091847499999999998 * fVec0[((IOTA - 99) & 127)]) + ((0.0013005599999999999 * fVec0[((IOTA - 98) & 127)]) + ((0.00113754 * fVec0[((IOTA - 97) & 127)]) + ((0.0026714199999999999 * fVec0[((IOTA - 93) & 127)]) + ((0.0021342599999999998 * fVec0[((IOTA - 92) & 127)]) + ((0.00024966300000000001 * fVec0[((IOTA - 90) & 127)]) + ((0.0023507699999999999 * fVec0[((IOTA - 89) & 127)]) + ((0.0046170200000000003 * fVec0[((IOTA - 88) & 127)]) + ((0.0013482500000000001 * fVec0[((IOTA - 87) & 127)]) + ((0.0010940099999999999 * fVec0[((IOTA - 85) & 127)]) + ((0.0017591500000000001 * fVec0[((IOTA - 84) & 127)]) + ((0.00040582000000000004 * fVec0[((IOTA - 83) & 127)]) + ((0.00225807 * fVec0[((IOTA - 82) & 127)]) + ((0.00237535 * fVec0[((IOTA - 81) & 127)]) + ((0.000120611 * fVec0[((IOTA - 80) & 127)]) + ((0.00060378299999999999 * fVec0[((IOTA - 78) & 127)]) + ((0.00026133000000000005 * fVec0[((IOTA - 73) & 127)]) + ((0.0020077300000000001 * fVec0[((IOTA - 63) & 127)]) + ((0.0032089100000000001 * fVec0[((IOTA - 62) & 127)]) + ((0.0010079800000000001 * fVec0[((IOTA - 61) & 127)]) + ((0.00063087099999999997 * fVec0[((IOTA - 60) & 127)]) + ((0.0044288800000000005 * fVec0[((IOTA - 59) & 127)]) + ((0.0047678900000000003 * fVec0[((IOTA - 58) & 127)]) + ((0.0703236 * fVec0[((IOTA - 13) & 127)]) + ((0.086424600000000004 * fVec0[((IOTA - 12) & 127)]) + ((0.00526349 * fVec0[((IOTA - 11) & 127)]) + ((0.0024688500000000003 * fVec0[((IOTA - 57) & 127)]) + ((0.00277838 * fVec0[((IOTA - 56) & 127)]) + ((0.0075612199999999996 * fVec0[((IOTA - 55) & 127)]) + ((0.00761051 * fVec0[((IOTA - 54) & 127)]) + ((0.0018776900000000002 * fVec0[((IOTA - 52) & 127)]) + ((0.0082384199999999998 * fVec0[((IOTA - 51) & 127)]) + ((0.0050166199999999994 * fVec0[((IOTA - 50) & 127)]) + ((0.0032369600000000001 * fVec0[((IOTA - 49) & 127)]) + ((0.0040625900000000005 * fVec0[((IOTA - 48) & 127)]) + ((0.011856999999999999 * fVec0[((IOTA - 47) & 127)]) + ((0.0091953899999999995 * fVec0[((IOTA - 46) & 127)]) + ((0.0061361499999999999 * fVec0[((IOTA - 45) & 127)]) + ((0.015667299999999999 * fVec0[((IOTA - 44) & 127)]) + ((0.0121152 * fVec0[((IOTA - 43) & 127)]) + ((0.0102805 * fVec0[((IOTA - 41) & 127)]) + ((0.0249734 * fVec0[((IOTA - 40) & 127)]) + ((0.0028042699999999998 * fVec0[((IOTA - 39) & 127)]) + ((0.0112762 * fVec0[((IOTA - 37) & 127)]) + ((0.0070063399999999998 * fVec0[((IOTA - 36) & 127)]) + ((0.0037140800000000002 * fVec0[((IOTA - 35) & 127)]) + ((0.0077227400000000005 * fVec0[((IOTA - 32) & 127)]) + ((0.0031788599999999999 * fVec0[((IOTA - 31) & 127)]) + ((0.0055445599999999996 * fVec0[((IOTA - 25) & 127)]) + ((0.014456700000000001 * fVec0[((IOTA - 21) & 127)]) + ((0.043969699999999994 * fVec0[((IOTA - 17) & 127)]) + ((0.010103500000000001 * fVec0[((IOTA - 16) & 127)]) + ((0.026084999999999997 * fVec0[((IOTA - 15) & 127)]) + ((0.040577500000000002 * fVec0[((IOTA - 14) & 127)]) + ((6.8184199999999995e-06 * fVec1[((IOTA - 124) & 127)]) + ((9.6015999999999997e-06 * fVec1[((IOTA - 123) & 127)]) + ((0.0021171000000000002 * fVec0[((IOTA - 9) & 127)]) + ((0.00027211800000000001 * fVec0[((IOTA - 7) & 127)]) + ((2.6161300000000003e-05 * fVec1[((IOTA - 122) & 127)]) + ((7.66841e-06 * fVec1[((IOTA - 120) & 127)]) + ((9.9956200000000017e-05 * fVec1[((IOTA - 119) & 127)]) + ((9.8288800000000007e-05 * fVec1[((IOTA - 118) & 127)]) + ((0.00016569499999999999 * fVec1[((IOTA - 115) & 127)]) + ((0.000131304 * fVec1[((IOTA - 114) & 127)]) + ((7.4421400000000012e-05 * fVec1[((IOTA - 113) & 127)]) + ((9.0750500000000005e-05 * fVec1[((IOTA - 109) & 127)]) + ((0.00081881900000000014 * fVec1[((IOTA - 96) & 127)]) + ((0.0015964400000000002 * fVec1[((IOTA - 95) & 127)]) + ((3.5872199999999999e-05 * fVec1[((IOTA - 92) & 127)]) + ((0.0020068299999999998 * fVec1[((IOTA - 91) & 127)]) + ((0.00050415000000000008 * fVec1[((IOTA - 90) & 127)]) + ((0.00041316100000000005 * fVec1[((IOTA - 89) & 127)]) + ((0.0011488700000000002 * fVec1[((IOTA - 88) & 127)]) + ((0.0011271300000000001 * fVec1[((IOTA - 87) & 127)]) + ((0.0028610799999999998 * fVec1[((IOTA - 84) & 127)]) + ((0.00119961 * fVec1[((IOTA - 83) & 127)]) + ((0.0011123800000000001 * fVec1[((IOTA - 82) & 127)]) + ((0.0018691199999999999 * fVec1[((IOTA - 81) & 127)]) + ((0.0023870700000000003 * fVec1[((IOTA - 80) & 127)]) + ((0.0014690600000000001 * fVec1[((IOTA - 79) & 127)]) + ((0.00020293100000000003 * fVec1[((IOTA - 75) & 127)]) + ((0.00042256999999999999 * fVec1[((IOTA - 74) & 127)]) + ((4.8196899999999999e-05 * fVec1[((IOTA - 73) & 127)]) + ((0.00081876599999999996 * fVec1[((IOTA - 69) & 127)]) + ((0.00116132 * fVec1[((IOTA - 65) & 127)]) + ((0.0012919000000000001 * fVec1[((IOTA - 60) & 127)]) + ((0.0018522 * fVec1[((IOTA - 53) & 127)]) + ((0.0040265300000000004 * fVec1[((IOTA - 52) & 127)]) + ((0.015326500000000002 * fVec1[((IOTA - 34) & 127)]) + ((0.0039000900000000002 * fVec1[((IOTA - 33) & 127)]) + ((0.0107983 * fVec1[((IOTA - 30) & 127)]) + ((0.0016720200000000002 * fVec1[((IOTA - 28) & 127)]) + ((0.0115642 * fVec1[((IOTA - 27) & 127)]) + ((0.0083424600000000012 * fVec1[((IOTA - 24) & 127)]) + ((0.0016058699999999999 * fVec1[((IOTA - 23) & 127)]) + ((0.00574575 * fVec1[((IOTA - 22) & 127)]) + ((0.0048227900000000004 * fVec1[((IOTA - 21) & 127)]) + ((0.0053663600000000006 * fVec1[((IOTA - 20) & 127)]) + ((0.0110708 * fVec1[((IOTA - 17) & 127)]) + ((0.0074311999999999998 * fVec1[((IOTA - 16) & 127)]) + ((0.00037238400000000002 * fVec1[((IOTA - 14) & 127)]) + ((0.00252045 * fVec1[((IOTA - 13) & 127)]) + ((0.00052853700000000004 * fVec1[((IOTA - 8) & 127)]) + ((0.00017706000000000002 * fVec1[((IOTA - 5) & 127)]) + ((0.00017067000000000002 * fVec1[((IOTA - 4) & 127)]) + ((2.8269799999999997e-06 * fVec1[((IOTA - 1) & 127)]) + ((0.0045421799999999998 * fVec1[((IOTA - 46) & 127)]) + ((0.0032057800000000001 * fVec1[((IOTA - 45) & 127)]) + ((0.0098560599999999998 * fVec1[((IOTA - 43) & 127)]) + ((0.00164123 * fVec1[((IOTA - 49) & 127)]) + ((0.0035543000000000003 * fVec1[((IOTA - 48) & 127)]) + ((0.0019447000000000002 * fVec1[((IOTA - 47) & 127)]) + ((0.0014029000000000001 * fVec1[((IOTA - 39) & 127)]) + ((0.0055212400000000002 * fVec1[((IOTA - 42) & 127)]) + ((0.0039102499999999997 * fVec1[((IOTA - 40) & 127)]) + ((3.5305499999999996e-06 * fVec2[((IOTA - 125) & 127)]) + ((4.1155299999999994e-06 * fVec2[((IOTA - 124) & 127)]) + ((8.4151000000000001e-06 * fVec2[((IOTA - 123) & 127)]) + ((2.8368800000000002e-05 * fVec2[((IOTA - 122) & 127)]) + ((6.1171800000000003e-05 * fVec2[((IOTA - 121) & 127)]) + ((4.5063100000000006e-05 * fVec2[((IOTA - 120) & 127)]) + ((0.00013187999999999999 * fVec2[((IOTA - 117) & 127)]) + ((9.0214000000000001e-05 * fVec2[((IOTA - 116) & 127)]) + ((4.5684500000000006e-05 * fVec2[((IOTA - 115) & 127)]) + ((0.00010922300000000001 * fVec2[((IOTA - 114) & 127)]) + ((0.00012787900000000001 * fVec2[((IOTA - 113) & 127)]) + ((0.00010810400000000001 * fVec2[((IOTA - 112) & 127)]) + ((8.4602100000000008e-05 * fVec2[((IOTA - 111) & 127)]) + ((0.00081971100000000009 * fVec1[((IOTA - 37) & 127)]) + ((0.00014129499999999999 * fVec2[((IOTA - 103) & 127)]) + ((0.0011713800000000001 * fVec2[((IOTA - 96) & 127)]) + ((0.00048376700000000002 * fVec2[((IOTA - 95) & 127)]) + ((0.00040982500000000005 * fVec2[((IOTA - 89) & 127)]) + ((0.00192194 * fVec2[((IOTA - 86) & 127)]) + ((0.00102436 * fVec2[((IOTA - 85) & 127)]) + ((0.00100778 * fVec2[((IOTA - 81) & 127)]) + ((0.00035581800000000004 * fVec2[((IOTA - 80) & 127)]) + ((0.00108387 * fVec2[((IOTA - 78) & 127)]) + ((0.00355741 * fVec2[((IOTA - 77) & 127)]) + ((0.00203951 * fVec2[((IOTA - 76) & 127)]) + ((0.00099792900000000005 * fVec2[((IOTA - 74) & 127)]) + ((0.0044921400000000004 * fVec2[((IOTA - 73) & 127)]) + ((0.00086068200000000009 * fVec2[((IOTA - 69) & 127)]) + ((0.0026953699999999999 * fVec2[((IOTA - 68) & 127)]) + ((0.00069267700000000005 * fVec2[((IOTA - 67) & 127)]) + ((0.0014122200000000001 * fVec2[((IOTA - 62) & 127)]) + ((0.00059297400000000002 * fVec2[((IOTA - 61) & 127)]) + ((0.00053443700000000002 * fVec2[((IOTA - 59) & 127)]) + ((0.0013940900000000002 * fVec2[((IOTA - 58) & 127)]) + ((0.0012833600000000001 * fVec2[((IOTA - 57) & 127)]) + ((0.0031110899999999999 * fVec2[((IOTA - 56) & 127)]) + ((0.0050713199999999998 * fVec2[((IOTA - 55) & 127)]) + ((0.0050443700000000003 * fVec2[((IOTA - 54) & 127)]) + ((0.00419002 * fVec2[((IOTA - 53) & 127)]) + ((0.0032877399999999999 * fVec2[((IOTA - 51) & 127)]) + ((0.00909628 * fVec2[((IOTA - 50) & 127)]) + ((0.0036924600000000003 * fVec2[((IOTA - 49) & 127)]) + ((0.0046017100000000002 * fVec2[((IOTA - 48) & 127)]) + ((0.0073180300000000005 * fVec2[((IOTA - 47) & 127)]) + ((0.0070144200000000004 * fVec2[((IOTA - 46) & 127)]) + ((0.0020962000000000003 * fVec2[((IOTA - 45) & 127)]) + ((0.0052343400000000005 * fVec2[((IOTA - 44) & 127)]) + ((0.0071723899999999998 * fVec2[((IOTA - 43) & 127)]) + ((0.0036162899999999999 * fVec2[((IOTA - 42) & 127)]) + ((0.010498400000000001 * fVec2[((IOTA - 41) & 127)]) + ((0.0021260799999999998 * fVec2[((IOTA - 40) & 127)]) + ((0.00086101400000000001 * fVec2[((IOTA - 7) & 127)]) + ((0.00058492199999999998 * fVec2[((IOTA - 5) & 127)]) + ((6.7829099999999997e-06 * fVec2[((IOTA - 4) & 127)]) + ((0.00025529600000000002 * fVec2[((IOTA - 3) & 127)]) + ((2.9285600000000003e-05 * fVec2[((IOTA - 1) & 127)]) + ((3.8661599999999993e-06 * fTemp2) + ((0.0128167 * fVec2[((IOTA - 23) & 127)]) + ((0.011590800000000002 * fVec2[((IOTA - 17) & 127)]) + ((0.0065524800000000003 * fVec2[((IOTA - 38) & 127)]) + ((0.011496599999999999 * fVec2[((IOTA - 35) & 127)]) + ((0.0010427100000000001 * fVec2[((IOTA - 34) & 127)]) + ((0.0092546800000000012 * fVec2[((IOTA - 31) & 127)]) + ((0.0026388100000000001 * fVec2[((IOTA - 27) & 127)]) + ((0.0038800599999999998 * fVec2[((IOTA - 16) & 127)]) + ((0.022263399999999999 * fVec2[((IOTA - 15) & 127)]) + ((0.020153300000000002 * fVec2[((IOTA - 14) & 127)]) + ((0.042437800000000005 * fVec2[((IOTA - 13) & 127)]) + ((0.047133599999999998 * fVec2[((IOTA - 12) & 127)]) + ((0.00567696 * fVec2[((IOTA - 11) & 127)]) + ((1.70851e-05 * fVec3[((IOTA - 122) & 127)]) + ((3.0657300000000002e-05 * fVec3[((IOTA - 121) & 127)]) + ((5.3340699999999993e-07 * fVec3[((IOTA - 120) & 127)]) + ((1.03751e-05 * fVec3[((IOTA - 118) & 127)]) + ((8.3314900000000018e-05 * fVec3[((IOTA - 117) & 127)]) + ((9.1851000000000012e-05 * fVec3[((IOTA - 112) & 127)]) + ((2.7205700000000003e-05 * fVec3[((IOTA - 111) & 127)]) + ((0.00143681 * fVec2[((IOTA - 9) & 127)]) + ((0.00152143 * fVec3[((IOTA - 82) & 127)]) + ((0.0032921200000000004 * fVec3[((IOTA - 81) & 127)]) + ((0.00193753 * fVec3[((IOTA - 80) & 127)]) + ((0.00062551900000000005 * fVec3[((IOTA - 79) & 127)]) + ((0.00096127300000000012 * fVec3[((IOTA - 70) & 127)]) + ((0.0042903999999999998 * fVec3[((IOTA - 69) & 127)]) + ((0.0037726500000000002 * fVec3[((IOTA - 68) & 127)]) + ((0.00041918000000000001 * fVec3[((IOTA - 66) & 127)]) + ((0.00047510500000000003 * fVec3[((IOTA - 63) & 127)]) + ((0.0023363800000000003 * fVec3[((IOTA - 57) & 127)]) + ((0.0047624399999999997 * fVec3[((IOTA - 56) & 127)]) + ((0.00035963800000000001 * fVec3[((IOTA - 55) & 127)]) + ((0.0014325799999999999 * fVec3[((IOTA - 53) & 127)]) + ((0.0035146700000000001 * fVec3[((IOTA - 50) & 127)]) + ((0.00013482199999999999 * fVec3[((IOTA - 46) & 127)]) + ((0.0031359700000000001 * fVec3[((IOTA - 44) & 127)]) + ((0.0033774600000000001 * fVec3[((IOTA - 43) & 127)]) + ((0.00043131800000000003 * fVec3[((IOTA - 41) & 127)]) + ((0.0017748 * fVec3[((IOTA - 37) & 127)]) + ((0.0095376600000000016 * fVec3[((IOTA - 34) & 127)]) + ((0.00354222 * fVec3[((IOTA - 31) & 127)]) + ((0.0099954400000000013 * fVec3[((IOTA - 30) & 127)]) + ((0.00581921 * fVec3[((IOTA - 27) & 127)]) + ((0.00064315100000000001 * fVec3[((IOTA - 26) & 127)]) + ((0.016502200000000002 * fVec3[((IOTA - 25) & 127)]) + ((0.026153100000000002 * fVec3[((IOTA - 19) & 127)]) + ((0.015518799999999999 * fVec3[((IOTA - 18) & 127)]) + ((0.011748099999999999 * fVec3[((IOTA - 16) & 127)]) + ((0.024044800000000002 * fVec3[((IOTA - 15) & 127)]) + ((0.011073200000000002 * fVec3[((IOTA - 12) & 127)]) + ((0.00016208700000000002 * fVec3[((IOTA - 11) & 127)]) + ((0.00023927800000000002 * fVec3[((IOTA - 9) & 127)]) + ((0.00099840900000000002 * fVec3[((IOTA - 7) & 127)]) + ((0.00026075800000000004 * fVec3[((IOTA - 3) & 127)]) + ((0.0017495700000000002 * fVec3[((IOTA - 62) & 127)]) + ((0.0013881099999999999 * fVec3[((IOTA - 61) & 127)]) + ((0.00142376 * fVec3[((IOTA - 59) & 127)]) + ((9.0296599999999999e-06 * fVec4[((IOTA - 122) & 127)]) + ((1.9893500000000002e-05 * fVec4[((IOTA - 118) & 127)]) + ((3.7877500000000005e-05 * fVec4[((IOTA - 115) & 127)]) + ((0.00027007400000000003 * fVec4[((IOTA - 103) & 127)]) + ((0.00044415800000000005 * fVec4[((IOTA - 102) & 127)]) + ((0.00031515600000000003 * fVec4[((IOTA - 100) & 127)]) + ((0.00068420899999999997 * fVec4[((IOTA - 99) & 127)]) + ((0.00049268100000000002 * fVec4[((IOTA - 96) & 127)]) + ((0.0013234399999999999 * fVec3[((IOTA - 58) & 127)]) + ((0.0015305800000000001 * fVec4[((IOTA - 91) & 127)]) + ((0.0017284399999999999 * fVec4[((IOTA - 90) & 127)]) + ((0.00127253 * fVec4[((IOTA - 89) & 127)]) + ((0.00166752 * fVec4[((IOTA - 88) & 127)]) + ((0.00033490500000000003 * fVec4[((IOTA - 85) & 127)]) + ((0.0011273899999999998 * fVec4[((IOTA - 84) & 127)]) + ((6.2119200000000007e-05 * fVec4[((IOTA - 82) & 127)]) + ((0.0017261400000000001 * fVec4[((IOTA - 81) & 127)]) + ((0.00048162000000000004 * fVec4[((IOTA - 80) & 127)]) + ((0.00071563500000000006 * fVec4[((IOTA - 79) & 127)]) + ((1.14088e-05 * fVec4[((IOTA - 77) & 127)]) + ((0.0014551499999999999 * fVec4[((IOTA - 76) & 127)]) + ((0.00078290800000000002 * fVec4[((IOTA - 73) & 127)]) + ((0.0013603899999999999 * fVec4[((IOTA - 72) & 127)]) + ((0.00076972400000000006 * fVec4[((IOTA - 71) & 127)]) + ((0.0011577500000000001 * fVec4[((IOTA - 70) & 127)]) + ((0.0027559100000000003 * fVec4[((IOTA - 69) & 127)]) + ((0.0011045300000000001 * fVec4[((IOTA - 65) & 127)]) + ((0.0019003900000000001 * fVec4[((IOTA - 64) & 127)]) + ((5.8659000000000002e-05 * fVec4[((IOTA - 63) & 127)]) + ((0.00034302399999999999 * fVec4[((IOTA - 60) & 127)]) + ((0.0015042599999999999 * fVec4[((IOTA - 55) & 127)]) + ((0.0038506399999999998 * fVec4[((IOTA - 54) & 127)]) + ((0.00280679 * fVec4[((IOTA - 53) & 127)]) + ((0.00191281 * fVec4[((IOTA - 51) & 127)]) + ((0.0030454200000000001 * fVec4[((IOTA - 47) & 127)]) + ((0.0010344 * fVec4[((IOTA - 46) & 127)]) + ((0.0021753000000000002 * fVec4[((IOTA - 43) & 127)]) + ((0.00241033 * fVec4[((IOTA - 41) & 127)]) + ((0.0054447699999999998 * fVec4[((IOTA - 34) & 127)]) + ((0.0027451799999999998 * fVec4[((IOTA - 33) & 127)]) + ((0.00192986 * fVec4[((IOTA - 32) & 127)]) + ((0.0050891900000000004 * fVec4[((IOTA - 29) & 127)]) + ((0.0025108100000000005 * fVec4[((IOTA - 9) & 127)]) + ((0.00235191 * fVec4[((IOTA - 7) & 127)]) + ((0.00091979399999999993 * fVec4[((IOTA - 5) & 127)]) + ((0.00050699800000000004 * fVec4[((IOTA - 3) & 127)]) + ((0.0223719 * fVec4[((IOTA - 21) & 127)]) + ((0.0123166 * fVec4[((IOTA - 20) & 127)]) + ((0.017947399999999999 * fVec4[((IOTA - 19) & 127)]) + ((0.010143899999999999 * fVec4[((IOTA - 28) & 127)]) + ((0.0039649200000000002 * fVec4[((IOTA - 27) & 127)]) + ((0.014927200000000002 * fVec4[((IOTA - 24) & 127)]) + ((0.010792999999999999 * fVec4[((IOTA - 23) & 127)]) + ((0.008510160000000001 * fVec4[((IOTA - 22) & 127)]) + ((6.9716599999999994e-06 * fVec5[((IOTA - 124) & 127)]) + ((0.0073694100000000007 * fVec4[((IOTA - 14) & 127)]) + ((9.8485200000000004e-06 * fVec5[((IOTA - 118) & 127)]) + ((0.0142655 * fVec4[((IOTA - 12) & 127)]) + ((0.00010357900000000001 * fVec5[((IOTA - 114) & 127)]) + ((0.00042897299999999997 * fVec5[((IOTA - 113) & 127)]) + ((0.00029024100000000006 * fVec5[((IOTA - 112) & 127)]) + ((9.8297200000000012e-05 * fVec5[((IOTA - 111) & 127)]) + ((0.00020804999999999999 * fVec5[((IOTA - 110) & 127)]) + ((0.00054109500000000001 * fVec5[((IOTA - 109) & 127)]) + ((0.0067548000000000009 * fVec4[((IOTA - 11) & 127)]) + ((0.00083962700000000002 * fVec5[((IOTA - 108) & 127)]) + ((0.00056389100000000007 * fVec5[((IOTA - 107) & 127)]) + ((0.00051816800000000006 * fVec5[((IOTA - 106) & 127)]) + ((0.00065456900000000003 * fVec5[((IOTA - 105) & 127)]) + ((0.00088825400000000011 * fVec5[((IOTA - 104) & 127)]) + ((0.000446193 * fVec5[((IOTA - 103) & 127)]) + ((0.00071199100000000003 * fVec5[((IOTA - 102) & 127)]) + ((0.0012468500000000001 * fVec5[((IOTA - 101) & 127)]) + ((0.0012435300000000001 * fVec5[((IOTA - 100) & 127)]) + ((0.0010388900000000002 * fVec5[((IOTA - 99) & 127)]) + ((0.00170268 * fVec5[((IOTA - 98) & 127)]) + ((0.00126004 * fVec5[((IOTA - 97) & 127)]) + ((0.0013548899999999999 * fVec5[((IOTA - 93) & 127)]) + ((0.0020163799999999999 * fVec5[((IOTA - 92) & 127)]) + ((0.0010302600000000001 * fVec5[((IOTA - 89) & 127)]) + ((0.00142103 * fVec5[((IOTA - 88) & 127)]) + ((0.0020040399999999999 * fVec5[((IOTA - 82) & 127)]) + ((0.0030592000000000002 * fVec5[((IOTA - 81) & 127)]) + ((0.00082976100000000015 * fVec5[((IOTA - 80) & 127)]) + ((0.00083032800000000008 * fVec5[((IOTA - 79) & 127)]) + ((0.00146794 * fVec5[((IOTA - 78) & 127)]) + ((0.0029912300000000001 * fVec5[((IOTA - 77) & 127)]) + ((0.0019008400000000002 * fVec5[((IOTA - 76) & 127)]) + ((0.00032308700000000001 * fVec5[((IOTA - 75) & 127)]) + ((0.00121188 * fVec5[((IOTA - 74) & 127)]) + ((0.0015286800000000001 * fVec5[((IOTA - 73) & 127)]) + ((0.0016313200000000001 * fVec5[((IOTA - 72) & 127)]) + ((0.0019843199999999999 * fVec5[((IOTA - 71) & 127)]) + ((0.0031219500000000001 * fVec5[((IOTA - 70) & 127)]) + ((0.0017147500000000001 * fVec5[((IOTA - 69) & 127)]) + ((4.5241600000000004e-05 * fVec5[((IOTA - 68) & 127)]) + ((0.00193403 * fVec5[((IOTA - 67) & 127)]) + ((0.00103439 * fVec5[((IOTA - 66) & 127)]) + ((0.00025587599999999999 * fVec5[((IOTA - 61) & 127)]) + ((0.0014905299999999999 * fVec5[((IOTA - 60) & 127)]) + ((0.000502175 * fVec5[((IOTA - 59) & 127)]) + ((0.00055048599999999999 * fVec5[((IOTA - 58) & 127)]) + ((0.00049892100000000004 * fVec5[((IOTA - 50) & 127)]) + ((0.0029968600000000001 * fVec5[((IOTA - 47) & 127)]) + ((0.0024887899999999998 * fVec5[((IOTA - 46) & 127)]) + ((0.0030320900000000003 * fVec5[((IOTA - 41) & 127)]) + ((0.0076587399999999998 * fVec5[((IOTA - 40) & 127)]) + ((0.010064699999999999 * fVec5[((IOTA - 35) & 127)]) + ((0.030136699999999999 * fVec5[((IOTA - 32) & 127)]) + ((0.017341200000000001 * fVec5[((IOTA - 31) & 127)]) + ((0.039170099999999999 * fVec5[((IOTA - 28) & 127)]) + ((0.00031563800000000003 * fVec5[((IOTA - 27) & 127)]) + ((0.00069887100000000011 * fVec5[((IOTA - 25) & 127)]) + ((0.025458500000000002 * fVec5[((IOTA - 24) & 127)]) + ((0.0120184 * fVec5[((IOTA - 21) & 127)]) + ((0.011691100000000001 * fVec5[((IOTA - 19) & 127)]) + ((0.0053095800000000004 * fVec5[((IOTA - 14) & 127)]) + ((0.0072171800000000001 * fVec5[((IOTA - 12) & 127)]) + ((0.0030320200000000003 * fVec5[((IOTA - 11) & 127)]) + ((0.00131485 * fVec5[((IOTA - 9) & 127)]) + ((0.0011081700000000001 * fVec5[((IOTA - 7) & 127)]) + ((0.00036208399999999998 * fVec5[((IOTA - 5) & 127)]) + (((6.574880000000001e-05 * fVec6[((IOTA - 115) & 127)]) + ((7.5893800000000015e-05 * fVec6[((IOTA - 114) & 127)]) + ((0.00055035400000000008 * fVec6[((IOTA - 113) & 127)]) + ((0.00054230400000000007 * fVec6[((IOTA - 112) & 127)]) + ((0.00038862600000000004 * fVec6[((IOTA - 111) & 127)]) + ((0.00038355300000000002 * fVec6[((IOTA - 110) & 127)]) + ((0.0010789999999999999 * fVec6[((IOTA - 109) & 127)]) + ((0.00127535 * fVec6[((IOTA - 108) & 127)]) + ((0.00026040700000000004 * fVec6[((IOTA - 107) & 127)]) + ((0.00064190699999999994 * fVec6[((IOTA - 106) & 127)]) + ((0.0012643700000000001 * fVec6[((IOTA - 105) & 127)]) + ((0.0014951399999999998 * fVec6[((IOTA - 104) & 127)]) + ((0.00096466700000000011 * fVec6[((IOTA - 103) & 127)]) + ((0.00062200899999999997 * fVec6[((IOTA - 102) & 127)]) + ((0.0013151 * fVec6[((IOTA - 101) & 127)]) + ((0.00155276 * fVec6[((IOTA - 100) & 127)]) + ((0.00147963 * fVec6[((IOTA - 99) & 127)]) + ((0.0012132899999999999 * fVec6[((IOTA - 96) & 127)]) + ((0.0010497099999999999 * fVec6[((IOTA - 95) & 127)]) + ((5.4447799999999994e-06 * fVec6[((IOTA - 91) & 127)]) + ((0.00060830200000000002 * fVec6[((IOTA - 82) & 127)]) + ((0.00073753600000000001 * fVec6[((IOTA - 81) & 127)]) + ((4.1098800000000007e-05 * fVec6[((IOTA - 76) & 127)]) + ((0.0023925600000000002 * fVec6[((IOTA - 72) & 127)]) + ((0.00191902 * fVec6[((IOTA - 71) & 127)]) + ((0.00073584900000000001 * fVec6[((IOTA - 70) & 127)]) + ((0.0033698500000000002 * fVec6[((IOTA - 69) & 127)]) + ((0.0046562499999999998 * fVec6[((IOTA - 68) & 127)]) + ((0.0026088700000000001 * fVec6[((IOTA - 67) & 127)]) + ((0.0015381499999999998 * fVec6[((IOTA - 66) & 127)]) + ((0.00177024 * fVec6[((IOTA - 65) & 127)]) + ((0.0027169400000000002 * fVec6[((IOTA - 64) & 127)]) + ((0.0011385200000000001 * fVec6[((IOTA - 73) & 127)]) + ((0.0011334100000000001 * fVec6[((IOTA - 61) & 127)]) + ((0.0012374899999999999 * fVec6[((IOTA - 57) & 127)]) + ((0.00350462 * fVec6[((IOTA - 56) & 127)]) + ((0.00029472900000000003 * fVec6[((IOTA - 55) & 127)]) + ((0.00161133 * fVec6[((IOTA - 49) & 127)]) + ((0.0043256300000000004 * fVec6[((IOTA - 43) & 127)]) + ((0.0039263700000000002 * fVec6[((IOTA - 38) & 127)]) + ((0.0193136 * fVec6[((IOTA - 37) & 127)]) + ((0.0137585 * fVec6[((IOTA - 34) & 127)]) + ((0.016165499999999999 * fVec6[((IOTA - 31) & 127)]) + ((0.0200181 * fVec6[((IOTA - 30) & 127)]) + ((0.00436148 * fVec6[((IOTA - 27) & 127)]) + ((0.0115485 * fVec6[((IOTA - 25) & 127)]) + ((0.0032127699999999998 * fVec6[((IOTA - 23) & 127)]) + ((0.0057804000000000006 * fVec6[((IOTA - 22) & 127)]) + ((0.037111700000000004 * fVec6[((IOTA - 19) & 127)]) + ((0.014907300000000002 * fVec6[((IOTA - 18) & 127)]) + ((0.0092683000000000001 * fVec6[((IOTA - 16) & 127)]) + ((0.0158698 * fVec6[((IOTA - 15) & 127)]) + ((0.00489909 * fVec6[((IOTA - 12) & 127)]) + ((0.00036272099999999999 * fVec6[((IOTA - 11) & 127)]) + ((0.00043871700000000003 * fVec6[((IOTA - 10) & 127)]) + ((0.00018132700000000001 * fVec6[((IOTA - 9) & 127)]) + ((0.00097058900000000011 * fVec6[((IOTA - 7) & 127)]) + ((0.00016036100000000001 * fVec6[((IOTA - 6) & 127)]) + ((0.00019245000000000002 * fVec6[((IOTA - 3) & 127)]) + ((1.8656099999999998e-06 * fVec7[((IOTA - 126) & 127)]) + ((2.5639300000000001e-06 * fVec7[((IOTA - 125) & 127)]) + ((8.3185099999999991e-06 * fVec7[((IOTA - 124) & 127)]) + ((3.8801999999999999e-05 * fVec7[((IOTA - 123) & 127)]) + ((6.5230500000000005e-05 * fVec7[((IOTA - 122) & 127)]) + ((4.81323e-05 * fVec7[((IOTA - 121) & 127)]) + ((3.1175000000000006e-05 * fVec7[((IOTA - 120) & 127)]) + ((1.1129000000000001e-05 * fVec7[((IOTA - 119) & 127)]) + ((0.00016385400000000001 * fVec7[((IOTA - 118) & 127)]) + ((0.000137362 * fVec7[((IOTA - 117) & 127)]) + ((9.139900000000001e-05 * fVec7[((IOTA - 116) & 127)]) + ((0.00012562199999999998 * fVec7[((IOTA - 115) & 127)]) + ((0.00025063300000000005 * fVec7[((IOTA - 113) & 127)]) + ((0.000272806 * fVec7[((IOTA - 112) & 127)]) + ((0.000314307 * fVec7[((IOTA - 111) & 127)]) + ((0.00026935700000000002 * fVec7[((IOTA - 110) & 127)]) + ((0.00027303400000000002 * fVec7[((IOTA - 109) & 127)]) + ((8.74662e-06 * fVec7[((IOTA - 108) & 127)]) + ((0.00035653000000000003 * fVec7[((IOTA - 106) & 127)]) + ((0.000138672 * fVec7[((IOTA - 91) & 127)]) + (((0.0011749499999999999 * fVec7[((IOTA - 81) & 127)]) + ((0.00092974400000000003 * fVec7[((IOTA - 76) & 127)]) + ((0.00189912 * fVec7[((IOTA - 75) & 127)]) + ((0.0018498099999999999 * fVec7[((IOTA - 74) & 127)]) + ((0.00102903 * fVec7[((IOTA - 70) & 127)]) + ((0.0023879000000000001 * fVec7[((IOTA - 69) & 127)]) + ((0.0030104600000000004 * fVec7[((IOTA - 68) & 127)]) + ((0.00157916 * fVec7[((IOTA - 67) & 127)]) + ((0.0021747000000000003 * fVec7[((IOTA - 66) & 127)]) + ((0.0024374800000000001 * fVec7[((IOTA - 65) & 127)]) + ((0.0017056100000000002 * fVec7[((IOTA - 64) & 127)]) + ((0.00246014 * fVec7[((IOTA - 63) & 127)]) + ((0.0044470300000000003 * fVec7[((IOTA - 62) & 127)]) + ((0.0047484400000000005 * fVec7[((IOTA - 61) & 127)]) + ((0.0027951100000000004 * fVec7[((IOTA - 60) & 127)]) + ((0.0047547600000000002 * fVec7[((IOTA - 59) & 127)]) + ((0.0037710400000000002 * fVec7[((IOTA - 58) & 127)]) + ((0.0045419900000000001 * fVec7[((IOTA - 57) & 127)]) + ((0.010441600000000001 * fVec7[((IOTA - 56) & 127)]) + ((0.0100582 * fVec7[((IOTA - 55) & 127)]) + ((0.0076609499999999997 * fVec7[((IOTA - 54) & 127)]) + ((0.0068764300000000002 * fVec7[((IOTA - 53) & 127)]) + ((0.0095819500000000005 * fVec7[((IOTA - 52) & 127)]) + ((0.015913200000000002 * fVec7[((IOTA - 51) & 127)]) + ((0.015119400000000002 * fVec7[((IOTA - 50) & 127)]) + ((0.0128559 * fVec7[((IOTA - 49) & 127)]) + ((0.016606200000000002 * fVec7[((IOTA - 48) & 127)]) + ((0.016194200000000002 * fVec7[((IOTA - 47) & 127)]) + ((0.0116756 * fVec7[((IOTA - 46) & 127)]) + ((0.008875280000000001 * fVec7[((IOTA - 45) & 127)]) + ((0.016079200000000002 * fVec7[((IOTA - 44) & 127)]) + ((0.0188738 * fVec7[((IOTA - 43) & 127)]) + ((0.022184499999999999 * fVec7[((IOTA - 42) & 127)]) + ((0.020373700000000002 * fVec7[((IOTA - 41) & 127)]) + ((0.0086227300000000003 * fVec7[((IOTA - 40) & 127)]) + ((0.015368999999999999 * fVec7[((IOTA - 39) & 127)]) + ((0.025263300000000002 * fVec7[((IOTA - 38) & 127)]) + ((0.026966700000000003 * fVec7[((IOTA - 37) & 127)]) + ((0.023967600000000002 * fVec7[((IOTA - 36) & 127)]) + ((0.0180915 * fVec7[((IOTA - 35) & 127)]) + ((0.026436999999999999 * fVec7[((IOTA - 34) & 127)]) + ((0.035762599999999999 * fVec7[((IOTA - 33) & 127)]) + ((0.019380700000000001 * fVec7[((IOTA - 32) & 127)]) + ((0.0052166499999999998 * fVec7[((IOTA - 31) & 127)]) + ((0.012525700000000001 * fVec7[((IOTA - 30) & 127)]) + ((0.039007399999999998 * fVec7[((IOTA - 29) & 127)]) + ((0.0095142000000000004 * fVec7[((IOTA - 26) & 127)]) + ((0.00060328500000000006 * fVec7[((IOTA - 25) & 127)]) + ((0.042794800000000008 * fVec7[((IOTA - 24) & 127)]) + ((0.0160175 * fVec7[((IOTA - 27) & 127)]) + ((0.034687500000000003 * fVec7[((IOTA - 23) & 127)]) + ((0.0011779100000000001 * fVec7[((IOTA - 10) & 127)]) + ((0.000167329 * fVec7[((IOTA - 8) & 127)]) + ((0.00041459900000000003 * fVec7[((IOTA - 6) & 127)]) + ((0.00031506200000000001 * fVec7[((IOTA - 2) & 127)]) + ((0.00054486499999999995 * fVec8[((IOTA - 97) & 127)]) + ((0.0024969700000000003 * fVec8[((IOTA - 92) & 127)]) + ((0.0014838199999999998 * fVec8[((IOTA - 91) & 127)]) + ((0.00134669 * fVec8[((IOTA - 89) & 127)]) + ((0.00141242 * fVec8[((IOTA - 88) & 127)]) + (((((((0.00017378000000000001 * fVec8[((IOTA - 2) & 127)]) + (0.015415000000000002 * fVec8[((IOTA - 24) & 127)])) + (0.0114164 * fVec8[((IOTA - 28) & 127)])) + (0.0029673899999999999 * fVec8[((IOTA - 47) & 127)])) + (0.0010694400000000001 * fVec8[((IOTA - 81) & 127)])) + (0.000311911 * fVec8[((IOTA - 84) & 127)])) + (0.039406500000000004 * fVec7[((IOTA - 28) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00031511100000000003 * fVec6[((IOTA - 74) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00017773600000000001 * fVec5[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (fRec1[0] * (((1.0336899999999999e-06 * fVec0[((IOTA - 126) & 127)]) + ((1.07578e-06 * fVec0[((IOTA - 124) & 127)]) + ((1.0896600000000002e-05 * fVec0[((IOTA - 123) & 127)]) + ((5.7825300000000005e-06 * fVec0[((IOTA - 121) & 127)]) + ((2.9587800000000002e-05 * fVec0[((IOTA - 120) & 127)]) + ((0.00031437800000000003 * fVec0[((IOTA - 2) & 127)]) + ((0.00010999399999999999 * fVec0[((IOTA - 104) & 127)]) + ((1.2511200000000001e-05 * fVec0[((IOTA - 103) & 127)]) + ((3.3373e-05 * fVec0[((IOTA - 101) & 127)]) + ((0.0022768000000000003 * fVec0[((IOTA - 96) & 127)]) + ((0.0020205099999999997 * fVec0[((IOTA - 95) & 127)]) + ((0.00027500499999999999 * fVec0[((IOTA - 91) & 127)]) + ((9.9177200000000003e-05 * fVec0[((IOTA - 87) & 127)]) + ((0.0006416280000000001 * fVec0[((IOTA - 80) & 127)]) + ((0.000129173 * fVec0[((IOTA - 79) & 127)]) + ((0.0018692700000000001 * fVec0[((IOTA - 77) & 127)]) + ((0.0010500000000000002 * fVec0[((IOTA - 76) & 127)]) + ((0.0013042499999999999 * fVec0[((IOTA - 72) & 127)]) + ((0.0025056699999999998 * fVec0[((IOTA - 71) & 127)]) + ((0.0044664700000000002 * fVec0[((IOTA - 70) & 127)]) + ((0.0047280300000000003 * fVec0[((IOTA - 69) & 127)]) + ((0.0037914799999999999 * fVec0[((IOTA - 68) & 127)]) + ((0.0063763400000000003 * fVec0[((IOTA - 67) & 127)]) + ((0.0065615300000000003 * fVec0[((IOTA - 66) & 127)]) + ((0.00222449 * fVec0[((IOTA - 65) & 127)]) + ((0.0014331000000000001 * fVec0[((IOTA - 36) & 127)]) + ((0.0043624700000000002 * fVec0[((IOTA - 34) & 127)]) + ((0.0071496000000000007 * fVec0[((IOTA - 33) & 127)]) + ((0.009442299999999999 * fVec0[((IOTA - 31) & 127)]) + ((0.041430000000000002 * fVec0[((IOTA - 30) & 127)]) + ((0.032932100000000006 * fVec0[((IOTA - 29) & 127)]) + ((0.0056186100000000004 * fVec0[((IOTA - 28) & 127)]) + ((0.024621200000000003 * fVec0[((IOTA - 27) & 127)]) + ((0.042141200000000004 * fVec0[((IOTA - 26) & 127)]) + ((0.028794800000000002 * fVec0[((IOTA - 25) & 127)]) + ((0.06345640000000001 * fVec0[((IOTA - 24) & 127)]) + ((0.07541260000000001 * fVec0[((IOTA - 23) & 127)]) + ((0.00046772600000000007 * fVec0[((IOTA - 21) & 127)]) + ((0.049093400000000002 * fVec0[((IOTA - 20) & 127)]) + ((0.054047100000000001 * fVec0[((IOTA - 19) & 127)]) + ((0.0108471 * fVec0[((IOTA - 16) & 127)]) + ((1.5753899999999999e-07 * fVec1[((IOTA - 126) & 127)]) + ((3.3066799999999999e-06 * fVec1[((IOTA - 125) & 127)]) + ((0.0010471900000000001 * fVec0[((IOTA - 7) & 127)]) + (((9.6444300000000008e-05 * fVec1[((IOTA - 110) & 127)]) + ((0.00034096799999999998 * fVec1[((IOTA - 109) & 127)]) + ((1.0190999999999999e-05 * fVec1[((IOTA - 108) & 127)]) + ((0.00023396100000000001 * fVec1[((IOTA - 106) & 127)]) + ((0.00052374700000000008 * fVec1[((IOTA - 105) & 127)]) + ((0.00036215100000000001 * fVec1[((IOTA - 104) & 127)]) + ((0.00063805800000000005 * fVec1[((IOTA - 102) & 127)]) + ((0.0011957500000000002 * fVec1[((IOTA - 101) & 127)]) + ((0.0010047600000000002 * fVec1[((IOTA - 100) & 127)]) + ((0.00095472699999999994 * fVec1[((IOTA - 99) & 127)]) + ((0.00092775000000000008 * fVec1[((IOTA - 98) & 127)]) + ((0.00122649 * fVec1[((IOTA - 97) & 127)]) + ((0.0011230999999999999 * fVec1[((IOTA - 93) & 127)]) + ((0.00125953 * fVec1[((IOTA - 92) & 127)]) + ((0.00019295400000000001 * fVec1[((IOTA - 91) & 127)]) + ((0.00055969600000000004 * fVec1[((IOTA - 89) & 127)]) + ((0.00050830900000000008 * fVec1[((IOTA - 83) & 127)]) + ((0.000103257 * fVec1[((IOTA - 76) & 127)]) + ((0.00171093 * fVec1[((IOTA - 73) & 127)]) + ((0.0020383699999999999 * fVec1[((IOTA - 72) & 127)]) + ((0.0013637999999999999 * fVec1[((IOTA - 69) & 127)]) + ((0.0024843999999999999 * fVec1[((IOTA - 68) & 127)]) + ((0.00074355600000000003 * fVec1[((IOTA - 67) & 127)]) + ((0.00089791299999999997 * fVec1[((IOTA - 65) & 127)]) + ((0.0028104300000000005 * fVec1[((IOTA - 64) & 127)]) + ((0.0015055300000000001 * fVec1[((IOTA - 63) & 127)]) + ((0.00129704 * fVec1[((IOTA - 62) & 127)]) + ((0.00045463200000000001 * fVec1[((IOTA - 61) & 127)]) + ((0.00292619 * fVec1[((IOTA - 60) & 127)]) + ((0.0039499399999999999 * fVec1[((IOTA - 59) & 127)]) + ((0.00042873700000000005 * fVec1[((IOTA - 57) & 127)]) + ((0.00077501600000000001 * fVec1[((IOTA - 56) & 127)]) + ((0.0057435900000000007 * fVec1[((IOTA - 52) & 127)]) + ((0.0177702 * fVec1[((IOTA - 36) & 127)]) + ((0.0096359600000000007 * fVec1[((IOTA - 35) & 127)]) + ((0.019155500000000002 * fVec1[((IOTA - 33) & 127)]) + ((0.019293299999999999 * fVec1[((IOTA - 32) & 127)]) + ((0.0068834500000000002 * fVec1[((IOTA - 29) & 127)]) + ((0.036199000000000002 * fVec1[((IOTA - 26) & 127)]) + ((0.028412400000000001 * fVec1[((IOTA - 23) & 127)]) + ((0.016930500000000001 * fVec1[((IOTA - 20) & 127)]) + ((0.0106017 * fVec1[((IOTA - 19) & 127)]) + ((0.000263627 * fVec1[((IOTA - 17) & 127)]) + ((0.00025129900000000002 * fVec1[((IOTA - 15) & 127)]) + ((0.00047378999999999998 * fVec1[((IOTA - 14) & 127)]) + ((0.000359551 * fVec1[((IOTA - 11) & 127)]) + ((0.00050858999999999995 * fVec1[((IOTA - 10) & 127)]) + ((0.00025865000000000003 * fVec1[((IOTA - 8) & 127)]) + ((0.00030013000000000001 * fVec1[((IOTA - 7) & 127)]) + ((0.00012962100000000001 * fVec1[((IOTA - 4) & 127)]) + ((5.1984399999999995e-06 * fVec1[((IOTA - 2) & 127)]) + ((2.0081900000000002e-05 * fVec1[((IOTA - 1) & 127)]) + ((5.35095e-06 * fTemp1) + ((0.0064549899999999999 * fVec1[((IOTA - 45) & 127)]) + ((0.0094244500000000009 * fVec1[((IOTA - 39) & 127)]) + (((6.5997900000000001e-08 * fVec2[((IOTA - 126) & 127)]) + ((2.1505000000000002e-05 * fVec2[((IOTA - 111) & 127)]) + ((0.00025875799999999999 * fVec2[((IOTA - 110) & 127)]) + ((0.00016541 * fVec2[((IOTA - 109) & 127)]) + ((0.00012994100000000001 * fVec2[((IOTA - 108) & 127)]) + ((0.000501459 * fVec2[((IOTA - 107) & 127)]) + ((0.00061807300000000002 * fVec2[((IOTA - 106) & 127)]) + ((0.00041380000000000003 * fVec2[((IOTA - 105) & 127)]) + ((4.2136500000000006e-05 * fVec2[((IOTA - 102) & 127)]) + ((1.1025e-06 * fVec2[((IOTA - 101) & 127)]) + ((0.000102185 * fVec2[((IOTA - 100) & 127)]) + ((0.0010346200000000002 * fVec2[((IOTA - 99) & 127)]) + ((0.0015065 * fVec2[((IOTA - 98) & 127)]) + ((0.00015973800000000001 * fVec2[((IOTA - 94) & 127)]) + ((0.00065440400000000003 * fVec2[((IOTA - 93) & 127)]) + ((0.00049362799999999997 * fVec2[((IOTA - 91) & 127)]) + ((0.0010192300000000001 * fVec2[((IOTA - 90) & 127)]) + ((7.1971000000000006e-05 * fVec2[((IOTA - 85) & 127)]) + ((0.00051516900000000011 * fVec2[((IOTA - 84) & 127)]) + ((0.00076406400000000006 * fVec2[((IOTA - 83) & 127)]) + ((9.4944000000000018e-05 * fVec2[((IOTA - 81) & 127)]) + ((0.00095418100000000002 * fVec2[((IOTA - 80) & 127)]) + ((0.00034814200000000002 * fVec2[((IOTA - 76) & 127)]) + ((8.0286900000000005e-05 * fVec2[((IOTA - 71) & 127)]) + ((0.00159566 * fVec2[((IOTA - 70) & 127)]) + ((1.1146700000000001e-05 * fVec2[((IOTA - 67) & 127)]) + ((0.0016114299999999999 * fVec2[((IOTA - 66) & 127)]) + ((0.0030693399999999998 * fVec2[((IOTA - 65) & 127)]) + ((0.0029336900000000001 * fVec2[((IOTA - 64) & 127)]) + ((0.00021672300000000002 * fVec2[((IOTA - 61) & 127)]) + ((0.0015251900000000001 * fVec2[((IOTA - 60) & 127)]) + ((0.00063413500000000008 * fVec2[((IOTA - 59) & 127)]) + ((0.0015717800000000001 * fVec2[((IOTA - 40) & 127)]) + ((0.00023124899999999999 * fVec2[((IOTA - 7) & 127)]) + ((0.00020135900000000002 * fVec2[((IOTA - 6) & 127)]) + ((0.00015575000000000002 * fVec2[((IOTA - 2) & 127)]) + ((0.041638400000000006 * fVec2[((IOTA - 25) & 127)]) + ((0.020153599999999997 * fVec2[((IOTA - 24) & 127)]) + ((0.00032049699999999999 * fVec2[((IOTA - 23) & 127)]) + ((0.034925999999999999 * fVec2[((IOTA - 22) & 127)]) + ((0.0069752599999999996 * fVec2[((IOTA - 21) & 127)]) + ((0.0037277 * fVec2[((IOTA - 20) & 127)]) + ((0.045202099999999995 * fVec2[((IOTA - 19) & 127)]) + ((0.0086705299999999992 * fVec2[((IOTA - 37) & 127)]) + ((0.00411948 * fVec2[((IOTA - 34) & 127)]) + ((0.0107584 * fVec2[((IOTA - 33) & 127)]) + ((0.0029588800000000001 * fVec2[((IOTA - 32) & 127)]) + ((0.0139764 * fVec2[((IOTA - 30) & 127)]) + ((0.0093965200000000002 * fVec2[((IOTA - 29) & 127)]) + ((0.016385799999999999 * fVec2[((IOTA - 28) & 127)]) + ((0.015254500000000001 * fVec2[((IOTA - 27) & 127)]) + ((0.0099207400000000008 * fVec2[((IOTA - 26) & 127)]) + ((0.00526948 * fVec2[((IOTA - 16) & 127)]) + ((7.2115600000000003e-07 * fVec3[((IOTA - 126) & 127)]) + ((0.000358363 * fVec2[((IOTA - 10) & 127)]) + ((3.4760399999999997e-08 * fVec3[((IOTA - 123) & 127)]) + ((2.0505700000000003e-05 * fVec3[((IOTA - 122) & 127)]) + ((7.2276399999999995e-06 * fVec3[((IOTA - 121) & 127)]) + ((1.3220600000000002e-05 * fVec3[((IOTA - 120) & 127)]) + ((1.2673900000000001e-05 * fVec3[((IOTA - 118) & 127)]) + ((4.4900900000000009e-05 * fVec3[((IOTA - 117) & 127)]) + ((4.1691399999999999e-05 * fVec3[((IOTA - 110) & 127)]) + ((0.00027668200000000005 * fVec3[((IOTA - 92) & 127)]) + ((0.00280241 * fVec3[((IOTA - 82) & 127)]) + ((0.0020786799999999999 * fVec3[((IOTA - 81) & 127)]) + ((0.00091981900000000011 * fVec3[((IOTA - 80) & 127)]) + ((0.0002275 * fVec3[((IOTA - 79) & 127)]) + ((7.5101900000000007e-05 * fVec3[((IOTA - 76) & 127)]) + ((0.00076943900000000002 * fVec3[((IOTA - 72) & 127)]) + ((0.00063752100000000005 * fVec3[((IOTA - 71) & 127)]) + ((0.0026788099999999998 * fVec3[((IOTA - 70) & 127)]) + ((0.0036546199999999999 * fVec3[((IOTA - 69) & 127)]) + ((7.3547000000000006e-05 * fVec3[((IOTA - 68) & 127)]) + ((0.0010616200000000001 * fVec3[((IOTA - 66) & 127)]) + ((0.00033734999999999999 * fVec3[((IOTA - 64) & 127)]) + ((0.00050336900000000004 * fVec3[((IOTA - 63) & 127)]) + ((0.0034082300000000004 * fVec3[((IOTA - 57) & 127)]) + ((0.00345985 * fVec3[((IOTA - 56) & 127)]) + ((0.00155444 * fVec3[((IOTA - 53) & 127)]) + ((0.0014091100000000001 * fVec3[((IOTA - 52) & 127)]) + ((0.0018625499999999999 * fVec3[((IOTA - 51) & 127)]) + ((0.00053192199999999999 * fVec3[((IOTA - 48) & 127)]) + ((0.000148231 * fVec3[((IOTA - 47) & 127)]) + ((0.0072206400000000004 * fVec3[((IOTA - 44) & 127)]) + ((0.0011467599999999999 * fVec3[((IOTA - 43) & 127)]) + ((0.0050838799999999998 * fVec3[((IOTA - 35) & 127)]) + ((0.013509400000000001 * fVec3[((IOTA - 32) & 127)]) + ((0.015784800000000002 * fVec3[((IOTA - 27) & 127)]) + ((0.0024348900000000003 * fVec3[((IOTA - 25) & 127)]) + ((0.0034120499999999998 * fVec3[((IOTA - 24) & 127)]) + ((0.00206245 * fVec3[((IOTA - 23) & 127)]) + ((0.036800600000000003 * fVec3[((IOTA - 19) & 127)]) + ((0.016894100000000002 * fVec3[((IOTA - 16) & 127)]) + ((0.015907999999999999 * fVec3[((IOTA - 15) & 127)]) + ((0.00139284 * fVec3[((IOTA - 13) & 127)]) + ((0.0111489 * fVec3[((IOTA - 12) & 127)]) + ((0.00048254200000000003 * fVec3[((IOTA - 10) & 127)]) + ((0.00084440200000000006 * fVec3[((IOTA - 7) & 127)]) + ((0.00014837300000000001 * fVec3[((IOTA - 3) & 127)]) + ((0.0013227800000000002 * fVec3[((IOTA - 61) & 127)]) + ((0.0013802 * fVec3[((IOTA - 60) & 127)]) + ((0.00057507100000000002 * fVec3[((IOTA - 59) & 127)]) + ((6.1446399999999998e-06 * fVec4[((IOTA - 123) & 127)]) + ((8.1741199999999999e-06 * fVec4[((IOTA - 122) & 127)]) + ((2.2315100000000003e-05 * fVec4[((IOTA - 118) & 127)]) + ((4.6366800000000005e-05 * fVec4[((IOTA - 109) & 127)]) + ((0.00015426800000000002 * fVec4[((IOTA - 108) & 127)]) + ((2.9996500000000003e-05 * fVec4[((IOTA - 104) & 127)]) + ((0.00022863600000000002 * fVec4[((IOTA - 103) & 127)]) + ((0.00013601100000000001 * fVec4[((IOTA - 101) & 127)]) + ((0.00011103000000000001 * fVec4[((IOTA - 100) & 127)]) + ((0.00055044600000000001 * fVec4[((IOTA - 98) & 127)]) + ((0.00044798200000000004 * fVec4[((IOTA - 97) & 127)]) + ((0.00032662200000000005 * fVec4[((IOTA - 96) & 127)]) + ((0.0017853699999999999 * fVec3[((IOTA - 58) & 127)]) + ((0.00065044300000000001 * fVec4[((IOTA - 92) & 127)]) + ((0.0011816700000000001 * fVec4[((IOTA - 91) & 127)]) + ((0.00100478 * fVec4[((IOTA - 90) & 127)]) + ((4.4411900000000001e-05 * fVec4[((IOTA - 89) & 127)]) + ((0.000103707 * fVec4[((IOTA - 85) & 127)]) + ((0.00012959000000000001 * fVec4[((IOTA - 84) & 127)]) + ((0.0012166300000000002 * fVec4[((IOTA - 82) & 127)]) + ((0.00073013500000000003 * fVec4[((IOTA - 81) & 127)]) + ((0.0015448500000000002 * fVec4[((IOTA - 80) & 127)]) + ((0.00109789 * fVec4[((IOTA - 79) & 127)]) + ((0.00041635900000000004 * fVec4[((IOTA - 77) & 127)]) + ((0.00033440100000000001 * fVec4[((IOTA - 74) & 127)]) + ((0.00171149 * fVec4[((IOTA - 71) & 127)]) + ((0.0032145400000000001 * fVec4[((IOTA - 70) & 127)]) + ((0.000234556 * fVec4[((IOTA - 69) & 127)]) + ((0.0009296310000000001 * fVec4[((IOTA - 67) & 127)]) + ((0.00017575500000000001 * fVec4[((IOTA - 66) & 127)]) + ((0.00098071900000000012 * fVec4[((IOTA - 64) & 127)]) + ((0.00040021800000000004 * fVec4[((IOTA - 63) & 127)]) + ((0.0020002800000000001 * fVec4[((IOTA - 61) & 127)]) + ((0.0024495200000000002 * fVec4[((IOTA - 56) & 127)]) + ((0.0022621500000000001 * fVec4[((IOTA - 55) & 127)]) + ((0.0026210900000000004 * fVec4[((IOTA - 54) & 127)]) + ((0.00107755 * fVec4[((IOTA - 53) & 127)]) + ((0.0018869100000000001 * fVec4[((IOTA - 51) & 127)]) + ((0.0016816299999999999 * fVec4[((IOTA - 48) & 127)]) + ((0.00099638500000000002 * fVec4[((IOTA - 47) & 127)]) + ((0.0034718700000000002 * fVec4[((IOTA - 43) & 127)]) + ((0.0068587300000000004 * fVec4[((IOTA - 42) & 127)]) + ((0.0058219500000000002 * fVec4[((IOTA - 34) & 127)]) + ((0.017078900000000001 * fVec4[((IOTA - 33) & 127)]) + ((0.00087088200000000001 * fVec4[((IOTA - 30) & 127)]) + ((0.027225600000000003 * fVec4[((IOTA - 29) & 127)]) + ((0.00149292 * fVec4[((IOTA - 7) & 127)]) + ((0.00062478100000000003 * fVec4[((IOTA - 5) & 127)]) + ((0.00028939400000000006 * fVec4[((IOTA - 3) & 127)]) + ((0.031593799999999998 * fVec4[((IOTA - 21) & 127)]) + ((0.0092093100000000001 * fVec4[((IOTA - 20) & 127)]) + ((0.0182515 * fVec4[((IOTA - 19) & 127)]) + ((0.0125871 * fVec4[((IOTA - 16) & 127)]) + ((0.00946403 * fVec4[((IOTA - 28) & 127)]) + ((0.0038781100000000002 * fVec4[((IOTA - 25) & 127)]) + ((0.048044200000000002 * fVec4[((IOTA - 24) & 127)]) + ((0.0047823300000000004 * fVec4[((IOTA - 23) & 127)]) + ((1.4188099999999999e-06 * fVec5[((IOTA - 126) & 127)]) + ((3.3187600000000001e-06 * fVec5[((IOTA - 125) & 127)]) + ((5.1482899999999996e-06 * fVec5[((IOTA - 124) & 127)]) + ((8.7600299999999995e-06 * fVec5[((IOTA - 123) & 127)]) + ((5.5660599999999997e-06 * fVec5[((IOTA - 122) & 127)]) + ((5.530960000000001e-05 * fVec5[((IOTA - 121) & 127)]) + ((0.0010793700000000001 * fVec4[((IOTA - 14) & 127)]) + ((9.8678100000000013e-05 * fVec5[((IOTA - 119) & 127)]) + ((4.2207000000000004e-05 * fVec5[((IOTA - 118) & 127)]) + ((3.2490500000000003e-05 * fVec5[((IOTA - 117) & 127)]) + ((0.00011697900000000002 * fVec5[((IOTA - 116) & 127)]) + ((0.0061485900000000007 * fVec4[((IOTA - 12) & 127)]) + ((5.6691300000000004e-05 * fVec5[((IOTA - 112) & 127)]) + ((0.000115798 * fVec5[((IOTA - 111) & 127)]) + (((0.0037339199999999999 * fVec5[((IOTA - 96) & 127)]) + ((0.0027517499999999999 * fVec5[((IOTA - 95) & 127)]) + ((0.00065997500000000004 * fVec5[((IOTA - 92) & 127)]) + ((0.0016790700000000002 * fVec5[((IOTA - 91) & 127)]) + ((0.0019817300000000001 * fVec5[((IOTA - 88) & 127)]) + ((0.0040626200000000003 * fVec5[((IOTA - 87) & 127)]) + ((0.0023261500000000004 * fVec5[((IOTA - 86) & 127)]) + ((0.0015044699999999999 * fVec5[((IOTA - 85) & 127)]) + ((0.0010922900000000001 * fVec5[((IOTA - 84) & 127)]) + ((0.00011918500000000002 * fVec5[((IOTA - 120) & 127)]) + ((0.0012104800000000001 * fVec5[((IOTA - 64) & 127)]) + ((0.0039074399999999999 * fVec5[((IOTA - 63) & 127)]) + ((0.00102589 * fVec5[((IOTA - 62) & 127)]) + ((0.00070128400000000004 * fVec5[((IOTA - 59) & 127)]) + ((0.00040873600000000004 * fVec5[((IOTA - 58) & 127)]) + ((0.0011136799999999999 * fVec5[((IOTA - 57) & 127)]) + ((0.0035448200000000002 * fVec5[((IOTA - 56) & 127)]) + ((0.0022150400000000002 * fVec5[((IOTA - 55) & 127)]) + ((3.8517100000000004e-05 * fVec5[((IOTA - 54) & 127)]) + ((0.0011952499999999999 * fVec5[((IOTA - 53) & 127)]) + ((0.00017855099999999999 * fVec5[((IOTA - 52) & 127)]) + ((0.0020778099999999998 * fVec5[((IOTA - 51) & 127)]) + ((0.0048699899999999994 * fVec5[((IOTA - 50) & 127)]) + ((0.0011997199999999998 * fVec5[((IOTA - 47) & 127)]) + ((0.0061526599999999999 * fVec5[((IOTA - 46) & 127)]) + ((0.0028706900000000004 * fVec5[((IOTA - 44) & 127)]) + ((0.011077500000000001 * fVec5[((IOTA - 43) & 127)]) + ((0.0022290399999999998 * fVec5[((IOTA - 42) & 127)]) + ((0.0084232300000000003 * fVec5[((IOTA - 39) & 127)]) + ((0.00127378 * fVec5[((IOTA - 38) & 127)]) + ((0.0125606 * fVec5[((IOTA - 34) & 127)]) + ((0.011542200000000001 * fVec5[((IOTA - 31) & 127)]) + ((0.024367400000000001 * fVec5[((IOTA - 30) & 127)]) + ((0.0537481 * fVec5[((IOTA - 26) & 127)]) + ((0.013059400000000001 * fVec5[((IOTA - 23) & 127)]) + ((0.021176 * fVec5[((IOTA - 22) & 127)]) + ((0.0292041 * fVec5[((IOTA - 18) & 127)]) + ((0.015611 * fVec5[((IOTA - 17) & 127)]) + ((0.0131959 * fVec5[((IOTA - 15) & 127)]) + ((0.0033820999999999999 * fVec5[((IOTA - 13) & 127)]) + ((0.00065433400000000001 * fVec5[((IOTA - 10) & 127)]) + ((0.00012754700000000002 * fVec5[((IOTA - 9) & 127)]) + ((0.00028600400000000002 * fVec5[((IOTA - 8) & 127)]) + ((0.00056964699999999995 * fVec5[((IOTA - 6) & 127)]) + ((0.00055874899999999999 * fVec5[((IOTA - 4) & 127)]) + ((0.000107706 * fVec5[((IOTA - 2) & 127)]) + ((2.3258800000000005e-05 * fVec5[((IOTA - 1) & 127)]) + ((1.5002200000000002e-05 * fTemp5) + ((0.0020168600000000001 * fVec5[((IOTA - 49) & 127)]) + ((1.8648999999999999e-06 * fVec6[((IOTA - 126) & 127)]) + ((1.0045e-05 * fVec6[((IOTA - 125) & 127)]) + ((1.8977800000000003e-05 * fVec6[((IOTA - 124) & 127)]) + ((1.9873400000000002e-05 * fVec6[((IOTA - 123) & 127)]) + ((3.4954000000000004e-05 * fVec6[((IOTA - 122) & 127)]) + ((9.3229500000000019e-05 * fVec6[((IOTA - 121) & 127)]) + ((0.00012240800000000001 * fVec6[((IOTA - 120) & 127)]) + ((9.5701199999999998e-05 * fVec6[((IOTA - 119) & 127)]) + ((5.5900900000000005e-05 * fVec6[((IOTA - 115) & 127)]) + ((1.9102600000000002e-05 * fVec6[((IOTA - 114) & 127)]) + ((0.000876507 * fVec6[((IOTA - 91) & 127)]) + ((0.0020406000000000001 * fVec6[((IOTA - 90) & 127)]) + ((0.0013280499999999999 * fVec6[((IOTA - 89) & 127)]) + ((0.0017303100000000001 * fVec6[((IOTA - 88) & 127)]) + ((0.0029776099999999999 * fVec6[((IOTA - 87) & 127)]) + ((0.0025195700000000001 * fVec6[((IOTA - 86) & 127)]) + ((0.0011889400000000001 * fVec6[((IOTA - 83) & 127)]) + ((0.000386788 * fVec6[((IOTA - 81) & 127)]) + ((0.00090610300000000012 * fVec6[((IOTA - 80) & 127)]) + ((0.0014508500000000001 * fVec6[((IOTA - 79) & 127)]) + ((0.00082739399999999996 * fVec6[((IOTA - 78) & 127)]) + ((0.00013990400000000002 * fVec6[((IOTA - 76) & 127)]) + ((0.00174807 * fVec6[((IOTA - 75) & 127)]) + ((0.00235812 * fVec6[((IOTA - 63) & 127)]) + ((0.0021519 * fVec6[((IOTA - 62) & 127)]) + ((7.6654099999999985e-06 * fVec6[((IOTA - 61) & 127)]) + ((0.0022741699999999998 * fVec6[((IOTA - 55) & 127)]) + ((0.0042530099999999998 * fVec6[((IOTA - 54) & 127)]) + ((0.0032282000000000001 * fVec6[((IOTA - 53) & 127)]) + ((0.0041592900000000004 * fVec6[((IOTA - 50) & 127)]) + ((0.0075640600000000001 * fVec6[((IOTA - 49) & 127)]) + ((0.0079603199999999999 * fVec6[((IOTA - 48) & 127)]) + ((0.0030812000000000001 * fVec6[((IOTA - 47) & 127)]) + ((0.00018497500000000001 * fVec6[((IOTA - 46) & 127)]) + ((0.00033097600000000002 * fVec6[((IOTA - 43) & 127)]) + ((0.0066906600000000002 * fVec6[((IOTA - 42) & 127)]) + ((0.0081795500000000007 * fVec6[((IOTA - 41) & 127)]) + ((0.00108066 * fVec6[((IOTA - 40) & 127)]) + ((0.0088403900000000001 * fVec6[((IOTA - 36) & 127)]) + ((0.0054466000000000002 * fVec6[((IOTA - 35) & 127)]) + ((0.0040393699999999996 * fVec6[((IOTA - 33) & 127)]) + ((0.033863999999999998 * fVec6[((IOTA - 29) & 127)]) + ((0.0092350000000000002 * fVec6[((IOTA - 28) & 127)]) + ((0.00053732699999999999 * fVec6[((IOTA - 26) & 127)]) + ((0.0043864799999999999 * fVec6[((IOTA - 24) & 127)]) + ((0.0027836500000000004 * fVec6[((IOTA - 23) & 127)]) + ((0.0092729000000000006 * fVec6[((IOTA - 22) & 127)]) + ((0.022299000000000003 * fVec6[((IOTA - 21) & 127)]) + ((0.0012059800000000002 * fVec6[((IOTA - 20) & 127)]) + ((0.025815500000000002 * fVec6[((IOTA - 17) & 127)]) + ((7.0800700000000008e-05 * fVec6[((IOTA - 9) & 127)]) + ((0.00076956600000000007 * fVec6[((IOTA - 8) & 127)]) + ((0.000231146 * fVec6[((IOTA - 5) & 127)]) + ((0.00014766099999999999 * fVec6[((IOTA - 4) & 127)]) + ((1.4833700000000001e-06 * fVec7[((IOTA - 126) & 127)]) + ((3.6973199999999999e-06 * fVec7[((IOTA - 125) & 127)]) + ((8.5058500000000009e-06 * fVec7[((IOTA - 124) & 127)]) + ((4.1470500000000002e-05 * fVec7[((IOTA - 123) & 127)]) + ((7.1901800000000003e-05 * fVec7[((IOTA - 122) & 127)]) + ((3.71676e-05 * fVec7[((IOTA - 121) & 127)]) + ((3.3982700000000002e-05 * fVec7[((IOTA - 119) & 127)]) + ((0.00016550199999999999 * fVec7[((IOTA - 118) & 127)]) + ((0.00015893600000000001 * fVec7[((IOTA - 117) & 127)]) + ((0.00011888700000000002 * fVec7[((IOTA - 116) & 127)]) + ((2.6751600000000003e-05 * fVec7[((IOTA - 115) & 127)]) + ((1.5261800000000004e-05 * fVec7[((IOTA - 114) & 127)]) + ((0.00030627700000000004 * fVec7[((IOTA - 113) & 127)]) + ((0.00036830800000000003 * fVec7[((IOTA - 112) & 127)]) + ((0.000251322 * fVec7[((IOTA - 111) & 127)]) + ((0.00022708 * fVec7[((IOTA - 110) & 127)]) + ((0.000239084 * fVec7[((IOTA - 109) & 127)]) + ((9.1238799999999995e-06 * fVec7[((IOTA - 108) & 127)]) + (((0.00021972700000000002 * fVec7[((IOTA - 89) & 127)]) + ((0.0011643300000000001 * fVec7[((IOTA - 82) & 127)]) + ((0.00065994200000000006 * fVec7[((IOTA - 77) & 127)]) + ((0.0017905 * fVec7[((IOTA - 76) & 127)]) + ((0.00015429699999999999 * fVec7[((IOTA - 90) & 127)]) + ((0.00015571700000000001 * fVec7[((IOTA - 71) & 127)]) + ((0.0044549899999999998 * fVec7[((IOTA - 70) & 127)]) + ((0.0039002500000000005 * fVec7[((IOTA - 69) & 127)]) + ((0.00054205300000000002 * fVec7[((IOTA - 68) & 127)]) + ((0.00164631 * fVec7[((IOTA - 67) & 127)]) + ((0.00128867 * fVec7[((IOTA - 66) & 127)]) + ((0.000377902 * fVec7[((IOTA - 65) & 127)]) + ((0.00227327 * fVec7[((IOTA - 64) & 127)]) + ((0.0030369999999999998 * fVec7[((IOTA - 63) & 127)]) + ((0.0023284899999999999 * fVec7[((IOTA - 62) & 127)]) + ((0.0020450900000000003 * fVec7[((IOTA - 61) & 127)]) + ((0.0038926099999999999 * fVec7[((IOTA - 60) & 127)]) + ((0.0051357799999999995 * fVec7[((IOTA - 59) & 127)]) + ((0.0057548899999999995 * fVec7[((IOTA - 58) & 127)]) + ((0.0110121 * fVec7[((IOTA - 57) & 127)]) + ((0.010980500000000001 * fVec7[((IOTA - 56) & 127)]) + ((0.0074067100000000004 * fVec7[((IOTA - 55) & 127)]) + ((0.0058000299999999994 * fVec7[((IOTA - 54) & 127)]) + ((0.0046881500000000003 * fVec7[((IOTA - 53) & 127)]) + ((0.0079024400000000002 * fVec7[((IOTA - 52) & 127)]) + ((0.0143637 * fVec7[((IOTA - 51) & 127)]) + ((0.018899099999999999 * fVec7[((IOTA - 50) & 127)]) + ((0.016699200000000001 * fVec7[((IOTA - 49) & 127)]) + ((0.0121522 * fVec7[((IOTA - 48) & 127)]) + ((0.011685700000000002 * fVec7[((IOTA - 47) & 127)]) + ((0.0122635 * fVec7[((IOTA - 46) & 127)]) + ((0.017027300000000002 * fVec7[((IOTA - 45) & 127)]) + ((0.019806900000000002 * fVec7[((IOTA - 44) & 127)]) + ((0.017303499999999999 * fVec7[((IOTA - 43) & 127)]) + ((0.017569399999999999 * fVec7[((IOTA - 42) & 127)]) + ((0.016072400000000001 * fVec7[((IOTA - 41) & 127)]) + ((0.0227996 * fVec7[((IOTA - 40) & 127)]) + ((0.016965000000000001 * fVec7[((IOTA - 39) & 127)]) + ((0.017693 * fVec7[((IOTA - 38) & 127)]) + ((0.033336499999999998 * fVec7[((IOTA - 37) & 127)]) + ((0.029073099999999998 * fVec7[((IOTA - 36) & 127)]) + ((0.018621700000000001 * fVec7[((IOTA - 35) & 127)]) + ((0.023295900000000001 * fVec7[((IOTA - 34) & 127)]) + ((0.030269900000000002 * fVec7[((IOTA - 33) & 127)]) + ((0.023498000000000002 * fVec7[((IOTA - 32) & 127)]) + ((0.012867100000000001 * fVec7[((IOTA - 31) & 127)]) + ((0.024658199999999998 * fVec7[((IOTA - 30) & 127)]) + ((0.033071500000000004 * fVec7[((IOTA - 29) & 127)]) + ((0.014210199999999999 * fVec7[((IOTA - 26) & 127)]) + ((0.010567 * fVec7[((IOTA - 25) & 127)]) + ((0.056895100000000004 * fVec7[((IOTA - 24) & 127)]) + ((0.025422899999999998 * fVec7[((IOTA - 27) & 127)]) + ((0.00027516900000000002 * fVec7[((IOTA - 2) & 127)]) + ((1.74779e-06 * fVec8[((IOTA - 126) & 127)]) + ((7.1374800000000001e-06 * fVec8[((IOTA - 125) & 127)]) + ((1.69708e-05 * fVec8[((IOTA - 124) & 127)]) + ((7.3980599999999995e-07 * fVec8[((IOTA - 123) & 127)]) + ((5.5996800000000006e-05 * fVec8[((IOTA - 121) & 127)]) + ((0.000117308 * fVec8[((IOTA - 120) & 127)]) + ((0.000195057 * fVec8[((IOTA - 119) & 127)]) + ((0.00020216400000000001 * fVec8[((IOTA - 118) & 127)]) + ((0.00016114100000000001 * fVec8[((IOTA - 117) & 127)]) + ((0.00038352400000000005 * fVec8[((IOTA - 116) & 127)]) + ((0.00050261399999999997 * fVec8[((IOTA - 115) & 127)]) + ((0.00050803600000000001 * fVec8[((IOTA - 114) & 127)]) + ((0.00042659700000000002 * fVec8[((IOTA - 113) & 127)]) + ((0.00050421999999999999 * fVec8[((IOTA - 112) & 127)]) + ((0.0010336799999999999 * fVec8[((IOTA - 111) & 127)]) + ((0.00070924500000000006 * fVec8[((IOTA - 110) & 127)]) + ((0.000779071 * fVec8[((IOTA - 109) & 127)]) + ((0.00095978899999999995 * fVec8[((IOTA - 108) & 127)]) + ((0.0013097499999999999 * fVec8[((IOTA - 107) & 127)]) + ((0.0016259900000000001 * fVec8[((IOTA - 106) & 127)]) + ((0.00100501 * fVec8[((IOTA - 105) & 127)]) + ((0.0012236 * fVec8[((IOTA - 104) & 127)]) + ((0.0018419899999999999 * fVec8[((IOTA - 103) & 127)]) + ((0.00147426 * fVec8[((IOTA - 102) & 127)]) + ((0.0013272 * fVec8[((IOTA - 101) & 127)]) + ((0.00094503799999999993 * fVec8[((IOTA - 100) & 127)]) + ((0.00059498000000000005 * fVec8[((IOTA - 99) & 127)]) + ((0.0025739000000000001 * fVec8[((IOTA - 96) & 127)]) + ((0.0033512100000000003 * fVec8[((IOTA - 95) & 127)]) + ((0.00193882 * fVec8[((IOTA - 88) & 127)]) + ((0.00365475 * fVec8[((IOTA - 87) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0.069732299999999997 * fVec8[((IOTA - 20) & 127)]) + ((0.041405900000000002 * fVec8[((IOTA - 19) & 127)]) + ((((((((((((((((((1.96889e-05 * fTemp8) + (0.00012713900000000002 * fVec8[((IOTA - 1) & 127)])) + (0.00072445800000000009 * fVec8[((IOTA - 3) & 127)])) + (0.00084005400000000002 * fVec8[((IOTA - 4) & 127)])) + (0.00078251799999999995 * fVec8[((IOTA - 5) & 127)])) + (0.00064681700000000005 * fVec8[((IOTA - 6) & 127)])) + (0.00105561 * fVec8[((IOTA - 7) & 127)])) + (0.00107368 * fVec8[((IOTA - 8) & 127)])) + (0.00055752700000000004 * fVec8[((IOTA - 9) & 127)])) + (0.0020685400000000002 * fVec8[((IOTA - 10) & 127)])) + (0.0007391530000000001 * fVec8[((IOTA - 11) & 127)])) + (0.048941400000000003 * fVec8[((IOTA - 12) & 127)])) + (0.053001199999999998 * fVec8[((IOTA - 13) & 127)])) + (0.046698700000000003 * fVec8[((IOTA - 14) & 127)])) + (0.062211200000000001 * fVec8[((IOTA - 15) & 127)])) + (0.043948600000000004 * fVec8[((IOTA - 16) & 127)])) + (0.081345899999999999 * fVec8[((IOTA - 17) & 127)])) + (0.047424299999999996 * fVec8[((IOTA - 18) & 127)])))) + (0.050380599999999998 * fVec8[((IOTA - 21) & 127)])) + (0.111697 * fVec8[((IOTA - 22) & 127)])) + (0.054464300000000007 * fVec8[((IOTA - 23) & 127)])) + (0.036801199999999999 * fVec8[((IOTA - 25) & 127)])) + (0.042423700000000002 * fVec8[((IOTA - 26) & 127)])) + (0.0075229400000000005 * fVec8[((IOTA - 27) & 127)])) + (0.0123141 * fVec8[((IOTA - 28) & 127)])) + (0.0216826 * fVec8[((IOTA - 29) & 127)])) + (0.017730600000000003 * fVec8[((IOTA - 30) & 127)])) + (0.0080194200000000011 * fVec8[((IOTA - 31) & 127)])) + (0.021074000000000002 * fVec8[((IOTA - 33) & 127)])) + (0.0272114 * fVec8[((IOTA - 34) & 127)])) + (0.0056564199999999997 * fVec8[((IOTA - 35) & 127)])) + (0.010539099999999999 * fVec8[((IOTA - 36) & 127)])) + (0.0081598500000000015 * fVec8[((IOTA - 37) & 127)])) + (0.0060665699999999994 * fVec8[((IOTA - 38) & 127)])) + (0.0072938400000000002 * fVec8[((IOTA - 39) & 127)])) + (0.0014525200000000001 * fVec8[((IOTA - 40) & 127)])) + (0.0049862900000000009 * fVec8[((IOTA - 41) & 127)])) + (0.014038399999999999 * fVec8[((IOTA - 42) & 127)])) + (0.0105579 * fVec8[((IOTA - 43) & 127)])) + (0.00431154 * fVec8[((IOTA - 45) & 127)])) + (0.0084629900000000001 * fVec8[((IOTA - 46) & 127)])) + (0.0007157 * fVec8[((IOTA - 47) & 127)])) + (0.00067166600000000002 * fVec8[((IOTA - 48) & 127)])) + (0.0046483699999999998 * fVec8[((IOTA - 49) & 127)])) + (0.0014356600000000001 * fVec8[((IOTA - 50) & 127)])) + (0.00020930100000000001 * fVec8[((IOTA - 51) & 127)])) + (0.00139635 * fVec8[((IOTA - 52) & 127)])) + (0.0029229899999999999 * fVec8[((IOTA - 53) & 127)])) + (0.0042595000000000003 * fVec8[((IOTA - 54) & 127)])) + (0.0039973999999999999 * fVec8[((IOTA - 55) & 127)])) + (4.49754e-06 * fVec8[((IOTA - 56) & 127)])) + (0.00278079 * fVec8[((IOTA - 58) & 127)])) + (0.0038020800000000002 * fVec8[((IOTA - 59) & 127)])) + (0.0026122100000000002 * fVec8[((IOTA - 60) & 127)])) + (0.00338193 * fVec8[((IOTA - 61) & 127)])) + (0.0064815100000000002 * fVec8[((IOTA - 62) & 127)])) + (0.0067297599999999996 * fVec8[((IOTA - 63) & 127)])) + (0.0038801100000000004 * fVec8[((IOTA - 64) & 127)])) + (0.0029381799999999999 * fVec8[((IOTA - 65) & 127)])) + (0.0016933400000000002 * fVec8[((IOTA - 66) & 127)])) + (0.0028127900000000003 * fVec8[((IOTA - 67) & 127)])) + (0.0033726400000000001 * fVec8[((IOTA - 68) & 127)])) + (0.00072404000000000001 * fVec8[((IOTA - 70) & 127)])) + (0.0019828699999999999 * fVec8[((IOTA - 71) & 127)])) + (0.0039087499999999999 * fVec8[((IOTA - 72) & 127)])) + (0.0053022700000000004 * fVec8[((IOTA - 73) & 127)])) + (0.0036032700000000004 * fVec8[((IOTA - 74) & 127)])) + (0.0053821700000000004 * fVec8[((IOTA - 75) & 127)])) + (0.0046326400000000004 * fVec8[((IOTA - 76) & 127)])) + (0.0020199900000000002 * fVec8[((IOTA - 77) & 127)])) + (0.0020409600000000001 * fVec8[((IOTA - 78) & 127)])) + (0.00144247 * fVec8[((IOTA - 79) & 127)])) + (0.0026692399999999998 * fVec8[((IOTA - 80) & 127)])) + (0.0015368900000000002 * fVec8[((IOTA - 81) & 127)])) + (2.5156400000000002e-05 * fVec8[((IOTA - 83) & 127)])) + (0.0010550900000000001 * fVec8[((IOTA - 84) & 127)])) + (0.0017505699999999999 * fVec8[((IOTA - 85) & 127)])) + (0.0026745600000000003 * fVec8[((IOTA - 86) & 127)])) + (0.023601800000000003 * fVec7[((IOTA - 28) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00102092 * fVec6[((IOTA - 74) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00108131 * fVec4[((IOTA - 11) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0011423000000000002 * fVec1[((IOTA - 38) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00047446700000000006 * fVec0[((IOTA - 6) & 127)])))))))))))))))))))))))))))))))))))))))))))))) - ((9.8664600000000001e-07 * fVec0[((IOTA - 125) & 127)]) + ((6.1935700000000003e-07 * fVec0[((IOTA - 122) & 127)]) + ((4.9322600000000008e-05 * fVec0[((IOTA - 119) & 127)]) + ((6.2934400000000005e-05 * fVec0[((IOTA - 118) & 127)]) + ((0.00063438600000000002 * fVec0[((IOTA - 5) & 127)]) + ((0.00012589200000000001 * fVec0[((IOTA - 4) & 127)]) + ((0.00040925999999999999 * fVec0[((IOTA - 3) & 127)]) + ((6.4495100000000005e-05 * fVec0[((IOTA - 1) & 127)]) + ((1.3287400000000001e-05 * fTemp0) + ((0.000106835 * fVec0[((IOTA - 116) & 127)]) + ((0.00018018099999999999 * fVec0[((IOTA - 115) & 127)]) + ((0.00022798800000000001 * fVec0[((IOTA - 114) & 127)]) + ((0.000195522 * fVec0[((IOTA - 113) & 127)]) + ((4.2778300000000003e-05 * fVec0[((IOTA - 117) & 127)]) + ((0.00011808300000000001 * fVec0[((IOTA - 112) & 127)]) + ((3.4608100000000005e-05 * fVec0[((IOTA - 111) & 127)]) + ((5.723480000000001e-05 * fVec0[((IOTA - 110) & 127)]) + ((0.00010142800000000001 * fVec0[((IOTA - 109) & 127)]) + ((9.4569700000000004e-05 * fVec0[((IOTA - 108) & 127)]) + ((0.000158107 * fVec0[((IOTA - 107) & 127)]) + ((0.00070563799999999997 * fVec0[((IOTA - 106) & 127)]) + ((0.00048340500000000007 * fVec0[((IOTA - 105) & 127)]) + ((0.00023814000000000002 * fVec0[((IOTA - 102) & 127)]) + ((0.00015213499999999999 * fVec0[((IOTA - 100) & 127)]) + ((0.0010091500000000001 * fVec0[((IOTA - 99) & 127)]) + ((0.0015510600000000002 * fVec0[((IOTA - 98) & 127)]) + ((0.00028692799999999999 * fVec0[((IOTA - 97) & 127)]) + ((0.00133293 * fVec0[((IOTA - 94) & 127)]) + ((0.0028975800000000003 * fVec0[((IOTA - 93) & 127)]) + ((0.00088707100000000013 * fVec0[((IOTA - 92) & 127)]) + ((0.00187875 * fVec0[((IOTA - 90) & 127)]) + ((0.0031641300000000002 * fVec0[((IOTA - 89) & 127)]) + ((0.0018413699999999999 * fVec0[((IOTA - 88) & 127)]) + ((0.00031068799999999999 * fVec0[((IOTA - 86) & 127)]) + ((0.00097602600000000006 * fVec0[((IOTA - 85) & 127)]) + ((0.0015255399999999999 * fVec0[((IOTA - 84) & 127)]) + ((0.00237411 * fVec0[((IOTA - 83) & 127)]) + ((0.00112458 * fVec0[((IOTA - 82) & 127)]) + ((0.000380057 * fVec0[((IOTA - 81) & 127)]) + ((0.00020890300000000003 * fVec0[((IOTA - 78) & 127)]) + ((0.000712925 * fVec0[((IOTA - 75) & 127)]) + ((0.00090846500000000001 * fVec0[((IOTA - 74) & 127)]) + ((0.000274135 * fVec0[((IOTA - 73) & 127)]) + ((0.00090694700000000018 * fVec0[((IOTA - 64) & 127)]) + ((0.0024532300000000003 * fVec0[((IOTA - 63) & 127)]) + ((0.00327984 * fVec0[((IOTA - 62) & 127)]) + ((0.0016773199999999999 * fVec0[((IOTA - 61) & 127)]) + ((0.00044967800000000007 * fVec0[((IOTA - 60) & 127)]) + ((0.00165106 * fVec0[((IOTA - 59) & 127)]) + ((0.0048987900000000001 * fVec0[((IOTA - 58) & 127)]) + ((0.076845299999999991 * fVec0[((IOTA - 13) & 127)]) + ((0.074437400000000001 * fVec0[((IOTA - 12) & 127)]) + ((0.0013813599999999999 * fVec0[((IOTA - 11) & 127)]) + ((9.4869000000000016e-05 * fVec0[((IOTA - 10) & 127)]) + ((0.0034805299999999999 * fVec0[((IOTA - 57) & 127)]) + ((0.0023563100000000003 * fVec0[((IOTA - 56) & 127)]) + ((0.0045976600000000008 * fVec0[((IOTA - 55) & 127)]) + ((0.00626758 * fVec0[((IOTA - 54) & 127)]) + ((0.0026557099999999999 * fVec0[((IOTA - 53) & 127)]) + ((0.0043297500000000003 * fVec0[((IOTA - 52) & 127)]) + ((0.009209740000000001 * fVec0[((IOTA - 51) & 127)]) + ((0.0029224400000000001 * fVec0[((IOTA - 50) & 127)]) + ((0.0033351100000000001 * fVec0[((IOTA - 49) & 127)]) + ((0.010395300000000001 * fVec0[((IOTA - 48) & 127)]) + ((0.0093701299999999991 * fVec0[((IOTA - 47) & 127)]) + ((0.0063169100000000002 * fVec0[((IOTA - 46) & 127)]) + ((0.013098200000000001 * fVec0[((IOTA - 45) & 127)]) + ((0.014119 * fVec0[((IOTA - 44) & 127)]) + ((0.0021459299999999999 * fVec0[((IOTA - 43) & 127)]) + ((0.0105223 * fVec0[((IOTA - 42) & 127)]) + ((0.022465099999999998 * fVec0[((IOTA - 41) & 127)]) + ((0.0080828600000000007 * fVec0[((IOTA - 40) & 127)]) + ((0.0026383800000000001 * fVec0[((IOTA - 39) & 127)]) + ((0.0090530699999999999 * fVec0[((IOTA - 38) & 127)]) + ((0.0048908699999999994 * fVec0[((IOTA - 37) & 127)]) + ((0.0060908100000000003 * fVec0[((IOTA - 35) & 127)]) + ((0.0095365099999999998 * fVec0[((IOTA - 32) & 127)]) + ((0.00093046600000000002 * fVec0[((IOTA - 22) & 127)]) + ((0.015390200000000001 * fVec0[((IOTA - 18) & 127)]) + ((0.045964499999999998 * fVec0[((IOTA - 17) & 127)]) + ((0.028787799999999999 * fVec0[((IOTA - 15) & 127)]) + ((0.048319200000000007 * fVec0[((IOTA - 14) & 127)]) + ((7.7027e-06 * fVec1[((IOTA - 124) & 127)]) + ((1.6838600000000002e-05 * fVec1[((IOTA - 123) & 127)]) + ((0.00097653599999999996 * fVec0[((IOTA - 9) & 127)]) + ((4.9636399999999996e-06 * fVec1[((IOTA - 122) & 127)]) + ((1.9403399999999997e-06 * fVec1[((IOTA - 121) & 127)]) + ((5.28142e-05 * fVec1[((IOTA - 120) & 127)]) + ((0.00011763 * fVec1[((IOTA - 119) & 127)]) + ((0.00016574 * fVec1[((IOTA - 118) & 127)]) + ((0.00013637100000000001 * fVec1[((IOTA - 117) & 127)]) + ((9.7487500000000005e-05 * fVec1[((IOTA - 116) & 127)]) + ((2.2899500000000003e-05 * fVec1[((IOTA - 115) & 127)]) + ((1.3387100000000001e-05 * fVec1[((IOTA - 114) & 127)]) + ((8.3318600000000019e-05 * fVec1[((IOTA - 113) & 127)]) + ((0.00025527000000000004 * fVec1[((IOTA - 112) & 127)]) + ((0.00034909600000000002 * fVec1[((IOTA - 111) & 127)]) + ((0.00019374600000000001 * fVec1[((IOTA - 107) & 127)]) + ((0.00019838400000000002 * fVec1[((IOTA - 103) & 127)]) + (((0.000168486 * fVec1[((IOTA - 96) & 127)]) + ((0.0012272400000000001 * fVec1[((IOTA - 95) & 127)]) + ((0.00020233 * fVec1[((IOTA - 94) & 127)]) + ((0.00017177199999999999 * fVec1[((IOTA - 90) & 127)]) + ((0.00020847000000000004 * fVec1[((IOTA - 88) & 127)]) + ((0.0011732700000000001 * fVec1[((IOTA - 87) & 127)]) + ((0.00090841200000000004 * fVec1[((IOTA - 86) & 127)]) + ((0.0016132899999999999 * fVec1[((IOTA - 85) & 127)]) + ((0.00035920700000000001 * fVec1[((IOTA - 84) & 127)]) + ((0.00031580000000000003 * fVec1[((IOTA - 82) & 127)]) + ((0.0010732299999999999 * fVec1[((IOTA - 81) & 127)]) + ((0.00257691 * fVec1[((IOTA - 80) & 127)]) + ((0.0017717799999999999 * fVec1[((IOTA - 79) & 127)]) + ((0.000561862 * fVec1[((IOTA - 78) & 127)]) + ((0.000172719 * fVec1[((IOTA - 77) & 127)]) + ((0.0028482099999999999 * fVec1[((IOTA - 75) & 127)]) + ((0.00218125 * fVec1[((IOTA - 74) & 127)]) + ((0.00024288000000000001 * fVec1[((IOTA - 71) & 127)]) + ((0.00186575 * fVec1[((IOTA - 70) & 127)]) + ((0.000588187 * fVec1[((IOTA - 66) & 127)]) + ((0.00080033999999999997 * fVec1[((IOTA - 58) & 127)]) + ((2.5690700000000001e-05 * fVec1[((IOTA - 55) & 127)]) + ((0.00113243 * fVec1[((IOTA - 54) & 127)]) + ((0.0016462200000000001 * fVec1[((IOTA - 53) & 127)]) + ((0.027060000000000001 * fVec1[((IOTA - 34) & 127)]) + ((0.0063968899999999997 * fVec1[((IOTA - 31) & 127)]) + ((0.011650000000000001 * fVec1[((IOTA - 30) & 127)]) + ((0.0092220099999999992 * fVec1[((IOTA - 28) & 127)]) + ((0.0078633899999999996 * fVec1[((IOTA - 27) & 127)]) + ((0.029293300000000001 * fVec1[((IOTA - 25) & 127)]) + ((0.0096560400000000012 * fVec1[((IOTA - 24) & 127)]) + ((0.0144406 * fVec1[((IOTA - 22) & 127)]) + ((0.013951100000000001 * fVec1[((IOTA - 21) & 127)]) + ((0.0084374500000000009 * fVec1[((IOTA - 18) & 127)]) + ((0.0039648399999999999 * fVec1[((IOTA - 16) & 127)]) + ((0.0014542699999999999 * fVec1[((IOTA - 13) & 127)]) + ((0.00036303800000000004 * fVec1[((IOTA - 12) & 127)]) + ((0.00064008700000000001 * fVec1[((IOTA - 9) & 127)]) + ((6.501340000000001e-05 * fVec1[((IOTA - 6) & 127)]) + ((0.00011503900000000001 * fVec1[((IOTA - 5) & 127)]) + ((7.4982900000000003e-05 * fVec1[((IOTA - 3) & 127)]) + ((0.0026402700000000001 * fVec1[((IOTA - 46) & 127)]) + ((0.0042838500000000005 * fVec1[((IOTA - 44) & 127)]) + ((0.0034927700000000001 * fVec1[((IOTA - 43) & 127)]) + ((0.00086436100000000012 * fVec1[((IOTA - 51) & 127)]) + ((0.0055766799999999997 * fVec1[((IOTA - 50) & 127)]) + ((0.00392757 * fVec1[((IOTA - 49) & 127)]) + ((0.0028865100000000001 * fVec1[((IOTA - 48) & 127)]) + ((0.0056144999999999997 * fVec1[((IOTA - 47) & 127)]) + ((0.00038527200000000003 * fVec1[((IOTA - 42) & 127)]) + ((0.0065811400000000009 * fVec1[((IOTA - 41) & 127)]) + ((0.0015727 * fVec1[((IOTA - 40) & 127)]) + ((5.3978799999999999e-06 * fVec2[((IOTA - 125) & 127)]) + ((7.9125199999999989e-06 * fVec2[((IOTA - 124) & 127)]) + ((8.4929499999999997e-06 * fVec2[((IOTA - 123) & 127)]) + ((1.1654000000000001e-05 * fVec2[((IOTA - 122) & 127)]) + ((5.1085100000000003e-05 * fVec2[((IOTA - 121) & 127)]) + ((6.8685100000000004e-05 * fVec2[((IOTA - 120) & 127)]) + ((3.2896299999999998e-06 * fVec2[((IOTA - 119) & 127)]) + ((1.41509e-05 * fVec2[((IOTA - 118) & 127)]) + ((1.6980200000000004e-05 * fVec2[((IOTA - 117) & 127)]) + ((3.2223700000000001e-05 * fVec2[((IOTA - 116) & 127)]) + ((5.8471100000000003e-05 * fVec2[((IOTA - 115) & 127)]) + ((0.00010523700000000001 * fVec2[((IOTA - 114) & 127)]) + ((0.00013697000000000001 * fVec2[((IOTA - 113) & 127)]) + ((0.00010184400000000001 * fVec2[((IOTA - 112) & 127)]) + (((3.2479200000000006e-05 * fVec2[((IOTA - 104) & 127)]) + ((7.9775300000000009e-05 * fVec2[((IOTA - 103) & 127)]) + ((0.000178013 * fVec2[((IOTA - 97) & 127)]) + ((0.00096584900000000007 * fVec2[((IOTA - 96) & 127)]) + ((0.00013887600000000002 * fVec2[((IOTA - 95) & 127)]) + ((0.00019982600000000001 * fVec2[((IOTA - 92) & 127)]) + ((0.00031649800000000002 * fVec2[((IOTA - 89) & 127)]) + ((0.00037059799999999998 * fVec2[((IOTA - 88) & 127)]) + ((0.0012454300000000001 * fVec2[((IOTA - 87) & 127)]) + ((0.00084652999999999996 * fVec2[((IOTA - 86) & 127)]) + ((0.00049063800000000005 * fVec2[((IOTA - 82) & 127)]) + ((0.0013326899999999999 * fVec2[((IOTA - 79) & 127)]) + ((0.00140716 * fVec2[((IOTA - 78) & 127)]) + ((0.00036433400000000001 * fVec2[((IOTA - 77) & 127)]) + ((0.001299 * fVec2[((IOTA - 75) & 127)]) + ((0.0033552399999999998 * fVec2[((IOTA - 74) & 127)]) + ((0.00067232300000000006 * fVec2[((IOTA - 73) & 127)]) + ((0.000145224 * fVec2[((IOTA - 72) & 127)]) + ((0.00118198 * fVec2[((IOTA - 69) & 127)]) + ((0.0029169900000000004 * fVec2[((IOTA - 68) & 127)]) + ((0.000641773 * fVec2[((IOTA - 63) & 127)]) + ((0.0019041500000000001 * fVec2[((IOTA - 62) & 127)]) + ((0.0020271300000000003 * fVec2[((IOTA - 58) & 127)]) + ((0.0037510500000000001 * fVec2[((IOTA - 57) & 127)]) + ((0.0046006600000000003 * fVec2[((IOTA - 56) & 127)]) + ((0.0050914999999999997 * fVec2[((IOTA - 55) & 127)]) + ((0.0044053800000000004 * fVec2[((IOTA - 54) & 127)]) + ((0.0011063700000000002 * fVec2[((IOTA - 53) & 127)]) + ((0.0019731900000000001 * fVec2[((IOTA - 52) & 127)]) + ((0.0069039700000000006 * fVec2[((IOTA - 51) & 127)]) + ((0.0058685200000000003 * fVec2[((IOTA - 50) & 127)]) + ((0.0061875000000000003 * fVec2[((IOTA - 49) & 127)]) + ((0.0086182900000000007 * fVec2[((IOTA - 48) & 127)]) + ((0.0051318099999999997 * fVec2[((IOTA - 47) & 127)]) + ((0.00066500800000000003 * fVec2[((IOTA - 46) & 127)]) + ((0.0054012200000000008 * fVec2[((IOTA - 45) & 127)]) + ((0.0077257100000000002 * fVec2[((IOTA - 44) & 127)]) + ((0.0049702700000000006 * fVec2[((IOTA - 43) & 127)]) + ((0.0075730000000000007 * fVec2[((IOTA - 42) & 127)]) + ((0.0060422599999999998 * fVec2[((IOTA - 41) & 127)]) + ((0.000175224 * fVec2[((IOTA - 5) & 127)]) + ((0.00022650199999999998 * fVec2[((IOTA - 4) & 127)]) + ((5.7022700000000005e-05 * fVec2[((IOTA - 3) & 127)]) + ((2.0383200000000002e-05 * fVec2[((IOTA - 1) & 127)]) + ((4.9413399999999999e-06 * fTemp2) + ((0.0126207 * fVec2[((IOTA - 18) & 127)]) + ((0.015590100000000001 * fVec2[((IOTA - 17) & 127)]) + ((0.0027149600000000002 * fVec2[((IOTA - 39) & 127)]) + ((0.00081970899999999995 * fVec2[((IOTA - 38) & 127)]) + ((5.1858400000000005e-05 * fVec2[((IOTA - 36) & 127)]) + ((0.0045739400000000003 * fVec2[((IOTA - 35) & 127)]) + ((0.00060354400000000002 * fVec2[((IOTA - 31) & 127)]) + ((0.027497799999999999 * fVec2[((IOTA - 15) & 127)]) + ((0.019302299999999998 * fVec2[((IOTA - 14) & 127)]) + ((0.044481599999999996 * fVec2[((IOTA - 13) & 127)]) + ((0.042276800000000003 * fVec2[((IOTA - 12) & 127)]) + ((0.0021177600000000002 * fVec2[((IOTA - 11) & 127)]) + ((5.7104899999999999e-06 * fVec3[((IOTA - 125) & 127)]) + ((1.32724e-05 * fVec3[((IOTA - 124) & 127)]) + ((2.9137400000000003e-05 * fVec3[((IOTA - 119) & 127)]) + ((0.00015924 * fVec3[((IOTA - 116) & 127)]) + ((7.6537400000000003e-05 * fVec3[((IOTA - 115) & 127)]) + ((6.5009300000000008e-05 * fVec3[((IOTA - 114) & 127)]) + ((3.6292700000000006e-05 * fVec3[((IOTA - 113) & 127)]) + ((2.5843400000000004e-05 * fVec3[((IOTA - 112) & 127)]) + ((0.00024267500000000003 * fVec3[((IOTA - 111) & 127)]) + ((0.00027291300000000001 * fVec2[((IOTA - 9) & 127)]) + ((0.00031903100000000006 * fVec3[((IOTA - 109) & 127)]) + ((0.00039582199999999999 * fVec3[((IOTA - 108) & 127)]) + ((0.00027277099999999999 * fVec3[((IOTA - 107) & 127)]) + ((0.00092367899999999995 * fVec3[((IOTA - 106) & 127)]) + ((0.0007145500000000001 * fVec3[((IOTA - 105) & 127)]) + ((0.000964846 * fVec3[((IOTA - 104) & 127)]) + ((0.0012146699999999999 * fVec3[((IOTA - 103) & 127)]) + ((0.00057145600000000003 * fVec3[((IOTA - 102) & 127)]) + ((0.00054242299999999999 * fVec3[((IOTA - 101) & 127)]) + ((0.00061493000000000008 * fVec3[((IOTA - 100) & 127)]) + ((0.0012203400000000001 * fVec3[((IOTA - 99) & 127)]) + ((0.0011941500000000002 * fVec3[((IOTA - 98) & 127)]) + ((6.1550000000000005e-05 * fVec2[((IOTA - 8) & 127)]) + ((0.00106711 * fVec3[((IOTA - 97) & 127)]) + ((0.00308618 * fVec3[((IOTA - 96) & 127)]) + ((0.0032894199999999999 * fVec3[((IOTA - 95) & 127)]) + ((0.00149796 * fVec3[((IOTA - 94) & 127)]) + ((0.00068249900000000004 * fVec3[((IOTA - 93) & 127)]) + ((0.00078510099999999996 * fVec3[((IOTA - 91) & 127)]) + ((0.00096550100000000012 * fVec3[((IOTA - 90) & 127)]) + ((0.00058387599999999999 * fVec3[((IOTA - 89) & 127)]) + ((0.0013118799999999999 * fVec3[((IOTA - 88) & 127)]) + ((0.0027314400000000003 * fVec3[((IOTA - 87) & 127)]) + ((0.0031734000000000003 * fVec3[((IOTA - 86) & 127)]) + ((0.0023903100000000001 * fVec3[((IOTA - 85) & 127)]) + ((0.0025833200000000001 * fVec3[((IOTA - 84) & 127)]) + ((0.00058356200000000003 * fVec3[((IOTA - 83) & 127)]) + ((0.0013939500000000001 * fVec3[((IOTA - 78) & 127)]) + ((1.7606500000000002e-05 * fVec3[((IOTA - 77) & 127)]) + ((0.0017979000000000001 * fVec3[((IOTA - 75) & 127)]) + ((0.00191797 * fVec3[((IOTA - 74) & 127)]) + ((0.00034747700000000001 * fVec3[((IOTA - 73) & 127)]) + ((0.000544179 * fVec3[((IOTA - 67) & 127)]) + ((5.63033e-05 * fVec3[((IOTA - 65) & 127)]) + ((0.00156606 * fVec3[((IOTA - 55) & 127)]) + ((0.0015830800000000002 * fVec3[((IOTA - 54) & 127)]) + ((0.0017704200000000002 * fVec3[((IOTA - 50) & 127)]) + ((0.0019330199999999999 * fVec3[((IOTA - 49) & 127)]) + ((0.00266146 * fVec3[((IOTA - 46) & 127)]) + ((0.0011897800000000001 * fVec3[((IOTA - 45) & 127)]) + ((0.00307881 * fVec3[((IOTA - 42) & 127)]) + ((0.0024114100000000001 * fVec3[((IOTA - 41) & 127)]) + ((0.0026392099999999999 * fVec3[((IOTA - 40) & 127)]) + ((0.00380796 * fVec3[((IOTA - 39) & 127)]) + ((0.000320157 * fVec3[((IOTA - 38) & 127)]) + ((0.00022045699999999999 * fVec3[((IOTA - 37) & 127)]) + ((0.0020659800000000002 * fVec3[((IOTA - 36) & 127)]) + ((0.0049689600000000006 * fVec3[((IOTA - 34) & 127)]) + ((0.0075314300000000004 * fVec3[((IOTA - 33) & 127)]) + ((0.0022648999999999998 * fVec3[((IOTA - 31) & 127)]) + ((0.00801492 * fVec3[((IOTA - 30) & 127)]) + ((0.0110397 * fVec3[((IOTA - 29) & 127)]) + ((0.0010152000000000002 * fVec3[((IOTA - 28) & 127)]) + ((0.00287375 * fVec3[((IOTA - 26) & 127)]) + ((0.0161706 * fVec3[((IOTA - 22) & 127)]) + ((0.026332300000000003 * fVec3[((IOTA - 21) & 127)]) + ((0.0079993000000000009 * fVec3[((IOTA - 20) & 127)]) + ((0.00082163500000000003 * fVec3[((IOTA - 18) & 127)]) + ((0.035125400000000001 * fVec3[((IOTA - 17) & 127)]) + ((0.0032833199999999997 * fVec3[((IOTA - 14) & 127)]) + ((0.00033950300000000006 * fVec3[((IOTA - 11) & 127)]) + ((0.00046365600000000006 * fVec3[((IOTA - 9) & 127)]) + ((0.0019217200000000002 * fVec3[((IOTA - 8) & 127)]) + ((0.00055710700000000004 * fVec3[((IOTA - 6) & 127)]) + ((0.00078591400000000008 * fVec3[((IOTA - 5) & 127)]) + ((0.00067488200000000002 * fVec3[((IOTA - 4) & 127)]) + ((0.00020588500000000003 * fVec3[((IOTA - 2) & 127)]) + ((3.4700500000000004e-05 * fVec3[((IOTA - 1) & 127)]) + ((1.2413700000000001e-05 * fTemp3) + (((4.8744899999999996e-07 * fVec4[((IOTA - 126) & 127)]) + ((3.5255099999999998e-06 * fVec4[((IOTA - 125) & 127)]) + ((3.2621699999999995e-06 * fVec4[((IOTA - 124) & 127)]) + ((4.06072e-05 * fVec4[((IOTA - 121) & 127)]) + ((6.3317800000000006e-05 * fVec4[((IOTA - 120) & 127)]) + ((3.5918100000000004e-05 * fVec4[((IOTA - 119) & 127)]) + ((2.5941400000000002e-05 * fVec4[((IOTA - 117) & 127)]) + ((8.6548500000000007e-05 * fVec4[((IOTA - 116) & 127)]) + ((5.5551700000000006e-05 * fVec4[((IOTA - 115) & 127)]) + ((3.6866300000000003e-05 * fVec4[((IOTA - 114) & 127)]) + ((4.2405400000000006e-05 * fVec4[((IOTA - 113) & 127)]) + ((8.1096800000000013e-05 * fVec4[((IOTA - 112) & 127)]) + ((4.85157e-05 * fVec4[((IOTA - 111) & 127)]) + ((7.4248300000000005e-05 * fVec4[((IOTA - 110) & 127)]) + ((6.1852800000000005e-05 * fVec4[((IOTA - 107) & 127)]) + ((0.00033669 * fVec4[((IOTA - 106) & 127)]) + ((0.00035192300000000003 * fVec4[((IOTA - 105) & 127)]) + ((0.000181368 * fVec4[((IOTA - 102) & 127)]) + ((5.5010100000000004e-05 * fVec4[((IOTA - 99) & 127)]) + ((0.000181872 * fVec4[((IOTA - 95) & 127)]) + ((0.0012472700000000002 * fVec4[((IOTA - 94) & 127)]) + ((0.0012369000000000002 * fVec4[((IOTA - 93) & 127)]) + ((0.00084541900000000014 * fVec4[((IOTA - 88) & 127)]) + ((0.00030825999999999998 * fVec4[((IOTA - 87) & 127)]) + ((0.000991956 * fVec4[((IOTA - 86) & 127)]) + ((0.00039449500000000002 * fVec4[((IOTA - 83) & 127)]) + ((0.00042647700000000008 * fVec4[((IOTA - 78) & 127)]) + ((0.00098188600000000017 * fVec4[((IOTA - 76) & 127)]) + ((0.00076287399999999997 * fVec4[((IOTA - 75) & 127)]) + ((0.00019696800000000003 * fVec4[((IOTA - 73) & 127)]) + ((0.00026003500000000004 * fVec4[((IOTA - 72) & 127)]) + ((0.000162845 * fVec4[((IOTA - 68) & 127)]) + ((0.000175864 * fVec4[((IOTA - 65) & 127)]) + ((0.00122741 * fVec4[((IOTA - 62) & 127)]) + ((0.00051085000000000008 * fVec4[((IOTA - 60) & 127)]) + ((0.0042857099999999999 * fVec4[((IOTA - 59) & 127)]) + ((0.0037509800000000001 * fVec4[((IOTA - 58) & 127)]) + ((0.0013037700000000001 * fVec4[((IOTA - 57) & 127)]) + ((0.000469171 * fVec4[((IOTA - 52) & 127)]) + ((0.0048162999999999999 * fVec4[((IOTA - 50) & 127)]) + ((0.0040944599999999994 * fVec4[((IOTA - 49) & 127)]) + ((0.0041798500000000006 * fVec4[((IOTA - 46) & 127)]) + ((0.0073487099999999996 * fVec4[((IOTA - 45) & 127)]) + ((0.0047594300000000003 * fVec4[((IOTA - 44) & 127)]) + ((0.00164357 * fVec4[((IOTA - 41) & 127)]) + ((0.0066234300000000005 * fVec4[((IOTA - 40) & 127)]) + ((0.0107364 * fVec4[((IOTA - 39) & 127)]) + ((0.0021625699999999999 * fVec4[((IOTA - 38) & 127)]) + ((0.00078494800000000005 * fVec4[((IOTA - 37) & 127)]) + ((0.008554550000000001 * fVec4[((IOTA - 36) & 127)]) + ((0.0087573399999999989 * fVec4[((IOTA - 35) & 127)]) + ((0.0022028300000000002 * fVec4[((IOTA - 32) & 127)]) + ((0.026865800000000002 * fVec4[((IOTA - 31) & 127)]) + ((6.4017400000000008e-05 * fVec4[((IOTA - 9) & 127)]) + ((0.00033249800000000003 * fVec4[((IOTA - 8) & 127)]) + ((0.00114682 * fVec4[((IOTA - 6) & 127)]) + ((0.00043610699999999998 * fVec4[((IOTA - 4) & 127)]) + ((0.000204336 * fVec4[((IOTA - 2) & 127)]) + ((2.2571e-06 * fVec4[((IOTA - 1) & 127)]) + ((1.2883700000000002e-05 * fTemp4) + ((0.044476699999999994 * fVec4[((IOTA - 18) & 127)]) + ((0.019425600000000001 * fVec4[((IOTA - 17) & 127)]) + ((0.0258357 * fVec4[((IOTA - 15) & 127)]) + ((0.0066563000000000004 * fVec4[((IOTA - 27) & 127)]) + ((0.0173968 * fVec4[((IOTA - 26) & 127)]) + ((0.0065755600000000003 * fVec4[((IOTA - 22) & 127)]) + ((0.00505303 * fVec4[((IOTA - 13) & 127)]) + (((7.4329200000000013e-05 * fVec5[((IOTA - 115) & 127)]) + ((0.00029377599999999999 * fVec5[((IOTA - 114) & 127)]) + ((0.000280439 * fVec5[((IOTA - 113) & 127)]) + ((0.00052814500000000005 * fVec5[((IOTA - 110) & 127)]) + ((0.00070229999999999999 * fVec5[((IOTA - 109) & 127)]) + ((0.00080632699999999991 * fVec5[((IOTA - 108) & 127)]) + ((0.000643591 * fVec5[((IOTA - 107) & 127)]) + ((0.00081294000000000006 * fVec5[((IOTA - 106) & 127)]) + ((0.00082950500000000002 * fVec5[((IOTA - 105) & 127)]) + ((0.00023107600000000004 * fVec5[((IOTA - 104) & 127)]) + ((0.00064061300000000005 * fVec5[((IOTA - 103) & 127)]) + ((0.00091664000000000003 * fVec5[((IOTA - 102) & 127)]) + ((0.00073955600000000005 * fVec5[((IOTA - 101) & 127)]) + ((0.00059890600000000007 * fVec5[((IOTA - 100) & 127)]) + ((0.0013073099999999999 * fVec5[((IOTA - 99) & 127)]) + ((0.0027768799999999998 * fVec5[((IOTA - 98) & 127)]) + ((0.00040949500000000001 * fVec5[((IOTA - 97) & 127)]) + ((0.00145302 * fVec5[((IOTA - 94) & 127)]) + ((0.0022861500000000002 * fVec5[((IOTA - 93) & 127)]) + ((0.001377 * fVec5[((IOTA - 90) & 127)]) + ((0.0017080400000000001 * fVec5[((IOTA - 89) & 127)]) + ((0.00016274 * fVec5[((IOTA - 83) & 127)]) + ((0.0027307400000000002 * fVec5[((IOTA - 82) & 127)]) + ((0.0028667500000000004 * fVec5[((IOTA - 81) & 127)]) + ((0.0011399600000000002 * fVec5[((IOTA - 80) & 127)]) + ((0.00110995 * fVec5[((IOTA - 79) & 127)]) + ((0.00124602 * fVec5[((IOTA - 78) & 127)]) + ((0.00129805 * fVec5[((IOTA - 77) & 127)]) + ((0.00100318 * fVec5[((IOTA - 76) & 127)]) + ((0.0022987899999999998 * fVec5[((IOTA - 75) & 127)]) + ((0.0019049100000000001 * fVec5[((IOTA - 74) & 127)]) + ((0.00059075000000000002 * fVec5[((IOTA - 73) & 127)]) + ((0.00103864 * fVec5[((IOTA - 72) & 127)]) + ((0.0013787300000000001 * fVec5[((IOTA - 71) & 127)]) + ((0.00181733 * fVec5[((IOTA - 70) & 127)]) + ((0.00293582 * fVec5[((IOTA - 69) & 127)]) + ((0.0023355800000000003 * fVec5[((IOTA - 68) & 127)]) + ((0.0011070699999999999 * fVec5[((IOTA - 67) & 127)]) + ((0.00050953999999999995 * fVec5[((IOTA - 66) & 127)]) + ((0.00044511000000000003 * fVec5[((IOTA - 65) & 127)]) + ((0.0038312400000000001 * fVec5[((IOTA - 61) & 127)]) + ((0.0016638 * fVec5[((IOTA - 60) & 127)]) + ((0.0043739400000000006 * fVec5[((IOTA - 48) & 127)]) + ((0.0013932899999999999 * fVec5[((IOTA - 45) & 127)]) + ((0.0106382 * fVec5[((IOTA - 41) & 127)]) + ((0.0043469900000000002 * fVec5[((IOTA - 40) & 127)]) + ((0.0015759000000000001 * fVec5[((IOTA - 37) & 127)]) + ((0.0073185999999999998 * fVec5[((IOTA - 36) & 127)]) + ((0.0045973800000000007 * fVec5[((IOTA - 35) & 127)]) + ((0.013183400000000001 * fVec5[((IOTA - 33) & 127)]) + ((0.028645500000000001 * fVec5[((IOTA - 32) & 127)]) + ((0.0092487699999999999 * fVec5[((IOTA - 29) & 127)]) + ((0.039121700000000002 * fVec5[((IOTA - 28) & 127)]) + ((0.00144425 * fVec5[((IOTA - 27) & 127)]) + ((0.0060285 * fVec5[((IOTA - 25) & 127)]) + ((0.057524800000000001 * fVec5[((IOTA - 24) & 127)]) + ((0.021570599999999999 * fVec5[((IOTA - 21) & 127)]) + ((0.0014793400000000002 * fVec5[((IOTA - 20) & 127)]) + ((0.0043988899999999999 * fVec5[((IOTA - 19) & 127)]) + ((0.0073680199999999994 * fVec5[((IOTA - 16) & 127)]) + ((0.00058021900000000009 * fVec5[((IOTA - 14) & 127)]) + ((0.0037306700000000002 * fVec5[((IOTA - 12) & 127)]) + ((0.000216524 * fVec5[((IOTA - 11) & 127)]) + ((0.00050577300000000005 * fVec5[((IOTA - 7) & 127)]) + ((0.00019702400000000002 * fVec5[((IOTA - 5) & 127)]) + (((7.8904099999999995e-07 * fVec6[((IOTA - 118) & 127)]) + ((5.1851200000000009e-05 * fVec6[((IOTA - 117) & 127)]) + ((3.48346e-05 * fVec6[((IOTA - 116) & 127)]) + ((0.000263489 * fVec6[((IOTA - 113) & 127)]) + ((0.00048678400000000003 * fVec6[((IOTA - 112) & 127)]) + ((0.00066577900000000002 * fVec6[((IOTA - 111) & 127)]) + ((0.00072508600000000011 * fVec6[((IOTA - 110) & 127)]) + ((0.00094771800000000006 * fVec6[((IOTA - 109) & 127)]) + ((0.00085589900000000003 * fVec6[((IOTA - 108) & 127)]) + ((0.00097958799999999999 * fVec6[((IOTA - 107) & 127)]) + ((0.00110553 * fVec6[((IOTA - 106) & 127)]) + ((0.00082826600000000003 * fVec6[((IOTA - 105) & 127)]) + ((0.0013655500000000001 * fVec6[((IOTA - 104) & 127)]) + ((0.0018638400000000001 * fVec6[((IOTA - 103) & 127)]) + ((0.0016748900000000001 * fVec6[((IOTA - 102) & 127)]) + ((0.0013615999999999999 * fVec6[((IOTA - 101) & 127)]) + ((0.00120272 * fVec6[((IOTA - 100) & 127)]) + ((0.00103053 * fVec6[((IOTA - 99) & 127)]) + ((0.00040302800000000005 * fVec6[((IOTA - 98) & 127)]) + ((0.0012814900000000001 * fVec6[((IOTA - 97) & 127)]) + ((0.0015273399999999999 * fVec6[((IOTA - 96) & 127)]) + ((0.00046550599999999997 * fVec6[((IOTA - 95) & 127)]) + ((0.00038473700000000001 * fVec6[((IOTA - 94) & 127)]) + ((0.0010250300000000001 * fVec6[((IOTA - 93) & 127)]) + ((0.0011346700000000002 * fVec6[((IOTA - 92) & 127)]) + ((0.00043984100000000006 * fVec6[((IOTA - 85) & 127)]) + ((0.00021673800000000001 * fVec6[((IOTA - 84) & 127)]) + ((2.74177e-05 * fVec6[((IOTA - 82) & 127)]) + ((0.0010960700000000002 * fVec6[((IOTA - 77) & 127)]) + ((0.0030635300000000001 * fVec6[((IOTA - 72) & 127)]) + ((0.0019637600000000002 * fVec6[((IOTA - 71) & 127)]) + ((0.0018260300000000002 * fVec6[((IOTA - 70) & 127)]) + ((0.00238017 * fVec6[((IOTA - 69) & 127)]) + ((0.0031654200000000004 * fVec6[((IOTA - 68) & 127)]) + ((0.00275033 * fVec6[((IOTA - 67) & 127)]) + ((0.0016457800000000001 * fVec6[((IOTA - 66) & 127)]) + ((0.0025982900000000001 * fVec6[((IOTA - 65) & 127)]) + ((0.0013408299999999999 * fVec6[((IOTA - 64) & 127)]) + ((0.0013700399999999999 * fVec6[((IOTA - 73) & 127)]) + ((0.00068048499999999999 * fVec6[((IOTA - 60) & 127)]) + ((0.00122218 * fVec6[((IOTA - 59) & 127)]) + ((0.00152893 * fVec6[((IOTA - 58) & 127)]) + ((0.0022063899999999999 * fVec6[((IOTA - 57) & 127)]) + ((0.00078379700000000003 * fVec6[((IOTA - 56) & 127)]) + ((0.00022987799999999998 * fVec6[((IOTA - 52) & 127)]) + ((0.00078511300000000004 * fVec6[((IOTA - 51) & 127)]) + ((0.0012260999999999999 * fVec6[((IOTA - 45) & 127)]) + ((0.0026344099999999998 * fVec6[((IOTA - 44) & 127)]) + ((0.0038961999999999998 * fVec6[((IOTA - 39) & 127)]) + ((0.011467400000000001 * fVec6[((IOTA - 38) & 127)]) + ((0.0078678299999999993 * fVec6[((IOTA - 37) & 127)]) + ((0.0013363100000000001 * fVec6[((IOTA - 34) & 127)]) + ((0.0089890100000000004 * fVec6[((IOTA - 32) & 127)]) + ((0.0143689 * fVec6[((IOTA - 31) & 127)]) + ((0.0049334100000000001 * fVec6[((IOTA - 30) & 127)]) + ((0.019686699999999998 * fVec6[((IOTA - 27) & 127)]) + ((0.0086390499999999988 * fVec6[((IOTA - 25) & 127)]) + ((0.043355600000000001 * fVec6[((IOTA - 19) & 127)]) + ((0.00249322 * fVec6[((IOTA - 18) & 127)]) + ((0.0141169 * fVec6[((IOTA - 16) & 127)]) + ((0.0111431 * fVec6[((IOTA - 15) & 127)]) + ((0.0018486100000000001 * fVec6[((IOTA - 14) & 127)]) + ((0.000976993 * fVec6[((IOTA - 13) & 127)]) + ((0.0056459800000000001 * fVec6[((IOTA - 12) & 127)]) + ((0.00021246900000000004 * fVec6[((IOTA - 11) & 127)]) + ((0.00095016999999999996 * fVec6[((IOTA - 10) & 127)]) + ((0.0010622000000000001 * fVec6[((IOTA - 7) & 127)]) + ((0.00024919200000000002 * fVec6[((IOTA - 6) & 127)]) + ((0.00027049600000000001 * fVec6[((IOTA - 3) & 127)]) + ((5.1123399999999996e-06 * fVec6[((IOTA - 2) & 127)]) + ((3.7580000000000003e-05 * fVec6[((IOTA - 1) & 127)]) + (((2.5019199999999998e-06 * fVec7[((IOTA - 120) & 127)]) + ((0.00015476800000000001 * fVec7[((IOTA - 107) & 127)]) + ((2.3801800000000003e-05 * fVec7[((IOTA - 106) & 127)]) + ((0.00041578400000000004 * fVec7[((IOTA - 105) & 127)]) + ((0.00040693400000000007 * fVec7[((IOTA - 104) & 127)]) + ((0.00042180200000000004 * fVec7[((IOTA - 103) & 127)]) + ((0.00064933700000000005 * fVec7[((IOTA - 102) & 127)]) + ((0.0010572399999999999 * fVec7[((IOTA - 101) & 127)]) + ((0.00096599000000000012 * fVec7[((IOTA - 100) & 127)]) + ((0.00077855999999999997 * fVec7[((IOTA - 99) & 127)]) + ((0.00073777800000000002 * fVec7[((IOTA - 98) & 127)]) + ((0.00065036 * fVec7[((IOTA - 97) & 127)]) + ((0.00069698000000000004 * fVec7[((IOTA - 96) & 127)]) + ((0.0013956400000000001 * fVec7[((IOTA - 95) & 127)]) + ((0.0020596199999999999 * fVec7[((IOTA - 94) & 127)]) + ((0.0017169000000000002 * fVec7[((IOTA - 93) & 127)]) + ((0.0012716300000000002 * fVec7[((IOTA - 92) & 127)]) + ((0.00130908 * fVec7[((IOTA - 91) & 127)]) + ((0.00161012 * fVec7[((IOTA - 88) & 127)]) + ((0.0016711600000000001 * fVec7[((IOTA - 87) & 127)]) + ((0.00075290600000000002 * fVec7[((IOTA - 86) & 127)]) + ((0.00144013 * fVec7[((IOTA - 85) & 127)]) + ((0.0021273399999999997 * fVec7[((IOTA - 84) & 127)]) + ((0.00061597300000000002 * fVec7[((IOTA - 83) & 127)]) + ((0.00011313 * fVec7[((IOTA - 81) & 127)]) + ((0.0017438199999999999 * fVec7[((IOTA - 80) & 127)]) + ((0.0024799100000000001 * fVec7[((IOTA - 79) & 127)]) + ((0.00256507 * fVec7[((IOTA - 78) & 127)]) + ((0.0011552999999999999 * fVec7[((IOTA - 75) & 127)]) + ((0.00098456699999999999 * fVec7[((IOTA - 74) & 127)]) + ((0.000597807 * fVec7[((IOTA - 73) & 127)]) + ((0.0018893200000000001 * fVec7[((IOTA - 72) & 127)]) + ((0.00092920600000000002 * fVec7[((IOTA - 23) & 127)]) + ((0.080136100000000002 * fVec7[((IOTA - 22) & 127)]) + ((0.041393800000000001 * fVec7[((IOTA - 21) & 127)]) + ((0.042661300000000006 * fVec7[((IOTA - 20) & 127)]) + ((0.0088175100000000006 * fVec7[((IOTA - 19) & 127)]) + ((0.053196100000000003 * fVec7[((IOTA - 18) & 127)]) + ((0.097787600000000002 * fVec7[((IOTA - 17) & 127)]) + ((0.040092800000000005 * fVec7[((IOTA - 16) & 127)]) + ((0.077296500000000004 * fVec7[((IOTA - 15) & 127)]) + ((0.064767000000000005 * fVec7[((IOTA - 14) & 127)]) + ((0.082935599999999998 * fVec7[((IOTA - 13) & 127)]) + ((0.078489900000000001 * fVec7[((IOTA - 12) & 127)]) + ((0.00067357800000000009 * fVec7[((IOTA - 11) & 127)]) + ((0.00149621 * fVec7[((IOTA - 10) & 127)]) + ((0.00072128000000000003 * fVec7[((IOTA - 9) & 127)]) + ((0.00101019 * fVec7[((IOTA - 8) & 127)]) + ((0.000453602 * fVec7[((IOTA - 7) & 127)]) + ((0.00042969900000000002 * fVec7[((IOTA - 6) & 127)]) + ((0.0010723199999999999 * fVec7[((IOTA - 5) & 127)]) + ((0.00084950300000000004 * fVec7[((IOTA - 4) & 127)]) + ((0.00085153200000000001 * fVec7[((IOTA - 3) & 127)]) + ((0.00015027000000000001 * fVec7[((IOTA - 1) & 127)]) + (((((((((((((((((0.00016075400000000001 * fVec8[((IOTA - 2) & 127)]) + (0.021295600000000001 * fVec8[((IOTA - 24) & 127)])) + (0.0029395300000000001 * fVec8[((IOTA - 32) & 127)])) + (0.00092078700000000006 * fVec8[((IOTA - 44) & 127)])) + (0.00063317100000000008 * fVec8[((IOTA - 57) & 127)])) + (0.00036222200000000004 * fVec8[((IOTA - 69) & 127)])) + (0.000687957 * fVec8[((IOTA - 82) & 127)])) + (0.00087519700000000008 * fVec8[((IOTA - 89) & 127)])) + (0.000611186 * fVec8[((IOTA - 90) & 127)])) + (1.7742000000000001e-05 * fVec8[((IOTA - 91) & 127)])) + (0.00196204 * fVec8[((IOTA - 92) & 127)])) + (0.0023706000000000001 * fVec8[((IOTA - 93) & 127)])) + (9.940880000000001e-05 * fVec8[((IOTA - 94) & 127)])) + (0.00047365100000000001 * fVec8[((IOTA - 97) & 127)])) + (0.00048385000000000002 * fVec8[((IOTA - 98) & 127)])) + (1.47262e-06 * fVec8[((IOTA - 122) & 127)])) + (2.4709800000000002e-05 * fTemp7)))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.0426200000000002e-05 * fTemp6))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (6.4290300000000003e-05 * fVec5[((IOTA - 3) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00065851199999999999 * fVec4[((IOTA - 10) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0011524899999999999 * fVec3[((IOTA - 62) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0158301 * fVec1[((IOTA - 37) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00011001600000000001 * fVec0[((IOTA - 8) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fHbargraph1 = FAUSTFLOAT(fRec12[0]); + output1[i] = FAUSTFLOAT(fTemp10); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + IOTA = (IOTA + 1); + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec0[1] = fRec0[0]; + fRec12[1] = fRec12[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecBinaural3.cpp b/source/HOAUGens/HOADecBinaural3.cpp new file mode 100644 index 0000000000..feda55f4e3 --- /dev/null +++ b/source/HOAUGens/HOADecBinaural3.cpp @@ -0,0 +1,1567 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL)" +name: "HOADecBinaural3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + int IOTA; + double fVec0[128]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fVec1[128]; + double fRec5[2]; + FAUSTFLOAT fVbargraph2; + double fVec2[128]; + double fRec6[2]; + FAUSTFLOAT fVbargraph3; + double fVec3[128]; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fVec4[128]; + double fRec8[2]; + FAUSTFLOAT fVbargraph5; + double fVec5[128]; + double fRec9[2]; + FAUSTFLOAT fVbargraph6; + double fVec6[128]; + double fRec10[2]; + FAUSTFLOAT fVbargraph7; + double fVec7[128]; + double fRec11[2]; + FAUSTFLOAT fVbargraph8; + double fVec8[128]; + double fRec12[2]; + FAUSTFLOAT fVbargraph9; + double fVec9[128]; + double fRec13[2]; + FAUSTFLOAT fVbargraph10; + double fVec10[128]; + double fRec14[2]; + FAUSTFLOAT fVbargraph11; + double fVec11[128]; + double fRec15[2]; + FAUSTFLOAT fVbargraph12; + double fVec12[128]; + double fRec16[2]; + FAUSTFLOAT fVbargraph13; + double fVec13[128]; + double fRec17[2]; + FAUSTFLOAT fVbargraph14; + double fVec14[128]; + double fRec18[2]; + FAUSTFLOAT fVbargraph15; + double fVec15[128]; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + double fRec19[2]; + FAUSTFLOAT fHbargraph1; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filters.lib/name", "Faust Filters Library"); + m->declare("filters.lib/version", "0.0"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL)"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecBinaural3"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 2; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + IOTA = 0; + for (int l3 = 0; (l3 < 128); l3 = (l3 + 1)) { + fVec0[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 128); l5 = (l5 + 1)) { + fVec1[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec5[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 128); l7 = (l7 + 1)) { + fVec2[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec6[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 128); l9 = (l9 + 1)) { + fVec3[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 128); l11 = (l11 + 1)) { + fVec4[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec8[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 128); l13 = (l13 + 1)) { + fVec5[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec9[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 128); l15 = (l15 + 1)) { + fVec6[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec10[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 128); l17 = (l17 + 1)) { + fVec7[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec11[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 128); l19 = (l19 + 1)) { + fVec8[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec12[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 128); l21 = (l21 + 1)) { + fVec9[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec13[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 128); l23 = (l23 + 1)) { + fVec10[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec14[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 128); l25 = (l25 + 1)) { + fVec11[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec15[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 128); l27 = (l27 + 1)) { + fVec12[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec16[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 128); l29 = (l29 + 1)) { + fVec13[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec17[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 128); l31 = (l31 + 1)) { + fVec14[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec18[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 128); l33 = (l33 + 1)) { + fVec15[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec0[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec19[l35] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecBinaural3"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5671530", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x541fa40", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x562ef70", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5608df0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55de970", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55ae700", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558aab0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55627b0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55435e0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x551bb50", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54f0900", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54c8730", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54a17d0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5478040", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54244b0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x542ab30", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 10"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 10"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("Left"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x599a1f0", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Right"); + ui_interface->declare(&fHbargraph1, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x5c61110", &fHbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow1 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input1[i])); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + fVec0[(IOTA & 127)] = fTemp0; + double fTemp1 = (fRec3[0] * double(input14[i])); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + fVec1[(IOTA & 127)] = fTemp1; + double fTemp2 = (fRec3[0] * double(input15[i])); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec5[0]); + fVec2[(IOTA & 127)] = fTemp2; + double fTemp3 = (fRec3[0] * double(input13[i])); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec6[0]); + fVec3[(IOTA & 127)] = fTemp3; + double fTemp4 = (fRec3[0] * double(input12[i])); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + fVec4[(IOTA & 127)] = fTemp4; + double fTemp5 = (fRec3[0] * double(input11[i])); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec8[0]); + fVec5[(IOTA & 127)] = fTemp5; + double fTemp6 = (fRec3[0] * double(input10[i])); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec9[0]); + fVec6[(IOTA & 127)] = fTemp6; + double fTemp7 = (fRec3[0] * double(input9[i])); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec10[0]); + fVec7[(IOTA & 127)] = fTemp7; + double fTemp8 = (fRec3[0] * double(input8[i])); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec11[0]); + fVec8[(IOTA & 127)] = fTemp8; + double fTemp9 = (fRec3[0] * double(input7[i])); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec12[0]); + fVec9[(IOTA & 127)] = fTemp9; + double fTemp10 = (fRec3[0] * double(input6[i])); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec13[0]); + fVec10[(IOTA & 127)] = fTemp10; + double fTemp11 = (fRec3[0] * double(input5[i])); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec14[0]); + fVec11[(IOTA & 127)] = fTemp11; + double fTemp12 = (fRec3[0] * double(input4[i])); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec15[0]); + fVec12[(IOTA & 127)] = fTemp12; + double fTemp13 = (fRec3[0] * double(input3[i])); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec16[0]); + fVec13[(IOTA & 127)] = fTemp13; + double fTemp14 = (fRec3[0] * double(input2[i])); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec17[0]); + fVec14[(IOTA & 127)] = fTemp14; + double fTemp15 = (fRec3[0] * double(input0[i])); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec18[0]); + fVec15[(IOTA & 127)] = fTemp15; + double fTemp16 = (fRec1[0] * (((0.00010376700000000001 * (fVec0[((IOTA - 71) & 127)] - fVec1[((IOTA - 119) & 127)])) + ((1.4034199999999999e-06 * fVec2[((IOTA - 126) & 127)]) + ((1.2211099999999999e-06 * fVec2[((IOTA - 125) & 127)]) + ((1.2893400000000001e-05 * fVec2[((IOTA - 124) & 127)]) + ((2.6002200000000003e-05 * fVec2[((IOTA - 123) & 127)]) + ((2.6415500000000001e-05 * fVec2[((IOTA - 122) & 127)]) + ((2.8177200000000002e-05 * fVec2[((IOTA - 121) & 127)]) + ((1.2612900000000001e-05 * fVec2[((IOTA - 120) & 127)]) + ((0.00041671500000000006 * fVec2[((IOTA - 104) & 127)]) + ((0.00031062500000000003 * fVec2[((IOTA - 100) & 127)]) + ((7.3607000000000002e-05 * fVec2[((IOTA - 99) & 127)]) + ((0.00050056999999999999 * fVec2[((IOTA - 96) & 127)]) + ((0.0027204999999999998 * fVec2[((IOTA - 95) & 127)]) + ((0.0020446800000000001 * fVec2[((IOTA - 94) & 127)]) + ((8.3015299999999998e-05 * fVec2[((IOTA - 93) & 127)]) + ((0.0022225799999999996 * fVec2[((IOTA - 92) & 127)]) + ((0.0024016700000000003 * fVec2[((IOTA - 91) & 127)]) + ((0.00063865800000000006 * fVec2[((IOTA - 86) & 127)]) + ((0.00058693299999999999 * fVec2[((IOTA - 84) & 127)]) + ((0.0010148100000000001 * fVec2[((IOTA - 79) & 127)]) + ((0.00042316100000000002 * fVec2[((IOTA - 80) & 127)]) + ((0.00028691900000000001 * fVec2[((IOTA - 73) & 127)]) + ((0.0021912699999999999 * fVec2[((IOTA - 72) & 127)]) + ((0.00113353 * fVec2[((IOTA - 71) & 127)]) + ((0.000557951 * fVec2[((IOTA - 66) & 127)]) + ((0.00043863399999999997 * fVec2[((IOTA - 63) & 127)]) + ((0.00314139 * fVec2[((IOTA - 62) & 127)]) + ((0.0052284000000000002 * fVec2[((IOTA - 61) & 127)]) + ((0.0025010699999999998 * fVec2[((IOTA - 60) & 127)]) + ((0.0012393300000000001 * fVec2[((IOTA - 57) & 127)]) + ((0.0018594100000000001 * fVec2[((IOTA - 54) & 127)]) + ((0.0034922200000000003 * fVec2[((IOTA - 53) & 127)]) + ((0.00127944 * fVec2[((IOTA - 52) & 127)]) + ((0.0016422699999999999 * fVec2[((IOTA - 51) & 127)]) + ((0.00289419 * fVec2[((IOTA - 50) & 127)]) + ((0.0053105499999999998 * fVec2[((IOTA - 49) & 127)]) + ((0.0065292000000000006 * fVec2[((IOTA - 48) & 127)]) + ((0.00110392 * fVec2[((IOTA - 47) & 127)]) + ((0.0039351999999999998 * fVec2[((IOTA - 42) & 127)]) + ((0.00132128 * fVec2[((IOTA - 41) & 127)]) + ((0.0068892700000000003 * fVec2[((IOTA - 39) & 127)]) + ((0.0013770800000000001 * fVec2[((IOTA - 38) & 127)]) + ((0.031043400000000002 * fVec2[((IOTA - 30) & 127)]) + ((0.0012180400000000001 * fVec2[((IOTA - 29) & 127)]) + ((0.026485700000000001 * fVec2[((IOTA - 26) & 127)]) + ((0.026438899999999998 * fVec2[((IOTA - 23) & 127)]) + ((0.0094311100000000012 * fVec2[((IOTA - 22) & 127)]) + ((0.0253549 * fVec2[((IOTA - 21) & 127)]) + ((0.034643899999999998 * fVec2[((IOTA - 20) & 127)]) + ((0.0140976 * fVec2[((IOTA - 19) & 127)]) + ((0.00406018 * fVec2[((IOTA - 16) & 127)]) + ((0.019651700000000001 * fVec2[((IOTA - 12) & 127)]) + ((0.0098021300000000009 * fVec2[((IOTA - 11) & 127)]) + ((0.00308077 * fVec2[((IOTA - 9) & 127)]) + ((0.00323953 * fVec2[((IOTA - 7) & 127)]) + ((0.0012123500000000001 * fVec2[((IOTA - 5) & 127)]) + (((4.4620600000000002e-07 * fVec1[((IOTA - 126) & 127)]) + ((2.9040900000000002e-05 * fVec1[((IOTA - 122) & 127)]) + ((3.3390499999999998e-05 * fVec1[((IOTA - 121) & 127)]) + ((2.7818400000000001e-05 * fVec1[((IOTA - 118) & 127)]) + ((1.2691900000000001e-05 * fVec1[((IOTA - 113) & 127)]) + ((0.00037104300000000005 * fVec1[((IOTA - 111) & 127)]) + ((0.00041838800000000006 * fVec1[((IOTA - 110) & 127)]) + ((0.0025975199999999999 * fVec1[((IOTA - 92) & 127)]) + ((0.00015330900000000002 * fVec1[((IOTA - 91) & 127)]) + ((0.00154597 * fVec1[((IOTA - 89) & 127)]) + ((0.00067549000000000005 * fVec1[((IOTA - 88) & 127)]) + ((0.00107274 * fVec1[((IOTA - 85) & 127)]) + ((0.00062359600000000002 * fVec1[((IOTA - 80) & 127)]) + ((0.000178293 * fVec1[((IOTA - 79) & 127)]) + ((0.00080254300000000007 * fVec1[((IOTA - 76) & 127)]) + ((0.00065406300000000008 * fVec1[((IOTA - 68) & 127)]) + ((0.00014068899999999999 * fVec1[((IOTA - 67) & 127)]) + ((0.0019257899999999999 * fVec1[((IOTA - 65) & 127)]) + ((0.00162886 * fVec1[((IOTA - 64) & 127)]) + ((0.00050768500000000002 * fVec1[((IOTA - 63) & 127)]) + ((0.0025198 * fVec1[((IOTA - 60) & 127)]) + ((0.00117113 * fVec1[((IOTA - 59) & 127)]) + ((0.00015039900000000001 * fVec1[((IOTA - 58) & 127)]) + ((0.000455995 * fVec1[((IOTA - 56) & 127)]) + ((0.00278239 * fVec1[((IOTA - 55) & 127)]) + ((0.0010278799999999999 * fVec1[((IOTA - 54) & 127)]) + ((0.011156999999999999 * fVec1[((IOTA - 45) & 127)]) + ((0.0043641399999999999 * fVec1[((IOTA - 44) & 127)]) + ((0.0039441099999999998 * fVec1[((IOTA - 42) & 127)]) + ((0.0097659400000000007 * fVec1[((IOTA - 39) & 127)]) + ((0.0076369999999999997 * fVec1[((IOTA - 36) & 127)]) + ((0.015424400000000001 * fVec1[((IOTA - 35) & 127)]) + ((0.0018063700000000001 * fVec1[((IOTA - 32) & 127)]) + ((0.00736515 * fVec1[((IOTA - 31) & 127)]) + ((0.0126468 * fVec1[((IOTA - 30) & 127)]) + ((0.0011752499999999999 * fVec1[((IOTA - 27) & 127)]) + ((0.022162999999999999 * fVec1[((IOTA - 26) & 127)]) + ((0.0071126699999999998 * fVec1[((IOTA - 25) & 127)]) + ((0.018755900000000002 * fVec1[((IOTA - 24) & 127)]) + ((0.0013016799999999999 * fVec1[((IOTA - 23) & 127)]) + ((0.0137094 * fVec1[((IOTA - 21) & 127)]) + ((0.024051599999999999 * fVec1[((IOTA - 18) & 127)]) + ((0.015724599999999998 * fVec1[((IOTA - 15) & 127)]) + ((0.014135400000000001 * fVec1[((IOTA - 12) & 127)]) + ((0.0011849499999999999 * fVec1[((IOTA - 9) & 127)]) + ((0.00070355200000000008 * fVec1[((IOTA - 7) & 127)]) + ((5.9634000000000005e-05 * fVec1[((IOTA - 6) & 127)]) + ((0.000133299 * fVec1[((IOTA - 5) & 127)]) + ((0.00039401200000000001 * fVec1[((IOTA - 3) & 127)]) + ((3.0720999999999999e-05 * fVec1[((IOTA - 1) & 127)]) + ((8.3709499999999999e-06 * fTemp1) + ((0.0011730600000000001 * fVec1[((IOTA - 95) & 127)]) + ((0.00057686100000000002 * fVec1[((IOTA - 106) & 127)]) + ((0.00059161900000000004 * fVec1[((IOTA - 105) & 127)]) + ((0.00049454399999999997 * fVec1[((IOTA - 104) & 127)]) + ((0.00061440799999999999 * fVec1[((IOTA - 103) & 127)]) + ((0.00061735800000000003 * fVec1[((IOTA - 102) & 127)]) + ((0.000728026 * fVec1[((IOTA - 101) & 127)]) + ((0.0016346700000000002 * fVec1[((IOTA - 94) & 127)]) + ((0.00038062800000000004 * fVec1[((IOTA - 100) & 127)]) + ((0.00062138299999999998 * fVec1[((IOTA - 99) & 127)]) + ((0.00075514600000000005 * fVec1[((IOTA - 98) & 127)]) + ((0.0021457000000000004 * fVec1[((IOTA - 93) & 127)]) + ((3.0765800000000003e-05 * fVec3[((IOTA - 119) & 127)]) + ((7.0563399999999996e-05 * fVec3[((IOTA - 118) & 127)]) + ((1.38519e-05 * fVec3[((IOTA - 115) & 127)]) + ((0.00014198999999999999 * fVec3[((IOTA - 114) & 127)]) + ((9.8497200000000003e-05 * fVec3[((IOTA - 113) & 127)]) + ((0.000185267 * fVec3[((IOTA - 112) & 127)]) + ((9.1395000000000002e-05 * fVec3[((IOTA - 111) & 127)]) + ((8.0491800000000001e-05 * fVec3[((IOTA - 110) & 127)]) + ((0.00064522800000000008 * fVec3[((IOTA - 109) & 127)]) + ((0.00058569100000000005 * fVec3[((IOTA - 108) & 127)]) + ((0.00033563700000000001 * fVec3[((IOTA - 107) & 127)]) + ((0.00035424600000000001 * fVec3[((IOTA - 106) & 127)]) + ((0.00062789300000000003 * fVec3[((IOTA - 105) & 127)]) + ((0.00034429799999999999 * fVec3[((IOTA - 104) & 127)]) + ((2.9823200000000003e-05 * fVec3[((IOTA - 103) & 127)]) + ((0.00061507300000000005 * fVec3[((IOTA - 102) & 127)]) + ((0.00037771400000000002 * fVec3[((IOTA - 101) & 127)]) + ((0.00015985700000000001 * fVec3[((IOTA - 100) & 127)]) + ((0.000190946 * fVec3[((IOTA - 99) & 127)]) + ((0.00050743800000000003 * fVec3[((IOTA - 98) & 127)]) + ((0.00056488300000000007 * fVec3[((IOTA - 97) & 127)]) + ((8.1509000000000009e-05 * fVec3[((IOTA - 96) & 127)]) + ((0.00037732899999999998 * fVec3[((IOTA - 95) & 127)]) + ((0.00041022299999999998 * fVec3[((IOTA - 93) & 127)]) + ((0.00085697799999999999 * fVec3[((IOTA - 92) & 127)]) + ((0.000105676 * fVec3[((IOTA - 83) & 127)]) + ((0.00056615599999999995 * fVec3[((IOTA - 7) & 127)]) + ((0.00058234700000000009 * fVec3[((IOTA - 5) & 127)]) + ((0.00027969900000000001 * fVec3[((IOTA - 3) & 127)]) + ((4.34537e-05 * fVec3[((IOTA - 1) & 127)]) + ((0.011357900000000001 * fVec3[((IOTA - 14) & 127)]) + ((0.0037318799999999999 * fVec3[((IOTA - 12) & 127)]) + ((0.00052492499999999998 * fVec3[((IOTA - 75) & 127)]) + ((0.0022562899999999998 * fVec3[((IOTA - 74) & 127)]) + ((0.000321723 * fVec3[((IOTA - 73) & 127)]) + ((0.00080229500000000007 * fVec3[((IOTA - 72) & 127)]) + ((0.0019222600000000001 * fVec3[((IOTA - 71) & 127)]) + ((0.0028435500000000002 * fVec3[((IOTA - 70) & 127)]) + ((4.2787900000000004e-05 * fVec3[((IOTA - 69) & 127)]) + ((0.0024381200000000002 * fVec3[((IOTA - 67) & 127)]) + ((0.0023961899999999999 * fVec3[((IOTA - 66) & 127)]) + ((0.0021430799999999999 * fVec3[((IOTA - 65) & 127)]) + ((0.0030028400000000001 * fVec3[((IOTA - 64) & 127)]) + ((0.00058073100000000002 * fVec3[((IOTA - 63) & 127)]) + ((0.0017794099999999999 * fVec3[((IOTA - 51) & 127)]) + ((0.00225201 * fVec3[((IOTA - 48) & 127)]) + ((0.0035764999999999998 * fVec3[((IOTA - 47) & 127)]) + ((0.0050062100000000005 * fVec3[((IOTA - 46) & 127)]) + ((0.00090678400000000011 * fVec3[((IOTA - 45) & 127)]) + ((0.0060474300000000003 * fVec3[((IOTA - 42) & 127)]) + ((0.0049879100000000008 * fVec3[((IOTA - 41) & 127)]) + ((0.0040529299999999997 * fVec3[((IOTA - 40) & 127)]) + ((0.0083491300000000015 * fVec3[((IOTA - 39) & 127)]) + ((0.011238600000000001 * fVec3[((IOTA - 36) & 127)]) + ((7.6854400000000007e-05 * fVec3[((IOTA - 34) & 127)]) + ((0.0100301 * fVec3[((IOTA - 33) & 127)]) + ((0.0053935399999999996 * fVec3[((IOTA - 32) & 127)]) + ((0.0073630199999999996 * fVec3[((IOTA - 28) & 127)]) + ((0.016863099999999999 * fVec3[((IOTA - 27) & 127)]) + ((0.0087242399999999994 * fVec3[((IOTA - 24) & 127)]) + ((0.027741399999999999 * fVec3[((IOTA - 22) & 127)]) + ((0.0366919 * fVec3[((IOTA - 19) & 127)]) + ((0.0010972500000000001 * fVec3[((IOTA - 11) & 127)]) + ((0.00061125900000000006 * fVec3[((IOTA - 9) & 127)]) + ((7.1292100000000001e-05 * fVec4[((IOTA - 115) & 127)]) + ((6.8217500000000009e-05 * fVec3[((IOTA - 10) & 127)]) + ((0.00018952700000000002 * fVec4[((IOTA - 111) & 127)]) + ((0.00035912999999999999 * fVec4[((IOTA - 110) & 127)]) + ((0.00051251200000000002 * fVec4[((IOTA - 109) & 127)]) + ((0.00046264500000000003 * fVec4[((IOTA - 108) & 127)]) + ((0.00014609200000000001 * fVec4[((IOTA - 107) & 127)]) + ((0.000122237 * fVec4[((IOTA - 106) & 127)]) + ((2.0314199999999999e-05 * fVec4[((IOTA - 105) & 127)]) + ((3.2517300000000001e-05 * fVec4[((IOTA - 104) & 127)]) + ((7.679690000000001e-05 * fVec4[((IOTA - 103) & 127)]) + ((0.00081181999999999999 * fVec4[((IOTA - 102) & 127)]) + ((0.0010270300000000002 * fVec4[((IOTA - 101) & 127)]) + ((0.00033934900000000002 * fVec4[((IOTA - 100) & 127)]) + ((0.00067179499999999999 * fVec4[((IOTA - 99) & 127)]) + ((0.0015498300000000001 * fVec4[((IOTA - 98) & 127)]) + ((0.00193557 * fVec4[((IOTA - 97) & 127)]) + ((0.0012977900000000001 * fVec4[((IOTA - 96) & 127)]) + ((0.00173953 * fVec4[((IOTA - 92) & 127)]) + ((0.0020737100000000003 * fVec4[((IOTA - 91) & 127)]) + ((0.00132314 * fVec4[((IOTA - 90) & 127)]) + ((0.00050203100000000001 * fVec4[((IOTA - 89) & 127)]) + ((2.5817700000000002e-05 * fVec4[((IOTA - 81) & 127)]) + ((0.0008419320000000001 * fVec4[((IOTA - 80) & 127)]) + ((0.00087629800000000007 * fVec4[((IOTA - 79) & 127)]) + ((0.000245352 * fVec4[((IOTA - 70) & 127)]) + ((0.0012620800000000001 * fVec4[((IOTA - 69) & 127)]) + ((0.0023085100000000002 * fVec4[((IOTA - 68) & 127)]) + ((0.002405 * fVec4[((IOTA - 67) & 127)]) + ((0.014772 * fVec4[((IOTA - 34) & 127)]) + ((0.0058612900000000008 * fVec4[((IOTA - 31) & 127)]) + ((0.0057233800000000001 * fVec4[((IOTA - 28) & 127)]) + ((0.0152522 * fVec4[((IOTA - 27) & 127)]) + ((0.0102524 * fVec4[((IOTA - 26) & 127)]) + ((0.018531200000000001 * fVec4[((IOTA - 25) & 127)]) + ((0.044155600000000003 * fVec4[((IOTA - 22) & 127)]) + ((0.0081954799999999998 * fVec4[((IOTA - 21) & 127)]) + ((0.022452899999999998 * fVec4[((IOTA - 16) & 127)]) + ((0.0121954 * fVec4[((IOTA - 15) & 127)]) + ((0.0109563 * fVec4[((IOTA - 12) & 127)]) + ((0.00016957000000000002 * fVec4[((IOTA - 11) & 127)]) + ((0.00010783300000000001 * fVec4[((IOTA - 10) & 127)]) + ((0.00024862500000000004 * fVec4[((IOTA - 9) & 127)]) + ((0.00084071099999999995 * fVec4[((IOTA - 7) & 127)]) + ((9.0162999999999997e-05 * fVec4[((IOTA - 4) & 127)]) + ((0.00036489900000000002 * fVec4[((IOTA - 3) & 127)]) + ((4.0528500000000005e-06 * fTemp4) + ((0.00025800500000000001 * fVec4[((IOTA - 40) & 127)]) + ((0.0064505600000000001 * fVec4[((IOTA - 38) & 127)]) + ((0.0014007000000000002 * fVec4[((IOTA - 66) & 127)]) + ((0.00093808200000000002 * fVec4[((IOTA - 64) & 127)]) + ((0.0028319 * fVec4[((IOTA - 63) & 127)]) + ((0.00071589500000000003 * fVec4[((IOTA - 60) & 127)]) + ((0.0012767 * fVec4[((IOTA - 59) & 127)]) + ((0.0016556800000000001 * fVec4[((IOTA - 58) & 127)]) + ((0.0023854900000000001 * fVec4[((IOTA - 57) & 127)]) + ((0.00071006400000000005 * fVec4[((IOTA - 56) & 127)]) + ((0.0023205399999999998 * fVec4[((IOTA - 54) & 127)]) + ((0.0019624999999999998 * fVec4[((IOTA - 52) & 127)]) + ((0.0022978399999999998 * fVec4[((IOTA - 51) & 127)]) + ((0.00051752200000000008 * fVec4[((IOTA - 48) & 127)]) + ((0.0059472300000000004 * fVec4[((IOTA - 46) & 127)]) + ((0.0056101400000000004 * fVec4[((IOTA - 45) & 127)]) + ((1.16687e-06 * fVec5[((IOTA - 126) & 127)]) + ((8.0474799999999991e-06 * fVec5[((IOTA - 125) & 127)]) + ((1.1716500000000002e-05 * fVec5[((IOTA - 124) & 127)]) + ((1.6095900000000003e-05 * fVec5[((IOTA - 123) & 127)]) + ((1.2353500000000001e-05 * fVec5[((IOTA - 121) & 127)]) + ((5.0538800000000005e-05 * fVec5[((IOTA - 120) & 127)]) + ((6.90663e-05 * fVec5[((IOTA - 119) & 127)]) + ((7.1261200000000008e-05 * fVec5[((IOTA - 110) & 127)]) + ((0.00013404500000000001 * fVec5[((IOTA - 107) & 127)]) + ((0.000144139 * fVec5[((IOTA - 103) & 127)]) + ((0.00074598600000000002 * fVec5[((IOTA - 102) & 127)]) + ((0.00041806100000000001 * fVec5[((IOTA - 101) & 127)]) + ((0.00099729399999999991 * fVec5[((IOTA - 97) & 127)]) + ((0.00072742900000000003 * fVec5[((IOTA - 96) & 127)]) + ((0.00095647000000000006 * fVec5[((IOTA - 94) & 127)]) + ((0.0019078999999999999 * fVec5[((IOTA - 93) & 127)]) + ((0.00037591000000000002 * fVec5[((IOTA - 92) & 127)]) + ((0.00091705400000000015 * fVec5[((IOTA - 91) & 127)]) + ((0.0019979199999999998 * fVec5[((IOTA - 90) & 127)]) + ((0.00084190100000000004 * fVec5[((IOTA - 89) & 127)]) + ((0.00062404300000000002 * fVec5[((IOTA - 85) & 127)]) + ((0.0010226500000000002 * fVec5[((IOTA - 84) & 127)]) + ((0.00016474200000000003 * fVec5[((IOTA - 82) & 127)]) + ((0.00111031 * fVec5[((IOTA - 81) & 127)]) + ((0.0010574600000000001 * fVec5[((IOTA - 80) & 127)]) + ((0.00226954 * fVec5[((IOTA - 62) & 127)]) + ((0.0017599800000000002 * fVec5[((IOTA - 61) & 127)]) + ((0.00071835900000000001 * fVec5[((IOTA - 58) & 127)]) + ((0.0012819700000000001 * fVec5[((IOTA - 57) & 127)]) + ((0.000143156 * fVec5[((IOTA - 55) & 127)]) + ((0.00051545500000000006 * fVec5[((IOTA - 54) & 127)]) + ((0.00011347700000000001 * fVec5[((IOTA - 53) & 127)]) + ((0.00065408100000000004 * fVec5[((IOTA - 52) & 127)]) + ((0.0046855900000000008 * fVec5[((IOTA - 51) & 127)]) + ((0.0086597399999999991 * fVec5[((IOTA - 50) & 127)]) + ((0.0090186299999999997 * fVec5[((IOTA - 49) & 127)]) + ((0.00194699 * fVec5[((IOTA - 48) & 127)]) + ((0.00031685400000000004 * fVec5[((IOTA - 46) & 127)]) + ((0.0069549800000000004 * fVec5[((IOTA - 45) & 127)]) + ((0.011236100000000001 * fVec5[((IOTA - 44) & 127)]) + ((0.0059433200000000002 * fVec5[((IOTA - 43) & 127)]) + ((0.00041302300000000005 * fVec5[((IOTA - 40) & 127)]) + ((0.00281839 * fVec5[((IOTA - 39) & 127)]) + ((0.019649799999999999 * fVec5[((IOTA - 30) & 127)]) + ((0.0053291099999999997 * fVec5[((IOTA - 26) & 127)]) + ((0.0035138299999999999 * fVec5[((IOTA - 25) & 127)]) + ((0.024438399999999999 * fVec5[((IOTA - 22) & 127)]) + ((0.0101949 * fVec5[((IOTA - 21) & 127)]) + ((0.026200899999999999 * fVec5[((IOTA - 20) & 127)]) + ((0.0667629 * fVec5[((IOTA - 19) & 127)]) + ((0.0107382 * fVec5[((IOTA - 18) & 127)]) + ((0.0291912 * fVec5[((IOTA - 17) & 127)]) + ((0.029706100000000003 * fVec5[((IOTA - 16) & 127)]) + ((0.011985200000000001 * fVec5[((IOTA - 15) & 127)]) + ((0.00355895 * fVec5[((IOTA - 10) & 127)]) + ((0.0019467900000000001 * fVec5[((IOTA - 8) & 127)]) + ((0.00139101 * fVec5[((IOTA - 6) & 127)]) + ((0.00016791500000000001 * fVec5[((IOTA - 4) & 127)]) + ((0.00029155500000000004 * fVec5[((IOTA - 2) & 127)]) + ((0.000305641 * fVec5[((IOTA - 68) & 127)]) + ((0.000773294 * fVec5[((IOTA - 67) & 127)]) + ((0.0012639700000000001 * fVec5[((IOTA - 77) & 127)]) + ((0.00089859899999999993 * fVec5[((IOTA - 76) & 127)]) + ((0.00095380500000000006 * fVec5[((IOTA - 72) & 127)]) + ((1.3822700000000001e-06 * fVec6[((IOTA - 126) & 127)]) + ((4.3207799999999997e-06 * fVec6[((IOTA - 125) & 127)]) + ((7.0508400000000002e-07 * fVec6[((IOTA - 123) & 127)]) + ((8.1874899999999997e-07 * fVec6[((IOTA - 122) & 127)]) + ((4.9958900000000007e-05 * fVec6[((IOTA - 121) & 127)]) + ((4.8874300000000007e-05 * fVec6[((IOTA - 120) & 127)]) + ((3.0540600000000004e-05 * fVec6[((IOTA - 119) & 127)]) + ((8.9455700000000012e-05 * fVec6[((IOTA - 116) & 127)]) + ((7.5434700000000005e-05 * fVec6[((IOTA - 115) & 127)]) + ((0.00014591800000000001 * fVec6[((IOTA - 114) & 127)]) + ((0.00032979500000000002 * fVec6[((IOTA - 109) & 127)]) + ((0.00027301799999999998 * fVec6[((IOTA - 108) & 127)]) + ((2.9295999999999999e-06 * fVec6[((IOTA - 106) & 127)]) + ((0.00041821300000000002 * fVec6[((IOTA - 105) & 127)]) + ((0.00016436200000000001 * fVec6[((IOTA - 104) & 127)]) + ((1.0304700000000001e-05 * fVec6[((IOTA - 103) & 127)]) + ((9.9420300000000014e-05 * fVec6[((IOTA - 102) & 127)]) + ((0.000143957 * fVec6[((IOTA - 101) & 127)]) + ((0.00068593000000000007 * fVec6[((IOTA - 97) & 127)]) + ((0.0022403200000000001 * fVec6[((IOTA - 96) & 127)]) + ((0.00054845200000000005 * fVec6[((IOTA - 95) & 127)]) + ((0.0013290999999999999 * fVec6[((IOTA - 90) & 127)]) + ((0.0010531200000000001 * fVec6[((IOTA - 86) & 127)]) + ((0.00043581100000000003 * fVec6[((IOTA - 85) & 127)]) + ((0.00043643700000000002 * fVec6[((IOTA - 84) & 127)]) + ((0.00088380000000000002 * fVec6[((IOTA - 83) & 127)]) + ((0.00047224300000000001 * fVec6[((IOTA - 79) & 127)]) + ((0.00094611000000000001 * fVec6[((IOTA - 78) & 127)]) + ((0.0014756400000000001 * fVec6[((IOTA - 65) & 127)]) + ((0.0014824 * fVec6[((IOTA - 64) & 127)]) + ((0.000313016 * fVec6[((IOTA - 63) & 127)]) + ((0.00046532900000000006 * fVec6[((IOTA - 61) & 127)]) + ((0.0014774499999999999 * fVec6[((IOTA - 57) & 127)]) + ((0.0052267299999999997 * fVec6[((IOTA - 56) & 127)]) + ((0.0049627400000000002 * fVec6[((IOTA - 55) & 127)]) + ((0.00034213000000000001 * fVec6[((IOTA - 54) & 127)]) + ((0.00171871 * fVec6[((IOTA - 52) & 127)]) + ((0.00204601 * fVec6[((IOTA - 51) & 127)]) + ((0.00172897 * fVec6[((IOTA - 44) & 127)]) + ((0.0059491199999999996 * fVec6[((IOTA - 43) & 127)]) + ((0.0069924600000000007 * fVec6[((IOTA - 42) & 127)]) + ((0.0046671199999999994 * fVec6[((IOTA - 38) & 127)]) + ((0.0074278399999999998 * fVec6[((IOTA - 37) & 127)]) + ((0.0038431400000000001 * fVec6[((IOTA - 33) & 127)]) + ((0.001851 * fVec6[((IOTA - 32) & 127)]) + ((0.00023100900000000004 * fVec6[((IOTA - 31) & 127)]) + ((0.0018550299999999999 * fVec6[((IOTA - 30) & 127)]) + ((0.0068345300000000001 * fVec6[((IOTA - 29) & 127)]) + ((0.0065994599999999997 * fVec6[((IOTA - 28) & 127)]) + ((0.0086483799999999989 * fVec6[((IOTA - 26) & 127)]) + ((0.034778900000000001 * fVec6[((IOTA - 25) & 127)]) + ((0.0033660500000000002 * fVec6[((IOTA - 21) & 127)]) + ((0.0166362 * fVec6[((IOTA - 19) & 127)]) + ((0.013249500000000001 * fVec6[((IOTA - 18) & 127)]) + ((0.0149275 * fVec6[((IOTA - 15) & 127)]) + ((0.00153611 * fVec6[((IOTA - 12) & 127)]) + ((0.00022380100000000001 * fVec6[((IOTA - 11) & 127)]) + ((0.0002062 * fVec6[((IOTA - 10) & 127)]) + ((0.00029508100000000004 * fVec6[((IOTA - 9) & 127)]) + ((9.3157600000000004e-05 * fVec6[((IOTA - 7) & 127)]) + ((0.00083150800000000001 * fVec6[((IOTA - 6) & 127)]) + ((0.000139085 * fVec6[((IOTA - 3) & 127)]) + ((0.000100796 * fVec6[((IOTA - 2) & 127)]) + ((5.4869299999999995e-06 * fTemp6) + ((0.00034605900000000002 * fVec6[((IOTA - 68) & 127)]) + ((0.00166238 * fVec6[((IOTA - 67) & 127)]) + ((0.00061167100000000005 * fVec6[((IOTA - 66) & 127)]) + ((0.0029536099999999997 * fVec6[((IOTA - 75) & 127)]) + ((0.0014493400000000001 * fVec6[((IOTA - 74) & 127)]) + ((0.00033464100000000005 * fVec6[((IOTA - 71) & 127)]) + ((0.000284002 * fVec6[((IOTA - 70) & 127)]) + ((1.2067399999999999e-06 * fVec7[((IOTA - 126) & 127)]) + ((1.4484800000000001e-05 * fVec7[((IOTA - 123) & 127)]) + ((2.1146600000000005e-05 * fVec7[((IOTA - 122) & 127)]) + ((3.7560900000000002e-05 * fVec7[((IOTA - 121) & 127)]) + ((5.5921400000000003e-05 * fVec7[((IOTA - 120) & 127)]) + ((2.8070300000000005e-05 * fVec7[((IOTA - 119) & 127)]) + ((3.5723000000000003e-05 * fVec7[((IOTA - 118) & 127)]) + ((6.8163800000000006e-05 * fVec7[((IOTA - 117) & 127)]) + ((2.3925e-06 * fVec7[((IOTA - 116) & 127)]) + ((0.00014829900000000001 * fVec7[((IOTA - 108) & 127)]) + ((0.00037316500000000001 * fVec7[((IOTA - 105) & 127)]) + ((0.00039246300000000001 * fVec7[((IOTA - 104) & 127)]) + ((0.00069076200000000004 * fVec7[((IOTA - 98) & 127)]) + ((0.00059752000000000004 * fVec7[((IOTA - 97) & 127)]) + ((3.8900100000000004e-05 * fVec7[((IOTA - 96) & 127)]) + ((0.00104006 * fVec7[((IOTA - 95) & 127)]) + ((0.0024621700000000001 * fVec7[((IOTA - 94) & 127)]) + ((0.0011040900000000001 * fVec7[((IOTA - 93) & 127)]) + ((0.00025218300000000001 * fVec7[((IOTA - 92) & 127)]) + ((0.000582052 * fVec7[((IOTA - 87) & 127)]) + ((0.00181963 * fVec7[((IOTA - 86) & 127)]) + ((0.00027008400000000003 * fVec7[((IOTA - 83) & 127)]) + ((3.9284900000000001e-05 * fVec7[((IOTA - 82) & 127)]) + ((0.0023190699999999999 * fVec7[((IOTA - 78) & 127)]) + ((0.0031104100000000001 * fVec7[((IOTA - 77) & 127)]) + ((0.0018716399999999999 * fVec7[((IOTA - 76) & 127)]) + ((0.00173413 * fVec7[((IOTA - 75) & 127)]) + ((0.00046513499999999998 * fVec7[((IOTA - 74) & 127)]) + ((0.00070995800000000001 * fVec7[((IOTA - 73) & 127)]) + ((0.00136597 * fVec7[((IOTA - 72) & 127)]) + ((0.0005198920000000001 * fVec7[((IOTA - 66) & 127)]) + ((0.00252236 * fVec7[((IOTA - 65) & 127)]) + ((0.00148653 * fVec7[((IOTA - 64) & 127)]) + ((0.0031196700000000002 * fVec7[((IOTA - 54) & 127)]) + ((0.0014963299999999999 * fVec7[((IOTA - 53) & 127)]) + ((0.0021004299999999999 * fVec7[((IOTA - 52) & 127)]) + ((0.0077831999999999997 * fVec7[((IOTA - 51) & 127)]) + ((0.0044508500000000001 * fVec7[((IOTA - 50) & 127)]) + ((0.0021174599999999998 * fVec7[((IOTA - 49) & 127)]) + ((0.0040522299999999995 * fVec7[((IOTA - 48) & 127)]) + ((0.0064639199999999997 * fVec7[((IOTA - 47) & 127)]) + ((0.0059821600000000003 * fVec7[((IOTA - 46) & 127)]) + ((0.0034409700000000002 * fVec7[((IOTA - 45) & 127)]) + ((0.0067079800000000005 * fVec7[((IOTA - 44) & 127)]) + ((0.0079398100000000003 * fVec7[((IOTA - 43) & 127)]) + ((0.0101911 * fVec7[((IOTA - 42) & 127)]) + ((0.0084519999999999994 * fVec7[((IOTA - 41) & 127)]) + ((0.0027287100000000001 * fVec7[((IOTA - 40) & 127)]) + ((0.0016985100000000001 * fVec7[((IOTA - 35) & 127)]) + ((0.057691300000000001 * fVec7[((IOTA - 23) & 127)]) + ((0.016169199999999998 * fVec7[((IOTA - 22) & 127)]) + ((0.044694299999999999 * fVec7[((IOTA - 20) & 127)]) + ((0.073524500000000007 * fVec7[((IOTA - 19) & 127)]) + ((0.046224100000000004 * fVec7[((IOTA - 18) & 127)]) + ((0.039818899999999997 * fVec7[((IOTA - 16) & 127)]) + ((0.030653800000000002 * fVec7[((IOTA - 15) & 127)]) + ((0.0028312599999999999 * fVec7[((IOTA - 10) & 127)]) + ((0.00023471600000000002 * fVec7[((IOTA - 8) & 127)]) + ((0.0016646499999999999 * fVec7[((IOTA - 6) & 127)]) + ((0.00018944099999999999 * fVec7[((IOTA - 4) & 127)]) + ((0.00041035500000000005 * fVec7[((IOTA - 2) & 127)]) + ((0.00049729599999999994 * fVec7[((IOTA - 61) & 127)]) + ((0.0017160000000000001 * fVec7[((IOTA - 60) & 127)]) + ((0.000571158 * fVec7[((IOTA - 59) & 127)]) + ((1.06705e-06 * fVec8[((IOTA - 126) & 127)]) + ((3.8319600000000005e-05 * fVec8[((IOTA - 122) & 127)]) + ((5.611290000000001e-05 * fVec8[((IOTA - 121) & 127)]) + ((4.3469500000000001e-05 * fVec8[((IOTA - 120) & 127)]) + ((4.8748200000000002e-05 * fVec8[((IOTA - 117) & 127)]) + ((0.000144938 * fVec8[((IOTA - 110) & 127)]) + ((7.2644700000000013e-05 * fVec8[((IOTA - 104) & 127)]) + ((1.0278999999999999e-06 * fVec8[((IOTA - 103) & 127)]) + ((0.0011606799999999999 * fVec8[((IOTA - 96) & 127)]) + ((0.0031629900000000001 * fVec8[((IOTA - 95) & 127)]) + ((0.00078389600000000007 * fVec8[((IOTA - 94) & 127)]) + ((3.61728e-05 * fVec8[((IOTA - 91) & 127)]) + ((0.0022532999999999997 * fVec8[((IOTA - 86) & 127)]) + ((0.00053547700000000002 * fVec8[((IOTA - 77) & 127)]) + ((0.00078204200000000005 * fVec8[((IOTA - 79) & 127)]) + ((0.00089492 * fVec8[((IOTA - 76) & 127)]) + ((0.00098582100000000001 * fVec8[((IOTA - 75) & 127)]) + ((0.0010638000000000002 * fVec8[((IOTA - 74) & 127)]) + ((0.0020713300000000001 * fVec8[((IOTA - 72) & 127)]) + ((0.00287405 * fVec8[((IOTA - 71) & 127)]) + ((0.0018535400000000001 * fVec8[((IOTA - 70) & 127)]) + ((0.0024114399999999999 * fVec8[((IOTA - 69) & 127)]) + ((0.0054627 * fVec8[((IOTA - 68) & 127)]) + ((0.0053478500000000003 * fVec8[((IOTA - 67) & 127)]) + ((0.0036506200000000003 * fVec8[((IOTA - 66) & 127)]) + ((0.0039108500000000004 * fVec8[((IOTA - 65) & 127)]) + ((0.00124406 * fVec8[((IOTA - 64) & 127)]) + ((0.00066612700000000008 * fVec8[((IOTA - 53) & 127)]) + ((0.00021471700000000001 * fVec8[((IOTA - 42) & 127)]) + ((0.0083305600000000007 * fVec8[((IOTA - 38) & 127)]) + ((0.0016041499999999999 * fVec8[((IOTA - 34) & 127)]) + ((0.018119700000000002 * fVec8[((IOTA - 33) & 127)]) + ((0.036438700000000004 * fVec8[((IOTA - 30) & 127)]) + ((0.027385400000000001 * fVec8[((IOTA - 29) & 127)]) + ((0.0048108300000000003 * fVec8[((IOTA - 28) & 127)]) + ((0.040978300000000002 * fVec8[((IOTA - 27) & 127)]) + ((0.049985600000000005 * fVec8[((IOTA - 26) & 127)]) + ((0.038770699999999998 * fVec8[((IOTA - 24) & 127)]) + ((0.10758200000000001 * fVec8[((IOTA - 23) & 127)]) + ((0.021392099999999997 * fVec8[((IOTA - 22) & 127)]) + ((0.041771900000000008 * fVec8[((IOTA - 20) & 127)]) + ((0.055177400000000001 * fVec8[((IOTA - 19) & 127)]) + ((0.0108086 * fVec8[((IOTA - 18) & 127)]) + ((0.0026607500000000004 * fVec8[((IOTA - 10) & 127)]) + ((0.00066903899999999996 * fVec8[((IOTA - 8) & 127)]) + ((0.0013556799999999999 * fVec8[((IOTA - 6) & 127)]) + ((0.00012807300000000001 * fVec8[((IOTA - 4) & 127)]) + ((0.000378556 * fVec8[((IOTA - 2) & 127)]) + ((4.9495899999999995e-07 * fVec9[((IOTA - 126) & 127)]) + ((2.773e-06 * fVec9[((IOTA - 125) & 127)]) + ((5.3135e-06 * fVec9[((IOTA - 121) & 127)]) + ((2.8457499999999998e-06 * fVec9[((IOTA - 117) & 127)]) + ((2.4558300000000005e-05 * fVec9[((IOTA - 116) & 127)]) + ((5.2591200000000006e-05 * fVec9[((IOTA - 112) & 127)]) + ((0.00024796200000000001 * fVec9[((IOTA - 111) & 127)]) + ((0.00014221200000000001 * fVec9[((IOTA - 110) & 127)]) + ((0.00010309 * fVec9[((IOTA - 108) & 127)]) + ((0.00018337600000000001 * fVec9[((IOTA - 107) & 127)]) + ((0.00035608600000000003 * fVec9[((IOTA - 106) & 127)]) + ((0.00034403800000000002 * fVec9[((IOTA - 105) & 127)]) + ((0.00025383300000000002 * fVec9[((IOTA - 104) & 127)]) + ((0.00028535700000000003 * fVec9[((IOTA - 103) & 127)]) + ((0.00070562000000000001 * fVec9[((IOTA - 102) & 127)]) + ((0.0005151 * fVec9[((IOTA - 101) & 127)]) + ((0.00032077100000000002 * fVec9[((IOTA - 100) & 127)]) + ((9.0654800000000018e-05 * fVec9[((IOTA - 99) & 127)]) + ((0.00071143700000000009 * fVec9[((IOTA - 98) & 127)]) + ((0.0014366699999999999 * fVec9[((IOTA - 97) & 127)]) + ((0.00124614 * fVec9[((IOTA - 94) & 127)]) + ((0.0022713 * fVec9[((IOTA - 93) & 127)]) + ((0.00127749 * fVec9[((IOTA - 86) & 127)]) + ((6.2936500000000003e-05 * fVec9[((IOTA - 77) & 127)]) + ((2.0687900000000002e-05 * fVec9[((IOTA - 76) & 127)]) + ((0.00074920100000000001 * fVec9[((IOTA - 72) & 127)]) + ((0.00108661 * fVec9[((IOTA - 71) & 127)]) + ((0.00066226100000000003 * fVec9[((IOTA - 70) & 127)]) + ((0.00221192 * fVec9[((IOTA - 68) & 127)]) + ((0.0036181899999999999 * fVec9[((IOTA - 67) & 127)]) + ((3.8066800000000006e-05 * fVec9[((IOTA - 66) & 127)]) + ((2.7286800000000004e-05 * fVec9[((IOTA - 64) & 127)]) + ((0.0014662800000000001 * fVec9[((IOTA - 63) & 127)]) + ((0.0025716599999999999 * fVec9[((IOTA - 62) & 127)]) + ((0.00040080500000000001 * fVec9[((IOTA - 61) & 127)]) + ((0.0022166500000000001 * fVec9[((IOTA - 59) & 127)]) + ((0.0027539400000000003 * fVec9[((IOTA - 58) & 127)]) + ((0.000547636 * fVec9[((IOTA - 57) & 127)]) + ((0.0034324300000000002 * fVec9[((IOTA - 56) & 127)]) + ((0.0028814800000000001 * fVec9[((IOTA - 55) & 127)]) + ((0.00020467599999999999 * fVec9[((IOTA - 54) & 127)]) + ((0.0025276200000000004 * fVec9[((IOTA - 51) & 127)]) + ((0.0045955500000000003 * fVec9[((IOTA - 50) & 127)]) + ((0.0021549399999999997 * fVec9[((IOTA - 44) & 127)]) + ((0.0013761300000000001 * fVec9[((IOTA - 41) & 127)]) + ((0.002183 * fVec9[((IOTA - 38) & 127)]) + ((0.0030387000000000001 * fVec9[((IOTA - 36) & 127)]) + ((0.021556799999999997 * fVec9[((IOTA - 35) & 127)]) + ((0.023527200000000002 * fVec9[((IOTA - 32) & 127)]) + ((0.0021948500000000004 * fVec9[((IOTA - 31) & 127)]) + ((0.00051807200000000006 * fVec9[((IOTA - 29) & 127)]) + ((0.024944000000000001 * fVec9[((IOTA - 26) & 127)]) + ((0.0035849099999999997 * fVec9[((IOTA - 25) & 127)]) + ((0.011300600000000001 * fVec9[((IOTA - 19) & 127)]) + ((0.0094331200000000014 * fVec9[((IOTA - 18) & 127)]) + ((0.0071840999999999997 * fVec9[((IOTA - 15) & 127)]) + ((0.00027813700000000002 * fVec9[((IOTA - 12) & 127)]) + ((0.00027818999999999999 * fVec9[((IOTA - 11) & 127)]) + ((0.00033955200000000002 * fVec9[((IOTA - 10) & 127)]) + ((0.00022609 * fVec9[((IOTA - 9) & 127)]) + ((0.00016021500000000001 * fVec9[((IOTA - 7) & 127)]) + ((0.000240886 * fVec9[((IOTA - 6) & 127)]) + ((2.4972599999999999e-05 * fVec9[((IOTA - 3) & 127)]) + ((5.2352700000000004e-05 * fVec9[((IOTA - 2) & 127)]) + ((4.2462999999999995e-06 * fTemp9) + ((0.00070097300000000003 * fVec9[((IOTA - 85) & 127)]) + ((8.9630500000000016e-08 * fVec10[((IOTA - 126) & 127)]) + ((4.86084e-05 * fVec10[((IOTA - 119) & 127)]) + ((3.0215200000000005e-05 * fVec10[((IOTA - 118) & 127)]) + ((0.00010084700000000001 * fVec10[((IOTA - 110) & 127)]) + ((0.00034166200000000001 * fVec10[((IOTA - 109) & 127)]) + ((0.000204718 * fVec10[((IOTA - 108) & 127)]) + ((0.00033797299999999998 * fVec10[((IOTA - 107) & 127)]) + ((0.00045785700000000004 * fVec10[((IOTA - 106) & 127)]) + ((0.00013590400000000001 * fVec10[((IOTA - 105) & 127)]) + ((6.0929900000000008e-05 * fVec10[((IOTA - 104) & 127)]) + ((0.000208667 * fVec10[((IOTA - 102) & 127)]) + ((0.00030785900000000001 * fVec10[((IOTA - 101) & 127)]) + ((0.00026147399999999998 * fVec10[((IOTA - 100) & 127)]) + ((0.00048677700000000003 * fVec10[((IOTA - 99) & 127)]) + ((0.0012107800000000001 * fVec10[((IOTA - 98) & 127)]) + ((0.00076490500000000008 * fVec10[((IOTA - 97) & 127)]) + ((0.00058266999999999998 * fVec10[((IOTA - 94) & 127)]) + ((0.00082486899999999999 * fVec10[((IOTA - 93) & 127)]) + ((0.0011506799999999998 * fVec10[((IOTA - 92) & 127)]) + ((3.5632800000000002e-05 * fVec10[((IOTA - 91) & 127)]) + ((3.64663e-05 * fVec10[((IOTA - 90) & 127)]) + ((0.00056137899999999998 * fVec10[((IOTA - 88) & 127)]) + ((0.00015598000000000001 * fVec10[((IOTA - 87) & 127)]) + ((0.00076870700000000009 * fVec10[((IOTA - 84) & 127)]) + ((0.0014322200000000001 * fVec10[((IOTA - 83) & 127)]) + ((0.00046067700000000005 * fVec10[((IOTA - 82) & 127)]) + ((0.00064690400000000001 * fVec10[((IOTA - 79) & 127)]) + ((0.00271718 * fVec10[((IOTA - 75) & 127)]) + ((6.2586200000000001e-05 * fVec10[((IOTA - 72) & 127)]) + ((0.00117567 * fVec10[((IOTA - 71) & 127)]) + ((0.0012521400000000001 * fVec10[((IOTA - 70) & 127)]) + ((0.00055114699999999999 * fVec10[((IOTA - 66) & 127)]) + ((0.00110439 * fVec10[((IOTA - 65) & 127)]) + ((0.0016155 * fVec10[((IOTA - 64) & 127)]) + ((0.0021511500000000001 * fVec10[((IOTA - 63) & 127)]) + ((0.0019438999999999999 * fVec10[((IOTA - 60) & 127)]) + ((0.00122438 * fVec10[((IOTA - 52) & 127)]) + ((0.0070393900000000004 * fVec10[((IOTA - 39) & 127)]) + ((0.0048936500000000003 * fVec10[((IOTA - 37) & 127)]) + ((0.0095701499999999995 * fVec10[((IOTA - 36) & 127)]) + ((0.015800600000000001 * fVec10[((IOTA - 33) & 127)]) + ((0.011886499999999999 * fVec10[((IOTA - 32) & 127)]) + ((0.0058739299999999994 * fVec10[((IOTA - 30) & 127)]) + ((0.024750999999999999 * fVec10[((IOTA - 29) & 127)]) + ((0.0086730599999999998 * fVec10[((IOTA - 28) & 127)]) + ((0.023463500000000002 * fVec10[((IOTA - 26) & 127)]) + ((0.052758300000000001 * fVec10[((IOTA - 25) & 127)]) + ((0.0124978 * fVec10[((IOTA - 24) & 127)]) + ((0.035996800000000002 * fVec10[((IOTA - 22) & 127)]) + ((0.013752100000000001 * fVec10[((IOTA - 21) & 127)]) + ((0.0018844000000000001 * fVec10[((IOTA - 20) & 127)]) + ((0.0448946 * fVec10[((IOTA - 19) & 127)]) + ((0.00033159299999999998 * fVec10[((IOTA - 18) & 127)]) + ((0.00255288 * fVec10[((IOTA - 10) & 127)]) + ((0.00094661300000000001 * fVec10[((IOTA - 8) & 127)]) + ((0.0010133200000000001 * fVec10[((IOTA - 6) & 127)]) + ((0.00025746299999999998 * fVec10[((IOTA - 2) & 127)]) + ((3.43292e-08 * fVec11[((IOTA - 126) & 127)]) + ((3.3588899999999999e-06 * fVec11[((IOTA - 125) & 127)]) + ((3.9804799999999997e-06 * fVec11[((IOTA - 124) & 127)]) + ((2.0105900000000003e-05 * fVec11[((IOTA - 123) & 127)]) + ((7.7608600000000008e-05 * fVec11[((IOTA - 119) & 127)]) + ((5.0789799999999999e-05 * fVec11[((IOTA - 116) & 127)]) + ((0.00020361699999999999 * fVec11[((IOTA - 115) & 127)]) + ((0.00030080800000000001 * fVec11[((IOTA - 114) & 127)]) + ((3.2623300000000003e-05 * fVec11[((IOTA - 113) & 127)]) + ((0.00026027500000000002 * fVec11[((IOTA - 110) & 127)]) + ((0.00020187200000000002 * fVec11[((IOTA - 109) & 127)]) + ((0.00040571999999999998 * fVec11[((IOTA - 108) & 127)]) + ((0.00053009599999999997 * fVec11[((IOTA - 107) & 127)]) + ((0.00050674400000000005 * fVec11[((IOTA - 106) & 127)]) + ((0.00049718700000000006 * fVec11[((IOTA - 105) & 127)]) + ((0.0011330000000000001 * fVec11[((IOTA - 104) & 127)]) + ((0.0016271899999999999 * fVec11[((IOTA - 103) & 127)]) + ((0.00069229100000000004 * fVec11[((IOTA - 102) & 127)]) + ((0.00046662400000000006 * fVec11[((IOTA - 101) & 127)]) + ((0.00069381500000000008 * fVec11[((IOTA - 100) & 127)]) + ((0.00038071900000000001 * fVec11[((IOTA - 99) & 127)]) + ((0.00084254300000000007 * fVec11[((IOTA - 98) & 127)]) + ((0.00156339 * fVec11[((IOTA - 97) & 127)]) + ((0.0034697200000000004 * fVec11[((IOTA - 96) & 127)]) + ((0.0030116200000000004 * fVec11[((IOTA - 95) & 127)]) + ((0.00075465500000000002 * fVec11[((IOTA - 94) & 127)]) + ((0.00068181600000000002 * fVec11[((IOTA - 93) & 127)]) + ((0.00071934100000000008 * fVec11[((IOTA - 92) & 127)]) + ((0.00040184499999999996 * fVec11[((IOTA - 91) & 127)]) + ((0.00055143000000000011 * fVec11[((IOTA - 90) & 127)]) + ((0.0016723300000000001 * fVec11[((IOTA - 89) & 127)]) + ((0.0017063 * fVec11[((IOTA - 88) & 127)]) + ((0.0013395900000000001 * fVec11[((IOTA - 87) & 127)]) + ((0.0034494400000000002 * fVec11[((IOTA - 85) & 127)]) + ((0.0025590399999999998 * fVec11[((IOTA - 84) & 127)]) + ((0.0014532900000000001 * fVec11[((IOTA - 83) & 127)]) + ((0.00127111 * fVec11[((IOTA - 78) & 127)]) + ((0.0011545000000000001 * fVec11[((IOTA - 77) & 127)]) + ((0.00061171300000000006 * fVec11[((IOTA - 76) & 127)]) + ((0.00020694100000000001 * fVec11[((IOTA - 75) & 127)]) + ((0.00064708400000000003 * fVec11[((IOTA - 74) & 127)]) + ((0.0010632999999999999 * fVec11[((IOTA - 73) & 127)]) + ((0.000609699 * fVec11[((IOTA - 72) & 127)]) + ((0.00058977500000000006 * fVec11[((IOTA - 71) & 127)]) + ((0.0005591420000000001 * fVec11[((IOTA - 67) & 127)]) + ((8.8419900000000004e-05 * fVec11[((IOTA - 65) & 127)]) + ((0.00150508 * fVec11[((IOTA - 64) & 127)]) + ((0.0014054500000000001 * fVec11[((IOTA - 60) & 127)]) + ((0.00215198 * fVec11[((IOTA - 54) & 127)]) + ((0.000219724 * fVec11[((IOTA - 52) & 127)]) + ((0.0017431900000000001 * fVec11[((IOTA - 51) & 127)]) + ((0.000292148 * fVec11[((IOTA - 49) & 127)]) + ((0.00356967 * fVec11[((IOTA - 48) & 127)]) + ((0.00055458199999999997 * fVec11[((IOTA - 47) & 127)]) + ((0.0018462400000000001 * fVec11[((IOTA - 45) & 127)]) + ((0.0038023500000000003 * fVec11[((IOTA - 42) & 127)]) + ((0.0029068700000000002 * fVec11[((IOTA - 40) & 127)]) + ((0.0047945900000000005 * fVec11[((IOTA - 39) & 127)]) + ((0.0038672100000000003 * fVec11[((IOTA - 38) & 127)]) + ((4.1971900000000004e-05 * fVec11[((IOTA - 36) & 127)]) + ((0.0060181399999999999 * fVec11[((IOTA - 35) & 127)]) + ((0.0049045500000000006 * fVec11[((IOTA - 33) & 127)]) + ((0.0091428700000000009 * fVec11[((IOTA - 32) & 127)]) + ((0.0099856200000000006 * fVec11[((IOTA - 29) & 127)]) + ((0.010922899999999999 * fVec11[((IOTA - 28) & 127)]) + ((0.0013328999999999999 * fVec11[((IOTA - 24) & 127)]) + ((0.0016006100000000001 * fVec11[((IOTA - 23) & 127)]) + ((0.0099153599999999998 * fVec11[((IOTA - 22) & 127)]) + ((0.013603000000000001 * fVec11[((IOTA - 21) & 127)]) + ((0.016723499999999999 * fVec11[((IOTA - 20) & 127)]) + ((0.045127499999999994 * fVec11[((IOTA - 17) & 127)]) + ((0.0059659600000000002 * fVec11[((IOTA - 14) & 127)]) + ((0.0027371000000000001 * fVec11[((IOTA - 13) & 127)]) + ((4.6184399999999998e-05 * fVec11[((IOTA - 10) & 127)]) + ((0.0025209700000000004 * fVec11[((IOTA - 8) & 127)]) + ((0.00036855699999999999 * fVec11[((IOTA - 6) & 127)]) + ((0.00070276500000000005 * fVec11[((IOTA - 5) & 127)]) + ((0.00090358699999999997 * fVec11[((IOTA - 4) & 127)]) + ((0.000231406 * fVec11[((IOTA - 2) & 127)]) + ((4.4178200000000003e-05 * fVec11[((IOTA - 1) & 127)]) + ((1.57811e-05 * fTemp11) + ((2.5137800000000002e-07 * fVec12[((IOTA - 126) & 127)]) + ((6.1820100000000001e-06 * fVec12[((IOTA - 125) & 127)]) + ((3.82797e-06 * fVec12[((IOTA - 124) & 127)]) + ((2.1185900000000001e-06 * fVec12[((IOTA - 123) & 127)]) + ((2.7248300000000001e-05 * fVec12[((IOTA - 121) & 127)]) + ((3.8722400000000007e-05 * fVec12[((IOTA - 120) & 127)]) + ((8.2140799999999984e-06 * fVec12[((IOTA - 119) & 127)]) + ((3.8470500000000004e-05 * fVec12[((IOTA - 117) & 127)]) + ((9.096330000000001e-05 * fVec12[((IOTA - 116) & 127)]) + ((8.7317000000000004e-05 * fVec12[((IOTA - 114) & 127)]) + ((0.000227166 * fVec12[((IOTA - 113) & 127)]) + ((8.3273200000000014e-05 * fVec12[((IOTA - 112) & 127)]) + ((8.2866000000000002e-05 * fVec12[((IOTA - 111) & 127)]) + ((0.00014514899999999999 * fVec12[((IOTA - 110) & 127)]) + ((0.00010655300000000001 * fVec12[((IOTA - 108) & 127)]) + ((0.00020428199999999999 * fVec12[((IOTA - 107) & 127)]) + ((5.2586900000000003e-05 * fVec12[((IOTA - 106) & 127)]) + ((0.00036701000000000003 * fVec12[((IOTA - 105) & 127)]) + ((0.00050770799999999994 * fVec12[((IOTA - 104) & 127)]) + ((0.00025426099999999998 * fVec12[((IOTA - 101) & 127)]) + ((0.00018379600000000001 * fVec12[((IOTA - 98) & 127)]) + ((0.00035138200000000002 * fVec12[((IOTA - 97) & 127)]) + ((7.6149300000000013e-05 * fVec12[((IOTA - 95) & 127)]) + ((0.0015575400000000001 * fVec12[((IOTA - 94) & 127)]) + ((0.00063264199999999999 * fVec12[((IOTA - 93) & 127)]) + ((0.00014839199999999998 * fVec12[((IOTA - 92) & 127)]) + ((0.0026214800000000003 * fVec11[((IOTA - 86) & 127)]) + ((0.00086251900000000007 * fVec12[((IOTA - 87) & 127)]) + ((0.0019024199999999999 * fVec12[((IOTA - 86) & 127)]) + ((0.00129144 * fVec12[((IOTA - 83) & 127)]) + ((0.00047882000000000003 * fVec12[((IOTA - 78) & 127)]) + ((0.0013118799999999999 * fVec12[((IOTA - 75) & 127)]) + ((0.0011614100000000001 * fVec12[((IOTA - 74) & 127)]) + ((0.0014712700000000002 * fVec12[((IOTA - 68) & 127)]) + ((0.0026238199999999998 * fVec12[((IOTA - 67) & 127)]) + ((8.7116700000000006e-05 * fVec12[((IOTA - 66) & 127)]) + ((0.0020513699999999998 * fVec12[((IOTA - 62) & 127)]) + ((0.00160801 * fVec12[((IOTA - 61) & 127)]) + ((0.00147938 * fVec12[((IOTA - 59) & 127)]) + ((0.00013115699999999999 * fVec12[((IOTA - 58) & 127)]) + ((0.00050519600000000007 * fVec12[((IOTA - 57) & 127)]) + ((0.0016339300000000002 * fVec12[((IOTA - 56) & 127)]) + ((0.0011073599999999999 * fVec12[((IOTA - 52) & 127)]) + ((0.0016051100000000001 * fVec12[((IOTA - 50) & 127)]) + ((0.0079808199999999996 * fVec12[((IOTA - 49) & 127)]) + ((0.00196889 * fVec12[((IOTA - 48) & 127)]) + ((9.226730000000001e-05 * fVec12[((IOTA - 40) & 127)]) + ((0.0053560100000000005 * fVec12[((IOTA - 39) & 127)]) + ((0.0053043999999999999 * fVec12[((IOTA - 38) & 127)]) + ((0.00291413 * fVec12[((IOTA - 37) & 127)]) + ((0.010230900000000001 * fVec12[((IOTA - 36) & 127)]) + ((0.0073240200000000005 * fVec12[((IOTA - 35) & 127)]) + ((0.0073238899999999996 * fVec12[((IOTA - 31) & 127)]) + ((0.0105234 * fVec12[((IOTA - 30) & 127)]) + ((0.0034125200000000005 * fVec12[((IOTA - 26) & 127)]) + ((0.0069197900000000003 * fVec12[((IOTA - 25) & 127)]) + ((0.031673199999999999 * fVec12[((IOTA - 18) & 127)]) + ((0.0274497 * fVec12[((IOTA - 17) & 127)]) + ((0.0030908899999999998 * fVec12[((IOTA - 16) & 127)]) + ((0.0103427 * fVec12[((IOTA - 15) & 127)]) + ((0.0120915 * fVec12[((IOTA - 13) & 127)]) + ((0.0038904299999999998 * fVec12[((IOTA - 10) & 127)]) + ((0.0024724199999999999 * fVec12[((IOTA - 8) & 127)]) + ((0.0012886100000000001 * fVec12[((IOTA - 6) & 127)]) + ((0.00084856599999999993 * fVec12[((IOTA - 4) & 127)]) + ((0.00020222799999999999 * fVec12[((IOTA - 2) & 127)]) + ((2.0016700000000001e-05 * fVec12[((IOTA - 1) & 127)]) + ((1.4622100000000002e-05 * fTemp12) + ((0.0044432300000000003 * fVec12[((IOTA - 45) & 127)]) + ((0.000208879 * fVec12[((IOTA - 44) & 127)]) + ((2.4533100000000001e-06 * fVec13[((IOTA - 126) & 127)]) + ((1.70273e-06 * fVec13[((IOTA - 125) & 127)]) + ((8.0341699999999997e-06 * fVec13[((IOTA - 123) & 127)]) + ((3.8827600000000008e-05 * fVec13[((IOTA - 122) & 127)]) + ((0.000101833 * fVec13[((IOTA - 121) & 127)]) + ((0.000105639 * fVec13[((IOTA - 120) & 127)]) + ((3.9296600000000006e-05 * fVec13[((IOTA - 119) & 127)]) + ((0.0013145500000000001 * fVec12[((IOTA - 42) & 127)]) + ((3.85491e-05 * fVec13[((IOTA - 117) & 127)]) + ((0.00018456300000000003 * fVec13[((IOTA - 116) & 127)]) + ((0.000184012 * fVec13[((IOTA - 115) & 127)]) + ((0.0019589099999999999 * fVec13[((IOTA - 96) & 127)]) + ((0.0031713800000000001 * fVec13[((IOTA - 95) & 127)]) + ((0.00068253400000000005 * fVec13[((IOTA - 94) & 127)]) + ((0.00056285600000000003 * fVec13[((IOTA - 91) & 127)]) + ((0.0014036900000000002 * fVec13[((IOTA - 90) & 127)]) + ((0.00337025 * fVec13[((IOTA - 87) & 127)]) + ((0.0052786200000000004 * fVec13[((IOTA - 86) & 127)]) + ((0.0015441700000000001 * fVec13[((IOTA - 85) & 127)]) + ((0.00036768800000000002 * fVec13[((IOTA - 84) & 127)]) + ((0.00069545300000000007 * fVec13[((IOTA - 83) & 127)]) + ((0.0010311999999999999 * fVec13[((IOTA - 65) & 127)]) + ((0.00113331 * fVec13[((IOTA - 64) & 127)]) + ((0.0014698599999999999 * fVec13[((IOTA - 63) & 127)]) + ((0.00070883900000000006 * fVec13[((IOTA - 62) & 127)]) + ((0.0020663499999999998 * fVec13[((IOTA - 57) & 127)]) + ((0.00288332 * fVec13[((IOTA - 56) & 127)]) + ((0.0008817050000000001 * fVec13[((IOTA - 55) & 127)]) + ((0.0035919900000000002 * fVec13[((IOTA - 54) & 127)]) + ((0.0016634199999999999 * fVec13[((IOTA - 53) & 127)]) + ((0.0012247 * fVec13[((IOTA - 52) & 127)]) + ((0.00117636 * fVec13[((IOTA - 51) & 127)]) + ((0.0053477200000000003 * fVec13[((IOTA - 49) & 127)]) + ((0.00571347 * fVec13[((IOTA - 48) & 127)]) + ((0.0068109299999999998 * fVec13[((IOTA - 45) & 127)]) + ((0.00503769 * fVec13[((IOTA - 44) & 127)]) + ((0.0033690899999999999 * fVec13[((IOTA - 43) & 127)]) + ((0.0081425600000000001 * fVec13[((IOTA - 42) & 127)]) + ((0.0048383499999999999 * fVec13[((IOTA - 39) & 127)]) + ((1.73416e-05 * fVec13[((IOTA - 38) & 127)]) + ((0.0011593500000000002 * fVec13[((IOTA - 37) & 127)]) + ((0.00341282 * fVec13[((IOTA - 36) & 127)]) + ((0.0053672899999999994 * fVec13[((IOTA - 34) & 127)]) + ((0.0060068300000000003 * fVec13[((IOTA - 33) & 127)]) + ((0.036282299999999996 * fVec13[((IOTA - 30) & 127)]) + ((0.0096774400000000007 * fVec13[((IOTA - 29) & 127)]) + ((0.03066 * fVec13[((IOTA - 26) & 127)]) + ((0.0019489700000000002 * fVec13[((IOTA - 23) & 127)]) + ((9.4065400000000002e-05 * fVec13[((IOTA - 22) & 127)]) + ((0.000702438 * fVec13[((IOTA - 20) & 127)]) + ((0.0174746 * fVec13[((IOTA - 18) & 127)]) + ((0.021190899999999999 * fVec13[((IOTA - 17) & 127)]) + ((0.0025345699999999999 * fVec13[((IOTA - 16) & 127)]) + ((0.0025992000000000003 * fVec13[((IOTA - 15) & 127)]) + ((0.0061892400000000004 * fVec13[((IOTA - 13) & 127)]) + ((0.0020100199999999999 * fVec13[((IOTA - 10) & 127)]) + ((0.00148817 * fVec13[((IOTA - 8) & 127)]) + ((0.00053443399999999997 * fVec13[((IOTA - 6) & 127)]) + ((0.00069470999999999997 * fVec13[((IOTA - 4) & 127)]) + ((0.00013874000000000002 * fVec13[((IOTA - 2) & 127)]) + ((2.49699e-05 * fVec13[((IOTA - 1) & 127)]) + ((9.9362800000000004e-06 * fTemp13) + ((2.4082099999999999e-06 * fVec14[((IOTA - 126) & 127)]) + ((8.464169999999999e-06 * fVec14[((IOTA - 125) & 127)]) + ((8.8836499999999992e-06 * fVec14[((IOTA - 124) & 127)]) + ((8.7967399999999994e-06 * fVec14[((IOTA - 123) & 127)]) + ((2.4375700000000001e-05 * fVec14[((IOTA - 122) & 127)]) + ((8.0066800000000004e-05 * fVec14[((IOTA - 121) & 127)]) + ((9.9426100000000014e-05 * fVec14[((IOTA - 120) & 127)]) + ((9.0816700000000014e-05 * fVec14[((IOTA - 119) & 127)]) + ((5.80835e-05 * fVec14[((IOTA - 118) & 127)]) + ((7.7452699999999998e-05 * fVec14[((IOTA - 117) & 127)]) + ((9.5024799999999997e-07 * fVec14[((IOTA - 116) & 127)]) + ((5.1149400000000002e-05 * fVec14[((IOTA - 98) & 127)]) + ((0.00032476299999999999 * fVec14[((IOTA - 97) & 127)]) + ((0.0012872900000000002 * fVec14[((IOTA - 94) & 127)]) + ((0.0022912900000000001 * fVec14[((IOTA - 93) & 127)]) + ((0.00119739 * fVec14[((IOTA - 92) & 127)]) + ((0.0019518999999999999 * fVec14[((IOTA - 90) & 127)]) + ((0.0043689900000000005 * fVec14[((IOTA - 89) & 127)]) + ((0.00375801 * fVec14[((IOTA - 88) & 127)]) + ((0.0016994499999999999 * fVec14[((IOTA - 87) & 127)]) + ((0.0032713800000000004 * fVec14[((IOTA - 86) & 127)]) + ((0.0036832600000000003 * fVec14[((IOTA - 85) & 127)]) + ((0.00089328000000000009 * fVec14[((IOTA - 84) & 127)]) + ((0.00072158200000000002 * fVec14[((IOTA - 83) & 127)]) + ((0.00038337700000000001 * fVec14[((IOTA - 80) & 127)]) + ((0.0016079900000000001 * fVec14[((IOTA - 79) & 127)]) + ((0.0020680200000000003 * fVec14[((IOTA - 78) & 127)]) + ((0.00028545500000000005 * fVec14[((IOTA - 77) & 127)]) + ((0.00025900400000000002 * fVec14[((IOTA - 75) & 127)]) + ((3.3718100000000005e-05 * fVec14[((IOTA - 63) & 127)]) + ((0.0016691100000000001 * fVec14[((IOTA - 62) & 127)]) + ((0.00089519800000000015 * fVec14[((IOTA - 60) & 127)]) + ((0.00079125400000000002 * fVec14[((IOTA - 59) & 127)]) + ((0.00099548200000000001 * fVec14[((IOTA - 58) & 127)]) + ((0.0024358800000000001 * fVec14[((IOTA - 54) & 127)]) + ((0.0056765999999999995 * fVec14[((IOTA - 53) & 127)]) + ((0.0027909200000000001 * fVec14[((IOTA - 52) & 127)]) + ((0.00077908600000000012 * fVec14[((IOTA - 51) & 127)]) + ((0.0016214599999999999 * fVec14[((IOTA - 50) & 127)]) + ((0.0042173100000000002 * fVec14[((IOTA - 48) & 127)]) + ((0.0091871399999999999 * fVec14[((IOTA - 47) & 127)]) + ((0.0013077200000000001 * fVec14[((IOTA - 46) & 127)]) + ((0.0021427500000000001 * fVec14[((IOTA - 45) & 127)]) + ((0.0022329500000000005 * fVec14[((IOTA - 44) & 127)]) + ((0.0028589500000000003 * fVec14[((IOTA - 42) & 127)]) + ((0.0070971000000000003 * fVec14[((IOTA - 41) & 127)]) + ((0.0053105900000000004 * fVec14[((IOTA - 40) & 127)]) + ((0.0030150300000000001 * fVec14[((IOTA - 39) & 127)]) + ((0.00053429399999999994 * fVec14[((IOTA - 36) & 127)]) + ((0.0164669 * fVec14[((IOTA - 35) & 127)]) + ((0.0037660800000000002 * fVec14[((IOTA - 33) & 127)]) + ((0.0086483100000000011 * fVec14[((IOTA - 32) & 127)]) + ((0.021576300000000003 * fVec14[((IOTA - 29) & 127)]) + ((0.021685099999999999 * fVec14[((IOTA - 28) & 127)]) + ((0.0057969700000000002 * fVec14[((IOTA - 26) & 127)]) + ((0.0197594 * fVec14[((IOTA - 21) & 127)]) + ((0.0121098 * fVec14[((IOTA - 20) & 127)]) + ((0.032535399999999999 * fVec14[((IOTA - 17) & 127)]) + ((0.00050339700000000005 * fVec14[((IOTA - 14) & 127)]) + ((0.00086802899999999998 * fVec14[((IOTA - 13) & 127)]) + ((0.0016583500000000001 * fVec14[((IOTA - 8) & 127)]) + ((0.00031507000000000003 * fVec14[((IOTA - 5) & 127)]) + ((0.00049461800000000005 * fVec14[((IOTA - 4) & 127)]) + ((0.00015840400000000001 * fVec14[((IOTA - 2) & 127)]) + ((2.8519800000000004e-05 * fVec14[((IOTA - 1) & 127)]) + ((4.4578800000000004e-06 * fTemp14) + ((0.0057622799999999998 * fVec14[((IOTA - 24) & 127)]) + ((1.1796500000000001e-05 * fVec0[((IOTA - 114) & 127)]) + ((0.00041981599999999999 * fVec0[((IOTA - 107) & 127)]) + ((5.3605900000000008e-05 * fVec0[((IOTA - 105) & 127)]) + ((0.00046969700000000004 * fVec0[((IOTA - 104) & 127)]) + ((0.00047704000000000008 * fVec0[((IOTA - 103) & 127)]) + ((0.00043236800000000009 * fVec0[((IOTA - 102) & 127)]) + ((0.00070973900000000003 * fVec0[((IOTA - 101) & 127)]) + ((0.000705385 * fVec0[((IOTA - 100) & 127)]) + ((0.00045614100000000008 * fVec0[((IOTA - 99) & 127)]) + ((0.00092227100000000001 * fVec0[((IOTA - 98) & 127)]) + ((0.00081300600000000002 * fVec0[((IOTA - 97) & 127)]) + ((0.000623519 * fVec0[((IOTA - 96) & 127)]) + ((0.0013659500000000001 * fVec0[((IOTA - 95) & 127)]) + ((0.00214314 * fVec0[((IOTA - 94) & 127)]) + ((0.0016777999999999999 * fVec0[((IOTA - 93) & 127)]) + ((0.00108099 * fVec0[((IOTA - 92) & 127)]) + ((6.7984800000000007e-05 * fVec0[((IOTA - 90) & 127)]) + ((0.000264467 * fVec0[((IOTA - 89) & 127)]) + ((0.00045975200000000007 * fVec0[((IOTA - 88) & 127)]) + ((0.0013345100000000001 * fVec0[((IOTA - 87) & 127)]) + ((0.0013671599999999999 * fVec0[((IOTA - 86) & 127)]) + ((0.00088433700000000001 * fVec0[((IOTA - 85) & 127)]) + ((0.0010498400000000002 * fVec0[((IOTA - 84) & 127)]) + ((0.00300031 * fVec0[((IOTA - 83) & 127)]) + ((0.00033132700000000002 * fVec0[((IOTA - 82) & 127)]) + ((2.3648600000000003e-05 * fVec0[((IOTA - 80) & 127)]) + ((0.00058793100000000009 * fVec0[((IOTA - 79) & 127)]) + ((0.0027816299999999998 * fVec0[((IOTA - 78) & 127)]) + ((0.0017765299999999999 * fVec0[((IOTA - 77) & 127)]) + ((0.00046795000000000002 * fVec0[((IOTA - 73) & 127)]) + ((0.0016152100000000002 * fVec0[((IOTA - 72) & 127)]) + ((0.058508199999999996 * fVec0[((IOTA - 22) & 127)]) + ((0.050635700000000006 * fVec0[((IOTA - 21) & 127)]) + ((0.041341200000000002 * fVec0[((IOTA - 20) & 127)]) + ((0.0214629 * fVec0[((IOTA - 19) & 127)]) + ((0.029345699999999999 * fVec0[((IOTA - 18) & 127)]) + ((0.088954799999999987 * fVec0[((IOTA - 17) & 127)]) + ((0.063658400000000004 * fVec0[((IOTA - 16) & 127)]) + ((0.078143400000000002 * fVec0[((IOTA - 15) & 127)]) + ((0.060886200000000001 * fVec0[((IOTA - 14) & 127)]) + ((0.077131900000000003 * fVec0[((IOTA - 13) & 127)]) + ((0.090551499999999993 * fVec0[((IOTA - 12) & 127)]) + ((0.0054581200000000003 * fVec0[((IOTA - 11) & 127)]) + ((0.0018110400000000001 * fVec0[((IOTA - 9) & 127)]) + ((0.00194177 * fVec0[((IOTA - 7) & 127)]) + ((0.00114689 * fVec0[((IOTA - 5) & 127)]) + ((0.00058690300000000006 * fVec0[((IOTA - 4) & 127)]) + ((0.0012299100000000001 * fVec0[((IOTA - 3) & 127)]) + ((0.00015469 * fVec0[((IOTA - 1) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0.0079812000000000008 * fVec15[((IOTA - 37) & 127)]) + ((0.0141227 * fVec15[((IOTA - 36) & 127)]) + ((0.0044680700000000002 * fVec15[((IOTA - 35) & 127)]) + ((0.020023599999999999 * fVec15[((IOTA - 34) & 127)]) + ((0.023001999999999998 * fVec15[((IOTA - 33) & 127)]) + ((0.0057082499999999998 * fVec15[((IOTA - 32) & 127)]) + ((0.011366300000000001 * fVec15[((IOTA - 31) & 127)]) + ((0.0266261 * fVec15[((IOTA - 30) & 127)]) + ((0.0087064099999999995 * fVec15[((IOTA - 29) & 127)]) + ((0.030624600000000002 * fVec15[((IOTA - 27) & 127)]) + ((0.0069301900000000001 * fVec15[((IOTA - 38) & 127)]) + (((((((((((((((((((((((((2.5118200000000003e-05 * fTemp15) + (0.00012370799999999999 * fVec15[((IOTA - 1) & 127)])) + (0.00096838400000000008 * fVec15[((IOTA - 3) & 127)])) + (0.00059949000000000005 * fVec15[((IOTA - 4) & 127)])) + (0.00076772799999999997 * fVec15[((IOTA - 5) & 127)])) + (0.00014117900000000001 * fVec15[((IOTA - 6) & 127)])) + (0.0018634200000000002 * fVec15[((IOTA - 7) & 127)])) + (0.00024957099999999997 * fVec15[((IOTA - 8) & 127)])) + (0.0011589199999999999 * fVec15[((IOTA - 9) & 127)])) + (0.00050879500000000004 * fVec15[((IOTA - 10) & 127)])) + (0.0036302599999999997 * fVec15[((IOTA - 11) & 127)])) + (0.056510400000000002 * fVec15[((IOTA - 12) & 127)])) + (0.049342300000000006 * fVec15[((IOTA - 13) & 127)])) + (0.0449074 * fVec15[((IOTA - 14) & 127)])) + (0.064749100000000004 * fVec15[((IOTA - 15) & 127)])) + (0.059606500000000007 * fVec15[((IOTA - 16) & 127)])) + (0.073495100000000008 * fVec15[((IOTA - 17) & 127)])) + (0.034514800000000005 * fVec15[((IOTA - 18) & 127)])) + (0.055772500000000003 * fVec15[((IOTA - 19) & 127)])) + (0.06596840000000001 * fVec15[((IOTA - 20) & 127)])) + (0.057809200000000005 * fVec15[((IOTA - 21) & 127)])) + (0.096895100000000012 * fVec15[((IOTA - 22) & 127)])) + (0.021260899999999999 * fVec15[((IOTA - 23) & 127)])) + (0.031746299999999998 * fVec15[((IOTA - 25) & 127)])) + (0.0528391 * fVec15[((IOTA - 26) & 127)]))))))))))))) + (0.011589100000000001 * fVec15[((IOTA - 39) & 127)])) + (0.0064973000000000001 * fVec15[((IOTA - 40) & 127)])) + (0.0056945699999999995 * fVec15[((IOTA - 41) & 127)])) + (0.0074329900000000004 * fVec15[((IOTA - 42) & 127)])) + (0.0028857800000000001 * fVec15[((IOTA - 43) & 127)])) + (0.0079248200000000008 * fVec15[((IOTA - 44) & 127)])) + (0.015005800000000001 * fVec15[((IOTA - 45) & 127)])) + (0.00250454 * fVec15[((IOTA - 46) & 127)])) + (0.00306785 * fVec15[((IOTA - 48) & 127)])) + (0.00175234 * fVec15[((IOTA - 49) & 127)])) + (0.00086377000000000014 * fVec15[((IOTA - 50) & 127)])) + (0.0036652500000000001 * fVec15[((IOTA - 51) & 127)])) + (0.0028833999999999999 * fVec15[((IOTA - 52) & 127)])) + (0.00325793 * fVec15[((IOTA - 53) & 127)])) + (0.00305273 * fVec15[((IOTA - 54) & 127)])) + (0.0012461600000000001 * fVec15[((IOTA - 55) & 127)])) + (0.0012118500000000002 * fVec15[((IOTA - 56) & 127)])) + (0.0050028199999999998 * fVec15[((IOTA - 57) & 127)])) + (0.0036129299999999999 * fVec15[((IOTA - 58) & 127)])) + (0.0031211899999999998 * fVec15[((IOTA - 59) & 127)])) + (0.0042250600000000001 * fVec15[((IOTA - 60) & 127)])) + (0.0035775299999999998 * fVec15[((IOTA - 61) & 127)])) + (0.0068040700000000006 * fVec15[((IOTA - 62) & 127)])) + (0.0062385100000000001 * fVec15[((IOTA - 63) & 127)])) + (0.0042152999999999999 * fVec15[((IOTA - 64) & 127)])) + (0.0027403499999999999 * fVec15[((IOTA - 65) & 127)])) + (0.0023089200000000003 * fVec15[((IOTA - 66) & 127)])) + (0.0034284599999999999 * fVec15[((IOTA - 67) & 127)])) + (0.0022559300000000002 * fVec15[((IOTA - 68) & 127)])) + (0.0014647 * fVec15[((IOTA - 69) & 127)])) + (0.00185049 * fVec15[((IOTA - 70) & 127)])) + (0.0032107500000000001 * fVec15[((IOTA - 71) & 127)])) + (0.0052356299999999998 * fVec15[((IOTA - 72) & 127)])) + (0.0030868900000000001 * fVec15[((IOTA - 73) & 127)])) + (0.0029129100000000003 * fVec15[((IOTA - 74) & 127)])) + (0.0063743100000000002 * fVec15[((IOTA - 75) & 127)])) + (0.0041945800000000007 * fVec15[((IOTA - 76) & 127)])) + (0.00082847699999999999 * fVec15[((IOTA - 77) & 127)])) + (0.0024405 * fVec15[((IOTA - 78) & 127)])) + (0.0041905200000000005 * fVec15[((IOTA - 79) & 127)])) + (0.0024365300000000001 * fVec15[((IOTA - 80) & 127)])) + (0.00056369199999999997 * fVec15[((IOTA - 82) & 127)])) + (0.0015701700000000001 * fVec15[((IOTA - 83) & 127)])) + (0.0016799500000000001 * fVec15[((IOTA - 85) & 127)])) + (0.0051757600000000006 * fVec15[((IOTA - 86) & 127)])) + (0.0037083100000000003 * fVec15[((IOTA - 87) & 127)])) + (0.00041329900000000006 * fVec15[((IOTA - 90) & 127)])) + (2.3955000000000004e-05 * fVec15[((IOTA - 93) & 127)])) + (0.0021461499999999999 * fVec15[((IOTA - 94) & 127)])) + (0.00272945 * fVec15[((IOTA - 95) & 127)])) + (0.00054874000000000004 * fVec15[((IOTA - 96) & 127)])) + (0.00058470199999999999 * fVec15[((IOTA - 98) & 127)])) + (0.00061282500000000011 * fVec15[((IOTA - 99) & 127)])) + (0.00050683400000000006 * fVec15[((IOTA - 100) & 127)])) + (0.00087727600000000008 * fVec15[((IOTA - 101) & 127)])) + (0.00154024 * fVec15[((IOTA - 102) & 127)])) + (0.00185348 * fVec15[((IOTA - 103) & 127)])) + (0.0012065399999999999 * fVec15[((IOTA - 104) & 127)])) + (0.0014059200000000002 * fVec15[((IOTA - 105) & 127)])) + (0.00136699 * fVec15[((IOTA - 106) & 127)])) + (0.0012923000000000001 * fVec15[((IOTA - 107) & 127)])) + (0.0009436510000000001 * fVec15[((IOTA - 108) & 127)])) + (0.00083451500000000008 * fVec15[((IOTA - 109) & 127)])) + (0.00098166300000000002 * fVec15[((IOTA - 110) & 127)])) + (0.00067625599999999997 * fVec15[((IOTA - 111) & 127)])) + (0.00050102000000000002 * fVec15[((IOTA - 112) & 127)])) + (0.00053358400000000003 * fVec15[((IOTA - 113) & 127)])) + (0.00054736599999999998 * fVec15[((IOTA - 114) & 127)])) + (0.00045382400000000002 * fVec15[((IOTA - 115) & 127)])) + (0.00034160000000000001 * fVec15[((IOTA - 116) & 127)])) + (0.00025855300000000002 * fVec15[((IOTA - 117) & 127)])) + (0.00016872499999999999 * fVec15[((IOTA - 118) & 127)])) + (0.00016404399999999999 * fVec15[((IOTA - 119) & 127)])) + (0.00010654600000000001 * fVec15[((IOTA - 120) & 127)])) + (4.2541300000000006e-05 * fVec15[((IOTA - 121) & 127)])) + (1.8717900000000003e-05 * fVec15[((IOTA - 122) & 127)])) + (2.09787e-05 * fVec15[((IOTA - 123) & 127)])) + (5.7126099999999992e-06 * fVec15[((IOTA - 124) & 127)])) + (5.0813899999999995e-06 * fVec15[((IOTA - 125) & 127)])) + (2.0625300000000001e-06 * fVec15[((IOTA - 126) & 127)])) + (3.3955100000000003e-05 * fTemp0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.000682276 * fVec2[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((6.4276900000000001e-05 * fVec2[((IOTA - 119) & 127)]) + ((9.164930000000001e-05 * fVec2[((IOTA - 118) & 127)]) + ((5.7182200000000003e-05 * fVec2[((IOTA - 117) & 127)]) + ((0.00012319500000000002 * fVec2[((IOTA - 116) & 127)]) + ((0.000211704 * fVec2[((IOTA - 115) & 127)]) + ((0.00034920800000000005 * fVec2[((IOTA - 114) & 127)]) + ((0.00033244200000000001 * fVec2[((IOTA - 113) & 127)]) + ((0.00025251100000000002 * fVec2[((IOTA - 112) & 127)]) + ((0.000318859 * fVec2[((IOTA - 111) & 127)]) + ((0.00039344000000000005 * fVec2[((IOTA - 110) & 127)]) + ((0.00033167 * fVec2[((IOTA - 109) & 127)]) + ((0.000465384 * fVec2[((IOTA - 108) & 127)]) + ((0.00039361300000000001 * fVec2[((IOTA - 107) & 127)]) + ((0.00042075400000000002 * fVec2[((IOTA - 106) & 127)]) + ((0.00037080799999999998 * fVec2[((IOTA - 105) & 127)]) + ((1.6587200000000003e-05 * fVec2[((IOTA - 103) & 127)]) + ((0.00091861900000000008 * fVec2[((IOTA - 102) & 127)]) + ((0.00025743700000000001 * fVec2[((IOTA - 101) & 127)]) + ((1.0584400000000002e-05 * fVec2[((IOTA - 98) & 127)]) + ((0.00040115600000000006 * fVec2[((IOTA - 97) & 127)]) + ((0.0014677900000000001 * fVec2[((IOTA - 90) & 127)]) + ((0.0010665400000000002 * fVec2[((IOTA - 89) & 127)]) + ((0.0011811600000000001 * fVec2[((IOTA - 88) & 127)]) + ((0.00093001200000000003 * fVec2[((IOTA - 87) & 127)]) + ((0.00025672299999999999 * fVec2[((IOTA - 85) & 127)]) + ((3.6903100000000002e-05 * fVec2[((IOTA - 83) & 127)]) + ((0.00082218600000000003 * fVec2[((IOTA - 82) & 127)]) + ((0.000382178 * fVec2[((IOTA - 81) & 127)]) + ((0.00030066700000000001 * fVec2[((IOTA - 77) & 127)]) + ((0.00056339900000000002 * fVec2[((IOTA - 78) & 127)]) + ((0.00075356000000000002 * fVec2[((IOTA - 76) & 127)]) + ((0.0017828800000000001 * fVec2[((IOTA - 75) & 127)]) + ((0.00080830800000000009 * fVec2[((IOTA - 74) & 127)]) + ((0.00187645 * fVec2[((IOTA - 70) & 127)]) + ((0.0013177900000000001 * fVec2[((IOTA - 69) & 127)]) + ((0.0026788900000000002 * fVec2[((IOTA - 68) & 127)]) + ((0.0014275899999999998 * fVec2[((IOTA - 67) & 127)]) + ((0.00077358800000000008 * fVec2[((IOTA - 65) & 127)]) + ((0.00030791900000000003 * fVec2[((IOTA - 64) & 127)]) + ((0.0018273299999999998 * fVec2[((IOTA - 59) & 127)]) + ((0.000741378 * fVec2[((IOTA - 58) & 127)]) + ((0.0021143999999999998 * fVec2[((IOTA - 56) & 127)]) + ((0.0023650199999999998 * fVec2[((IOTA - 55) & 127)]) + ((0.00137963 * fVec2[((IOTA - 46) & 127)]) + ((0.0022811300000000001 * fVec2[((IOTA - 45) & 127)]) + ((0.0077523699999999997 * fVec2[((IOTA - 44) & 127)]) + ((0.0087150300000000003 * fVec2[((IOTA - 43) & 127)]) + ((0.0035589599999999999 * fVec2[((IOTA - 40) & 127)]) + ((0.009139089999999999 * fVec2[((IOTA - 37) & 127)]) + ((0.0022023799999999999 * fVec2[((IOTA - 36) & 127)]) + ((0.00043536700000000003 * fVec2[((IOTA - 35) & 127)]) + ((0.0065159300000000005 * fVec2[((IOTA - 34) & 127)]) + ((0.0023690899999999999 * fVec2[((IOTA - 33) & 127)]) + ((0.017782599999999999 * fVec2[((IOTA - 32) & 127)]) + ((0.0058807299999999998 * fVec2[((IOTA - 31) & 127)]) + ((0.033734800000000002 * fVec2[((IOTA - 28) & 127)]) + ((0.00030687999999999999 * fVec2[((IOTA - 27) & 127)]) + ((0.027150500000000001 * fVec2[((IOTA - 25) & 127)]) + ((0.018427300000000001 * fVec2[((IOTA - 24) & 127)]) + ((0.037316000000000002 * fVec2[((IOTA - 18) & 127)]) + ((0.014252300000000001 * fVec2[((IOTA - 17) & 127)]) + ((0.019724700000000001 * fVec2[((IOTA - 15) & 127)]) + ((0.00039235000000000002 * fVec2[((IOTA - 14) & 127)]) + ((0.016522600000000002 * fVec2[((IOTA - 13) & 127)]) + ((0.0057737600000000002 * fVec2[((IOTA - 10) & 127)]) + ((0.00298131 * fVec2[((IOTA - 8) & 127)]) + ((0.0021578599999999997 * fVec2[((IOTA - 6) & 127)]) + ((0.0006632360000000001 * fVec2[((IOTA - 4) & 127)]) + ((0.00032355000000000003 * fVec2[((IOTA - 2) & 127)]) + ((4.3569800000000004e-05 * fVec2[((IOTA - 1) & 127)]) + (((7.3541399999999999e-06 * fVec1[((IOTA - 125) & 127)]) + ((1.9871400000000001e-05 * fVec1[((IOTA - 124) & 127)]) + ((1.68007e-05 * fVec1[((IOTA - 123) & 127)]) + ((4.0472700000000003e-05 * fVec1[((IOTA - 120) & 127)]) + ((2.0089899999999999e-06 * fVec1[((IOTA - 117) & 127)]) + ((9.4388500000000013e-05 * fVec1[((IOTA - 116) & 127)]) + ((4.0048000000000007e-05 * fVec1[((IOTA - 115) & 127)]) + ((0.00013508199999999999 * fVec1[((IOTA - 114) & 127)]) + ((1.4516400000000002e-05 * fVec1[((IOTA - 112) & 127)]) + ((4.0951399999999994e-06 * fVec1[((IOTA - 109) & 127)]) + ((0.00038113700000000003 * fVec1[((IOTA - 108) & 127)]) + ((0.00038692400000000002 * fVec1[((IOTA - 90) & 127)]) + ((0.0011128800000000001 * fVec1[((IOTA - 87) & 127)]) + ((0.00018401499999999999 * fVec1[((IOTA - 86) & 127)]) + ((8.3155100000000006e-05 * fVec1[((IOTA - 84) & 127)]) + ((0.00055631600000000006 * fVec1[((IOTA - 83) & 127)]) + ((0.0013639500000000001 * fVec1[((IOTA - 82) & 127)]) + ((0.0011469 * fVec1[((IOTA - 81) & 127)]) + ((0.0022757299999999997 * fVec1[((IOTA - 78) & 127)]) + ((0.00076008400000000006 * fVec1[((IOTA - 77) & 127)]) + ((0.00049322500000000002 * fVec1[((IOTA - 75) & 127)]) + ((7.2509299999999999e-06 * fVec1[((IOTA - 74) & 127)]) + ((0.00102811 * fVec1[((IOTA - 73) & 127)]) + ((0.00084844100000000013 * fVec1[((IOTA - 72) & 127)]) + ((0.00073845000000000009 * fVec1[((IOTA - 71) & 127)]) + ((0.00068371000000000003 * fVec1[((IOTA - 70) & 127)]) + ((7.2511700000000006e-05 * fVec1[((IOTA - 69) & 127)]) + ((0.00078590300000000001 * fVec1[((IOTA - 66) & 127)]) + ((0.00095934000000000015 * fVec1[((IOTA - 62) & 127)]) + ((0.000404712 * fVec1[((IOTA - 61) & 127)]) + ((0.00023097600000000001 * fVec1[((IOTA - 57) & 127)]) + ((0.00218833 * fVec1[((IOTA - 53) & 127)]) + ((0.0010072700000000002 * fVec1[((IOTA - 52) & 127)]) + ((0.00137375 * fVec1[((IOTA - 51) & 127)]) + ((0.00083448600000000006 * fVec1[((IOTA - 50) & 127)]) + ((0.00081536399999999995 * fVec1[((IOTA - 49) & 127)]) + ((0.00054543100000000008 * fVec1[((IOTA - 48) & 127)]) + ((0.0035057600000000001 * fVec1[((IOTA - 47) & 127)]) + ((0.0042825600000000004 * fVec1[((IOTA - 46) & 127)]) + ((0.0073746600000000008 * fVec1[((IOTA - 43) & 127)]) + ((0.0031813100000000001 * fVec1[((IOTA - 41) & 127)]) + ((0.0031712400000000001 * fVec1[((IOTA - 40) & 127)]) + ((0.0019387000000000002 * fVec1[((IOTA - 38) & 127)]) + ((0.010274799999999999 * fVec1[((IOTA - 37) & 127)]) + ((0.0160001 * fVec1[((IOTA - 34) & 127)]) + ((0.015218700000000002 * fVec1[((IOTA - 33) & 127)]) + ((0.0051433299999999998 * fVec1[((IOTA - 29) & 127)]) + ((0.019054000000000001 * fVec1[((IOTA - 28) & 127)]) + ((0.029220799999999998 * fVec1[((IOTA - 22) & 127)]) + ((0.019108199999999999 * fVec1[((IOTA - 20) & 127)]) + ((0.0101244 * fVec1[((IOTA - 19) & 127)]) + ((0.0243991 * fVec1[((IOTA - 17) & 127)]) + ((0.0071943800000000002 * fVec1[((IOTA - 16) & 127)]) + ((0.0065491000000000004 * fVec1[((IOTA - 14) & 127)]) + ((0.00345408 * fVec1[((IOTA - 13) & 127)]) + ((0.000172325 * fVec1[((IOTA - 11) & 127)]) + ((4.8090900000000004e-05 * fVec1[((IOTA - 10) & 127)]) + ((0.0012270600000000001 * fVec1[((IOTA - 8) & 127)]) + ((0.00054008200000000011 * fVec1[((IOTA - 4) & 127)]) + ((2.44107e-05 * fVec1[((IOTA - 2) & 127)]) + ((0.00057432400000000008 * fVec1[((IOTA - 96) & 127)]) + ((0.00025360600000000002 * fVec1[((IOTA - 107) & 127)]) + ((8.5443400000000003e-05 * fVec1[((IOTA - 97) & 127)]) + ((5.2891500000000002e-07 * fVec3[((IOTA - 126) & 127)]) + ((7.5122799999999995e-06 * fVec3[((IOTA - 125) & 127)]) + ((1.6393300000000001e-05 * fVec3[((IOTA - 124) & 127)]) + ((2.3049300000000003e-05 * fVec3[((IOTA - 123) & 127)]) + ((2.3497200000000003e-05 * fVec3[((IOTA - 122) & 127)]) + ((3.1160000000000007e-05 * fVec3[((IOTA - 121) & 127)]) + ((2.6824200000000003e-05 * fVec3[((IOTA - 120) & 127)]) + ((2.2243600000000002e-05 * fVec3[((IOTA - 117) & 127)]) + ((4.78325e-05 * fVec3[((IOTA - 116) & 127)]) + ((0.00013262100000000003 * fVec3[((IOTA - 94) & 127)]) + ((0.00061235200000000004 * fVec3[((IOTA - 91) & 127)]) + ((0.00083076200000000008 * fVec3[((IOTA - 90) & 127)]) + ((0.00094943600000000012 * fVec3[((IOTA - 89) & 127)]) + ((0.00016757299999999999 * fVec3[((IOTA - 88) & 127)]) + ((0.00022032700000000001 * fVec3[((IOTA - 87) & 127)]) + ((0.00016127700000000001 * fVec3[((IOTA - 86) & 127)]) + ((0.00191763 * fVec3[((IOTA - 85) & 127)]) + ((0.00189814 * fVec3[((IOTA - 84) & 127)]) + ((0.0011356999999999999 * fVec3[((IOTA - 82) & 127)]) + ((0.0018585000000000001 * fVec3[((IOTA - 81) & 127)]) + ((0.0012131000000000002 * fVec3[((IOTA - 80) & 127)]) + ((0.00032995300000000002 * fVec3[((IOTA - 6) & 127)]) + ((0.00050478700000000003 * fVec3[((IOTA - 4) & 127)]) + ((0.000105713 * fVec3[((IOTA - 2) & 127)]) + ((2.5231199999999997e-06 * fTemp3) + ((0.0066805500000000004 * fVec3[((IOTA - 18) & 127)]) + ((0.00678927 * fVec3[((IOTA - 17) & 127)]) + ((0.0091073999999999999 * fVec3[((IOTA - 16) & 127)]) + ((0.0130569 * fVec3[((IOTA - 15) & 127)]) + ((0.0042139100000000004 * fVec3[((IOTA - 13) & 127)]) + ((0.00025399999999999999 * fVec3[((IOTA - 79) & 127)]) + ((0.00035679200000000004 * fVec3[((IOTA - 78) & 127)]) + ((0.00097909699999999995 * fVec3[((IOTA - 77) & 127)]) + ((0.0021205199999999999 * fVec3[((IOTA - 76) & 127)]) + ((0.0008138310000000001 * fVec3[((IOTA - 68) & 127)]) + ((0.00074145100000000007 * fVec3[((IOTA - 62) & 127)]) + ((0.00047705600000000001 * fVec3[((IOTA - 61) & 127)]) + ((0.0034899700000000002 * fVec3[((IOTA - 60) & 127)]) + ((0.0025903700000000003 * fVec3[((IOTA - 59) & 127)]) + ((0.0027718299999999999 * fVec3[((IOTA - 58) & 127)]) + ((0.00315957 * fVec3[((IOTA - 57) & 127)]) + ((0.0041676700000000001 * fVec3[((IOTA - 56) & 127)]) + ((0.0040106600000000001 * fVec3[((IOTA - 55) & 127)]) + ((0.00024623100000000002 * fVec3[((IOTA - 54) & 127)]) + ((0.00327415 * fVec3[((IOTA - 53) & 127)]) + ((0.0026408399999999998 * fVec3[((IOTA - 52) & 127)]) + ((0.00050010199999999999 * fVec3[((IOTA - 50) & 127)]) + ((0.00058122499999999999 * fVec3[((IOTA - 49) & 127)]) + ((0.0072108700000000003 * fVec3[((IOTA - 44) & 127)]) + ((0.0018301400000000001 * fVec3[((IOTA - 43) & 127)]) + ((0.00058247500000000005 * fVec3[((IOTA - 38) & 127)]) + ((0.0085527399999999996 * fVec3[((IOTA - 37) & 127)]) + ((0.0064438700000000008 * fVec3[((IOTA - 35) & 127)]) + ((0.0030920700000000001 * fVec3[((IOTA - 31) & 127)]) + ((0.026311300000000003 * fVec3[((IOTA - 30) & 127)]) + ((0.0045847700000000002 * fVec3[((IOTA - 29) & 127)]) + ((0.014478500000000002 * fVec3[((IOTA - 26) & 127)]) + ((0.014742699999999999 * fVec3[((IOTA - 25) & 127)]) + ((0.0040668100000000006 * fVec3[((IOTA - 23) & 127)]) + ((0.010288200000000001 * fVec3[((IOTA - 21) & 127)]) + ((0.016673299999999999 * fVec3[((IOTA - 20) & 127)]) + ((7.5180799999999995e-07 * fVec4[((IOTA - 126) & 127)]) + ((7.4192699999999999e-06 * fVec4[((IOTA - 125) & 127)]) + ((7.8058900000000002e-06 * fVec4[((IOTA - 124) & 127)]) + ((7.6831699999999991e-06 * fVec4[((IOTA - 123) & 127)]) + ((4.3886799999999996e-07 * fVec4[((IOTA - 122) & 127)]) + ((2.5728499999999999e-05 * fVec4[((IOTA - 121) & 127)]) + ((3.8519100000000002e-06 * fVec4[((IOTA - 120) & 127)]) + ((8.4650599999999985e-06 * fVec4[((IOTA - 119) & 127)]) + ((4.1315700000000002e-05 * fVec4[((IOTA - 118) & 127)]) + ((0.00014156200000000002 * fVec4[((IOTA - 117) & 127)]) + ((0.00013138900000000001 * fVec4[((IOTA - 116) & 127)]) + ((2.3594499999999999e-05 * fVec4[((IOTA - 114) & 127)]) + ((5.5362000000000003e-05 * fVec4[((IOTA - 113) & 127)]) + ((4.5982300000000002e-05 * fVec4[((IOTA - 112) & 127)]) + ((0.00085768200000000002 * fVec3[((IOTA - 8) & 127)]) + ((0.00020877800000000001 * fVec4[((IOTA - 95) & 127)]) + ((0.0014440100000000001 * fVec4[((IOTA - 94) & 127)]) + ((7.5196800000000005e-05 * fVec4[((IOTA - 93) & 127)]) + ((0.00021774900000000002 * fVec4[((IOTA - 88) & 127)]) + ((0.00050493599999999999 * fVec4[((IOTA - 87) & 127)]) + ((0.00129094 * fVec4[((IOTA - 86) & 127)]) + ((0.00131875 * fVec4[((IOTA - 85) & 127)]) + ((0.00025035200000000002 * fVec4[((IOTA - 84) & 127)]) + ((0.0016813900000000001 * fVec4[((IOTA - 83) & 127)]) + ((0.00079413300000000004 * fVec4[((IOTA - 82) & 127)]) + ((0.00148109 * fVec4[((IOTA - 78) & 127)]) + ((0.00187816 * fVec4[((IOTA - 77) & 127)]) + ((0.0015205800000000001 * fVec4[((IOTA - 76) & 127)]) + ((0.00021227600000000001 * fVec4[((IOTA - 75) & 127)]) + ((0.00359524 * fVec4[((IOTA - 74) & 127)]) + ((0.0041234900000000005 * fVec4[((IOTA - 73) & 127)]) + ((0.00089886800000000004 * fVec4[((IOTA - 72) & 127)]) + ((0.0012871 * fVec4[((IOTA - 71) & 127)]) + ((0.0018243199999999999 * fVec4[((IOTA - 37) & 127)]) + ((0.0072907000000000007 * fVec4[((IOTA - 36) & 127)]) + ((0.0082141100000000002 * fVec4[((IOTA - 35) & 127)]) + ((0.0015148500000000001 * fVec4[((IOTA - 33) & 127)]) + ((0.0039258799999999996 * fVec4[((IOTA - 32) & 127)]) + ((0.0105468 * fVec4[((IOTA - 30) & 127)]) + ((0.0083919700000000003 * fVec4[((IOTA - 29) & 127)]) + ((0.045109500000000004 * fVec4[((IOTA - 24) & 127)]) + ((0.0130615 * fVec4[((IOTA - 23) & 127)]) + ((0.0068680599999999996 * fVec4[((IOTA - 20) & 127)]) + ((0.0158055 * fVec4[((IOTA - 19) & 127)]) + ((0.0196975 * fVec4[((IOTA - 18) & 127)]) + ((0.012670500000000001 * fVec4[((IOTA - 17) & 127)]) + ((0.017149600000000001 * fVec4[((IOTA - 14) & 127)]) + ((0.00039274200000000002 * fVec4[((IOTA - 13) & 127)]) + ((0.00063474100000000008 * fVec4[((IOTA - 8) & 127)]) + ((0.00022428400000000002 * fVec4[((IOTA - 6) & 127)]) + ((0.00061255200000000004 * fVec4[((IOTA - 5) & 127)]) + ((0.000177443 * fVec4[((IOTA - 2) & 127)]) + ((2.38744e-05 * fVec4[((IOTA - 1) & 127)]) + ((0.0036414500000000001 * fVec4[((IOTA - 42) & 127)]) + ((0.0024519899999999998 * fVec4[((IOTA - 41) & 127)]) + ((0.0018163100000000002 * fVec4[((IOTA - 65) & 127)]) + ((0.0033862499999999999 * fVec4[((IOTA - 62) & 127)]) + ((0.00095073000000000011 * fVec4[((IOTA - 61) & 127)]) + ((0.00032132100000000001 * fVec4[((IOTA - 55) & 127)]) + ((0.0011200699999999999 * fVec4[((IOTA - 53) & 127)]) + ((0.00093541399999999997 * fVec4[((IOTA - 39) & 127)]) + ((0.0028892500000000003 * fVec4[((IOTA - 50) & 127)]) + ((0.000955261 * fVec4[((IOTA - 49) & 127)]) + ((6.3343100000000014e-05 * fVec4[((IOTA - 47) & 127)]) + ((0.00694716 * fVec4[((IOTA - 44) & 127)]) + ((0.0026067200000000003 * fVec4[((IOTA - 43) & 127)]) + ((5.1650600000000005e-06 * fVec5[((IOTA - 122) & 127)]) + ((6.2288800000000013e-05 * fVec5[((IOTA - 118) & 127)]) + ((0.000107544 * fVec5[((IOTA - 117) & 127)]) + ((3.1495500000000004e-05 * fVec5[((IOTA - 116) & 127)]) + ((1.20038e-05 * fVec5[((IOTA - 115) & 127)]) + ((2.5178300000000003e-05 * fVec5[((IOTA - 114) & 127)]) + ((0.000470283 * fVec5[((IOTA - 113) & 127)]) + ((0.00042444499999999997 * fVec5[((IOTA - 112) & 127)]) + ((0.00022263799999999999 * fVec5[((IOTA - 111) & 127)]) + ((4.14666e-05 * fVec5[((IOTA - 109) & 127)]) + ((0.000344395 * fVec5[((IOTA - 108) & 127)]) + ((0.00011064600000000001 * fVec5[((IOTA - 106) & 127)]) + ((0.00030248100000000001 * fVec5[((IOTA - 105) & 127)]) + ((0.00041449600000000004 * fVec5[((IOTA - 104) & 127)]) + ((0.00012015400000000002 * fVec5[((IOTA - 100) & 127)]) + ((0.00051881099999999999 * fVec5[((IOTA - 99) & 127)]) + ((6.7970200000000002e-05 * fVec5[((IOTA - 98) & 127)]) + ((0.00034321600000000003 * fVec5[((IOTA - 95) & 127)]) + ((0.00044988999999999999 * fVec5[((IOTA - 88) & 127)]) + ((0.00256128 * fVec5[((IOTA - 87) & 127)]) + ((0.0023223300000000001 * fVec5[((IOTA - 86) & 127)]) + ((0.00014500400000000001 * fVec5[((IOTA - 83) & 127)]) + ((0.0011457399999999999 * fVec5[((IOTA - 79) & 127)]) + ((0.0017324700000000001 * fVec5[((IOTA - 63) & 127)]) + ((0.00083292900000000005 * fVec5[((IOTA - 60) & 127)]) + ((4.4803300000000005e-05 * fVec5[((IOTA - 59) & 127)]) + ((0.000591623 * fVec5[((IOTA - 56) & 127)]) + ((0.0017609399999999999 * fVec5[((IOTA - 47) & 127)]) + ((0.00027506900000000002 * fVec5[((IOTA - 42) & 127)]) + ((0.0020045600000000003 * fVec5[((IOTA - 41) & 127)]) + ((0.00894526 * fVec5[((IOTA - 38) & 127)]) + ((0.0040081499999999994 * fVec5[((IOTA - 37) & 127)]) + ((0.0022934100000000001 * fVec5[((IOTA - 36) & 127)]) + ((0.0078181599999999993 * fVec5[((IOTA - 35) & 127)]) + ((0.0060735200000000007 * fVec5[((IOTA - 34) & 127)]) + ((0.020101600000000001 * fVec5[((IOTA - 33) & 127)]) + ((0.011363099999999999 * fVec5[((IOTA - 32) & 127)]) + ((0.0048202200000000001 * fVec5[((IOTA - 31) & 127)]) + ((0.015268600000000002 * fVec5[((IOTA - 29) & 127)]) + ((0.054586100000000005 * fVec5[((IOTA - 28) & 127)]) + ((0.0076356100000000001 * fVec5[((IOTA - 27) & 127)]) + ((0.0064172300000000003 * fVec5[((IOTA - 24) & 127)]) + ((0.025168300000000001 * fVec5[((IOTA - 23) & 127)]) + ((0.0044173700000000003 * fVec5[((IOTA - 14) & 127)]) + ((0.047073999999999998 * fVec5[((IOTA - 13) & 127)]) + ((0.050409800000000005 * fVec5[((IOTA - 12) & 127)]) + ((0.0088254800000000001 * fVec5[((IOTA - 11) & 127)]) + ((0.0028401100000000003 * fVec5[((IOTA - 9) & 127)]) + ((0.0010134199999999999 * fVec5[((IOTA - 7) & 127)]) + ((0.00048772500000000005 * fVec5[((IOTA - 5) & 127)]) + ((0.00019671200000000001 * fVec5[((IOTA - 3) & 127)]) + ((1.9656400000000004e-05 * fVec5[((IOTA - 1) & 127)]) + ((1.1230600000000001e-05 * fTemp5) + ((0.00048183400000000005 * fVec5[((IOTA - 66) & 127)]) + ((0.00095134899999999999 * fVec5[((IOTA - 78) & 127)]) + ((0.00214124 * fVec5[((IOTA - 75) & 127)]) + ((0.0040635300000000001 * fVec5[((IOTA - 74) & 127)]) + ((0.00039275000000000003 * fVec5[((IOTA - 73) & 127)]) + ((0.0024424899999999999 * fVec5[((IOTA - 64) & 127)]) + ((0.0021799499999999999 * fVec5[((IOTA - 71) & 127)]) + ((0.0024713999999999999 * fVec5[((IOTA - 70) & 127)]) + ((0.00148032 * fVec5[((IOTA - 69) & 127)]) + ((1.2052900000000001e-05 * fVec6[((IOTA - 124) & 127)]) + ((7.5001999999999998e-06 * fVec6[((IOTA - 118) & 127)]) + ((3.8559700000000003e-05 * fVec6[((IOTA - 117) & 127)]) + ((0.00012688900000000001 * fVec6[((IOTA - 113) & 127)]) + ((7.1436400000000013e-05 * fVec6[((IOTA - 112) & 127)]) + ((8.3677800000000007e-05 * fVec6[((IOTA - 111) & 127)]) + ((0.000142659 * fVec6[((IOTA - 110) & 127)]) + ((0.00011731000000000001 * fVec6[((IOTA - 107) & 127)]) + ((0.00029102700000000002 * fVec6[((IOTA - 100) & 127)]) + ((0.000736785 * fVec6[((IOTA - 99) & 127)]) + ((0.00088049500000000002 * fVec6[((IOTA - 98) & 127)]) + ((0.00076679700000000005 * fVec6[((IOTA - 94) & 127)]) + ((0.0012207399999999999 * fVec6[((IOTA - 93) & 127)]) + ((0.00193305 * fVec6[((IOTA - 92) & 127)]) + ((0.00063554600000000007 * fVec6[((IOTA - 91) & 127)]) + ((0.00026668900000000002 * fVec6[((IOTA - 89) & 127)]) + ((0.00319579 * fVec6[((IOTA - 88) & 127)]) + ((0.0011806200000000001 * fVec6[((IOTA - 87) & 127)]) + ((0.00029940000000000001 * fVec6[((IOTA - 82) & 127)]) + ((0.0028643700000000002 * fVec6[((IOTA - 81) & 127)]) + ((0.0023513099999999997 * fVec6[((IOTA - 80) & 127)]) + ((0.0017465 * fVec6[((IOTA - 77) & 127)]) + ((0.00128761 * fVec6[((IOTA - 62) & 127)]) + ((0.0015227400000000001 * fVec6[((IOTA - 60) & 127)]) + ((0.00373734 * fVec6[((IOTA - 59) & 127)]) + ((0.0014280500000000002 * fVec6[((IOTA - 58) & 127)]) + ((0.0026737700000000002 * fVec6[((IOTA - 53) & 127)]) + ((0.0024428499999999999 * fVec6[((IOTA - 50) & 127)]) + ((0.0025408400000000004 * fVec6[((IOTA - 49) & 127)]) + ((0.0022300800000000002 * fVec6[((IOTA - 48) & 127)]) + ((0.00082497000000000007 * fVec6[((IOTA - 47) & 127)]) + ((0.0010773099999999999 * fVec6[((IOTA - 46) & 127)]) + ((6.9417900000000012e-05 * fVec6[((IOTA - 45) & 127)]) + ((0.0043865800000000002 * fVec6[((IOTA - 41) & 127)]) + ((0.0046617300000000002 * fVec6[((IOTA - 40) & 127)]) + ((0.0029096 * fVec6[((IOTA - 39) & 127)]) + ((0.00817616 * fVec6[((IOTA - 36) & 127)]) + ((0.0060419900000000006 * fVec6[((IOTA - 35) & 127)]) + ((0.0085528800000000006 * fVec6[((IOTA - 34) & 127)]) + ((0.030350199999999997 * fVec6[((IOTA - 27) & 127)]) + ((0.00316892 * fVec6[((IOTA - 24) & 127)]) + ((0.025193300000000002 * fVec6[((IOTA - 23) & 127)]) + ((0.0021023399999999999 * fVec6[((IOTA - 22) & 127)]) + ((0.0073916000000000008 * fVec6[((IOTA - 20) & 127)]) + ((0.017867400000000002 * fVec6[((IOTA - 17) & 127)]) + ((0.010231500000000001 * fVec6[((IOTA - 16) & 127)]) + ((0.00146583 * fVec6[((IOTA - 14) & 127)]) + ((0.0064234600000000006 * fVec6[((IOTA - 13) & 127)]) + ((0.00078510700000000006 * fVec6[((IOTA - 8) & 127)]) + ((0.00035025799999999999 * fVec6[((IOTA - 5) & 127)]) + ((0.00013798200000000001 * fVec6[((IOTA - 4) & 127)]) + ((3.8530500000000007e-05 * fVec6[((IOTA - 1) & 127)]) + ((0.00021222400000000003 * fVec6[((IOTA - 76) & 127)]) + ((0.00041598900000000002 * fVec6[((IOTA - 73) & 127)]) + ((0.00030018800000000001 * fVec6[((IOTA - 72) & 127)]) + ((0.0020025400000000001 * fVec5[((IOTA - 65) & 127)]) + ((0.00152436 * fVec6[((IOTA - 69) & 127)]) + ((1.6178099999999998e-07 * fVec7[((IOTA - 125) & 127)]) + ((1.7421599999999998e-07 * fVec7[((IOTA - 124) & 127)]) + ((0.00021674500000000001 * fVec7[((IOTA - 115) & 127)]) + ((0.00028279200000000003 * fVec7[((IOTA - 114) & 127)]) + ((5.2515800000000003e-05 * fVec7[((IOTA - 113) & 127)]) + ((0.000133249 * fVec7[((IOTA - 112) & 127)]) + ((0.00038273500000000004 * fVec7[((IOTA - 111) & 127)]) + ((0.00043214699999999997 * fVec7[((IOTA - 110) & 127)]) + ((0.00027134800000000003 * fVec7[((IOTA - 109) & 127)]) + ((3.3736500000000005e-05 * fVec7[((IOTA - 107) & 127)]) + ((6.6819399999999999e-05 * fVec7[((IOTA - 106) & 127)]) + ((0.00038405399999999999 * fVec7[((IOTA - 103) & 127)]) + ((0.0010818799999999999 * fVec7[((IOTA - 102) & 127)]) + ((0.000419827 * fVec7[((IOTA - 101) & 127)]) + ((0.000472497 * fVec7[((IOTA - 100) & 127)]) + ((0.00040792200000000007 * fVec7[((IOTA - 99) & 127)]) + ((0.0017046100000000001 * fVec7[((IOTA - 91) & 127)]) + ((0.0017854000000000001 * fVec7[((IOTA - 90) & 127)]) + ((0.000146465 * fVec7[((IOTA - 89) & 127)]) + ((0.0011246299999999999 * fVec7[((IOTA - 88) & 127)]) + ((0.000121433 * fVec7[((IOTA - 85) & 127)]) + ((0.0015572399999999999 * fVec7[((IOTA - 84) & 127)]) + ((0.00286542 * fVec7[((IOTA - 81) & 127)]) + ((0.0035030399999999998 * fVec7[((IOTA - 80) & 127)]) + ((0.0013357099999999999 * fVec7[((IOTA - 79) & 127)]) + ((0.0028925200000000004 * fVec7[((IOTA - 71) & 127)]) + ((0.00488274 * fVec7[((IOTA - 70) & 127)]) + ((0.0016347499999999999 * fVec7[((IOTA - 69) & 127)]) + ((0.0014653400000000001 * fVec7[((IOTA - 68) & 127)]) + ((0.0016001099999999999 * fVec7[((IOTA - 67) & 127)]) + ((0.0032972399999999999 * fVec7[((IOTA - 39) & 127)]) + ((0.010154000000000002 * fVec7[((IOTA - 38) & 127)]) + ((0.019400900000000002 * fVec7[((IOTA - 37) & 127)]) + ((0.0108342 * fVec7[((IOTA - 36) & 127)]) + ((0.021263200000000003 * fVec7[((IOTA - 34) & 127)]) + ((0.020498300000000001 * fVec7[((IOTA - 33) & 127)]) + ((0.0187685 * fVec7[((IOTA - 32) & 127)]) + ((0.0086318699999999998 * fVec7[((IOTA - 31) & 127)]) + ((0.0119454 * fVec7[((IOTA - 30) & 127)]) + ((0.024111899999999999 * fVec7[((IOTA - 29) & 127)]) + ((0.0154331 * fVec7[((IOTA - 28) & 127)]) + ((0.011326600000000001 * fVec7[((IOTA - 27) & 127)]) + ((0.0041025300000000001 * fVec7[((IOTA - 26) & 127)]) + ((0.035046500000000001 * fVec7[((IOTA - 25) & 127)]) + ((0.0109835 * fVec7[((IOTA - 24) & 127)]) + ((0.008624660000000001 * fVec7[((IOTA - 21) & 127)]) + ((0.0030574400000000002 * fVec7[((IOTA - 17) & 127)]) + ((0.016297900000000001 * fVec7[((IOTA - 14) & 127)]) + ((0.053418799999999995 * fVec7[((IOTA - 13) & 127)]) + ((0.071327800000000011 * fVec7[((IOTA - 12) & 127)]) + ((0.0074569299999999996 * fVec7[((IOTA - 11) & 127)]) + ((0.00196452 * fVec7[((IOTA - 9) & 127)]) + ((1.4284499999999999e-06 * fVec7[((IOTA - 7) & 127)]) + ((0.00065664800000000002 * fVec7[((IOTA - 5) & 127)]) + ((0.00033454700000000003 * fVec7[((IOTA - 3) & 127)]) + ((4.19701e-05 * fVec7[((IOTA - 1) & 127)]) + ((1.6075699999999999e-05 * fTemp7) + ((0.00045853400000000008 * fVec7[((IOTA - 58) & 127)]) + ((0.0015582 * fVec7[((IOTA - 57) & 127)]) + ((0.0015001299999999999 * fVec7[((IOTA - 56) & 127)]) + ((0.0012102200000000001 * fVec7[((IOTA - 55) & 127)]) + ((2.4437900000000002e-05 * fVec7[((IOTA - 63) & 127)]) + ((0.00012724599999999999 * fVec7[((IOTA - 62) & 127)]) + ((2.1103299999999999e-06 * fVec8[((IOTA - 125) & 127)]) + ((5.5217400000000003e-06 * fVec8[((IOTA - 124) & 127)]) + ((3.11789e-06 * fVec8[((IOTA - 123) & 127)]) + ((9.0368300000000007e-05 * fVec8[((IOTA - 119) & 127)]) + ((0.00011532 * fVec8[((IOTA - 118) & 127)]) + ((1.9649999999999998e-06 * fVec8[((IOTA - 116) & 127)]) + ((0.00021442500000000002 * fVec8[((IOTA - 115) & 127)]) + ((0.00030905200000000004 * fVec8[((IOTA - 114) & 127)]) + ((4.7581900000000006e-05 * fVec8[((IOTA - 113) & 127)]) + ((0.00016311100000000002 * fVec8[((IOTA - 112) & 127)]) + ((0.00016924900000000001 * fVec8[((IOTA - 111) & 127)]) + ((0.00014172800000000001 * (fVec12[((IOTA - 109) & 127)] - fVec9[((IOTA - 78) & 127)])) + ((0.0010940099999999999 * fVec8[((IOTA - 85) & 127)]) + ((0.0017591500000000001 * fVec8[((IOTA - 84) & 127)]) + ((0.00040582000000000004 * fVec8[((IOTA - 83) & 127)]) + ((3.0118399999999995e-06 * fVec8[((IOTA - 109) & 127)]) + ((0.00053920599999999997 * fVec8[((IOTA - 108) & 127)]) + ((0.00034291200000000001 * fVec8[((IOTA - 107) & 127)]) + ((0.00026214100000000002 * fVec8[((IOTA - 106) & 127)]) + ((0.00023320700000000001 * fVec8[((IOTA - 105) & 127)]) + ((0.00041387999999999999 * fVec8[((IOTA - 102) & 127)]) + ((0.000138245 * fVec8[((IOTA - 101) & 127)]) + ((0.000478309 * fVec8[((IOTA - 100) & 127)]) + ((0.00091847499999999998 * fVec8[((IOTA - 99) & 127)]) + ((0.0013005599999999999 * fVec8[((IOTA - 98) & 127)]) + ((0.00113754 * fVec8[((IOTA - 97) & 127)]) + ((0.0026714199999999999 * fVec8[((IOTA - 93) & 127)]) + ((0.0021342599999999998 * fVec8[((IOTA - 92) & 127)]) + ((0.00024966300000000001 * fVec8[((IOTA - 90) & 127)]) + ((0.0023507699999999999 * fVec8[((IOTA - 89) & 127)]) + ((0.0046170200000000003 * fVec8[((IOTA - 88) & 127)]) + ((0.0013482500000000001 * fVec8[((IOTA - 87) & 127)]) + ((0.00225807 * fVec8[((IOTA - 82) & 127)]) + ((0.00237535 * fVec8[((IOTA - 81) & 127)]) + ((0.000120611 * fVec8[((IOTA - 80) & 127)]) + ((0.00060378299999999999 * fVec8[((IOTA - 78) & 127)]) + ((0.00026133000000000005 * fVec8[((IOTA - 73) & 127)]) + ((0.0020077300000000001 * fVec8[((IOTA - 63) & 127)]) + ((0.0032089100000000001 * fVec8[((IOTA - 62) & 127)]) + ((0.0010079800000000001 * fVec8[((IOTA - 61) & 127)]) + ((0.00063087099999999997 * fVec8[((IOTA - 60) & 127)]) + ((0.0044288800000000005 * fVec8[((IOTA - 59) & 127)]) + ((0.0047678900000000003 * fVec8[((IOTA - 58) & 127)]) + ((0.0024688500000000003 * fVec8[((IOTA - 57) & 127)]) + ((0.00277838 * fVec8[((IOTA - 56) & 127)]) + ((0.0075612199999999996 * fVec8[((IOTA - 55) & 127)]) + ((0.00761051 * fVec8[((IOTA - 54) & 127)]) + ((0.0018776900000000002 * fVec8[((IOTA - 52) & 127)]) + ((0.0082384199999999998 * fVec8[((IOTA - 51) & 127)]) + ((0.0050166199999999994 * fVec8[((IOTA - 50) & 127)]) + ((0.0032369600000000001 * fVec8[((IOTA - 49) & 127)]) + ((0.0040625900000000005 * fVec8[((IOTA - 48) & 127)]) + ((0.011856999999999999 * fVec8[((IOTA - 47) & 127)]) + ((0.0091953899999999995 * fVec8[((IOTA - 46) & 127)]) + ((0.0061361499999999999 * fVec8[((IOTA - 45) & 127)]) + ((0.015667299999999999 * fVec8[((IOTA - 44) & 127)]) + ((0.0121152 * fVec8[((IOTA - 43) & 127)]) + ((0.0102805 * fVec8[((IOTA - 41) & 127)]) + ((0.0249734 * fVec8[((IOTA - 40) & 127)]) + ((0.0028042699999999998 * fVec8[((IOTA - 39) & 127)]) + ((0.0112762 * fVec8[((IOTA - 37) & 127)]) + ((0.0070063399999999998 * fVec8[((IOTA - 36) & 127)]) + ((0.0037140800000000002 * fVec8[((IOTA - 35) & 127)]) + ((0.0077227400000000005 * fVec8[((IOTA - 32) & 127)]) + ((0.0031788599999999999 * fVec8[((IOTA - 31) & 127)]) + ((0.0055445599999999996 * fVec8[((IOTA - 25) & 127)]) + ((0.014456700000000001 * fVec8[((IOTA - 21) & 127)]) + ((0.043969699999999994 * fVec8[((IOTA - 17) & 127)]) + ((0.010103500000000001 * fVec8[((IOTA - 16) & 127)]) + ((0.026084999999999997 * fVec8[((IOTA - 15) & 127)]) + ((0.040577500000000002 * fVec8[((IOTA - 14) & 127)]) + ((0.0703236 * fVec8[((IOTA - 13) & 127)]) + ((0.086424600000000004 * fVec8[((IOTA - 12) & 127)]) + ((0.00526349 * fVec8[((IOTA - 11) & 127)]) + ((0.0021171000000000002 * fVec8[((IOTA - 9) & 127)]) + ((0.00027211800000000001 * fVec8[((IOTA - 7) & 127)]) + ((0.00074305500000000006 * fVec8[((IOTA - 5) & 127)]) + ((0.00070165199999999998 * fVec8[((IOTA - 3) & 127)]) + ((7.2115300000000004e-05 * fVec8[((IOTA - 1) & 127)]) + (((6.8184199999999995e-06 * fVec9[((IOTA - 124) & 127)]) + ((9.6015999999999997e-06 * fVec9[((IOTA - 123) & 127)]) + ((2.6161300000000003e-05 * fVec9[((IOTA - 122) & 127)]) + ((7.66841e-06 * fVec9[((IOTA - 120) & 127)]) + ((9.9956200000000017e-05 * fVec9[((IOTA - 119) & 127)]) + ((9.8288800000000007e-05 * fVec9[((IOTA - 118) & 127)]) + ((0.00016569499999999999 * fVec9[((IOTA - 115) & 127)]) + ((0.000131304 * fVec9[((IOTA - 114) & 127)]) + ((7.4421400000000012e-05 * fVec9[((IOTA - 113) & 127)]) + ((9.0750500000000005e-05 * fVec9[((IOTA - 109) & 127)]) + ((0.00081881900000000014 * fVec9[((IOTA - 96) & 127)]) + ((0.0015964400000000002 * fVec9[((IOTA - 95) & 127)]) + ((3.5872199999999999e-05 * fVec9[((IOTA - 92) & 127)]) + ((0.0020068299999999998 * fVec9[((IOTA - 91) & 127)]) + ((0.00050415000000000008 * fVec9[((IOTA - 90) & 127)]) + ((0.00041316100000000005 * fVec9[((IOTA - 89) & 127)]) + ((0.0011488700000000002 * fVec9[((IOTA - 88) & 127)]) + ((0.0011271300000000001 * fVec9[((IOTA - 87) & 127)]) + ((0.0018691199999999999 * fVec9[((IOTA - 81) & 127)]) + ((0.0023870700000000003 * fVec9[((IOTA - 80) & 127)]) + ((0.0014690600000000001 * fVec9[((IOTA - 79) & 127)]) + ((0.00020293100000000003 * fVec9[((IOTA - 75) & 127)]) + ((0.00042256999999999999 * fVec9[((IOTA - 74) & 127)]) + ((4.8196899999999999e-05 * fVec9[((IOTA - 73) & 127)]) + ((0.00081876599999999996 * fVec9[((IOTA - 69) & 127)]) + ((0.00116132 * fVec9[((IOTA - 65) & 127)]) + ((0.0012919000000000001 * fVec9[((IOTA - 60) & 127)]) + ((0.0018522 * fVec9[((IOTA - 53) & 127)]) + ((0.0040265300000000004 * fVec9[((IOTA - 52) & 127)]) + ((0.00164123 * fVec9[((IOTA - 49) & 127)]) + ((0.0035543000000000003 * fVec9[((IOTA - 48) & 127)]) + ((0.0019447000000000002 * fVec9[((IOTA - 47) & 127)]) + ((0.0045421799999999998 * fVec9[((IOTA - 46) & 127)]) + ((0.0032057800000000001 * fVec9[((IOTA - 45) & 127)]) + ((0.0098560599999999998 * fVec9[((IOTA - 43) & 127)]) + ((0.0055212400000000002 * fVec9[((IOTA - 42) & 127)]) + ((0.0039102499999999997 * fVec9[((IOTA - 40) & 127)]) + ((0.0014029000000000001 * fVec9[((IOTA - 39) & 127)]) + ((0.00081971100000000009 * fVec9[((IOTA - 37) & 127)]) + ((0.015326500000000002 * fVec9[((IOTA - 34) & 127)]) + ((0.0039000900000000002 * fVec9[((IOTA - 33) & 127)]) + ((0.0107983 * fVec9[((IOTA - 30) & 127)]) + ((0.0016720200000000002 * fVec9[((IOTA - 28) & 127)]) + ((0.0115642 * fVec9[((IOTA - 27) & 127)]) + ((0.0083424600000000012 * fVec9[((IOTA - 24) & 127)]) + ((0.0016058699999999999 * fVec9[((IOTA - 23) & 127)]) + ((0.00574575 * fVec9[((IOTA - 22) & 127)]) + ((0.0048227900000000004 * fVec9[((IOTA - 21) & 127)]) + ((0.0053663600000000006 * fVec9[((IOTA - 20) & 127)]) + ((0.0110708 * fVec9[((IOTA - 17) & 127)]) + ((0.0074311999999999998 * fVec9[((IOTA - 16) & 127)]) + ((0.00037238400000000002 * fVec9[((IOTA - 14) & 127)]) + ((0.00252045 * fVec9[((IOTA - 13) & 127)]) + ((0.00052853700000000004 * fVec9[((IOTA - 8) & 127)]) + ((0.00017706000000000002 * fVec9[((IOTA - 5) & 127)]) + ((0.00017067000000000002 * fVec9[((IOTA - 4) & 127)]) + ((2.8269799999999997e-06 * fVec9[((IOTA - 1) & 127)]) + ((0.0028610799999999998 * fVec9[((IOTA - 84) & 127)]) + ((0.00119961 * fVec9[((IOTA - 83) & 127)]) + ((3.5305499999999996e-06 * fVec10[((IOTA - 125) & 127)]) + ((4.1155299999999994e-06 * fVec10[((IOTA - 124) & 127)]) + ((8.4151000000000001e-06 * fVec10[((IOTA - 123) & 127)]) + ((2.8368800000000002e-05 * fVec10[((IOTA - 122) & 127)]) + ((6.1171800000000003e-05 * fVec10[((IOTA - 121) & 127)]) + ((4.5063100000000006e-05 * fVec10[((IOTA - 120) & 127)]) + ((0.00013187999999999999 * fVec10[((IOTA - 117) & 127)]) + ((9.0214000000000001e-05 * fVec10[((IOTA - 116) & 127)]) + ((4.5684500000000006e-05 * fVec10[((IOTA - 115) & 127)]) + ((0.0011123800000000001 * fVec9[((IOTA - 82) & 127)]) + ((0.00010922300000000001 * fVec10[((IOTA - 114) & 127)]) + ((0.00012787900000000001 * fVec10[((IOTA - 113) & 127)]) + ((0.00010810400000000001 * fVec10[((IOTA - 112) & 127)]) + ((8.4602100000000008e-05 * fVec10[((IOTA - 111) & 127)]) + ((0.00014129499999999999 * fVec10[((IOTA - 103) & 127)]) + ((0.0011713800000000001 * fVec10[((IOTA - 96) & 127)]) + ((0.00048376700000000002 * fVec10[((IOTA - 95) & 127)]) + ((0.00040982500000000005 * fVec10[((IOTA - 89) & 127)]) + ((0.00192194 * fVec10[((IOTA - 86) & 127)]) + ((0.00102436 * fVec10[((IOTA - 85) & 127)]) + ((0.00100778 * fVec10[((IOTA - 81) & 127)]) + ((0.00035581800000000004 * fVec10[((IOTA - 80) & 127)]) + ((0.00108387 * fVec10[((IOTA - 78) & 127)]) + ((0.00355741 * fVec10[((IOTA - 77) & 127)]) + ((0.00203951 * fVec10[((IOTA - 76) & 127)]) + ((0.00099792900000000005 * fVec10[((IOTA - 74) & 127)]) + ((0.0044921400000000004 * fVec10[((IOTA - 73) & 127)]) + ((0.00086068200000000009 * fVec10[((IOTA - 69) & 127)]) + ((0.0026953699999999999 * fVec10[((IOTA - 68) & 127)]) + ((0.00069267700000000005 * fVec10[((IOTA - 67) & 127)]) + ((0.0014122200000000001 * fVec10[((IOTA - 62) & 127)]) + ((0.00059297400000000002 * fVec10[((IOTA - 61) & 127)]) + ((0.00053443700000000002 * fVec10[((IOTA - 59) & 127)]) + ((0.0013940900000000002 * fVec10[((IOTA - 58) & 127)]) + ((0.0012833600000000001 * fVec10[((IOTA - 57) & 127)]) + ((0.0031110899999999999 * fVec10[((IOTA - 56) & 127)]) + ((0.0050713199999999998 * fVec10[((IOTA - 55) & 127)]) + ((0.0050443700000000003 * fVec10[((IOTA - 54) & 127)]) + ((0.00419002 * fVec10[((IOTA - 53) & 127)]) + ((0.0032877399999999999 * fVec10[((IOTA - 51) & 127)]) + ((0.0071723899999999998 * fVec10[((IOTA - 43) & 127)]) + ((0.0036162899999999999 * fVec10[((IOTA - 42) & 127)]) + ((0.010498400000000001 * fVec10[((IOTA - 41) & 127)]) + ((0.0021260799999999998 * fVec10[((IOTA - 40) & 127)]) + ((0.0065524800000000003 * fVec10[((IOTA - 38) & 127)]) + ((0.011496599999999999 * fVec10[((IOTA - 35) & 127)]) + ((0.0010427100000000001 * fVec10[((IOTA - 34) & 127)]) + ((0.0092546800000000012 * fVec10[((IOTA - 31) & 127)]) + ((0.0026388100000000001 * fVec10[((IOTA - 27) & 127)]) + ((0.0128167 * fVec10[((IOTA - 23) & 127)]) + ((0.011590800000000002 * fVec10[((IOTA - 17) & 127)]) + ((0.0038800599999999998 * fVec10[((IOTA - 16) & 127)]) + ((0.022263399999999999 * fVec10[((IOTA - 15) & 127)]) + ((0.020153300000000002 * fVec10[((IOTA - 14) & 127)]) + ((0.042437800000000005 * fVec10[((IOTA - 13) & 127)]) + ((0.047133599999999998 * fVec10[((IOTA - 12) & 127)]) + ((0.00567696 * fVec10[((IOTA - 11) & 127)]) + ((0.00143681 * fVec10[((IOTA - 9) & 127)]) + ((0.00086101400000000001 * fVec10[((IOTA - 7) & 127)]) + ((0.00058492199999999998 * fVec10[((IOTA - 5) & 127)]) + ((6.7829099999999997e-06 * fVec10[((IOTA - 4) & 127)]) + ((0.00025529600000000002 * fVec10[((IOTA - 3) & 127)]) + ((2.9285600000000003e-05 * fVec10[((IOTA - 1) & 127)]) + ((3.8661599999999993e-06 * fTemp10) + ((0.00909628 * fVec10[((IOTA - 50) & 127)]) + ((0.0036924600000000003 * fVec10[((IOTA - 49) & 127)]) + ((0.0046017100000000002 * fVec10[((IOTA - 48) & 127)]) + ((0.0020962000000000003 * fVec10[((IOTA - 45) & 127)]) + ((0.0073180300000000005 * fVec10[((IOTA - 47) & 127)]) + ((0.0070144200000000004 * fVec10[((IOTA - 46) & 127)]) + ((1.70851e-05 * fVec11[((IOTA - 122) & 127)]) + ((3.0657300000000002e-05 * fVec11[((IOTA - 121) & 127)]) + ((5.3340699999999993e-07 * fVec11[((IOTA - 120) & 127)]) + ((0.0052343400000000005 * fVec10[((IOTA - 44) & 127)]) + ((1.03751e-05 * fVec11[((IOTA - 118) & 127)]) + ((8.3314900000000018e-05 * fVec11[((IOTA - 117) & 127)]) + ((9.1851000000000012e-05 * fVec11[((IOTA - 112) & 127)]) + ((2.7205700000000003e-05 * fVec11[((IOTA - 111) & 127)]) + ((0.00152143 * fVec11[((IOTA - 82) & 127)]) + ((0.0032921200000000004 * fVec11[((IOTA - 81) & 127)]) + ((0.00193753 * fVec11[((IOTA - 80) & 127)]) + ((0.00062551900000000005 * fVec11[((IOTA - 79) & 127)]) + ((0.00096127300000000012 * fVec11[((IOTA - 70) & 127)]) + ((0.0042903999999999998 * fVec11[((IOTA - 69) & 127)]) + ((0.0037726500000000002 * fVec11[((IOTA - 68) & 127)]) + ((0.00041918000000000001 * fVec11[((IOTA - 66) & 127)]) + ((0.00047510500000000003 * fVec11[((IOTA - 63) & 127)]) + ((0.0017495700000000002 * fVec11[((IOTA - 62) & 127)]) + ((0.0013881099999999999 * fVec11[((IOTA - 61) & 127)]) + ((0.00142376 * fVec11[((IOTA - 59) & 127)]) + ((0.0013234399999999999 * fVec11[((IOTA - 58) & 127)]) + ((0.0023363800000000003 * fVec11[((IOTA - 57) & 127)]) + ((0.0047624399999999997 * fVec11[((IOTA - 56) & 127)]) + ((0.00035963800000000001 * fVec11[((IOTA - 55) & 127)]) + ((0.0014325799999999999 * fVec11[((IOTA - 53) & 127)]) + ((0.0035146700000000001 * fVec11[((IOTA - 50) & 127)]) + ((0.00013482199999999999 * fVec11[((IOTA - 46) & 127)]) + ((0.0031359700000000001 * fVec11[((IOTA - 44) & 127)]) + ((0.0033774600000000001 * fVec11[((IOTA - 43) & 127)]) + ((0.00043131800000000003 * fVec11[((IOTA - 41) & 127)]) + ((0.0017748 * fVec11[((IOTA - 37) & 127)]) + ((0.0095376600000000016 * fVec11[((IOTA - 34) & 127)]) + ((0.00354222 * fVec11[((IOTA - 31) & 127)]) + ((0.0099954400000000013 * fVec11[((IOTA - 30) & 127)]) + ((0.00581921 * fVec11[((IOTA - 27) & 127)]) + ((0.00064315100000000001 * fVec11[((IOTA - 26) & 127)]) + ((0.016502200000000002 * fVec11[((IOTA - 25) & 127)]) + ((0.026153100000000002 * fVec11[((IOTA - 19) & 127)]) + ((0.015518799999999999 * fVec11[((IOTA - 18) & 127)]) + ((0.011748099999999999 * fVec11[((IOTA - 16) & 127)]) + ((0.024044800000000002 * fVec11[((IOTA - 15) & 127)]) + ((0.011073200000000002 * fVec11[((IOTA - 12) & 127)]) + ((0.00016208700000000002 * fVec11[((IOTA - 11) & 127)]) + ((0.00023927800000000002 * fVec11[((IOTA - 9) & 127)]) + ((0.00099840900000000002 * fVec11[((IOTA - 7) & 127)]) + ((0.00026075800000000004 * fVec11[((IOTA - 3) & 127)]) + ((9.0296599999999999e-06 * fVec12[((IOTA - 122) & 127)]) + ((1.9893500000000002e-05 * fVec12[((IOTA - 118) & 127)]) + ((3.7877500000000005e-05 * fVec12[((IOTA - 115) & 127)]) + ((0.00027007400000000003 * fVec12[((IOTA - 103) & 127)]) + ((0.00044415800000000005 * fVec12[((IOTA - 102) & 127)]) + ((0.00031515600000000003 * fVec12[((IOTA - 100) & 127)]) + ((0.00068420899999999997 * fVec12[((IOTA - 99) & 127)]) + ((0.00049268100000000002 * fVec12[((IOTA - 96) & 127)]) + ((0.0015305800000000001 * fVec12[((IOTA - 91) & 127)]) + ((0.0017284399999999999 * fVec12[((IOTA - 90) & 127)]) + ((0.00127253 * fVec12[((IOTA - 89) & 127)]) + ((0.00166752 * fVec12[((IOTA - 88) & 127)]) + ((0.00033490500000000003 * fVec12[((IOTA - 85) & 127)]) + ((0.0011273899999999998 * fVec12[((IOTA - 84) & 127)]) + ((6.2119200000000007e-05 * fVec12[((IOTA - 82) & 127)]) + ((0.0017261400000000001 * fVec12[((IOTA - 81) & 127)]) + ((0.00048162000000000004 * fVec12[((IOTA - 80) & 127)]) + ((0.00071563500000000006 * fVec12[((IOTA - 79) & 127)]) + ((1.14088e-05 * fVec12[((IOTA - 77) & 127)]) + ((0.0014551499999999999 * fVec12[((IOTA - 76) & 127)]) + ((0.00078290800000000002 * fVec12[((IOTA - 73) & 127)]) + ((0.0013603899999999999 * fVec12[((IOTA - 72) & 127)]) + ((0.00076972400000000006 * fVec12[((IOTA - 71) & 127)]) + ((0.0011577500000000001 * fVec12[((IOTA - 70) & 127)]) + ((0.0027559100000000003 * fVec12[((IOTA - 69) & 127)]) + ((0.0011045300000000001 * fVec12[((IOTA - 65) & 127)]) + ((0.0019003900000000001 * fVec12[((IOTA - 64) & 127)]) + ((5.8659000000000002e-05 * fVec12[((IOTA - 63) & 127)]) + ((0.00034302399999999999 * fVec12[((IOTA - 60) & 127)]) + ((0.0015042599999999999 * fVec12[((IOTA - 55) & 127)]) + ((0.0038506399999999998 * fVec12[((IOTA - 54) & 127)]) + ((0.00280679 * fVec12[((IOTA - 53) & 127)]) + ((0.00191281 * fVec12[((IOTA - 51) & 127)]) + ((0.0030454200000000001 * fVec12[((IOTA - 47) & 127)]) + ((0.00241033 * fVec12[((IOTA - 41) & 127)]) + ((0.0054447699999999998 * fVec12[((IOTA - 34) & 127)]) + ((0.0027451799999999998 * fVec12[((IOTA - 33) & 127)]) + ((0.00192986 * fVec12[((IOTA - 32) & 127)]) + ((0.0050891900000000004 * fVec12[((IOTA - 29) & 127)]) + ((0.010143899999999999 * fVec12[((IOTA - 28) & 127)]) + ((0.0039649200000000002 * fVec12[((IOTA - 27) & 127)]) + ((0.014927200000000002 * fVec12[((IOTA - 24) & 127)]) + ((0.010792999999999999 * fVec12[((IOTA - 23) & 127)]) + ((0.008510160000000001 * fVec12[((IOTA - 22) & 127)]) + ((0.0223719 * fVec12[((IOTA - 21) & 127)]) + ((0.0123166 * fVec12[((IOTA - 20) & 127)]) + ((0.017947399999999999 * fVec12[((IOTA - 19) & 127)]) + ((0.0073694100000000007 * fVec12[((IOTA - 14) & 127)]) + ((0.0142655 * fVec12[((IOTA - 12) & 127)]) + ((0.0067548000000000009 * fVec12[((IOTA - 11) & 127)]) + ((0.0025108100000000005 * fVec12[((IOTA - 9) & 127)]) + ((0.00235191 * fVec12[((IOTA - 7) & 127)]) + ((0.00091979399999999993 * fVec12[((IOTA - 5) & 127)]) + ((0.00050699800000000004 * fVec12[((IOTA - 3) & 127)]) + ((0.0010344 * fVec12[((IOTA - 46) & 127)]) + ((0.0021753000000000002 * fVec12[((IOTA - 43) & 127)]) + ((6.9716599999999994e-06 * fVec13[((IOTA - 124) & 127)]) + ((9.8485200000000004e-06 * fVec13[((IOTA - 118) & 127)]) + ((0.00010357900000000001 * fVec13[((IOTA - 114) & 127)]) + ((0.00042897299999999997 * fVec13[((IOTA - 113) & 127)]) + ((0.00029024100000000006 * fVec13[((IOTA - 112) & 127)]) + ((9.8297200000000012e-05 * fVec13[((IOTA - 111) & 127)]) + ((0.00020804999999999999 * fVec13[((IOTA - 110) & 127)]) + ((0.00054109500000000001 * fVec13[((IOTA - 109) & 127)]) + ((0.00083962700000000002 * fVec13[((IOTA - 108) & 127)]) + ((0.00056389100000000007 * fVec13[((IOTA - 107) & 127)]) + ((0.00051816800000000006 * fVec13[((IOTA - 106) & 127)]) + ((0.00065456900000000003 * fVec13[((IOTA - 105) & 127)]) + ((0.00088825400000000011 * fVec13[((IOTA - 104) & 127)]) + ((0.000446193 * fVec13[((IOTA - 103) & 127)]) + ((0.00071199100000000003 * fVec13[((IOTA - 102) & 127)]) + ((0.0012468500000000001 * fVec13[((IOTA - 101) & 127)]) + ((0.0012435300000000001 * fVec13[((IOTA - 100) & 127)]) + ((0.0010388900000000002 * fVec13[((IOTA - 99) & 127)]) + ((0.00170268 * fVec13[((IOTA - 98) & 127)]) + ((0.00126004 * fVec13[((IOTA - 97) & 127)]) + ((0.0013548899999999999 * fVec13[((IOTA - 93) & 127)]) + ((0.0020163799999999999 * fVec13[((IOTA - 92) & 127)]) + ((0.0010302600000000001 * fVec13[((IOTA - 89) & 127)]) + ((0.00142103 * fVec13[((IOTA - 88) & 127)]) + ((0.0020040399999999999 * fVec13[((IOTA - 82) & 127)]) + ((0.0030592000000000002 * fVec13[((IOTA - 81) & 127)]) + ((0.00082976100000000015 * fVec13[((IOTA - 80) & 127)]) + ((0.00083032800000000008 * fVec13[((IOTA - 79) & 127)]) + ((0.00146794 * fVec13[((IOTA - 78) & 127)]) + ((0.0029912300000000001 * fVec13[((IOTA - 77) & 127)]) + ((0.0019008400000000002 * fVec13[((IOTA - 76) & 127)]) + ((0.00032308700000000001 * fVec13[((IOTA - 75) & 127)]) + ((0.00121188 * fVec13[((IOTA - 74) & 127)]) + ((0.0015286800000000001 * fVec13[((IOTA - 73) & 127)]) + ((0.0016313200000000001 * fVec13[((IOTA - 72) & 127)]) + ((0.0019843199999999999 * fVec13[((IOTA - 71) & 127)]) + ((0.0017147500000000001 * fVec13[((IOTA - 69) & 127)]) + ((4.5241600000000004e-05 * fVec13[((IOTA - 68) & 127)]) + ((0.00193403 * fVec13[((IOTA - 67) & 127)]) + ((0.00103439 * fVec13[((IOTA - 66) & 127)]) + ((0.00025587599999999999 * fVec13[((IOTA - 61) & 127)]) + ((0.0014905299999999999 * fVec13[((IOTA - 60) & 127)]) + ((0.000502175 * fVec13[((IOTA - 59) & 127)]) + ((0.00055048599999999999 * fVec13[((IOTA - 58) & 127)]) + ((0.00049892100000000004 * fVec13[((IOTA - 50) & 127)]) + ((0.0029968600000000001 * fVec13[((IOTA - 47) & 127)]) + ((0.0024887899999999998 * fVec13[((IOTA - 46) & 127)]) + ((0.0030320900000000003 * fVec13[((IOTA - 41) & 127)]) + ((0.0076587399999999998 * fVec13[((IOTA - 40) & 127)]) + ((0.010064699999999999 * fVec13[((IOTA - 35) & 127)]) + ((0.030136699999999999 * fVec13[((IOTA - 32) & 127)]) + ((0.017341200000000001 * fVec13[((IOTA - 31) & 127)]) + ((0.039170099999999999 * fVec13[((IOTA - 28) & 127)]) + ((0.00031563800000000003 * fVec13[((IOTA - 27) & 127)]) + ((0.00069887100000000011 * fVec13[((IOTA - 25) & 127)]) + ((0.025458500000000002 * fVec13[((IOTA - 24) & 127)]) + ((0.0120184 * fVec13[((IOTA - 21) & 127)]) + ((0.011691100000000001 * fVec13[((IOTA - 19) & 127)]) + ((0.0053095800000000004 * fVec13[((IOTA - 14) & 127)]) + ((0.0072171800000000001 * fVec13[((IOTA - 12) & 127)]) + ((0.0030320200000000003 * fVec13[((IOTA - 11) & 127)]) + ((0.00131485 * fVec13[((IOTA - 9) & 127)]) + ((0.0011081700000000001 * fVec13[((IOTA - 7) & 127)]) + ((0.00036208399999999998 * fVec13[((IOTA - 5) & 127)]) + ((0.00017773600000000001 * fVec13[((IOTA - 3) & 127)]) + ((0.0031219500000000001 * fVec13[((IOTA - 70) & 127)]) + ((6.574880000000001e-05 * fVec14[((IOTA - 115) & 127)]) + ((7.5893800000000015e-05 * fVec14[((IOTA - 114) & 127)]) + ((0.00055035400000000008 * fVec14[((IOTA - 113) & 127)]) + ((0.00054230400000000007 * fVec14[((IOTA - 112) & 127)]) + ((0.00038862600000000004 * fVec14[((IOTA - 111) & 127)]) + ((0.00038355300000000002 * fVec14[((IOTA - 110) & 127)]) + ((0.0010789999999999999 * fVec14[((IOTA - 109) & 127)]) + ((0.00127535 * fVec14[((IOTA - 108) & 127)]) + ((0.00026040700000000004 * fVec14[((IOTA - 107) & 127)]) + ((0.00064190699999999994 * fVec14[((IOTA - 106) & 127)]) + ((0.0012643700000000001 * fVec14[((IOTA - 105) & 127)]) + ((0.0014951399999999998 * fVec14[((IOTA - 104) & 127)]) + ((0.00096466700000000011 * fVec14[((IOTA - 103) & 127)]) + ((0.00062200899999999997 * fVec14[((IOTA - 102) & 127)]) + ((0.0013151 * fVec14[((IOTA - 101) & 127)]) + ((0.00155276 * fVec14[((IOTA - 100) & 127)]) + ((0.00147963 * fVec14[((IOTA - 99) & 127)]) + ((0.0012132899999999999 * fVec14[((IOTA - 96) & 127)]) + ((5.4447799999999994e-06 * fVec14[((IOTA - 91) & 127)]) + ((0.00060830200000000002 * fVec14[((IOTA - 82) & 127)]) + ((0.00073753600000000001 * fVec14[((IOTA - 81) & 127)]) + ((4.1098800000000007e-05 * fVec14[((IOTA - 76) & 127)]) + ((0.00031511100000000003 * fVec14[((IOTA - 74) & 127)]) + ((0.0011385200000000001 * fVec14[((IOTA - 73) & 127)]) + ((0.0023925600000000002 * fVec14[((IOTA - 72) & 127)]) + ((0.00191902 * fVec14[((IOTA - 71) & 127)]) + ((0.00073584900000000001 * fVec14[((IOTA - 70) & 127)]) + ((0.0033698500000000002 * fVec14[((IOTA - 69) & 127)]) + ((0.0046562499999999998 * fVec14[((IOTA - 68) & 127)]) + ((0.0026088700000000001 * fVec14[((IOTA - 67) & 127)]) + ((0.0010497099999999999 * fVec14[((IOTA - 95) & 127)]) + ((0.0015381499999999998 * fVec14[((IOTA - 66) & 127)]) + ((0.00177024 * fVec14[((IOTA - 65) & 127)]) + ((0.0027169400000000002 * fVec14[((IOTA - 64) & 127)]) + ((0.0011334100000000001 * fVec14[((IOTA - 61) & 127)]) + ((0.0012374899999999999 * fVec14[((IOTA - 57) & 127)]) + ((0.00350462 * fVec14[((IOTA - 56) & 127)]) + ((0.00029472900000000003 * fVec14[((IOTA - 55) & 127)]) + ((0.00161133 * fVec14[((IOTA - 49) & 127)]) + ((0.0043256300000000004 * fVec14[((IOTA - 43) & 127)]) + ((0.0039263700000000002 * fVec14[((IOTA - 38) & 127)]) + ((0.0193136 * fVec14[((IOTA - 37) & 127)]) + ((0.0137585 * fVec14[((IOTA - 34) & 127)]) + ((0.016165499999999999 * fVec14[((IOTA - 31) & 127)]) + ((0.0200181 * fVec14[((IOTA - 30) & 127)]) + ((0.00436148 * fVec14[((IOTA - 27) & 127)]) + ((0.0057804000000000006 * fVec14[((IOTA - 22) & 127)]) + ((0.037111700000000004 * fVec14[((IOTA - 19) & 127)]) + ((0.014907300000000002 * fVec14[((IOTA - 18) & 127)]) + ((0.0092683000000000001 * fVec14[((IOTA - 16) & 127)]) + ((0.0158698 * fVec14[((IOTA - 15) & 127)]) + ((0.00489909 * fVec14[((IOTA - 12) & 127)]) + ((0.00036272099999999999 * fVec14[((IOTA - 11) & 127)]) + ((0.00043871700000000003 * fVec14[((IOTA - 10) & 127)]) + ((0.00018132700000000001 * fVec14[((IOTA - 9) & 127)]) + ((0.00097058900000000011 * fVec14[((IOTA - 7) & 127)]) + ((0.00016036100000000001 * fVec14[((IOTA - 6) & 127)]) + ((0.00019245000000000002 * fVec14[((IOTA - 3) & 127)]) + ((0.0115485 * fVec14[((IOTA - 25) & 127)]) + ((1.8656099999999998e-06 * fVec0[((IOTA - 126) & 127)]) + ((2.5639300000000001e-06 * fVec0[((IOTA - 125) & 127)]) + ((8.3185099999999991e-06 * fVec0[((IOTA - 124) & 127)]) + ((3.8801999999999999e-05 * fVec0[((IOTA - 123) & 127)]) + ((6.5230500000000005e-05 * fVec0[((IOTA - 122) & 127)]) + ((4.81323e-05 * fVec0[((IOTA - 121) & 127)]) + ((3.1175000000000006e-05 * fVec0[((IOTA - 120) & 127)]) + ((1.1129000000000001e-05 * fVec0[((IOTA - 119) & 127)]) + ((0.00016385400000000001 * fVec0[((IOTA - 118) & 127)]) + ((0.000137362 * fVec0[((IOTA - 117) & 127)]) + ((9.139900000000001e-05 * fVec0[((IOTA - 116) & 127)]) + ((0.00012562199999999998 * fVec0[((IOTA - 115) & 127)]) + ((0.00025063300000000005 * fVec0[((IOTA - 113) & 127)]) + ((0.000272806 * fVec0[((IOTA - 112) & 127)]) + ((0.000314307 * fVec0[((IOTA - 111) & 127)]) + ((0.00026935700000000002 * fVec0[((IOTA - 110) & 127)]) + ((0.00027303400000000002 * fVec0[((IOTA - 109) & 127)]) + ((8.74662e-06 * fVec0[((IOTA - 108) & 127)]) + ((0.0032127699999999998 * fVec14[((IOTA - 23) & 127)]) + ((0.00035653000000000003 * fVec0[((IOTA - 106) & 127)]) + ((0.000138672 * fVec0[((IOTA - 91) & 127)]) + ((0.0011749499999999999 * fVec0[((IOTA - 81) & 127)]) + ((0.00092974400000000003 * fVec0[((IOTA - 76) & 127)]) + ((0.00189912 * fVec0[((IOTA - 75) & 127)]) + ((0.0018498099999999999 * fVec0[((IOTA - 74) & 127)]) + ((0.00102903 * fVec0[((IOTA - 70) & 127)]) + ((0.0023879000000000001 * fVec0[((IOTA - 69) & 127)]) + ((0.0030104600000000004 * fVec0[((IOTA - 68) & 127)]) + ((0.00157916 * fVec0[((IOTA - 67) & 127)]) + ((0.0021747000000000003 * fVec0[((IOTA - 66) & 127)]) + ((0.0024374800000000001 * fVec0[((IOTA - 65) & 127)]) + ((0.0017056100000000002 * fVec0[((IOTA - 64) & 127)]) + ((0.00246014 * fVec0[((IOTA - 63) & 127)]) + ((0.0044470300000000003 * fVec0[((IOTA - 62) & 127)]) + ((0.0047484400000000005 * fVec0[((IOTA - 61) & 127)]) + ((0.0027951100000000004 * fVec0[((IOTA - 60) & 127)]) + ((0.0047547600000000002 * fVec0[((IOTA - 59) & 127)]) + ((0.0037710400000000002 * fVec0[((IOTA - 58) & 127)]) + ((0.0045419900000000001 * fVec0[((IOTA - 57) & 127)]) + ((0.010441600000000001 * fVec0[((IOTA - 56) & 127)]) + ((0.0100582 * fVec0[((IOTA - 55) & 127)]) + ((0.0076609499999999997 * fVec0[((IOTA - 54) & 127)]) + ((0.0068764300000000002 * fVec0[((IOTA - 53) & 127)]) + ((0.0095819500000000005 * fVec0[((IOTA - 52) & 127)]) + ((0.015913200000000002 * fVec0[((IOTA - 51) & 127)]) + ((0.015119400000000002 * fVec0[((IOTA - 50) & 127)]) + ((0.0128559 * fVec0[((IOTA - 49) & 127)]) + ((0.016606200000000002 * fVec0[((IOTA - 48) & 127)]) + ((0.016194200000000002 * fVec0[((IOTA - 47) & 127)]) + ((0.0116756 * fVec0[((IOTA - 46) & 127)]) + ((0.016079200000000002 * fVec0[((IOTA - 44) & 127)]) + ((0.0188738 * fVec0[((IOTA - 43) & 127)]) + ((0.022184499999999999 * fVec0[((IOTA - 42) & 127)]) + ((0.020373700000000002 * fVec0[((IOTA - 41) & 127)]) + ((0.0086227300000000003 * fVec0[((IOTA - 40) & 127)]) + ((0.015368999999999999 * fVec0[((IOTA - 39) & 127)]) + ((0.025263300000000002 * fVec0[((IOTA - 38) & 127)]) + ((0.026966700000000003 * fVec0[((IOTA - 37) & 127)]) + ((0.023967600000000002 * fVec0[((IOTA - 36) & 127)]) + ((0.0180915 * fVec0[((IOTA - 35) & 127)]) + ((0.026436999999999999 * fVec0[((IOTA - 34) & 127)]) + ((0.035762599999999999 * fVec0[((IOTA - 33) & 127)]) + ((0.019380700000000001 * fVec0[((IOTA - 32) & 127)]) + ((0.0052166499999999998 * fVec0[((IOTA - 31) & 127)]) + ((0.012525700000000001 * fVec0[((IOTA - 30) & 127)]) + ((0.039007399999999998 * fVec0[((IOTA - 29) & 127)]) + ((0.039406500000000004 * fVec0[((IOTA - 28) & 127)]) + ((0.0160175 * fVec0[((IOTA - 27) & 127)]) + ((0.0095142000000000004 * fVec0[((IOTA - 26) & 127)]) + ((0.00060328500000000006 * fVec0[((IOTA - 25) & 127)]) + ((0.042794800000000008 * fVec0[((IOTA - 24) & 127)]) + ((0.034687500000000003 * fVec0[((IOTA - 23) & 127)]) + ((0.0011779100000000001 * fVec0[((IOTA - 10) & 127)]) + ((0.000167329 * fVec0[((IOTA - 8) & 127)]) + ((0.00041459900000000003 * fVec0[((IOTA - 6) & 127)]) + ((0.00031506200000000001 * fVec0[((IOTA - 2) & 127)]) + ((0.00054486499999999995 * fVec15[((IOTA - 97) & 127)]) + ((0.0024969700000000003 * fVec15[((IOTA - 92) & 127)]) + ((0.0014838199999999998 * fVec15[((IOTA - 91) & 127)]) + ((0.00134669 * fVec15[((IOTA - 89) & 127)]) + ((0.00141242 * fVec15[((IOTA - 88) & 127)]) + ((0.000311911 * fVec15[((IOTA - 84) & 127)]) + ((((((0.00017378000000000001 * fVec15[((IOTA - 2) & 127)]) + (0.015415000000000002 * fVec15[((IOTA - 24) & 127)])) + (0.0114164 * fVec15[((IOTA - 28) & 127)])) + (0.0029673899999999999 * fVec15[((IOTA - 47) & 127)])) + (0.0010694400000000001 * fVec15[((IOTA - 81) & 127)])) + (0.008875280000000001 * fVec0[((IOTA - 45) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.68655e-05 * fTemp8))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (2.0610900000000003e-05 * fTemp2)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (fRec1[0] * (((9.5870599999999998e-07 * fVec2[((IOTA - 126) & 127)]) + ((6.1298299999999997e-06 * fVec2[((IOTA - 125) & 127)]) + ((1.7529100000000001e-05 * fVec2[((IOTA - 124) & 127)]) + ((1.3215300000000002e-05 * fVec2[((IOTA - 123) & 127)]) + ((3.73611e-06 * fVec2[((IOTA - 122) & 127)]) + ((1.4631700000000003e-05 * fVec2[((IOTA - 121) & 127)]) + ((7.9383399999999993e-06 * fVec2[((IOTA - 120) & 127)]) + ((0.000163275 * fVec2[((IOTA - 108) & 127)]) + ((5.2133700000000005e-05 * fVec2[((IOTA - 104) & 127)]) + ((1.7659600000000003e-05 * fVec2[((IOTA - 103) & 127)]) + ((0.00026651699999999997 * fVec2[((IOTA - 101) & 127)]) + ((0.00044441800000000003 * fVec2[((IOTA - 100) & 127)]) + ((0.000204947 * fVec2[((IOTA - 97) & 127)]) + ((0.0021076800000000002 * fVec2[((IOTA - 96) & 127)]) + ((0.0019922500000000001 * fVec2[((IOTA - 95) & 127)]) + ((0.000140679 * fVec2[((IOTA - 94) & 127)]) + ((0.0011280300000000001 * fVec2[((IOTA - 93) & 127)]) + ((0.0019903999999999998 * fVec2[((IOTA - 92) & 127)]) + ((0.000397475 * fVec2[((IOTA - 91) & 127)]) + ((0.00035911300000000004 * fVec2[((IOTA - 85) & 127)]) + ((0.000127816 * fVec2[((IOTA - 81) & 127)]) + ((0.00177585 * fVec2[((IOTA - 79) & 127)]) + ((0.0014990399999999999 * fVec2[((IOTA - 80) & 127)]) + ((5.3717400000000002e-05 * fVec2[((IOTA - 73) & 127)]) + ((0.00100658 * fVec2[((IOTA - 72) & 127)]) + ((0.00017406600000000001 * fVec2[((IOTA - 71) & 127)]) + ((0.00071912600000000005 * fVec2[((IOTA - 67) & 127)]) + ((0.00072212600000000002 * fVec2[((IOTA - 64) & 127)]) + ((0.0049928100000000003 * fVec2[((IOTA - 63) & 127)]) + ((0.0037463600000000002 * fVec2[((IOTA - 62) & 127)]) + ((0.0011032699999999999 * fVec2[((IOTA - 61) & 127)]) + ((1.5565300000000002e-05 * fVec2[((IOTA - 59) & 127)]) + ((0.0010646199999999998 * fVec2[((IOTA - 55) & 127)]) + ((0.0014746 * fVec2[((IOTA - 54) & 127)]) + ((0.0030302600000000003 * fVec2[((IOTA - 53) & 127)]) + ((0.0025201400000000001 * fVec2[((IOTA - 52) & 127)]) + ((0.0023052000000000003 * fVec2[((IOTA - 51) & 127)]) + ((0.0064089099999999994 * fVec2[((IOTA - 50) & 127)]) + ((0.0062176200000000001 * fVec2[((IOTA - 49) & 127)]) + ((0.00136571 * fVec2[((IOTA - 48) & 127)]) + ((0.000484007 * fVec2[((IOTA - 47) & 127)]) + ((0.0053646300000000004 * fVec2[((IOTA - 43) & 127)]) + ((0.00049839000000000003 * fVec2[((IOTA - 40) & 127)]) + ((0.0029793300000000001 * fVec2[((IOTA - 39) & 127)]) + ((0.00011673199999999999 * fVec2[((IOTA - 38) & 127)]) + ((0.0021503299999999998 * fVec2[((IOTA - 34) & 127)]) + ((0.0040663799999999996 * fVec2[((IOTA - 31) & 127)]) + ((0.022960699999999997 * fVec2[((IOTA - 30) & 127)]) + ((0.016656999999999998 * fVec2[((IOTA - 26) & 127)]) + ((0.026276299999999999 * fVec2[((IOTA - 23) & 127)]) + ((0.020495800000000002 * fVec2[((IOTA - 22) & 127)]) + ((0.023659500000000003 * fVec2[((IOTA - 21) & 127)]) + ((0.0210797 * fVec2[((IOTA - 20) & 127)]) + ((0.027862700000000001 * fVec2[((IOTA - 19) & 127)]) + ((0.015660400000000001 * fVec2[((IOTA - 16) & 127)]) + ((0.0069313100000000004 * fVec2[((IOTA - 12) & 127)]) + ((0.0015239000000000001 * fVec2[((IOTA - 11) & 127)]) + ((0.0018694900000000001 * fVec2[((IOTA - 7) & 127)]) + ((0.00091357700000000016 * fVec2[((IOTA - 5) & 127)]) + ((0.00034025 * fVec2[((IOTA - 3) & 127)]) + (((2.1476600000000004e-05 * fVec1[((IOTA - 122) & 127)]) + ((2.6092200000000004e-05 * fVec1[((IOTA - 121) & 127)]) + ((4.1403999999999999e-05 * fVec1[((IOTA - 116) & 127)]) + ((0.00020260300000000001 * fVec1[((IOTA - 113) & 127)]) + ((0.00014776200000000001 * fVec1[((IOTA - 112) & 127)]) + ((0.00045834100000000002 * fVec1[((IOTA - 109) & 127)]) + ((0.00029239199999999999 * fVec1[((IOTA - 108) & 127)]) + ((0.00098381599999999999 * fVec1[((IOTA - 90) & 127)]) + ((0.0011919700000000001 * fVec1[((IOTA - 89) & 127)]) + ((0.00086149400000000008 * fVec1[((IOTA - 77) & 127)]) + ((0.00058334300000000006 * fVec1[((IOTA - 76) & 127)]) + ((0.0013006599999999999 * fVec1[((IOTA - 75) & 127)]) + ((0.00041085900000000007 * fVec1[((IOTA - 71) & 127)]) + ((0.0012948999999999999 * fVec1[((IOTA - 66) & 127)]) + ((0.0018707700000000001 * fVec1[((IOTA - 65) & 127)]) + ((0.00060252200000000008 * fVec1[((IOTA - 64) & 127)]) + ((0.0005644370000000001 * fVec1[((IOTA - 62) & 127)]) + ((0.00017768299999999999 * fVec1[((IOTA - 59) & 127)]) + ((0.0039611100000000003 * fVec1[((IOTA - 58) & 127)]) + ((0.0042174700000000001 * fVec1[((IOTA - 57) & 127)]) + ((0.0044953900000000001 * fVec1[((IOTA - 56) & 127)]) + ((0.0022670200000000002 * fVec1[((IOTA - 55) & 127)]) + ((0.0021868500000000002 * fVec1[((IOTA - 52) & 127)]) + ((9.3079100000000001e-05 * fVec1[((IOTA - 51) & 127)]) + ((0.0021948699999999998 * fVec1[((IOTA - 49) & 127)]) + ((0.0045924300000000006 * fVec1[((IOTA - 46) & 127)]) + ((0.0084135899999999986 * fVec1[((IOTA - 45) & 127)]) + ((0.00067984600000000012 * fVec1[((IOTA - 40) & 127)]) + ((0.00402003 * fVec1[((IOTA - 39) & 127)]) + ((0.017721000000000001 * fVec1[((IOTA - 36) & 127)]) + ((0.0035177100000000003 * fVec1[((IOTA - 33) & 127)]) + ((0.012616499999999999 * fVec1[((IOTA - 32) & 127)]) + ((0.0087009700000000006 * fVec1[((IOTA - 31) & 127)]) + ((0.00866514 * fVec1[((IOTA - 26) & 127)]) + ((0.0044089000000000003 * fVec1[((IOTA - 25) & 127)]) + ((0.023826100000000003 * fVec1[((IOTA - 24) & 127)]) + ((0.0116758 * fVec1[((IOTA - 23) & 127)]) + ((0.0080310599999999996 * fVec1[((IOTA - 19) & 127)]) + ((0.0123386 * fVec1[((IOTA - 18) & 127)]) + ((0.0091981400000000005 * fVec1[((IOTA - 15) & 127)]) + ((0.00114058 * fVec1[((IOTA - 13) & 127)]) + ((0.0133545 * fVec1[((IOTA - 12) & 127)]) + ((0.00042513400000000003 * fVec1[((IOTA - 10) & 127)]) + ((0.00031202200000000002 * fVec1[((IOTA - 9) & 127)]) + ((0.00059449899999999996 * fVec1[((IOTA - 7) & 127)]) + ((9.0752000000000015e-05 * fVec1[((IOTA - 3) & 127)]) + ((2.8761299999999999e-06 * fVec1[((IOTA - 1) & 127)]) + ((3.51439e-07 * fTemp1) + ((0.00051877400000000006 * fVec1[((IOTA - 105) & 127)]) + ((0.00062261900000000004 * fVec1[((IOTA - 104) & 127)]) + ((0.000143232 * fVec1[((IOTA - 103) & 127)]) + ((9.2107400000000005e-05 * fVec1[((IOTA - 101) & 127)]) + ((0.000784532 * fVec1[((IOTA - 100) & 127)]) + ((0.00071355700000000008 * fVec1[((IOTA - 99) & 127)]) + ((0.00065499700000000004 * fVec1[((IOTA - 98) & 127)]) + ((0.00027689300000000001 * fVec1[((IOTA - 97) & 127)]) + ((5.6064900000000006e-05 * fVec3[((IOTA - 119) & 127)]) + ((2.9367600000000003e-05 * fVec3[((IOTA - 118) & 127)]) + ((3.3220999999999999e-05 * fVec3[((IOTA - 117) & 127)]) + ((0.00012805500000000002 * fVec3[((IOTA - 114) & 127)]) + ((0.000103477 * fVec3[((IOTA - 113) & 127)]) + ((0.00025872700000000005 * fVec3[((IOTA - 112) & 127)]) + ((0.00029786899999999998 * fVec3[((IOTA - 111) & 127)]) + ((0.00033988700000000003 * fVec3[((IOTA - 110) & 127)]) + ((9.3482300000000004e-05 * fVec3[((IOTA - 109) & 127)]) + ((0.00013677700000000001 * fVec3[((IOTA - 108) & 127)]) + ((0.00057155300000000003 * fVec3[((IOTA - 107) & 127)]) + ((0.00044084399999999997 * fVec3[((IOTA - 106) & 127)]) + ((0.00058204100000000005 * fVec3[((IOTA - 105) & 127)]) + ((0.00042623200000000002 * fVec3[((IOTA - 104) & 127)]) + ((0.00025379299999999999 * fVec3[((IOTA - 103) & 127)]) + ((0.0004933950000000001 * fVec3[((IOTA - 102) & 127)]) + ((0.00052014400000000005 * fVec3[((IOTA - 99) & 127)]) + ((0.0012122999999999999 * fVec3[((IOTA - 98) & 127)]) + ((0.00045970700000000006 * fVec3[((IOTA - 97) & 127)]) + ((0.00024474399999999997 * fVec3[((IOTA - 96) & 127)]) + ((0.00061810000000000001 * fVec3[((IOTA - 95) & 127)]) + ((4.9281200000000005e-05 * fVec3[((IOTA - 94) & 127)]) + ((0.00026790500000000003 * fVec3[((IOTA - 93) & 127)]) + ((0.00057291299999999998 * fVec3[((IOTA - 88) & 127)]) + ((0.00027621200000000002 * fVec3[((IOTA - 87) & 127)]) + ((0.0015819200000000001 * fVec3[((IOTA - 80) & 127)]) + ((0.00043852399999999998 * fVec3[((IOTA - 7) & 127)]) + ((3.5476400000000005e-05 * fVec3[((IOTA - 6) & 127)]) + ((0.00012342900000000001 * fVec3[((IOTA - 5) & 127)]) + ((0.00013495299999999999 * fVec3[((IOTA - 3) & 127)]) + ((6.5829500000000002e-06 * fVec3[((IOTA - 1) & 127)]) + ((0.00068458300000000011 * fVec3[((IOTA - 16) & 127)]) + ((0.0022406600000000002 * fVec3[((IOTA - 14) & 127)]) + ((0.00121477 * fVec3[((IOTA - 12) & 127)]) + ((0.00034622800000000002 * fVec3[((IOTA - 79) & 127)]) + ((0.0021050499999999998 * fVec3[((IOTA - 75) & 127)]) + ((0.00017197100000000001 * fVec3[((IOTA - 73) & 127)]) + ((0.00328831 * fVec3[((IOTA - 72) & 127)]) + ((0.0033849700000000002 * fVec3[((IOTA - 71) & 127)]) + ((0.00106408 * fVec3[((IOTA - 68) & 127)]) + ((0.0026545100000000001 * fVec3[((IOTA - 67) & 127)]) + ((0.0023114799999999999 * fVec3[((IOTA - 66) & 127)]) + ((0.0010799700000000002 * fVec3[((IOTA - 65) & 127)]) + ((0.000133325 * fVec3[((IOTA - 64) & 127)]) + ((0.00104922 * fVec3[((IOTA - 63) & 127)]) + ((0.00064313500000000008 * fVec3[((IOTA - 62) & 127)]) + ((0.000829111 * fVec3[((IOTA - 50) & 127)]) + ((0.0047209000000000001 * fVec3[((IOTA - 49) & 127)]) + ((0.0040045700000000007 * fVec3[((IOTA - 48) & 127)]) + ((0.0028235399999999998 * fVec3[((IOTA - 47) & 127)]) + ((0.0024041399999999999 * fVec3[((IOTA - 46) & 127)]) + ((0.00123226 * fVec3[((IOTA - 43) & 127)]) + ((0.0055503799999999997 * fVec3[((IOTA - 42) & 127)]) + ((0.0055164099999999994 * fVec3[((IOTA - 41) & 127)]) + ((0.009551539999999999 * fVec3[((IOTA - 40) & 127)]) + ((0.0071602499999999999 * fVec3[((IOTA - 37) & 127)]) + ((0.0059806600000000005 * fVec3[((IOTA - 34) & 127)]) + ((0.0033412400000000001 * fVec3[((IOTA - 33) & 127)]) + ((0.0013020600000000001 * fVec3[((IOTA - 32) & 127)]) + ((0.010603599999999999 * fVec3[((IOTA - 29) & 127)]) + ((0.0047975099999999996 * fVec3[((IOTA - 28) & 127)]) + ((0.00037618999999999999 * fVec3[((IOTA - 25) & 127)]) + ((0.025127100000000003 * fVec3[((IOTA - 24) & 127)]) + ((0.0074241100000000003 * fVec3[((IOTA - 22) & 127)]) + ((0.032307200000000001 * fVec3[((IOTA - 19) & 127)]) + ((0.00015070900000000001 * fVec3[((IOTA - 11) & 127)]) + ((2.7837800000000002e-06 * fVec4[((IOTA - 122) & 127)]) + ((8.3043399999999988e-06 * fVec4[((IOTA - 121) & 127)]) + ((5.6696200000000008e-05 * fVec4[((IOTA - 115) & 127)]) + (((0.00013219300000000001 * fVec4[((IOTA - 112) & 127)]) + ((0.00031032800000000001 * fVec4[((IOTA - 111) & 127)]) + ((0.000209402 * fVec4[((IOTA - 110) & 127)]) + ((0.000392538 * fVec4[((IOTA - 109) & 127)]) + ((0.00021252900000000001 * fVec4[((IOTA - 108) & 127)]) + ((0.00022341099999999999 * fVec4[((IOTA - 107) & 127)]) + ((0.000455971 * fVec4[((IOTA - 106) & 127)]) + ((0.00023670100000000002 * fVec4[((IOTA - 105) & 127)]) + ((9.3216599999999998e-05 * fVec4[((IOTA - 104) & 127)]) + ((0.00011625700000000002 * fVec4[((IOTA - 103) & 127)]) + ((0.00053898200000000002 * fVec4[((IOTA - 102) & 127)]) + ((0.00063969199999999997 * fVec4[((IOTA - 101) & 127)]) + ((0.00049445900000000004 * fVec4[((IOTA - 100) & 127)]) + ((0.00113736 * fVec4[((IOTA - 99) & 127)]) + ((0.0011671499999999998 * fVec4[((IOTA - 98) & 127)]) + ((0.00080747300000000007 * fVec4[((IOTA - 97) & 127)]) + ((0.00098782800000000006 * fVec4[((IOTA - 96) & 127)]) + ((0.000116086 * fVec4[((IOTA - 95) & 127)]) + ((0.0010682000000000001 * fVec4[((IOTA - 92) & 127)]) + ((0.0010581200000000001 * fVec4[((IOTA - 91) & 127)]) + ((0.00023935499999999999 * fVec4[((IOTA - 90) & 127)]) + ((6.07349e-05 * fVec4[((IOTA - 77) & 127)]) + ((0.00024441799999999999 * fVec4[((IOTA - 71) & 127)]) + ((0.0022682500000000003 * fVec4[((IOTA - 70) & 127)]) + ((0.0013828600000000001 * fVec4[((IOTA - 69) & 127)]) + ((0.00019294500000000003 * fVec4[((IOTA - 68) & 127)]) + ((0.0022136499999999997 * fVec4[((IOTA - 67) & 127)]) + ((0.007966260000000001 * fVec4[((IOTA - 35) & 127)]) + ((0.014713700000000001 * fVec4[((IOTA - 34) & 127)]) + ((0.0070875299999999999 * fVec4[((IOTA - 29) & 127)]) + ((0.014908999999999999 * fVec4[((IOTA - 28) & 127)]) + ((0.012678 * fVec4[((IOTA - 27) & 127)]) + ((0.018085500000000001 * fVec4[((IOTA - 23) & 127)]) + ((0.041963100000000003 * fVec4[((IOTA - 22) & 127)]) + ((0.023017300000000001 * fVec4[((IOTA - 16) & 127)]) + ((0.0059658100000000002 * fVec4[((IOTA - 15) & 127)]) + ((0.0035753 * fVec4[((IOTA - 13) & 127)]) + ((0.010657300000000001 * fVec4[((IOTA - 12) & 127)]) + ((0.00023747699999999999 * fVec4[((IOTA - 10) & 127)]) + ((0.00079964000000000012 * fVec4[((IOTA - 7) & 127)]) + ((0.000231547 * fVec4[((IOTA - 4) & 127)]) + ((0.00023603400000000001 * fVec4[((IOTA - 3) & 127)]) + ((3.2773799999999996e-06 * fTemp4) + ((0.0030411100000000001 * fVec4[((IOTA - 42) & 127)]) + ((0.0032564600000000001 * fVec4[((IOTA - 38) & 127)]) + ((0.0023189199999999999 * fVec4[((IOTA - 66) & 127)]) + ((0.0022684799999999998 * fVec4[((IOTA - 65) & 127)]) + ((0.00027487300000000002 * fVec4[((IOTA - 64) & 127)]) + ((0.00097751499999999998 * fVec4[((IOTA - 62) & 127)]) + ((0.00025304199999999998 * fVec4[((IOTA - 61) & 127)]) + ((0.00036951399999999999 * fVec4[((IOTA - 60) & 127)]) + ((0.0020696600000000001 * fVec4[((IOTA - 59) & 127)]) + ((0.00039934300000000003 * fVec4[((IOTA - 58) & 127)]) + ((0.00168114 * fVec4[((IOTA - 55) & 127)]) + ((0.0019406200000000001 * fVec4[((IOTA - 54) & 127)]) + ((0.0061597700000000002 * fVec4[((IOTA - 39) & 127)]) + ((0.00213182 * fVec4[((IOTA - 48) & 127)]) + ((0.0044656900000000005 * fVec4[((IOTA - 47) & 127)]) + ((0.0055347900000000004 * fVec4[((IOTA - 46) & 127)]) + ((8.1563499999999999e-05 * fVec5[((IOTA - 118) & 127)]) + ((7.0606100000000001e-05 * fVec5[((IOTA - 117) & 127)]) + ((4.6020600000000005e-05 * fVec5[((IOTA - 116) & 127)]) + ((2.3044100000000002e-05 * fVec5[((IOTA - 115) & 127)]) + ((3.8369700000000006e-05 * fVec5[((IOTA - 114) & 127)]) + ((0.00029687600000000001 * fVec5[((IOTA - 113) & 127)]) + ((0.00024899699999999999 * fVec5[((IOTA - 112) & 127)]) + ((8.0695200000000013e-05 * fVec5[((IOTA - 111) & 127)]) + ((4.5071899999999998e-05 * fVec5[((IOTA - 110) & 127)]) + ((0.00031248700000000002 * fVec5[((IOTA - 109) & 127)]) + ((0.00029415900000000005 * fVec5[((IOTA - 108) & 127)]) + ((8.8138200000000003e-05 * fVec5[((IOTA - 107) & 127)]) + ((0.00030124200000000001 * fVec5[((IOTA - 106) & 127)]) + ((4.2708300000000006e-05 * fVec5[((IOTA - 105) & 127)]) + ((6.9614300000000009e-05 * fVec5[((IOTA - 103) & 127)]) + ((0.000321589 * fVec5[((IOTA - 99) & 127)]) + ((0.00016036600000000003 * fVec5[((IOTA - 98) & 127)]) + ((0.0012729099999999999 * fVec5[((IOTA - 88) & 127)]) + ((0.0021085400000000003 * fVec5[((IOTA - 87) & 127)]) + ((0.0005086 * fVec5[((IOTA - 86) & 127)]) + ((0.00014791000000000001 * fVec5[((IOTA - 85) & 127)]) + ((0.00032534600000000001 * fVec5[((IOTA - 81) & 127)]) + ((0.00099685500000000005 * fVec5[((IOTA - 80) & 127)]) + ((0.00052548700000000005 * fVec5[((IOTA - 61) & 127)]) + ((0.00033912900000000003 * fVec5[((IOTA - 58) & 127)]) + ((0.0021074099999999997 * fVec5[((IOTA - 55) & 127)]) + ((0.0012717499999999999 * fVec5[((IOTA - 54) & 127)]) + ((0.00060490900000000005 * fVec5[((IOTA - 48) & 127)]) + ((0.0040936100000000001 * fVec5[((IOTA - 42) & 127)]) + ((0.0020292500000000002 * fVec5[((IOTA - 41) & 127)]) + ((0.0030470000000000002 * fVec5[((IOTA - 38) & 127)]) + ((0.0096155300000000006 * fVec5[((IOTA - 37) & 127)]) + ((0.00534952 * fVec5[((IOTA - 36) & 127)]) + ((0.010443599999999999 * fVec5[((IOTA - 35) & 127)]) + ((0.014278200000000001 * fVec5[((IOTA - 34) & 127)]) + ((0.007845340000000001 * fVec5[((IOTA - 33) & 127)]) + ((0.006265520000000001 * fVec5[((IOTA - 32) & 127)]) + ((0.0039480399999999999 * fVec5[((IOTA - 31) & 127)]) + ((0.030915100000000001 * fVec5[((IOTA - 29) & 127)]) + ((0.038624800000000001 * fVec5[((IOTA - 28) & 127)]) + ((0.0106274 * fVec5[((IOTA - 26) & 127)]) + ((0.0056327499999999997 * fVec5[((IOTA - 25) & 127)]) + ((0.00093373200000000005 * fVec5[((IOTA - 24) & 127)]) + ((0.0144447 * fVec5[((IOTA - 23) & 127)]) + ((0.0027656299999999998 * fVec5[((IOTA - 14) & 127)]) + ((0.048321599999999999 * fVec5[((IOTA - 13) & 127)]) + ((0.046080900000000001 * fVec5[((IOTA - 12) & 127)]) + ((0.0051723899999999998 * fVec5[((IOTA - 11) & 127)]) + ((0.0011151400000000001 * fVec5[((IOTA - 9) & 127)]) + ((0.00019390000000000002 * fVec5[((IOTA - 4) & 127)]) + ((1.3112700000000001e-05 * fTemp5) + ((0.0018384600000000001 * fVec5[((IOTA - 68) & 127)]) + ((0.00195065 * fVec5[((IOTA - 67) & 127)]) + ((0.0012429300000000002 * fVec5[((IOTA - 66) & 127)]) + ((0.00058476299999999997 * fVec5[((IOTA - 76) & 127)]) + ((0.00186454 * fVec5[((IOTA - 75) & 127)]) + ((0.0013951499999999999 * fVec5[((IOTA - 74) & 127)]) + ((0.00129178 * fVec5[((IOTA - 73) & 127)]) + ((0.0010098400000000001 * fVec5[((IOTA - 64) & 127)]) + ((0.0016883999999999998 * fVec5[((IOTA - 72) & 127)]) + ((0.0018129000000000001 * fVec5[((IOTA - 71) & 127)]) + ((2.4813999999999997e-06 * fVec6[((IOTA - 124) & 127)]) + ((1.3482700000000002e-05 * fVec6[((IOTA - 118) & 127)]) + ((6.7211899999999999e-05 * fVec6[((IOTA - 114) & 127)]) + ((0.00013360000000000002 * fVec6[((IOTA - 113) & 127)]) + ((2.4868199999999998e-07 * fVec6[((IOTA - 112) & 127)]) + ((0.00021603300000000002 * fVec6[((IOTA - 108) & 127)]) + ((0.00013044 * fVec6[((IOTA - 107) & 127)]) + ((0.00031798600000000003 * fVec6[((IOTA - 103) & 127)]) + ((2.5636600000000001e-05 * fVec6[((IOTA - 102) & 127)]) + ((0.00013589400000000001 * fVec6[((IOTA - 101) & 127)]) + ((0.000417124 * fVec6[((IOTA - 100) & 127)]) + ((0.00028324699999999998 * fVec6[((IOTA - 99) & 127)]) + ((0.00072084000000000004 * fVec6[((IOTA - 98) & 127)]) + ((0.0013214800000000001 * fVec6[((IOTA - 94) & 127)]) + ((0.00147025 * fVec6[((IOTA - 93) & 127)]) + ((0.00043513300000000004 * fVec6[((IOTA - 92) & 127)]) + ((0.00047923700000000003 * fVec6[((IOTA - 91) & 127)]) + ((0.00045356600000000003 * fVec6[((IOTA - 90) & 127)]) + ((0.0013659900000000001 * fVec6[((IOTA - 89) & 127)]) + ((0.0012231700000000002 * fVec6[((IOTA - 88) & 127)]) + ((7.6576200000000007e-05 * fVec6[((IOTA - 87) & 127)]) + ((0.00029935000000000004 * fVec6[((IOTA - 83) & 127)]) + ((0.0033423799999999998 * fVec6[((IOTA - 82) & 127)]) + ((0.00229648 * fVec6[((IOTA - 81) & 127)]) + ((0.00063050200000000002 * fVec6[((IOTA - 79) & 127)]) + ((0.00022606700000000002 * fVec6[((IOTA - 77) & 127)]) + ((0.00061629700000000003 * fVec6[((IOTA - 62) & 127)]) + ((0.0020653400000000001 * fVec6[((IOTA - 61) & 127)]) + ((0.0027092700000000002 * fVec6[((IOTA - 60) & 127)]) + ((0.00101213 * fVec6[((IOTA - 59) & 127)]) + ((9.5653400000000015e-05 * fVec6[((IOTA - 58) & 127)]) + ((0.00156251 * fVec6[((IOTA - 54) & 127)]) + ((0.00015190600000000002 * fVec6[((IOTA - 53) & 127)]) + ((0.0026093900000000001 * fVec6[((IOTA - 51) & 127)]) + ((0.0030938500000000004 * fVec6[((IOTA - 50) & 127)]) + ((0.0031350200000000001 * fVec6[((IOTA - 49) & 127)]) + ((0.0040226100000000002 * fVec6[((IOTA - 48) & 127)]) + ((0.0049862600000000002 * fVec6[((IOTA - 44) & 127)]) + ((0.0058413700000000002 * fVec6[((IOTA - 41) & 127)]) + ((0.0045412800000000008 * fVec6[((IOTA - 40) & 127)]) + ((0.0065134700000000004 * fVec6[((IOTA - 37) & 127)]) + ((0.0086880100000000012 * fVec6[((IOTA - 35) & 127)]) + ((0.0107473 * fVec6[((IOTA - 34) & 127)]) + ((0.0015977300000000001 * fVec6[((IOTA - 32) & 127)]) + ((0.0063447800000000004 * fVec6[((IOTA - 30) & 127)]) + ((0.013484899999999999 * fVec6[((IOTA - 27) & 127)]) + ((0.0020287299999999999 * fVec6[((IOTA - 25) & 127)]) + ((0.018480799999999999 * fVec6[((IOTA - 24) & 127)]) + ((0.0056198899999999998 * fVec6[((IOTA - 22) & 127)]) + ((0.017673000000000001 * fVec6[((IOTA - 21) & 127)]) + ((0.0109137 * fVec6[((IOTA - 18) & 127)]) + ((0.0020388099999999998 * fVec6[((IOTA - 17) & 127)]) + ((0.00335082 * fVec6[((IOTA - 16) & 127)]) + ((0.00123416 * fVec6[((IOTA - 14) & 127)]) + ((0.0021818300000000001 * fVec6[((IOTA - 13) & 127)]) + ((0.00012594799999999999 * fVec6[((IOTA - 12) & 127)]) + ((0.00011811100000000002 * fVec6[((IOTA - 11) & 127)]) + ((0.00098081100000000005 * fVec6[((IOTA - 9) & 127)]) + ((0.00044730900000000001 * fVec6[((IOTA - 5) & 127)]) + ((1.2689500000000001e-05 * fVec6[((IOTA - 1) & 127)]) + ((0.000166844 * fVec6[((IOTA - 67) & 127)]) + ((0.00169188 * fVec5[((IOTA - 65) & 127)]) + ((0.00043061600000000004 * fVec6[((IOTA - 70) & 127)]) + ((0.00033741000000000001 * fVec6[((IOTA - 69) & 127)]) + ((9.3007799999999994e-06 * fVec7[((IOTA - 123) & 127)]) + ((8.1740999999999985e-06 * fVec7[((IOTA - 119) & 127)]) + ((3.2763499999999999e-05 * fVec7[((IOTA - 118) & 127)]) + ((5.73293e-05 * fVec7[((IOTA - 116) & 127)]) + ((0.00023654000000000004 * fVec7[((IOTA - 115) & 127)]) + ((0.00019556700000000001 * fVec7[((IOTA - 114) & 127)]) + ((5.6889900000000006e-05 * fVec7[((IOTA - 113) & 127)]) + ((0.00024025900000000002 * fVec7[((IOTA - 112) & 127)]) + ((0.00064424100000000004 * fVec7[((IOTA - 111) & 127)]) + ((0.00037747700000000003 * fVec7[((IOTA - 110) & 127)]) + ((3.6385200000000001e-06 * fVec7[((IOTA - 108) & 127)]) + ((0.00031980600000000001 * fVec7[((IOTA - 107) & 127)]) + ((0.00046841100000000007 * fVec7[((IOTA - 104) & 127)]) + ((0.00039931500000000002 * fVec7[((IOTA - 103) & 127)]) + ((3.42585e-06 * fVec7[((IOTA - 102) & 127)]) + ((0.00028306300000000001 * fVec7[((IOTA - 101) & 127)]) + ((0.0012796000000000001 * fVec7[((IOTA - 92) & 127)]) + ((0.0028355700000000004 * fVec7[((IOTA - 91) & 127)]) + ((0.00027312000000000001 * fVec7[((IOTA - 90) & 127)]) + ((0.00081654800000000006 * fVec7[((IOTA - 85) & 127)]) + ((7.8246599999999997e-05 * fVec7[((IOTA - 84) & 127)]) + ((0.0027393600000000001 * fVec7[((IOTA - 82) & 127)]) + ((0.00270886 * fVec7[((IOTA - 81) & 127)]) + ((0.0012424999999999999 * fVec7[((IOTA - 80) & 127)]) + ((0.00085482200000000009 * fVec7[((IOTA - 79) & 127)]) + ((0.00154955 * fVec7[((IOTA - 72) & 127)]) + ((0.0022211500000000003 * fVec7[((IOTA - 71) & 127)]) + ((0.0016530499999999999 * fVec7[((IOTA - 70) & 127)]) + ((0.0011901600000000002 * fVec7[((IOTA - 69) & 127)]) + ((0.0015993299999999999 * fVec7[((IOTA - 68) & 127)]) + ((0.00083150600000000009 * fVec7[((IOTA - 67) & 127)]) + ((0.0010392999999999999 * fVec7[((IOTA - 64) & 127)]) + ((0.00199607 * fVec7[((IOTA - 54) & 127)]) + ((0.00078433799999999998 * fVec7[((IOTA - 53) & 127)]) + ((0.00289646 * fVec7[((IOTA - 41) & 127)]) + ((0.0028975399999999997 * fVec7[((IOTA - 39) & 127)]) + ((0.018965700000000002 * fVec7[((IOTA - 38) & 127)]) + ((0.0134784 * fVec7[((IOTA - 37) & 127)]) + ((0.0031132099999999999 * fVec7[((IOTA - 36) & 127)]) + ((0.0063885599999999997 * fVec7[((IOTA - 35) & 127)]) + ((0.019759800000000001 * fVec7[((IOTA - 34) & 127)]) + ((0.027778900000000002 * fVec7[((IOTA - 33) & 127)]) + ((0.025745200000000003 * fVec7[((IOTA - 32) & 127)]) + ((0.0028674200000000003 * fVec7[((IOTA - 30) & 127)]) + ((0.023753799999999999 * fVec7[((IOTA - 29) & 127)]) + ((0.020933799999999999 * fVec7[((IOTA - 28) & 127)]) + ((0.0134953 * fVec7[((IOTA - 27) & 127)]) + ((0.024289200000000004 * fVec7[((IOTA - 26) & 127)]) + ((0.0073439100000000004 * fVec7[((IOTA - 25) & 127)]) + ((0.0091244499999999992 * fVec7[((IOTA - 22) & 127)]) + ((0.027517900000000001 * fVec7[((IOTA - 14) & 127)]) + ((0.060376700000000005 * fVec7[((IOTA - 13) & 127)]) + ((0.060888600000000008 * fVec7[((IOTA - 12) & 127)]) + ((0.0051214199999999998 * fVec7[((IOTA - 11) & 127)]) + ((0.00126033 * fVec7[((IOTA - 9) & 127)]) + ((2.0820699999999999e-05 * fVec7[((IOTA - 8) & 127)]) + ((0.00053298400000000002 * fVec7[((IOTA - 5) & 127)]) + ((6.2782600000000011e-05 * fVec7[((IOTA - 4) & 127)]) + ((7.6560500000000007e-05 * fVec7[((IOTA - 3) & 127)]) + ((2.9599300000000003e-05 * fVec7[((IOTA - 1) & 127)]) + ((1.8915500000000002e-05 * fTemp7) + ((0.0019319900000000002 * fVec7[((IOTA - 58) & 127)]) + ((0.00051400900000000006 * fVec7[((IOTA - 55) & 127)]) + ((0.0012512000000000001 * fVec7[((IOTA - 63) & 127)]) + (((1.0336899999999999e-06 * fVec8[((IOTA - 126) & 127)]) + ((1.07578e-06 * fVec8[((IOTA - 124) & 127)]) + ((1.0896600000000002e-05 * fVec8[((IOTA - 123) & 127)]) + ((5.7825300000000005e-06 * fVec8[((IOTA - 121) & 127)]) + ((2.9587800000000002e-05 * fVec8[((IOTA - 120) & 127)]) + ((0.00010999399999999999 * fVec8[((IOTA - 104) & 127)]) + ((1.2511200000000001e-05 * fVec8[((IOTA - 103) & 127)]) + ((3.3373e-05 * fVec8[((IOTA - 101) & 127)]) + ((0.0022768000000000003 * fVec8[((IOTA - 96) & 127)]) + ((0.0020205099999999997 * fVec8[((IOTA - 95) & 127)]) + ((0.00027500499999999999 * fVec8[((IOTA - 91) & 127)]) + ((9.9177200000000003e-05 * fVec8[((IOTA - 87) & 127)]) + ((0.0006416280000000001 * fVec8[((IOTA - 80) & 127)]) + ((0.0018692700000000001 * fVec8[((IOTA - 77) & 127)]) + ((0.000129173 * fVec8[((IOTA - 79) & 127)]) + ((0.0010500000000000002 * fVec8[((IOTA - 76) & 127)]) + ((0.0013042499999999999 * fVec8[((IOTA - 72) & 127)]) + ((0.0025056699999999998 * fVec8[((IOTA - 71) & 127)]) + ((0.0044664700000000002 * fVec8[((IOTA - 70) & 127)]) + ((0.0047280300000000003 * fVec8[((IOTA - 69) & 127)]) + ((0.0037914799999999999 * fVec8[((IOTA - 68) & 127)]) + ((0.0063763400000000003 * fVec8[((IOTA - 67) & 127)]) + ((0.0065615300000000003 * fVec8[((IOTA - 66) & 127)]) + ((0.00222449 * fVec8[((IOTA - 65) & 127)]) + ((0.0014331000000000001 * fVec8[((IOTA - 36) & 127)]) + ((0.0043624700000000002 * fVec8[((IOTA - 34) & 127)]) + ((0.0071496000000000007 * fVec8[((IOTA - 33) & 127)]) + ((0.009442299999999999 * fVec8[((IOTA - 31) & 127)]) + ((0.041430000000000002 * fVec8[((IOTA - 30) & 127)]) + ((0.032932100000000006 * fVec8[((IOTA - 29) & 127)]) + ((0.0056186100000000004 * fVec8[((IOTA - 28) & 127)]) + ((0.024621200000000003 * fVec8[((IOTA - 27) & 127)]) + ((0.042141200000000004 * fVec8[((IOTA - 26) & 127)]) + ((0.028794800000000002 * fVec8[((IOTA - 25) & 127)]) + ((0.06345640000000001 * fVec8[((IOTA - 24) & 127)]) + ((0.07541260000000001 * fVec8[((IOTA - 23) & 127)]) + ((0.00046772600000000007 * fVec8[((IOTA - 21) & 127)]) + ((0.049093400000000002 * fVec8[((IOTA - 20) & 127)]) + ((0.054047100000000001 * fVec8[((IOTA - 19) & 127)]) + ((0.0108471 * fVec8[((IOTA - 16) & 127)]) + ((0.0010471900000000001 * fVec8[((IOTA - 7) & 127)]) + ((0.00047446700000000006 * fVec8[((IOTA - 6) & 127)]) + ((0.00031437800000000003 * fVec8[((IOTA - 2) & 127)]) + ((1.5753899999999999e-07 * fVec9[((IOTA - 126) & 127)]) + ((3.3066799999999999e-06 * fVec9[((IOTA - 125) & 127)]) + ((9.6444300000000008e-05 * fVec9[((IOTA - 110) & 127)]) + ((0.00034096799999999998 * fVec9[((IOTA - 109) & 127)]) + ((1.0190999999999999e-05 * fVec9[((IOTA - 108) & 127)]) + ((0.00023396100000000001 * fVec9[((IOTA - 106) & 127)]) + ((0.00052374700000000008 * fVec9[((IOTA - 105) & 127)]) + ((0.00036215100000000001 * fVec9[((IOTA - 104) & 127)]) + ((0.00063805800000000005 * fVec9[((IOTA - 102) & 127)]) + ((0.0011957500000000002 * fVec9[((IOTA - 101) & 127)]) + ((0.0010047600000000002 * fVec9[((IOTA - 100) & 127)]) + ((0.00095472699999999994 * fVec9[((IOTA - 99) & 127)]) + ((0.00092775000000000008 * fVec9[((IOTA - 98) & 127)]) + ((0.00122649 * fVec9[((IOTA - 97) & 127)]) + ((0.0011230999999999999 * fVec9[((IOTA - 93) & 127)]) + ((0.00125953 * fVec9[((IOTA - 92) & 127)]) + ((0.00019295400000000001 * fVec9[((IOTA - 91) & 127)]) + ((0.00055969600000000004 * fVec9[((IOTA - 89) & 127)]) + ((0.000103257 * fVec9[((IOTA - 76) & 127)]) + ((0.00171093 * fVec9[((IOTA - 73) & 127)]) + ((0.0020383699999999999 * fVec9[((IOTA - 72) & 127)]) + ((0.0013637999999999999 * fVec9[((IOTA - 69) & 127)]) + ((0.0024843999999999999 * fVec9[((IOTA - 68) & 127)]) + ((0.00074355600000000003 * fVec9[((IOTA - 67) & 127)]) + ((0.00089791299999999997 * fVec9[((IOTA - 65) & 127)]) + ((0.0028104300000000005 * fVec9[((IOTA - 64) & 127)]) + ((0.0015055300000000001 * fVec9[((IOTA - 63) & 127)]) + ((0.00129704 * fVec9[((IOTA - 62) & 127)]) + ((0.00045463200000000001 * fVec9[((IOTA - 61) & 127)]) + ((0.00292619 * fVec9[((IOTA - 60) & 127)]) + ((0.0039499399999999999 * fVec9[((IOTA - 59) & 127)]) + ((0.00042873700000000005 * fVec9[((IOTA - 57) & 127)]) + ((0.00077501600000000001 * fVec9[((IOTA - 56) & 127)]) + ((0.0057435900000000007 * fVec9[((IOTA - 52) & 127)]) + ((0.0064549899999999999 * fVec9[((IOTA - 45) & 127)]) + ((0.0094244500000000009 * fVec9[((IOTA - 39) & 127)]) + ((0.0011423000000000002 * fVec9[((IOTA - 38) & 127)]) + ((0.0177702 * fVec9[((IOTA - 36) & 127)]) + ((0.0096359600000000007 * fVec9[((IOTA - 35) & 127)]) + ((0.019155500000000002 * fVec9[((IOTA - 33) & 127)]) + ((0.019293299999999999 * fVec9[((IOTA - 32) & 127)]) + ((0.0068834500000000002 * fVec9[((IOTA - 29) & 127)]) + ((0.036199000000000002 * fVec9[((IOTA - 26) & 127)]) + ((0.028412400000000001 * fVec9[((IOTA - 23) & 127)]) + ((0.016930500000000001 * fVec9[((IOTA - 20) & 127)]) + ((0.0106017 * fVec9[((IOTA - 19) & 127)]) + ((0.000263627 * fVec9[((IOTA - 17) & 127)]) + ((0.00025129900000000002 * fVec9[((IOTA - 15) & 127)]) + ((0.00047378999999999998 * fVec9[((IOTA - 14) & 127)]) + ((0.000359551 * fVec9[((IOTA - 11) & 127)]) + ((0.00050858999999999995 * fVec9[((IOTA - 10) & 127)]) + ((0.00025865000000000003 * fVec9[((IOTA - 8) & 127)]) + ((0.00030013000000000001 * fVec9[((IOTA - 7) & 127)]) + ((0.00012962100000000001 * fVec9[((IOTA - 4) & 127)]) + ((5.1984399999999995e-06 * fVec9[((IOTA - 2) & 127)]) + ((2.0081900000000002e-05 * fVec9[((IOTA - 1) & 127)]) + ((5.35095e-06 * fTemp9) + (((6.5997900000000001e-08 * fVec10[((IOTA - 126) & 127)]) + ((2.1505000000000002e-05 * fVec10[((IOTA - 111) & 127)]) + ((0.00025875799999999999 * fVec10[((IOTA - 110) & 127)]) + ((0.00016541 * fVec10[((IOTA - 109) & 127)]) + ((0.00012994100000000001 * fVec10[((IOTA - 108) & 127)]) + ((0.000501459 * fVec10[((IOTA - 107) & 127)]) + ((0.00061807300000000002 * fVec10[((IOTA - 106) & 127)]) + ((0.00041380000000000003 * fVec10[((IOTA - 105) & 127)]) + ((4.2136500000000006e-05 * fVec10[((IOTA - 102) & 127)]) + ((1.1025e-06 * fVec10[((IOTA - 101) & 127)]) + ((0.000102185 * fVec10[((IOTA - 100) & 127)]) + ((0.0010346200000000002 * fVec10[((IOTA - 99) & 127)]) + ((0.0015065 * fVec10[((IOTA - 98) & 127)]) + ((0.00015973800000000001 * fVec10[((IOTA - 94) & 127)]) + ((0.00065440400000000003 * fVec10[((IOTA - 93) & 127)]) + ((0.00049362799999999997 * fVec10[((IOTA - 91) & 127)]) + ((0.0010192300000000001 * fVec10[((IOTA - 90) & 127)]) + ((7.1971000000000006e-05 * fVec10[((IOTA - 85) & 127)]) + ((0.00051516900000000011 * fVec10[((IOTA - 84) & 127)]) + ((0.00076406400000000006 * fVec10[((IOTA - 83) & 127)]) + ((9.4944000000000018e-05 * fVec10[((IOTA - 81) & 127)]) + ((0.00095418100000000002 * fVec10[((IOTA - 80) & 127)]) + ((0.00034814200000000002 * fVec10[((IOTA - 76) & 127)]) + ((8.0286900000000005e-05 * fVec10[((IOTA - 71) & 127)]) + ((0.00159566 * fVec10[((IOTA - 70) & 127)]) + ((1.1146700000000001e-05 * fVec10[((IOTA - 67) & 127)]) + ((0.0016114299999999999 * fVec10[((IOTA - 66) & 127)]) + ((0.0030693399999999998 * fVec10[((IOTA - 65) & 127)]) + ((0.0029336900000000001 * fVec10[((IOTA - 64) & 127)]) + ((0.00021672300000000002 * fVec10[((IOTA - 61) & 127)]) + ((0.0015251900000000001 * fVec10[((IOTA - 60) & 127)]) + ((0.00063413500000000008 * fVec10[((IOTA - 59) & 127)]) + ((0.0015717800000000001 * fVec10[((IOTA - 40) & 127)]) + ((0.0086705299999999992 * fVec10[((IOTA - 37) & 127)]) + ((0.00411948 * fVec10[((IOTA - 34) & 127)]) + ((0.0107584 * fVec10[((IOTA - 33) & 127)]) + ((0.0029588800000000001 * fVec10[((IOTA - 32) & 127)]) + ((0.0139764 * fVec10[((IOTA - 30) & 127)]) + ((0.0093965200000000002 * fVec10[((IOTA - 29) & 127)]) + ((0.016385799999999999 * fVec10[((IOTA - 28) & 127)]) + ((0.015254500000000001 * fVec10[((IOTA - 27) & 127)]) + ((0.0099207400000000008 * fVec10[((IOTA - 26) & 127)]) + ((0.041638400000000006 * fVec10[((IOTA - 25) & 127)]) + ((0.020153599999999997 * fVec10[((IOTA - 24) & 127)]) + ((0.00032049699999999999 * fVec10[((IOTA - 23) & 127)]) + ((0.034925999999999999 * fVec10[((IOTA - 22) & 127)]) + ((0.0069752599999999996 * fVec10[((IOTA - 21) & 127)]) + ((0.0037277 * fVec10[((IOTA - 20) & 127)]) + ((0.045202099999999995 * fVec10[((IOTA - 19) & 127)]) + ((0.00526948 * fVec10[((IOTA - 16) & 127)]) + ((0.000358363 * fVec10[((IOTA - 10) & 127)]) + ((0.00023124899999999999 * fVec10[((IOTA - 7) & 127)]) + ((0.00020135900000000002 * fVec10[((IOTA - 6) & 127)]) + (((7.2115600000000003e-07 * fVec11[((IOTA - 126) & 127)]) + ((3.4760399999999997e-08 * fVec11[((IOTA - 123) & 127)]) + ((2.0505700000000003e-05 * fVec11[((IOTA - 122) & 127)]) + ((7.2276399999999995e-06 * fVec11[((IOTA - 121) & 127)]) + ((1.3220600000000002e-05 * fVec11[((IOTA - 120) & 127)]) + ((1.2673900000000001e-05 * fVec11[((IOTA - 118) & 127)]) + ((4.4900900000000009e-05 * fVec11[((IOTA - 117) & 127)]) + ((4.1691399999999999e-05 * fVec11[((IOTA - 110) & 127)]) + ((0.00027668200000000005 * fVec11[((IOTA - 92) & 127)]) + ((0.00280241 * fVec11[((IOTA - 82) & 127)]) + ((0.0020786799999999999 * fVec11[((IOTA - 81) & 127)]) + ((0.00091981900000000011 * fVec11[((IOTA - 80) & 127)]) + ((0.0002275 * fVec11[((IOTA - 79) & 127)]) + ((7.5101900000000007e-05 * fVec11[((IOTA - 76) & 127)]) + ((0.00076943900000000002 * fVec11[((IOTA - 72) & 127)]) + ((0.00063752100000000005 * fVec11[((IOTA - 71) & 127)]) + ((0.0026788099999999998 * fVec11[((IOTA - 70) & 127)]) + ((0.0036546199999999999 * fVec11[((IOTA - 69) & 127)]) + ((7.3547000000000006e-05 * fVec11[((IOTA - 68) & 127)]) + ((0.0010616200000000001 * fVec11[((IOTA - 66) & 127)]) + ((0.00033734999999999999 * fVec11[((IOTA - 64) & 127)]) + ((0.00050336900000000004 * fVec11[((IOTA - 63) & 127)]) + ((0.0013227800000000002 * fVec11[((IOTA - 61) & 127)]) + ((0.0013802 * fVec11[((IOTA - 60) & 127)]) + ((0.00057507100000000002 * fVec11[((IOTA - 59) & 127)]) + ((0.0017853699999999999 * fVec11[((IOTA - 58) & 127)]) + ((0.0034082300000000004 * fVec11[((IOTA - 57) & 127)]) + ((0.00345985 * fVec11[((IOTA - 56) & 127)]) + ((0.00155444 * fVec11[((IOTA - 53) & 127)]) + ((0.0014091100000000001 * fVec11[((IOTA - 52) & 127)]) + ((0.0018625499999999999 * fVec11[((IOTA - 51) & 127)]) + ((0.00053192199999999999 * fVec11[((IOTA - 48) & 127)]) + ((0.000148231 * fVec11[((IOTA - 47) & 127)]) + ((0.0072206400000000004 * fVec11[((IOTA - 44) & 127)]) + ((0.0011467599999999999 * fVec11[((IOTA - 43) & 127)]) + ((0.0050838799999999998 * fVec11[((IOTA - 35) & 127)]) + ((0.013509400000000001 * fVec11[((IOTA - 32) & 127)]) + ((0.015784800000000002 * fVec11[((IOTA - 27) & 127)]) + ((0.0024348900000000003 * fVec11[((IOTA - 25) & 127)]) + ((0.0034120499999999998 * fVec11[((IOTA - 24) & 127)]) + ((0.00206245 * fVec11[((IOTA - 23) & 127)]) + ((0.036800600000000003 * fVec11[((IOTA - 19) & 127)]) + ((0.016894100000000002 * fVec11[((IOTA - 16) & 127)]) + ((0.015907999999999999 * fVec11[((IOTA - 15) & 127)]) + ((0.00139284 * fVec11[((IOTA - 13) & 127)]) + ((0.0111489 * fVec11[((IOTA - 12) & 127)]) + ((0.00048254200000000003 * fVec11[((IOTA - 10) & 127)]) + ((0.00084440200000000006 * fVec11[((IOTA - 7) & 127)]) + (((6.1446399999999998e-06 * fVec12[((IOTA - 123) & 127)]) + ((8.1741199999999999e-06 * fVec12[((IOTA - 122) & 127)]) + ((2.2315100000000003e-05 * fVec12[((IOTA - 118) & 127)]) + ((4.6366800000000005e-05 * fVec12[((IOTA - 109) & 127)]) + ((0.00015426800000000002 * fVec12[((IOTA - 108) & 127)]) + ((2.9996500000000003e-05 * fVec12[((IOTA - 104) & 127)]) + ((0.00022863600000000002 * fVec12[((IOTA - 103) & 127)]) + ((0.00013601100000000001 * fVec12[((IOTA - 101) & 127)]) + ((0.00011103000000000001 * fVec12[((IOTA - 100) & 127)]) + ((0.00055044600000000001 * fVec12[((IOTA - 98) & 127)]) + ((0.00044798200000000004 * fVec12[((IOTA - 97) & 127)]) + ((0.00032662200000000005 * fVec12[((IOTA - 96) & 127)]) + ((0.00065044300000000001 * fVec12[((IOTA - 92) & 127)]) + ((0.0011816700000000001 * fVec12[((IOTA - 91) & 127)]) + ((0.00100478 * fVec12[((IOTA - 90) & 127)]) + ((4.4411900000000001e-05 * fVec12[((IOTA - 89) & 127)]) + ((0.000103707 * fVec12[((IOTA - 85) & 127)]) + ((0.00012959000000000001 * fVec12[((IOTA - 84) & 127)]) + ((0.0012166300000000002 * fVec12[((IOTA - 82) & 127)]) + ((0.00073013500000000003 * fVec12[((IOTA - 81) & 127)]) + ((0.0015448500000000002 * fVec12[((IOTA - 80) & 127)]) + ((0.00109789 * fVec12[((IOTA - 79) & 127)]) + ((0.00041635900000000004 * fVec12[((IOTA - 77) & 127)]) + ((0.00033440100000000001 * fVec12[((IOTA - 74) & 127)]) + ((0.00171149 * fVec12[((IOTA - 71) & 127)]) + ((0.0032145400000000001 * fVec12[((IOTA - 70) & 127)]) + ((0.000234556 * fVec12[((IOTA - 69) & 127)]) + ((0.0009296310000000001 * fVec12[((IOTA - 67) & 127)]) + ((0.00017575500000000001 * fVec12[((IOTA - 66) & 127)]) + ((0.00098071900000000012 * fVec12[((IOTA - 64) & 127)]) + ((0.00040021800000000004 * fVec12[((IOTA - 63) & 127)]) + ((0.0020002800000000001 * fVec12[((IOTA - 61) & 127)]) + ((0.0024495200000000002 * fVec12[((IOTA - 56) & 127)]) + ((0.0022621500000000001 * fVec12[((IOTA - 55) & 127)]) + ((0.0026210900000000004 * fVec12[((IOTA - 54) & 127)]) + ((0.00107755 * fVec12[((IOTA - 53) & 127)]) + ((0.0018869100000000001 * fVec12[((IOTA - 51) & 127)]) + ((0.0016816299999999999 * fVec12[((IOTA - 48) & 127)]) + ((0.00099638500000000002 * fVec12[((IOTA - 47) & 127)]) + ((0.0058219500000000002 * fVec12[((IOTA - 34) & 127)]) + ((0.017078900000000001 * fVec12[((IOTA - 33) & 127)]) + ((0.00087088200000000001 * fVec12[((IOTA - 30) & 127)]) + ((0.027225600000000003 * fVec12[((IOTA - 29) & 127)]) + ((0.00946403 * fVec12[((IOTA - 28) & 127)]) + ((0.0038781100000000002 * fVec12[((IOTA - 25) & 127)]) + ((0.048044200000000002 * fVec12[((IOTA - 24) & 127)]) + ((0.0047823300000000004 * fVec12[((IOTA - 23) & 127)]) + ((0.031593799999999998 * fVec12[((IOTA - 21) & 127)]) + ((0.0092093100000000001 * fVec12[((IOTA - 20) & 127)]) + ((0.0182515 * fVec12[((IOTA - 19) & 127)]) + ((0.0125871 * fVec12[((IOTA - 16) & 127)]) + ((0.0010793700000000001 * fVec12[((IOTA - 14) & 127)]) + ((0.0061485900000000007 * fVec12[((IOTA - 12) & 127)]) + ((0.00108131 * fVec12[((IOTA - 11) & 127)]) + ((0.00149292 * fVec12[((IOTA - 7) & 127)]) + ((0.00062478100000000003 * fVec12[((IOTA - 5) & 127)]) + ((0.00028939400000000006 * fVec12[((IOTA - 3) & 127)]) + ((0.0034718700000000002 * fVec12[((IOTA - 43) & 127)]) + ((1.4188099999999999e-06 * fVec13[((IOTA - 126) & 127)]) + ((3.3187600000000001e-06 * fVec13[((IOTA - 125) & 127)]) + ((5.1482899999999996e-06 * fVec13[((IOTA - 124) & 127)]) + ((8.7600299999999995e-06 * fVec13[((IOTA - 123) & 127)]) + ((5.5660599999999997e-06 * fVec13[((IOTA - 122) & 127)]) + ((5.530960000000001e-05 * fVec13[((IOTA - 121) & 127)]) + ((0.00011918500000000002 * fVec13[((IOTA - 120) & 127)]) + ((9.8678100000000013e-05 * fVec13[((IOTA - 119) & 127)]) + (((4.2207000000000004e-05 * fVec13[((IOTA - 118) & 127)]) + ((3.2490500000000003e-05 * fVec13[((IOTA - 117) & 127)]) + ((0.00011697900000000002 * fVec13[((IOTA - 116) & 127)]) + ((5.6691300000000004e-05 * fVec13[((IOTA - 112) & 127)]) + ((0.000115798 * fVec13[((IOTA - 111) & 127)]) + ((0.0037339199999999999 * fVec13[((IOTA - 96) & 127)]) + ((0.0027517499999999999 * fVec13[((IOTA - 95) & 127)]) + ((0.00065997500000000004 * fVec13[((IOTA - 92) & 127)]) + ((0.0016790700000000002 * fVec13[((IOTA - 91) & 127)]) + ((0.0019817300000000001 * fVec13[((IOTA - 88) & 127)]) + ((0.0040626200000000003 * fVec13[((IOTA - 87) & 127)]) + ((0.0023261500000000004 * fVec13[((IOTA - 86) & 127)]) + ((0.0015044699999999999 * fVec13[((IOTA - 85) & 127)]) + ((0.0010922900000000001 * fVec13[((IOTA - 84) & 127)]) + ((0.0012104800000000001 * fVec13[((IOTA - 64) & 127)]) + ((0.0039074399999999999 * fVec13[((IOTA - 63) & 127)]) + ((0.00102589 * fVec13[((IOTA - 62) & 127)]) + ((0.00070128400000000004 * fVec13[((IOTA - 59) & 127)]) + ((0.00040873600000000004 * fVec13[((IOTA - 58) & 127)]) + ((0.0011136799999999999 * fVec13[((IOTA - 57) & 127)]) + ((0.0035448200000000002 * fVec13[((IOTA - 56) & 127)]) + ((0.0022150400000000002 * fVec13[((IOTA - 55) & 127)]) + ((3.8517100000000004e-05 * fVec13[((IOTA - 54) & 127)]) + ((0.0011952499999999999 * fVec13[((IOTA - 53) & 127)]) + ((0.00017855099999999999 * fVec13[((IOTA - 52) & 127)]) + ((0.0020778099999999998 * fVec13[((IOTA - 51) & 127)]) + ((0.0048699899999999994 * fVec13[((IOTA - 50) & 127)]) + ((0.0020168600000000001 * fVec13[((IOTA - 49) & 127)]) + ((0.0011997199999999998 * fVec13[((IOTA - 47) & 127)]) + ((0.0061526599999999999 * fVec13[((IOTA - 46) & 127)]) + ((0.0028706900000000004 * fVec13[((IOTA - 44) & 127)]) + ((0.011077500000000001 * fVec13[((IOTA - 43) & 127)]) + ((0.0022290399999999998 * fVec13[((IOTA - 42) & 127)]) + ((0.0084232300000000003 * fVec13[((IOTA - 39) & 127)]) + ((0.00127378 * fVec13[((IOTA - 38) & 127)]) + ((0.0125606 * fVec13[((IOTA - 34) & 127)]) + ((0.011542200000000001 * fVec13[((IOTA - 31) & 127)]) + ((0.024367400000000001 * fVec13[((IOTA - 30) & 127)]) + ((0.0537481 * fVec13[((IOTA - 26) & 127)]) + ((0.013059400000000001 * fVec13[((IOTA - 23) & 127)]) + ((0.021176 * fVec13[((IOTA - 22) & 127)]) + ((0.0292041 * fVec13[((IOTA - 18) & 127)]) + ((0.015611 * fVec13[((IOTA - 17) & 127)]) + ((0.0131959 * fVec13[((IOTA - 15) & 127)]) + ((0.0033820999999999999 * fVec13[((IOTA - 13) & 127)]) + ((0.00065433400000000001 * fVec13[((IOTA - 10) & 127)]) + ((0.00012754700000000002 * fVec13[((IOTA - 9) & 127)]) + ((0.00028600400000000002 * fVec13[((IOTA - 8) & 127)]) + ((0.00056964699999999995 * fVec13[((IOTA - 6) & 127)]) + ((0.00055874899999999999 * fVec13[((IOTA - 4) & 127)]) + ((0.000107706 * fVec13[((IOTA - 2) & 127)]) + ((2.3258800000000005e-05 * fVec13[((IOTA - 1) & 127)]) + (((1.8648999999999999e-06 * fVec14[((IOTA - 126) & 127)]) + ((1.0045e-05 * fVec14[((IOTA - 125) & 127)]) + ((1.8977800000000003e-05 * fVec14[((IOTA - 124) & 127)]) + ((1.9873400000000002e-05 * fVec14[((IOTA - 123) & 127)]) + ((3.4954000000000004e-05 * fVec14[((IOTA - 122) & 127)]) + ((9.3229500000000019e-05 * fVec14[((IOTA - 121) & 127)]) + ((0.00012240800000000001 * fVec14[((IOTA - 120) & 127)]) + ((9.5701199999999998e-05 * fVec14[((IOTA - 119) & 127)]) + ((5.5900900000000005e-05 * fVec14[((IOTA - 115) & 127)]) + ((1.9102600000000002e-05 * fVec14[((IOTA - 114) & 127)]) + ((0.000876507 * fVec14[((IOTA - 91) & 127)]) + ((0.0020406000000000001 * fVec14[((IOTA - 90) & 127)]) + ((0.0013280499999999999 * fVec14[((IOTA - 89) & 127)]) + ((0.0017303100000000001 * fVec14[((IOTA - 88) & 127)]) + ((0.0029776099999999999 * fVec14[((IOTA - 87) & 127)]) + ((0.0025195700000000001 * fVec14[((IOTA - 86) & 127)]) + ((0.0011889400000000001 * fVec14[((IOTA - 83) & 127)]) + ((0.000386788 * fVec14[((IOTA - 81) & 127)]) + ((0.00090610300000000012 * fVec14[((IOTA - 80) & 127)]) + ((0.0014508500000000001 * fVec14[((IOTA - 79) & 127)]) + ((0.00082739399999999996 * fVec14[((IOTA - 78) & 127)]) + ((0.00013990400000000002 * fVec14[((IOTA - 76) & 127)]) + ((0.00174807 * fVec14[((IOTA - 75) & 127)]) + ((0.00102092 * fVec14[((IOTA - 74) & 127)]) + ((0.00235812 * fVec14[((IOTA - 63) & 127)]) + ((0.0021519 * fVec14[((IOTA - 62) & 127)]) + ((7.6654099999999985e-06 * fVec14[((IOTA - 61) & 127)]) + ((0.0022741699999999998 * fVec14[((IOTA - 55) & 127)]) + ((0.0042530099999999998 * fVec14[((IOTA - 54) & 127)]) + ((0.0032282000000000001 * fVec14[((IOTA - 53) & 127)]) + ((0.0041592900000000004 * fVec14[((IOTA - 50) & 127)]) + ((0.0075640600000000001 * fVec14[((IOTA - 49) & 127)]) + ((0.0079603199999999999 * fVec14[((IOTA - 48) & 127)]) + ((0.0030812000000000001 * fVec14[((IOTA - 47) & 127)]) + ((0.00018497500000000001 * fVec14[((IOTA - 46) & 127)]) + ((0.00033097600000000002 * fVec14[((IOTA - 43) & 127)]) + ((0.0066906600000000002 * fVec14[((IOTA - 42) & 127)]) + ((0.0081795500000000007 * fVec14[((IOTA - 41) & 127)]) + ((0.00108066 * fVec14[((IOTA - 40) & 127)]) + ((0.0088403900000000001 * fVec14[((IOTA - 36) & 127)]) + ((0.0054466000000000002 * fVec14[((IOTA - 35) & 127)]) + ((0.0040393699999999996 * fVec14[((IOTA - 33) & 127)]) + ((0.033863999999999998 * fVec14[((IOTA - 29) & 127)]) + ((0.0092350000000000002 * fVec14[((IOTA - 28) & 127)]) + ((0.00053732699999999999 * fVec14[((IOTA - 26) & 127)]) + ((0.0092729000000000006 * fVec14[((IOTA - 22) & 127)]) + ((0.022299000000000003 * fVec14[((IOTA - 21) & 127)]) + ((0.0012059800000000002 * fVec14[((IOTA - 20) & 127)]) + ((0.025815500000000002 * fVec14[((IOTA - 17) & 127)]) + ((7.0800700000000008e-05 * fVec14[((IOTA - 9) & 127)]) + ((0.00076956600000000007 * fVec14[((IOTA - 8) & 127)]) + ((0.000231146 * fVec14[((IOTA - 5) & 127)]) + ((0.00014766099999999999 * fVec14[((IOTA - 4) & 127)]) + ((0.0043864799999999999 * fVec14[((IOTA - 24) & 127)]) + ((1.4833700000000001e-06 * fVec0[((IOTA - 126) & 127)]) + ((3.6973199999999999e-06 * fVec0[((IOTA - 125) & 127)]) + ((8.5058500000000009e-06 * fVec0[((IOTA - 124) & 127)]) + ((4.1470500000000002e-05 * fVec0[((IOTA - 123) & 127)]) + ((7.1901800000000003e-05 * fVec0[((IOTA - 122) & 127)]) + ((3.71676e-05 * fVec0[((IOTA - 121) & 127)]) + ((3.3982700000000002e-05 * fVec0[((IOTA - 119) & 127)]) + ((0.00016550199999999999 * fVec0[((IOTA - 118) & 127)]) + ((0.00015893600000000001 * fVec0[((IOTA - 117) & 127)]) + ((0.00011888700000000002 * fVec0[((IOTA - 116) & 127)]) + ((2.6751600000000003e-05 * fVec0[((IOTA - 115) & 127)]) + ((1.5261800000000004e-05 * fVec0[((IOTA - 114) & 127)]) + ((0.00030627700000000004 * fVec0[((IOTA - 113) & 127)]) + ((0.00036830800000000003 * fVec0[((IOTA - 112) & 127)]) + ((0.000251322 * fVec0[((IOTA - 111) & 127)]) + ((0.00022708 * fVec0[((IOTA - 110) & 127)]) + ((0.000239084 * fVec0[((IOTA - 109) & 127)]) + ((9.1238799999999995e-06 * fVec0[((IOTA - 108) & 127)]) + (((0.00015429699999999999 * fVec0[((IOTA - 90) & 127)]) + ((0.00021972700000000002 * fVec0[((IOTA - 89) & 127)]) + ((0.0011643300000000001 * fVec0[((IOTA - 82) & 127)]) + ((0.00065994200000000006 * fVec0[((IOTA - 77) & 127)]) + ((0.0017905 * fVec0[((IOTA - 76) & 127)]) + ((0.00015571700000000001 * fVec0[((IOTA - 71) & 127)]) + ((0.0044549899999999998 * fVec0[((IOTA - 70) & 127)]) + ((0.0039002500000000005 * fVec0[((IOTA - 69) & 127)]) + ((0.00054205300000000002 * fVec0[((IOTA - 68) & 127)]) + ((0.00164631 * fVec0[((IOTA - 67) & 127)]) + ((0.00128867 * fVec0[((IOTA - 66) & 127)]) + ((0.000377902 * fVec0[((IOTA - 65) & 127)]) + ((0.00227327 * fVec0[((IOTA - 64) & 127)]) + ((0.0030369999999999998 * fVec0[((IOTA - 63) & 127)]) + ((0.0023284899999999999 * fVec0[((IOTA - 62) & 127)]) + ((0.0020450900000000003 * fVec0[((IOTA - 61) & 127)]) + ((0.0038926099999999999 * fVec0[((IOTA - 60) & 127)]) + ((0.0051357799999999995 * fVec0[((IOTA - 59) & 127)]) + ((0.0057548899999999995 * fVec0[((IOTA - 58) & 127)]) + ((0.0110121 * fVec0[((IOTA - 57) & 127)]) + ((0.010980500000000001 * fVec0[((IOTA - 56) & 127)]) + ((0.0074067100000000004 * fVec0[((IOTA - 55) & 127)]) + ((0.0058000299999999994 * fVec0[((IOTA - 54) & 127)]) + ((0.0046881500000000003 * fVec0[((IOTA - 53) & 127)]) + ((0.0079024400000000002 * fVec0[((IOTA - 52) & 127)]) + ((0.0143637 * fVec0[((IOTA - 51) & 127)]) + ((0.018899099999999999 * fVec0[((IOTA - 50) & 127)]) + ((0.016699200000000001 * fVec0[((IOTA - 49) & 127)]) + ((0.0121522 * fVec0[((IOTA - 48) & 127)]) + ((0.011685700000000002 * fVec0[((IOTA - 47) & 127)]) + ((0.0122635 * fVec0[((IOTA - 46) & 127)]) + ((0.019806900000000002 * fVec0[((IOTA - 44) & 127)]) + ((0.017303499999999999 * fVec0[((IOTA - 43) & 127)]) + ((0.017569399999999999 * fVec0[((IOTA - 42) & 127)]) + ((0.016072400000000001 * fVec0[((IOTA - 41) & 127)]) + ((0.0227996 * fVec0[((IOTA - 40) & 127)]) + ((0.016965000000000001 * fVec0[((IOTA - 39) & 127)]) + ((0.017693 * fVec0[((IOTA - 38) & 127)]) + ((0.033336499999999998 * fVec0[((IOTA - 37) & 127)]) + ((0.029073099999999998 * fVec0[((IOTA - 36) & 127)]) + ((0.018621700000000001 * fVec0[((IOTA - 35) & 127)]) + ((0.023295900000000001 * fVec0[((IOTA - 34) & 127)]) + ((0.030269900000000002 * fVec0[((IOTA - 33) & 127)]) + ((0.023498000000000002 * fVec0[((IOTA - 32) & 127)]) + ((0.012867100000000001 * fVec0[((IOTA - 31) & 127)]) + ((0.024658199999999998 * fVec0[((IOTA - 30) & 127)]) + ((0.033071500000000004 * fVec0[((IOTA - 29) & 127)]) + ((0.023601800000000003 * fVec0[((IOTA - 28) & 127)]) + ((0.025422899999999998 * fVec0[((IOTA - 27) & 127)]) + ((0.014210199999999999 * fVec0[((IOTA - 26) & 127)]) + ((0.010567 * fVec0[((IOTA - 25) & 127)]) + ((0.056895100000000004 * fVec0[((IOTA - 24) & 127)]) + ((0.00027516900000000002 * fVec0[((IOTA - 2) & 127)]) + ((1.74779e-06 * fVec15[((IOTA - 126) & 127)]) + ((7.1374800000000001e-06 * fVec15[((IOTA - 125) & 127)]) + ((1.69708e-05 * fVec15[((IOTA - 124) & 127)]) + ((7.3980599999999995e-07 * fVec15[((IOTA - 123) & 127)]) + ((5.5996800000000006e-05 * fVec15[((IOTA - 121) & 127)]) + ((0.000117308 * fVec15[((IOTA - 120) & 127)]) + ((0.000195057 * fVec15[((IOTA - 119) & 127)]) + ((0.00020216400000000001 * fVec15[((IOTA - 118) & 127)]) + ((0.00016114100000000001 * fVec15[((IOTA - 117) & 127)]) + ((0.00038352400000000005 * fVec15[((IOTA - 116) & 127)]) + ((0.00050261399999999997 * fVec15[((IOTA - 115) & 127)]) + ((0.00050803600000000001 * fVec15[((IOTA - 114) & 127)]) + ((0.00042659700000000002 * fVec15[((IOTA - 113) & 127)]) + ((0.00050421999999999999 * fVec15[((IOTA - 112) & 127)]) + ((0.0010336799999999999 * fVec15[((IOTA - 111) & 127)]) + ((0.00070924500000000006 * fVec15[((IOTA - 110) & 127)]) + ((0.000779071 * fVec15[((IOTA - 109) & 127)]) + ((0.00095978899999999995 * fVec15[((IOTA - 108) & 127)]) + ((0.0013097499999999999 * fVec15[((IOTA - 107) & 127)]) + ((0.0016259900000000001 * fVec15[((IOTA - 106) & 127)]) + ((0.00100501 * fVec15[((IOTA - 105) & 127)]) + ((0.0012236 * fVec15[((IOTA - 104) & 127)]) + ((0.0018419899999999999 * fVec15[((IOTA - 103) & 127)]) + ((0.00147426 * fVec15[((IOTA - 102) & 127)]) + ((0.0013272 * fVec15[((IOTA - 101) & 127)]) + ((0.00094503799999999993 * fVec15[((IOTA - 100) & 127)]) + ((0.00059498000000000005 * fVec15[((IOTA - 99) & 127)]) + ((0.0025739000000000001 * fVec15[((IOTA - 96) & 127)]) + ((0.0033512100000000003 * fVec15[((IOTA - 95) & 127)]) + ((0.00193882 * fVec15[((IOTA - 88) & 127)]) + ((0.00365475 * fVec15[((IOTA - 87) & 127)]) + ((0.0026745600000000003 * fVec15[((IOTA - 86) & 127)]) + ((0.0017505699999999999 * fVec15[((IOTA - 85) & 127)]) + ((0.0010550900000000001 * fVec15[((IOTA - 84) & 127)]) + ((2.5156400000000002e-05 * fVec15[((IOTA - 83) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((0.0081598500000000015 * fVec15[((IOTA - 37) & 127)]) + ((0.010539099999999999 * fVec15[((IOTA - 36) & 127)]) + ((0.0056564199999999997 * fVec15[((IOTA - 35) & 127)]) + ((0.0272114 * fVec15[((IOTA - 34) & 127)]) + ((0.021074000000000002 * fVec15[((IOTA - 33) & 127)]) + ((0.0080194200000000011 * fVec15[((IOTA - 31) & 127)]) + ((0.017730600000000003 * fVec15[((IOTA - 30) & 127)]) + ((0.0216826 * fVec15[((IOTA - 29) & 127)]) + ((0.0123141 * fVec15[((IOTA - 28) & 127)]) + ((0.0075229400000000005 * fVec15[((IOTA - 27) & 127)]) + ((((((((((((((((((((((((((1.96889e-05 * fTemp15) + (0.00012713900000000002 * fVec15[((IOTA - 1) & 127)])) + (0.00072445800000000009 * fVec15[((IOTA - 3) & 127)])) + (0.00084005400000000002 * fVec15[((IOTA - 4) & 127)])) + (0.00078251799999999995 * fVec15[((IOTA - 5) & 127)])) + (0.00064681700000000005 * fVec15[((IOTA - 6) & 127)])) + (0.00105561 * fVec15[((IOTA - 7) & 127)])) + (0.00107368 * fVec15[((IOTA - 8) & 127)])) + (0.00055752700000000004 * fVec15[((IOTA - 9) & 127)])) + (0.0020685400000000002 * fVec15[((IOTA - 10) & 127)])) + (0.0007391530000000001 * fVec15[((IOTA - 11) & 127)])) + (0.048941400000000003 * fVec15[((IOTA - 12) & 127)])) + (0.053001199999999998 * fVec15[((IOTA - 13) & 127)])) + (0.046698700000000003 * fVec15[((IOTA - 14) & 127)])) + (0.062211200000000001 * fVec15[((IOTA - 15) & 127)])) + (0.043948600000000004 * fVec15[((IOTA - 16) & 127)])) + (0.081345899999999999 * fVec15[((IOTA - 17) & 127)])) + (0.047424299999999996 * fVec15[((IOTA - 18) & 127)])) + (0.041405900000000002 * fVec15[((IOTA - 19) & 127)])) + (0.069732299999999997 * fVec15[((IOTA - 20) & 127)])) + (0.050380599999999998 * fVec15[((IOTA - 21) & 127)])) + (0.111697 * fVec15[((IOTA - 22) & 127)])) + (0.054464300000000007 * fVec15[((IOTA - 23) & 127)])) + (0.036801199999999999 * fVec15[((IOTA - 25) & 127)])) + (0.042423700000000002 * fVec15[((IOTA - 26) & 127)])) + (0.0060665699999999994 * fVec15[((IOTA - 38) & 127)])))))))))))) + (0.0072938400000000002 * fVec15[((IOTA - 39) & 127)])) + (0.0014525200000000001 * fVec15[((IOTA - 40) & 127)])) + (0.0049862900000000009 * fVec15[((IOTA - 41) & 127)])) + (0.014038399999999999 * fVec15[((IOTA - 42) & 127)])) + (0.0105579 * fVec15[((IOTA - 43) & 127)])) + (0.00431154 * fVec15[((IOTA - 45) & 127)])) + (0.0084629900000000001 * fVec15[((IOTA - 46) & 127)])) + (0.0007157 * fVec15[((IOTA - 47) & 127)])) + (0.00067166600000000002 * fVec15[((IOTA - 48) & 127)])) + (0.0046483699999999998 * fVec15[((IOTA - 49) & 127)])) + (0.0014356600000000001 * fVec15[((IOTA - 50) & 127)])) + (0.00020930100000000001 * fVec15[((IOTA - 51) & 127)])) + (0.00139635 * fVec15[((IOTA - 52) & 127)])) + (0.0029229899999999999 * fVec15[((IOTA - 53) & 127)])) + (0.0042595000000000003 * fVec15[((IOTA - 54) & 127)])) + (0.0039973999999999999 * fVec15[((IOTA - 55) & 127)])) + (4.49754e-06 * fVec15[((IOTA - 56) & 127)])) + (0.00278079 * fVec15[((IOTA - 58) & 127)])) + (0.0038020800000000002 * fVec15[((IOTA - 59) & 127)])) + (0.0026122100000000002 * fVec15[((IOTA - 60) & 127)])) + (0.00338193 * fVec15[((IOTA - 61) & 127)])) + (0.0064815100000000002 * fVec15[((IOTA - 62) & 127)])) + (0.0067297599999999996 * fVec15[((IOTA - 63) & 127)])) + (0.0038801100000000004 * fVec15[((IOTA - 64) & 127)])) + (0.0029381799999999999 * fVec15[((IOTA - 65) & 127)])) + (0.0016933400000000002 * fVec15[((IOTA - 66) & 127)])) + (0.0028127900000000003 * fVec15[((IOTA - 67) & 127)])) + (0.0033726400000000001 * fVec15[((IOTA - 68) & 127)])) + (0.00072404000000000001 * fVec15[((IOTA - 70) & 127)])) + (0.0019828699999999999 * fVec15[((IOTA - 71) & 127)])) + (0.0039087499999999999 * fVec15[((IOTA - 72) & 127)])) + (0.0053022700000000004 * fVec15[((IOTA - 73) & 127)])) + (0.0036032700000000004 * fVec15[((IOTA - 74) & 127)])) + (0.0053821700000000004 * fVec15[((IOTA - 75) & 127)])) + (0.0046326400000000004 * fVec15[((IOTA - 76) & 127)])) + (0.0020199900000000002 * fVec15[((IOTA - 77) & 127)])) + (0.0020409600000000001 * fVec15[((IOTA - 78) & 127)])) + (0.00144247 * fVec15[((IOTA - 79) & 127)])) + (0.0026692399999999998 * fVec15[((IOTA - 80) & 127)])) + (0.0015368900000000002 * fVec15[((IOTA - 81) & 127)])) + (0.017027300000000002 * fVec0[((IOTA - 45) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0027836500000000004 * fVec14[((IOTA - 23) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.5002200000000002e-05 * fTemp13)))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0068587300000000004 * fVec12[((IOTA - 42) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00014837300000000001 * fVec11[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00015575000000000002 * fVec10[((IOTA - 2) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00050830900000000008 * fVec9[((IOTA - 83) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0026334700000000002 * fVec7[((IOTA - 59) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.000594639 * fVec3[((IOTA - 10) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (5.4750600000000001e-07 * fVec2[((IOTA - 1) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((5.3289600000000006e-05 * fVec2[((IOTA - 119) & 127)]) + ((0.000107805 * fVec2[((IOTA - 118) & 127)]) + ((0.00016857100000000001 * fVec2[((IOTA - 117) & 127)]) + ((0.00017462800000000002 * fVec2[((IOTA - 116) & 127)]) + ((0.00020061900000000003 * fVec2[((IOTA - 115) & 127)]) + ((0.00026791400000000001 * fVec2[((IOTA - 114) & 127)]) + ((0.000214133 * fVec2[((IOTA - 113) & 127)]) + ((0.00012941499999999999 * fVec2[((IOTA - 112) & 127)]) + ((0.000341992 * fVec2[((IOTA - 111) & 127)]) + ((0.00073887099999999999 * fVec2[((IOTA - 110) & 127)]) + ((0.000178548 * fVec2[((IOTA - 109) & 127)]) + ((0.00034591100000000002 * fVec2[((IOTA - 107) & 127)]) + ((0.00056230400000000002 * fVec2[((IOTA - 106) & 127)]) + ((0.00034390400000000002 * fVec2[((IOTA - 105) & 127)]) + ((0.00040135500000000005 * fVec2[((IOTA - 102) & 127)]) + ((1.2323300000000001e-05 * fVec2[((IOTA - 99) & 127)]) + ((0.00017320599999999999 * fVec2[((IOTA - 98) & 127)]) + ((0.00137867 * fVec2[((IOTA - 90) & 127)]) + ((0.0011166000000000001 * fVec2[((IOTA - 89) & 127)]) + ((0.00077525200000000004 * fVec2[((IOTA - 88) & 127)]) + ((0.00051248299999999999 * fVec2[((IOTA - 87) & 127)]) + ((0.00034004900000000004 * fVec2[((IOTA - 86) & 127)]) + ((0.000134423 * fVec2[((IOTA - 84) & 127)]) + ((0.0011347400000000002 * fVec2[((IOTA - 83) & 127)]) + ((5.784670000000001e-05 * fVec2[((IOTA - 82) & 127)]) + ((0.0017782899999999999 * fVec2[((IOTA - 77) & 127)]) + ((0.0008637740000000001 * fVec2[((IOTA - 78) & 127)]) + ((0.00095740300000000012 * fVec2[((IOTA - 76) & 127)]) + ((0.00027913800000000001 * fVec2[((IOTA - 75) & 127)]) + ((0.000413929 * fVec2[((IOTA - 74) & 127)]) + ((0.0014493400000000001 * fVec2[((IOTA - 70) & 127)]) + ((0.0024630899999999998 * fVec2[((IOTA - 69) & 127)]) + ((0.00066884400000000004 * fVec2[((IOTA - 68) & 127)]) + ((0.0016410700000000001 * fVec2[((IOTA - 66) & 127)]) + ((0.0028929999999999997 * fVec2[((IOTA - 65) & 127)]) + ((0.00010676699999999999 * fVec2[((IOTA - 60) & 127)]) + ((0.00080710999999999999 * fVec2[((IOTA - 58) & 127)]) + ((0.0015732999999999999 * fVec2[((IOTA - 57) & 127)]) + ((0.00047008900000000003 * fVec2[((IOTA - 56) & 127)]) + ((0.00058858800000000002 * fVec2[((IOTA - 46) & 127)]) + ((0.0089012100000000014 * fVec2[((IOTA - 45) & 127)]) + ((0.0063971999999999996 * fVec2[((IOTA - 44) & 127)]) + ((0.0011654300000000001 * fVec2[((IOTA - 42) & 127)]) + ((0.0065539300000000003 * fVec2[((IOTA - 41) & 127)]) + ((0.00199292 * fVec2[((IOTA - 37) & 127)]) + ((0.0048789100000000002 * fVec2[((IOTA - 36) & 127)]) + ((0.00714622 * fVec2[((IOTA - 35) & 127)]) + ((0.0095548600000000001 * fVec2[((IOTA - 33) & 127)]) + ((0.019952500000000001 * fVec2[((IOTA - 32) & 127)]) + ((0.0029659300000000003 * fVec2[((IOTA - 29) & 127)]) + ((0.029996000000000002 * fVec2[((IOTA - 28) & 127)]) + ((0.0016475999999999999 * fVec2[((IOTA - 27) & 127)]) + ((0.0254705 * fVec2[((IOTA - 25) & 127)]) + ((0.0083854199999999993 * fVec2[((IOTA - 24) & 127)]) + ((0.039960800000000005 * fVec2[((IOTA - 18) & 127)]) + ((0.0071864600000000004 * fVec2[((IOTA - 17) & 127)]) + ((0.032838599999999996 * fVec2[((IOTA - 15) & 127)]) + ((0.00164934 * fVec2[((IOTA - 14) & 127)]) + ((0.0050885600000000007 * fVec2[((IOTA - 13) & 127)]) + ((0.00094482099999999999 * fVec2[((IOTA - 10) & 127)]) + ((7.6144500000000003e-05 * fVec2[((IOTA - 9) & 127)]) + ((0.00057894000000000001 * fVec2[((IOTA - 8) & 127)]) + ((0.00159128 * fVec2[((IOTA - 6) & 127)]) + ((0.00015391 * fVec2[((IOTA - 4) & 127)]) + ((0.00036213800000000002 * fVec2[((IOTA - 2) & 127)]) + (((3.5712499999999999e-07 * fVec1[((IOTA - 126) & 127)]) + ((1.1903999999999999e-06 * fVec1[((IOTA - 125) & 127)]) + ((9.2364300000000006e-06 * fVec1[((IOTA - 124) & 127)]) + ((7.6588799999999991e-06 * fVec1[((IOTA - 123) & 127)]) + ((8.9591899999999999e-06 * fVec1[((IOTA - 120) & 127)]) + ((8.6424300000000005e-05 * fVec1[((IOTA - 119) & 127)]) + ((7.8613700000000009e-05 * fVec1[((IOTA - 118) & 127)]) + ((4.4238600000000007e-05 * fVec1[((IOTA - 117) & 127)]) + ((5.5205099999999998e-06 * fVec1[((IOTA - 115) & 127)]) + ((6.6639900000000005e-05 * fVec1[((IOTA - 114) & 127)]) + ((0.000157369 * fVec1[((IOTA - 111) & 127)]) + ((8.3003200000000005e-05 * fVec1[((IOTA - 110) & 127)]) + ((0.00025192200000000002 * fVec1[((IOTA - 92) & 127)]) + ((0.00091703800000000001 * fVec1[((IOTA - 91) & 127)]) + ((0.0010790400000000001 * fVec1[((IOTA - 88) & 127)]) + ((0.0015949800000000002 * fVec1[((IOTA - 87) & 127)]) + ((0.0014874700000000001 * fVec1[((IOTA - 86) & 127)]) + ((0.00093692899999999997 * fVec1[((IOTA - 85) & 127)]) + ((0.0006546770000000001 * fVec1[((IOTA - 84) & 127)]) + ((0.000134809 * fVec1[((IOTA - 83) & 127)]) + ((0.00019593 * fVec1[((IOTA - 82) & 127)]) + ((0.0010831700000000001 * fVec1[((IOTA - 81) & 127)]) + ((0.00121283 * fVec1[((IOTA - 80) & 127)]) + ((0.0021823700000000003 * fVec1[((IOTA - 79) & 127)]) + ((0.00119166 * fVec1[((IOTA - 78) & 127)]) + ((0.00055397699999999999 * fVec1[((IOTA - 74) & 127)]) + ((0.0020279199999999999 * fVec1[((IOTA - 73) & 127)]) + ((0.00014092800000000002 * fVec1[((IOTA - 72) & 127)]) + ((8.5715000000000015e-05 * fVec1[((IOTA - 70) & 127)]) + ((0.00122613 * fVec1[((IOTA - 69) & 127)]) + ((0.0019218100000000001 * fVec1[((IOTA - 68) & 127)]) + ((0.00059488300000000004 * fVec1[((IOTA - 67) & 127)]) + ((0.000167615 * fVec1[((IOTA - 63) & 127)]) + ((0.00088971800000000006 * fVec1[((IOTA - 61) & 127)]) + ((0.0030282500000000001 * fVec1[((IOTA - 60) & 127)]) + ((0.0047336600000000006 * fVec1[((IOTA - 54) & 127)]) + ((0.0044919299999999999 * fVec1[((IOTA - 53) & 127)]) + ((0.0011470100000000002 * fVec1[((IOTA - 50) & 127)]) + ((0.0012055499999999999 * fVec1[((IOTA - 48) & 127)]) + ((0.0059192300000000002 * fVec1[((IOTA - 47) & 127)]) + ((0.0032900500000000001 * fVec1[((IOTA - 44) & 127)]) + ((0.00224289 * fVec1[((IOTA - 43) & 127)]) + ((0.00017730600000000001 * fVec1[((IOTA - 42) & 127)]) + ((0.0072601800000000006 * fVec1[((IOTA - 41) & 127)]) + ((0.00453353 * fVec1[((IOTA - 38) & 127)]) + ((0.00194991 * fVec1[((IOTA - 37) & 127)]) + ((0.00083337500000000002 * fVec1[((IOTA - 35) & 127)]) + ((0.0247151 * fVec1[((IOTA - 34) & 127)]) + ((0.0069191299999999999 * fVec1[((IOTA - 30) & 127)]) + ((0.0098116000000000002 * fVec1[((IOTA - 29) & 127)]) + ((0.0033760599999999997 * fVec1[((IOTA - 28) & 127)]) + ((0.0036533899999999998 * fVec1[((IOTA - 27) & 127)]) + ((0.0209074 * fVec1[((IOTA - 22) & 127)]) + ((0.0101589 * fVec1[((IOTA - 21) & 127)]) + ((0.016458299999999999 * fVec1[((IOTA - 20) & 127)]) + ((0.021493699999999998 * fVec1[((IOTA - 17) & 127)]) + ((0.0062705200000000008 * fVec1[((IOTA - 16) & 127)]) + ((0.0048823400000000006 * fVec1[((IOTA - 14) & 127)]) + ((0.00084803800000000007 * fVec1[((IOTA - 11) & 127)]) + ((0.0012552099999999999 * fVec1[((IOTA - 8) & 127)]) + ((0.00022105899999999999 * fVec1[((IOTA - 6) & 127)]) + ((0.00024554399999999999 * fVec1[((IOTA - 5) & 127)]) + ((0.00061196600000000003 * fVec1[((IOTA - 4) & 127)]) + ((0.00014579800000000002 * fVec1[((IOTA - 2) & 127)]) + ((0.00061885399999999995 * fVec1[((IOTA - 95) & 127)]) + ((0.00036137300000000001 * fVec1[((IOTA - 96) & 127)]) + ((0.000439844 * fVec1[((IOTA - 107) & 127)]) + ((0.00027481100000000002 * fVec1[((IOTA - 106) & 127)]) + ((3.2093500000000007e-05 * fVec1[((IOTA - 102) & 127)]) + ((0.00066768000000000003 * fVec1[((IOTA - 94) & 127)]) + ((1.2403399999999998e-06 * fVec3[((IOTA - 126) & 127)]) + ((6.5523199999999996e-06 * fVec3[((IOTA - 125) & 127)]) + ((7.103729999999999e-06 * fVec3[((IOTA - 124) & 127)]) + ((4.8057499999999997e-06 * fVec3[((IOTA - 123) & 127)]) + ((0.00017124500000000002 * fVec1[((IOTA - 93) & 127)]) + ((1.4907900000000002e-05 * fVec3[((IOTA - 122) & 127)]) + ((5.6678000000000002e-05 * fVec3[((IOTA - 121) & 127)]) + ((3.2618499999999999e-05 * fVec3[((IOTA - 120) & 127)]) + ((4.2858599999999997e-05 * fVec3[((IOTA - 116) & 127)]) + ((1.2154900000000001e-05 * fVec3[((IOTA - 115) & 127)]) + ((8.1906300000000006e-05 * fVec3[((IOTA - 101) & 127)]) + ((0.00050917300000000003 * fVec3[((IOTA - 100) & 127)]) + ((3.9907800000000004e-05 * fVec3[((IOTA - 92) & 127)]) + ((0.00063396999999999998 * fVec3[((IOTA - 91) & 127)]) + ((0.00126468 * fVec3[((IOTA - 90) & 127)]) + ((0.0016863 * fVec3[((IOTA - 89) & 127)]) + ((0.0009600120000000001 * fVec3[((IOTA - 86) & 127)]) + ((0.00042185499999999995 * fVec3[((IOTA - 85) & 127)]) + ((0.00064300400000000008 * fVec3[((IOTA - 84) & 127)]) + ((0.00199081 * fVec3[((IOTA - 83) & 127)]) + ((0.0032951600000000001 * fVec3[((IOTA - 82) & 127)]) + ((0.00044377400000000002 * fVec3[((IOTA - 81) & 127)]) + ((0.00023944000000000002 * fVec3[((IOTA - 4) & 127)]) + ((4.13336e-05 * fVec3[((IOTA - 2) & 127)]) + ((3.3055699999999998e-06 * fTemp3) + ((0.0062460900000000001 * fVec3[((IOTA - 18) & 127)]) + ((0.012640400000000001 * fVec3[((IOTA - 17) & 127)]) + ((0.00686843 * fVec3[((IOTA - 15) & 127)]) + ((0.0014359399999999999 * fVec3[((IOTA - 13) & 127)]) + ((0.0011996999999999999 * fVec3[((IOTA - 78) & 127)]) + ((0.0027583899999999999 * fVec3[((IOTA - 77) & 127)]) + ((0.00029621600000000002 * fVec3[((IOTA - 76) & 127)]) + ((0.00032057000000000006 * fVec3[((IOTA - 74) & 127)]) + ((0.00011427200000000001 * fVec3[((IOTA - 70) & 127)]) + ((0.0023553899999999997 * fVec3[((IOTA - 69) & 127)]) + ((0.00121634 * fVec3[((IOTA - 61) & 127)]) + ((0.0031460699999999999 * fVec3[((IOTA - 60) & 127)]) + ((0.0028280900000000001 * fVec3[((IOTA - 59) & 127)]) + ((0.0041894900000000006 * fVec3[((IOTA - 58) & 127)]) + ((0.0050431600000000005 * fVec3[((IOTA - 57) & 127)]) + ((0.00070018900000000004 * fVec3[((IOTA - 56) & 127)]) + ((0.00079562299999999997 * fVec3[((IOTA - 55) & 127)]) + ((0.0022291200000000002 * fVec3[((IOTA - 54) & 127)]) + ((0.0010627800000000001 * fVec3[((IOTA - 53) & 127)]) + ((0.0025782299999999999 * fVec3[((IOTA - 52) & 127)]) + ((0.0010116599999999999 * fVec3[((IOTA - 51) & 127)]) + ((0.0030807500000000002 * fVec3[((IOTA - 45) & 127)]) + ((0.0044340900000000008 * fVec3[((IOTA - 44) & 127)]) + ((0.0014659899999999999 * fVec3[((IOTA - 39) & 127)]) + ((0.0075921599999999997 * fVec3[((IOTA - 38) & 127)]) + ((0.0013163199999999999 * fVec3[((IOTA - 36) & 127)]) + ((0.00139712 * fVec3[((IOTA - 35) & 127)]) + ((0.020927999999999999 * fVec3[((IOTA - 31) & 127)]) + ((0.0030580300000000002 * fVec3[((IOTA - 30) & 127)]) + ((0.0031714500000000001 * fVec3[((IOTA - 27) & 127)]) + ((0.0298252 * fVec3[((IOTA - 26) & 127)]) + ((0.0033139300000000001 * fVec3[((IOTA - 23) & 127)]) + ((0.0065595499999999999 * fVec3[((IOTA - 21) & 127)]) + ((0.0090886700000000001 * fVec3[((IOTA - 20) & 127)]) + ((7.7107099999999996e-07 * fVec4[((IOTA - 126) & 127)]) + ((5.8016599999999996e-06 * fVec4[((IOTA - 125) & 127)]) + ((1.0293200000000002e-05 * fVec4[((IOTA - 124) & 127)]) + ((1.26402e-05 * fVec4[((IOTA - 123) & 127)]) + ((0.00021416200000000003 * fVec3[((IOTA - 9) & 127)]) + ((1.2875300000000002e-05 * fVec4[((IOTA - 120) & 127)]) + ((3.0919700000000001e-05 * fVec4[((IOTA - 119) & 127)]) + ((1.3730199999999999e-05 * fVec4[((IOTA - 118) & 127)]) + ((0.00010595300000000001 * fVec4[((IOTA - 117) & 127)]) + ((6.2319599999999999e-05 * fVec4[((IOTA - 116) & 127)]) + ((2.2893700000000001e-05 * fVec4[((IOTA - 114) & 127)]) + ((3.6990800000000005e-05 * fVec4[((IOTA - 113) & 127)]) + (((0.0014893700000000001 * fVec4[((IOTA - 94) & 127)]) + ((0.00075849800000000003 * fVec4[((IOTA - 93) & 127)]) + ((1.7939800000000001e-05 * fVec4[((IOTA - 89) & 127)]) + ((0.00022978000000000001 * fVec4[((IOTA - 88) & 127)]) + ((0.00040871000000000006 * fVec4[((IOTA - 87) & 127)]) + ((0.00042454500000000002 * fVec4[((IOTA - 86) & 127)]) + ((0.00052778200000000008 * fVec4[((IOTA - 85) & 127)]) + ((0.00239894 * fVec4[((IOTA - 84) & 127)]) + ((0.0029262899999999998 * fVec4[((IOTA - 83) & 127)]) + ((0.0016715800000000002 * fVec4[((IOTA - 82) & 127)]) + ((0.0011202900000000001 * fVec4[((IOTA - 81) & 127)]) + ((7.5395799999999992e-06 * fVec4[((IOTA - 80) & 127)]) + ((0.00041440900000000002 * fVec4[((IOTA - 79) & 127)]) + ((3.0152300000000003e-05 * fVec4[((IOTA - 78) & 127)]) + ((0.00071683100000000002 * fVec4[((IOTA - 76) & 127)]) + ((3.8916400000000006e-05 * fVec4[((IOTA - 75) & 127)]) + ((0.0012073799999999999 * fVec4[((IOTA - 74) & 127)]) + ((0.0031728900000000003 * fVec4[((IOTA - 73) & 127)]) + ((0.0018727100000000001 * fVec4[((IOTA - 72) & 127)]) + ((0.0085886299999999999 * fVec4[((IOTA - 37) & 127)]) + ((0.0098696699999999988 * fVec4[((IOTA - 36) & 127)]) + ((0.0081568500000000002 * fVec4[((IOTA - 33) & 127)]) + ((0.0055860800000000002 * fVec4[((IOTA - 32) & 127)]) + ((0.0076456700000000002 * fVec4[((IOTA - 31) & 127)]) + ((0.0047620600000000003 * fVec4[((IOTA - 30) & 127)]) + ((0.00244034 * fVec4[((IOTA - 26) & 127)]) + ((0.0027159100000000002 * fVec4[((IOTA - 25) & 127)]) + ((0.0355257 * fVec4[((IOTA - 24) & 127)]) + ((0.013501399999999998 * fVec4[((IOTA - 21) & 127)]) + ((0.010106800000000001 * fVec4[((IOTA - 20) & 127)]) + ((0.016007400000000001 * fVec4[((IOTA - 19) & 127)]) + ((0.020679400000000001 * fVec4[((IOTA - 18) & 127)]) + ((0.0034218899999999999 * fVec4[((IOTA - 17) & 127)]) + ((0.016782399999999999 * fVec4[((IOTA - 14) & 127)]) + ((2.9919300000000003e-05 * fVec4[((IOTA - 11) & 127)]) + ((3.3796500000000001e-05 * fVec4[((IOTA - 9) & 127)]) + ((0.00054442100000000001 * fVec4[((IOTA - 8) & 127)]) + ((0.00043977500000000005 * fVec4[((IOTA - 6) & 127)]) + ((0.00054478099999999993 * fVec4[((IOTA - 5) & 127)]) + ((0.00022437700000000002 * fVec4[((IOTA - 2) & 127)]) + ((1.9893300000000001e-05 * fVec4[((IOTA - 1) & 127)]) + ((0.0034829700000000002 * fVec4[((IOTA - 41) & 127)]) + ((0.0043833000000000006 * fVec4[((IOTA - 40) & 127)]) + ((0.00091280400000000013 * fVec4[((IOTA - 63) & 127)]) + ((0.0016841900000000001 * fVec4[((IOTA - 57) & 127)]) + ((0.0014167300000000002 * fVec4[((IOTA - 56) & 127)]) + ((8.9493100000000012e-05 * fVec4[((IOTA - 53) & 127)]) + ((0.00032871800000000003 * fVec4[((IOTA - 52) & 127)]) + ((0.00168373 * fVec4[((IOTA - 51) & 127)]) + ((0.0039323600000000002 * fVec4[((IOTA - 50) & 127)]) + ((0.00094270700000000009 * fVec4[((IOTA - 49) & 127)]) + ((0.0014762200000000001 * fVec4[((IOTA - 45) & 127)]) + ((0.0053497099999999997 * fVec4[((IOTA - 44) & 127)]) + ((0.0013171900000000002 * fVec4[((IOTA - 43) & 127)]) + ((7.4901799999999991e-07 * fVec5[((IOTA - 126) & 127)]) + ((5.2121499999999997e-06 * fVec5[((IOTA - 125) & 127)]) + ((1.5791000000000002e-05 * fVec5[((IOTA - 124) & 127)]) + ((2.1421500000000001e-05 * fVec5[((IOTA - 123) & 127)]) + ((2.2224499999999998e-06 * fVec5[((IOTA - 122) & 127)]) + ((2.15894e-05 * fVec5[((IOTA - 121) & 127)]) + ((4.67294e-05 * fVec5[((IOTA - 120) & 127)]) + ((1.9006100000000001e-05 * fVec5[((IOTA - 119) & 127)]) + ((0.00029154800000000003 * fVec5[((IOTA - 104) & 127)]) + ((0.000281437 * fVec5[((IOTA - 102) & 127)]) + ((0.000737136 * fVec5[((IOTA - 101) & 127)]) + ((0.00013028900000000001 * fVec5[((IOTA - 100) & 127)]) + ((0.00065116800000000004 * fVec5[((IOTA - 97) & 127)]) + ((0.00087714900000000003 * fVec5[((IOTA - 96) & 127)]) + ((0.00059851200000000005 * fVec5[((IOTA - 95) & 127)]) + ((0.00058117100000000001 * fVec5[((IOTA - 94) & 127)]) + ((7.4501400000000011e-05 * fVec5[((IOTA - 93) & 127)]) + ((0.00070493400000000005 * fVec5[((IOTA - 92) & 127)]) + ((0.0016990600000000001 * fVec5[((IOTA - 91) & 127)]) + ((0.00105839 * fVec5[((IOTA - 90) & 127)]) + ((0.00064867600000000005 * fVec5[((IOTA - 89) & 127)]) + ((0.00045359999999999997 * fVec5[((IOTA - 84) & 127)]) + ((0.00105405 * fVec5[((IOTA - 83) & 127)]) + ((0.00066430600000000003 * fVec5[((IOTA - 82) & 127)]) + ((1.0579500000000001e-05 * fVec5[((IOTA - 79) & 127)]) + ((9.0909400000000007e-05 * fVec5[((IOTA - 63) & 127)]) + ((7.1183600000000001e-05 * fVec5[((IOTA - 62) & 127)]) + ((0.00144718 * fVec5[((IOTA - 60) & 127)]) + ((0.0011860799999999999 * fVec5[((IOTA - 59) & 127)]) + ((0.0020690300000000003 * fVec5[((IOTA - 57) & 127)]) + ((0.0015602599999999999 * fVec5[((IOTA - 56) & 127)]) + ((0.0016904800000000001 * fVec5[((IOTA - 53) & 127)]) + ((0.00271579 * fVec5[((IOTA - 52) & 127)]) + ((0.0088627000000000011 * fVec5[((IOTA - 51) & 127)]) + ((0.00769069 * fVec5[((IOTA - 50) & 127)]) + ((0.0025811200000000001 * fVec5[((IOTA - 49) & 127)]) + ((0.0020010100000000001 * fVec5[((IOTA - 47) & 127)]) + ((0.0056659300000000004 * fVec5[((IOTA - 46) & 127)]) + ((0.0029520400000000004 * fVec5[((IOTA - 45) & 127)]) + ((0.0094207800000000001 * fVec5[((IOTA - 44) & 127)]) + ((0.0089927300000000009 * fVec5[((IOTA - 43) & 127)]) + ((0.0031344599999999999 * fVec5[((IOTA - 40) & 127)]) + ((0.0020825100000000001 * fVec5[((IOTA - 39) & 127)]) + ((0.010519000000000001 * fVec5[((IOTA - 30) & 127)]) + ((0.0133066 * fVec5[((IOTA - 27) & 127)]) + ((0.024085600000000002 * fVec5[((IOTA - 22) & 127)]) + ((0.0087774500000000009 * fVec5[((IOTA - 21) & 127)]) + ((0.0316397 * fVec5[((IOTA - 20) & 127)]) + ((0.0629913 * fVec5[((IOTA - 19) & 127)]) + ((0.00082095500000000006 * fVec5[((IOTA - 18) & 127)]) + ((0.027291599999999999 * fVec5[((IOTA - 17) & 127)]) + ((0.037210699999999999 * fVec5[((IOTA - 16) & 127)]) + ((0.00091706600000000002 * fVec5[((IOTA - 15) & 127)]) + ((0.00067622200000000009 * fVec5[((IOTA - 10) & 127)]) + ((0.00071360300000000005 * fVec5[((IOTA - 8) & 127)]) + ((0.000243654 * fVec5[((IOTA - 7) & 127)]) + ((0.00032285800000000003 * fVec5[((IOTA - 6) & 127)]) + ((0.000171535 * fVec5[((IOTA - 5) & 127)]) + ((9.1102699999999994e-07 * fVec5[((IOTA - 3) & 127)]) + ((0.000151989 * fVec5[((IOTA - 2) & 127)]) + ((7.3887899999999996e-06 * fVec5[((IOTA - 1) & 127)]) + ((0.00085561100000000005 * fVec5[((IOTA - 78) & 127)]) + ((0.00048425300000000003 * fVec5[((IOTA - 77) & 127)]) + ((0.00017929400000000001 * fVec5[((IOTA - 70) & 127)]) + ((0.0012052899999999999 * fVec5[((IOTA - 69) & 127)]) + ((6.2717999999999998e-07 * fVec6[((IOTA - 126) & 127)]) + ((3.2364399999999999e-06 * fVec6[((IOTA - 125) & 127)]) + ((8.259009999999999e-06 * fVec6[((IOTA - 123) & 127)]) + ((8.9749599999999985e-06 * fVec6[((IOTA - 122) & 127)]) + ((1.8158200000000002e-05 * fVec6[((IOTA - 121) & 127)]) + ((5.1987600000000003e-05 * fVec6[((IOTA - 120) & 127)]) + ((3.15558e-05 * fVec6[((IOTA - 119) & 127)]) + ((5.2186399999999999e-05 * fVec6[((IOTA - 117) & 127)]) + ((0.00018432800000000001 * fVec6[((IOTA - 116) & 127)]) + ((5.6034300000000007e-05 * fVec6[((IOTA - 115) & 127)]) + ((6.3985300000000012e-05 * fVec6[((IOTA - 111) & 127)]) + ((9.3386400000000004e-05 * fVec6[((IOTA - 110) & 127)]) + ((0.000174119 * fVec6[((IOTA - 109) & 127)]) + ((0.00035722100000000001 * fVec6[((IOTA - 106) & 127)]) + ((0.00040952500000000005 * fVec6[((IOTA - 105) & 127)]) + ((0.00017427299999999999 * fVec6[((IOTA - 104) & 127)]) + ((0.00071199800000000004 * fVec6[((IOTA - 97) & 127)]) + ((0.0017188800000000001 * fVec6[((IOTA - 96) & 127)]) + ((0.00054225400000000004 * fVec6[((IOTA - 95) & 127)]) + ((0.000197515 * fVec6[((IOTA - 86) & 127)]) + ((0.0015781700000000001 * fVec6[((IOTA - 85) & 127)]) + ((0.0013863900000000001 * fVec6[((IOTA - 84) & 127)]) + ((1.9453499999999999e-05 * fVec6[((IOTA - 80) & 127)]) + ((0.00084547300000000001 * fVec6[((IOTA - 78) & 127)]) + ((0.0020311800000000001 * fVec6[((IOTA - 65) & 127)]) + ((0.0011967099999999999 * fVec6[((IOTA - 64) & 127)]) + ((6.0100200000000004e-05 * fVec6[((IOTA - 63) & 127)]) + ((0.0025393899999999999 * fVec6[((IOTA - 57) & 127)]) + ((0.0044228100000000001 * fVec6[((IOTA - 56) & 127)]) + ((0.0033445299999999996 * fVec6[((IOTA - 55) & 127)]) + ((0.0038119900000000003 * fVec6[((IOTA - 52) & 127)]) + ((0.00126195 * fVec6[((IOTA - 47) & 127)]) + ((0.00358275 * fVec6[((IOTA - 46) & 127)]) + ((0.0054975199999999997 * fVec6[((IOTA - 45) & 127)]) + ((0.0039510000000000005 * fVec6[((IOTA - 43) & 127)]) + ((0.0080632699999999991 * fVec6[((IOTA - 42) & 127)]) + ((0.0029713500000000002 * fVec6[((IOTA - 39) & 127)]) + ((0.0045339300000000003 * fVec6[((IOTA - 38) & 127)]) + ((0.0034691399999999999 * fVec6[((IOTA - 36) & 127)]) + ((0.011907399999999999 * fVec6[((IOTA - 33) & 127)]) + ((0.0053706500000000003 * fVec6[((IOTA - 31) & 127)]) + ((0.00080878800000000006 * fVec6[((IOTA - 29) & 127)]) + ((0.0049867499999999999 * fVec6[((IOTA - 28) & 127)]) + ((0.0289144 * fVec6[((IOTA - 26) & 127)]) + ((0.0069377800000000002 * fVec6[((IOTA - 23) & 127)]) + ((0.015224500000000002 * fVec6[((IOTA - 20) & 127)]) + ((0.022025899999999998 * fVec6[((IOTA - 19) & 127)]) + ((0.0022348099999999998 * fVec6[((IOTA - 15) & 127)]) + ((0.00084613300000000011 * fVec6[((IOTA - 10) & 127)]) + ((0.00031658400000000002 * fVec6[((IOTA - 8) & 127)]) + ((4.6817000000000003e-05 * fVec6[((IOTA - 7) & 127)]) + ((0.00030049700000000005 * fVec6[((IOTA - 6) & 127)]) + ((0.00030608399999999998 * fVec6[((IOTA - 4) & 127)]) + ((4.2592100000000005e-06 * fVec6[((IOTA - 3) & 127)]) + ((5.0763200000000002e-05 * fVec6[((IOTA - 2) & 127)]) + ((6.9052499999999997e-06 * fTemp6) + ((0.0012562599999999999 * fVec6[((IOTA - 68) & 127)]) + ((0.0010871100000000001 * fVec6[((IOTA - 66) & 127)]) + ((0.00076569700000000008 * fVec6[((IOTA - 76) & 127)]) + ((0.0010572699999999999 * fVec6[((IOTA - 75) & 127)]) + ((7.5785200000000008e-05 * fVec6[((IOTA - 74) & 127)]) + ((0.0013651400000000001 * fVec6[((IOTA - 73) & 127)]) + ((2.74129e-05 * fVec6[((IOTA - 72) & 127)]) + ((0.00022492500000000001 * fVec6[((IOTA - 71) & 127)]) + ((9.1296399999999994e-07 * fVec7[((IOTA - 126) & 127)]) + ((3.51464e-06 * fVec7[((IOTA - 125) & 127)]) + ((2.3408799999999998e-06 * fVec7[((IOTA - 124) & 127)]) + ((1.2859600000000001e-05 * fVec7[((IOTA - 122) & 127)]) + ((6.8135399999999998e-05 * fVec7[((IOTA - 121) & 127)]) + ((7.0622400000000003e-05 * fVec7[((IOTA - 120) & 127)]) + ((4.4616900000000003e-05 * fVec7[((IOTA - 117) & 127)]) + ((0.00015610500000000002 * fVec7[((IOTA - 109) & 127)]) + ((9.1847800000000005e-05 * fVec7[((IOTA - 106) & 127)]) + ((0.00040533400000000003 * fVec7[((IOTA - 105) & 127)]) + ((8.3187099999999995e-05 * fVec7[((IOTA - 100) & 127)]) + ((7.3548200000000008e-05 * fVec7[((IOTA - 99) & 127)]) + ((0.00037095800000000001 * fVec7[((IOTA - 98) & 127)]) + ((0.0010441100000000002 * fVec7[((IOTA - 97) & 127)]) + ((0.00075582300000000009 * fVec7[((IOTA - 96) & 127)]) + ((0.00068145800000000002 * fVec7[((IOTA - 95) & 127)]) + ((0.0017419500000000001 * fVec7[((IOTA - 94) & 127)]) + ((0.0020959099999999999 * fVec7[((IOTA - 93) & 127)]) + ((0.00075253699999999995 * fVec7[((IOTA - 89) & 127)]) + ((0.00076358900000000006 * fVec7[((IOTA - 88) & 127)]) + ((0.00093791200000000006 * fVec7[((IOTA - 87) & 127)]) + ((0.00066410799999999995 * fVec7[((IOTA - 86) & 127)]) + ((2.1531600000000002e-05 * fVec7[((IOTA - 83) & 127)]) + ((0.00025595899999999999 * fVec7[((IOTA - 78) & 127)]) + ((0.0026293000000000002 * fVec7[((IOTA - 77) & 127)]) + ((0.00269454 * fVec7[((IOTA - 76) & 127)]) + ((0.00143391 * fVec7[((IOTA - 75) & 127)]) + ((0.00067648000000000003 * fVec7[((IOTA - 74) & 127)]) + ((0.000121165 * fVec7[((IOTA - 73) & 127)]) + ((0.00082825600000000009 * fVec7[((IOTA - 66) & 127)]) + ((0.00018963900000000002 * fVec7[((IOTA - 65) & 127)]) + ((0.0047187499999999999 * fVec7[((IOTA - 52) & 127)]) + ((0.0066370199999999996 * fVec7[((IOTA - 51) & 127)]) + ((0.0045751999999999998 * fVec7[((IOTA - 50) & 127)]) + ((0.0044307699999999997 * fVec7[((IOTA - 49) & 127)]) + ((0.0081759099999999998 * fVec7[((IOTA - 48) & 127)]) + ((0.0042540899999999994 * fVec7[((IOTA - 47) & 127)]) + ((0.0031707900000000002 * fVec7[((IOTA - 46) & 127)]) + ((0.0049894200000000005 * fVec7[((IOTA - 45) & 127)]) + ((0.0097648300000000004 * fVec7[((IOTA - 44) & 127)]) + ((0.0162506 * fVec7[((IOTA - 43) & 127)]) + ((0.0036288100000000001 * fVec7[((IOTA - 42) & 127)]) + ((0.0078956300000000007 * fVec7[((IOTA - 40) & 127)]) + ((0.0017256800000000001 * fVec7[((IOTA - 31) & 127)]) + ((0.027913199999999999 * fVec7[((IOTA - 24) & 127)]) + ((0.025743499999999999 * fVec7[((IOTA - 23) & 127)]) + ((0.0068529799999999998 * fVec7[((IOTA - 21) & 127)]) + ((0.063915300000000008 * fVec7[((IOTA - 20) & 127)]) + ((0.0661857 * fVec7[((IOTA - 19) & 127)]) + ((0.022665999999999999 * fVec7[((IOTA - 18) & 127)]) + ((0.00195357 * fVec7[((IOTA - 17) & 127)]) + ((0.0555369 * fVec7[((IOTA - 16) & 127)]) + ((0.027306 * fVec7[((IOTA - 15) & 127)]) + ((0.00054477599999999996 * fVec7[((IOTA - 10) & 127)]) + ((0.00092023100000000009 * fVec7[((IOTA - 7) & 127)]) + ((0.00095649800000000007 * fVec7[((IOTA - 6) & 127)]) + ((0.00031540600000000001 * fVec7[((IOTA - 2) & 127)]) + ((0.0035877300000000003 * fVec7[((IOTA - 57) & 127)]) + ((0.0028681000000000002 * fVec7[((IOTA - 56) & 127)]) + ((0.00039613000000000002 * fVec7[((IOTA - 62) & 127)]) + ((0.0029183799999999999 * fVec7[((IOTA - 61) & 127)]) + (((9.8664600000000001e-07 * fVec8[((IOTA - 125) & 127)]) + ((6.1935700000000003e-07 * fVec8[((IOTA - 122) & 127)]) + ((4.9322600000000008e-05 * fVec8[((IOTA - 119) & 127)]) + ((6.2934400000000005e-05 * fVec8[((IOTA - 118) & 127)]) + ((4.2778300000000003e-05 * fVec8[((IOTA - 117) & 127)]) + ((0.000106835 * fVec8[((IOTA - 116) & 127)]) + ((0.00018018099999999999 * fVec8[((IOTA - 115) & 127)]) + ((0.00022798800000000001 * fVec8[((IOTA - 114) & 127)]) + ((0.000195522 * fVec8[((IOTA - 113) & 127)]) + ((0.00011808300000000001 * fVec8[((IOTA - 112) & 127)]) + ((3.4608100000000005e-05 * fVec8[((IOTA - 111) & 127)]) + ((5.723480000000001e-05 * fVec8[((IOTA - 110) & 127)]) + ((0.00097602600000000006 * fVec8[((IOTA - 85) & 127)]) + ((0.0015255399999999999 * fVec8[((IOTA - 84) & 127)]) + ((0.00237411 * fVec8[((IOTA - 83) & 127)]) + ((0.00010142800000000001 * fVec8[((IOTA - 109) & 127)]) + ((9.4569700000000004e-05 * fVec8[((IOTA - 108) & 127)]) + ((0.000158107 * fVec8[((IOTA - 107) & 127)]) + ((0.00070563799999999997 * fVec8[((IOTA - 106) & 127)]) + ((0.00048340500000000007 * fVec8[((IOTA - 105) & 127)]) + ((0.00023814000000000002 * fVec8[((IOTA - 102) & 127)]) + ((0.00015213499999999999 * fVec8[((IOTA - 100) & 127)]) + ((0.0010091500000000001 * fVec8[((IOTA - 99) & 127)]) + ((0.0015510600000000002 * fVec8[((IOTA - 98) & 127)]) + ((0.00028692799999999999 * fVec8[((IOTA - 97) & 127)]) + ((0.00133293 * fVec8[((IOTA - 94) & 127)]) + ((0.0028975800000000003 * fVec8[((IOTA - 93) & 127)]) + ((0.00088707100000000013 * fVec8[((IOTA - 92) & 127)]) + ((0.00187875 * fVec8[((IOTA - 90) & 127)]) + ((0.0031641300000000002 * fVec8[((IOTA - 89) & 127)]) + ((0.0018413699999999999 * fVec8[((IOTA - 88) & 127)]) + ((0.00031068799999999999 * fVec8[((IOTA - 86) & 127)]) + ((0.00112458 * fVec8[((IOTA - 82) & 127)]) + ((0.000380057 * fVec8[((IOTA - 81) & 127)]) + ((0.00020890300000000003 * fVec8[((IOTA - 78) & 127)]) + ((0.000712925 * fVec8[((IOTA - 75) & 127)]) + ((0.00090846500000000001 * fVec8[((IOTA - 74) & 127)]) + ((0.000274135 * fVec8[((IOTA - 73) & 127)]) + ((0.00090694700000000018 * fVec8[((IOTA - 64) & 127)]) + ((0.0024532300000000003 * fVec8[((IOTA - 63) & 127)]) + ((0.00327984 * fVec8[((IOTA - 62) & 127)]) + ((0.0016773199999999999 * fVec8[((IOTA - 61) & 127)]) + ((0.00044967800000000007 * fVec8[((IOTA - 60) & 127)]) + ((0.00165106 * fVec8[((IOTA - 59) & 127)]) + ((0.0048987900000000001 * fVec8[((IOTA - 58) & 127)]) + ((0.0034805299999999999 * fVec8[((IOTA - 57) & 127)]) + ((0.0023563100000000003 * fVec8[((IOTA - 56) & 127)]) + ((0.0045976600000000008 * fVec8[((IOTA - 55) & 127)]) + ((0.00626758 * fVec8[((IOTA - 54) & 127)]) + ((0.0026557099999999999 * fVec8[((IOTA - 53) & 127)]) + ((0.0043297500000000003 * fVec8[((IOTA - 52) & 127)]) + ((0.009209740000000001 * fVec8[((IOTA - 51) & 127)]) + ((0.0029224400000000001 * fVec8[((IOTA - 50) & 127)]) + ((0.0033351100000000001 * fVec8[((IOTA - 49) & 127)]) + ((0.010395300000000001 * fVec8[((IOTA - 48) & 127)]) + ((0.0093701299999999991 * fVec8[((IOTA - 47) & 127)]) + ((0.0063169100000000002 * fVec8[((IOTA - 46) & 127)]) + ((0.013098200000000001 * fVec8[((IOTA - 45) & 127)]) + ((0.014119 * fVec8[((IOTA - 44) & 127)]) + ((0.0021459299999999999 * fVec8[((IOTA - 43) & 127)]) + ((0.0105223 * fVec8[((IOTA - 42) & 127)]) + ((0.022465099999999998 * fVec8[((IOTA - 41) & 127)]) + ((0.0080828600000000007 * fVec8[((IOTA - 40) & 127)]) + ((0.0026383800000000001 * fVec8[((IOTA - 39) & 127)]) + ((0.0090530699999999999 * fVec8[((IOTA - 38) & 127)]) + ((0.0048908699999999994 * fVec8[((IOTA - 37) & 127)]) + ((0.0060908100000000003 * fVec8[((IOTA - 35) & 127)]) + ((0.0095365099999999998 * fVec8[((IOTA - 32) & 127)]) + ((0.00093046600000000002 * fVec8[((IOTA - 22) & 127)]) + ((0.015390200000000001 * fVec8[((IOTA - 18) & 127)]) + ((0.045964499999999998 * fVec8[((IOTA - 17) & 127)]) + ((0.028787799999999999 * fVec8[((IOTA - 15) & 127)]) + ((0.048319200000000007 * fVec8[((IOTA - 14) & 127)]) + ((0.076845299999999991 * fVec8[((IOTA - 13) & 127)]) + ((0.074437400000000001 * fVec8[((IOTA - 12) & 127)]) + ((0.0013813599999999999 * fVec8[((IOTA - 11) & 127)]) + ((9.4869000000000016e-05 * fVec8[((IOTA - 10) & 127)]) + ((0.00097653599999999996 * fVec8[((IOTA - 9) & 127)]) + ((0.00011001600000000001 * fVec8[((IOTA - 8) & 127)]) + ((0.00063438600000000002 * fVec8[((IOTA - 5) & 127)]) + ((0.00012589200000000001 * fVec8[((IOTA - 4) & 127)]) + ((0.00040925999999999999 * fVec8[((IOTA - 3) & 127)]) + ((6.4495100000000005e-05 * fVec8[((IOTA - 1) & 127)]) + ((1.3287400000000001e-05 * fTemp8) + ((7.7027e-06 * fVec9[((IOTA - 124) & 127)]) + ((1.6838600000000002e-05 * fVec9[((IOTA - 123) & 127)]) + ((4.9636399999999996e-06 * fVec9[((IOTA - 122) & 127)]) + ((1.9403399999999997e-06 * fVec9[((IOTA - 121) & 127)]) + ((5.28142e-05 * fVec9[((IOTA - 120) & 127)]) + ((0.00011763 * fVec9[((IOTA - 119) & 127)]) + ((0.00016574 * fVec9[((IOTA - 118) & 127)]) + ((0.00013637100000000001 * fVec9[((IOTA - 117) & 127)]) + ((9.7487500000000005e-05 * fVec9[((IOTA - 116) & 127)]) + ((2.2899500000000003e-05 * fVec9[((IOTA - 115) & 127)]) + ((1.3387100000000001e-05 * fVec9[((IOTA - 114) & 127)]) + ((8.3318600000000019e-05 * fVec9[((IOTA - 113) & 127)]) + ((0.00025527000000000004 * fVec9[((IOTA - 112) & 127)]) + ((0.00034909600000000002 * fVec9[((IOTA - 111) & 127)]) + ((0.00019374600000000001 * fVec9[((IOTA - 107) & 127)]) + ((0.00019838400000000002 * fVec9[((IOTA - 103) & 127)]) + ((0.000168486 * fVec9[((IOTA - 96) & 127)]) + ((0.0012272400000000001 * fVec9[((IOTA - 95) & 127)]) + ((0.00020233 * fVec9[((IOTA - 94) & 127)]) + ((0.00017177199999999999 * fVec9[((IOTA - 90) & 127)]) + ((0.00020847000000000004 * fVec9[((IOTA - 88) & 127)]) + ((0.0011732700000000001 * fVec9[((IOTA - 87) & 127)]) + ((0.00090841200000000004 * fVec9[((IOTA - 86) & 127)]) + ((0.0010732299999999999 * fVec9[((IOTA - 81) & 127)]) + ((0.00257691 * fVec9[((IOTA - 80) & 127)]) + ((0.0017717799999999999 * fVec9[((IOTA - 79) & 127)]) + ((0.000561862 * fVec9[((IOTA - 78) & 127)]) + ((0.000172719 * fVec9[((IOTA - 77) & 127)]) + ((0.0028482099999999999 * fVec9[((IOTA - 75) & 127)]) + ((0.00218125 * fVec9[((IOTA - 74) & 127)]) + ((0.00024288000000000001 * fVec9[((IOTA - 71) & 127)]) + ((0.00186575 * fVec9[((IOTA - 70) & 127)]) + ((0.000588187 * fVec9[((IOTA - 66) & 127)]) + ((0.00080033999999999997 * fVec9[((IOTA - 58) & 127)]) + ((2.5690700000000001e-05 * fVec9[((IOTA - 55) & 127)]) + ((0.00113243 * fVec9[((IOTA - 54) & 127)]) + ((0.0016462200000000001 * fVec9[((IOTA - 53) & 127)]) + ((0.00086436100000000012 * fVec9[((IOTA - 51) & 127)]) + ((0.0055766799999999997 * fVec9[((IOTA - 50) & 127)]) + ((0.00392757 * fVec9[((IOTA - 49) & 127)]) + ((0.0028865100000000001 * fVec9[((IOTA - 48) & 127)]) + ((0.0056144999999999997 * fVec9[((IOTA - 47) & 127)]) + ((0.0026402700000000001 * fVec9[((IOTA - 46) & 127)]) + ((0.0042838500000000005 * fVec9[((IOTA - 44) & 127)]) + ((0.0034927700000000001 * fVec9[((IOTA - 43) & 127)]) + ((0.00038527200000000003 * fVec9[((IOTA - 42) & 127)]) + ((0.0065811400000000009 * fVec9[((IOTA - 41) & 127)]) + ((0.0015727 * fVec9[((IOTA - 40) & 127)]) + ((0.0158301 * fVec9[((IOTA - 37) & 127)]) + ((0.027060000000000001 * fVec9[((IOTA - 34) & 127)]) + ((0.0063968899999999997 * fVec9[((IOTA - 31) & 127)]) + ((0.011650000000000001 * fVec9[((IOTA - 30) & 127)]) + ((0.0092220099999999992 * fVec9[((IOTA - 28) & 127)]) + ((0.0078633899999999996 * fVec9[((IOTA - 27) & 127)]) + ((0.029293300000000001 * fVec9[((IOTA - 25) & 127)]) + ((0.0096560400000000012 * fVec9[((IOTA - 24) & 127)]) + ((0.0144406 * fVec9[((IOTA - 22) & 127)]) + ((0.013951100000000001 * fVec9[((IOTA - 21) & 127)]) + ((0.0084374500000000009 * fVec9[((IOTA - 18) & 127)]) + ((0.0039648399999999999 * fVec9[((IOTA - 16) & 127)]) + ((0.0014542699999999999 * fVec9[((IOTA - 13) & 127)]) + ((0.00036303800000000004 * fVec9[((IOTA - 12) & 127)]) + ((0.00064008700000000001 * fVec9[((IOTA - 9) & 127)]) + ((6.501340000000001e-05 * fVec9[((IOTA - 6) & 127)]) + ((0.00011503900000000001 * fVec9[((IOTA - 5) & 127)]) + ((7.4982900000000003e-05 * fVec9[((IOTA - 3) & 127)]) + ((0.0016132899999999999 * fVec9[((IOTA - 85) & 127)]) + ((0.00035920700000000001 * fVec9[((IOTA - 84) & 127)]) + ((5.3978799999999999e-06 * fVec10[((IOTA - 125) & 127)]) + ((7.9125199999999989e-06 * fVec10[((IOTA - 124) & 127)]) + ((8.4929499999999997e-06 * fVec10[((IOTA - 123) & 127)]) + ((1.1654000000000001e-05 * fVec10[((IOTA - 122) & 127)]) + ((5.1085100000000003e-05 * fVec10[((IOTA - 121) & 127)]) + ((6.8685100000000004e-05 * fVec10[((IOTA - 120) & 127)]) + ((3.2896299999999998e-06 * fVec10[((IOTA - 119) & 127)]) + ((1.41509e-05 * fVec10[((IOTA - 118) & 127)]) + ((1.6980200000000004e-05 * fVec10[((IOTA - 117) & 127)]) + ((3.2223700000000001e-05 * fVec10[((IOTA - 116) & 127)]) + ((5.8471100000000003e-05 * fVec10[((IOTA - 115) & 127)]) + ((0.00031580000000000003 * fVec9[((IOTA - 82) & 127)]) + ((0.00010523700000000001 * fVec10[((IOTA - 114) & 127)]) + ((0.00013697000000000001 * fVec10[((IOTA - 113) & 127)]) + ((0.00010184400000000001 * fVec10[((IOTA - 112) & 127)]) + ((3.2479200000000006e-05 * fVec10[((IOTA - 104) & 127)]) + ((7.9775300000000009e-05 * fVec10[((IOTA - 103) & 127)]) + ((0.000178013 * fVec10[((IOTA - 97) & 127)]) + ((0.00096584900000000007 * fVec10[((IOTA - 96) & 127)]) + ((0.00013887600000000002 * fVec10[((IOTA - 95) & 127)]) + ((0.00019982600000000001 * fVec10[((IOTA - 92) & 127)]) + ((0.00031649800000000002 * fVec10[((IOTA - 89) & 127)]) + ((0.00037059799999999998 * fVec10[((IOTA - 88) & 127)]) + ((0.0012454300000000001 * fVec10[((IOTA - 87) & 127)]) + ((0.00084652999999999996 * fVec10[((IOTA - 86) & 127)]) + ((0.00049063800000000005 * fVec10[((IOTA - 82) & 127)]) + ((0.0013326899999999999 * fVec10[((IOTA - 79) & 127)]) + ((0.00140716 * fVec10[((IOTA - 78) & 127)]) + ((0.00036433400000000001 * fVec10[((IOTA - 77) & 127)]) + ((0.001299 * fVec10[((IOTA - 75) & 127)]) + ((0.0033552399999999998 * fVec10[((IOTA - 74) & 127)]) + ((0.00067232300000000006 * fVec10[((IOTA - 73) & 127)]) + ((0.000145224 * fVec10[((IOTA - 72) & 127)]) + ((0.00118198 * fVec10[((IOTA - 69) & 127)]) + ((0.0029169900000000004 * fVec10[((IOTA - 68) & 127)]) + ((0.000641773 * fVec10[((IOTA - 63) & 127)]) + ((0.0019041500000000001 * fVec10[((IOTA - 62) & 127)]) + ((0.0020271300000000003 * fVec10[((IOTA - 58) & 127)]) + ((0.0037510500000000001 * fVec10[((IOTA - 57) & 127)]) + ((0.0046006600000000003 * fVec10[((IOTA - 56) & 127)]) + ((0.0050914999999999997 * fVec10[((IOTA - 55) & 127)]) + ((0.0044053800000000004 * fVec10[((IOTA - 54) & 127)]) + ((0.0011063700000000002 * fVec10[((IOTA - 53) & 127)]) + ((0.0019731900000000001 * fVec10[((IOTA - 52) & 127)]) + ((0.0069039700000000006 * fVec10[((IOTA - 51) & 127)]) + ((0.0049702700000000006 * fVec10[((IOTA - 43) & 127)]) + ((0.0075730000000000007 * fVec10[((IOTA - 42) & 127)]) + ((0.0060422599999999998 * fVec10[((IOTA - 41) & 127)]) + ((0.0027149600000000002 * fVec10[((IOTA - 39) & 127)]) + ((0.00081970899999999995 * fVec10[((IOTA - 38) & 127)]) + ((5.1858400000000005e-05 * fVec10[((IOTA - 36) & 127)]) + ((0.0045739400000000003 * fVec10[((IOTA - 35) & 127)]) + ((0.00060354400000000002 * fVec10[((IOTA - 31) & 127)]) + ((0.0126207 * fVec10[((IOTA - 18) & 127)]) + ((0.015590100000000001 * fVec10[((IOTA - 17) & 127)]) + ((0.027497799999999999 * fVec10[((IOTA - 15) & 127)]) + ((0.019302299999999998 * fVec10[((IOTA - 14) & 127)]) + ((0.044481599999999996 * fVec10[((IOTA - 13) & 127)]) + ((0.042276800000000003 * fVec10[((IOTA - 12) & 127)]) + ((0.0021177600000000002 * fVec10[((IOTA - 11) & 127)]) + ((0.00027291300000000001 * fVec10[((IOTA - 9) & 127)]) + ((6.1550000000000005e-05 * fVec10[((IOTA - 8) & 127)]) + ((0.000175224 * fVec10[((IOTA - 5) & 127)]) + ((0.00022650199999999998 * fVec10[((IOTA - 4) & 127)]) + ((5.7022700000000005e-05 * fVec10[((IOTA - 3) & 127)]) + ((2.0383200000000002e-05 * fVec10[((IOTA - 1) & 127)]) + ((4.9413399999999999e-06 * fTemp10) + ((0.0058685200000000003 * fVec10[((IOTA - 50) & 127)]) + ((0.0061875000000000003 * fVec10[((IOTA - 49) & 127)]) + ((0.0086182900000000007 * fVec10[((IOTA - 48) & 127)]) + ((0.0054012200000000008 * fVec10[((IOTA - 45) & 127)]) + ((0.0051318099999999997 * fVec10[((IOTA - 47) & 127)]) + ((0.00066500800000000003 * fVec10[((IOTA - 46) & 127)]) + ((5.7104899999999999e-06 * fVec11[((IOTA - 125) & 127)]) + ((1.32724e-05 * fVec11[((IOTA - 124) & 127)]) + (((2.9137400000000003e-05 * fVec11[((IOTA - 119) & 127)]) + ((0.00015924 * fVec11[((IOTA - 116) & 127)]) + ((7.6537400000000003e-05 * fVec11[((IOTA - 115) & 127)]) + ((6.5009300000000008e-05 * fVec11[((IOTA - 114) & 127)]) + ((3.6292700000000006e-05 * fVec11[((IOTA - 113) & 127)]) + ((2.5843400000000004e-05 * fVec11[((IOTA - 112) & 127)]) + ((0.00024267500000000003 * fVec11[((IOTA - 111) & 127)]) + ((0.00031903100000000006 * fVec11[((IOTA - 109) & 127)]) + ((0.00039582199999999999 * fVec11[((IOTA - 108) & 127)]) + ((0.00027277099999999999 * fVec11[((IOTA - 107) & 127)]) + ((0.00092367899999999995 * fVec11[((IOTA - 106) & 127)]) + ((0.0007145500000000001 * fVec11[((IOTA - 105) & 127)]) + ((0.000964846 * fVec11[((IOTA - 104) & 127)]) + ((0.0012146699999999999 * fVec11[((IOTA - 103) & 127)]) + ((0.00057145600000000003 * fVec11[((IOTA - 102) & 127)]) + ((0.00054242299999999999 * fVec11[((IOTA - 101) & 127)]) + ((0.00061493000000000008 * fVec11[((IOTA - 100) & 127)]) + ((0.0012203400000000001 * fVec11[((IOTA - 99) & 127)]) + ((0.0011941500000000002 * fVec11[((IOTA - 98) & 127)]) + ((0.00106711 * fVec11[((IOTA - 97) & 127)]) + ((0.00308618 * fVec11[((IOTA - 96) & 127)]) + ((0.0032894199999999999 * fVec11[((IOTA - 95) & 127)]) + ((0.00149796 * fVec11[((IOTA - 94) & 127)]) + ((0.00068249900000000004 * fVec11[((IOTA - 93) & 127)]) + ((0.00078510099999999996 * fVec11[((IOTA - 91) & 127)]) + ((0.00096550100000000012 * fVec11[((IOTA - 90) & 127)]) + ((0.00058387599999999999 * fVec11[((IOTA - 89) & 127)]) + ((0.0013118799999999999 * fVec11[((IOTA - 88) & 127)]) + ((0.0027314400000000003 * fVec11[((IOTA - 87) & 127)]) + ((0.0023903100000000001 * fVec11[((IOTA - 85) & 127)]) + ((0.0025833200000000001 * fVec11[((IOTA - 84) & 127)]) + ((0.00058356200000000003 * fVec11[((IOTA - 83) & 127)]) + ((0.0013939500000000001 * fVec11[((IOTA - 78) & 127)]) + ((1.7606500000000002e-05 * fVec11[((IOTA - 77) & 127)]) + ((0.0017979000000000001 * fVec11[((IOTA - 75) & 127)]) + ((0.00191797 * fVec11[((IOTA - 74) & 127)]) + ((0.00034747700000000001 * fVec11[((IOTA - 73) & 127)]) + ((0.000544179 * fVec11[((IOTA - 67) & 127)]) + ((5.63033e-05 * fVec11[((IOTA - 65) & 127)]) + ((0.0011524899999999999 * fVec11[((IOTA - 62) & 127)]) + ((0.00156606 * fVec11[((IOTA - 55) & 127)]) + ((0.0015830800000000002 * fVec11[((IOTA - 54) & 127)]) + ((0.0017704200000000002 * fVec11[((IOTA - 50) & 127)]) + ((0.0019330199999999999 * fVec11[((IOTA - 49) & 127)]) + ((0.00266146 * fVec11[((IOTA - 46) & 127)]) + ((0.0011897800000000001 * fVec11[((IOTA - 45) & 127)]) + ((0.00307881 * fVec11[((IOTA - 42) & 127)]) + ((0.0024114100000000001 * fVec11[((IOTA - 41) & 127)]) + ((0.0026392099999999999 * fVec11[((IOTA - 40) & 127)]) + ((0.00380796 * fVec11[((IOTA - 39) & 127)]) + ((0.000320157 * fVec11[((IOTA - 38) & 127)]) + ((0.00022045699999999999 * fVec11[((IOTA - 37) & 127)]) + ((0.0020659800000000002 * fVec11[((IOTA - 36) & 127)]) + ((0.0049689600000000006 * fVec11[((IOTA - 34) & 127)]) + ((0.0075314300000000004 * fVec11[((IOTA - 33) & 127)]) + ((0.0022648999999999998 * fVec11[((IOTA - 31) & 127)]) + ((0.00801492 * fVec11[((IOTA - 30) & 127)]) + ((0.0110397 * fVec11[((IOTA - 29) & 127)]) + ((0.0010152000000000002 * fVec11[((IOTA - 28) & 127)]) + ((0.00287375 * fVec11[((IOTA - 26) & 127)]) + ((0.0161706 * fVec11[((IOTA - 22) & 127)]) + ((0.026332300000000003 * fVec11[((IOTA - 21) & 127)]) + ((0.0079993000000000009 * fVec11[((IOTA - 20) & 127)]) + ((0.00082163500000000003 * fVec11[((IOTA - 18) & 127)]) + ((0.035125400000000001 * fVec11[((IOTA - 17) & 127)]) + ((0.0032833199999999997 * fVec11[((IOTA - 14) & 127)]) + ((0.00033950300000000006 * fVec11[((IOTA - 11) & 127)]) + ((0.00046365600000000006 * fVec11[((IOTA - 9) & 127)]) + ((0.0019217200000000002 * fVec11[((IOTA - 8) & 127)]) + ((0.00055710700000000004 * fVec11[((IOTA - 6) & 127)]) + ((0.00078591400000000008 * fVec11[((IOTA - 5) & 127)]) + ((0.00067488200000000002 * fVec11[((IOTA - 4) & 127)]) + ((0.00020588500000000003 * fVec11[((IOTA - 2) & 127)]) + ((3.4700500000000004e-05 * fVec11[((IOTA - 1) & 127)]) + ((1.2413700000000001e-05 * fTemp11) + ((4.8744899999999996e-07 * fVec12[((IOTA - 126) & 127)]) + ((3.5255099999999998e-06 * fVec12[((IOTA - 125) & 127)]) + ((3.2621699999999995e-06 * fVec12[((IOTA - 124) & 127)]) + ((4.06072e-05 * fVec12[((IOTA - 121) & 127)]) + ((6.3317800000000006e-05 * fVec12[((IOTA - 120) & 127)]) + ((3.5918100000000004e-05 * fVec12[((IOTA - 119) & 127)]) + ((2.5941400000000002e-05 * fVec12[((IOTA - 117) & 127)]) + ((8.6548500000000007e-05 * fVec12[((IOTA - 116) & 127)]) + ((5.5551700000000006e-05 * fVec12[((IOTA - 115) & 127)]) + ((3.6866300000000003e-05 * fVec12[((IOTA - 114) & 127)]) + ((4.2405400000000006e-05 * fVec12[((IOTA - 113) & 127)]) + ((8.1096800000000013e-05 * fVec12[((IOTA - 112) & 127)]) + ((4.85157e-05 * fVec12[((IOTA - 111) & 127)]) + ((7.4248300000000005e-05 * fVec12[((IOTA - 110) & 127)]) + ((6.1852800000000005e-05 * fVec12[((IOTA - 107) & 127)]) + ((0.00033669 * fVec12[((IOTA - 106) & 127)]) + ((0.00035192300000000003 * fVec12[((IOTA - 105) & 127)]) + ((0.000181368 * fVec12[((IOTA - 102) & 127)]) + ((5.5010100000000004e-05 * fVec12[((IOTA - 99) & 127)]) + ((0.000181872 * fVec12[((IOTA - 95) & 127)]) + ((0.0012472700000000002 * fVec12[((IOTA - 94) & 127)]) + ((0.0012369000000000002 * fVec12[((IOTA - 93) & 127)]) + ((0.0031734000000000003 * fVec11[((IOTA - 86) & 127)]) + ((0.00084541900000000014 * fVec12[((IOTA - 88) & 127)]) + ((0.00030825999999999998 * fVec12[((IOTA - 87) & 127)]) + ((0.000991956 * fVec12[((IOTA - 86) & 127)]) + ((0.00039449500000000002 * fVec12[((IOTA - 83) & 127)]) + ((0.00042647700000000008 * fVec12[((IOTA - 78) & 127)]) + ((0.00098188600000000017 * fVec12[((IOTA - 76) & 127)]) + ((0.00076287399999999997 * fVec12[((IOTA - 75) & 127)]) + ((0.00019696800000000003 * fVec12[((IOTA - 73) & 127)]) + ((0.00026003500000000004 * fVec12[((IOTA - 72) & 127)]) + ((0.000162845 * fVec12[((IOTA - 68) & 127)]) + ((0.000175864 * fVec12[((IOTA - 65) & 127)]) + ((0.00122741 * fVec12[((IOTA - 62) & 127)]) + ((0.00051085000000000008 * fVec12[((IOTA - 60) & 127)]) + ((0.0042857099999999999 * fVec12[((IOTA - 59) & 127)]) + ((0.0037509800000000001 * fVec12[((IOTA - 58) & 127)]) + ((0.0013037700000000001 * fVec12[((IOTA - 57) & 127)]) + ((0.000469171 * fVec12[((IOTA - 52) & 127)]) + ((0.0048162999999999999 * fVec12[((IOTA - 50) & 127)]) + ((0.0040944599999999994 * fVec12[((IOTA - 49) & 127)]) + ((0.00164357 * fVec12[((IOTA - 41) & 127)]) + ((0.0066234300000000005 * fVec12[((IOTA - 40) & 127)]) + ((0.0107364 * fVec12[((IOTA - 39) & 127)]) + ((0.0021625699999999999 * fVec12[((IOTA - 38) & 127)]) + ((0.00078494800000000005 * fVec12[((IOTA - 37) & 127)]) + ((0.008554550000000001 * fVec12[((IOTA - 36) & 127)]) + ((0.0087573399999999989 * fVec12[((IOTA - 35) & 127)]) + ((0.0022028300000000002 * fVec12[((IOTA - 32) & 127)]) + ((0.026865800000000002 * fVec12[((IOTA - 31) & 127)]) + ((0.0066563000000000004 * fVec12[((IOTA - 27) & 127)]) + ((0.0173968 * fVec12[((IOTA - 26) & 127)]) + ((0.0065755600000000003 * fVec12[((IOTA - 22) & 127)]) + ((0.044476699999999994 * fVec12[((IOTA - 18) & 127)]) + ((0.019425600000000001 * fVec12[((IOTA - 17) & 127)]) + ((0.0258357 * fVec12[((IOTA - 15) & 127)]) + ((0.00505303 * fVec12[((IOTA - 13) & 127)]) + ((0.00065851199999999999 * fVec12[((IOTA - 10) & 127)]) + ((6.4017400000000008e-05 * fVec12[((IOTA - 9) & 127)]) + ((0.00033249800000000003 * fVec12[((IOTA - 8) & 127)]) + ((0.00114682 * fVec12[((IOTA - 6) & 127)]) + ((0.00043610699999999998 * fVec12[((IOTA - 4) & 127)]) + ((0.000204336 * fVec12[((IOTA - 2) & 127)]) + ((2.2571e-06 * fVec12[((IOTA - 1) & 127)]) + ((1.2883700000000002e-05 * fTemp12) + ((0.0041798500000000006 * fVec12[((IOTA - 46) & 127)]) + ((0.0073487099999999996 * fVec12[((IOTA - 45) & 127)]) + (((7.4329200000000013e-05 * fVec13[((IOTA - 115) & 127)]) + ((0.00029377599999999999 * fVec13[((IOTA - 114) & 127)]) + ((0.000280439 * fVec13[((IOTA - 113) & 127)]) + ((0.00052814500000000005 * fVec13[((IOTA - 110) & 127)]) + ((0.00070229999999999999 * fVec13[((IOTA - 109) & 127)]) + ((0.00080632699999999991 * fVec13[((IOTA - 108) & 127)]) + ((0.000643591 * fVec13[((IOTA - 107) & 127)]) + ((0.00081294000000000006 * fVec13[((IOTA - 106) & 127)]) + ((0.00082950500000000002 * fVec13[((IOTA - 105) & 127)]) + ((0.00023107600000000004 * fVec13[((IOTA - 104) & 127)]) + ((0.00064061300000000005 * fVec13[((IOTA - 103) & 127)]) + ((0.00091664000000000003 * fVec13[((IOTA - 102) & 127)]) + ((0.00073955600000000005 * fVec13[((IOTA - 101) & 127)]) + ((0.00059890600000000007 * fVec13[((IOTA - 100) & 127)]) + ((0.0013073099999999999 * fVec13[((IOTA - 99) & 127)]) + ((0.0027768799999999998 * fVec13[((IOTA - 98) & 127)]) + ((0.00040949500000000001 * fVec13[((IOTA - 97) & 127)]) + ((0.00145302 * fVec13[((IOTA - 94) & 127)]) + ((0.0022861500000000002 * fVec13[((IOTA - 93) & 127)]) + ((0.001377 * fVec13[((IOTA - 90) & 127)]) + ((0.0017080400000000001 * fVec13[((IOTA - 89) & 127)]) + ((0.00016274 * fVec13[((IOTA - 83) & 127)]) + ((0.0027307400000000002 * fVec13[((IOTA - 82) & 127)]) + ((0.0028667500000000004 * fVec13[((IOTA - 81) & 127)]) + ((0.0011399600000000002 * fVec13[((IOTA - 80) & 127)]) + ((0.00110995 * fVec13[((IOTA - 79) & 127)]) + ((0.00124602 * fVec13[((IOTA - 78) & 127)]) + ((0.00129805 * fVec13[((IOTA - 77) & 127)]) + ((0.00100318 * fVec13[((IOTA - 76) & 127)]) + ((0.0022987899999999998 * fVec13[((IOTA - 75) & 127)]) + ((0.0019049100000000001 * fVec13[((IOTA - 74) & 127)]) + ((0.00059075000000000002 * fVec13[((IOTA - 73) & 127)]) + ((0.00103864 * fVec13[((IOTA - 72) & 127)]) + ((0.0013787300000000001 * fVec13[((IOTA - 71) & 127)]) + ((0.00293582 * fVec13[((IOTA - 69) & 127)]) + ((0.0023355800000000003 * fVec13[((IOTA - 68) & 127)]) + ((0.0011070699999999999 * fVec13[((IOTA - 67) & 127)]) + ((0.00050953999999999995 * fVec13[((IOTA - 66) & 127)]) + ((0.00044511000000000003 * fVec13[((IOTA - 65) & 127)]) + ((0.0038312400000000001 * fVec13[((IOTA - 61) & 127)]) + ((0.0016638 * fVec13[((IOTA - 60) & 127)]) + ((0.0043739400000000006 * fVec13[((IOTA - 48) & 127)]) + ((0.0013932899999999999 * fVec13[((IOTA - 45) & 127)]) + ((0.0106382 * fVec13[((IOTA - 41) & 127)]) + ((0.0043469900000000002 * fVec13[((IOTA - 40) & 127)]) + ((0.0015759000000000001 * fVec13[((IOTA - 37) & 127)]) + ((0.0073185999999999998 * fVec13[((IOTA - 36) & 127)]) + ((0.0045973800000000007 * fVec13[((IOTA - 35) & 127)]) + ((0.013183400000000001 * fVec13[((IOTA - 33) & 127)]) + ((0.028645500000000001 * fVec13[((IOTA - 32) & 127)]) + ((0.0092487699999999999 * fVec13[((IOTA - 29) & 127)]) + ((0.039121700000000002 * fVec13[((IOTA - 28) & 127)]) + ((0.00144425 * fVec13[((IOTA - 27) & 127)]) + ((0.0060285 * fVec13[((IOTA - 25) & 127)]) + ((0.057524800000000001 * fVec13[((IOTA - 24) & 127)]) + ((0.021570599999999999 * fVec13[((IOTA - 21) & 127)]) + ((0.0014793400000000002 * fVec13[((IOTA - 20) & 127)]) + ((0.0043988899999999999 * fVec13[((IOTA - 19) & 127)]) + ((0.0073680199999999994 * fVec13[((IOTA - 16) & 127)]) + ((0.00058021900000000009 * fVec13[((IOTA - 14) & 127)]) + ((0.0037306700000000002 * fVec13[((IOTA - 12) & 127)]) + ((0.000216524 * fVec13[((IOTA - 11) & 127)]) + ((0.00050577300000000005 * fVec13[((IOTA - 7) & 127)]) + ((0.00019702400000000002 * fVec13[((IOTA - 5) & 127)]) + ((6.4290300000000003e-05 * fVec13[((IOTA - 3) & 127)]) + (((7.8904099999999995e-07 * fVec14[((IOTA - 118) & 127)]) + ((5.1851200000000009e-05 * fVec14[((IOTA - 117) & 127)]) + ((3.48346e-05 * fVec14[((IOTA - 116) & 127)]) + ((0.000263489 * fVec14[((IOTA - 113) & 127)]) + ((0.00048678400000000003 * fVec14[((IOTA - 112) & 127)]) + ((0.00066577900000000002 * fVec14[((IOTA - 111) & 127)]) + ((0.00072508600000000011 * fVec14[((IOTA - 110) & 127)]) + ((0.00094771800000000006 * fVec14[((IOTA - 109) & 127)]) + ((0.00085589900000000003 * fVec14[((IOTA - 108) & 127)]) + ((0.00097958799999999999 * fVec14[((IOTA - 107) & 127)]) + ((0.00110553 * fVec14[((IOTA - 106) & 127)]) + ((0.00082826600000000003 * fVec14[((IOTA - 105) & 127)]) + ((0.0013655500000000001 * fVec14[((IOTA - 104) & 127)]) + ((0.0018638400000000001 * fVec14[((IOTA - 103) & 127)]) + ((0.0016748900000000001 * fVec14[((IOTA - 102) & 127)]) + ((0.0013615999999999999 * fVec14[((IOTA - 101) & 127)]) + ((0.00120272 * fVec14[((IOTA - 100) & 127)]) + ((0.00103053 * fVec14[((IOTA - 99) & 127)]) + ((0.00040302800000000005 * fVec14[((IOTA - 98) & 127)]) + ((0.0012814900000000001 * fVec14[((IOTA - 97) & 127)]) + ((0.0015273399999999999 * fVec14[((IOTA - 96) & 127)]) + ((0.00038473700000000001 * fVec14[((IOTA - 94) & 127)]) + ((0.0010250300000000001 * fVec14[((IOTA - 93) & 127)]) + ((0.0011346700000000002 * fVec14[((IOTA - 92) & 127)]) + ((0.00043984100000000006 * fVec14[((IOTA - 85) & 127)]) + ((0.00021673800000000001 * fVec14[((IOTA - 84) & 127)]) + ((2.74177e-05 * fVec14[((IOTA - 82) & 127)]) + ((0.0010960700000000002 * fVec14[((IOTA - 77) & 127)]) + ((0.0013700399999999999 * fVec14[((IOTA - 73) & 127)]) + ((0.0030635300000000001 * fVec14[((IOTA - 72) & 127)]) + ((0.0019637600000000002 * fVec14[((IOTA - 71) & 127)]) + ((0.0018260300000000002 * fVec14[((IOTA - 70) & 127)]) + ((0.00238017 * fVec14[((IOTA - 69) & 127)]) + ((0.0031654200000000004 * fVec14[((IOTA - 68) & 127)]) + ((0.00275033 * fVec14[((IOTA - 67) & 127)]) + ((0.00046550599999999997 * fVec14[((IOTA - 95) & 127)]) + ((0.0016457800000000001 * fVec14[((IOTA - 66) & 127)]) + ((0.0025982900000000001 * fVec14[((IOTA - 65) & 127)]) + ((0.0013408299999999999 * fVec14[((IOTA - 64) & 127)]) + ((0.00068048499999999999 * fVec14[((IOTA - 60) & 127)]) + ((0.00122218 * fVec14[((IOTA - 59) & 127)]) + ((0.00152893 * fVec14[((IOTA - 58) & 127)]) + ((0.0022063899999999999 * fVec14[((IOTA - 57) & 127)]) + ((0.00078379700000000003 * fVec14[((IOTA - 56) & 127)]) + ((0.00022987799999999998 * fVec14[((IOTA - 52) & 127)]) + ((0.00078511300000000004 * fVec14[((IOTA - 51) & 127)]) + ((0.0012260999999999999 * fVec14[((IOTA - 45) & 127)]) + ((0.0026344099999999998 * fVec14[((IOTA - 44) & 127)]) + ((0.0038961999999999998 * fVec14[((IOTA - 39) & 127)]) + ((0.011467400000000001 * fVec14[((IOTA - 38) & 127)]) + ((0.0078678299999999993 * fVec14[((IOTA - 37) & 127)]) + ((0.0013363100000000001 * fVec14[((IOTA - 34) & 127)]) + ((0.0089890100000000004 * fVec14[((IOTA - 32) & 127)]) + ((0.0143689 * fVec14[((IOTA - 31) & 127)]) + ((0.0049334100000000001 * fVec14[((IOTA - 30) & 127)]) + ((0.019686699999999998 * fVec14[((IOTA - 27) & 127)]) + ((0.043355600000000001 * fVec14[((IOTA - 19) & 127)]) + ((0.00249322 * fVec14[((IOTA - 18) & 127)]) + ((0.0141169 * fVec14[((IOTA - 16) & 127)]) + ((0.0111431 * fVec14[((IOTA - 15) & 127)]) + ((0.0018486100000000001 * fVec14[((IOTA - 14) & 127)]) + ((0.000976993 * fVec14[((IOTA - 13) & 127)]) + ((0.0056459800000000001 * fVec14[((IOTA - 12) & 127)]) + ((0.00021246900000000004 * fVec14[((IOTA - 11) & 127)]) + ((0.00095016999999999996 * fVec14[((IOTA - 10) & 127)]) + ((0.0010622000000000001 * fVec14[((IOTA - 7) & 127)]) + ((0.00024919200000000002 * fVec14[((IOTA - 6) & 127)]) + ((0.00027049600000000001 * fVec14[((IOTA - 3) & 127)]) + ((5.1123399999999996e-06 * fVec14[((IOTA - 2) & 127)]) + ((3.7580000000000003e-05 * fVec14[((IOTA - 1) & 127)]) + ((1.0426200000000002e-05 * fTemp14) + (((2.5019199999999998e-06 * fVec0[((IOTA - 120) & 127)]) + ((0.00015476800000000001 * fVec0[((IOTA - 107) & 127)]) + ((2.3801800000000003e-05 * fVec0[((IOTA - 106) & 127)]) + ((0.00041578400000000004 * fVec0[((IOTA - 105) & 127)]) + ((0.00040693400000000007 * fVec0[((IOTA - 104) & 127)]) + ((0.00042180200000000004 * fVec0[((IOTA - 103) & 127)]) + ((0.00064933700000000005 * fVec0[((IOTA - 102) & 127)]) + ((0.0010572399999999999 * fVec0[((IOTA - 101) & 127)]) + ((0.00096599000000000012 * fVec0[((IOTA - 100) & 127)]) + ((0.00077855999999999997 * fVec0[((IOTA - 99) & 127)]) + ((0.00073777800000000002 * fVec0[((IOTA - 98) & 127)]) + ((0.00065036 * fVec0[((IOTA - 97) & 127)]) + ((0.00069698000000000004 * fVec0[((IOTA - 96) & 127)]) + ((0.0013956400000000001 * fVec0[((IOTA - 95) & 127)]) + ((0.0020596199999999999 * fVec0[((IOTA - 94) & 127)]) + ((0.0017169000000000002 * fVec0[((IOTA - 93) & 127)]) + ((0.0012716300000000002 * fVec0[((IOTA - 92) & 127)]) + ((0.00130908 * fVec0[((IOTA - 91) & 127)]) + ((0.00161012 * fVec0[((IOTA - 88) & 127)]) + ((0.0016711600000000001 * fVec0[((IOTA - 87) & 127)]) + ((0.00075290600000000002 * fVec0[((IOTA - 86) & 127)]) + ((0.00144013 * fVec0[((IOTA - 85) & 127)]) + ((0.0021273399999999997 * fVec0[((IOTA - 84) & 127)]) + ((0.00061597300000000002 * fVec0[((IOTA - 83) & 127)]) + ((0.00011313 * fVec0[((IOTA - 81) & 127)]) + ((0.0017438199999999999 * fVec0[((IOTA - 80) & 127)]) + ((0.0024799100000000001 * fVec0[((IOTA - 79) & 127)]) + ((0.00256507 * fVec0[((IOTA - 78) & 127)]) + ((0.0011552999999999999 * fVec0[((IOTA - 75) & 127)]) + ((0.00098456699999999999 * fVec0[((IOTA - 74) & 127)]) + ((0.000597807 * fVec0[((IOTA - 73) & 127)]) + ((0.0018893200000000001 * fVec0[((IOTA - 72) & 127)]) + ((0.00092920600000000002 * fVec0[((IOTA - 23) & 127)]) + ((0.080136100000000002 * fVec0[((IOTA - 22) & 127)]) + ((0.041393800000000001 * fVec0[((IOTA - 21) & 127)]) + ((0.042661300000000006 * fVec0[((IOTA - 20) & 127)]) + ((0.0088175100000000006 * fVec0[((IOTA - 19) & 127)]) + ((0.053196100000000003 * fVec0[((IOTA - 18) & 127)]) + ((0.097787600000000002 * fVec0[((IOTA - 17) & 127)]) + ((0.040092800000000005 * fVec0[((IOTA - 16) & 127)]) + ((0.077296500000000004 * fVec0[((IOTA - 15) & 127)]) + ((0.064767000000000005 * fVec0[((IOTA - 14) & 127)]) + ((0.082935599999999998 * fVec0[((IOTA - 13) & 127)]) + ((0.078489900000000001 * fVec0[((IOTA - 12) & 127)]) + ((0.00067357800000000009 * fVec0[((IOTA - 11) & 127)]) + ((0.00149621 * fVec0[((IOTA - 10) & 127)]) + ((0.00072128000000000003 * fVec0[((IOTA - 9) & 127)]) + ((0.00101019 * fVec0[((IOTA - 8) & 127)]) + ((0.000453602 * fVec0[((IOTA - 7) & 127)]) + ((0.00042969900000000002 * fVec0[((IOTA - 6) & 127)]) + ((0.0010723199999999999 * fVec0[((IOTA - 5) & 127)]) + ((0.00084950300000000004 * fVec0[((IOTA - 4) & 127)]) + ((0.00085153200000000001 * fVec0[((IOTA - 3) & 127)]) + ((0.00015027000000000001 * fVec0[((IOTA - 1) & 127)]) + (((((((((((((((((0.00016075400000000001 * fVec15[((IOTA - 2) & 127)]) + (0.021295600000000001 * fVec15[((IOTA - 24) & 127)])) + (0.0029395300000000001 * fVec15[((IOTA - 32) & 127)])) + (0.00092078700000000006 * fVec15[((IOTA - 44) & 127)])) + (0.00063317100000000008 * fVec15[((IOTA - 57) & 127)])) + (0.00036222200000000004 * fVec15[((IOTA - 69) & 127)])) + (0.000687957 * fVec15[((IOTA - 82) & 127)])) + (0.00087519700000000008 * fVec15[((IOTA - 89) & 127)])) + (0.000611186 * fVec15[((IOTA - 90) & 127)])) + (1.7742000000000001e-05 * fVec15[((IOTA - 91) & 127)])) + (0.00196204 * fVec15[((IOTA - 92) & 127)])) + (0.0023706000000000001 * fVec15[((IOTA - 93) & 127)])) + (9.940880000000001e-05 * fVec15[((IOTA - 94) & 127)])) + (0.00047365100000000001 * fVec15[((IOTA - 97) & 127)])) + (0.00048385000000000002 * fVec15[((IOTA - 98) & 127)])) + (1.47262e-06 * fVec15[((IOTA - 122) & 127)])) + (2.4709800000000002e-05 * fTemp0)))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0086390499999999988 * fVec14[((IOTA - 25) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00181733 * fVec13[((IOTA - 70) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0047594300000000003 * fVec12[((IOTA - 44) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0077257100000000002 * fVec10[((IOTA - 44) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0020411800000000001 * fVec7[((IOTA - 60) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00044645700000000004 * fVec3[((IOTA - 8) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.8821400000000002e-05 * fTemp2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fHbargraph1 = FAUSTFLOAT(fRec19[0]); + output1[i] = FAUSTFLOAT(fTemp17); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + IOTA = (IOTA + 1); + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec0[1] = fRec0[0]; + fRec19[1] = fRec19[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecBinaural4.cpp b/source/HOAUGens/HOADecBinaural4.cpp new file mode 100644 index 0000000000..77bedcf3ea --- /dev/null +++ b/source/HOAUGens/HOADecBinaural4.cpp @@ -0,0 +1,1794 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL)" +name: "HOADecBinaural4" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + int IOTA; + double fVec0[128]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fVec1[128]; + double fRec5[2]; + FAUSTFLOAT fVbargraph2; + double fVec2[128]; + double fRec6[2]; + FAUSTFLOAT fVbargraph3; + double fVec3[128]; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fVec4[128]; + double fRec8[2]; + FAUSTFLOAT fVbargraph5; + double fVec5[128]; + double fRec9[2]; + FAUSTFLOAT fVbargraph6; + double fVec6[128]; + double fRec10[2]; + FAUSTFLOAT fVbargraph7; + double fVec7[128]; + double fRec11[2]; + FAUSTFLOAT fVbargraph8; + double fVec8[128]; + double fRec12[2]; + FAUSTFLOAT fVbargraph9; + double fVec9[128]; + double fRec13[2]; + FAUSTFLOAT fVbargraph10; + double fVec10[128]; + double fRec14[2]; + FAUSTFLOAT fVbargraph11; + double fVec11[128]; + double fRec15[2]; + FAUSTFLOAT fVbargraph12; + double fVec12[128]; + double fRec16[2]; + FAUSTFLOAT fVbargraph13; + double fVec13[128]; + double fRec17[2]; + FAUSTFLOAT fVbargraph14; + double fVec14[128]; + double fRec18[2]; + FAUSTFLOAT fVbargraph15; + double fVec15[128]; + double fRec19[2]; + FAUSTFLOAT fVbargraph16; + double fVec16[128]; + double fRec20[2]; + FAUSTFLOAT fVbargraph17; + double fVec17[128]; + double fRec21[2]; + FAUSTFLOAT fVbargraph18; + double fVec18[128]; + double fRec22[2]; + FAUSTFLOAT fVbargraph19; + double fVec19[128]; + double fRec23[2]; + FAUSTFLOAT fVbargraph20; + double fVec20[128]; + double fRec24[2]; + FAUSTFLOAT fVbargraph21; + double fVec21[128]; + double fRec25[2]; + FAUSTFLOAT fVbargraph22; + double fVec22[128]; + double fRec26[2]; + FAUSTFLOAT fVbargraph23; + double fVec23[128]; + double fRec27[2]; + FAUSTFLOAT fVbargraph24; + double fVec24[128]; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + double fRec28[2]; + FAUSTFLOAT fHbargraph1; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filters.lib/name", "Faust Filters Library"); + m->declare("filters.lib/version", "0.0"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL)"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecBinaural4"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 2; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + IOTA = 0; + for (int l3 = 0; (l3 < 128); l3 = (l3 + 1)) { + fVec0[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 128); l5 = (l5 + 1)) { + fVec1[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec5[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 128); l7 = (l7 + 1)) { + fVec2[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec6[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 128); l9 = (l9 + 1)) { + fVec3[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 128); l11 = (l11 + 1)) { + fVec4[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec8[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 128); l13 = (l13 + 1)) { + fVec5[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec9[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 128); l15 = (l15 + 1)) { + fVec6[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec10[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 128); l17 = (l17 + 1)) { + fVec7[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec11[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 128); l19 = (l19 + 1)) { + fVec8[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec12[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 128); l21 = (l21 + 1)) { + fVec9[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec13[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 128); l23 = (l23 + 1)) { + fVec10[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec14[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 128); l25 = (l25 + 1)) { + fVec11[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec15[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 128); l27 = (l27 + 1)) { + fVec12[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec16[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 128); l29 = (l29 + 1)) { + fVec13[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec17[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 128); l31 = (l31 + 1)) { + fVec14[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec18[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 128); l33 = (l33 + 1)) { + fVec15[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec19[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 128); l35 = (l35 + 1)) { + fVec16[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec20[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 128); l37 = (l37 + 1)) { + fVec17[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec21[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 128); l39 = (l39 + 1)) { + fVec18[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec22[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 128); l41 = (l41 + 1)) { + fVec19[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec23[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 128); l43 = (l43 + 1)) { + fVec20[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec24[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 128); l45 = (l45 + 1)) { + fVec21[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec25[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 128); l47 = (l47 + 1)) { + fVec22[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec26[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 128); l49 = (l49 + 1)) { + fVec23[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec27[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 128); l51 = (l51 + 1)) { + fVec24[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec0[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec28[l53] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecBinaural4"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x570bba0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54c16e0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56c8d80", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56a3460", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5678780", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56486e0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56252f0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55fcff0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55dde20", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55b6730", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x558b1f0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5563b00", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x553e1e0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55160c0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54c7a80", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54d2960", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54a0550", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5475fe0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x544cee0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x54128c0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5401560", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x53d7120", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x53aea00", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x5382c20", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x535d5a0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 10"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 10"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("Left"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x5be2610", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Right"); + ui_interface->declare(&fHbargraph1, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x60358d0", &fHbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow1 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input24[i])); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + fVec0[(IOTA & 127)] = fTemp0; + double fTemp1 = (fRec3[0] * double(input23[i])); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + fVec1[(IOTA & 127)] = fTemp1; + double fTemp2 = (fRec3[0] * double(input22[i])); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec5[0]); + fVec2[(IOTA & 127)] = fTemp2; + double fTemp3 = (fRec3[0] * double(input21[i])); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec6[0]); + fVec3[(IOTA & 127)] = fTemp3; + double fTemp4 = (fRec3[0] * double(input20[i])); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + fVec4[(IOTA & 127)] = fTemp4; + double fTemp5 = (fRec3[0] * double(input19[i])); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec8[0]); + fVec5[(IOTA & 127)] = fTemp5; + double fTemp6 = (fRec3[0] * double(input18[i])); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec9[0]); + fVec6[(IOTA & 127)] = fTemp6; + double fTemp7 = (fRec3[0] * double(input17[i])); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec10[0]); + fVec7[(IOTA & 127)] = fTemp7; + double fTemp8 = (fRec3[0] * double(input16[i])); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec11[0]); + fVec8[(IOTA & 127)] = fTemp8; + double fTemp9 = (fRec3[0] * double(input1[i])); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec12[0]); + fVec9[(IOTA & 127)] = fTemp9; + double fTemp10 = (fRec3[0] * double(input14[i])); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec13[0]); + fVec10[(IOTA & 127)] = fTemp10; + double fTemp11 = (fRec3[0] * double(input15[i])); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec14[0]); + fVec11[(IOTA & 127)] = fTemp11; + double fTemp12 = (fRec3[0] * double(input13[i])); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec15[0]); + fVec12[(IOTA & 127)] = fTemp12; + double fTemp13 = (fRec3[0] * double(input12[i])); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec16[0]); + fVec13[(IOTA & 127)] = fTemp13; + double fTemp14 = (fRec3[0] * double(input11[i])); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec17[0]); + fVec14[(IOTA & 127)] = fTemp14; + double fTemp15 = (fRec3[0] * double(input10[i])); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec18[0]); + fVec15[(IOTA & 127)] = fTemp15; + double fTemp16 = (fRec3[0] * double(input9[i])); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec19[0]); + fVec16[(IOTA & 127)] = fTemp16; + double fTemp17 = (fRec3[0] * double(input8[i])); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec20[0]); + fVec17[(IOTA & 127)] = fTemp17; + double fTemp18 = (fRec3[0] * double(input7[i])); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph18 = FAUSTFLOAT(fRec21[0]); + fVec18[(IOTA & 127)] = fTemp18; + double fTemp19 = (fRec3[0] * double(input6[i])); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph19 = FAUSTFLOAT(fRec22[0]); + fVec19[(IOTA & 127)] = fTemp19; + double fTemp20 = (fRec3[0] * double(input5[i])); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph20 = FAUSTFLOAT(fRec23[0]); + fVec20[(IOTA & 127)] = fTemp20; + double fTemp21 = (fRec3[0] * double(input4[i])); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph21 = FAUSTFLOAT(fRec24[0]); + fVec21[(IOTA & 127)] = fTemp21; + double fTemp22 = (fRec3[0] * double(input3[i])); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph22 = FAUSTFLOAT(fRec25[0]); + fVec22[(IOTA & 127)] = fTemp22; + double fTemp23 = (fRec3[0] * double(input2[i])); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph23 = FAUSTFLOAT(fRec26[0]); + fVec23[(IOTA & 127)] = fTemp23; + double fTemp24 = (fRec3[0] * double(input0[i])); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph24 = FAUSTFLOAT(fRec27[0]); + fVec24[(IOTA & 127)] = fTemp24; + double fTemp25 = (fRec1[0] * (((8.8079300000000002e-07 * fVec0[((IOTA - 126) & 127)]) + ((2.3561399999999996e-06 * fVec0[((IOTA - 124) & 127)]) + ((7.3129899999999994e-06 * fVec0[((IOTA - 118) & 127)]) + ((8.74663e-05 * fVec0[((IOTA - 113) & 127)]) + ((8.9256100000000021e-05 * fVec0[((IOTA - 112) & 127)]) + ((5.0065999999999998e-05 * fVec0[((IOTA - 109) & 127)]) + ((4.0718199999999999e-05 * fVec0[((IOTA - 107) & 127)]) + ((0.000190676 * fVec0[((IOTA - 106) & 127)]) + ((6.0194500000000008e-05 * fVec0[((IOTA - 105) & 127)]) + ((0.0010829400000000001 * fVec0[((IOTA - 104) & 127)]) + ((0.00074344099999999996 * fVec0[((IOTA - 103) & 127)]) + ((0.00017791700000000001 * fVec0[((IOTA - 101) & 127)]) + ((0.00123146 * fVec0[((IOTA - 100) & 127)]) + ((0.0012094300000000001 * fVec0[((IOTA - 99) & 127)]) + ((0.00102399 * fVec0[((IOTA - 95) & 127)]) + ((0.0011951900000000001 * fVec0[((IOTA - 94) & 127)]) + ((0.0119731 * fVec0[((IOTA - 30) & 127)]) + ((0.010247200000000001 * fVec0[((IOTA - 27) & 127)]) + ((0.0162706 * fVec0[((IOTA - 26) & 127)]) + ((0.016289999999999999 * fVec0[((IOTA - 25) & 127)]) + ((0.036860799999999999 * fVec0[((IOTA - 24) & 127)]) + ((0.038006600000000001 * fVec0[((IOTA - 23) & 127)]) + ((0.019427300000000002 * fVec0[((IOTA - 22) & 127)]) + ((0.025630400000000001 * fVec0[((IOTA - 21) & 127)]) + ((0.033451700000000001 * fVec0[((IOTA - 20) & 127)]) + ((0.029137300000000001 * fVec0[((IOTA - 13) & 127)]) + ((0.048090000000000001 * fVec0[((IOTA - 12) & 127)]) + ((0.0102197 * fVec0[((IOTA - 11) & 127)]) + ((0.00102731 * fVec0[((IOTA - 9) & 127)]) + ((0.00033557999999999998 * fVec0[((IOTA - 8) & 127)]) + ((0.00072926300000000007 * fVec0[((IOTA - 7) & 127)]) + ((0.00062620699999999994 * fVec0[((IOTA - 5) & 127)]) + ((6.2166100000000008e-05 * fVec0[((IOTA - 4) & 127)]) + ((2.7781499999999998e-06 * fTemp0) + ((0.00154042 * fVec0[((IOTA - 85) & 127)]) + ((0.00182591 * fVec0[((IOTA - 84) & 127)]) + ((0.00053972300000000009 * fVec0[((IOTA - 82) & 127)]) + ((0.00184866 * fVec0[((IOTA - 81) & 127)]) + ((0.000571055 * fVec0[((IOTA - 80) & 127)]) + ((0.0019816600000000001 * fVec0[((IOTA - 77) & 127)]) + ((0.000899127 * fVec0[((IOTA - 76) & 127)]) + ((0.00072784599999999998 * fVec0[((IOTA - 72) & 127)]) + ((0.0026818300000000001 * fVec0[((IOTA - 71) & 127)]) + ((0.0017303900000000001 * fVec0[((IOTA - 70) & 127)]) + ((0.0011627499999999999 * fVec0[((IOTA - 59) & 127)]) + ((0.00114566 * fVec0[((IOTA - 58) & 127)]) + ((0.0014845699999999999 * fVec0[((IOTA - 57) & 127)]) + ((0.0018366700000000001 * fVec0[((IOTA - 56) & 127)]) + ((0.0018739399999999999 * fVec0[((IOTA - 55) & 127)]) + ((0.00044913200000000004 * fVec0[((IOTA - 54) & 127)]) + ((0.0026997300000000004 * fVec0[((IOTA - 52) & 127)]) + ((0.00353529 * fVec0[((IOTA - 51) & 127)]) + ((0.00049338800000000009 * fVec0[((IOTA - 48) & 127)]) + ((0.0045044300000000002 * fVec0[((IOTA - 47) & 127)]) + ((4.1378300000000003e-05 * fVec0[((IOTA - 46) & 127)]) + ((0.00152776 * fVec0[((IOTA - 43) & 127)]) + ((0.0051684499999999998 * fVec0[((IOTA - 42) & 127)]) + ((0.0082244100000000014 * fVec0[((IOTA - 39) & 127)]) + ((0.0018586200000000001 * fVec0[((IOTA - 38) & 127)]) + ((3.9174899999999995e-06 * fVec1[((IOTA - 124) & 127)]) + ((2.3008000000000001e-06 * fVec1[((IOTA - 123) & 127)]) + ((2.30759e-05 * fVec1[((IOTA - 122) & 127)]) + ((4.44424e-05 * fVec1[((IOTA - 117) & 127)]) + ((2.0348199999999997e-06 * fVec1[((IOTA - 115) & 127)]) + ((0.00014602200000000002 * fVec1[((IOTA - 112) & 127)]) + ((0.000200705 * fVec1[((IOTA - 111) & 127)]) + ((0.00021466900000000001 * fVec1[((IOTA - 110) & 127)]) + ((0.00019825999999999999 * fVec1[((IOTA - 106) & 127)]) + ((0.00061293399999999998 * fVec1[((IOTA - 105) & 127)]) + ((0.00028580599999999999 * fVec1[((IOTA - 104) & 127)]) + ((0.00012016899999999999 * fVec1[((IOTA - 103) & 127)]) + ((0.00028350700000000001 * fVec1[((IOTA - 102) & 127)]) + ((0.00029655200000000006 * fVec1[((IOTA - 99) & 127)]) + ((0.00078374800000000002 * fVec1[((IOTA - 98) & 127)]) + ((0.00029986299999999999 * fVec1[((IOTA - 97) & 127)]) + ((0.00067223400000000007 * fVec1[((IOTA - 94) & 127)]) + ((0.0013073300000000002 * fVec1[((IOTA - 93) & 127)]) + ((0.0013844899999999999 * fVec1[((IOTA - 92) & 127)]) + ((2.2802500000000004e-05 * fVec1[((IOTA - 47) & 127)]) + ((0.0033117200000000002 * fVec1[((IOTA - 46) & 127)]) + ((0.00077673400000000006 * fVec1[((IOTA - 45) & 127)]) + ((0.0072897299999999995 * fVec1[((IOTA - 42) & 127)]) + ((0.00136954 * fVec1[((IOTA - 41) & 127)]) + ((0.0025440700000000003 * fVec1[((IOTA - 39) & 127)]) + ((0.00062277700000000003 * fVec1[((IOTA - 37) & 127)]) + ((0.0073965899999999998 * fVec1[((IOTA - 36) & 127)]) + ((0.0019310799999999999 * fVec1[((IOTA - 35) & 127)]) + ((0.00106083 * fVec1[((IOTA - 33) & 127)]) + ((0.020638200000000002 * fVec1[((IOTA - 32) & 127)]) + ((0.00084266199999999999 * fVec1[((IOTA - 31) & 127)]) + ((0.0090219900000000006 * fVec1[((IOTA - 28) & 127)]) + ((0.0221418 * fVec1[((IOTA - 27) & 127)]) + ((0.0036234800000000001 * fVec1[((IOTA - 26) & 127)]) + ((0.0061371100000000003 * fVec1[((IOTA - 24) & 127)]) + ((0.040377299999999998 * fVec1[((IOTA - 23) & 127)]) + ((0.0047783499999999998 * fVec1[((IOTA - 20) & 127)]) + ((0.014182999999999999 * fVec1[((IOTA - 17) & 127)]) + ((0.0067481200000000007 * fVec1[((IOTA - 16) & 127)]) + ((0.0024826200000000001 * fVec1[((IOTA - 14) & 127)]) + ((0.010515500000000001 * fVec1[((IOTA - 13) & 127)]) + ((0.00032269000000000004 * fVec1[((IOTA - 10) & 127)]) + ((0.00063523900000000001 * fVec1[((IOTA - 8) & 127)]) + ((0.000129078 * fVec1[((IOTA - 7) & 127)]) + ((0.00053025000000000001 * fVec1[((IOTA - 5) & 127)]) + ((0.00020292900000000002 * fVec1[((IOTA - 4) & 127)]) + ((5.1820600000000003e-05 * fVec1[((IOTA - 1) & 127)]) + ((0.0023798400000000003 * fVec1[((IOTA - 51) & 127)]) + ((0.0024073300000000001 * fVec1[((IOTA - 50) & 127)]) + ((0.00041581000000000002 * fVec1[((IOTA - 88) & 127)]) + ((0.000846243 * fVec1[((IOTA - 85) & 127)]) + ((0.00053294300000000002 * fVec1[((IOTA - 84) & 127)]) + ((0.00060163399999999998 * fVec1[((IOTA - 80) & 127)]) + ((0.0018310100000000001 * fVec1[((IOTA - 79) & 127)]) + ((0.0015329200000000001 * fVec1[((IOTA - 74) & 127)]) + ((0.00088242499999999994 * fVec1[((IOTA - 73) & 127)]) + ((0.0012564 * fVec1[((IOTA - 69) & 127)]) + ((0.000106876 * fVec1[((IOTA - 68) & 127)]) + ((5.6309300000000007e-05 * fVec1[((IOTA - 66) & 127)]) + ((0.0022511199999999997 * fVec1[((IOTA - 65) & 127)]) + ((0.00251024 * fVec1[((IOTA - 64) & 127)]) + ((0.0033029299999999999 * fVec1[((IOTA - 61) & 127)]) + ((0.0033276300000000003 * fVec1[((IOTA - 60) & 127)]) + ((0.00121754 * fVec1[((IOTA - 55) & 127)]) + ((0.0013364400000000002 * fVec1[((IOTA - 54) & 127)]) + ((8.72722e-07 * fVec2[((IOTA - 126) & 127)]) + ((2.1165599999999999e-06 * fVec2[((IOTA - 125) & 127)]) + ((7.3710100000000001e-06 * fVec2[((IOTA - 122) & 127)]) + ((1.46484e-05 * fVec2[((IOTA - 121) & 127)]) + ((0.00012623700000000002 * fVec2[((IOTA - 112) & 127)]) + ((0.00040145799999999999 * fVec2[((IOTA - 111) & 127)]) + ((0.000414208 * fVec2[((IOTA - 110) & 127)]) + ((0.00021768299999999998 * fVec2[((IOTA - 107) & 127)]) + ((0.000541122 * fVec2[((IOTA - 106) & 127)]) + ((0.000823148 * fVec2[((IOTA - 105) & 127)]) + ((0.00019509200000000001 * fVec2[((IOTA - 103) & 127)]) + ((0.0013184900000000001 * fVec2[((IOTA - 102) & 127)]) + ((0.0010226299999999998 * fVec2[((IOTA - 101) & 127)]) + ((0.000125802 * fVec2[((IOTA - 100) & 127)]) + ((0.00083710400000000008 * fVec2[((IOTA - 99) & 127)]) + ((0.00236228 * fVec2[((IOTA - 98) & 127)]) + ((0.0017316800000000002 * fVec2[((IOTA - 97) & 127)]) + ((0.00057995900000000001 * fVec2[((IOTA - 57) & 127)]) + ((0.00115193 * fVec2[((IOTA - 56) & 127)]) + ((0.00079223400000000006 * fVec2[((IOTA - 55) & 127)]) + ((0.0061534800000000002 * fVec2[((IOTA - 52) & 127)]) + ((0.0071582199999999999 * fVec2[((IOTA - 51) & 127)]) + ((0.00165015 * fVec2[((IOTA - 50) & 127)]) + ((0.00086588999999999991 * fVec2[((IOTA - 49) & 127)]) + ((0.0062358300000000004 * fVec2[((IOTA - 48) & 127)]) + ((0.0050313800000000002 * fVec2[((IOTA - 47) & 127)]) + ((0.0031040800000000004 * fVec2[((IOTA - 46) & 127)]) + ((0.0050040100000000006 * fVec2[((IOTA - 45) & 127)]) + ((0.0027939900000000001 * fVec2[((IOTA - 44) & 127)]) + ((0.0065439699999999996 * fVec2[((IOTA - 43) & 127)]) + ((0.00124876 * fVec2[((IOTA - 42) & 127)]) + ((0.020424000000000001 * fVec2[((IOTA - 33) & 127)]) + ((0.0045740400000000006 * fVec2[((IOTA - 32) & 127)]) + ((0.0090182999999999999 * fVec2[((IOTA - 29) & 127)]) + ((0.00841159 * fVec2[((IOTA - 28) & 127)]) + ((0.046303400000000002 * fVec2[((IOTA - 25) & 127)]) + ((0.022126100000000003 * fVec2[((IOTA - 24) & 127)]) + ((0.023621 * fVec2[((IOTA - 23) & 127)]) + ((0.034497100000000003 * fVec2[((IOTA - 22) & 127)]) + ((0.019118099999999999 * fVec2[((IOTA - 21) & 127)]) + ((0.0039120300000000004 * fVec2[((IOTA - 18) & 127)]) + ((0.034787400000000003 * fVec2[((IOTA - 13) & 127)]) + ((0.032626599999999999 * fVec2[((IOTA - 12) & 127)]) + ((0.010078100000000001 * fVec2[((IOTA - 11) & 127)]) + ((0.0033341600000000001 * fVec2[((IOTA - 9) & 127)]) + ((0.00170722 * fVec2[((IOTA - 7) & 127)]) + ((0.00039425900000000005 * fVec2[((IOTA - 5) & 127)]) + ((8.8433799999999993e-06 * fVec2[((IOTA - 4) & 127)]) + ((1.19794e-06 * fVec2[((IOTA - 3) & 127)]) + ((1.7201900000000002e-05 * fTemp2) + ((0.00096430799999999998 * fVec2[((IOTA - 59) & 127)]) + ((0.00049957300000000001 * fVec2[((IOTA - 89) & 127)]) + ((0.00047812500000000003 * fVec2[((IOTA - 87) & 127)]) + ((0.00080239700000000005 * fVec2[((IOTA - 86) & 127)]) + ((0.00114842 * fVec2[((IOTA - 79) & 127)]) + ((0.00084254499999999999 * fVec2[((IOTA - 78) & 127)]) + ((0.00058521400000000002 * fVec2[((IOTA - 76) & 127)]) + ((0.0031232299999999998 * fVec2[((IOTA - 75) & 127)]) + ((0.0039299499999999998 * fVec2[((IOTA - 74) & 127)]) + ((0.00148547 * fVec2[((IOTA - 71) & 127)]) + ((0.00037265600000000002 * fVec2[((IOTA - 58) & 127)]) + ((0.0015915 * fVec2[((IOTA - 70) & 127)]) + ((0.00078234799999999998 * fVec2[((IOTA - 69) & 127)]) + ((0.00069670400000000003 * fVec2[((IOTA - 66) & 127)]) + ((1.60144e-05 * fVec3[((IOTA - 123) & 127)]) + ((3.7959300000000001e-05 * fVec3[((IOTA - 122) & 127)]) + ((1.1808799999999999e-05 * fVec3[((IOTA - 121) & 127)]) + ((5.3246100000000005e-05 * fVec3[((IOTA - 118) & 127)]) + ((4.9970700000000006e-05 * fVec3[((IOTA - 117) & 127)]) + ((6.7732400000000001e-06 * fVec3[((IOTA - 116) & 127)]) + ((0.00013832100000000001 * fVec3[((IOTA - 113) & 127)]) + ((0.00034154700000000004 * fVec3[((IOTA - 112) & 127)]) + ((5.9127099999999998e-05 * fVec3[((IOTA - 111) & 127)]) + ((1.61672e-05 * fVec3[((IOTA - 109) & 127)]) + ((0.000403428 * fVec3[((IOTA - 108) & 127)]) + ((2.9283000000000004e-05 * fVec3[((IOTA - 107) & 127)]) + ((5.6117600000000006e-05 * fVec3[((IOTA - 103) & 127)]) + ((0.00064464300000000008 * fVec3[((IOTA - 102) & 127)]) + ((6.57163e-05 * fVec3[((IOTA - 101) & 127)]) + ((0.00043101500000000003 * fVec3[((IOTA - 98) & 127)]) + ((0.00047464100000000004 * fVec3[((IOTA - 97) & 127)]) + ((0.00050108599999999998 * fVec3[((IOTA - 96) & 127)]) + ((0.00035622799999999999 * fVec3[((IOTA - 95) & 127)]) + ((0.000189175 * fVec3[((IOTA - 94) & 127)]) + ((0.000113763 * fVec3[((IOTA - 93) & 127)]) + ((0.00014460699999999999 * fVec3[((IOTA - 89) & 127)]) + ((0.00064626400000000002 * fVec3[((IOTA - 88) & 127)]) + ((0.00033219200000000003 * fVec3[((IOTA - 52) & 127)]) + ((0.00324858 * fVec3[((IOTA - 50) & 127)]) + ((0.0029808 * fVec3[((IOTA - 49) & 127)]) + ((0.00093466200000000006 * fVec3[((IOTA - 46) & 127)]) + ((0.00039698400000000002 * fVec3[((IOTA - 43) & 127)]) + ((0.00048442499999999997 * fVec3[((IOTA - 42) & 127)]) + ((0.00013193900000000003 * fVec3[((IOTA - 41) & 127)]) + ((0.00084730000000000016 * fVec3[((IOTA - 40) & 127)]) + ((0.0038824599999999999 * fVec3[((IOTA - 38) & 127)]) + ((0.0023402100000000001 * fVec3[((IOTA - 35) & 127)]) + ((0.0090115600000000001 * fVec3[((IOTA - 34) & 127)]) + ((0.0145007 * fVec3[((IOTA - 31) & 127)]) + ((0.00672019 * fVec3[((IOTA - 30) & 127)]) + ((0.019919199999999998 * fVec3[((IOTA - 27) & 127)]) + ((0.018401899999999999 * fVec3[((IOTA - 23) & 127)]) + ((0.019435299999999999 * fVec3[((IOTA - 22) & 127)]) + ((0.0052171300000000004 * fVec3[((IOTA - 20) & 127)]) + ((0.00278912 * fVec3[((IOTA - 19) & 127)]) + ((0.0067436400000000004 * fVec3[((IOTA - 17) & 127)]) + ((0.0015875500000000001 * fVec3[((IOTA - 16) & 127)]) + ((0.00088633199999999998 * fVec3[((IOTA - 14) & 127)]) + ((0.0047006599999999997 * fVec3[((IOTA - 13) & 127)]) + ((2.4513200000000001e-05 * fVec3[((IOTA - 11) & 127)]) + ((0.00016840400000000001 * fVec3[((IOTA - 10) & 127)]) + ((1.7683500000000001e-05 * fVec3[((IOTA - 8) & 127)]) + ((7.4087300000000005e-05 * fVec3[((IOTA - 7) & 127)]) + ((0.00013083600000000001 * fVec3[((IOTA - 5) & 127)]) + ((0.00014402999999999999 * fVec3[((IOTA - 4) & 127)]) + ((3.4461000000000001e-05 * fVec3[((IOTA - 1) & 127)]) + ((0.0015539499999999999 * fVec3[((IOTA - 55) & 127)]) + ((0.0034851399999999999 * fVec3[((IOTA - 54) & 127)]) + ((0.0013564600000000001 * fVec3[((IOTA - 53) & 127)]) + ((0.00034561500000000002 * fVec3[((IOTA - 87) & 127)]) + ((0.0013749000000000001 * fVec3[((IOTA - 80) & 127)]) + ((0.00137465 * fVec3[((IOTA - 79) & 127)]) + ((0.00104108 * fVec3[((IOTA - 77) & 127)]) + ((0.00091011900000000014 * fVec3[((IOTA - 76) & 127)]) + ((0.0020970900000000002 * fVec3[((IOTA - 75) & 127)]) + ((0.00061507900000000004 * fVec3[((IOTA - 74) & 127)]) + ((0.00066226900000000005 * fVec3[((IOTA - 71) & 127)]) + ((0.0048415200000000002 * fVec3[((IOTA - 70) & 127)]) + ((0.0022895300000000001 * fVec3[((IOTA - 69) & 127)]) + ((0.0025702799999999999 * fVec3[((IOTA - 65) & 127)]) + ((0.00035714999999999998 * fVec3[((IOTA - 64) & 127)]) + ((0.00088026800000000013 * fVec3[((IOTA - 61) & 127)]) + ((4.3969300000000004e-08 * fVec4[((IOTA - 126) & 127)]) + ((4.9046399999999999e-05 * fVec4[((IOTA - 121) & 127)]) + ((3.5164200000000005e-05 * fVec4[((IOTA - 120) & 127)]) + ((6.5718700000000005e-05 * fVec4[((IOTA - 113) & 127)]) + ((9.8145199999999987e-06 * fVec4[((IOTA - 104) & 127)]) + ((0.00047854099999999997 * fVec4[((IOTA - 102) & 127)]) + ((0.00058713800000000007 * fVec4[((IOTA - 101) & 127)]) + ((0.00063487900000000009 * fVec4[((IOTA - 97) & 127)]) + ((0.00084097399999999998 * fVec4[((IOTA - 96) & 127)]) + ((0.00060218900000000004 * fVec4[((IOTA - 95) & 127)]) + ((0.000719178 * fVec4[((IOTA - 94) & 127)]) + ((0.00049947400000000008 * fVec4[((IOTA - 93) & 127)]) + ((5.7074400000000004e-05 * fVec4[((IOTA - 91) & 127)]) + ((0.00063668800000000005 * fVec4[((IOTA - 90) & 127)]) + ((0.00050174400000000004 * fVec4[((IOTA - 89) & 127)]) + ((0.00104393 * fVec4[((IOTA - 85) & 127)]) + ((0.00032165200000000002 * fVec4[((IOTA - 84) & 127)]) + ((0.00130389 * fVec4[((IOTA - 81) & 127)]) + ((0.00015988800000000001 * fVec4[((IOTA - 80) & 127)]) + ((0.00030389300000000001 * fVec4[((IOTA - 77) & 127)]) + ((0.0007704150000000001 * fVec4[((IOTA - 76) & 127)]) + ((4.5806199999999998e-08 * fVec5[((IOTA - 126) & 127)]) + ((5.9764499999999998e-07 * fVec5[((IOTA - 124) & 127)]) + ((0.0033817300000000003 * fVec4[((IOTA - 14) & 127)]) + ((0.015114300000000001 * fVec4[((IOTA - 13) & 127)]) + ((0.020861999999999999 * fVec4[((IOTA - 12) & 127)]) + ((0.0053441599999999997 * fVec4[((IOTA - 11) & 127)]) + ((0.00123547 * fVec4[((IOTA - 9) & 127)]) + ((0.00040391500000000002 * fVec4[((IOTA - 7) & 127)]) + ((1.7806500000000003e-05 * fVec4[((IOTA - 6) & 127)]) + ((0.00048888700000000002 * fVec4[((IOTA - 5) & 127)]) + ((0.00015141300000000001 * fVec4[((IOTA - 3) & 127)]) + ((0.0019725599999999999 * fVec4[((IOTA - 71) & 127)]) + ((0.0010789299999999999 * fVec4[((IOTA - 70) & 127)]) + ((0.0017741899999999999 * fVec4[((IOTA - 69) & 127)]) + ((0.00083747600000000008 * fVec4[((IOTA - 66) & 127)]) + ((0.00093810300000000014 * fVec4[((IOTA - 65) & 127)]) + ((0.00207858 * fVec4[((IOTA - 64) & 127)]) + ((0.00137382 * fVec4[((IOTA - 63) & 127)]) + ((0.00029105500000000002 * fVec4[((IOTA - 62) & 127)]) + ((0.0019089600000000001 * fVec4[((IOTA - 59) & 127)]) + ((0.0028430399999999998 * fVec4[((IOTA - 58) & 127)]) + ((0.0032504600000000002 * fVec4[((IOTA - 55) & 127)]) + ((0.0033312400000000001 * fVec4[((IOTA - 54) & 127)]) + ((0.0029572000000000001 * fVec4[((IOTA - 48) & 127)]) + ((0.0024246099999999998 * fVec4[((IOTA - 47) & 127)]) + ((0.00076525699999999998 * fVec4[((IOTA - 44) & 127)]) + ((0.00030002700000000002 * fVec4[((IOTA - 43) & 127)]) + ((0.0016828099999999999 * fVec4[((IOTA - 41) & 127)]) + ((0.0073388400000000001 * fVec4[((IOTA - 40) & 127)]) + ((0.0047153500000000001 * fVec4[((IOTA - 39) & 127)]) + ((0.0065382999999999995 * fVec4[((IOTA - 35) & 127)]) + ((0.00229415 * fVec4[((IOTA - 30) & 127)]) + ((0.010495000000000001 * fVec4[((IOTA - 29) & 127)]) + ((0.026362800000000002 * fVec4[((IOTA - 28) & 127)]) + ((0.0036550699999999998 * fVec4[((IOTA - 27) & 127)]) + ((0.00058345500000000008 * fVec4[((IOTA - 26) & 127)]) + ((0.019277900000000001 * fVec4[((IOTA - 23) & 127)]) + ((0.0184233 * fVec4[((IOTA - 22) & 127)]) + ((0.027672400000000003 * fVec4[((IOTA - 21) & 127)]) + ((0.010700899999999999 * fVec4[((IOTA - 20) & 127)]) + ((0.00049956899999999995 * fVec4[((IOTA - 19) & 127)]) + ((4.5404499999999999e-06 * fVec5[((IOTA - 122) & 127)]) + ((6.2516899999999999e-06 * fVec5[((IOTA - 123) & 127)]) + ((0.017061400000000001 * fVec5[((IOTA - 12) & 127)]) + ((0.00028077500000000003 * fVec5[((IOTA - 10) & 127)]) + ((0.00020304900000000001 * fVec5[((IOTA - 9) & 127)]) + ((0.00028114900000000001 * fVec5[((IOTA - 8) & 127)]) + ((0.00075311200000000001 * fVec5[((IOTA - 7) & 127)]) + ((3.3129100000000001e-05 * fVec5[((IOTA - 107) & 127)]) + ((0.00037957800000000004 * fVec5[((IOTA - 104) & 127)]) + ((9.1390300000000012e-05 * fVec5[((IOTA - 103) & 127)]) + ((0.00012164900000000001 * fVec5[((IOTA - 102) & 127)]) + ((7.2862900000000003e-05 * fVec5[((IOTA - 100) & 127)]) + ((0.00075476100000000006 * fVec5[((IOTA - 99) & 127)]) + ((0.0011213599999999998 * fVec5[((IOTA - 98) & 127)]) + ((0.00048859700000000001 * fVec5[((IOTA - 97) & 127)]) + ((0.00057772600000000009 * fVec5[((IOTA - 96) & 127)]) + ((0.0010992299999999999 * fVec5[((IOTA - 95) & 127)]) + ((0.00136867 * fVec5[((IOTA - 94) & 127)]) + ((0.0024769499999999999 * fVec5[((IOTA - 93) & 127)]) + ((0.0017141299999999999 * fVec5[((IOTA - 92) & 127)]) + ((0.00099528400000000014 * fVec5[((IOTA - 91) & 127)]) + ((0.00072564299999999999 * fVec5[((IOTA - 90) & 127)]) + ((0.00049014600000000001 * fVec5[((IOTA - 89) & 127)]) + ((0.00028476100000000002 * fVec5[((IOTA - 88) & 127)]) + ((5.4113300000000009e-05 * fVec5[((IOTA - 85) & 127)]) + ((0.00064926500000000011 * fVec5[((IOTA - 84) & 127)]) + ((0.00090145900000000007 * fVec5[((IOTA - 83) & 127)]) + ((0.00074948899999999999 * fVec5[((IOTA - 82) & 127)]) + ((0.00034548700000000001 * fVec5[((IOTA - 78) & 127)]) + ((0.0015595699999999999 * fVec5[((IOTA - 72) & 127)]) + ((0.00125158 * fVec5[((IOTA - 71) & 127)]) + ((0.0020382500000000001 * fVec5[((IOTA - 70) & 127)]) + ((0.0018769700000000002 * fVec5[((IOTA - 69) & 127)]) + ((0.00043826000000000005 * fVec5[((IOTA - 64) & 127)]) + ((0.00192213 * fVec5[((IOTA - 63) & 127)]) + ((0.0040995700000000003 * fVec5[((IOTA - 59) & 127)]) + ((0.0060987200000000002 * fVec5[((IOTA - 58) & 127)]) + ((0.0022176000000000001 * fVec5[((IOTA - 57) & 127)]) + ((0.00212824 * fVec5[((IOTA - 54) & 127)]) + ((0.0032781899999999998 * fVec5[((IOTA - 53) & 127)]) + ((9.5596100000000004e-05 * fVec5[((IOTA - 50) & 127)]) + ((0.0014545300000000001 * fVec5[((IOTA - 46) & 127)]) + ((0.0038625300000000003 * fVec5[((IOTA - 45) & 127)]) + ((0.0017145699999999999 * fVec5[((IOTA - 44) & 127)]) + ((0.0079508400000000007 * fVec5[((IOTA - 41) & 127)]) + ((0.009358169999999999 * fVec5[((IOTA - 40) & 127)]) + ((0.0094388700000000002 * fVec5[((IOTA - 32) & 127)]) + ((0.0081053099999999993 * fVec5[((IOTA - 31) & 127)]) + ((0.0247297 * fVec5[((IOTA - 27) & 127)]) + ((0.019441400000000001 * fVec5[((IOTA - 26) & 127)]) + ((0.0026723599999999999 * fVec5[((IOTA - 25) & 127)]) + ((0.00037799999999999997 * fVec5[((IOTA - 3) & 127)]) + ((0.000467777 * fVec5[((IOTA - 4) & 127)]) + ((1.3991200000000001e-05 * fTemp5) + ((0.074936900000000001 * fVec5[((IOTA - 22) & 127)]) + ((0.0218175 * fVec5[((IOTA - 21) & 127)]) + ((0.014052500000000001 * fVec5[((IOTA - 17) & 127)]) + ((0.032805500000000001 * fVec5[((IOTA - 16) & 127)]) + ((0.00195027 * fVec5[((IOTA - 15) & 127)]) + ((1.1421399999999999e-06 * fVec6[((IOTA - 126) & 127)]) + ((6.1312800000000004e-06 * fVec6[((IOTA - 125) & 127)]) + ((1.8821000000000002e-05 * fVec6[((IOTA - 121) & 127)]) + ((3.69637e-05 * fVec6[((IOTA - 120) & 127)]) + ((0.00019845400000000001 * fVec6[((IOTA - 116) & 127)]) + ((1.2745400000000002e-05 * fVec6[((IOTA - 112) & 127)]) + ((0.000173661 * fVec6[((IOTA - 111) & 127)]) + ((3.7430900000000001e-05 * fVec6[((IOTA - 110) & 127)]) + ((3.8990300000000005e-05 * fVec6[((IOTA - 108) & 127)]) + ((0.00024954200000000006 * fVec6[((IOTA - 107) & 127)]) + ((0.00027521800000000003 * fVec6[((IOTA - 106) & 127)]) + ((3.6057999999999998e-06 * fVec6[((IOTA - 105) & 127)]) + ((0.00029303599999999999 * fVec6[((IOTA - 103) & 127)]) + ((0.00076291800000000002 * fVec6[((IOTA - 102) & 127)]) + ((0.00051647800000000001 * fVec6[((IOTA - 101) & 127)]) + ((0.00040501500000000005 * fVec6[((IOTA - 97) & 127)]) + ((0.00046903899999999998 * fVec6[((IOTA - 94) & 127)]) + ((0.0023897499999999999 * fVec6[((IOTA - 93) & 127)]) + ((0.00074860400000000004 * fVec6[((IOTA - 90) & 127)]) + ((0.00089415600000000012 * fVec6[((IOTA - 89) & 127)]) + ((2.9381300000000003e-05 * fVec6[((IOTA - 88) & 127)]) + ((0.0013978900000000002 * fVec6[((IOTA - 85) & 127)]) + ((0.00145937 * fVec6[((IOTA - 84) & 127)]) + ((0.0012423599999999999 * fVec6[((IOTA - 81) & 127)]) + ((0.00270412 * fVec6[((IOTA - 80) & 127)]) + ((0.0023507600000000003 * fVec6[((IOTA - 79) & 127)]) + ((0.0022935899999999999 * fVec6[((IOTA - 75) & 127)]) + ((0.00059835300000000004 * fVec6[((IOTA - 74) & 127)]) + ((0.00030100100000000001 * fVec6[((IOTA - 68) & 127)]) + ((0.00073815999999999997 * fVec6[((IOTA - 67) & 127)]) + ((6.6901800000000004e-05 * fVec6[((IOTA - 62) & 127)]) + ((0.00028901300000000002 * fVec6[((IOTA - 61) & 127)]) + ((0.00109084 * fVec6[((IOTA - 59) & 127)]) + ((0.00178498 * fVec6[((IOTA - 58) & 127)]) + ((0.00151166 * fVec6[((IOTA - 57) & 127)]) + ((0.0025656400000000001 * fVec6[((IOTA - 56) & 127)]) + ((0.00030762600000000003 * fVec6[((IOTA - 55) & 127)]) + ((0.0020867200000000002 * fVec6[((IOTA - 54) & 127)]) + ((0.0025482200000000003 * fVec6[((IOTA - 53) & 127)]) + ((0.00167453 * fVec6[((IOTA - 52) & 127)]) + ((0.0023747 * fVec6[((IOTA - 51) & 127)]) + ((0.0022410199999999998 * fVec6[((IOTA - 50) & 127)]) + ((0.0055318300000000006 * fVec6[((IOTA - 46) & 127)]) + ((0.0023482899999999998 * fVec6[((IOTA - 45) & 127)]) + ((0.0034206599999999998 * fVec6[((IOTA - 42) & 127)]) + ((0.00188773 * fVec6[((IOTA - 41) & 127)]) + ((0.00072377599999999998 * fVec6[((IOTA - 39) & 127)]) + ((0.0024612599999999998 * fVec6[((IOTA - 38) & 127)]) + ((0.0033621900000000001 * fVec6[((IOTA - 37) & 127)]) + ((0.0033196100000000002 * fVec6[((IOTA - 36) & 127)]) + ((0.013694999999999999 * fVec6[((IOTA - 33) & 127)]) + ((0.012183600000000001 * fVec6[((IOTA - 32) & 127)]) + ((0.0070372400000000002 * fVec6[((IOTA - 29) & 127)]) + ((0.0085312900000000004 * fVec6[((IOTA - 28) & 127)]) + ((0.034597700000000002 * fVec6[((IOTA - 27) & 127)]) + ((0.016548 * fVec6[((IOTA - 23) & 127)]) + ((0.036212899999999999 * fVec6[((IOTA - 22) & 127)]) + ((0.061774100000000005 * fVec6[((IOTA - 19) & 127)]) + ((0.019317500000000001 * fVec6[((IOTA - 14) & 127)]) + ((0.0043390899999999994 * fVec6[((IOTA - 12) & 127)]) + ((0.0015058000000000001 * fVec6[((IOTA - 11) & 127)]) + ((0.00027456800000000005 * fVec6[((IOTA - 10) & 127)]) + ((0.00045164799999999997 * fVec6[((IOTA - 9) & 127)]) + ((0.00077579600000000004 * fVec6[((IOTA - 7) & 127)]) + ((0.00115678 * fVec6[((IOTA - 5) & 127)]) + ((0.000375048 * fVec6[((IOTA - 3) & 127)]) + ((5.7016799999999999e-05 * fVec6[((IOTA - 1) & 127)]) + ((1.28309e-06 * fVec7[((IOTA - 126) & 127)]) + ((2.87072e-06 * fVec7[((IOTA - 125) & 127)]) + ((1.3474999999999998e-06 * fVec7[((IOTA - 123) & 127)]) + ((3.5239900000000001e-05 * fVec7[((IOTA - 122) & 127)]) + ((1.4600800000000001e-05 * fVec7[((IOTA - 121) & 127)]) + ((5.8902200000000007e-05 * fVec7[((IOTA - 117) & 127)]) + ((7.3645299999999999e-06 * fVec7[((IOTA - 116) & 127)]) + ((0.000124213 * fVec7[((IOTA - 110) & 127)]) + ((6.7869599999999998e-05 * fVec7[((IOTA - 109) & 127)]) + ((0.000275636 * fVec7[((IOTA - 108) & 127)]) + ((0.0018574600000000002 * fVec7[((IOTA - 86) & 127)]) + ((0.0024842200000000001 * fVec7[((IOTA - 85) & 127)]) + ((2.4123700000000004e-05 * fVec7[((IOTA - 84) & 127)]) + ((0.00024932600000000002 * fVec7[((IOTA - 83) & 127)]) + ((0.00045661800000000005 * fVec7[((IOTA - 79) & 127)]) + ((0.00079671800000000008 * fVec7[((IOTA - 78) & 127)]) + ((0.00239427 * fVec7[((IOTA - 77) & 127)]) + ((0.0023235999999999999 * fVec7[((IOTA - 76) & 127)]) + ((0.0025652599999999998 * fVec7[((IOTA - 75) & 127)]) + ((0.0022557499999999999 * fVec7[((IOTA - 74) & 127)]) + ((0.000148732 * fVec7[((IOTA - 73) & 127)]) + ((0.000211924 * fVec7[((IOTA - 68) & 127)]) + ((0.0036126499999999998 * fVec7[((IOTA - 67) & 127)]) + ((4.2760100000000004e-05 * fVec7[((IOTA - 66) & 127)]) + ((0.00138174 * fVec7[((IOTA - 65) & 127)]) + ((0.00104509 * fVec7[((IOTA - 64) & 127)]) + ((4.0581600000000005e-05 * fVec7[((IOTA - 63) & 127)]) + ((0.0013407899999999999 * fVec7[((IOTA - 62) & 127)]) + ((0.0018573200000000002 * fVec7[((IOTA - 61) & 127)]) + ((0.00175925 * fVec7[((IOTA - 60) & 127)]) + ((0.00085908300000000007 * fVec7[((IOTA - 51) & 127)]) + ((0.0041468100000000008 * fVec7[((IOTA - 50) & 127)]) + ((0.00258888 * fVec7[((IOTA - 49) & 127)]) + ((0.0016738 * fVec7[((IOTA - 48) & 127)]) + ((0.0027436699999999997 * fVec7[((IOTA - 47) & 127)]) + ((0.0057636700000000003 * fVec7[((IOTA - 42) & 127)]) + ((0.00084519300000000016 * fVec7[((IOTA - 41) & 127)]) + ((0.0065382800000000005 * fVec7[((IOTA - 37) & 127)]) + ((0.0033053900000000001 * fVec7[((IOTA - 35) & 127)]) + ((0.013110500000000001 * fVec7[((IOTA - 32) & 127)]) + ((0.0012610900000000001 * fVec7[((IOTA - 30) & 127)]) + ((0.0011880900000000002 * fVec7[((IOTA - 27) & 127)]) + ((0.012572000000000002 * fVec7[((IOTA - 26) & 127)]) + ((0.0013604799999999998 * fVec7[((IOTA - 24) & 127)]) + ((0.0029567700000000001 * fVec7[((IOTA - 23) & 127)]) + ((0.0026263800000000002 * fVec7[((IOTA - 22) & 127)]) + ((0.021428799999999998 * fVec7[((IOTA - 21) & 127)]) + ((0.036144099999999998 * fVec7[((IOTA - 18) & 127)]) + ((0.0041613600000000002 * fVec7[((IOTA - 15) & 127)]) + ((0.012642199999999999 * fVec7[((IOTA - 12) & 127)]) + ((0.00039501900000000003 * fVec7[((IOTA - 10) & 127)]) + ((0.0015795300000000002 * fVec7[((IOTA - 9) & 127)]) + ((0.00049500200000000003 * fVec7[((IOTA - 6) & 127)]) + ((0.00057567300000000007 * fVec7[((IOTA - 5) & 127)]) + ((0.00027081499999999999 * fVec7[((IOTA - 3) & 127)]) + ((7.1774599999999992e-06 * fVec7[((IOTA - 2) & 127)]) + ((1.2802800000000002e-05 * fVec7[((IOTA - 1) & 127)]) + ((3.72465e-06 * fTemp7) + ((0.00017397199999999999 * fVec7[((IOTA - 91) & 127)]) + ((0.0019107600000000001 * fVec7[((IOTA - 89) & 127)]) + ((0.00037599500000000001 * fVec7[((IOTA - 105) & 127)]) + ((0.00024762699999999999 * fVec7[((IOTA - 104) & 127)]) + ((0.000109887 * fVec7[((IOTA - 103) & 127)]) + ((0.00031391399999999999 * fVec7[((IOTA - 101) & 127)]) + ((0.0005165250000000001 * fVec7[((IOTA - 100) & 127)]) + ((3.8421000000000004e-05 * fVec7[((IOTA - 98) & 127)]) + ((0.00116917 * fVec7[((IOTA - 97) & 127)]) + ((0.0024624500000000001 * fVec7[((IOTA - 90) & 127)]) + ((0.0020289700000000002 * fVec7[((IOTA - 96) & 127)]) + ((0.00126756 * fVec7[((IOTA - 95) & 127)]) + ((1.07446e-06 * fVec8[((IOTA - 125) & 127)]) + ((9.5882799999999996e-06 * fVec8[((IOTA - 124) & 127)]) + ((8.4472900000000006e-06 * fVec8[((IOTA - 123) & 127)]) + ((9.2338799999999984e-06 * fVec8[((IOTA - 121) & 127)]) + ((1.7718900000000001e-05 * fVec8[((IOTA - 120) & 127)]) + ((7.1736100000000013e-05 * fVec8[((IOTA - 117) & 127)]) + ((3.1738400000000003e-06 * fVec8[((IOTA - 116) & 127)]) + ((9.0475300000000011e-05 * fVec8[((IOTA - 112) & 127)]) + ((0.00015947800000000001 * fVec8[((IOTA - 111) & 127)]) + ((0.00017410300000000002 * fVec8[((IOTA - 107) & 127)]) + ((0.00022612700000000001 * fVec8[((IOTA - 106) & 127)]) + ((9.8550200000000011e-05 * fVec8[((IOTA - 105) & 127)]) + ((0.00026838000000000003 * fVec8[((IOTA - 104) & 127)]) + ((0.00025552300000000001 * fVec8[((IOTA - 103) & 127)]) + ((0.00062636099999999998 * fVec8[((IOTA - 99) & 127)]) + ((0.00118519 * fVec8[((IOTA - 98) & 127)]) + ((0.00090719900000000003 * fVec8[((IOTA - 95) & 127)]) + ((0.00178987 * fVec8[((IOTA - 94) & 127)]) + ((0.00072873000000000002 * fVec8[((IOTA - 93) & 127)]) + ((0.00205112 * fVec8[((IOTA - 86) & 127)]) + ((0.00221638 * fVec8[((IOTA - 85) & 127)]) + ((0.0010048800000000001 * fVec8[((IOTA - 84) & 127)]) + ((0.00078622900000000005 * fVec8[((IOTA - 80) & 127)]) + ((0.0013969 * fVec8[((IOTA - 77) & 127)]) + ((0.0015445700000000001 * fVec8[((IOTA - 76) & 127)]) + ((3.0230399999999999e-06 * fVec8[((IOTA - 75) & 127)]) + ((0.00099086200000000012 * fVec8[((IOTA - 45) & 127)]) + ((0.0033490500000000001 * fVec8[((IOTA - 44) & 127)]) + ((0.00158416 * fVec8[((IOTA - 43) & 127)]) + ((0.0036774399999999997 * fVec8[((IOTA - 42) & 127)]) + ((0.00271587 * fVec8[((IOTA - 40) & 127)]) + ((0.0054552100000000003 * fVec8[((IOTA - 39) & 127)]) + ((0.0091737099999999999 * fVec8[((IOTA - 36) & 127)]) + ((0.013223499999999999 * fVec8[((IOTA - 35) & 127)]) + ((0.00116439 * fVec8[((IOTA - 34) & 127)]) + ((0.028504700000000001 * fVec8[((IOTA - 31) & 127)]) + ((0.0322688 * fVec8[((IOTA - 30) & 127)]) + ((0.010072300000000001 * fVec8[((IOTA - 26) & 127)]) + ((0.0049182499999999999 * fVec8[((IOTA - 23) & 127)]) + ((0.025481600000000004 * fVec8[((IOTA - 21) & 127)]) + ((0.042283299999999996 * fVec8[((IOTA - 20) & 127)]) + ((0.0102863 * fVec8[((IOTA - 19) & 127)]) + ((0.0085219000000000007 * fVec8[((IOTA - 17) & 127)]) + ((0.022074799999999999 * fVec8[((IOTA - 16) & 127)]) + ((0.023820100000000004 * fVec8[((IOTA - 12) & 127)]) + ((0.011093200000000001 * fVec8[((IOTA - 11) & 127)]) + ((0.0033972199999999998 * fVec8[((IOTA - 9) & 127)]) + ((0.00352222 * fVec8[((IOTA - 7) & 127)]) + ((0.0012450900000000001 * fVec8[((IOTA - 5) & 127)]) + ((0.00077165999999999997 * fVec8[((IOTA - 3) & 127)]) + ((0.0010502300000000001 * fVec8[((IOTA - 50) & 127)]) + ((0.0027733100000000002 * fVec8[((IOTA - 49) & 127)]) + ((0.00010376700000000001 * (fVec9[((IOTA - 71) & 127)] - fVec10[((IOTA - 119) & 127)])) + ((0.0021940599999999998 * fVec8[((IOTA - 68) & 127)]) + ((0.0055132499999999999 * fVec8[((IOTA - 67) & 127)]) + ((0.0050680600000000001 * fVec8[((IOTA - 66) & 127)]) + ((0.00140544 * fVec8[((IOTA - 65) & 127)]) + ((0.00038257900000000002 * fVec8[((IOTA - 63) & 127)]) + ((0.00150672 * fVec8[((IOTA - 62) & 127)]) + ((0.00084151500000000014 * fVec8[((IOTA - 48) & 127)]) + ((0.0023892500000000003 * fVec8[((IOTA - 54) & 127)]) + ((1.4034199999999999e-06 * fVec11[((IOTA - 126) & 127)]) + ((1.2211099999999999e-06 * fVec11[((IOTA - 125) & 127)]) + ((1.2893400000000001e-05 * fVec11[((IOTA - 124) & 127)]) + ((2.6002200000000003e-05 * fVec11[((IOTA - 123) & 127)]) + ((2.6415500000000001e-05 * fVec11[((IOTA - 122) & 127)]) + ((2.8177200000000002e-05 * fVec11[((IOTA - 121) & 127)]) + ((1.2612900000000001e-05 * fVec11[((IOTA - 120) & 127)]) + ((0.00041671500000000006 * fVec11[((IOTA - 104) & 127)]) + ((0.00031062500000000003 * fVec11[((IOTA - 100) & 127)]) + ((7.3607000000000002e-05 * fVec11[((IOTA - 99) & 127)]) + ((0.00050056999999999999 * fVec11[((IOTA - 96) & 127)]) + ((0.0027204999999999998 * fVec11[((IOTA - 95) & 127)]) + ((0.0020446800000000001 * fVec11[((IOTA - 94) & 127)]) + ((8.3015299999999998e-05 * fVec11[((IOTA - 93) & 127)]) + ((0.0022225799999999996 * fVec11[((IOTA - 92) & 127)]) + ((0.0024016700000000003 * fVec11[((IOTA - 91) & 127)]) + ((0.00063865800000000006 * fVec11[((IOTA - 86) & 127)]) + ((0.00058693299999999999 * fVec11[((IOTA - 84) & 127)]) + ((0.00042316100000000002 * fVec11[((IOTA - 80) & 127)]) + ((0.0010148100000000001 * fVec11[((IOTA - 79) & 127)]) + ((0.00028691900000000001 * fVec11[((IOTA - 73) & 127)]) + ((0.0021912699999999999 * fVec11[((IOTA - 72) & 127)]) + ((0.00113353 * fVec11[((IOTA - 71) & 127)]) + ((0.000557951 * fVec11[((IOTA - 66) & 127)]) + ((0.00043863399999999997 * fVec11[((IOTA - 63) & 127)]) + ((0.00314139 * fVec11[((IOTA - 62) & 127)]) + ((0.0052284000000000002 * fVec11[((IOTA - 61) & 127)]) + ((0.0025010699999999998 * fVec11[((IOTA - 60) & 127)]) + ((0.0012393300000000001 * fVec11[((IOTA - 57) & 127)]) + ((0.0018594100000000001 * fVec11[((IOTA - 54) & 127)]) + ((0.0034922200000000003 * fVec11[((IOTA - 53) & 127)]) + ((0.00127944 * fVec11[((IOTA - 52) & 127)]) + ((0.0016422699999999999 * fVec11[((IOTA - 51) & 127)]) + ((0.00289419 * fVec11[((IOTA - 50) & 127)]) + ((0.0053105499999999998 * fVec11[((IOTA - 49) & 127)]) + ((0.0065292000000000006 * fVec11[((IOTA - 48) & 127)]) + ((0.00110392 * fVec11[((IOTA - 47) & 127)]) + ((0.0039351999999999998 * fVec11[((IOTA - 42) & 127)]) + ((0.00132128 * fVec11[((IOTA - 41) & 127)]) + ((0.0068892700000000003 * fVec11[((IOTA - 39) & 127)]) + ((0.0013770800000000001 * fVec11[((IOTA - 38) & 127)]) + ((0.031043400000000002 * fVec11[((IOTA - 30) & 127)]) + ((0.0012180400000000001 * fVec11[((IOTA - 29) & 127)]) + ((0.026485700000000001 * fVec11[((IOTA - 26) & 127)]) + ((0.026438899999999998 * fVec11[((IOTA - 23) & 127)]) + ((0.0094311100000000012 * fVec11[((IOTA - 22) & 127)]) + ((0.0253549 * fVec11[((IOTA - 21) & 127)]) + ((0.034643899999999998 * fVec11[((IOTA - 20) & 127)]) + ((0.0140976 * fVec11[((IOTA - 19) & 127)]) + ((0.00406018 * fVec11[((IOTA - 16) & 127)]) + ((0.019651700000000001 * fVec11[((IOTA - 12) & 127)]) + ((0.0098021300000000009 * fVec11[((IOTA - 11) & 127)]) + ((0.00308077 * fVec11[((IOTA - 9) & 127)]) + ((0.00323953 * fVec11[((IOTA - 7) & 127)]) + ((0.0012123500000000001 * fVec11[((IOTA - 5) & 127)]) + (((4.4620600000000002e-07 * fVec10[((IOTA - 126) & 127)]) + ((2.9040900000000002e-05 * fVec10[((IOTA - 122) & 127)]) + ((3.3390499999999998e-05 * fVec10[((IOTA - 121) & 127)]) + ((2.7818400000000001e-05 * fVec10[((IOTA - 118) & 127)]) + ((1.2691900000000001e-05 * fVec10[((IOTA - 113) & 127)]) + ((0.00037104300000000005 * fVec10[((IOTA - 111) & 127)]) + ((0.00041838800000000006 * fVec10[((IOTA - 110) & 127)]) + ((0.00057686100000000002 * fVec10[((IOTA - 106) & 127)]) + ((0.00059161900000000004 * fVec10[((IOTA - 105) & 127)]) + ((0.00049454399999999997 * fVec10[((IOTA - 104) & 127)]) + ((0.00061440799999999999 * fVec10[((IOTA - 103) & 127)]) + ((0.00061735800000000003 * fVec10[((IOTA - 102) & 127)]) + ((0.000728026 * fVec10[((IOTA - 101) & 127)]) + ((0.00038062800000000004 * fVec10[((IOTA - 100) & 127)]) + ((0.00062138299999999998 * fVec10[((IOTA - 99) & 127)]) + ((0.00075514600000000005 * fVec10[((IOTA - 98) & 127)]) + ((0.0011730600000000001 * fVec10[((IOTA - 95) & 127)]) + ((0.0016346700000000002 * fVec10[((IOTA - 94) & 127)]) + ((0.0021457000000000004 * fVec10[((IOTA - 93) & 127)]) + ((0.0025975199999999999 * fVec10[((IOTA - 92) & 127)]) + ((0.00015330900000000002 * fVec10[((IOTA - 91) & 127)]) + ((0.00154597 * fVec10[((IOTA - 89) & 127)]) + ((0.00067549000000000005 * fVec10[((IOTA - 88) & 127)]) + ((0.00107274 * fVec10[((IOTA - 85) & 127)]) + ((0.0025198 * fVec10[((IOTA - 60) & 127)]) + ((0.00117113 * fVec10[((IOTA - 59) & 127)]) + ((0.00015039900000000001 * fVec10[((IOTA - 58) & 127)]) + ((0.000455995 * fVec10[((IOTA - 56) & 127)]) + ((0.00278239 * fVec10[((IOTA - 55) & 127)]) + ((0.0010278799999999999 * fVec10[((IOTA - 54) & 127)]) + ((0.011156999999999999 * fVec10[((IOTA - 45) & 127)]) + ((0.0043641399999999999 * fVec10[((IOTA - 44) & 127)]) + ((0.0039441099999999998 * fVec10[((IOTA - 42) & 127)]) + ((0.0097659400000000007 * fVec10[((IOTA - 39) & 127)]) + ((0.0076369999999999997 * fVec10[((IOTA - 36) & 127)]) + ((0.015424400000000001 * fVec10[((IOTA - 35) & 127)]) + ((0.0018063700000000001 * fVec10[((IOTA - 32) & 127)]) + ((0.00736515 * fVec10[((IOTA - 31) & 127)]) + ((0.0126468 * fVec10[((IOTA - 30) & 127)]) + ((0.0011752499999999999 * fVec10[((IOTA - 27) & 127)]) + ((0.022162999999999999 * fVec10[((IOTA - 26) & 127)]) + ((0.0071126699999999998 * fVec10[((IOTA - 25) & 127)]) + ((0.018755900000000002 * fVec10[((IOTA - 24) & 127)]) + ((0.0013016799999999999 * fVec10[((IOTA - 23) & 127)]) + ((0.0137094 * fVec10[((IOTA - 21) & 127)]) + ((0.024051599999999999 * fVec10[((IOTA - 18) & 127)]) + ((0.015724599999999998 * fVec10[((IOTA - 15) & 127)]) + ((0.014135400000000001 * fVec10[((IOTA - 12) & 127)]) + ((0.0011849499999999999 * fVec10[((IOTA - 9) & 127)]) + ((0.00070355200000000008 * fVec10[((IOTA - 7) & 127)]) + ((5.9634000000000005e-05 * fVec10[((IOTA - 6) & 127)]) + ((0.000133299 * fVec10[((IOTA - 5) & 127)]) + ((0.00039401200000000001 * fVec10[((IOTA - 3) & 127)]) + ((3.0720999999999999e-05 * fVec10[((IOTA - 1) & 127)]) + ((8.3709499999999999e-06 * fTemp10) + ((0.0019257899999999999 * fVec10[((IOTA - 65) & 127)]) + ((0.00162886 * fVec10[((IOTA - 64) & 127)]) + ((0.00050768500000000002 * fVec10[((IOTA - 63) & 127)]) + ((0.00062359600000000002 * fVec10[((IOTA - 80) & 127)]) + ((0.000178293 * fVec10[((IOTA - 79) & 127)]) + ((0.00080254300000000007 * fVec10[((IOTA - 76) & 127)]) + ((0.00065406300000000008 * fVec10[((IOTA - 68) & 127)]) + ((0.00014068899999999999 * fVec10[((IOTA - 67) & 127)]) + ((3.0765800000000003e-05 * fVec12[((IOTA - 119) & 127)]) + ((7.0563399999999996e-05 * fVec12[((IOTA - 118) & 127)]) + ((1.38519e-05 * fVec12[((IOTA - 115) & 127)]) + ((0.00014198999999999999 * fVec12[((IOTA - 114) & 127)]) + ((9.8497200000000003e-05 * fVec12[((IOTA - 113) & 127)]) + ((0.000185267 * fVec12[((IOTA - 112) & 127)]) + ((9.1395000000000002e-05 * fVec12[((IOTA - 111) & 127)]) + ((8.0491800000000001e-05 * fVec12[((IOTA - 110) & 127)]) + ((0.00064522800000000008 * fVec12[((IOTA - 109) & 127)]) + ((0.00058569100000000005 * fVec12[((IOTA - 108) & 127)]) + ((0.00033563700000000001 * fVec12[((IOTA - 107) & 127)]) + ((0.00035424600000000001 * fVec12[((IOTA - 106) & 127)]) + ((0.000105676 * fVec12[((IOTA - 83) & 127)]) + ((0.00052492499999999998 * fVec12[((IOTA - 75) & 127)]) + ((0.0022562899999999998 * fVec12[((IOTA - 74) & 127)]) + ((0.000321723 * fVec12[((IOTA - 73) & 127)]) + ((0.00080229500000000007 * fVec12[((IOTA - 72) & 127)]) + ((0.0019222600000000001 * fVec12[((IOTA - 71) & 127)]) + ((0.0028435500000000002 * fVec12[((IOTA - 70) & 127)]) + ((4.2787900000000004e-05 * fVec12[((IOTA - 69) & 127)]) + ((0.0024381200000000002 * fVec12[((IOTA - 67) & 127)]) + ((0.0023961899999999999 * fVec12[((IOTA - 66) & 127)]) + ((0.0021430799999999999 * fVec12[((IOTA - 65) & 127)]) + ((0.0030028400000000001 * fVec12[((IOTA - 64) & 127)]) + ((0.00058073100000000002 * fVec12[((IOTA - 63) & 127)]) + ((0.0017794099999999999 * fVec12[((IOTA - 51) & 127)]) + ((0.00225201 * fVec12[((IOTA - 48) & 127)]) + ((0.0035764999999999998 * fVec12[((IOTA - 47) & 127)]) + ((0.0050062100000000005 * fVec12[((IOTA - 46) & 127)]) + ((0.00090678400000000011 * fVec12[((IOTA - 45) & 127)]) + ((0.0060474300000000003 * fVec12[((IOTA - 42) & 127)]) + ((0.0049879100000000008 * fVec12[((IOTA - 41) & 127)]) + ((0.0040529299999999997 * fVec12[((IOTA - 40) & 127)]) + ((0.0083491300000000015 * fVec12[((IOTA - 39) & 127)]) + ((0.011238600000000001 * fVec12[((IOTA - 36) & 127)]) + ((7.6854400000000007e-05 * fVec12[((IOTA - 34) & 127)]) + ((0.0100301 * fVec12[((IOTA - 33) & 127)]) + ((0.0053935399999999996 * fVec12[((IOTA - 32) & 127)]) + ((0.0073630199999999996 * fVec12[((IOTA - 28) & 127)]) + ((0.016863099999999999 * fVec12[((IOTA - 27) & 127)]) + ((0.0087242399999999994 * fVec12[((IOTA - 24) & 127)]) + ((0.027741399999999999 * fVec12[((IOTA - 22) & 127)]) + ((0.0366919 * fVec12[((IOTA - 19) & 127)]) + ((0.011357900000000001 * fVec12[((IOTA - 14) & 127)]) + ((0.0037318799999999999 * fVec12[((IOTA - 12) & 127)]) + ((0.0010972500000000001 * fVec12[((IOTA - 11) & 127)]) + ((6.8217500000000009e-05 * fVec12[((IOTA - 10) & 127)]) + ((0.00061125900000000006 * fVec12[((IOTA - 9) & 127)]) + ((0.00056615599999999995 * fVec12[((IOTA - 7) & 127)]) + ((0.00058234700000000009 * fVec12[((IOTA - 5) & 127)]) + ((0.00027969900000000001 * fVec12[((IOTA - 3) & 127)]) + ((4.34537e-05 * fVec12[((IOTA - 1) & 127)]) + ((0.00041022299999999998 * fVec12[((IOTA - 93) & 127)]) + ((0.00062789300000000003 * fVec12[((IOTA - 105) & 127)]) + ((0.00034429799999999999 * fVec12[((IOTA - 104) & 127)]) + ((2.9823200000000003e-05 * fVec12[((IOTA - 103) & 127)]) + ((0.00061507300000000005 * fVec12[((IOTA - 102) & 127)]) + ((0.00037771400000000002 * fVec12[((IOTA - 101) & 127)]) + ((0.00015985700000000001 * fVec12[((IOTA - 100) & 127)]) + ((0.000190946 * fVec12[((IOTA - 99) & 127)]) + ((0.00050743800000000003 * fVec12[((IOTA - 98) & 127)]) + ((0.00056488300000000007 * fVec12[((IOTA - 97) & 127)]) + ((8.1509000000000009e-05 * fVec12[((IOTA - 96) & 127)]) + ((0.00037732899999999998 * fVec12[((IOTA - 95) & 127)]) + ((0.00085697799999999999 * fVec12[((IOTA - 92) & 127)]) + ((7.1292100000000001e-05 * fVec13[((IOTA - 115) & 127)]) + ((0.00018952700000000002 * fVec13[((IOTA - 111) & 127)]) + ((0.00035912999999999999 * fVec13[((IOTA - 110) & 127)]) + ((0.00051251200000000002 * fVec13[((IOTA - 109) & 127)]) + ((0.00046264500000000003 * fVec13[((IOTA - 108) & 127)]) + ((0.00014609200000000001 * fVec13[((IOTA - 107) & 127)]) + ((0.000122237 * fVec13[((IOTA - 106) & 127)]) + ((2.0314199999999999e-05 * fVec13[((IOTA - 105) & 127)]) + ((3.2517300000000001e-05 * fVec13[((IOTA - 104) & 127)]) + ((7.679690000000001e-05 * fVec13[((IOTA - 103) & 127)]) + ((0.00081181999999999999 * fVec13[((IOTA - 102) & 127)]) + ((0.0010270300000000002 * fVec13[((IOTA - 101) & 127)]) + ((0.00033934900000000002 * fVec13[((IOTA - 100) & 127)]) + ((0.00067179499999999999 * fVec13[((IOTA - 99) & 127)]) + ((0.0015498300000000001 * fVec13[((IOTA - 98) & 127)]) + ((0.00193557 * fVec13[((IOTA - 97) & 127)]) + ((0.0012977900000000001 * fVec13[((IOTA - 96) & 127)]) + ((0.00173953 * fVec13[((IOTA - 92) & 127)]) + ((0.0020737100000000003 * fVec13[((IOTA - 91) & 127)]) + ((0.00132314 * fVec13[((IOTA - 90) & 127)]) + ((0.00050203100000000001 * fVec13[((IOTA - 89) & 127)]) + ((2.5817700000000002e-05 * fVec13[((IOTA - 81) & 127)]) + ((0.0008419320000000001 * fVec13[((IOTA - 80) & 127)]) + ((0.00087629800000000007 * fVec13[((IOTA - 79) & 127)]) + ((0.000245352 * fVec13[((IOTA - 70) & 127)]) + ((0.0012620800000000001 * fVec13[((IOTA - 69) & 127)]) + ((0.0023085100000000002 * fVec13[((IOTA - 68) & 127)]) + ((0.002405 * fVec13[((IOTA - 67) & 127)]) + ((0.022452899999999998 * fVec13[((IOTA - 16) & 127)]) + ((0.0121954 * fVec13[((IOTA - 15) & 127)]) + ((0.0109563 * fVec13[((IOTA - 12) & 127)]) + ((0.00016957000000000002 * fVec13[((IOTA - 11) & 127)]) + ((0.00010783300000000001 * fVec13[((IOTA - 10) & 127)]) + ((0.00024862500000000004 * fVec13[((IOTA - 9) & 127)]) + ((0.00084071099999999995 * fVec13[((IOTA - 7) & 127)]) + ((9.0162999999999997e-05 * fVec13[((IOTA - 4) & 127)]) + ((0.00036489900000000002 * fVec13[((IOTA - 3) & 127)]) + ((4.0528500000000005e-06 * fTemp13) + ((0.0057233800000000001 * fVec13[((IOTA - 28) & 127)]) + ((0.0152522 * fVec13[((IOTA - 27) & 127)]) + ((0.0102524 * fVec13[((IOTA - 26) & 127)]) + ((0.018531200000000001 * fVec13[((IOTA - 25) & 127)]) + ((0.044155600000000003 * fVec13[((IOTA - 22) & 127)]) + ((0.0014007000000000002 * fVec13[((IOTA - 66) & 127)]) + ((0.00093808200000000002 * fVec13[((IOTA - 64) & 127)]) + ((0.0028319 * fVec13[((IOTA - 63) & 127)]) + ((0.00071589500000000003 * fVec13[((IOTA - 60) & 127)]) + ((0.0012767 * fVec13[((IOTA - 59) & 127)]) + ((0.0016556800000000001 * fVec13[((IOTA - 58) & 127)]) + ((0.0023854900000000001 * fVec13[((IOTA - 57) & 127)]) + ((0.00071006400000000005 * fVec13[((IOTA - 56) & 127)]) + ((0.0023205399999999998 * fVec13[((IOTA - 54) & 127)]) + ((0.0019624999999999998 * fVec13[((IOTA - 52) & 127)]) + ((0.0022978399999999998 * fVec13[((IOTA - 51) & 127)]) + ((0.00051752200000000008 * fVec13[((IOTA - 48) & 127)]) + ((0.0059472300000000004 * fVec13[((IOTA - 46) & 127)]) + ((0.0056101400000000004 * fVec13[((IOTA - 45) & 127)]) + ((0.00025800500000000001 * fVec13[((IOTA - 40) & 127)]) + ((0.0064505600000000001 * fVec13[((IOTA - 38) & 127)]) + ((0.014772 * fVec13[((IOTA - 34) & 127)]) + ((0.0058612900000000008 * fVec13[((IOTA - 31) & 127)]) + ((1.16687e-06 * fVec14[((IOTA - 126) & 127)]) + ((8.0474799999999991e-06 * fVec14[((IOTA - 125) & 127)]) + ((1.1716500000000002e-05 * fVec14[((IOTA - 124) & 127)]) + ((1.6095900000000003e-05 * fVec14[((IOTA - 123) & 127)]) + ((1.2353500000000001e-05 * fVec14[((IOTA - 121) & 127)]) + ((5.0538800000000005e-05 * fVec14[((IOTA - 120) & 127)]) + ((6.90663e-05 * fVec14[((IOTA - 119) & 127)]) + ((0.0081954799999999998 * fVec13[((IOTA - 21) & 127)]) + ((7.1261200000000008e-05 * fVec14[((IOTA - 110) & 127)]) + ((0.00013404500000000001 * fVec14[((IOTA - 107) & 127)]) + ((0.000144139 * fVec14[((IOTA - 103) & 127)]) + ((0.00074598600000000002 * fVec14[((IOTA - 102) & 127)]) + ((0.00041806100000000001 * fVec14[((IOTA - 101) & 127)]) + ((0.00099729399999999991 * fVec14[((IOTA - 97) & 127)]) + ((0.00072742900000000003 * fVec14[((IOTA - 96) & 127)]) + ((0.00095647000000000006 * fVec14[((IOTA - 94) & 127)]) + ((0.0019078999999999999 * fVec14[((IOTA - 93) & 127)]) + ((0.00037591000000000002 * fVec14[((IOTA - 92) & 127)]) + ((0.00091705400000000015 * fVec14[((IOTA - 91) & 127)]) + ((0.0019979199999999998 * fVec14[((IOTA - 90) & 127)]) + ((0.00084190100000000004 * fVec14[((IOTA - 89) & 127)]) + ((0.00062404300000000002 * fVec14[((IOTA - 85) & 127)]) + ((0.0010226500000000002 * fVec14[((IOTA - 84) & 127)]) + ((0.00016474200000000003 * fVec14[((IOTA - 82) & 127)]) + ((0.00111031 * fVec14[((IOTA - 81) & 127)]) + ((0.0010574600000000001 * fVec14[((IOTA - 80) & 127)]) + ((0.0012639700000000001 * fVec14[((IOTA - 77) & 127)]) + ((0.00089859899999999993 * fVec14[((IOTA - 76) & 127)]) + ((0.00095380500000000006 * fVec14[((IOTA - 72) & 127)]) + ((0.0069549800000000004 * fVec14[((IOTA - 45) & 127)]) + ((0.011236100000000001 * fVec14[((IOTA - 44) & 127)]) + ((0.0059433200000000002 * fVec14[((IOTA - 43) & 127)]) + ((0.00041302300000000005 * fVec14[((IOTA - 40) & 127)]) + ((0.00281839 * fVec14[((IOTA - 39) & 127)]) + ((0.019649799999999999 * fVec14[((IOTA - 30) & 127)]) + ((0.0053291099999999997 * fVec14[((IOTA - 26) & 127)]) + ((0.0035138299999999999 * fVec14[((IOTA - 25) & 127)]) + ((0.024438399999999999 * fVec14[((IOTA - 22) & 127)]) + ((0.0101949 * fVec14[((IOTA - 21) & 127)]) + ((0.026200899999999999 * fVec14[((IOTA - 20) & 127)]) + ((0.0667629 * fVec14[((IOTA - 19) & 127)]) + ((0.0107382 * fVec14[((IOTA - 18) & 127)]) + ((0.0291912 * fVec14[((IOTA - 17) & 127)]) + ((0.029706100000000003 * fVec14[((IOTA - 16) & 127)]) + ((0.011985200000000001 * fVec14[((IOTA - 15) & 127)]) + ((0.00355895 * fVec14[((IOTA - 10) & 127)]) + ((0.0019467900000000001 * fVec14[((IOTA - 8) & 127)]) + ((0.00139101 * fVec14[((IOTA - 6) & 127)]) + ((0.00016791500000000001 * fVec14[((IOTA - 4) & 127)]) + ((0.00029155500000000004 * fVec14[((IOTA - 2) & 127)]) + ((0.0046855900000000008 * fVec14[((IOTA - 51) & 127)]) + ((0.0086597399999999991 * fVec14[((IOTA - 50) & 127)]) + ((0.0090186299999999997 * fVec14[((IOTA - 49) & 127)]) + ((0.000305641 * fVec14[((IOTA - 68) & 127)]) + ((0.000773294 * fVec14[((IOTA - 67) & 127)]) + ((0.00226954 * fVec14[((IOTA - 62) & 127)]) + ((0.0017599800000000002 * fVec14[((IOTA - 61) & 127)]) + ((0.00194699 * fVec14[((IOTA - 48) & 127)]) + ((0.00071835900000000001 * fVec14[((IOTA - 58) & 127)]) + ((0.0012819700000000001 * fVec14[((IOTA - 57) & 127)]) + ((0.000143156 * fVec14[((IOTA - 55) & 127)]) + ((0.00051545500000000006 * fVec14[((IOTA - 54) & 127)]) + ((0.00011347700000000001 * fVec14[((IOTA - 53) & 127)]) + ((0.00065408100000000004 * fVec14[((IOTA - 52) & 127)]) + ((1.3822700000000001e-06 * fVec15[((IOTA - 126) & 127)]) + ((4.3207799999999997e-06 * fVec15[((IOTA - 125) & 127)]) + ((7.0508400000000002e-07 * fVec15[((IOTA - 123) & 127)]) + ((8.1874899999999997e-07 * fVec15[((IOTA - 122) & 127)]) + ((4.9958900000000007e-05 * fVec15[((IOTA - 121) & 127)]) + ((0.00031685400000000004 * fVec14[((IOTA - 46) & 127)]) + ((4.8874300000000007e-05 * fVec15[((IOTA - 120) & 127)]) + ((3.0540600000000004e-05 * fVec15[((IOTA - 119) & 127)]) + ((8.9455700000000012e-05 * fVec15[((IOTA - 116) & 127)]) + ((7.5434700000000005e-05 * fVec15[((IOTA - 115) & 127)]) + ((0.00014591800000000001 * fVec15[((IOTA - 114) & 127)]) + ((0.00032979500000000002 * fVec15[((IOTA - 109) & 127)]) + ((0.00027301799999999998 * fVec15[((IOTA - 108) & 127)]) + ((2.9295999999999999e-06 * fVec15[((IOTA - 106) & 127)]) + ((0.00041821300000000002 * fVec15[((IOTA - 105) & 127)]) + ((0.00016436200000000001 * fVec15[((IOTA - 104) & 127)]) + ((1.0304700000000001e-05 * fVec15[((IOTA - 103) & 127)]) + ((9.9420300000000014e-05 * fVec15[((IOTA - 102) & 127)]) + ((0.000143957 * fVec15[((IOTA - 101) & 127)]) + ((0.00068593000000000007 * fVec15[((IOTA - 97) & 127)]) + ((0.0022403200000000001 * fVec15[((IOTA - 96) & 127)]) + ((0.00054845200000000005 * fVec15[((IOTA - 95) & 127)]) + ((0.0013290999999999999 * fVec15[((IOTA - 90) & 127)]) + ((0.0010531200000000001 * fVec15[((IOTA - 86) & 127)]) + ((0.00043581100000000003 * fVec15[((IOTA - 85) & 127)]) + ((0.00043643700000000002 * fVec15[((IOTA - 84) & 127)]) + ((0.00088380000000000002 * fVec15[((IOTA - 83) & 127)]) + ((0.00047224300000000001 * fVec15[((IOTA - 79) & 127)]) + ((0.00094611000000000001 * fVec15[((IOTA - 78) & 127)]) + ((0.0029536099999999997 * fVec15[((IOTA - 75) & 127)]) + ((0.0014493400000000001 * fVec15[((IOTA - 74) & 127)]) + ((0.0052267299999999997 * fVec15[((IOTA - 56) & 127)]) + ((0.0049627400000000002 * fVec15[((IOTA - 55) & 127)]) + ((0.00034213000000000001 * fVec15[((IOTA - 54) & 127)]) + ((0.00171871 * fVec15[((IOTA - 52) & 127)]) + ((0.00204601 * fVec15[((IOTA - 51) & 127)]) + ((0.00172897 * fVec15[((IOTA - 44) & 127)]) + ((0.0059491199999999996 * fVec15[((IOTA - 43) & 127)]) + ((0.0069924600000000007 * fVec15[((IOTA - 42) & 127)]) + ((0.0046671199999999994 * fVec15[((IOTA - 38) & 127)]) + ((0.0074278399999999998 * fVec15[((IOTA - 37) & 127)]) + ((0.0038431400000000001 * fVec15[((IOTA - 33) & 127)]) + ((0.001851 * fVec15[((IOTA - 32) & 127)]) + ((0.00023100900000000004 * fVec15[((IOTA - 31) & 127)]) + ((0.0018550299999999999 * fVec15[((IOTA - 30) & 127)]) + ((0.0068345300000000001 * fVec15[((IOTA - 29) & 127)]) + ((0.0065994599999999997 * fVec15[((IOTA - 28) & 127)]) + ((0.0086483799999999989 * fVec15[((IOTA - 26) & 127)]) + ((0.034778900000000001 * fVec15[((IOTA - 25) & 127)]) + ((0.0033660500000000002 * fVec15[((IOTA - 21) & 127)]) + ((0.0166362 * fVec15[((IOTA - 19) & 127)]) + ((0.013249500000000001 * fVec15[((IOTA - 18) & 127)]) + ((0.0149275 * fVec15[((IOTA - 15) & 127)]) + ((0.00153611 * fVec15[((IOTA - 12) & 127)]) + ((0.00022380100000000001 * fVec15[((IOTA - 11) & 127)]) + ((0.0002062 * fVec15[((IOTA - 10) & 127)]) + ((0.00029508100000000004 * fVec15[((IOTA - 9) & 127)]) + ((9.3157600000000004e-05 * fVec15[((IOTA - 7) & 127)]) + ((0.00083150800000000001 * fVec15[((IOTA - 6) & 127)]) + ((0.000139085 * fVec15[((IOTA - 3) & 127)]) + ((0.000100796 * fVec15[((IOTA - 2) & 127)]) + ((5.4869299999999995e-06 * fTemp15) + ((0.00046532900000000006 * fVec15[((IOTA - 61) & 127)]) + ((0.00033464100000000005 * fVec15[((IOTA - 71) & 127)]) + ((0.000284002 * fVec15[((IOTA - 70) & 127)]) + ((0.00034605900000000002 * fVec15[((IOTA - 68) & 127)]) + ((0.00166238 * fVec15[((IOTA - 67) & 127)]) + ((0.00061167100000000005 * fVec15[((IOTA - 66) & 127)]) + ((0.0014756400000000001 * fVec15[((IOTA - 65) & 127)]) + ((0.0014824 * fVec15[((IOTA - 64) & 127)]) + ((0.000313016 * fVec15[((IOTA - 63) & 127)]) + ((0.0014774499999999999 * fVec15[((IOTA - 57) & 127)]) + ((1.2067399999999999e-06 * fVec16[((IOTA - 126) & 127)]) + ((1.4484800000000001e-05 * fVec16[((IOTA - 123) & 127)]) + ((2.1146600000000005e-05 * fVec16[((IOTA - 122) & 127)]) + ((3.7560900000000002e-05 * fVec16[((IOTA - 121) & 127)]) + ((5.5921400000000003e-05 * fVec16[((IOTA - 120) & 127)]) + ((2.8070300000000005e-05 * fVec16[((IOTA - 119) & 127)]) + ((3.5723000000000003e-05 * fVec16[((IOTA - 118) & 127)]) + ((6.8163800000000006e-05 * fVec16[((IOTA - 117) & 127)]) + ((2.3925e-06 * fVec16[((IOTA - 116) & 127)]) + ((0.00014829900000000001 * fVec16[((IOTA - 108) & 127)]) + ((0.00037316500000000001 * fVec16[((IOTA - 105) & 127)]) + ((0.00039246300000000001 * fVec16[((IOTA - 104) & 127)]) + ((0.00069076200000000004 * fVec16[((IOTA - 98) & 127)]) + ((0.00059752000000000004 * fVec16[((IOTA - 97) & 127)]) + ((3.8900100000000004e-05 * fVec16[((IOTA - 96) & 127)]) + ((0.00104006 * fVec16[((IOTA - 95) & 127)]) + ((0.0024621700000000001 * fVec16[((IOTA - 94) & 127)]) + ((0.0011040900000000001 * fVec16[((IOTA - 93) & 127)]) + ((0.00025218300000000001 * fVec16[((IOTA - 92) & 127)]) + ((0.000582052 * fVec16[((IOTA - 87) & 127)]) + ((0.00181963 * fVec16[((IOTA - 86) & 127)]) + ((0.00027008400000000003 * fVec16[((IOTA - 83) & 127)]) + ((3.9284900000000001e-05 * fVec16[((IOTA - 82) & 127)]) + ((0.0023190699999999999 * fVec16[((IOTA - 78) & 127)]) + ((0.0031104100000000001 * fVec16[((IOTA - 77) & 127)]) + ((0.0018716399999999999 * fVec16[((IOTA - 76) & 127)]) + ((0.00173413 * fVec16[((IOTA - 75) & 127)]) + ((0.00046513499999999998 * fVec16[((IOTA - 74) & 127)]) + ((0.00070995800000000001 * fVec16[((IOTA - 73) & 127)]) + ((0.00136597 * fVec16[((IOTA - 72) & 127)]) + ((0.0005198920000000001 * fVec16[((IOTA - 66) & 127)]) + ((0.00252236 * fVec16[((IOTA - 65) & 127)]) + ((0.00148653 * fVec16[((IOTA - 64) & 127)]) + ((0.00049729599999999994 * fVec16[((IOTA - 61) & 127)]) + ((0.0017160000000000001 * fVec16[((IOTA - 60) & 127)]) + ((0.000571158 * fVec16[((IOTA - 59) & 127)]) + ((0.0027287100000000001 * fVec16[((IOTA - 40) & 127)]) + ((0.0016985100000000001 * fVec16[((IOTA - 35) & 127)]) + ((0.057691300000000001 * fVec16[((IOTA - 23) & 127)]) + ((0.016169199999999998 * fVec16[((IOTA - 22) & 127)]) + ((0.044694299999999999 * fVec16[((IOTA - 20) & 127)]) + ((0.073524500000000007 * fVec16[((IOTA - 19) & 127)]) + ((0.046224100000000004 * fVec16[((IOTA - 18) & 127)]) + ((0.039818899999999997 * fVec16[((IOTA - 16) & 127)]) + ((0.030653800000000002 * fVec16[((IOTA - 15) & 127)]) + ((0.0028312599999999999 * fVec16[((IOTA - 10) & 127)]) + ((0.00023471600000000002 * fVec16[((IOTA - 8) & 127)]) + ((0.0016646499999999999 * fVec16[((IOTA - 6) & 127)]) + ((0.00018944099999999999 * fVec16[((IOTA - 4) & 127)]) + ((0.00041035500000000005 * fVec16[((IOTA - 2) & 127)]) + ((0.0040522299999999995 * fVec16[((IOTA - 48) & 127)]) + ((0.0064639199999999997 * fVec16[((IOTA - 47) & 127)]) + ((0.0059821600000000003 * fVec16[((IOTA - 46) & 127)]) + ((0.0034409700000000002 * fVec16[((IOTA - 45) & 127)]) + ((0.0067079800000000005 * fVec16[((IOTA - 44) & 127)]) + ((0.0101911 * fVec16[((IOTA - 42) & 127)]) + ((0.0031196700000000002 * fVec16[((IOTA - 54) & 127)]) + ((0.0014963299999999999 * fVec16[((IOTA - 53) & 127)]) + ((0.0021004299999999999 * fVec16[((IOTA - 52) & 127)]) + ((0.0077831999999999997 * fVec16[((IOTA - 51) & 127)]) + ((0.0044508500000000001 * fVec16[((IOTA - 50) & 127)]) + ((0.0021174599999999998 * fVec16[((IOTA - 49) & 127)]) + ((0.0084519999999999994 * fVec16[((IOTA - 41) & 127)]) + ((0.0079398100000000003 * fVec16[((IOTA - 43) & 127)]) + ((1.06705e-06 * fVec17[((IOTA - 126) & 127)]) + ((3.8319600000000005e-05 * fVec17[((IOTA - 122) & 127)]) + ((5.611290000000001e-05 * fVec17[((IOTA - 121) & 127)]) + ((4.3469500000000001e-05 * fVec17[((IOTA - 120) & 127)]) + ((4.8748200000000002e-05 * fVec17[((IOTA - 117) & 127)]) + ((0.000144938 * fVec17[((IOTA - 110) & 127)]) + ((0.00078204200000000005 * fVec17[((IOTA - 79) & 127)]) + ((0.00053547700000000002 * fVec17[((IOTA - 77) & 127)]) + ((0.00089492 * fVec17[((IOTA - 76) & 127)]) + ((1.0278999999999999e-06 * fVec17[((IOTA - 103) & 127)]) + ((7.2644700000000013e-05 * fVec17[((IOTA - 104) & 127)]) + ((0.0011606799999999999 * fVec17[((IOTA - 96) & 127)]) + ((0.0031629900000000001 * fVec17[((IOTA - 95) & 127)]) + ((0.00078389600000000007 * fVec17[((IOTA - 94) & 127)]) + ((3.61728e-05 * fVec17[((IOTA - 91) & 127)]) + ((0.0022532999999999997 * fVec17[((IOTA - 86) & 127)]) + ((0.00098582100000000001 * fVec17[((IOTA - 75) & 127)]) + ((0.0010638000000000002 * fVec17[((IOTA - 74) & 127)]) + ((0.0020713300000000001 * fVec17[((IOTA - 72) & 127)]) + ((0.00287405 * fVec17[((IOTA - 71) & 127)]) + ((0.0018535400000000001 * fVec17[((IOTA - 70) & 127)]) + ((0.0024114399999999999 * fVec17[((IOTA - 69) & 127)]) + ((0.0054627 * fVec17[((IOTA - 68) & 127)]) + ((0.0053478500000000003 * fVec17[((IOTA - 67) & 127)]) + ((0.0036506200000000003 * fVec17[((IOTA - 66) & 127)]) + ((0.0039108500000000004 * fVec17[((IOTA - 65) & 127)]) + ((0.00124406 * fVec17[((IOTA - 64) & 127)]) + ((0.00066612700000000008 * fVec17[((IOTA - 53) & 127)]) + ((0.00021471700000000001 * fVec17[((IOTA - 42) & 127)]) + ((0.0083305600000000007 * fVec17[((IOTA - 38) & 127)]) + ((0.0016041499999999999 * fVec17[((IOTA - 34) & 127)]) + ((0.018119700000000002 * fVec17[((IOTA - 33) & 127)]) + ((0.036438700000000004 * fVec17[((IOTA - 30) & 127)]) + ((0.027385400000000001 * fVec17[((IOTA - 29) & 127)]) + ((0.0048108300000000003 * fVec17[((IOTA - 28) & 127)]) + ((0.040978300000000002 * fVec17[((IOTA - 27) & 127)]) + ((0.049985600000000005 * fVec17[((IOTA - 26) & 127)]) + ((0.038770699999999998 * fVec17[((IOTA - 24) & 127)]) + ((0.10758200000000001 * fVec17[((IOTA - 23) & 127)]) + ((0.021392099999999997 * fVec17[((IOTA - 22) & 127)]) + ((0.041771900000000008 * fVec17[((IOTA - 20) & 127)]) + ((0.055177400000000001 * fVec17[((IOTA - 19) & 127)]) + ((0.0108086 * fVec17[((IOTA - 18) & 127)]) + ((0.0026607500000000004 * fVec17[((IOTA - 10) & 127)]) + ((0.00066903899999999996 * fVec17[((IOTA - 8) & 127)]) + ((0.0013556799999999999 * fVec17[((IOTA - 6) & 127)]) + ((0.00012807300000000001 * fVec17[((IOTA - 4) & 127)]) + ((0.000378556 * fVec17[((IOTA - 2) & 127)]) + ((4.9495899999999995e-07 * fVec18[((IOTA - 126) & 127)]) + ((2.773e-06 * fVec18[((IOTA - 125) & 127)]) + ((5.3135e-06 * fVec18[((IOTA - 121) & 127)]) + ((2.8457499999999998e-06 * fVec18[((IOTA - 117) & 127)]) + ((2.4558300000000005e-05 * fVec18[((IOTA - 116) & 127)]) + ((5.2591200000000006e-05 * fVec18[((IOTA - 112) & 127)]) + ((0.00024796200000000001 * fVec18[((IOTA - 111) & 127)]) + ((0.00014221200000000001 * fVec18[((IOTA - 110) & 127)]) + ((0.00010309 * fVec18[((IOTA - 108) & 127)]) + ((0.00018337600000000001 * fVec18[((IOTA - 107) & 127)]) + ((0.00035608600000000003 * fVec18[((IOTA - 106) & 127)]) + ((0.00034403800000000002 * fVec18[((IOTA - 105) & 127)]) + ((0.00025383300000000002 * fVec18[((IOTA - 104) & 127)]) + ((0.00028535700000000003 * fVec18[((IOTA - 103) & 127)]) + ((0.00070562000000000001 * fVec18[((IOTA - 102) & 127)]) + ((0.0005151 * fVec18[((IOTA - 101) & 127)]) + ((0.00032077100000000002 * fVec18[((IOTA - 100) & 127)]) + ((9.0654800000000018e-05 * fVec18[((IOTA - 99) & 127)]) + ((0.00071143700000000009 * fVec18[((IOTA - 98) & 127)]) + ((0.0014366699999999999 * fVec18[((IOTA - 97) & 127)]) + ((0.00124614 * fVec18[((IOTA - 94) & 127)]) + ((0.0022713 * fVec18[((IOTA - 93) & 127)]) + ((0.00127749 * fVec18[((IOTA - 86) & 127)]) + ((6.2936500000000003e-05 * fVec18[((IOTA - 77) & 127)]) + ((2.0687900000000002e-05 * fVec18[((IOTA - 76) & 127)]) + ((0.00074920100000000001 * fVec18[((IOTA - 72) & 127)]) + ((0.00108661 * fVec18[((IOTA - 71) & 127)]) + ((0.00066226100000000003 * fVec18[((IOTA - 70) & 127)]) + ((0.00221192 * fVec18[((IOTA - 68) & 127)]) + ((0.0036181899999999999 * fVec18[((IOTA - 67) & 127)]) + ((3.8066800000000006e-05 * fVec18[((IOTA - 66) & 127)]) + ((2.7286800000000004e-05 * fVec18[((IOTA - 64) & 127)]) + ((0.0014662800000000001 * fVec18[((IOTA - 63) & 127)]) + ((0.0025716599999999999 * fVec18[((IOTA - 62) & 127)]) + ((0.00040080500000000001 * fVec18[((IOTA - 61) & 127)]) + ((0.0022166500000000001 * fVec18[((IOTA - 59) & 127)]) + ((0.0027539400000000003 * fVec18[((IOTA - 58) & 127)]) + ((0.000547636 * fVec18[((IOTA - 57) & 127)]) + ((0.0034324300000000002 * fVec18[((IOTA - 56) & 127)]) + ((0.0028814800000000001 * fVec18[((IOTA - 55) & 127)]) + ((0.00020467599999999999 * fVec18[((IOTA - 54) & 127)]) + ((0.0025276200000000004 * fVec18[((IOTA - 51) & 127)]) + ((0.0045955500000000003 * fVec18[((IOTA - 50) & 127)]) + ((0.0021549399999999997 * fVec18[((IOTA - 44) & 127)]) + ((0.0013761300000000001 * fVec18[((IOTA - 41) & 127)]) + ((0.002183 * fVec18[((IOTA - 38) & 127)]) + ((0.0030387000000000001 * fVec18[((IOTA - 36) & 127)]) + ((0.021556799999999997 * fVec18[((IOTA - 35) & 127)]) + ((0.023527200000000002 * fVec18[((IOTA - 32) & 127)]) + ((0.0021948500000000004 * fVec18[((IOTA - 31) & 127)]) + ((0.00051807200000000006 * fVec18[((IOTA - 29) & 127)]) + ((0.024944000000000001 * fVec18[((IOTA - 26) & 127)]) + ((0.0035849099999999997 * fVec18[((IOTA - 25) & 127)]) + ((0.011300600000000001 * fVec18[((IOTA - 19) & 127)]) + ((0.0094331200000000014 * fVec18[((IOTA - 18) & 127)]) + ((0.0071840999999999997 * fVec18[((IOTA - 15) & 127)]) + ((0.00027813700000000002 * fVec18[((IOTA - 12) & 127)]) + ((0.00027818999999999999 * fVec18[((IOTA - 11) & 127)]) + ((0.00033955200000000002 * fVec18[((IOTA - 10) & 127)]) + ((0.00022609 * fVec18[((IOTA - 9) & 127)]) + ((0.00016021500000000001 * fVec18[((IOTA - 7) & 127)]) + ((0.000240886 * fVec18[((IOTA - 6) & 127)]) + ((2.4972599999999999e-05 * fVec18[((IOTA - 3) & 127)]) + ((5.2352700000000004e-05 * fVec18[((IOTA - 2) & 127)]) + ((4.2462999999999995e-06 * fTemp18) + ((0.00070097300000000003 * fVec18[((IOTA - 85) & 127)]) + ((8.9630500000000016e-08 * fVec19[((IOTA - 126) & 127)]) + ((4.86084e-05 * fVec19[((IOTA - 119) & 127)]) + ((3.0215200000000005e-05 * fVec19[((IOTA - 118) & 127)]) + ((0.00010084700000000001 * fVec19[((IOTA - 110) & 127)]) + ((0.00034166200000000001 * fVec19[((IOTA - 109) & 127)]) + ((0.000204718 * fVec19[((IOTA - 108) & 127)]) + ((0.00033797299999999998 * fVec19[((IOTA - 107) & 127)]) + ((0.00045785700000000004 * fVec19[((IOTA - 106) & 127)]) + ((0.00013590400000000001 * fVec19[((IOTA - 105) & 127)]) + ((6.0929900000000008e-05 * fVec19[((IOTA - 104) & 127)]) + ((0.000208667 * fVec19[((IOTA - 102) & 127)]) + ((0.00030785900000000001 * fVec19[((IOTA - 101) & 127)]) + ((0.00026147399999999998 * fVec19[((IOTA - 100) & 127)]) + ((0.00048677700000000003 * fVec19[((IOTA - 99) & 127)]) + ((0.0012107800000000001 * fVec19[((IOTA - 98) & 127)]) + ((0.00076490500000000008 * fVec19[((IOTA - 97) & 127)]) + ((0.00058266999999999998 * fVec19[((IOTA - 94) & 127)]) + ((0.00082486899999999999 * fVec19[((IOTA - 93) & 127)]) + ((0.0011506799999999998 * fVec19[((IOTA - 92) & 127)]) + ((3.5632800000000002e-05 * fVec19[((IOTA - 91) & 127)]) + ((3.64663e-05 * fVec19[((IOTA - 90) & 127)]) + ((0.00056137899999999998 * fVec19[((IOTA - 88) & 127)]) + ((0.00015598000000000001 * fVec19[((IOTA - 87) & 127)]) + ((0.00076870700000000009 * fVec19[((IOTA - 84) & 127)]) + ((0.0014322200000000001 * fVec19[((IOTA - 83) & 127)]) + ((0.00046067700000000005 * fVec19[((IOTA - 82) & 127)]) + ((0.00064690400000000001 * fVec19[((IOTA - 79) & 127)]) + ((0.00271718 * fVec19[((IOTA - 75) & 127)]) + ((6.2586200000000001e-05 * fVec19[((IOTA - 72) & 127)]) + ((0.00117567 * fVec19[((IOTA - 71) & 127)]) + ((0.0012521400000000001 * fVec19[((IOTA - 70) & 127)]) + ((0.00055114699999999999 * fVec19[((IOTA - 66) & 127)]) + ((0.00110439 * fVec19[((IOTA - 65) & 127)]) + ((0.0016155 * fVec19[((IOTA - 64) & 127)]) + ((0.0021511500000000001 * fVec19[((IOTA - 63) & 127)]) + ((0.0019438999999999999 * fVec19[((IOTA - 60) & 127)]) + ((0.0070393900000000004 * fVec19[((IOTA - 39) & 127)]) + ((0.0048936500000000003 * fVec19[((IOTA - 37) & 127)]) + ((0.0095701499999999995 * fVec19[((IOTA - 36) & 127)]) + ((0.015800600000000001 * fVec19[((IOTA - 33) & 127)]) + ((0.011886499999999999 * fVec19[((IOTA - 32) & 127)]) + ((0.0058739299999999994 * fVec19[((IOTA - 30) & 127)]) + ((0.024750999999999999 * fVec19[((IOTA - 29) & 127)]) + ((0.0086730599999999998 * fVec19[((IOTA - 28) & 127)]) + ((0.023463500000000002 * fVec19[((IOTA - 26) & 127)]) + ((0.052758300000000001 * fVec19[((IOTA - 25) & 127)]) + ((0.0124978 * fVec19[((IOTA - 24) & 127)]) + ((0.035996800000000002 * fVec19[((IOTA - 22) & 127)]) + ((0.013752100000000001 * fVec19[((IOTA - 21) & 127)]) + ((0.0018844000000000001 * fVec19[((IOTA - 20) & 127)]) + ((0.0448946 * fVec19[((IOTA - 19) & 127)]) + ((0.00033159299999999998 * fVec19[((IOTA - 18) & 127)]) + ((0.00255288 * fVec19[((IOTA - 10) & 127)]) + ((0.00094661300000000001 * fVec19[((IOTA - 8) & 127)]) + ((0.0010133200000000001 * fVec19[((IOTA - 6) & 127)]) + ((0.00025746299999999998 * fVec19[((IOTA - 2) & 127)]) + ((3.43292e-08 * fVec20[((IOTA - 126) & 127)]) + ((3.3588899999999999e-06 * fVec20[((IOTA - 125) & 127)]) + ((0.00122438 * fVec19[((IOTA - 52) & 127)]) + ((3.9804799999999997e-06 * fVec20[((IOTA - 124) & 127)]) + ((2.0105900000000003e-05 * fVec20[((IOTA - 123) & 127)]) + ((7.7608600000000008e-05 * fVec20[((IOTA - 119) & 127)]) + ((5.0789799999999999e-05 * fVec20[((IOTA - 116) & 127)]) + ((0.00020361699999999999 * fVec20[((IOTA - 115) & 127)]) + ((0.00030080800000000001 * fVec20[((IOTA - 114) & 127)]) + ((3.2623300000000003e-05 * fVec20[((IOTA - 113) & 127)]) + ((0.00026027500000000002 * fVec20[((IOTA - 110) & 127)]) + ((0.00020187200000000002 * fVec20[((IOTA - 109) & 127)]) + ((0.00040571999999999998 * fVec20[((IOTA - 108) & 127)]) + ((0.00053009599999999997 * fVec20[((IOTA - 107) & 127)]) + ((0.00050674400000000005 * fVec20[((IOTA - 106) & 127)]) + ((0.00049718700000000006 * fVec20[((IOTA - 105) & 127)]) + ((0.0011330000000000001 * fVec20[((IOTA - 104) & 127)]) + ((0.0016271899999999999 * fVec20[((IOTA - 103) & 127)]) + ((0.00069229100000000004 * fVec20[((IOTA - 102) & 127)]) + ((0.00046662400000000006 * fVec20[((IOTA - 101) & 127)]) + ((0.00069381500000000008 * fVec20[((IOTA - 100) & 127)]) + ((0.00038071900000000001 * fVec20[((IOTA - 99) & 127)]) + ((0.00084254300000000007 * fVec20[((IOTA - 98) & 127)]) + ((0.00156339 * fVec20[((IOTA - 97) & 127)]) + ((0.0034697200000000004 * fVec20[((IOTA - 96) & 127)]) + ((0.0030116200000000004 * fVec20[((IOTA - 95) & 127)]) + ((0.00075465500000000002 * fVec20[((IOTA - 94) & 127)]) + ((0.00068181600000000002 * fVec20[((IOTA - 93) & 127)]) + ((0.00071934100000000008 * fVec20[((IOTA - 92) & 127)]) + ((0.00040184499999999996 * fVec20[((IOTA - 91) & 127)]) + ((0.00055143000000000011 * fVec20[((IOTA - 90) & 127)]) + ((0.0016723300000000001 * fVec20[((IOTA - 89) & 127)]) + ((0.0017063 * fVec20[((IOTA - 88) & 127)]) + ((0.0013395900000000001 * fVec20[((IOTA - 87) & 127)]) + ((0.0026214800000000003 * fVec20[((IOTA - 86) & 127)]) + ((0.0034494400000000002 * fVec20[((IOTA - 85) & 127)]) + ((0.0025590399999999998 * fVec20[((IOTA - 84) & 127)]) + ((0.0014532900000000001 * fVec20[((IOTA - 83) & 127)]) + ((0.00127111 * fVec20[((IOTA - 78) & 127)]) + ((0.0011545000000000001 * fVec20[((IOTA - 77) & 127)]) + ((0.00061171300000000006 * fVec20[((IOTA - 76) & 127)]) + ((0.00020694100000000001 * fVec20[((IOTA - 75) & 127)]) + ((0.00064708400000000003 * fVec20[((IOTA - 74) & 127)]) + ((0.0010632999999999999 * fVec20[((IOTA - 73) & 127)]) + ((0.000609699 * fVec20[((IOTA - 72) & 127)]) + ((0.00058977500000000006 * fVec20[((IOTA - 71) & 127)]) + ((0.0005591420000000001 * fVec20[((IOTA - 67) & 127)]) + ((8.8419900000000004e-05 * fVec20[((IOTA - 65) & 127)]) + ((0.00150508 * fVec20[((IOTA - 64) & 127)]) + ((0.0014054500000000001 * fVec20[((IOTA - 60) & 127)]) + ((0.00215198 * fVec20[((IOTA - 54) & 127)]) + ((0.000219724 * fVec20[((IOTA - 52) & 127)]) + ((0.0017431900000000001 * fVec20[((IOTA - 51) & 127)]) + ((0.000292148 * fVec20[((IOTA - 49) & 127)]) + ((0.00356967 * fVec20[((IOTA - 48) & 127)]) + ((0.00055458199999999997 * fVec20[((IOTA - 47) & 127)]) + ((0.0018462400000000001 * fVec20[((IOTA - 45) & 127)]) + ((0.0038023500000000003 * fVec20[((IOTA - 42) & 127)]) + ((0.0029068700000000002 * fVec20[((IOTA - 40) & 127)]) + ((0.0047945900000000005 * fVec20[((IOTA - 39) & 127)]) + ((0.0038672100000000003 * fVec20[((IOTA - 38) & 127)]) + ((4.1971900000000004e-05 * fVec20[((IOTA - 36) & 127)]) + ((0.0060181399999999999 * fVec20[((IOTA - 35) & 127)]) + ((4.6184399999999998e-05 * fVec20[((IOTA - 10) & 127)]) + ((0.0025209700000000004 * fVec20[((IOTA - 8) & 127)]) + ((0.00036855699999999999 * fVec20[((IOTA - 6) & 127)]) + ((0.00070276500000000005 * fVec20[((IOTA - 5) & 127)]) + ((0.00090358699999999997 * fVec20[((IOTA - 4) & 127)]) + ((0.000231406 * fVec20[((IOTA - 2) & 127)]) + ((4.4178200000000003e-05 * fVec20[((IOTA - 1) & 127)]) + ((1.57811e-05 * fTemp20) + ((0.0013328999999999999 * fVec20[((IOTA - 24) & 127)]) + ((0.0016006100000000001 * fVec20[((IOTA - 23) & 127)]) + ((0.0099153599999999998 * fVec20[((IOTA - 22) & 127)]) + ((0.013603000000000001 * fVec20[((IOTA - 21) & 127)]) + ((0.016723499999999999 * fVec20[((IOTA - 20) & 127)]) + ((0.0049045500000000006 * fVec20[((IOTA - 33) & 127)]) + ((0.0091428700000000009 * fVec20[((IOTA - 32) & 127)]) + ((0.0099856200000000006 * fVec20[((IOTA - 29) & 127)]) + ((0.010922899999999999 * fVec20[((IOTA - 28) & 127)]) + ((0.045127499999999994 * fVec20[((IOTA - 17) & 127)]) + ((2.5137800000000002e-07 * fVec21[((IOTA - 126) & 127)]) + ((6.1820100000000001e-06 * fVec21[((IOTA - 125) & 127)]) + ((3.82797e-06 * fVec21[((IOTA - 124) & 127)]) + ((2.1185900000000001e-06 * fVec21[((IOTA - 123) & 127)]) + ((2.7248300000000001e-05 * fVec21[((IOTA - 121) & 127)]) + ((3.8722400000000007e-05 * fVec21[((IOTA - 120) & 127)]) + ((8.2140799999999984e-06 * fVec21[((IOTA - 119) & 127)]) + ((0.0059659600000000002 * fVec20[((IOTA - 14) & 127)]) + ((3.8470500000000004e-05 * fVec21[((IOTA - 117) & 127)]) + ((9.096330000000001e-05 * fVec21[((IOTA - 116) & 127)]) + ((8.7317000000000004e-05 * fVec21[((IOTA - 114) & 127)]) + ((0.000227166 * fVec21[((IOTA - 113) & 127)]) + ((8.3273200000000014e-05 * fVec21[((IOTA - 112) & 127)]) + ((8.2866000000000002e-05 * fVec21[((IOTA - 111) & 127)]) + ((0.00014514899999999999 * fVec21[((IOTA - 110) & 127)]) + ((0.0027371000000000001 * fVec20[((IOTA - 13) & 127)]) + ((0.00010655300000000001 * fVec21[((IOTA - 108) & 127)]) + ((0.00020428199999999999 * fVec21[((IOTA - 107) & 127)]) + ((5.2586900000000003e-05 * fVec21[((IOTA - 106) & 127)]) + ((0.00036701000000000003 * fVec21[((IOTA - 105) & 127)]) + ((0.00050770799999999994 * fVec21[((IOTA - 104) & 127)]) + ((0.00025426099999999998 * fVec21[((IOTA - 101) & 127)]) + ((0.00018379600000000001 * fVec21[((IOTA - 98) & 127)]) + ((0.00035138200000000002 * fVec21[((IOTA - 97) & 127)]) + ((7.6149300000000013e-05 * fVec21[((IOTA - 95) & 127)]) + ((0.0015575400000000001 * fVec21[((IOTA - 94) & 127)]) + ((0.00063264199999999999 * fVec21[((IOTA - 93) & 127)]) + ((0.00014839199999999998 * fVec21[((IOTA - 92) & 127)]) + ((0.00086251900000000007 * fVec21[((IOTA - 87) & 127)]) + ((0.0019024199999999999 * fVec21[((IOTA - 86) & 127)]) + ((0.00129144 * fVec21[((IOTA - 83) & 127)]) + ((0.00047882000000000003 * fVec21[((IOTA - 78) & 127)]) + ((0.0013118799999999999 * fVec21[((IOTA - 75) & 127)]) + ((0.0011614100000000001 * fVec21[((IOTA - 74) & 127)]) + ((0.0014712700000000002 * fVec21[((IOTA - 68) & 127)]) + ((0.0026238199999999998 * fVec21[((IOTA - 67) & 127)]) + ((8.7116700000000006e-05 * fVec21[((IOTA - 66) & 127)]) + ((0.0020513699999999998 * fVec21[((IOTA - 62) & 127)]) + ((0.00160801 * fVec21[((IOTA - 61) & 127)]) + ((0.0016339300000000002 * fVec21[((IOTA - 56) & 127)]) + ((0.0011073599999999999 * fVec21[((IOTA - 52) & 127)]) + ((0.0016051100000000001 * fVec21[((IOTA - 50) & 127)]) + ((0.0079808199999999996 * fVec21[((IOTA - 49) & 127)]) + ((0.00196889 * fVec21[((IOTA - 48) & 127)]) + ((0.0044432300000000003 * fVec21[((IOTA - 45) & 127)]) + ((0.000208879 * fVec21[((IOTA - 44) & 127)]) + ((0.0013145500000000001 * fVec21[((IOTA - 42) & 127)]) + ((9.226730000000001e-05 * fVec21[((IOTA - 40) & 127)]) + ((0.0053560100000000005 * fVec21[((IOTA - 39) & 127)]) + ((0.0053043999999999999 * fVec21[((IOTA - 38) & 127)]) + ((0.00291413 * fVec21[((IOTA - 37) & 127)]) + ((0.010230900000000001 * fVec21[((IOTA - 36) & 127)]) + ((0.0073240200000000005 * fVec21[((IOTA - 35) & 127)]) + ((0.0073238899999999996 * fVec21[((IOTA - 31) & 127)]) + ((0.0105234 * fVec21[((IOTA - 30) & 127)]) + ((0.0034125200000000005 * fVec21[((IOTA - 26) & 127)]) + ((0.0069197900000000003 * fVec21[((IOTA - 25) & 127)]) + ((0.031673199999999999 * fVec21[((IOTA - 18) & 127)]) + ((0.0274497 * fVec21[((IOTA - 17) & 127)]) + ((0.0030908899999999998 * fVec21[((IOTA - 16) & 127)]) + ((0.0103427 * fVec21[((IOTA - 15) & 127)]) + ((0.0120915 * fVec21[((IOTA - 13) & 127)]) + ((0.0038904299999999998 * fVec21[((IOTA - 10) & 127)]) + ((0.0024724199999999999 * fVec21[((IOTA - 8) & 127)]) + ((0.0012886100000000001 * fVec21[((IOTA - 6) & 127)]) + ((0.00084856599999999993 * fVec21[((IOTA - 4) & 127)]) + ((0.00020222799999999999 * fVec21[((IOTA - 2) & 127)]) + ((2.0016700000000001e-05 * fVec21[((IOTA - 1) & 127)]) + ((1.4622100000000002e-05 * fTemp21) + ((0.00147938 * fVec21[((IOTA - 59) & 127)]) + ((0.00013115699999999999 * fVec21[((IOTA - 58) & 127)]) + ((2.4533100000000001e-06 * fVec22[((IOTA - 126) & 127)]) + ((1.70273e-06 * fVec22[((IOTA - 125) & 127)]) + ((8.0341699999999997e-06 * fVec22[((IOTA - 123) & 127)]) + ((3.8827600000000008e-05 * fVec22[((IOTA - 122) & 127)]) + ((0.000101833 * fVec22[((IOTA - 121) & 127)]) + ((0.000105639 * fVec22[((IOTA - 120) & 127)]) + ((3.9296600000000006e-05 * fVec22[((IOTA - 119) & 127)]) + ((3.85491e-05 * fVec22[((IOTA - 117) & 127)]) + ((0.00018456300000000003 * fVec22[((IOTA - 116) & 127)]) + ((0.000184012 * fVec22[((IOTA - 115) & 127)]) + ((0.0019589099999999999 * fVec22[((IOTA - 96) & 127)]) + ((0.0031713800000000001 * fVec22[((IOTA - 95) & 127)]) + ((0.00068253400000000005 * fVec22[((IOTA - 94) & 127)]) + ((0.00050519600000000007 * fVec21[((IOTA - 57) & 127)]) + ((0.00056285600000000003 * fVec22[((IOTA - 91) & 127)]) + ((0.0014036900000000002 * fVec22[((IOTA - 90) & 127)]) + ((0.00337025 * fVec22[((IOTA - 87) & 127)]) + ((0.0052786200000000004 * fVec22[((IOTA - 86) & 127)]) + ((0.0015441700000000001 * fVec22[((IOTA - 85) & 127)]) + ((0.00036768800000000002 * fVec22[((IOTA - 84) & 127)]) + ((0.00069545300000000007 * fVec22[((IOTA - 83) & 127)]) + ((0.0010311999999999999 * fVec22[((IOTA - 65) & 127)]) + ((0.00113331 * fVec22[((IOTA - 64) & 127)]) + ((0.0014698599999999999 * fVec22[((IOTA - 63) & 127)]) + ((0.00070883900000000006 * fVec22[((IOTA - 62) & 127)]) + ((0.0020663499999999998 * fVec22[((IOTA - 57) & 127)]) + ((0.00288332 * fVec22[((IOTA - 56) & 127)]) + ((0.0008817050000000001 * fVec22[((IOTA - 55) & 127)]) + ((0.0035919900000000002 * fVec22[((IOTA - 54) & 127)]) + ((0.0016634199999999999 * fVec22[((IOTA - 53) & 127)]) + ((0.0012247 * fVec22[((IOTA - 52) & 127)]) + ((0.00117636 * fVec22[((IOTA - 51) & 127)]) + ((0.0053477200000000003 * fVec22[((IOTA - 49) & 127)]) + ((0.00571347 * fVec22[((IOTA - 48) & 127)]) + ((0.0068109299999999998 * fVec22[((IOTA - 45) & 127)]) + ((0.00503769 * fVec22[((IOTA - 44) & 127)]) + ((0.0033690899999999999 * fVec22[((IOTA - 43) & 127)]) + ((0.0081425600000000001 * fVec22[((IOTA - 42) & 127)]) + ((0.0048383499999999999 * fVec22[((IOTA - 39) & 127)]) + ((1.73416e-05 * fVec22[((IOTA - 38) & 127)]) + ((0.0011593500000000002 * fVec22[((IOTA - 37) & 127)]) + ((0.00341282 * fVec22[((IOTA - 36) & 127)]) + ((0.0053672899999999994 * fVec22[((IOTA - 34) & 127)]) + ((0.0060068300000000003 * fVec22[((IOTA - 33) & 127)]) + ((0.036282299999999996 * fVec22[((IOTA - 30) & 127)]) + ((0.0096774400000000007 * fVec22[((IOTA - 29) & 127)]) + ((0.03066 * fVec22[((IOTA - 26) & 127)]) + ((0.0020100199999999999 * fVec22[((IOTA - 10) & 127)]) + ((0.00148817 * fVec22[((IOTA - 8) & 127)]) + ((0.00053443399999999997 * fVec22[((IOTA - 6) & 127)]) + ((0.00069470999999999997 * fVec22[((IOTA - 4) & 127)]) + ((0.00013874000000000002 * fVec22[((IOTA - 2) & 127)]) + ((2.49699e-05 * fVec22[((IOTA - 1) & 127)]) + ((9.9362800000000004e-06 * fTemp22) + ((0.0019489700000000002 * fVec22[((IOTA - 23) & 127)]) + ((9.4065400000000002e-05 * fVec22[((IOTA - 22) & 127)]) + ((0.000702438 * fVec22[((IOTA - 20) & 127)]) + ((0.0174746 * fVec22[((IOTA - 18) & 127)]) + ((0.021190899999999999 * fVec22[((IOTA - 17) & 127)]) + ((0.0025345699999999999 * fVec22[((IOTA - 16) & 127)]) + ((0.0025992000000000003 * fVec22[((IOTA - 15) & 127)]) + ((2.4082099999999999e-06 * fVec23[((IOTA - 126) & 127)]) + ((8.464169999999999e-06 * fVec23[((IOTA - 125) & 127)]) + ((8.8836499999999992e-06 * fVec23[((IOTA - 124) & 127)]) + ((8.7967399999999994e-06 * fVec23[((IOTA - 123) & 127)]) + ((2.4375700000000001e-05 * fVec23[((IOTA - 122) & 127)]) + ((8.0066800000000004e-05 * fVec23[((IOTA - 121) & 127)]) + ((9.9426100000000014e-05 * fVec23[((IOTA - 120) & 127)]) + ((9.0816700000000014e-05 * fVec23[((IOTA - 119) & 127)]) + ((5.80835e-05 * fVec23[((IOTA - 118) & 127)]) + ((7.7452699999999998e-05 * fVec23[((IOTA - 117) & 127)]) + ((9.5024799999999997e-07 * fVec23[((IOTA - 116) & 127)]) + ((5.1149400000000002e-05 * fVec23[((IOTA - 98) & 127)]) + ((0.00032476299999999999 * fVec23[((IOTA - 97) & 127)]) + ((0.0012872900000000002 * fVec23[((IOTA - 94) & 127)]) + ((0.0022912900000000001 * fVec23[((IOTA - 93) & 127)]) + ((0.00119739 * fVec23[((IOTA - 92) & 127)]) + ((0.0019518999999999999 * fVec23[((IOTA - 90) & 127)]) + ((0.0043689900000000005 * fVec23[((IOTA - 89) & 127)]) + ((0.00375801 * fVec23[((IOTA - 88) & 127)]) + ((0.0016994499999999999 * fVec23[((IOTA - 87) & 127)]) + ((0.0032713800000000004 * fVec23[((IOTA - 86) & 127)]) + ((0.0036832600000000003 * fVec23[((IOTA - 85) & 127)]) + ((0.00089328000000000009 * fVec23[((IOTA - 84) & 127)]) + ((0.00072158200000000002 * fVec23[((IOTA - 83) & 127)]) + ((0.00038337700000000001 * fVec23[((IOTA - 80) & 127)]) + ((0.0016079900000000001 * fVec23[((IOTA - 79) & 127)]) + ((0.0020680200000000003 * fVec23[((IOTA - 78) & 127)]) + ((0.00028545500000000005 * fVec23[((IOTA - 77) & 127)]) + ((0.00025900400000000002 * fVec23[((IOTA - 75) & 127)]) + ((0.0061892400000000004 * fVec22[((IOTA - 13) & 127)]) + ((3.3718100000000005e-05 * fVec23[((IOTA - 63) & 127)]) + ((0.0016691100000000001 * fVec23[((IOTA - 62) & 127)]) + ((0.00089519800000000015 * fVec23[((IOTA - 60) & 127)]) + ((0.00079125400000000002 * fVec23[((IOTA - 59) & 127)]) + ((0.00099548200000000001 * fVec23[((IOTA - 58) & 127)]) + ((0.0024358800000000001 * fVec23[((IOTA - 54) & 127)]) + ((0.0056765999999999995 * fVec23[((IOTA - 53) & 127)]) + ((0.0027909200000000001 * fVec23[((IOTA - 52) & 127)]) + ((0.00077908600000000012 * fVec23[((IOTA - 51) & 127)]) + ((0.0016214599999999999 * fVec23[((IOTA - 50) & 127)]) + ((0.0042173100000000002 * fVec23[((IOTA - 48) & 127)]) + ((0.0091871399999999999 * fVec23[((IOTA - 47) & 127)]) + ((0.0013077200000000001 * fVec23[((IOTA - 46) & 127)]) + ((0.0021427500000000001 * fVec23[((IOTA - 45) & 127)]) + ((0.0022329500000000005 * fVec23[((IOTA - 44) & 127)]) + ((0.0028589500000000003 * fVec23[((IOTA - 42) & 127)]) + ((0.0070971000000000003 * fVec23[((IOTA - 41) & 127)]) + ((0.0053105900000000004 * fVec23[((IOTA - 40) & 127)]) + ((0.00053429399999999994 * fVec23[((IOTA - 36) & 127)]) + ((0.0164669 * fVec23[((IOTA - 35) & 127)]) + ((0.0037660800000000002 * fVec23[((IOTA - 33) & 127)]) + ((0.0086483100000000011 * fVec23[((IOTA - 32) & 127)]) + ((0.021576300000000003 * fVec23[((IOTA - 29) & 127)]) + ((0.021685099999999999 * fVec23[((IOTA - 28) & 127)]) + ((0.0057969700000000002 * fVec23[((IOTA - 26) & 127)]) + ((0.0057622799999999998 * fVec23[((IOTA - 24) & 127)]) + ((0.0197594 * fVec23[((IOTA - 21) & 127)]) + ((0.0121098 * fVec23[((IOTA - 20) & 127)]) + ((0.032535399999999999 * fVec23[((IOTA - 17) & 127)]) + ((0.00050339700000000005 * fVec23[((IOTA - 14) & 127)]) + ((0.00086802899999999998 * fVec23[((IOTA - 13) & 127)]) + ((0.0016583500000000001 * fVec23[((IOTA - 8) & 127)]) + ((0.00031507000000000003 * fVec23[((IOTA - 5) & 127)]) + ((0.00049461800000000005 * fVec23[((IOTA - 4) & 127)]) + ((0.00015840400000000001 * fVec23[((IOTA - 2) & 127)]) + ((2.8519800000000004e-05 * fVec23[((IOTA - 1) & 127)]) + ((4.4578800000000004e-06 * fTemp23) + ((1.1796500000000001e-05 * fVec9[((IOTA - 114) & 127)]) + ((0.0030150300000000001 * fVec23[((IOTA - 39) & 127)]) + ((0.00041981599999999999 * fVec9[((IOTA - 107) & 127)]) + ((5.3605900000000008e-05 * fVec9[((IOTA - 105) & 127)]) + ((0.00046969700000000004 * fVec9[((IOTA - 104) & 127)]) + ((0.00047704000000000008 * fVec9[((IOTA - 103) & 127)]) + ((0.00043236800000000009 * fVec9[((IOTA - 102) & 127)]) + ((0.00070973900000000003 * fVec9[((IOTA - 101) & 127)]) + ((0.000705385 * fVec9[((IOTA - 100) & 127)]) + ((0.00045614100000000008 * fVec9[((IOTA - 99) & 127)]) + ((0.00092227100000000001 * fVec9[((IOTA - 98) & 127)]) + ((0.00081300600000000002 * fVec9[((IOTA - 97) & 127)]) + ((0.000623519 * fVec9[((IOTA - 96) & 127)]) + ((0.0013659500000000001 * fVec9[((IOTA - 95) & 127)]) + ((0.00214314 * fVec9[((IOTA - 94) & 127)]) + ((0.0016777999999999999 * fVec9[((IOTA - 93) & 127)]) + ((0.00108099 * fVec9[((IOTA - 92) & 127)]) + ((6.7984800000000007e-05 * fVec9[((IOTA - 90) & 127)]) + ((0.000264467 * fVec9[((IOTA - 89) & 127)]) + ((0.00045975200000000007 * fVec9[((IOTA - 88) & 127)]) + ((0.0013345100000000001 * fVec9[((IOTA - 87) & 127)]) + ((0.0013671599999999999 * fVec9[((IOTA - 86) & 127)]) + ((0.00088433700000000001 * fVec9[((IOTA - 85) & 127)]) + ((0.0010498400000000002 * fVec9[((IOTA - 84) & 127)]) + ((0.00300031 * fVec9[((IOTA - 83) & 127)]) + ((0.00033132700000000002 * fVec9[((IOTA - 82) & 127)]) + ((2.3648600000000003e-05 * fVec9[((IOTA - 80) & 127)]) + ((0.00058793100000000009 * fVec9[((IOTA - 79) & 127)]) + ((0.0027816299999999998 * fVec9[((IOTA - 78) & 127)]) + ((0.0017765299999999999 * fVec9[((IOTA - 77) & 127)]) + ((0.00046795000000000002 * fVec9[((IOTA - 73) & 127)]) + ((0.0016152100000000002 * fVec9[((IOTA - 72) & 127)]) + ((0.058508199999999996 * fVec9[((IOTA - 22) & 127)]) + ((0.050635700000000006 * fVec9[((IOTA - 21) & 127)]) + ((0.041341200000000002 * fVec9[((IOTA - 20) & 127)]) + ((0.0214629 * fVec9[((IOTA - 19) & 127)]) + ((0.029345699999999999 * fVec9[((IOTA - 18) & 127)]) + ((0.088954799999999987 * fVec9[((IOTA - 17) & 127)]) + ((0.063658400000000004 * fVec9[((IOTA - 16) & 127)]) + ((0.078143400000000002 * fVec9[((IOTA - 15) & 127)]) + ((0.060886200000000001 * fVec9[((IOTA - 14) & 127)]) + ((0.077131900000000003 * fVec9[((IOTA - 13) & 127)]) + ((0.090551499999999993 * fVec9[((IOTA - 12) & 127)]) + ((0.0054581200000000003 * fVec9[((IOTA - 11) & 127)]) + ((0.0018110400000000001 * fVec9[((IOTA - 9) & 127)]) + ((0.00194177 * fVec9[((IOTA - 7) & 127)]) + ((0.00114689 * fVec9[((IOTA - 5) & 127)]) + ((0.00058690300000000006 * fVec9[((IOTA - 4) & 127)]) + ((0.0012299100000000001 * fVec9[((IOTA - 3) & 127)]) + ((0.00015469 * fVec9[((IOTA - 1) & 127)]) + (((((((1.8717900000000003e-05 * fVec24[((IOTA - 122) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((0.00305273 * fVec24[((IOTA - 54) & 127)]) + ((0.00325793 * fVec24[((IOTA - 53) & 127)]) + ((0.0028833999999999999 * fVec24[((IOTA - 52) & 127)]) + ((0.0036652500000000001 * fVec24[((IOTA - 51) & 127)]) + ((0.00086377000000000014 * fVec24[((IOTA - 50) & 127)]) + ((0.0012461600000000001 * fVec24[((IOTA - 55) & 127)]) + ((((((((((((((((((((((((((((((((((((((((((((((2.5118200000000003e-05 * fTemp24) + (0.00012370799999999999 * fVec24[((IOTA - 1) & 127)])) + (0.00096838400000000008 * fVec24[((IOTA - 3) & 127)])) + (0.00059949000000000005 * fVec24[((IOTA - 4) & 127)])) + (0.00076772799999999997 * fVec24[((IOTA - 5) & 127)])) + (0.00014117900000000001 * fVec24[((IOTA - 6) & 127)])) + (0.0018634200000000002 * fVec24[((IOTA - 7) & 127)])) + (0.00024957099999999997 * fVec24[((IOTA - 8) & 127)])) + (0.0011589199999999999 * fVec24[((IOTA - 9) & 127)])) + (0.00050879500000000004 * fVec24[((IOTA - 10) & 127)])) + (0.0036302599999999997 * fVec24[((IOTA - 11) & 127)])) + (0.056510400000000002 * fVec24[((IOTA - 12) & 127)])) + (0.049342300000000006 * fVec24[((IOTA - 13) & 127)])) + (0.0449074 * fVec24[((IOTA - 14) & 127)])) + (0.064749100000000004 * fVec24[((IOTA - 15) & 127)])) + (0.059606500000000007 * fVec24[((IOTA - 16) & 127)])) + (0.073495100000000008 * fVec24[((IOTA - 17) & 127)])) + (0.034514800000000005 * fVec24[((IOTA - 18) & 127)])) + (0.055772500000000003 * fVec24[((IOTA - 19) & 127)])) + (0.06596840000000001 * fVec24[((IOTA - 20) & 127)])) + (0.057809200000000005 * fVec24[((IOTA - 21) & 127)])) + (0.096895100000000012 * fVec24[((IOTA - 22) & 127)])) + (0.021260899999999999 * fVec24[((IOTA - 23) & 127)])) + (0.031746299999999998 * fVec24[((IOTA - 25) & 127)])) + (0.0528391 * fVec24[((IOTA - 26) & 127)])) + (0.030624600000000002 * fVec24[((IOTA - 27) & 127)])) + (0.0087064099999999995 * fVec24[((IOTA - 29) & 127)])) + (0.0266261 * fVec24[((IOTA - 30) & 127)])) + (0.011366300000000001 * fVec24[((IOTA - 31) & 127)])) + (0.0057082499999999998 * fVec24[((IOTA - 32) & 127)])) + (0.023001999999999998 * fVec24[((IOTA - 33) & 127)])) + (0.020023599999999999 * fVec24[((IOTA - 34) & 127)])) + (0.0044680700000000002 * fVec24[((IOTA - 35) & 127)])) + (0.0141227 * fVec24[((IOTA - 36) & 127)])) + (0.0079812000000000008 * fVec24[((IOTA - 37) & 127)])) + (0.0069301900000000001 * fVec24[((IOTA - 38) & 127)])) + (0.011589100000000001 * fVec24[((IOTA - 39) & 127)])) + (0.0064973000000000001 * fVec24[((IOTA - 40) & 127)])) + (0.0056945699999999995 * fVec24[((IOTA - 41) & 127)])) + (0.0074329900000000004 * fVec24[((IOTA - 42) & 127)])) + (0.0028857800000000001 * fVec24[((IOTA - 43) & 127)])) + (0.0079248200000000008 * fVec24[((IOTA - 44) & 127)])) + (0.015005800000000001 * fVec24[((IOTA - 45) & 127)])) + (0.00250454 * fVec24[((IOTA - 46) & 127)])) + (0.00306785 * fVec24[((IOTA - 48) & 127)])) + (0.00175234 * fVec24[((IOTA - 49) & 127)])))))))) + (0.0012118500000000002 * fVec24[((IOTA - 56) & 127)])) + (0.0050028199999999998 * fVec24[((IOTA - 57) & 127)])) + (0.0036129299999999999 * fVec24[((IOTA - 58) & 127)])) + (0.0031211899999999998 * fVec24[((IOTA - 59) & 127)])) + (0.0042250600000000001 * fVec24[((IOTA - 60) & 127)])) + (0.0035775299999999998 * fVec24[((IOTA - 61) & 127)])) + (0.0068040700000000006 * fVec24[((IOTA - 62) & 127)])) + (0.0062385100000000001 * fVec24[((IOTA - 63) & 127)])) + (0.0042152999999999999 * fVec24[((IOTA - 64) & 127)])) + (0.0027403499999999999 * fVec24[((IOTA - 65) & 127)])) + (0.0023089200000000003 * fVec24[((IOTA - 66) & 127)])) + (0.0034284599999999999 * fVec24[((IOTA - 67) & 127)])) + (0.0022559300000000002 * fVec24[((IOTA - 68) & 127)])) + (0.0014647 * fVec24[((IOTA - 69) & 127)])) + (0.00185049 * fVec24[((IOTA - 70) & 127)])) + (0.0032107500000000001 * fVec24[((IOTA - 71) & 127)])) + (0.0052356299999999998 * fVec24[((IOTA - 72) & 127)])) + (0.0030868900000000001 * fVec24[((IOTA - 73) & 127)])) + (0.0029129100000000003 * fVec24[((IOTA - 74) & 127)])) + (0.0063743100000000002 * fVec24[((IOTA - 75) & 127)])) + (0.0041945800000000007 * fVec24[((IOTA - 76) & 127)])) + (0.00082847699999999999 * fVec24[((IOTA - 77) & 127)])) + (0.0024405 * fVec24[((IOTA - 78) & 127)])) + (0.0041905200000000005 * fVec24[((IOTA - 79) & 127)])) + (0.0024365300000000001 * fVec24[((IOTA - 80) & 127)])) + (0.00056369199999999997 * fVec24[((IOTA - 82) & 127)])) + (0.0015701700000000001 * fVec24[((IOTA - 83) & 127)])) + (0.0016799500000000001 * fVec24[((IOTA - 85) & 127)])) + (0.0051757600000000006 * fVec24[((IOTA - 86) & 127)])) + (0.0037083100000000003 * fVec24[((IOTA - 87) & 127)])) + (0.00041329900000000006 * fVec24[((IOTA - 90) & 127)])) + (2.3955000000000004e-05 * fVec24[((IOTA - 93) & 127)])) + (0.0021461499999999999 * fVec24[((IOTA - 94) & 127)])) + (0.00272945 * fVec24[((IOTA - 95) & 127)])) + (0.00054874000000000004 * fVec24[((IOTA - 96) & 127)])) + (0.00058470199999999999 * fVec24[((IOTA - 98) & 127)])) + (0.00061282500000000011 * fVec24[((IOTA - 99) & 127)])) + (0.00050683400000000006 * fVec24[((IOTA - 100) & 127)])) + (0.00087727600000000008 * fVec24[((IOTA - 101) & 127)])) + (0.00154024 * fVec24[((IOTA - 102) & 127)])) + (0.00185348 * fVec24[((IOTA - 103) & 127)])) + (0.0012065399999999999 * fVec24[((IOTA - 104) & 127)])) + (0.0014059200000000002 * fVec24[((IOTA - 105) & 127)])) + (0.00136699 * fVec24[((IOTA - 106) & 127)])) + (0.0012923000000000001 * fVec24[((IOTA - 107) & 127)])) + (0.0009436510000000001 * fVec24[((IOTA - 108) & 127)])) + (0.00083451500000000008 * fVec24[((IOTA - 109) & 127)])) + (0.00098166300000000002 * fVec24[((IOTA - 110) & 127)])) + (0.00067625599999999997 * fVec24[((IOTA - 111) & 127)])) + (0.00050102000000000002 * fVec24[((IOTA - 112) & 127)])) + (0.00053358400000000003 * fVec24[((IOTA - 113) & 127)])) + (0.00054736599999999998 * fVec24[((IOTA - 114) & 127)])) + (0.00045382400000000002 * fVec24[((IOTA - 115) & 127)])) + (0.00034160000000000001 * fVec24[((IOTA - 116) & 127)])) + (0.00025855300000000002 * fVec24[((IOTA - 117) & 127)])) + (0.00016872499999999999 * fVec24[((IOTA - 118) & 127)])) + (0.00016404399999999999 * fVec24[((IOTA - 119) & 127)])) + (0.00010654600000000001 * fVec24[((IOTA - 120) & 127)])) + (4.2541300000000006e-05 * fVec24[((IOTA - 121) & 127)]))) + (2.09787e-05 * fVec24[((IOTA - 123) & 127)])) + (5.7126099999999992e-06 * fVec24[((IOTA - 124) & 127)])) + (5.0813899999999995e-06 * fVec24[((IOTA - 125) & 127)])) + (2.0625300000000001e-06 * fVec24[((IOTA - 126) & 127)])) + (3.3955100000000003e-05 * fTemp9))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.000682276 * fVec11[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((1.4376099999999999e-07 * fVec0[((IOTA - 125) & 127)]) + ((8.1478800000000007e-06 * fVec0[((IOTA - 123) & 127)]) + ((3.5912700000000006e-05 * fVec0[((IOTA - 122) & 127)]) + ((6.3930200000000007e-05 * fVec0[((IOTA - 121) & 127)]) + ((9.5050500000000014e-05 * fVec0[((IOTA - 120) & 127)]) + ((2.4284e-05 * fVec0[((IOTA - 119) & 127)]) + ((0.00017088300000000001 * fVec0[((IOTA - 117) & 127)]) + ((0.000201394 * fVec0[((IOTA - 116) & 127)]) + ((0.00020405400000000001 * fVec0[((IOTA - 115) & 127)]) + ((1.0287e-05 * fVec0[((IOTA - 114) & 127)]) + ((1.34228e-05 * fVec0[((IOTA - 111) & 127)]) + ((0.000166584 * fVec0[((IOTA - 110) & 127)]) + ((0.00053367400000000004 * fVec0[((IOTA - 108) & 127)]) + ((0.00010277700000000001 * fVec0[((IOTA - 102) & 127)]) + ((0.00011668700000000002 * fVec0[((IOTA - 98) & 127)]) + ((0.00096910600000000007 * fVec0[((IOTA - 97) & 127)]) + ((0.00064723500000000002 * fVec0[((IOTA - 96) & 127)]) + ((0.00037608900000000002 * fVec0[((IOTA - 93) & 127)]) + ((0.0107335 * fVec0[((IOTA - 32) & 127)]) + ((0.0074136300000000009 * fVec0[((IOTA - 31) & 127)]) + ((0.0046591599999999999 * fVec0[((IOTA - 29) & 127)]) + ((0.015947700000000002 * fVec0[((IOTA - 28) & 127)]) + ((0.025441699999999998 * fVec0[((IOTA - 19) & 127)]) + ((0.060181899999999997 * fVec0[((IOTA - 18) & 127)]) + ((0.0165282 * fVec0[((IOTA - 17) & 127)]) + ((0.056723499999999996 * fVec0[((IOTA - 16) & 127)]) + ((0.059615000000000001 * fVec0[((IOTA - 15) & 127)]) + ((0.0024382600000000003 * fVec0[((IOTA - 14) & 127)]) + ((0.0031914500000000002 * fVec0[((IOTA - 10) & 127)]) + ((0.0013724499999999999 * fVec0[((IOTA - 6) & 127)]) + ((3.9424800000000002e-05 * fVec0[((IOTA - 3) & 127)]) + ((0.00042801200000000002 * fVec0[((IOTA - 2) & 127)]) + ((2.8233900000000001e-05 * fVec0[((IOTA - 1) & 127)]) + ((0.008696849999999999 * fVec0[((IOTA - 37) & 127)]) + ((0.013909899999999999 * fVec0[((IOTA - 36) & 127)]) + ((0.010920000000000001 * fVec0[((IOTA - 35) & 127)]) + ((0.0067972900000000001 * fVec0[((IOTA - 34) & 127)]) + ((9.292850000000001e-05 * fVec0[((IOTA - 92) & 127)]) + ((0.0010366800000000001 * fVec0[((IOTA - 91) & 127)]) + ((0.0025010200000000001 * fVec0[((IOTA - 90) & 127)]) + ((0.000177073 * fVec0[((IOTA - 89) & 127)]) + ((0.00052927500000000006 * fVec0[((IOTA - 88) & 127)]) + ((0.0019501599999999998 * fVec0[((IOTA - 87) & 127)]) + ((0.00075808200000000009 * fVec0[((IOTA - 86) & 127)]) + ((4.6523100000000002e-05 * fVec0[((IOTA - 83) & 127)]) + ((0.00108943 * fVec0[((IOTA - 79) & 127)]) + ((0.00032896000000000005 * fVec0[((IOTA - 78) & 127)]) + ((0.0012591099999999999 * fVec0[((IOTA - 75) & 127)]) + ((8.8494799999999998e-05 * fVec0[((IOTA - 74) & 127)]) + ((0.00045897600000000005 * fVec0[((IOTA - 73) & 127)]) + ((0.00083460199999999994 * fVec0[((IOTA - 69) & 127)]) + ((0.0018953800000000001 * fVec0[((IOTA - 68) & 127)]) + ((0.00183186 * fVec0[((IOTA - 67) & 127)]) + ((0.0014255700000000001 * fVec0[((IOTA - 66) & 127)]) + ((0.000195193 * fVec0[((IOTA - 65) & 127)]) + ((0.0004124 * fVec0[((IOTA - 64) & 127)]) + ((0.00143402 * fVec0[((IOTA - 63) & 127)]) + ((0.00115475 * fVec0[((IOTA - 62) & 127)]) + ((0.00150633 * fVec0[((IOTA - 61) & 127)]) + ((0.0016002799999999999 * fVec0[((IOTA - 60) & 127)]) + ((0.0077661499999999994 * fVec0[((IOTA - 33) & 127)]) + ((0.0021894599999999998 * fVec0[((IOTA - 53) & 127)]) + ((0.0011194900000000001 * fVec0[((IOTA - 50) & 127)]) + ((0.0011283899999999999 * fVec0[((IOTA - 49) & 127)]) + ((0.0025925100000000001 * fVec0[((IOTA - 45) & 127)]) + ((0.0021516 * fVec0[((IOTA - 44) & 127)]) + ((0.005077410000000001 * fVec0[((IOTA - 41) & 127)]) + ((0.0023729100000000002 * fVec0[((IOTA - 40) & 127)]) + ((8.7939299999999991e-07 * fVec1[((IOTA - 126) & 127)]) + ((5.4800099999999999e-06 * fVec1[((IOTA - 125) & 127)]) + ((1.7206200000000001e-05 * fVec1[((IOTA - 121) & 127)]) + ((6.7243000000000007e-05 * fVec1[((IOTA - 120) & 127)]) + ((8.7255500000000012e-05 * fVec1[((IOTA - 119) & 127)]) + ((1.6624399999999998e-06 * fVec1[((IOTA - 118) & 127)]) + ((0.000144194 * fVec1[((IOTA - 116) & 127)]) + ((0.00014439500000000002 * fVec1[((IOTA - 114) & 127)]) + ((0.00015184500000000001 * fVec1[((IOTA - 113) & 127)]) + ((2.34313e-05 * fVec1[((IOTA - 109) & 127)]) + ((0.00042287999999999999 * fVec1[((IOTA - 108) & 127)]) + ((0.00030992900000000002 * fVec1[((IOTA - 107) & 127)]) + ((0.00020482300000000003 * fVec1[((IOTA - 101) & 127)]) + ((0.000300542 * fVec1[((IOTA - 100) & 127)]) + ((0.00086114700000000015 * fVec1[((IOTA - 96) & 127)]) + ((0.00020261300000000003 * fVec1[((IOTA - 95) & 127)]) + ((0.00029358500000000002 * fVec1[((IOTA - 91) & 127)]) + ((0.0041496700000000003 * fVec1[((IOTA - 48) & 127)]) + ((0.0086446200000000004 * fVec1[((IOTA - 44) & 127)]) + ((0.0062203400000000004 * fVec1[((IOTA - 43) & 127)]) + ((0.0029795799999999999 * fVec1[((IOTA - 40) & 127)]) + ((0.0012590699999999999 * fVec1[((IOTA - 38) & 127)]) + ((0.0154334 * fVec1[((IOTA - 34) & 127)]) + ((0.018936700000000001 * fVec1[((IOTA - 30) & 127)]) + ((0.0049586700000000001 * fVec1[((IOTA - 29) & 127)]) + ((0.046698000000000003 * fVec1[((IOTA - 25) & 127)]) + ((0.010134700000000002 * fVec1[((IOTA - 22) & 127)]) + ((0.013995500000000001 * fVec1[((IOTA - 21) & 127)]) + ((0.0044761200000000001 * fVec1[((IOTA - 19) & 127)]) + ((0.0098600600000000004 * fVec1[((IOTA - 18) & 127)]) + ((0.020147700000000001 * fVec1[((IOTA - 15) & 127)]) + ((0.00239529 * fVec1[((IOTA - 12) & 127)]) + ((0.00075913900000000004 * fVec1[((IOTA - 11) & 127)]) + ((0.00060334500000000003 * fVec1[((IOTA - 9) & 127)]) + ((0.00095772900000000005 * fVec1[((IOTA - 6) & 127)]) + ((0.00013332900000000001 * fVec1[((IOTA - 3) & 127)]) + ((0.00011180900000000001 * fVec1[((IOTA - 2) & 127)]) + ((7.1409999999999997e-07 * fTemp1) + ((0.0042629599999999997 * fVec1[((IOTA - 53) & 127)]) + ((0.00357925 * fVec1[((IOTA - 52) & 127)]) + ((0.00121156 * fVec1[((IOTA - 49) & 127)]) + ((0.001897 * fVec1[((IOTA - 90) & 127)]) + ((0.00011857899999999999 * fVec1[((IOTA - 89) & 127)]) + ((0.00093195400000000003 * fVec1[((IOTA - 87) & 127)]) + ((0.00086698299999999999 * fVec1[((IOTA - 86) & 127)]) + ((0.00190189 * fVec1[((IOTA - 83) & 127)]) + ((0.0015840700000000001 * fVec1[((IOTA - 82) & 127)]) + ((0.00062755200000000008 * fVec1[((IOTA - 81) & 127)]) + ((0.0021193000000000002 * fVec1[((IOTA - 78) & 127)]) + ((0.0025810200000000003 * fVec1[((IOTA - 77) & 127)]) + ((2.1180200000000001e-05 * fVec1[((IOTA - 76) & 127)]) + ((0.00014521 * fVec1[((IOTA - 75) & 127)]) + ((9.0364000000000018e-05 * fVec1[((IOTA - 72) & 127)]) + ((0.00108413 * fVec1[((IOTA - 71) & 127)]) + ((0.000361035 * fVec1[((IOTA - 70) & 127)]) + ((0.00084564900000000008 * fVec1[((IOTA - 67) & 127)]) + ((0.00059175800000000006 * fVec1[((IOTA - 63) & 127)]) + ((0.00054578800000000007 * fVec1[((IOTA - 62) & 127)]) + ((0.00023921600000000002 * fVec1[((IOTA - 59) & 127)]) + ((0.00085691700000000001 * fVec1[((IOTA - 58) & 127)]) + ((0.00016994800000000001 * fVec1[((IOTA - 57) & 127)]) + ((8.2977300000000009e-05 * fVec1[((IOTA - 56) & 127)]) + ((1.00244e-05 * fVec2[((IOTA - 124) & 127)]) + ((2.4757200000000001e-05 * fVec2[((IOTA - 123) & 127)]) + ((2.0122300000000002e-05 * fVec2[((IOTA - 120) & 127)]) + ((7.8952500000000007e-05 * fVec2[((IOTA - 119) & 127)]) + ((5.0735200000000009e-05 * fVec2[((IOTA - 118) & 127)]) + ((2.5488499999999997e-06 * fVec2[((IOTA - 117) & 127)]) + ((5.9800600000000005e-05 * fVec2[((IOTA - 116) & 127)]) + ((0.000105037 * fVec2[((IOTA - 115) & 127)]) + ((0.00025922800000000002 * fVec2[((IOTA - 114) & 127)]) + ((0.00015691000000000001 * fVec2[((IOTA - 113) & 127)]) + ((0.00026635300000000004 * fVec2[((IOTA - 109) & 127)]) + ((0.00011445900000000001 * fVec2[((IOTA - 108) & 127)]) + ((0.000136272 * fVec2[((IOTA - 104) & 127)]) + ((0.00016330100000000003 * fVec2[((IOTA - 96) & 127)]) + ((7.4505200000000006e-05 * fVec2[((IOTA - 95) & 127)]) + ((0.00031864099999999999 * fVec2[((IOTA - 94) & 127)]) + ((0.0011613700000000001 * fVec2[((IOTA - 93) & 127)]) + ((0.00081929099999999999 * fVec2[((IOTA - 54) & 127)]) + ((0.000429732 * fVec2[((IOTA - 53) & 127)]) + ((0.0050749500000000008 * fVec2[((IOTA - 41) & 127)]) + ((0.0062304400000000003 * fVec2[((IOTA - 40) & 127)]) + ((0.0051450200000000001 * fVec2[((IOTA - 39) & 127)]) + ((0.0054617399999999997 * fVec2[((IOTA - 38) & 127)]) + ((0.013412900000000002 * fVec2[((IOTA - 37) & 127)]) + ((0.0083610900000000016 * fVec2[((IOTA - 36) & 127)]) + ((0.032106300000000004 * fVec2[((IOTA - 35) & 127)]) + ((0.013874800000000001 * fVec2[((IOTA - 34) & 127)]) + ((0.015102899999999999 * fVec2[((IOTA - 31) & 127)]) + ((0.00959986 * fVec2[((IOTA - 30) & 127)]) + ((0.0127315 * fVec2[((IOTA - 27) & 127)]) + ((0.0078796999999999999 * fVec2[((IOTA - 26) & 127)]) + ((0.0209115 * fVec2[((IOTA - 20) & 127)]) + ((0.024721300000000002 * fVec2[((IOTA - 19) & 127)]) + ((0.033460299999999998 * fVec2[((IOTA - 17) & 127)]) + ((0.019325600000000002 * fVec2[((IOTA - 16) & 127)]) + ((0.048091999999999996 * fVec2[((IOTA - 15) & 127)]) + ((0.023035199999999999 * fVec2[((IOTA - 14) & 127)]) + ((0.0040449700000000002 * fVec2[((IOTA - 10) & 127)]) + ((0.0018601700000000002 * fVec2[((IOTA - 8) & 127)]) + ((0.00110994 * fVec2[((IOTA - 6) & 127)]) + ((0.000373285 * fVec2[((IOTA - 2) & 127)]) + ((4.2016200000000006e-05 * fVec2[((IOTA - 1) & 127)]) + ((0.0036430799999999999 * fVec2[((IOTA - 61) & 127)]) + ((0.00123704 * fVec2[((IOTA - 60) & 127)]) + ((0.0020936499999999999 * fVec2[((IOTA - 92) & 127)]) + ((0.00292779 * fVec2[((IOTA - 91) & 127)]) + ((0.00011911400000000001 * fVec2[((IOTA - 90) & 127)]) + ((0.00026815200000000002 * fVec2[((IOTA - 88) & 127)]) + ((0.0022168700000000001 * fVec2[((IOTA - 85) & 127)]) + ((0.00236279 * fVec2[((IOTA - 84) & 127)]) + ((0.00133927 * fVec2[((IOTA - 83) & 127)]) + ((0.0036129700000000001 * fVec2[((IOTA - 82) & 127)]) + ((0.00258392 * fVec2[((IOTA - 81) & 127)]) + ((0.00076553699999999994 * fVec2[((IOTA - 80) & 127)]) + ((0.00052649700000000001 * fVec2[((IOTA - 77) & 127)]) + ((0.00065805200000000001 * fVec2[((IOTA - 73) & 127)]) + ((0.0019009700000000001 * fVec2[((IOTA - 72) & 127)]) + ((0.00040585399999999998 * fVec2[((IOTA - 68) & 127)]) + ((0.00056621899999999997 * fVec2[((IOTA - 67) & 127)]) + ((0.00100438 * fVec2[((IOTA - 65) & 127)]) + ((0.00106258 * fVec2[((IOTA - 64) & 127)]) + ((0.00075541200000000001 * fVec2[((IOTA - 63) & 127)]) + ((0.0041593900000000007 * fVec2[((IOTA - 62) & 127)]) + ((4.9133300000000002e-07 * fVec3[((IOTA - 126) & 127)]) + ((1.3759399999999999e-06 * fVec3[((IOTA - 125) & 127)]) + ((1.05587e-07 * fVec3[((IOTA - 124) & 127)]) + ((4.21833e-05 * fVec3[((IOTA - 120) & 127)]) + ((1.23038e-06 * fVec3[((IOTA - 119) & 127)]) + ((0.00012532099999999999 * fVec3[((IOTA - 115) & 127)]) + ((9.7130800000000002e-05 * fVec3[((IOTA - 114) & 127)]) + ((0.00033839299999999998 * fVec3[((IOTA - 110) & 127)]) + ((0.00029385700000000002 * fVec3[((IOTA - 106) & 127)]) + ((0.00033615499999999998 * fVec3[((IOTA - 105) & 127)]) + ((0.00047366300000000004 * fVec3[((IOTA - 104) & 127)]) + ((0.00063192000000000012 * fVec3[((IOTA - 100) & 127)]) + ((0.00026227100000000001 * fVec3[((IOTA - 99) & 127)]) + ((0.00090633300000000005 * fVec3[((IOTA - 92) & 127)]) + ((0.00112509 * fVec3[((IOTA - 91) & 127)]) + ((0.00062542600000000011 * fVec3[((IOTA - 90) & 127)]) + ((0.0013347700000000001 * fVec3[((IOTA - 51) & 127)]) + ((0.00071260200000000001 * fVec3[((IOTA - 48) & 127)]) + ((0.000302236 * fVec3[((IOTA - 47) & 127)]) + ((0.00032389000000000002 * fVec3[((IOTA - 45) & 127)]) + ((0.0039772100000000001 * fVec3[((IOTA - 44) & 127)]) + ((0.0039344899999999997 * fVec3[((IOTA - 39) & 127)]) + ((0.0028605000000000002 * fVec3[((IOTA - 37) & 127)]) + ((0.0056457300000000007 * fVec3[((IOTA - 36) & 127)]) + ((0.013276099999999999 * fVec3[((IOTA - 33) & 127)]) + ((0.0069491600000000002 * fVec3[((IOTA - 32) & 127)]) + ((0.0046345700000000002 * fVec3[((IOTA - 29) & 127)]) + ((0.0063826300000000002 * fVec3[((IOTA - 28) & 127)]) + ((0.0061617600000000005 * fVec3[((IOTA - 26) & 127)]) + ((0.0090629600000000001 * fVec3[((IOTA - 25) & 127)]) + ((0.016456200000000001 * fVec3[((IOTA - 24) & 127)]) + ((0.030671 * fVec3[((IOTA - 21) & 127)]) + ((0.0035630700000000002 * fVec3[((IOTA - 18) & 127)]) + ((0.0074771200000000003 * fVec3[((IOTA - 15) & 127)]) + ((0.00190957 * fVec3[((IOTA - 12) & 127)]) + ((0.00021257400000000001 * fVec3[((IOTA - 9) & 127)]) + ((0.00024266000000000001 * fVec3[((IOTA - 6) & 127)]) + ((2.0019800000000001e-05 * fVec3[((IOTA - 3) & 127)]) + ((0.00011068 * fVec3[((IOTA - 2) & 127)]) + ((5.2308799999999996e-06 * fTemp3) + ((0.0012169300000000002 * fVec3[((IOTA - 86) & 127)]) + ((0.00184891 * fVec3[((IOTA - 85) & 127)]) + ((6.1678400000000002e-05 * fVec3[((IOTA - 84) & 127)]) + ((0.00028041100000000005 * fVec3[((IOTA - 83) & 127)]) + ((0.00021002299999999999 * fVec3[((IOTA - 82) & 127)]) + ((7.4171300000000013e-05 * fVec3[((IOTA - 81) & 127)]) + ((2.6719199999999999e-06 * fVec3[((IOTA - 78) & 127)]) + ((0.0027959399999999998 * fVec3[((IOTA - 73) & 127)]) + ((0.0025147900000000003 * fVec3[((IOTA - 72) & 127)]) + ((0.0026507900000000001 * fVec3[((IOTA - 68) & 127)]) + ((0.0024592200000000002 * fVec3[((IOTA - 67) & 127)]) + ((0.00046335100000000003 * fVec3[((IOTA - 66) & 127)]) + ((0.00364205 * fVec3[((IOTA - 63) & 127)]) + ((0.0030474500000000002 * fVec3[((IOTA - 62) & 127)]) + ((8.9896500000000002e-05 * fVec3[((IOTA - 60) & 127)]) + ((0.0020873300000000001 * fVec3[((IOTA - 59) & 127)]) + ((0.00024737200000000004 * fVec3[((IOTA - 58) & 127)]) + ((0.00011431100000000001 * fVec3[((IOTA - 57) & 127)]) + ((0.0012573 * fVec3[((IOTA - 56) & 127)]) + ((1.4991799999999998e-06 * fVec4[((IOTA - 125) & 127)]) + ((4.4237300000000001e-06 * fVec4[((IOTA - 124) & 127)]) + ((2.5857400000000001e-05 * fVec4[((IOTA - 123) & 127)]) + ((4.8271399999999998e-08 * fVec4[((IOTA - 122) & 127)]) + ((0.00011086600000000001 * fVec4[((IOTA - 119) & 127)]) + ((0.00015923000000000001 * fVec4[((IOTA - 118) & 127)]) + ((0.00011133200000000001 * fVec4[((IOTA - 117) & 127)]) + ((9.1368399999999998e-05 * fVec4[((IOTA - 116) & 127)]) + ((6.9587500000000004e-05 * fVec4[((IOTA - 115) & 127)]) + ((7.9531300000000002e-05 * fVec4[((IOTA - 114) & 127)]) + ((0.000108869 * fVec4[((IOTA - 112) & 127)]) + ((5.3145400000000008e-05 * fVec4[((IOTA - 111) & 127)]) + ((0.00020724900000000003 * fVec4[((IOTA - 110) & 127)]) + ((0.000477114 * fVec4[((IOTA - 109) & 127)]) + ((0.00047335500000000001 * fVec4[((IOTA - 108) & 127)]) + ((0.00010935600000000001 * fVec4[((IOTA - 107) & 127)]) + ((0.00010925100000000001 * fVec4[((IOTA - 106) & 127)]) + ((0.00010986800000000001 * fVec4[((IOTA - 105) & 127)]) + ((0.00016840900000000001 * fVec4[((IOTA - 103) & 127)]) + ((9.6088500000000014e-05 * fVec4[((IOTA - 100) & 127)]) + ((0.00035324200000000003 * fVec4[((IOTA - 99) & 127)]) + ((0.00022054700000000003 * fVec4[((IOTA - 98) & 127)]) + ((7.9619000000000011e-05 * fVec4[((IOTA - 92) & 127)]) + ((0.00074820700000000008 * fVec4[((IOTA - 88) & 127)]) + ((0.00070991400000000007 * fVec4[((IOTA - 87) & 127)]) + ((0.00011130500000000002 * fVec4[((IOTA - 86) & 127)]) + ((0.0015851900000000002 * fVec4[((IOTA - 83) & 127)]) + ((9.2806400000000006e-05 * fVec4[((IOTA - 82) & 127)]) + ((0.00087703300000000004 * fVec4[((IOTA - 79) & 127)]) + ((0.00051777699999999997 * fVec4[((IOTA - 78) & 127)]) + ((0.00056143600000000001 * fVec4[((IOTA - 75) & 127)]) + ((0.0023187400000000001 * fVec4[((IOTA - 74) & 127)]) + ((0.0031101499999999999 * fVec4[((IOTA - 73) & 127)]) + ((6.6465099999999999e-07 * fVec4[((IOTA - 72) & 127)]) + ((0.0012871 * (fVec13[((IOTA - 71) & 127)] + fVec6[((IOTA - 99) & 127)])) + ((4.5172800000000002e-06 * fVec5[((IOTA - 125) & 127)]) + ((0.012665200000000001 * fVec4[((IOTA - 15) & 127)]) + ((0.0015061500000000002 * fVec4[((IOTA - 10) & 127)]) + ((0.00144769 * fVec4[((IOTA - 8) & 127)]) + ((2.8000400000000004e-05 * fVec4[((IOTA - 4) & 127)]) + ((0.00010043500000000001 * fVec4[((IOTA - 2) & 127)]) + ((5.0228400000000009e-05 * fVec4[((IOTA - 1) & 127)]) + ((1.0378400000000002e-05 * fTemp4) + ((0.00063152 * fVec4[((IOTA - 68) & 127)]) + ((0.00098431600000000005 * fVec4[((IOTA - 67) & 127)]) + ((0.0038434100000000002 * fVec4[((IOTA - 61) & 127)]) + ((0.0041785800000000003 * fVec4[((IOTA - 60) & 127)]) + ((8.6446799999999994e-05 * fVec4[((IOTA - 57) & 127)]) + ((0.00041971200000000004 * fVec4[((IOTA - 56) & 127)]) + ((0.00029838900000000003 * fVec4[((IOTA - 53) & 127)]) + ((0.0023647999999999998 * fVec4[((IOTA - 52) & 127)]) + ((0.0017983599999999999 * fVec4[((IOTA - 51) & 127)]) + ((0.0016364700000000001 * fVec4[((IOTA - 50) & 127)]) + ((0.0019431000000000001 * fVec4[((IOTA - 49) & 127)]) + ((0.00046590600000000003 * fVec4[((IOTA - 46) & 127)]) + ((0.0049145100000000004 * fVec4[((IOTA - 45) & 127)]) + ((0.0057126900000000003 * fVec4[((IOTA - 42) & 127)]) + ((0.0036100900000000003 * fVec4[((IOTA - 38) & 127)]) + ((0.0049432400000000007 * fVec4[((IOTA - 37) & 127)]) + ((0.0021107399999999998 * fVec4[((IOTA - 36) & 127)]) + ((0.0158944 * fVec4[((IOTA - 34) & 127)]) + ((0.012282700000000001 * fVec4[((IOTA - 33) & 127)]) + ((0.0089261400000000008 * fVec4[((IOTA - 32) & 127)]) + ((0.010118799999999999 * fVec4[((IOTA - 31) & 127)]) + ((0.0067020700000000001 * fVec4[((IOTA - 25) & 127)]) + ((0.0038775400000000005 * fVec4[((IOTA - 24) & 127)]) + ((0.0083579500000000011 * fVec4[((IOTA - 18) & 127)]) + ((0.0467927 * fVec4[((IOTA - 17) & 127)]) + ((0.041578400000000001 * fVec4[((IOTA - 16) & 127)]) + ((0.000117855 * fVec5[((IOTA - 117) & 127)]) + ((8.6228999999999984e-06 * fVec5[((IOTA - 121) & 127)]) + ((2.5498900000000001e-05 * fVec5[((IOTA - 119) & 127)]) + ((1.7197000000000002e-05 * fVec5[((IOTA - 120) & 127)]) + ((8.5473100000000007e-05 * fVec5[((IOTA - 118) & 127)]) + ((7.3769200000000005e-05 * fVec5[((IOTA - 116) & 127)]) + ((0.00010326400000000001 * fVec5[((IOTA - 115) & 127)]) + ((0.00014698200000000001 * fVec5[((IOTA - 114) & 127)]) + ((0.0105468 * (fVec13[((IOTA - 30) & 127)] - fVec7[((IOTA - 36) & 127)])) + ((0.034808400000000003 * fVec5[((IOTA - 14) & 127)]) + ((0.00097944700000000004 * fVec5[((IOTA - 13) & 127)]) + ((0.00034398499999999999 * fVec5[((IOTA - 11) & 127)]) + ((0.000116408 * fVec5[((IOTA - 113) & 127)]) + ((0.000116085 * fVec5[((IOTA - 112) & 127)]) + ((0.00012234100000000001 * fVec5[((IOTA - 111) & 127)]) + ((0.000291422 * fVec5[((IOTA - 110) & 127)]) + ((0.000101234 * fVec5[((IOTA - 109) & 127)]) + ((7.1704400000000004e-05 * fVec5[((IOTA - 108) & 127)]) + ((0.00017227900000000001 * fVec5[((IOTA - 106) & 127)]) + ((3.7385200000000002e-05 * fVec5[((IOTA - 105) & 127)]) + ((3.3625200000000005e-05 * fVec5[((IOTA - 101) & 127)]) + ((0.00036650100000000003 * fVec5[((IOTA - 87) & 127)]) + ((0.00082134800000000007 * fVec5[((IOTA - 86) & 127)]) + ((0.00047874499999999998 * fVec5[((IOTA - 81) & 127)]) + ((0.00093322400000000008 * fVec5[((IOTA - 80) & 127)]) + ((0.00072557100000000005 * fVec5[((IOTA - 79) & 127)]) + ((0.00086647800000000006 * fVec5[((IOTA - 77) & 127)]) + ((0.0024717699999999999 * fVec5[((IOTA - 76) & 127)]) + ((0.0011910600000000001 * fVec5[((IOTA - 75) & 127)]) + ((0.0017428699999999999 * fVec5[((IOTA - 74) & 127)]) + ((0.00125607 * fVec5[((IOTA - 73) & 127)]) + ((0.0028972500000000001 * fVec5[((IOTA - 68) & 127)]) + ((0.0039274399999999999 * fVec5[((IOTA - 67) & 127)]) + ((0.0012032799999999999 * fVec5[((IOTA - 66) & 127)]) + ((0.00069639100000000009 * fVec5[((IOTA - 65) & 127)]) + ((0.00067604500000000001 * fVec5[((IOTA - 62) & 127)]) + ((0.0020319800000000001 * fVec5[((IOTA - 61) & 127)]) + ((0.00030454800000000003 * fVec5[((IOTA - 60) & 127)]) + ((0.0027795100000000002 * fVec5[((IOTA - 56) & 127)]) + ((0.0040064599999999999 * fVec5[((IOTA - 55) & 127)]) + ((0.000117291 * fVec5[((IOTA - 52) & 127)]) + ((0.00024379400000000003 * fVec5[((IOTA - 51) & 127)]) + ((0.0021186500000000001 * fVec5[((IOTA - 49) & 127)]) + ((0.0035641600000000002 * fVec5[((IOTA - 48) & 127)]) + ((0.0032654700000000004 * fVec5[((IOTA - 47) & 127)]) + ((0.0054786700000000006 * fVec5[((IOTA - 43) & 127)]) + ((0.0027334600000000001 * fVec5[((IOTA - 42) & 127)]) + ((0.00072778400000000009 * fVec5[((IOTA - 39) & 127)]) + ((0.00847557 * fVec5[((IOTA - 38) & 127)]) + ((0.00445628 * fVec5[((IOTA - 37) & 127)]) + ((0.00091977900000000002 * fVec5[((IOTA - 36) & 127)]) + ((0.0015551999999999999 * fVec5[((IOTA - 35) & 127)]) + ((0.00075433100000000001 * fVec5[((IOTA - 34) & 127)]) + ((0.0018697900000000001 * fVec5[((IOTA - 33) & 127)]) + ((0.012971699999999999 * fVec5[((IOTA - 30) & 127)]) + ((0.0192195 * fVec5[((IOTA - 29) & 127)]) + ((0.0029063700000000001 * fVec5[((IOTA - 28) & 127)]) + ((0.00023681100000000002 * fVec5[((IOTA - 2) & 127)]) + ((1.9032200000000001e-05 * fVec5[((IOTA - 1) & 127)]) + ((0.00042503099999999998 * fVec5[((IOTA - 6) & 127)]) + ((0.00057029400000000005 * fVec5[((IOTA - 5) & 127)]) + ((0.053502300000000003 * fVec5[((IOTA - 24) & 127)]) + ((0.0063730200000000001 * fVec5[((IOTA - 23) & 127)]) + ((0.018845400000000002 * fVec5[((IOTA - 20) & 127)]) + ((0.040491700000000005 * fVec5[((IOTA - 19) & 127)]) + ((0.0282654 * fVec5[((IOTA - 18) & 127)]) + ((5.0096100000000001e-06 * fVec6[((IOTA - 124) & 127)]) + ((1.3386700000000002e-05 * fVec6[((IOTA - 123) & 127)]) + ((3.2443100000000001e-05 * fVec6[((IOTA - 122) & 127)]) + ((1.76768e-05 * fVec6[((IOTA - 119) & 127)]) + ((8.9263899999999998e-05 * fVec6[((IOTA - 118) & 127)]) + ((2.6721800000000002e-05 * fVec6[((IOTA - 117) & 127)]) + ((8.7643399999999995e-06 * fVec6[((IOTA - 115) & 127)]) + ((3.1741700000000001e-05 * fVec6[((IOTA - 114) & 127)]) + ((5.6021400000000005e-05 * fVec6[((IOTA - 113) & 127)]) + ((5.941340000000001e-05 * fVec6[((IOTA - 109) & 127)]) + ((0.00014551400000000002 * fVec6[((IOTA - 104) & 127)]) + ((0.00041534500000000007 * fVec6[((IOTA - 100) & 127)]) + ((0.00081397000000000001 * fVec6[((IOTA - 98) & 127)]) + ((7.5796499999999995e-06 * fVec6[((IOTA - 96) & 127)]) + ((0.00142954 * fVec6[((IOTA - 95) & 127)]) + ((0.00067267800000000001 * fVec6[((IOTA - 92) & 127)]) + ((0.0012544500000000001 * fVec6[((IOTA - 91) & 127)]) + ((0.0026229399999999998 * fVec6[((IOTA - 87) & 127)]) + ((0.0012076299999999999 * fVec6[((IOTA - 86) & 127)]) + ((1.6765800000000001e-05 * fVec6[((IOTA - 83) & 127)]) + ((0.00011319699999999999 * fVec6[((IOTA - 82) & 127)]) + ((0.0013973899999999999 * fVec6[((IOTA - 78) & 127)]) + ((0.0037434500000000002 * fVec6[((IOTA - 77) & 127)]) + ((0.00103739 * fVec6[((IOTA - 76) & 127)]) + ((0.00042959699999999999 * fVec6[((IOTA - 73) & 127)]) + ((0.00143001 * fVec6[((IOTA - 72) & 127)]) + ((0.0028124000000000001 * fVec6[((IOTA - 71) & 127)]) + ((0.00084889100000000006 * fVec6[((IOTA - 70) & 127)]) + ((0.00046814600000000007 * fVec6[((IOTA - 69) & 127)]) + ((8.3187000000000002e-05 * fVec6[((IOTA - 66) & 127)]) + ((0.00060605399999999997 * fVec6[((IOTA - 65) & 127)]) + ((0.00097613699999999997 * fVec6[((IOTA - 64) & 127)]) + ((0.00086599699999999997 * fVec6[((IOTA - 63) & 127)]) + ((0.0017292799999999999 * fVec6[((IOTA - 60) & 127)]) + ((0.0022722300000000001 * fVec6[((IOTA - 49) & 127)]) + ((0.0068404800000000003 * fVec6[((IOTA - 48) & 127)]) + ((0.00110702 * fVec6[((IOTA - 47) & 127)]) + ((0.00757838 * fVec6[((IOTA - 44) & 127)]) + ((0.0057198600000000002 * fVec6[((IOTA - 43) & 127)]) + ((0.0029618999999999999 * fVec6[((IOTA - 40) & 127)]) + ((0.0140448 * fVec6[((IOTA - 35) & 127)]) + ((0.0041036900000000001 * fVec6[((IOTA - 34) & 127)]) + ((0.013145800000000001 * fVec6[((IOTA - 31) & 127)]) + ((0.019920400000000001 * fVec6[((IOTA - 30) & 127)]) + ((0.0094601700000000004 * fVec6[((IOTA - 26) & 127)]) + ((0.056288999999999999 * fVec6[((IOTA - 25) & 127)]) + ((0.0019233 * fVec6[((IOTA - 24) & 127)]) + ((0.0252123 * fVec6[((IOTA - 21) & 127)]) + ((0.0254109 * fVec6[((IOTA - 20) & 127)]) + ((0.0034647700000000003 * fVec6[((IOTA - 18) & 127)]) + ((0.00594964 * fVec6[((IOTA - 17) & 127)]) + ((0.0161029 * fVec6[((IOTA - 16) & 127)]) + ((0.023348800000000003 * fVec6[((IOTA - 15) & 127)]) + ((0.0063743300000000001 * fVec6[((IOTA - 13) & 127)]) + ((0.0015232900000000001 * fVec6[((IOTA - 8) & 127)]) + ((0.00059566400000000009 * fVec6[((IOTA - 6) & 127)]) + ((0.00061765500000000005 * fVec6[((IOTA - 4) & 127)]) + ((0.00018629400000000002 * fVec6[((IOTA - 2) & 127)]) + ((1.14319e-05 * fTemp6) + ((5.4508599999999995e-06 * fVec7[((IOTA - 124) & 127)]) + ((2.3097900000000001e-05 * fVec7[((IOTA - 120) & 127)]) + ((9.5084400000000014e-05 * fVec7[((IOTA - 119) & 127)]) + ((4.7070600000000003e-05 * fVec7[((IOTA - 118) & 127)]) + ((1.9151600000000001e-05 * fVec7[((IOTA - 115) & 127)]) + ((0.000213902 * fVec7[((IOTA - 114) & 127)]) + ((4.3982700000000002e-05 * fVec7[((IOTA - 113) & 127)]) + ((8.4208499999999999e-05 * fVec7[((IOTA - 112) & 127)]) + ((0.000313663 * fVec7[((IOTA - 111) & 127)]) + ((0.000107876 * fVec7[((IOTA - 107) & 127)]) + ((0.00014932900000000002 * fVec7[((IOTA - 106) & 127)]) + ((0.0015988 * fVec7[((IOTA - 88) & 127)]) + ((0.0012366600000000001 * fVec7[((IOTA - 87) & 127)]) + ((0.0011569899999999999 * fVec7[((IOTA - 82) & 127)]) + ((0.0022012100000000003 * fVec7[((IOTA - 81) & 127)]) + ((0.00012976 * fVec7[((IOTA - 80) & 127)]) + ((0.0010910800000000001 * fVec7[((IOTA - 72) & 127)]) + ((8.9774699999999996e-06 * fVec7[((IOTA - 71) & 127)]) + ((0.0018817999999999999 * fVec7[((IOTA - 70) & 127)]) + ((0.0061321300000000004 * fVec7[((IOTA - 69) & 127)]) + ((0.00048287699999999999 * fVec7[((IOTA - 59) & 127)]) + ((0.0018291900000000001 * fVec7[((IOTA - 58) & 127)]) + ((0.0024737499999999998 * fVec7[((IOTA - 57) & 127)]) + ((0.0019971400000000001 * fVec7[((IOTA - 56) & 127)]) + ((0.00122024 * fVec7[((IOTA - 55) & 127)]) + ((0.0039290200000000001 * fVec7[((IOTA - 54) & 127)]) + ((0.0016456699999999999 * fVec7[((IOTA - 53) & 127)]) + ((0.00022187000000000002 * fVec7[((IOTA - 52) & 127)]) + ((0.0013776999999999999 * fVec7[((IOTA - 46) & 127)]) + ((0.00103326 * fVec7[((IOTA - 45) & 127)]) + ((0.0032352400000000003 * fVec7[((IOTA - 44) & 127)]) + ((0.0038521000000000002 * fVec7[((IOTA - 43) & 127)]) + ((0.010049600000000001 * fVec7[((IOTA - 40) & 127)]) + ((0.0061998300000000008 * fVec7[((IOTA - 39) & 127)]) + ((0.00020778699999999999 * fVec7[((IOTA - 38) & 127)]) + ((0.014879400000000001 * fVec7[((IOTA - 34) & 127)]) + ((0.00030624 * fVec7[((IOTA - 33) & 127)]) + ((0.0023475600000000003 * fVec7[((IOTA - 31) & 127)]) + ((0.0038550100000000003 * fVec7[((IOTA - 29) & 127)]) + ((0.0096461900000000007 * fVec7[((IOTA - 28) & 127)]) + ((0.0037454299999999997 * fVec7[((IOTA - 25) & 127)]) + ((0.0237126 * fVec7[((IOTA - 20) & 127)]) + ((0.017540800000000002 * fVec7[((IOTA - 19) & 127)]) + ((0.00192268 * fVec7[((IOTA - 17) & 127)]) + ((0.030162100000000001 * fVec7[((IOTA - 16) & 127)]) + ((0.0031064899999999999 * fVec7[((IOTA - 14) & 127)]) + ((0.0034641700000000004 * fVec7[((IOTA - 13) & 127)]) + ((0.00109278 * fVec7[((IOTA - 11) & 127)]) + ((0.00052972100000000003 * fVec7[((IOTA - 8) & 127)]) + ((0.000247311 * fVec7[((IOTA - 7) & 127)]) + ((0.00027904300000000003 * fVec7[((IOTA - 4) & 127)]) + ((0.00051962299999999998 * fVec7[((IOTA - 92) & 127)]) + ((0.00049481000000000004 * fVec7[((IOTA - 102) & 127)]) + ((0.00013896900000000002 * fVec7[((IOTA - 99) & 127)]) + ((0.000204095 * fVec7[((IOTA - 94) & 127)]) + ((0.0014644900000000001 * fVec7[((IOTA - 93) & 127)]) + ((8.3471200000000004e-08 * fVec8[((IOTA - 126) & 127)]) + ((9.3807100000000005e-06 * fVec8[((IOTA - 122) & 127)]) + ((6.6623900000000011e-05 * fVec8[((IOTA - 119) & 127)]) + ((6.1216400000000006e-05 * fVec8[((IOTA - 118) & 127)]) + ((6.7144700000000015e-05 * fVec8[((IOTA - 115) & 127)]) + ((0.000206061 * fVec8[((IOTA - 114) & 127)]) + ((0.00013795600000000001 * fVec8[((IOTA - 113) & 127)]) + ((4.38894e-05 * fVec8[((IOTA - 110) & 127)]) + ((0.00041225500000000004 * fVec8[((IOTA - 109) & 127)]) + ((0.000227209 * fVec8[((IOTA - 108) & 127)]) + ((0.00066430000000000005 * fVec8[((IOTA - 102) & 127)]) + ((0.00093781400000000003 * fVec8[((IOTA - 101) & 127)]) + ((0.00076159100000000005 * fVec8[((IOTA - 100) & 127)]) + ((0.00054271000000000007 * fVec8[((IOTA - 97) & 127)]) + ((0.00084564100000000006 * fVec8[((IOTA - 96) & 127)]) + ((0.000247972 * fVec8[((IOTA - 92) & 127)]) + ((0.0013567100000000001 * fVec8[((IOTA - 91) & 127)]) + ((0.00179301 * fVec8[((IOTA - 90) & 127)]) + ((0.00014971799999999999 * fVec8[((IOTA - 89) & 127)]) + ((0.0013197300000000001 * fVec8[((IOTA - 88) & 127)]) + ((0.00037485000000000003 * fVec8[((IOTA - 87) & 127)]) + ((0.00075088100000000012 * fVec8[((IOTA - 83) & 127)]) + ((0.000650408 * fVec8[((IOTA - 82) & 127)]) + ((4.1789000000000003e-05 * fVec8[((IOTA - 81) & 127)]) + ((0.00031279000000000002 * fVec8[((IOTA - 79) & 127)]) + ((0.00085027700000000009 * fVec8[((IOTA - 78) & 127)]) + ((0.0010684900000000001 * fVec8[((IOTA - 74) & 127)]) + ((0.00076376900000000008 * fVec8[((IOTA - 73) & 127)]) + ((0.0021818499999999999 * fVec8[((IOTA - 41) & 127)]) + ((0.013751599999999999 * fVec8[((IOTA - 38) & 127)]) + ((0.014187399999999999 * fVec8[((IOTA - 37) & 127)]) + ((0.0066966600000000001 * fVec8[((IOTA - 33) & 127)]) + ((0.0104107 * fVec8[((IOTA - 32) & 127)]) + ((0.015792199999999999 * fVec8[((IOTA - 29) & 127)]) + ((0.022154199999999999 * fVec8[((IOTA - 28) & 127)]) + ((0.0038254399999999998 * fVec8[((IOTA - 27) & 127)]) + ((0.028354799999999999 * fVec8[((IOTA - 25) & 127)]) + ((0.022252200000000003 * fVec8[((IOTA - 24) & 127)]) + ((0.0121111 * fVec8[((IOTA - 22) & 127)]) + ((0.032235100000000003 * fVec8[((IOTA - 18) & 127)]) + ((0.026861600000000003 * fVec8[((IOTA - 15) & 127)]) + ((0.017621899999999999 * fVec8[((IOTA - 14) & 127)]) + ((0.019559200000000002 * fVec8[((IOTA - 13) & 127)]) + ((0.0067998500000000005 * fVec8[((IOTA - 10) & 127)]) + ((0.00264073 * fVec8[((IOTA - 8) & 127)]) + ((0.0024590700000000003 * fVec8[((IOTA - 6) & 127)]) + ((0.00038372900000000003 * fVec8[((IOTA - 4) & 127)]) + ((0.000334903 * fVec8[((IOTA - 2) & 127)]) + ((5.3094000000000004e-05 * fVec8[((IOTA - 1) & 127)]) + ((2.1262000000000001e-05 * fTemp8) + ((0.0068894500000000001 * fVec8[((IOTA - 52) & 127)]) + ((0.000667396 * fVec8[((IOTA - 51) & 127)]) + ((0.00041839399999999999 * fVec8[((IOTA - 72) & 127)]) + ((6.3069200000000003e-05 * fVec8[((IOTA - 71) & 127)]) + ((0.00096322300000000003 * fVec8[((IOTA - 70) & 127)]) + ((0.00189788 * fVec8[((IOTA - 69) & 127)]) + ((0.00096244300000000011 * fVec8[((IOTA - 64) & 127)]) + ((0.00089314900000000009 * fVec8[((IOTA - 61) & 127)]) + ((0.00179447 * fVec8[((IOTA - 60) & 127)]) + ((0.000388658 * fVec8[((IOTA - 59) & 127)]) + ((0.00198825 * fVec8[((IOTA - 58) & 127)]) + ((0.0035999199999999999 * fVec8[((IOTA - 57) & 127)]) + ((0.0053912600000000001 * fVec8[((IOTA - 56) & 127)]) + ((0.00022144200000000003 * fVec8[((IOTA - 47) & 127)]) + ((0.00070796200000000002 * fVec8[((IOTA - 46) & 127)]) + ((0.0028989900000000002 * fVec8[((IOTA - 55) & 127)]) + ((0.0030239099999999999 * fVec8[((IOTA - 53) & 127)]) + ((6.4276900000000001e-05 * fVec11[((IOTA - 119) & 127)]) + ((9.164930000000001e-05 * fVec11[((IOTA - 118) & 127)]) + ((5.7182200000000003e-05 * fVec11[((IOTA - 117) & 127)]) + ((0.00012319500000000002 * fVec11[((IOTA - 116) & 127)]) + ((0.000211704 * fVec11[((IOTA - 115) & 127)]) + ((0.00034920800000000005 * fVec11[((IOTA - 114) & 127)]) + ((0.00033244200000000001 * fVec11[((IOTA - 113) & 127)]) + ((0.00025251100000000002 * fVec11[((IOTA - 112) & 127)]) + ((0.000318859 * fVec11[((IOTA - 111) & 127)]) + ((0.00039344000000000005 * fVec11[((IOTA - 110) & 127)]) + ((0.00033167 * fVec11[((IOTA - 109) & 127)]) + ((0.000465384 * fVec11[((IOTA - 108) & 127)]) + ((0.00039361300000000001 * fVec11[((IOTA - 107) & 127)]) + ((0.00042075400000000002 * fVec11[((IOTA - 106) & 127)]) + ((0.00037080799999999998 * fVec11[((IOTA - 105) & 127)]) + ((1.6587200000000003e-05 * fVec11[((IOTA - 103) & 127)]) + ((0.00091861900000000008 * fVec11[((IOTA - 102) & 127)]) + ((0.00025743700000000001 * fVec11[((IOTA - 101) & 127)]) + ((1.0584400000000002e-05 * fVec11[((IOTA - 98) & 127)]) + ((0.00040115600000000006 * fVec11[((IOTA - 97) & 127)]) + ((0.0014677900000000001 * fVec11[((IOTA - 90) & 127)]) + ((0.0010665400000000002 * fVec11[((IOTA - 89) & 127)]) + ((0.0011811600000000001 * fVec11[((IOTA - 88) & 127)]) + ((0.00093001200000000003 * fVec11[((IOTA - 87) & 127)]) + ((0.00025672299999999999 * fVec11[((IOTA - 85) & 127)]) + ((3.6903100000000002e-05 * fVec11[((IOTA - 83) & 127)]) + ((0.00082218600000000003 * fVec11[((IOTA - 82) & 127)]) + ((0.000382178 * fVec11[((IOTA - 81) & 127)]) + ((0.00056339900000000002 * fVec11[((IOTA - 78) & 127)]) + ((0.00030066700000000001 * fVec11[((IOTA - 77) & 127)]) + ((0.00075356000000000002 * fVec11[((IOTA - 76) & 127)]) + ((0.0017828800000000001 * fVec11[((IOTA - 75) & 127)]) + ((0.00080830800000000009 * fVec11[((IOTA - 74) & 127)]) + ((0.00187645 * fVec11[((IOTA - 70) & 127)]) + ((0.0013177900000000001 * fVec11[((IOTA - 69) & 127)]) + ((0.0026788900000000002 * fVec11[((IOTA - 68) & 127)]) + ((0.0014275899999999998 * fVec11[((IOTA - 67) & 127)]) + ((0.00077358800000000008 * fVec11[((IOTA - 65) & 127)]) + ((0.00030791900000000003 * fVec11[((IOTA - 64) & 127)]) + ((0.0018273299999999998 * fVec11[((IOTA - 59) & 127)]) + ((0.000741378 * fVec11[((IOTA - 58) & 127)]) + ((0.0021143999999999998 * fVec11[((IOTA - 56) & 127)]) + ((0.0023650199999999998 * fVec11[((IOTA - 55) & 127)]) + ((0.00137963 * fVec11[((IOTA - 46) & 127)]) + ((0.0022811300000000001 * fVec11[((IOTA - 45) & 127)]) + ((0.0077523699999999997 * fVec11[((IOTA - 44) & 127)]) + ((0.0087150300000000003 * fVec11[((IOTA - 43) & 127)]) + ((0.0035589599999999999 * fVec11[((IOTA - 40) & 127)]) + ((0.009139089999999999 * fVec11[((IOTA - 37) & 127)]) + ((0.0022023799999999999 * fVec11[((IOTA - 36) & 127)]) + ((0.00043536700000000003 * fVec11[((IOTA - 35) & 127)]) + ((0.0065159300000000005 * fVec11[((IOTA - 34) & 127)]) + ((0.0023690899999999999 * fVec11[((IOTA - 33) & 127)]) + ((0.017782599999999999 * fVec11[((IOTA - 32) & 127)]) + ((0.0058807299999999998 * fVec11[((IOTA - 31) & 127)]) + ((0.033734800000000002 * fVec11[((IOTA - 28) & 127)]) + ((0.00030687999999999999 * fVec11[((IOTA - 27) & 127)]) + ((0.027150500000000001 * fVec11[((IOTA - 25) & 127)]) + ((0.018427300000000001 * fVec11[((IOTA - 24) & 127)]) + ((0.037316000000000002 * fVec11[((IOTA - 18) & 127)]) + ((0.014252300000000001 * fVec11[((IOTA - 17) & 127)]) + ((0.019724700000000001 * fVec11[((IOTA - 15) & 127)]) + ((0.00039235000000000002 * fVec11[((IOTA - 14) & 127)]) + ((0.016522600000000002 * fVec11[((IOTA - 13) & 127)]) + ((0.0057737600000000002 * fVec11[((IOTA - 10) & 127)]) + ((0.00298131 * fVec11[((IOTA - 8) & 127)]) + ((0.0021578599999999997 * fVec11[((IOTA - 6) & 127)]) + ((0.0006632360000000001 * fVec11[((IOTA - 4) & 127)]) + ((0.00032355000000000003 * fVec11[((IOTA - 2) & 127)]) + ((4.3569800000000004e-05 * fVec11[((IOTA - 1) & 127)]) + ((2.0610900000000003e-05 * fTemp11) + ((7.3541399999999999e-06 * fVec10[((IOTA - 125) & 127)]) + ((1.9871400000000001e-05 * fVec10[((IOTA - 124) & 127)]) + ((1.68007e-05 * fVec10[((IOTA - 123) & 127)]) + ((4.0472700000000003e-05 * fVec10[((IOTA - 120) & 127)]) + ((2.0089899999999999e-06 * fVec10[((IOTA - 117) & 127)]) + ((9.4388500000000013e-05 * fVec10[((IOTA - 116) & 127)]) + ((4.0048000000000007e-05 * fVec10[((IOTA - 115) & 127)]) + ((0.00013508199999999999 * fVec10[((IOTA - 114) & 127)]) + ((1.4516400000000002e-05 * fVec10[((IOTA - 112) & 127)]) + ((4.0951399999999994e-06 * fVec10[((IOTA - 109) & 127)]) + ((0.00038113700000000003 * fVec10[((IOTA - 108) & 127)]) + ((0.00025360600000000002 * fVec10[((IOTA - 107) & 127)]) + ((8.5443400000000003e-05 * fVec10[((IOTA - 97) & 127)]) + ((0.00057432400000000008 * fVec10[((IOTA - 96) & 127)]) + ((0.00038692400000000002 * fVec10[((IOTA - 90) & 127)]) + ((0.0011128800000000001 * fVec10[((IOTA - 87) & 127)]) + ((0.00018401499999999999 * fVec10[((IOTA - 86) & 127)]) + ((8.3155100000000006e-05 * fVec10[((IOTA - 84) & 127)]) + ((0.000404712 * fVec10[((IOTA - 61) & 127)]) + ((0.00023097600000000001 * fVec10[((IOTA - 57) & 127)]) + ((0.00218833 * fVec10[((IOTA - 53) & 127)]) + ((0.0010072700000000002 * fVec10[((IOTA - 52) & 127)]) + ((0.00137375 * fVec10[((IOTA - 51) & 127)]) + ((0.00083448600000000006 * fVec10[((IOTA - 50) & 127)]) + ((0.00081536399999999995 * fVec10[((IOTA - 49) & 127)]) + ((0.00054543100000000008 * fVec10[((IOTA - 48) & 127)]) + ((0.0035057600000000001 * fVec10[((IOTA - 47) & 127)]) + ((0.0042825600000000004 * fVec10[((IOTA - 46) & 127)]) + ((0.0073746600000000008 * fVec10[((IOTA - 43) & 127)]) + ((0.0031813100000000001 * fVec10[((IOTA - 41) & 127)]) + ((0.0031712400000000001 * fVec10[((IOTA - 40) & 127)]) + ((0.0019387000000000002 * fVec10[((IOTA - 38) & 127)]) + ((0.010274799999999999 * fVec10[((IOTA - 37) & 127)]) + ((0.0160001 * fVec10[((IOTA - 34) & 127)]) + ((0.015218700000000002 * fVec10[((IOTA - 33) & 127)]) + ((0.0051433299999999998 * fVec10[((IOTA - 29) & 127)]) + ((0.019054000000000001 * fVec10[((IOTA - 28) & 127)]) + ((0.029220799999999998 * fVec10[((IOTA - 22) & 127)]) + ((0.019108199999999999 * fVec10[((IOTA - 20) & 127)]) + ((0.0101244 * fVec10[((IOTA - 19) & 127)]) + ((0.0243991 * fVec10[((IOTA - 17) & 127)]) + ((0.0071943800000000002 * fVec10[((IOTA - 16) & 127)]) + ((0.0065491000000000004 * fVec10[((IOTA - 14) & 127)]) + ((0.00345408 * fVec10[((IOTA - 13) & 127)]) + ((0.000172325 * fVec10[((IOTA - 11) & 127)]) + ((4.8090900000000004e-05 * fVec10[((IOTA - 10) & 127)]) + ((0.0012270600000000001 * fVec10[((IOTA - 8) & 127)]) + ((0.00054008200000000011 * fVec10[((IOTA - 4) & 127)]) + ((2.44107e-05 * fVec10[((IOTA - 2) & 127)]) + ((0.00055631600000000006 * fVec10[((IOTA - 83) & 127)]) + ((0.0013639500000000001 * fVec10[((IOTA - 82) & 127)]) + ((0.0011469 * fVec10[((IOTA - 81) & 127)]) + ((0.0022757299999999997 * fVec10[((IOTA - 78) & 127)]) + ((0.00076008400000000006 * fVec10[((IOTA - 77) & 127)]) + ((0.00049322500000000002 * fVec10[((IOTA - 75) & 127)]) + ((7.2509299999999999e-06 * fVec10[((IOTA - 74) & 127)]) + ((0.00102811 * fVec10[((IOTA - 73) & 127)]) + ((0.00084844100000000013 * fVec10[((IOTA - 72) & 127)]) + ((0.00073845000000000009 * fVec10[((IOTA - 71) & 127)]) + ((0.00068371000000000003 * fVec10[((IOTA - 70) & 127)]) + ((7.2511700000000006e-05 * fVec10[((IOTA - 69) & 127)]) + ((0.00078590300000000001 * fVec10[((IOTA - 66) & 127)]) + ((5.2891500000000002e-07 * fVec12[((IOTA - 126) & 127)]) + ((7.5122799999999995e-06 * fVec12[((IOTA - 125) & 127)]) + ((1.6393300000000001e-05 * fVec12[((IOTA - 124) & 127)]) + ((2.3049300000000003e-05 * fVec12[((IOTA - 123) & 127)]) + ((2.3497200000000003e-05 * fVec12[((IOTA - 122) & 127)]) + ((3.1160000000000007e-05 * fVec12[((IOTA - 121) & 127)]) + ((2.6824200000000003e-05 * fVec12[((IOTA - 120) & 127)]) + ((2.2243600000000002e-05 * fVec12[((IOTA - 117) & 127)]) + ((4.78325e-05 * fVec12[((IOTA - 116) & 127)]) + ((0.00083076200000000008 * fVec12[((IOTA - 90) & 127)]) + ((0.00094943600000000012 * fVec12[((IOTA - 89) & 127)]) + ((0.00016757299999999999 * fVec12[((IOTA - 88) & 127)]) + ((0.00022032700000000001 * fVec12[((IOTA - 87) & 127)]) + ((0.00016127700000000001 * fVec12[((IOTA - 86) & 127)]) + ((0.00191763 * fVec12[((IOTA - 85) & 127)]) + ((0.00189814 * fVec12[((IOTA - 84) & 127)]) + ((0.0011356999999999999 * fVec12[((IOTA - 82) & 127)]) + ((0.0018585000000000001 * fVec12[((IOTA - 81) & 127)]) + ((0.0012131000000000002 * fVec12[((IOTA - 80) & 127)]) + ((0.00025399999999999999 * fVec12[((IOTA - 79) & 127)]) + ((0.00035679200000000004 * fVec12[((IOTA - 78) & 127)]) + ((0.00097909699999999995 * fVec12[((IOTA - 77) & 127)]) + ((0.0021205199999999999 * fVec12[((IOTA - 76) & 127)]) + ((0.0008138310000000001 * fVec12[((IOTA - 68) & 127)]) + ((0.00074145100000000007 * fVec12[((IOTA - 62) & 127)]) + ((0.00047705600000000001 * fVec12[((IOTA - 61) & 127)]) + ((0.0034899700000000002 * fVec12[((IOTA - 60) & 127)]) + ((0.0025903700000000003 * fVec12[((IOTA - 59) & 127)]) + ((0.0027718299999999999 * fVec12[((IOTA - 58) & 127)]) + ((0.00315957 * fVec12[((IOTA - 57) & 127)]) + ((0.0041676700000000001 * fVec12[((IOTA - 56) & 127)]) + ((0.0040106600000000001 * fVec12[((IOTA - 55) & 127)]) + ((0.00024623100000000002 * fVec12[((IOTA - 54) & 127)]) + ((0.00327415 * fVec12[((IOTA - 53) & 127)]) + ((0.0026408399999999998 * fVec12[((IOTA - 52) & 127)]) + ((0.00050010199999999999 * fVec12[((IOTA - 50) & 127)]) + ((0.00058122499999999999 * fVec12[((IOTA - 49) & 127)]) + ((0.0072108700000000003 * fVec12[((IOTA - 44) & 127)]) + ((0.0018301400000000001 * fVec12[((IOTA - 43) & 127)]) + ((0.00058247500000000005 * fVec12[((IOTA - 38) & 127)]) + ((0.0085527399999999996 * fVec12[((IOTA - 37) & 127)]) + ((0.0064438700000000008 * fVec12[((IOTA - 35) & 127)]) + ((0.0030920700000000001 * fVec12[((IOTA - 31) & 127)]) + ((0.026311300000000003 * fVec12[((IOTA - 30) & 127)]) + ((0.0045847700000000002 * fVec12[((IOTA - 29) & 127)]) + ((0.014478500000000002 * fVec12[((IOTA - 26) & 127)]) + ((0.014742699999999999 * fVec12[((IOTA - 25) & 127)]) + ((0.0040668100000000006 * fVec12[((IOTA - 23) & 127)]) + ((0.010288200000000001 * fVec12[((IOTA - 21) & 127)]) + ((0.016673299999999999 * fVec12[((IOTA - 20) & 127)]) + ((0.0066805500000000004 * fVec12[((IOTA - 18) & 127)]) + ((0.00678927 * fVec12[((IOTA - 17) & 127)]) + ((0.0091073999999999999 * fVec12[((IOTA - 16) & 127)]) + ((0.0130569 * fVec12[((IOTA - 15) & 127)]) + ((0.0042139100000000004 * fVec12[((IOTA - 13) & 127)]) + ((0.00085768200000000002 * fVec12[((IOTA - 8) & 127)]) + ((0.00032995300000000002 * fVec12[((IOTA - 6) & 127)]) + ((0.00050478700000000003 * fVec12[((IOTA - 4) & 127)]) + ((0.000105713 * fVec12[((IOTA - 2) & 127)]) + ((2.5231199999999997e-06 * fTemp12) + ((0.00013262100000000003 * fVec12[((IOTA - 94) & 127)]) + ((0.00095934000000000015 * fVec10[((IOTA - 62) & 127)]) + ((7.5180799999999995e-07 * fVec13[((IOTA - 126) & 127)]) + ((7.4192699999999999e-06 * fVec13[((IOTA - 125) & 127)]) + ((7.8058900000000002e-06 * fVec13[((IOTA - 124) & 127)]) + ((7.6831699999999991e-06 * fVec13[((IOTA - 123) & 127)]) + ((4.3886799999999996e-07 * fVec13[((IOTA - 122) & 127)]) + ((2.5728499999999999e-05 * fVec13[((IOTA - 121) & 127)]) + ((3.8519100000000002e-06 * fVec13[((IOTA - 120) & 127)]) + ((8.4650599999999985e-06 * fVec13[((IOTA - 119) & 127)]) + ((4.1315700000000002e-05 * fVec13[((IOTA - 118) & 127)]) + ((0.00014156200000000002 * fVec13[((IOTA - 117) & 127)]) + ((0.00013138900000000001 * fVec13[((IOTA - 116) & 127)]) + ((2.3594499999999999e-05 * fVec13[((IOTA - 114) & 127)]) + ((5.5362000000000003e-05 * fVec13[((IOTA - 113) & 127)]) + ((4.5982300000000002e-05 * fVec13[((IOTA - 112) & 127)]) + ((0.00020877800000000001 * fVec13[((IOTA - 95) & 127)]) + ((0.0014440100000000001 * fVec13[((IOTA - 94) & 127)]) + ((0.00061235200000000004 * fVec12[((IOTA - 91) & 127)]) + ((7.5196800000000005e-05 * fVec13[((IOTA - 93) & 127)]) + ((0.00021774900000000002 * fVec13[((IOTA - 88) & 127)]) + ((0.00050493599999999999 * fVec13[((IOTA - 87) & 127)]) + ((0.00129094 * fVec13[((IOTA - 86) & 127)]) + ((0.00131875 * fVec13[((IOTA - 85) & 127)]) + ((0.00025035200000000002 * fVec13[((IOTA - 84) & 127)]) + ((0.0016813900000000001 * fVec13[((IOTA - 83) & 127)]) + ((0.00079413300000000004 * fVec13[((IOTA - 82) & 127)]) + ((0.00148109 * fVec13[((IOTA - 78) & 127)]) + ((0.00187816 * fVec13[((IOTA - 77) & 127)]) + ((0.0015205800000000001 * fVec13[((IOTA - 76) & 127)]) + ((0.00021227600000000001 * fVec13[((IOTA - 75) & 127)]) + ((0.00359524 * fVec13[((IOTA - 74) & 127)]) + ((0.0041234900000000005 * fVec13[((IOTA - 73) & 127)]) + ((0.00089886800000000004 * fVec13[((IOTA - 72) & 127)]) + ((0.0068680599999999996 * fVec13[((IOTA - 20) & 127)]) + ((0.0158055 * fVec13[((IOTA - 19) & 127)]) + ((0.0196975 * fVec13[((IOTA - 18) & 127)]) + ((0.012670500000000001 * fVec13[((IOTA - 17) & 127)]) + ((0.017149600000000001 * fVec13[((IOTA - 14) & 127)]) + ((0.00039274200000000002 * fVec13[((IOTA - 13) & 127)]) + ((0.00063474100000000008 * fVec13[((IOTA - 8) & 127)]) + ((0.00022428400000000002 * fVec13[((IOTA - 6) & 127)]) + ((0.00061255200000000004 * fVec13[((IOTA - 5) & 127)]) + ((0.000177443 * fVec13[((IOTA - 2) & 127)]) + ((2.38744e-05 * fVec13[((IOTA - 1) & 127)]) + ((0.045109500000000004 * fVec13[((IOTA - 24) & 127)]) + ((0.0018163100000000002 * fVec13[((IOTA - 65) & 127)]) + ((0.0033862499999999999 * fVec13[((IOTA - 62) & 127)]) + ((0.00095073000000000011 * fVec13[((IOTA - 61) & 127)]) + ((0.00032132100000000001 * fVec13[((IOTA - 55) & 127)]) + ((0.0011200699999999999 * fVec13[((IOTA - 53) & 127)]) + ((0.0028892500000000003 * fVec13[((IOTA - 50) & 127)]) + ((0.000955261 * fVec13[((IOTA - 49) & 127)]) + ((6.3343100000000014e-05 * fVec13[((IOTA - 47) & 127)]) + ((0.00694716 * fVec13[((IOTA - 44) & 127)]) + ((0.0026067200000000003 * fVec13[((IOTA - 43) & 127)]) + ((0.0036414500000000001 * fVec13[((IOTA - 42) & 127)]) + ((0.0024519899999999998 * fVec13[((IOTA - 41) & 127)]) + ((0.00093541399999999997 * fVec13[((IOTA - 39) & 127)]) + ((0.0018243199999999999 * fVec13[((IOTA - 37) & 127)]) + ((0.0072907000000000007 * fVec13[((IOTA - 36) & 127)]) + ((0.0082141100000000002 * fVec13[((IOTA - 35) & 127)]) + ((0.0015148500000000001 * fVec13[((IOTA - 33) & 127)]) + ((0.0039258799999999996 * fVec13[((IOTA - 32) & 127)]) + ((0.0083919700000000003 * fVec13[((IOTA - 29) & 127)]) + ((5.1650600000000005e-06 * fVec14[((IOTA - 122) & 127)]) + ((0.0130615 * fVec13[((IOTA - 23) & 127)]) + ((6.2288800000000013e-05 * fVec14[((IOTA - 118) & 127)]) + ((0.000107544 * fVec14[((IOTA - 117) & 127)]) + ((3.1495500000000004e-05 * fVec14[((IOTA - 116) & 127)]) + ((1.20038e-05 * fVec14[((IOTA - 115) & 127)]) + ((2.5178300000000003e-05 * fVec14[((IOTA - 114) & 127)]) + ((0.000470283 * fVec14[((IOTA - 113) & 127)]) + ((0.00042444499999999997 * fVec14[((IOTA - 112) & 127)]) + ((0.00022263799999999999 * fVec14[((IOTA - 111) & 127)]) + ((4.14666e-05 * fVec14[((IOTA - 109) & 127)]) + ((0.000344395 * fVec14[((IOTA - 108) & 127)]) + ((0.00011064600000000001 * fVec14[((IOTA - 106) & 127)]) + ((0.00030248100000000001 * fVec14[((IOTA - 105) & 127)]) + ((0.00041449600000000004 * fVec14[((IOTA - 104) & 127)]) + ((0.00012015400000000002 * fVec14[((IOTA - 100) & 127)]) + ((0.00051881099999999999 * fVec14[((IOTA - 99) & 127)]) + ((6.7970200000000002e-05 * fVec14[((IOTA - 98) & 127)]) + ((0.00034321600000000003 * fVec14[((IOTA - 95) & 127)]) + ((0.00044988999999999999 * fVec14[((IOTA - 88) & 127)]) + ((0.00256128 * fVec14[((IOTA - 87) & 127)]) + ((0.0023223300000000001 * fVec14[((IOTA - 86) & 127)]) + ((0.00014500400000000001 * fVec14[((IOTA - 83) & 127)]) + ((0.0011457399999999999 * fVec14[((IOTA - 79) & 127)]) + ((0.00095134899999999999 * fVec14[((IOTA - 78) & 127)]) + ((0.00214124 * fVec14[((IOTA - 75) & 127)]) + ((0.0040635300000000001 * fVec14[((IOTA - 74) & 127)]) + ((0.00039275000000000003 * fVec14[((IOTA - 73) & 127)]) + ((0.0021799499999999999 * fVec14[((IOTA - 71) & 127)]) + ((0.0024713999999999999 * fVec14[((IOTA - 70) & 127)]) + ((0.00148032 * fVec14[((IOTA - 69) & 127)]) + ((0.00027506900000000002 * fVec14[((IOTA - 42) & 127)]) + ((0.0020045600000000003 * fVec14[((IOTA - 41) & 127)]) + ((0.00894526 * fVec14[((IOTA - 38) & 127)]) + ((0.0040081499999999994 * fVec14[((IOTA - 37) & 127)]) + ((0.0022934100000000001 * fVec14[((IOTA - 36) & 127)]) + ((0.0078181599999999993 * fVec14[((IOTA - 35) & 127)]) + ((0.0060735200000000007 * fVec14[((IOTA - 34) & 127)]) + ((0.020101600000000001 * fVec14[((IOTA - 33) & 127)]) + ((0.011363099999999999 * fVec14[((IOTA - 32) & 127)]) + ((0.0048202200000000001 * fVec14[((IOTA - 31) & 127)]) + ((0.015268600000000002 * fVec14[((IOTA - 29) & 127)]) + ((0.054586100000000005 * fVec14[((IOTA - 28) & 127)]) + ((0.0076356100000000001 * fVec14[((IOTA - 27) & 127)]) + ((0.0064172300000000003 * fVec14[((IOTA - 24) & 127)]) + ((0.025168300000000001 * fVec14[((IOTA - 23) & 127)]) + ((0.0044173700000000003 * fVec14[((IOTA - 14) & 127)]) + ((0.047073999999999998 * fVec14[((IOTA - 13) & 127)]) + ((0.050409800000000005 * fVec14[((IOTA - 12) & 127)]) + ((0.0088254800000000001 * fVec14[((IOTA - 11) & 127)]) + ((0.0028401100000000003 * fVec14[((IOTA - 9) & 127)]) + ((0.0010134199999999999 * fVec14[((IOTA - 7) & 127)]) + ((0.00048772500000000005 * fVec14[((IOTA - 5) & 127)]) + ((0.00019671200000000001 * fVec14[((IOTA - 3) & 127)]) + ((1.9656400000000004e-05 * fVec14[((IOTA - 1) & 127)]) + ((1.1230600000000001e-05 * fTemp14) + ((0.0017609399999999999 * fVec14[((IOTA - 47) & 127)]) + ((0.00048183400000000005 * fVec14[((IOTA - 66) & 127)]) + ((0.0020025400000000001 * fVec14[((IOTA - 65) & 127)]) + ((0.0024424899999999999 * fVec14[((IOTA - 64) & 127)]) + ((0.0017324700000000001 * fVec14[((IOTA - 63) & 127)]) + ((0.00083292900000000005 * fVec14[((IOTA - 60) & 127)]) + ((4.4803300000000005e-05 * fVec14[((IOTA - 59) & 127)]) + ((0.000591623 * fVec14[((IOTA - 56) & 127)]) + ((1.2052900000000001e-05 * fVec15[((IOTA - 124) & 127)]) + ((7.5001999999999998e-06 * fVec15[((IOTA - 118) & 127)]) + ((3.8559700000000003e-05 * fVec15[((IOTA - 117) & 127)]) + ((0.00012688900000000001 * fVec15[((IOTA - 113) & 127)]) + ((7.1436400000000013e-05 * fVec15[((IOTA - 112) & 127)]) + ((8.3677800000000007e-05 * fVec15[((IOTA - 111) & 127)]) + ((0.000142659 * fVec15[((IOTA - 110) & 127)]) + ((0.00011731000000000001 * fVec15[((IOTA - 107) & 127)]) + ((0.00029102700000000002 * fVec15[((IOTA - 100) & 127)]) + ((0.000736785 * fVec15[((IOTA - 99) & 127)]) + ((0.00088049500000000002 * fVec15[((IOTA - 98) & 127)]) + ((0.00076679700000000005 * fVec15[((IOTA - 94) & 127)]) + ((0.0012207399999999999 * fVec15[((IOTA - 93) & 127)]) + ((0.00193305 * fVec15[((IOTA - 92) & 127)]) + ((0.00063554600000000007 * fVec15[((IOTA - 91) & 127)]) + ((0.00026668900000000002 * fVec15[((IOTA - 89) & 127)]) + ((0.00319579 * fVec15[((IOTA - 88) & 127)]) + ((0.0011806200000000001 * fVec15[((IOTA - 87) & 127)]) + ((0.00029940000000000001 * fVec15[((IOTA - 82) & 127)]) + ((0.0028643700000000002 * fVec15[((IOTA - 81) & 127)]) + ((0.0023513099999999997 * fVec15[((IOTA - 80) & 127)]) + ((0.0017465 * fVec15[((IOTA - 77) & 127)]) + ((0.00021222400000000003 * fVec15[((IOTA - 76) & 127)]) + ((0.00041598900000000002 * fVec15[((IOTA - 73) & 127)]) + ((0.00030018800000000001 * fVec15[((IOTA - 72) & 127)]) + ((0.0026737700000000002 * fVec15[((IOTA - 53) & 127)]) + ((0.0024428499999999999 * fVec15[((IOTA - 50) & 127)]) + ((0.0025408400000000004 * fVec15[((IOTA - 49) & 127)]) + ((0.0022300800000000002 * fVec15[((IOTA - 48) & 127)]) + ((0.00082497000000000007 * fVec15[((IOTA - 47) & 127)]) + ((0.0010773099999999999 * fVec15[((IOTA - 46) & 127)]) + ((6.9417900000000012e-05 * fVec15[((IOTA - 45) & 127)]) + ((0.0043865800000000002 * fVec15[((IOTA - 41) & 127)]) + ((0.0046617300000000002 * fVec15[((IOTA - 40) & 127)]) + ((0.0029096 * fVec15[((IOTA - 39) & 127)]) + ((0.00817616 * fVec15[((IOTA - 36) & 127)]) + ((0.0060419900000000006 * fVec15[((IOTA - 35) & 127)]) + ((0.0085528800000000006 * fVec15[((IOTA - 34) & 127)]) + ((0.030350199999999997 * fVec15[((IOTA - 27) & 127)]) + ((0.00316892 * fVec15[((IOTA - 24) & 127)]) + ((0.025193300000000002 * fVec15[((IOTA - 23) & 127)]) + ((0.0021023399999999999 * fVec15[((IOTA - 22) & 127)]) + ((0.0073916000000000008 * fVec15[((IOTA - 20) & 127)]) + ((0.017867400000000002 * fVec15[((IOTA - 17) & 127)]) + ((0.010231500000000001 * fVec15[((IOTA - 16) & 127)]) + ((0.00146583 * fVec15[((IOTA - 14) & 127)]) + ((0.0064234600000000006 * fVec15[((IOTA - 13) & 127)]) + ((0.00078510700000000006 * fVec15[((IOTA - 8) & 127)]) + ((0.00035025799999999999 * fVec15[((IOTA - 5) & 127)]) + ((0.00013798200000000001 * fVec15[((IOTA - 4) & 127)]) + ((3.8530500000000007e-05 * fVec15[((IOTA - 1) & 127)]) + ((0.0015227400000000001 * fVec15[((IOTA - 60) & 127)]) + ((0.00373734 * fVec15[((IOTA - 59) & 127)]) + ((0.0014280500000000002 * fVec15[((IOTA - 58) & 127)]) + ((0.00152436 * fVec15[((IOTA - 69) & 127)]) + ((0.00128761 * fVec15[((IOTA - 62) & 127)]) + ((1.6178099999999998e-07 * fVec16[((IOTA - 125) & 127)]) + ((1.7421599999999998e-07 * fVec16[((IOTA - 124) & 127)]) + ((0.00021674500000000001 * fVec16[((IOTA - 115) & 127)]) + ((0.00028279200000000003 * fVec16[((IOTA - 114) & 127)]) + ((5.2515800000000003e-05 * fVec16[((IOTA - 113) & 127)]) + ((0.000133249 * fVec16[((IOTA - 112) & 127)]) + ((0.00038273500000000004 * fVec16[((IOTA - 111) & 127)]) + ((0.00043214699999999997 * fVec16[((IOTA - 110) & 127)]) + ((0.00027134800000000003 * fVec16[((IOTA - 109) & 127)]) + ((3.3736500000000005e-05 * fVec16[((IOTA - 107) & 127)]) + ((6.6819399999999999e-05 * fVec16[((IOTA - 106) & 127)]) + ((0.00038405399999999999 * fVec16[((IOTA - 103) & 127)]) + ((0.0010818799999999999 * fVec16[((IOTA - 102) & 127)]) + ((0.000419827 * fVec16[((IOTA - 101) & 127)]) + ((0.000472497 * fVec16[((IOTA - 100) & 127)]) + ((0.00040792200000000007 * fVec16[((IOTA - 99) & 127)]) + ((0.0017046100000000001 * fVec16[((IOTA - 91) & 127)]) + ((0.0017854000000000001 * fVec16[((IOTA - 90) & 127)]) + ((0.000146465 * fVec16[((IOTA - 89) & 127)]) + ((0.0011246299999999999 * fVec16[((IOTA - 88) & 127)]) + ((0.000121433 * fVec16[((IOTA - 85) & 127)]) + ((0.0015572399999999999 * fVec16[((IOTA - 84) & 127)]) + ((0.00286542 * fVec16[((IOTA - 81) & 127)]) + ((0.0035030399999999998 * fVec16[((IOTA - 80) & 127)]) + ((0.0013357099999999999 * fVec16[((IOTA - 79) & 127)]) + ((0.0028925200000000004 * fVec16[((IOTA - 71) & 127)]) + ((0.00488274 * fVec16[((IOTA - 70) & 127)]) + ((0.0016347499999999999 * fVec16[((IOTA - 69) & 127)]) + ((0.0014653400000000001 * fVec16[((IOTA - 68) & 127)]) + ((0.0016001099999999999 * fVec16[((IOTA - 67) & 127)]) + ((2.4437900000000002e-05 * fVec16[((IOTA - 63) & 127)]) + ((0.00012724599999999999 * fVec16[((IOTA - 62) & 127)]) + ((0.00045853400000000008 * fVec16[((IOTA - 58) & 127)]) + ((0.0015582 * fVec16[((IOTA - 57) & 127)]) + ((0.0032972399999999999 * fVec16[((IOTA - 39) & 127)]) + ((0.010154000000000002 * fVec16[((IOTA - 38) & 127)]) + ((0.019400900000000002 * fVec16[((IOTA - 37) & 127)]) + ((0.0108342 * fVec16[((IOTA - 36) & 127)]) + ((0.021263200000000003 * fVec16[((IOTA - 34) & 127)]) + ((0.020498300000000001 * fVec16[((IOTA - 33) & 127)]) + ((0.0187685 * fVec16[((IOTA - 32) & 127)]) + ((0.0086318699999999998 * fVec16[((IOTA - 31) & 127)]) + ((0.0119454 * fVec16[((IOTA - 30) & 127)]) + ((0.024111899999999999 * fVec16[((IOTA - 29) & 127)]) + ((0.0154331 * fVec16[((IOTA - 28) & 127)]) + ((0.011326600000000001 * fVec16[((IOTA - 27) & 127)]) + ((0.0041025300000000001 * fVec16[((IOTA - 26) & 127)]) + ((0.035046500000000001 * fVec16[((IOTA - 25) & 127)]) + ((0.0109835 * fVec16[((IOTA - 24) & 127)]) + ((0.008624660000000001 * fVec16[((IOTA - 21) & 127)]) + ((0.0030574400000000002 * fVec16[((IOTA - 17) & 127)]) + ((0.016297900000000001 * fVec16[((IOTA - 14) & 127)]) + ((0.053418799999999995 * fVec16[((IOTA - 13) & 127)]) + ((0.071327800000000011 * fVec16[((IOTA - 12) & 127)]) + ((0.0074569299999999996 * fVec16[((IOTA - 11) & 127)]) + ((0.00196452 * fVec16[((IOTA - 9) & 127)]) + ((1.4284499999999999e-06 * fVec16[((IOTA - 7) & 127)]) + ((0.00065664800000000002 * fVec16[((IOTA - 5) & 127)]) + ((0.00033454700000000003 * fVec16[((IOTA - 3) & 127)]) + ((4.19701e-05 * fVec16[((IOTA - 1) & 127)]) + ((1.6075699999999999e-05 * fTemp16) + ((0.0015001299999999999 * fVec16[((IOTA - 56) & 127)]) + ((0.0012102200000000001 * fVec16[((IOTA - 55) & 127)]) + ((2.1103299999999999e-06 * fVec17[((IOTA - 125) & 127)]) + ((5.5217400000000003e-06 * fVec17[((IOTA - 124) & 127)]) + ((3.11789e-06 * fVec17[((IOTA - 123) & 127)]) + ((9.0368300000000007e-05 * fVec17[((IOTA - 119) & 127)]) + ((0.00011532 * fVec17[((IOTA - 118) & 127)]) + ((1.9649999999999998e-06 * fVec17[((IOTA - 116) & 127)]) + ((0.00021442500000000002 * fVec17[((IOTA - 115) & 127)]) + ((0.00030905200000000004 * fVec17[((IOTA - 114) & 127)]) + ((4.7581900000000006e-05 * fVec17[((IOTA - 113) & 127)]) + ((0.00016311100000000002 * fVec17[((IOTA - 112) & 127)]) + ((0.00016924900000000001 * fVec17[((IOTA - 111) & 127)]) + ((3.0118399999999995e-06 * fVec17[((IOTA - 109) & 127)]) + ((0.00053920599999999997 * fVec17[((IOTA - 108) & 127)]) + ((0.00034291200000000001 * fVec17[((IOTA - 107) & 127)]) + ((0.00026214100000000002 * fVec17[((IOTA - 106) & 127)]) + ((0.00014172800000000001 * (fVec21[((IOTA - 109) & 127)] - fVec18[((IOTA - 78) & 127)])) + ((0.00060378299999999999 * fVec17[((IOTA - 78) & 127)]) + ((0.00041387999999999999 * fVec17[((IOTA - 102) & 127)]) + ((0.000138245 * fVec17[((IOTA - 101) & 127)]) + ((0.000478309 * fVec17[((IOTA - 100) & 127)]) + ((0.00091847499999999998 * fVec17[((IOTA - 99) & 127)]) + ((0.0013005599999999999 * fVec17[((IOTA - 98) & 127)]) + ((0.00113754 * fVec17[((IOTA - 97) & 127)]) + ((0.0026714199999999999 * fVec17[((IOTA - 93) & 127)]) + ((0.00023320700000000001 * fVec17[((IOTA - 105) & 127)]) + ((0.0021342599999999998 * fVec17[((IOTA - 92) & 127)]) + ((0.00024966300000000001 * fVec17[((IOTA - 90) & 127)]) + ((0.0023507699999999999 * fVec17[((IOTA - 89) & 127)]) + ((0.0046170200000000003 * fVec17[((IOTA - 88) & 127)]) + ((0.0013482500000000001 * fVec17[((IOTA - 87) & 127)]) + ((0.0010940099999999999 * fVec17[((IOTA - 85) & 127)]) + ((0.0017591500000000001 * fVec17[((IOTA - 84) & 127)]) + ((0.00040582000000000004 * fVec17[((IOTA - 83) & 127)]) + ((0.00225807 * fVec17[((IOTA - 82) & 127)]) + ((0.00237535 * fVec17[((IOTA - 81) & 127)]) + ((0.000120611 * fVec17[((IOTA - 80) & 127)]) + ((0.00026133000000000005 * fVec17[((IOTA - 73) & 127)]) + ((0.0020077300000000001 * fVec17[((IOTA - 63) & 127)]) + ((0.0032089100000000001 * fVec17[((IOTA - 62) & 127)]) + ((0.0010079800000000001 * fVec17[((IOTA - 61) & 127)]) + ((0.00063087099999999997 * fVec17[((IOTA - 60) & 127)]) + ((0.0044288800000000005 * fVec17[((IOTA - 59) & 127)]) + ((0.0047678900000000003 * fVec17[((IOTA - 58) & 127)]) + ((0.0024688500000000003 * fVec17[((IOTA - 57) & 127)]) + ((0.00277838 * fVec17[((IOTA - 56) & 127)]) + ((0.0075612199999999996 * fVec17[((IOTA - 55) & 127)]) + ((0.00761051 * fVec17[((IOTA - 54) & 127)]) + ((0.0018776900000000002 * fVec17[((IOTA - 52) & 127)]) + ((0.0082384199999999998 * fVec17[((IOTA - 51) & 127)]) + ((0.0050166199999999994 * fVec17[((IOTA - 50) & 127)]) + ((0.0032369600000000001 * fVec17[((IOTA - 49) & 127)]) + ((0.0040625900000000005 * fVec17[((IOTA - 48) & 127)]) + ((0.011856999999999999 * fVec17[((IOTA - 47) & 127)]) + ((0.0091953899999999995 * fVec17[((IOTA - 46) & 127)]) + ((0.0061361499999999999 * fVec17[((IOTA - 45) & 127)]) + ((0.015667299999999999 * fVec17[((IOTA - 44) & 127)]) + ((0.0121152 * fVec17[((IOTA - 43) & 127)]) + ((0.0102805 * fVec17[((IOTA - 41) & 127)]) + ((0.0249734 * fVec17[((IOTA - 40) & 127)]) + ((0.0028042699999999998 * fVec17[((IOTA - 39) & 127)]) + ((0.0112762 * fVec17[((IOTA - 37) & 127)]) + ((0.0070063399999999998 * fVec17[((IOTA - 36) & 127)]) + ((0.0037140800000000002 * fVec17[((IOTA - 35) & 127)]) + ((0.0077227400000000005 * fVec17[((IOTA - 32) & 127)]) + ((0.0031788599999999999 * fVec17[((IOTA - 31) & 127)]) + ((0.0055445599999999996 * fVec17[((IOTA - 25) & 127)]) + ((0.014456700000000001 * fVec17[((IOTA - 21) & 127)]) + ((0.043969699999999994 * fVec17[((IOTA - 17) & 127)]) + ((0.010103500000000001 * fVec17[((IOTA - 16) & 127)]) + ((0.026084999999999997 * fVec17[((IOTA - 15) & 127)]) + ((0.040577500000000002 * fVec17[((IOTA - 14) & 127)]) + ((0.0703236 * fVec17[((IOTA - 13) & 127)]) + ((0.086424600000000004 * fVec17[((IOTA - 12) & 127)]) + ((0.00526349 * fVec17[((IOTA - 11) & 127)]) + ((0.0021171000000000002 * fVec17[((IOTA - 9) & 127)]) + ((0.00027211800000000001 * fVec17[((IOTA - 7) & 127)]) + ((0.00074305500000000006 * fVec17[((IOTA - 5) & 127)]) + ((0.00070165199999999998 * fVec17[((IOTA - 3) & 127)]) + ((7.2115300000000004e-05 * fVec17[((IOTA - 1) & 127)]) + (((6.8184199999999995e-06 * fVec18[((IOTA - 124) & 127)]) + ((9.6015999999999997e-06 * fVec18[((IOTA - 123) & 127)]) + ((2.6161300000000003e-05 * fVec18[((IOTA - 122) & 127)]) + ((7.66841e-06 * fVec18[((IOTA - 120) & 127)]) + ((9.9956200000000017e-05 * fVec18[((IOTA - 119) & 127)]) + ((9.8288800000000007e-05 * fVec18[((IOTA - 118) & 127)]) + ((0.00016569499999999999 * fVec18[((IOTA - 115) & 127)]) + ((0.000131304 * fVec18[((IOTA - 114) & 127)]) + ((7.4421400000000012e-05 * fVec18[((IOTA - 113) & 127)]) + ((9.0750500000000005e-05 * fVec18[((IOTA - 109) & 127)]) + ((0.00081881900000000014 * fVec18[((IOTA - 96) & 127)]) + ((0.0015964400000000002 * fVec18[((IOTA - 95) & 127)]) + ((3.5872199999999999e-05 * fVec18[((IOTA - 92) & 127)]) + ((0.0020068299999999998 * fVec18[((IOTA - 91) & 127)]) + ((0.00050415000000000008 * fVec18[((IOTA - 90) & 127)]) + ((0.00041316100000000005 * fVec18[((IOTA - 89) & 127)]) + ((0.0011488700000000002 * fVec18[((IOTA - 88) & 127)]) + ((0.0011271300000000001 * fVec18[((IOTA - 87) & 127)]) + ((0.0018691199999999999 * fVec18[((IOTA - 81) & 127)]) + ((0.0023870700000000003 * fVec18[((IOTA - 80) & 127)]) + ((0.0014690600000000001 * fVec18[((IOTA - 79) & 127)]) + ((0.00020293100000000003 * fVec18[((IOTA - 75) & 127)]) + ((0.00042256999999999999 * fVec18[((IOTA - 74) & 127)]) + ((4.8196899999999999e-05 * fVec18[((IOTA - 73) & 127)]) + ((0.00081876599999999996 * fVec18[((IOTA - 69) & 127)]) + ((0.00116132 * fVec18[((IOTA - 65) & 127)]) + ((0.0012919000000000001 * fVec18[((IOTA - 60) & 127)]) + ((0.0018522 * fVec18[((IOTA - 53) & 127)]) + ((0.0040265300000000004 * fVec18[((IOTA - 52) & 127)]) + ((0.00164123 * fVec18[((IOTA - 49) & 127)]) + ((0.0035543000000000003 * fVec18[((IOTA - 48) & 127)]) + ((0.0019447000000000002 * fVec18[((IOTA - 47) & 127)]) + ((0.0045421799999999998 * fVec18[((IOTA - 46) & 127)]) + ((0.0032057800000000001 * fVec18[((IOTA - 45) & 127)]) + ((0.0098560599999999998 * fVec18[((IOTA - 43) & 127)]) + ((0.0055212400000000002 * fVec18[((IOTA - 42) & 127)]) + ((0.0039102499999999997 * fVec18[((IOTA - 40) & 127)]) + ((0.0014029000000000001 * fVec18[((IOTA - 39) & 127)]) + ((0.00081971100000000009 * fVec18[((IOTA - 37) & 127)]) + ((0.015326500000000002 * fVec18[((IOTA - 34) & 127)]) + ((0.0039000900000000002 * fVec18[((IOTA - 33) & 127)]) + ((0.0107983 * fVec18[((IOTA - 30) & 127)]) + ((0.0016720200000000002 * fVec18[((IOTA - 28) & 127)]) + ((0.0115642 * fVec18[((IOTA - 27) & 127)]) + ((0.0083424600000000012 * fVec18[((IOTA - 24) & 127)]) + ((0.0016058699999999999 * fVec18[((IOTA - 23) & 127)]) + ((0.00574575 * fVec18[((IOTA - 22) & 127)]) + ((0.0048227900000000004 * fVec18[((IOTA - 21) & 127)]) + ((0.0053663600000000006 * fVec18[((IOTA - 20) & 127)]) + ((0.0110708 * fVec18[((IOTA - 17) & 127)]) + ((0.0074311999999999998 * fVec18[((IOTA - 16) & 127)]) + ((0.00037238400000000002 * fVec18[((IOTA - 14) & 127)]) + ((0.00252045 * fVec18[((IOTA - 13) & 127)]) + ((0.00052853700000000004 * fVec18[((IOTA - 8) & 127)]) + ((0.00017706000000000002 * fVec18[((IOTA - 5) & 127)]) + ((0.00017067000000000002 * fVec18[((IOTA - 4) & 127)]) + ((2.8269799999999997e-06 * fVec18[((IOTA - 1) & 127)]) + ((0.0028610799999999998 * fVec18[((IOTA - 84) & 127)]) + ((0.00119961 * fVec18[((IOTA - 83) & 127)]) + ((3.5305499999999996e-06 * fVec19[((IOTA - 125) & 127)]) + ((4.1155299999999994e-06 * fVec19[((IOTA - 124) & 127)]) + ((8.4151000000000001e-06 * fVec19[((IOTA - 123) & 127)]) + ((2.8368800000000002e-05 * fVec19[((IOTA - 122) & 127)]) + ((6.1171800000000003e-05 * fVec19[((IOTA - 121) & 127)]) + ((4.5063100000000006e-05 * fVec19[((IOTA - 120) & 127)]) + ((0.00013187999999999999 * fVec19[((IOTA - 117) & 127)]) + ((9.0214000000000001e-05 * fVec19[((IOTA - 116) & 127)]) + ((4.5684500000000006e-05 * fVec19[((IOTA - 115) & 127)]) + ((0.00010922300000000001 * fVec19[((IOTA - 114) & 127)]) + ((0.00012787900000000001 * fVec19[((IOTA - 113) & 127)]) + ((0.00010810400000000001 * fVec19[((IOTA - 112) & 127)]) + ((8.4602100000000008e-05 * fVec19[((IOTA - 111) & 127)]) + ((0.00014129499999999999 * fVec19[((IOTA - 103) & 127)]) + ((0.0011123800000000001 * fVec18[((IOTA - 82) & 127)]) + ((0.0011713800000000001 * fVec19[((IOTA - 96) & 127)]) + ((0.00048376700000000002 * fVec19[((IOTA - 95) & 127)]) + ((0.00040982500000000005 * fVec19[((IOTA - 89) & 127)]) + ((0.00192194 * fVec19[((IOTA - 86) & 127)]) + ((0.00102436 * fVec19[((IOTA - 85) & 127)]) + ((0.00100778 * fVec19[((IOTA - 81) & 127)]) + ((0.00035581800000000004 * fVec19[((IOTA - 80) & 127)]) + ((0.00108387 * fVec19[((IOTA - 78) & 127)]) + ((0.00355741 * fVec19[((IOTA - 77) & 127)]) + ((0.00203951 * fVec19[((IOTA - 76) & 127)]) + ((0.00099792900000000005 * fVec19[((IOTA - 74) & 127)]) + ((0.0044921400000000004 * fVec19[((IOTA - 73) & 127)]) + ((0.00086068200000000009 * fVec19[((IOTA - 69) & 127)]) + ((0.0026953699999999999 * fVec19[((IOTA - 68) & 127)]) + ((0.00069267700000000005 * fVec19[((IOTA - 67) & 127)]) + ((0.0014122200000000001 * fVec19[((IOTA - 62) & 127)]) + ((0.00059297400000000002 * fVec19[((IOTA - 61) & 127)]) + ((0.00053443700000000002 * fVec19[((IOTA - 59) & 127)]) + ((0.0013940900000000002 * fVec19[((IOTA - 58) & 127)]) + ((0.00909628 * fVec19[((IOTA - 50) & 127)]) + ((0.0036924600000000003 * fVec19[((IOTA - 49) & 127)]) + ((0.0046017100000000002 * fVec19[((IOTA - 48) & 127)]) + ((0.0073180300000000005 * fVec19[((IOTA - 47) & 127)]) + ((0.0070144200000000004 * fVec19[((IOTA - 46) & 127)]) + ((0.0020962000000000003 * fVec19[((IOTA - 45) & 127)]) + ((0.0052343400000000005 * fVec19[((IOTA - 44) & 127)]) + ((0.0071723899999999998 * fVec19[((IOTA - 43) & 127)]) + ((0.0036162899999999999 * fVec19[((IOTA - 42) & 127)]) + ((0.010498400000000001 * fVec19[((IOTA - 41) & 127)]) + ((0.0021260799999999998 * fVec19[((IOTA - 40) & 127)]) + ((0.0065524800000000003 * fVec19[((IOTA - 38) & 127)]) + ((0.011496599999999999 * fVec19[((IOTA - 35) & 127)]) + ((0.0010427100000000001 * fVec19[((IOTA - 34) & 127)]) + ((0.0092546800000000012 * fVec19[((IOTA - 31) & 127)]) + ((0.0026388100000000001 * fVec19[((IOTA - 27) & 127)]) + ((0.0128167 * fVec19[((IOTA - 23) & 127)]) + ((0.011590800000000002 * fVec19[((IOTA - 17) & 127)]) + ((0.0038800599999999998 * fVec19[((IOTA - 16) & 127)]) + ((0.022263399999999999 * fVec19[((IOTA - 15) & 127)]) + ((0.020153300000000002 * fVec19[((IOTA - 14) & 127)]) + ((0.042437800000000005 * fVec19[((IOTA - 13) & 127)]) + ((0.047133599999999998 * fVec19[((IOTA - 12) & 127)]) + ((0.00567696 * fVec19[((IOTA - 11) & 127)]) + ((0.00143681 * fVec19[((IOTA - 9) & 127)]) + ((0.00086101400000000001 * fVec19[((IOTA - 7) & 127)]) + ((0.00058492199999999998 * fVec19[((IOTA - 5) & 127)]) + ((6.7829099999999997e-06 * fVec19[((IOTA - 4) & 127)]) + ((0.00025529600000000002 * fVec19[((IOTA - 3) & 127)]) + ((2.9285600000000003e-05 * fVec19[((IOTA - 1) & 127)]) + ((3.8661599999999993e-06 * fTemp19) + ((0.0012833600000000001 * fVec19[((IOTA - 57) & 127)]) + ((0.0031110899999999999 * fVec19[((IOTA - 56) & 127)]) + ((0.0050713199999999998 * fVec19[((IOTA - 55) & 127)]) + ((0.0050443700000000003 * fVec19[((IOTA - 54) & 127)]) + ((0.00419002 * fVec19[((IOTA - 53) & 127)]) + ((1.70851e-05 * fVec20[((IOTA - 122) & 127)]) + ((3.0657300000000002e-05 * fVec20[((IOTA - 121) & 127)]) + ((5.3340699999999993e-07 * fVec20[((IOTA - 120) & 127)]) + ((1.03751e-05 * fVec20[((IOTA - 118) & 127)]) + ((0.0032877399999999999 * fVec19[((IOTA - 51) & 127)]) + ((8.3314900000000018e-05 * fVec20[((IOTA - 117) & 127)]) + ((9.1851000000000012e-05 * fVec20[((IOTA - 112) & 127)]) + ((2.7205700000000003e-05 * fVec20[((IOTA - 111) & 127)]) + ((0.00152143 * fVec20[((IOTA - 82) & 127)]) + ((0.0032921200000000004 * fVec20[((IOTA - 81) & 127)]) + ((0.00193753 * fVec20[((IOTA - 80) & 127)]) + ((0.00062551900000000005 * fVec20[((IOTA - 79) & 127)]) + ((0.00096127300000000012 * fVec20[((IOTA - 70) & 127)]) + ((0.0042903999999999998 * fVec20[((IOTA - 69) & 127)]) + ((0.0037726500000000002 * fVec20[((IOTA - 68) & 127)]) + ((0.00041918000000000001 * fVec20[((IOTA - 66) & 127)]) + ((0.00047510500000000003 * fVec20[((IOTA - 63) & 127)]) + ((0.0017495700000000002 * fVec20[((IOTA - 62) & 127)]) + ((0.0013881099999999999 * fVec20[((IOTA - 61) & 127)]) + ((0.00142376 * fVec20[((IOTA - 59) & 127)]) + ((0.0013234399999999999 * fVec20[((IOTA - 58) & 127)]) + ((0.0023363800000000003 * fVec20[((IOTA - 57) & 127)]) + ((0.0047624399999999997 * fVec20[((IOTA - 56) & 127)]) + ((0.00035963800000000001 * fVec20[((IOTA - 55) & 127)]) + ((0.0014325799999999999 * fVec20[((IOTA - 53) & 127)]) + ((0.0035146700000000001 * fVec20[((IOTA - 50) & 127)]) + ((0.00013482199999999999 * fVec20[((IOTA - 46) & 127)]) + ((0.0031359700000000001 * fVec20[((IOTA - 44) & 127)]) + ((0.0033774600000000001 * fVec20[((IOTA - 43) & 127)]) + ((0.00043131800000000003 * fVec20[((IOTA - 41) & 127)]) + ((0.0017748 * fVec20[((IOTA - 37) & 127)]) + ((0.0095376600000000016 * fVec20[((IOTA - 34) & 127)]) + ((0.011073200000000002 * fVec20[((IOTA - 12) & 127)]) + ((0.00016208700000000002 * fVec20[((IOTA - 11) & 127)]) + ((0.00023927800000000002 * fVec20[((IOTA - 9) & 127)]) + ((0.00099840900000000002 * fVec20[((IOTA - 7) & 127)]) + ((0.00026075800000000004 * fVec20[((IOTA - 3) & 127)]) + ((0.026153100000000002 * fVec20[((IOTA - 19) & 127)]) + ((0.00354222 * fVec20[((IOTA - 31) & 127)]) + ((0.0099954400000000013 * fVec20[((IOTA - 30) & 127)]) + ((0.00581921 * fVec20[((IOTA - 27) & 127)]) + ((0.00064315100000000001 * fVec20[((IOTA - 26) & 127)]) + ((0.016502200000000002 * fVec20[((IOTA - 25) & 127)]) + ((0.015518799999999999 * fVec20[((IOTA - 18) & 127)]) + ((0.011748099999999999 * fVec20[((IOTA - 16) & 127)]) + ((0.024044800000000002 * fVec20[((IOTA - 15) & 127)]) + ((9.0296599999999999e-06 * fVec21[((IOTA - 122) & 127)]) + ((1.9893500000000002e-05 * fVec21[((IOTA - 118) & 127)]) + ((3.7877500000000005e-05 * fVec21[((IOTA - 115) & 127)]) + ((0.00027007400000000003 * fVec21[((IOTA - 103) & 127)]) + ((0.00044415800000000005 * fVec21[((IOTA - 102) & 127)]) + ((0.00031515600000000003 * fVec21[((IOTA - 100) & 127)]) + ((0.00068420899999999997 * fVec21[((IOTA - 99) & 127)]) + ((0.00049268100000000002 * fVec21[((IOTA - 96) & 127)]) + ((0.0015305800000000001 * fVec21[((IOTA - 91) & 127)]) + ((0.0017284399999999999 * fVec21[((IOTA - 90) & 127)]) + ((0.00127253 * fVec21[((IOTA - 89) & 127)]) + ((0.00166752 * fVec21[((IOTA - 88) & 127)]) + ((0.00033490500000000003 * fVec21[((IOTA - 85) & 127)]) + ((0.0011273899999999998 * fVec21[((IOTA - 84) & 127)]) + ((6.2119200000000007e-05 * fVec21[((IOTA - 82) & 127)]) + ((0.0017261400000000001 * fVec21[((IOTA - 81) & 127)]) + ((0.00048162000000000004 * fVec21[((IOTA - 80) & 127)]) + ((0.00071563500000000006 * fVec21[((IOTA - 79) & 127)]) + ((1.14088e-05 * fVec21[((IOTA - 77) & 127)]) + ((0.0014551499999999999 * fVec21[((IOTA - 76) & 127)]) + ((0.00078290800000000002 * fVec21[((IOTA - 73) & 127)]) + ((0.0013603899999999999 * fVec21[((IOTA - 72) & 127)]) + ((0.00076972400000000006 * fVec21[((IOTA - 71) & 127)]) + ((0.0011577500000000001 * fVec21[((IOTA - 70) & 127)]) + ((0.0027559100000000003 * fVec21[((IOTA - 69) & 127)]) + ((0.0011045300000000001 * fVec21[((IOTA - 65) & 127)]) + ((0.0019003900000000001 * fVec21[((IOTA - 64) & 127)]) + ((5.8659000000000002e-05 * fVec21[((IOTA - 63) & 127)]) + ((0.00034302399999999999 * fVec21[((IOTA - 60) & 127)]) + ((0.0015042599999999999 * fVec21[((IOTA - 55) & 127)]) + ((0.0038506399999999998 * fVec21[((IOTA - 54) & 127)]) + ((0.00280679 * fVec21[((IOTA - 53) & 127)]) + ((0.00191281 * fVec21[((IOTA - 51) & 127)]) + ((0.0030454200000000001 * fVec21[((IOTA - 47) & 127)]) + ((0.0010344 * fVec21[((IOTA - 46) & 127)]) + ((0.0021753000000000002 * fVec21[((IOTA - 43) & 127)]) + ((0.00241033 * fVec21[((IOTA - 41) & 127)]) + ((0.0054447699999999998 * fVec21[((IOTA - 34) & 127)]) + ((0.0027451799999999998 * fVec21[((IOTA - 33) & 127)]) + ((0.00192986 * fVec21[((IOTA - 32) & 127)]) + ((0.0050891900000000004 * fVec21[((IOTA - 29) & 127)]) + ((0.010143899999999999 * fVec21[((IOTA - 28) & 127)]) + ((0.0039649200000000002 * fVec21[((IOTA - 27) & 127)]) + ((0.014927200000000002 * fVec21[((IOTA - 24) & 127)]) + ((0.010792999999999999 * fVec21[((IOTA - 23) & 127)]) + ((0.008510160000000001 * fVec21[((IOTA - 22) & 127)]) + ((0.0223719 * fVec21[((IOTA - 21) & 127)]) + ((0.0123166 * fVec21[((IOTA - 20) & 127)]) + ((0.017947399999999999 * fVec21[((IOTA - 19) & 127)]) + ((0.0073694100000000007 * fVec21[((IOTA - 14) & 127)]) + ((0.0142655 * fVec21[((IOTA - 12) & 127)]) + ((0.0067548000000000009 * fVec21[((IOTA - 11) & 127)]) + ((0.0025108100000000005 * fVec21[((IOTA - 9) & 127)]) + ((0.00235191 * fVec21[((IOTA - 7) & 127)]) + ((0.00091979399999999993 * fVec21[((IOTA - 5) & 127)]) + (((6.9716599999999994e-06 * fVec22[((IOTA - 124) & 127)]) + ((9.8485200000000004e-06 * fVec22[((IOTA - 118) & 127)]) + ((0.00010357900000000001 * fVec22[((IOTA - 114) & 127)]) + ((0.00042897299999999997 * fVec22[((IOTA - 113) & 127)]) + ((0.00029024100000000006 * fVec22[((IOTA - 112) & 127)]) + ((9.8297200000000012e-05 * fVec22[((IOTA - 111) & 127)]) + ((0.00020804999999999999 * fVec22[((IOTA - 110) & 127)]) + ((0.00054109500000000001 * fVec22[((IOTA - 109) & 127)]) + ((0.00083962700000000002 * fVec22[((IOTA - 108) & 127)]) + ((0.00056389100000000007 * fVec22[((IOTA - 107) & 127)]) + ((0.00051816800000000006 * fVec22[((IOTA - 106) & 127)]) + ((0.00065456900000000003 * fVec22[((IOTA - 105) & 127)]) + ((0.00088825400000000011 * fVec22[((IOTA - 104) & 127)]) + ((0.000446193 * fVec22[((IOTA - 103) & 127)]) + ((0.00071199100000000003 * fVec22[((IOTA - 102) & 127)]) + ((0.0012468500000000001 * fVec22[((IOTA - 101) & 127)]) + ((0.0012435300000000001 * fVec22[((IOTA - 100) & 127)]) + ((0.0010388900000000002 * fVec22[((IOTA - 99) & 127)]) + ((0.00170268 * fVec22[((IOTA - 98) & 127)]) + ((0.00126004 * fVec22[((IOTA - 97) & 127)]) + ((0.0013548899999999999 * fVec22[((IOTA - 93) & 127)]) + ((0.0020163799999999999 * fVec22[((IOTA - 92) & 127)]) + ((0.0010302600000000001 * fVec22[((IOTA - 89) & 127)]) + ((0.00142103 * fVec22[((IOTA - 88) & 127)]) + ((0.0020040399999999999 * fVec22[((IOTA - 82) & 127)]) + ((0.0030592000000000002 * fVec22[((IOTA - 81) & 127)]) + ((0.00082976100000000015 * fVec22[((IOTA - 80) & 127)]) + ((0.00083032800000000008 * fVec22[((IOTA - 79) & 127)]) + ((0.00146794 * fVec22[((IOTA - 78) & 127)]) + ((0.0029912300000000001 * fVec22[((IOTA - 77) & 127)]) + ((0.0019008400000000002 * fVec22[((IOTA - 76) & 127)]) + ((0.00032308700000000001 * fVec22[((IOTA - 75) & 127)]) + ((0.00121188 * fVec22[((IOTA - 74) & 127)]) + ((0.0015286800000000001 * fVec22[((IOTA - 73) & 127)]) + ((0.0016313200000000001 * fVec22[((IOTA - 72) & 127)]) + ((0.0019843199999999999 * fVec22[((IOTA - 71) & 127)]) + ((0.0031219500000000001 * fVec22[((IOTA - 70) & 127)]) + ((0.0017147500000000001 * fVec22[((IOTA - 69) & 127)]) + ((4.5241600000000004e-05 * fVec22[((IOTA - 68) & 127)]) + ((0.00193403 * fVec22[((IOTA - 67) & 127)]) + ((0.00103439 * fVec22[((IOTA - 66) & 127)]) + ((0.00025587599999999999 * fVec22[((IOTA - 61) & 127)]) + ((0.0014905299999999999 * fVec22[((IOTA - 60) & 127)]) + ((0.000502175 * fVec22[((IOTA - 59) & 127)]) + ((0.00055048599999999999 * fVec22[((IOTA - 58) & 127)]) + ((0.00049892100000000004 * fVec22[((IOTA - 50) & 127)]) + ((0.0029968600000000001 * fVec22[((IOTA - 47) & 127)]) + ((0.0024887899999999998 * fVec22[((IOTA - 46) & 127)]) + ((0.0030320900000000003 * fVec22[((IOTA - 41) & 127)]) + ((0.0076587399999999998 * fVec22[((IOTA - 40) & 127)]) + ((0.010064699999999999 * fVec22[((IOTA - 35) & 127)]) + ((0.030136699999999999 * fVec22[((IOTA - 32) & 127)]) + ((0.017341200000000001 * fVec22[((IOTA - 31) & 127)]) + ((0.039170099999999999 * fVec22[((IOTA - 28) & 127)]) + ((0.00031563800000000003 * fVec22[((IOTA - 27) & 127)]) + ((0.0030320200000000003 * fVec22[((IOTA - 11) & 127)]) + ((0.00131485 * fVec22[((IOTA - 9) & 127)]) + ((0.0011081700000000001 * fVec22[((IOTA - 7) & 127)]) + ((0.00036208399999999998 * fVec22[((IOTA - 5) & 127)]) + ((0.00017773600000000001 * fVec22[((IOTA - 3) & 127)]) + ((0.00069887100000000011 * fVec22[((IOTA - 25) & 127)]) + ((0.025458500000000002 * fVec22[((IOTA - 24) & 127)]) + ((0.0120184 * fVec22[((IOTA - 21) & 127)]) + ((0.011691100000000001 * fVec22[((IOTA - 19) & 127)]) + ((0.0053095800000000004 * fVec22[((IOTA - 14) & 127)]) + ((6.574880000000001e-05 * fVec23[((IOTA - 115) & 127)]) + ((0.0072171800000000001 * fVec22[((IOTA - 12) & 127)]) + ((7.5893800000000015e-05 * fVec23[((IOTA - 114) & 127)]) + ((0.00055035400000000008 * fVec23[((IOTA - 113) & 127)]) + ((0.00054230400000000007 * fVec23[((IOTA - 112) & 127)]) + ((0.00038862600000000004 * fVec23[((IOTA - 111) & 127)]) + ((0.00038355300000000002 * fVec23[((IOTA - 110) & 127)]) + ((0.0010789999999999999 * fVec23[((IOTA - 109) & 127)]) + ((0.00127535 * fVec23[((IOTA - 108) & 127)]) + ((0.00026040700000000004 * fVec23[((IOTA - 107) & 127)]) + ((0.00064190699999999994 * fVec23[((IOTA - 106) & 127)]) + ((0.0012643700000000001 * fVec23[((IOTA - 105) & 127)]) + ((0.0014951399999999998 * fVec23[((IOTA - 104) & 127)]) + ((0.00096466700000000011 * fVec23[((IOTA - 103) & 127)]) + ((0.00062200899999999997 * fVec23[((IOTA - 102) & 127)]) + ((0.0013151 * fVec23[((IOTA - 101) & 127)]) + ((0.00155276 * fVec23[((IOTA - 100) & 127)]) + ((0.00147963 * fVec23[((IOTA - 99) & 127)]) + ((0.0012132899999999999 * fVec23[((IOTA - 96) & 127)]) + ((0.0010497099999999999 * fVec23[((IOTA - 95) & 127)]) + ((5.4447799999999994e-06 * fVec23[((IOTA - 91) & 127)]) + ((0.00060830200000000002 * fVec23[((IOTA - 82) & 127)]) + ((0.00073753600000000001 * fVec23[((IOTA - 81) & 127)]) + ((4.1098800000000007e-05 * fVec23[((IOTA - 76) & 127)]) + ((0.00031511100000000003 * fVec23[((IOTA - 74) & 127)]) + ((0.0011385200000000001 * fVec23[((IOTA - 73) & 127)]) + ((0.0023925600000000002 * fVec23[((IOTA - 72) & 127)]) + ((0.00191902 * fVec23[((IOTA - 71) & 127)]) + ((0.00073584900000000001 * fVec23[((IOTA - 70) & 127)]) + ((0.0033698500000000002 * fVec23[((IOTA - 69) & 127)]) + ((0.0046562499999999998 * fVec23[((IOTA - 68) & 127)]) + ((0.0026088700000000001 * fVec23[((IOTA - 67) & 127)]) + ((0.0015381499999999998 * fVec23[((IOTA - 66) & 127)]) + ((0.00177024 * fVec23[((IOTA - 65) & 127)]) + ((0.0027169400000000002 * fVec23[((IOTA - 64) & 127)]) + ((0.0011334100000000001 * fVec23[((IOTA - 61) & 127)]) + ((0.0012374899999999999 * fVec23[((IOTA - 57) & 127)]) + ((0.00350462 * fVec23[((IOTA - 56) & 127)]) + ((0.00029472900000000003 * fVec23[((IOTA - 55) & 127)]) + ((0.00161133 * fVec23[((IOTA - 49) & 127)]) + ((0.0043256300000000004 * fVec23[((IOTA - 43) & 127)]) + ((0.0039263700000000002 * fVec23[((IOTA - 38) & 127)]) + ((0.0193136 * fVec23[((IOTA - 37) & 127)]) + ((0.0137585 * fVec23[((IOTA - 34) & 127)]) + ((0.016165499999999999 * fVec23[((IOTA - 31) & 127)]) + ((0.0200181 * fVec23[((IOTA - 30) & 127)]) + ((0.00436148 * fVec23[((IOTA - 27) & 127)]) + ((0.0115485 * fVec23[((IOTA - 25) & 127)]) + ((0.0032127699999999998 * fVec23[((IOTA - 23) & 127)]) + ((0.0057804000000000006 * fVec23[((IOTA - 22) & 127)]) + ((0.037111700000000004 * fVec23[((IOTA - 19) & 127)]) + ((0.014907300000000002 * fVec23[((IOTA - 18) & 127)]) + ((0.0092683000000000001 * fVec23[((IOTA - 16) & 127)]) + ((0.0158698 * fVec23[((IOTA - 15) & 127)]) + ((0.00489909 * fVec23[((IOTA - 12) & 127)]) + ((0.00036272099999999999 * fVec23[((IOTA - 11) & 127)]) + ((0.00043871700000000003 * fVec23[((IOTA - 10) & 127)]) + ((0.00018132700000000001 * fVec23[((IOTA - 9) & 127)]) + ((0.00097058900000000011 * fVec23[((IOTA - 7) & 127)]) + ((0.00016036100000000001 * fVec23[((IOTA - 6) & 127)]) + (((1.8656099999999998e-06 * fVec9[((IOTA - 126) & 127)]) + ((2.5639300000000001e-06 * fVec9[((IOTA - 125) & 127)]) + ((8.3185099999999991e-06 * fVec9[((IOTA - 124) & 127)]) + ((3.8801999999999999e-05 * fVec9[((IOTA - 123) & 127)]) + ((6.5230500000000005e-05 * fVec9[((IOTA - 122) & 127)]) + ((4.81323e-05 * fVec9[((IOTA - 121) & 127)]) + ((3.1175000000000006e-05 * fVec9[((IOTA - 120) & 127)]) + ((1.1129000000000001e-05 * fVec9[((IOTA - 119) & 127)]) + ((0.00016385400000000001 * fVec9[((IOTA - 118) & 127)]) + ((0.000137362 * fVec9[((IOTA - 117) & 127)]) + ((9.139900000000001e-05 * fVec9[((IOTA - 116) & 127)]) + ((0.00012562199999999998 * fVec9[((IOTA - 115) & 127)]) + ((0.00025063300000000005 * fVec9[((IOTA - 113) & 127)]) + ((0.000272806 * fVec9[((IOTA - 112) & 127)]) + ((0.000314307 * fVec9[((IOTA - 111) & 127)]) + ((0.00026935700000000002 * fVec9[((IOTA - 110) & 127)]) + ((0.00027303400000000002 * fVec9[((IOTA - 109) & 127)]) + ((8.74662e-06 * fVec9[((IOTA - 108) & 127)]) + ((0.00035653000000000003 * fVec9[((IOTA - 106) & 127)]) + ((0.000138672 * fVec9[((IOTA - 91) & 127)]) + ((0.0011749499999999999 * fVec9[((IOTA - 81) & 127)]) + ((0.00092974400000000003 * fVec9[((IOTA - 76) & 127)]) + ((0.00189912 * fVec9[((IOTA - 75) & 127)]) + ((0.0018498099999999999 * fVec9[((IOTA - 74) & 127)]) + ((0.00102903 * fVec9[((IOTA - 70) & 127)]) + ((0.0023879000000000001 * fVec9[((IOTA - 69) & 127)]) + ((0.0030104600000000004 * fVec9[((IOTA - 68) & 127)]) + ((0.00157916 * fVec9[((IOTA - 67) & 127)]) + ((0.0021747000000000003 * fVec9[((IOTA - 66) & 127)]) + ((0.0024374800000000001 * fVec9[((IOTA - 65) & 127)]) + ((0.0017056100000000002 * fVec9[((IOTA - 64) & 127)]) + ((0.00246014 * fVec9[((IOTA - 63) & 127)]) + ((0.0044470300000000003 * fVec9[((IOTA - 62) & 127)]) + ((0.0047484400000000005 * fVec9[((IOTA - 61) & 127)]) + ((0.0027951100000000004 * fVec9[((IOTA - 60) & 127)]) + ((0.0037710400000000002 * fVec9[((IOTA - 58) & 127)]) + ((0.0045419900000000001 * fVec9[((IOTA - 57) & 127)]) + ((0.010441600000000001 * fVec9[((IOTA - 56) & 127)]) + ((0.0100582 * fVec9[((IOTA - 55) & 127)]) + ((0.0076609499999999997 * fVec9[((IOTA - 54) & 127)]) + ((0.0068764300000000002 * fVec9[((IOTA - 53) & 127)]) + ((0.0095819500000000005 * fVec9[((IOTA - 52) & 127)]) + ((0.015913200000000002 * fVec9[((IOTA - 51) & 127)]) + ((0.015119400000000002 * fVec9[((IOTA - 50) & 127)]) + ((0.0128559 * fVec9[((IOTA - 49) & 127)]) + ((0.016606200000000002 * fVec9[((IOTA - 48) & 127)]) + ((0.016194200000000002 * fVec9[((IOTA - 47) & 127)]) + ((0.0116756 * fVec9[((IOTA - 46) & 127)]) + ((0.008875280000000001 * fVec9[((IOTA - 45) & 127)]) + ((0.016079200000000002 * fVec9[((IOTA - 44) & 127)]) + ((0.0188738 * fVec9[((IOTA - 43) & 127)]) + ((0.022184499999999999 * fVec9[((IOTA - 42) & 127)]) + ((0.020373700000000002 * fVec9[((IOTA - 41) & 127)]) + ((0.0086227300000000003 * fVec9[((IOTA - 40) & 127)]) + ((0.015368999999999999 * fVec9[((IOTA - 39) & 127)]) + ((0.025263300000000002 * fVec9[((IOTA - 38) & 127)]) + ((0.026966700000000003 * fVec9[((IOTA - 37) & 127)]) + ((0.023967600000000002 * fVec9[((IOTA - 36) & 127)]) + ((0.0180915 * fVec9[((IOTA - 35) & 127)]) + ((0.026436999999999999 * fVec9[((IOTA - 34) & 127)]) + ((0.035762599999999999 * fVec9[((IOTA - 33) & 127)]) + ((0.019380700000000001 * fVec9[((IOTA - 32) & 127)]) + ((0.0052166499999999998 * fVec9[((IOTA - 31) & 127)]) + ((0.012525700000000001 * fVec9[((IOTA - 30) & 127)]) + ((0.039007399999999998 * fVec9[((IOTA - 29) & 127)]) + ((0.039406500000000004 * fVec9[((IOTA - 28) & 127)]) + ((0.0160175 * fVec9[((IOTA - 27) & 127)]) + ((0.0095142000000000004 * fVec9[((IOTA - 26) & 127)]) + ((0.00060328500000000006 * fVec9[((IOTA - 25) & 127)]) + ((0.042794800000000008 * fVec9[((IOTA - 24) & 127)]) + ((0.034687500000000003 * fVec9[((IOTA - 23) & 127)]) + ((0.0011779100000000001 * fVec9[((IOTA - 10) & 127)]) + ((0.000167329 * fVec9[((IOTA - 8) & 127)]) + ((0.00041459900000000003 * fVec9[((IOTA - 6) & 127)]) + ((0.00031506200000000001 * fVec9[((IOTA - 2) & 127)]) + ((0.00054486499999999995 * fVec24[((IOTA - 97) & 127)]) + ((0.0024969700000000003 * fVec24[((IOTA - 92) & 127)]) + ((0.0014838199999999998 * fVec24[((IOTA - 91) & 127)]) + ((0.00134669 * fVec24[((IOTA - 89) & 127)]) + ((0.00141242 * fVec24[((IOTA - 88) & 127)]) + ((0.000311911 * fVec24[((IOTA - 84) & 127)]) + ((0.0010694400000000001 * fVec24[((IOTA - 81) & 127)]) + (((((0.00017378000000000001 * fVec24[((IOTA - 2) & 127)]) + (0.015415000000000002 * fVec24[((IOTA - 24) & 127)])) + (0.0114164 * fVec24[((IOTA - 28) & 127)])) + (0.0029673899999999999 * fVec24[((IOTA - 47) & 127)])) + (0.0047547600000000002 * fVec9[((IOTA - 59) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00019245000000000002 * fVec23[((IOTA - 3) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00050699800000000004 * fVec21[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.68655e-05 * fTemp17))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (fRec1[0] * ((((8.7891600000000009e-07 * fVec0[((IOTA - 126) & 127)]) + ((2.13798e-06 * fVec0[((IOTA - 125) & 127)]) + ((3.8383899999999997e-06 * fVec0[((IOTA - 124) & 127)]) + ((5.9589300000000002e-05 * fVec0[((IOTA - 114) & 127)]) + ((6.5764600000000004e-05 * fVec0[((IOTA - 113) & 127)]) + ((0.00021162899999999999 * fVec0[((IOTA - 112) & 127)]) + ((4.5487700000000008e-05 * fVec0[((IOTA - 109) & 127)]) + ((4.3592100000000006e-05 * fVec0[((IOTA - 107) & 127)]) + ((0.000224978 * fVec0[((IOTA - 105) & 127)]) + ((0.00052132399999999998 * fVec0[((IOTA - 104) & 127)]) + ((0.00048330599999999997 * fVec0[((IOTA - 103) & 127)]) + ((0.00071050799999999999 * fVec0[((IOTA - 102) & 127)]) + ((0.00063433500000000009 * fVec0[((IOTA - 101) & 127)]) + ((0.00044372900000000002 * fVec0[((IOTA - 100) & 127)]) + ((0.000330823 * fVec0[((IOTA - 99) & 127)]) + ((0.00039405700000000001 * fVec0[((IOTA - 98) & 127)]) + ((4.5460600000000003e-05 * fVec0[((IOTA - 97) & 127)]) + ((0.0005875600000000001 * fVec0[((IOTA - 95) & 127)]) + ((7.4827500000000015e-05 * fVec0[((IOTA - 94) & 127)]) + ((((((((((((((((((((0.00074562900000000004 * fVec0[((IOTA - 86) & 127)]) + ((0.0020883 * fVec0[((IOTA - 85) & 127)]) + ((0.0010964799999999999 * fVec0[((IOTA - 84) & 127)]) + ((0.00030719900000000002 * fVec0[((IOTA - 83) & 127)]) + ((0.00081686200000000012 * fVec0[((IOTA - 82) & 127)]) + ((0.00092738999999999994 * fVec0[((IOTA - 81) & 127)]) + ((0.0012767800000000001 * fVec0[((IOTA - 79) & 127)]) + ((0.0012493700000000001 * fVec0[((IOTA - 78) & 127)]) + ((0.00032623600000000004 * fVec0[((IOTA - 76) & 127)]) + ((0.00127728 * fVec0[((IOTA - 73) & 127)]) + ((0.00294839 * fVec0[((IOTA - 72) & 127)]) + ((0.0012133199999999999 * fVec0[((IOTA - 71) & 127)]) + ((0.00090787099999999998 * fVec0[((IOTA - 59) & 127)]) + ((6.1440200000000009e-05 * fVec0[((IOTA - 58) & 127)]) + ((0.000132287 * fVec0[((IOTA - 57) & 127)]) + ((0.00017799499999999999 * fVec0[((IOTA - 55) & 127)]) + ((1.8103599999999998e-06 * fVec0[((IOTA - 53) & 127)]) + ((0.0035657499999999999 * fVec0[((IOTA - 52) & 127)]) + ((0.00186571 * fVec0[((IOTA - 51) & 127)]) + ((0.00106006 * fVec0[((IOTA - 49) & 127)]) + ((0.00134358 * fVec0[((IOTA - 48) & 127)]) + ((0.0065925900000000006 * fVec0[((IOTA - 47) & 127)]) + ((0.0032892700000000004 * fVec0[((IOTA - 46) & 127)]) + ((0.00571376 * fVec0[((IOTA - 43) & 127)]) + ((0.0031513300000000004 * fVec0[((IOTA - 42) & 127)]) + ((8.3406000000000007e-05 * fVec0[((IOTA - 40) & 127)]) + ((0.0083352199999999991 * fVec0[((IOTA - 39) & 127)]) + ((0.0021927500000000003 * fVec0[((IOTA - 38) & 127)]) + ((2.3535099999999999e-06 * fVec1[((IOTA - 125) & 127)]) + ((6.8823199999999997e-07 * fVec1[((IOTA - 124) & 127)]) + ((1.7898600000000002e-05 * fVec1[((IOTA - 113) & 127)]) + ((0.00023630399999999998 * fVec1[((IOTA - 109) & 127)]) + ((0.00012162599999999999 * fVec1[((IOTA - 108) & 127)]) + ((0.000113249 * fVec1[((IOTA - 106) & 127)]) + ((0.00024597200000000001 * fVec1[((IOTA - 105) & 127)]) + ((0.000398374 * fVec1[((IOTA - 104) & 127)]) + ((0.00061746999999999995 * fVec1[((IOTA - 103) & 127)]) + ((5.8344399999999994e-07 * fVec1[((IOTA - 102) & 127)]) + ((8.2155600000000003e-06 * fVec1[((IOTA - 100) & 127)]) + ((0.00080468499999999997 * fVec1[((IOTA - 99) & 127)]) + ((0.00094507800000000002 * fVec1[((IOTA - 98) & 127)]) + ((0.00045216100000000002 * fVec1[((IOTA - 97) & 127)]) + ((0.00031561499999999999 * fVec1[((IOTA - 96) & 127)]) + ((0.00047134100000000001 * fVec1[((IOTA - 95) & 127)]) + ((0.00069274800000000008 * fVec1[((IOTA - 94) & 127)]) + ((0.0014052000000000001 * fVec1[((IOTA - 93) & 127)]) + ((0.00040994799999999999 * fVec1[((IOTA - 92) & 127)]) + ((0.0034650500000000003 * fVec1[((IOTA - 46) & 127)]) + ((0.0047482499999999999 * fVec1[((IOTA - 45) & 127)]) + ((0.0070738099999999998 * fVec1[((IOTA - 42) & 127)]) + ((0.0044454100000000003 * fVec1[((IOTA - 40) & 127)]) + ((0.0047369300000000003 * fVec1[((IOTA - 39) & 127)]) + ((0.011450700000000001 * fVec1[((IOTA - 36) & 127)]) + ((0.017145500000000001 * fVec1[((IOTA - 33) & 127)]) + ((0.0023752499999999998 * fVec1[((IOTA - 32) & 127)]) + ((0.0079500400000000002 * fVec1[((IOTA - 30) & 127)]) + ((0.010459599999999999 * fVec1[((IOTA - 29) & 127)]) + ((0.0025976200000000001 * fVec1[((IOTA - 27) & 127)]) + ((0.016936400000000001 * fVec1[((IOTA - 24) & 127)]) + ((0.0285481 * fVec1[((IOTA - 23) & 127)]) + ((0.012527699999999999 * fVec1[((IOTA - 21) & 127)]) + ((0.0068624900000000006 * fVec1[((IOTA - 20) & 127)]) + ((0.0059164899999999999 * fVec1[((IOTA - 18) & 127)]) + ((0.0054672200000000001 * fVec1[((IOTA - 17) & 127)]) + ((0.0048873499999999995 * fVec1[((IOTA - 14) & 127)]) + ((0.0016455200000000001 * fVec1[((IOTA - 13) & 127)]) + ((0.000402347 * fVec1[((IOTA - 12) & 127)]) + ((0.00052282000000000001 * fVec1[((IOTA - 11) & 127)]) + ((0.00052120499999999995 * fVec1[((IOTA - 9) & 127)]) + ((0.00038794200000000001 * fVec1[((IOTA - 7) & 127)]) + ((0.00069996900000000005 * fVec1[((IOTA - 5) & 127)]) + ((4.2711400000000006e-05 * fVec1[((IOTA - 1) & 127)]) + ((0.0030267599999999999 * fVec1[((IOTA - 52) & 127)]) + ((0.00017370600000000001 * fVec1[((IOTA - 49) & 127)]) + ((0.0011113 * fVec1[((IOTA - 90) & 127)]) + ((0.00094376900000000001 * fVec1[((IOTA - 89) & 127)]) + ((2.9439099999999997e-06 * fVec1[((IOTA - 86) & 127)]) + ((0.000122065 * fVec1[((IOTA - 85) & 127)]) + ((0.00070423299999999996 * fVec1[((IOTA - 82) & 127)]) + ((0.00072425400000000002 * fVec1[((IOTA - 81) & 127)]) + ((0.00091705600000000008 * fVec1[((IOTA - 80) & 127)]) + ((0.0013588599999999999 * fVec1[((IOTA - 68) & 127)]) + ((0.0019555700000000002 * fVec1[((IOTA - 67) & 127)]) + ((0.0022902399999999998 * fVec1[((IOTA - 66) & 127)]) + ((0.00089318700000000004 * fVec1[((IOTA - 65) & 127)]) + ((0.00055652499999999999 * fVec1[((IOTA - 64) & 127)]) + ((0.0013175300000000001 * fVec1[((IOTA - 63) & 127)]) + ((0.0026977899999999998 * fVec1[((IOTA - 62) & 127)]) + ((0.0050601500000000002 * fVec1[((IOTA - 61) & 127)]) + ((0.00138116 * fVec1[((IOTA - 60) & 127)]) + ((1.2439699999999999e-06 * fVec2[((IOTA - 126) & 127)]) + ((0.00047993200000000003 * fVec2[((IOTA - 111) & 127)]) + ((0.00064053100000000006 * fVec2[((IOTA - 110) & 127)]) + ((0.00079346300000000011 * fVec2[((IOTA - 107) & 127)]) + ((0.00071335300000000012 * fVec2[((IOTA - 106) & 127)]) + ((0.00039982700000000006 * fVec2[((IOTA - 105) & 127)]) + ((0.00059741799999999995 * fVec2[((IOTA - 103) & 127)]) + ((0.00146408 * fVec2[((IOTA - 102) & 127)]) + ((0.000423628 * fVec2[((IOTA - 101) & 127)]) + ((0.00085437899999999995 * fVec2[((IOTA - 99) & 127)]) + ((0.0018223600000000001 * fVec2[((IOTA - 98) & 127)]) + ((0.0014952799999999999 * fVec2[((IOTA - 97) & 127)]) + ((1.0971399999999999e-06 * fVec2[((IOTA - 96) & 127)]) + ((0.00025442800000000001 * fVec2[((IOTA - 95) & 127)]) + ((0.0020445400000000001 * fVec2[((IOTA - 54) & 127)]) + ((0.0029146700000000003 * fVec2[((IOTA - 53) & 127)]) + ((0.0050671200000000005 * fVec2[((IOTA - 52) & 127)]) + ((0.0055215200000000002 * fVec2[((IOTA - 51) & 127)]) + ((0.00247781 * fVec2[((IOTA - 50) & 127)]) + ((0.0028622500000000002 * fVec2[((IOTA - 49) & 127)]) + ((0.0043047199999999997 * fVec2[((IOTA - 48) & 127)]) + ((0.0050508000000000003 * fVec2[((IOTA - 47) & 127)]) + ((0.0046696999999999997 * fVec2[((IOTA - 46) & 127)]) + ((0.0063979799999999993 * fVec2[((IOTA - 45) & 127)]) + ((0.0023229500000000003 * fVec2[((IOTA - 44) & 127)]) + ((0.0018713100000000002 * fVec2[((IOTA - 42) & 127)]) + ((0.0013015000000000001 * fVec2[((IOTA - 33) & 127)]) + ((0.0059736599999999996 * fVec2[((IOTA - 32) & 127)]) + ((0.00466849 * fVec2[((IOTA - 29) & 127)]) + ((0.0129721 * fVec2[((IOTA - 26) & 127)]) + ((0.033185600000000003 * fVec2[((IOTA - 25) & 127)]) + ((0.0144081 * fVec2[((IOTA - 24) & 127)]) + ((0.037911500000000001 * fVec2[((IOTA - 23) & 127)]) + ((0.042685100000000004 * fVec2[((IOTA - 22) & 127)]) + ((0.0139343 * fVec2[((IOTA - 21) & 127)]) + ((0.0146813 * fVec2[((IOTA - 18) & 127)]) + ((0.035285799999999999 * fVec2[((IOTA - 13) & 127)]) + ((0.029631599999999998 * fVec2[((IOTA - 12) & 127)]) + ((0.0080319299999999996 * fVec2[((IOTA - 11) & 127)]) + ((0.0023853500000000001 * fVec2[((IOTA - 9) & 127)]) + ((0.00110753 * fVec2[((IOTA - 7) & 127)]) + ((7.2946600000000004e-05 * fVec2[((IOTA - 5) & 127)]) + ((9.9022600000000003e-05 * fVec2[((IOTA - 4) & 127)]) + ((2.4865500000000001e-05 * fTemp2) + ((0.00141333 * fVec2[((IOTA - 59) & 127)]) + ((0.00043207300000000005 * fVec2[((IOTA - 87) & 127)]) + ((0.00011911000000000002 * fVec2[((IOTA - 86) & 127)]) + ((0.0010146599999999999 * fVec2[((IOTA - 78) & 127)]) + ((0.0022639300000000004 * fVec2[((IOTA - 77) & 127)]) + ((0.0023445299999999996 * fVec2[((IOTA - 76) & 127)]) + ((0.00117332 * fVec2[((IOTA - 75) & 127)]) + ((0.00012271000000000002 * fVec2[((IOTA - 73) & 127)]) + ((0.0012369900000000001 * fVec2[((IOTA - 72) & 127)]) + ((0.0012845700000000001 * fVec2[((IOTA - 71) & 127)]) + ((0.0020734499999999997 * fVec2[((IOTA - 70) & 127)]) + ((0.00071453400000000007 * fVec2[((IOTA - 69) & 127)]) + ((0.0025929000000000004 * fVec2[((IOTA - 66) & 127)]) + ((5.33039e-06 * fVec3[((IOTA - 124) & 127)]) + ((2.5657100000000002e-05 * fVec3[((IOTA - 123) & 127)]) + ((3.6885000000000003e-05 * fVec3[((IOTA - 122) & 127)]) + ((6.3795399999999999e-06 * fVec3[((IOTA - 121) & 127)]) + ((9.4831099999999997e-06 * fVec3[((IOTA - 115) & 127)]) + ((2.9261400000000004e-05 * fVec3[((IOTA - 114) & 127)]) + ((0.000131404 * fVec3[((IOTA - 113) & 127)]) + ((0.00013365499999999999 * fVec3[((IOTA - 112) & 127)]) + ((4.31971e-05 * fVec3[((IOTA - 109) & 127)]) + ((0.00012369400000000001 * fVec3[((IOTA - 108) & 127)]) + ((0.00019079900000000001 * fVec3[((IOTA - 100) & 127)]) + ((5.9783799999999997e-06 * fVec3[((IOTA - 98) & 127)]) + ((0.0012019699999999999 * fVec3[((IOTA - 97) & 127)]) + ((0.0020851700000000003 * fVec3[((IOTA - 96) & 127)]) + ((0.00026872700000000002 * fVec3[((IOTA - 92) & 127)]) + ((0.00087657299999999996 * fVec3[((IOTA - 91) & 127)]) + ((0.000467904 * fVec3[((IOTA - 90) & 127)]) + ((0.0022150300000000002 * fVec3[((IOTA - 52) & 127)]) + ((0.0012555400000000001 * fVec3[((IOTA - 51) & 127)]) + ((0.0035995400000000005 * fVec3[((IOTA - 48) & 127)]) + ((0.00089967400000000016 * fVec3[((IOTA - 45) & 127)]) + ((0.00088876600000000004 * fVec3[((IOTA - 43) & 127)]) + ((0.0011795500000000001 * fVec3[((IOTA - 42) & 127)]) + ((0.0046426699999999998 * fVec3[((IOTA - 39) & 127)]) + ((0.0016583300000000002 * fVec3[((IOTA - 38) & 127)]) + ((0.0051621699999999998 * fVec3[((IOTA - 36) & 127)]) + ((0.0080632599999999992 * fVec3[((IOTA - 35) & 127)]) + ((0.00157599 * fVec3[((IOTA - 32) & 127)]) + ((0.015070099999999999 * fVec3[((IOTA - 31) & 127)]) + ((0.00011657599999999999 * fVec3[((IOTA - 29) & 127)]) + ((0.00174132 * fVec3[((IOTA - 27) & 127)]) + ((0.0013890300000000001 * fVec3[((IOTA - 25) & 127)]) + ((8.8277000000000009e-05 * fVec3[((IOTA - 24) & 127)]) + ((0.015129699999999999 * fVec3[((IOTA - 22) & 127)]) + ((0.0037970199999999999 * fVec3[((IOTA - 19) & 127)]) + ((0.0040573900000000001 * fVec3[((IOTA - 17) & 127)]) + ((0.0014204600000000001 * fVec3[((IOTA - 14) & 127)]) + ((0.0013988000000000002 * fVec3[((IOTA - 13) & 127)]) + ((0.00012460800000000001 * fVec3[((IOTA - 11) & 127)]) + ((5.5101800000000008e-05 * fVec3[((IOTA - 9) & 127)]) + ((0.00012828900000000002 * fVec3[((IOTA - 7) & 127)]) + ((0.00014925 * fVec3[((IOTA - 5) & 127)]) + ((4.5166200000000001e-05 * fVec3[((IOTA - 3) & 127)]) + ((1.5119900000000001e-05 * fVec3[((IOTA - 1) & 127)]) + ((0.00492437 * fVec3[((IOTA - 55) & 127)]) + ((0.0013854399999999999 * fVec3[((IOTA - 54) & 127)]) + ((0.00017813400000000001 * fVec3[((IOTA - 84) & 127)]) + ((0.00078785699999999999 * fVec3[((IOTA - 83) & 127)]) + ((0.00058893599999999997 * fVec3[((IOTA - 82) & 127)]) + ((0.00123329 * fVec3[((IOTA - 79) & 127)]) + ((0.00205091 * fVec3[((IOTA - 78) & 127)]) + ((0.00098058400000000006 * fVec3[((IOTA - 77) & 127)]) + ((0.0011948000000000002 * fVec3[((IOTA - 72) & 127)]) + ((0.0011723900000000002 * fVec3[((IOTA - 71) & 127)]) + ((0.00025078000000000004 * fVec3[((IOTA - 70) & 127)]) + ((0.000315598 * fVec3[((IOTA - 69) & 127)]) + ((0.00034212800000000003 * fVec3[((IOTA - 68) & 127)]) + ((0.00010491900000000002 * fVec3[((IOTA - 67) & 127)]) + ((0.0012219899999999998 * fVec3[((IOTA - 61) & 127)]) + ((4.8898900000000001e-07 * fVec4[((IOTA - 126) & 127)]) + ((6.8207099999999996e-06 * fVec4[((IOTA - 123) & 127)]) + ((4.3675400000000005e-05 * fVec4[((IOTA - 122) & 127)]) + ((2.5023000000000001e-05 * fVec4[((IOTA - 121) & 127)]) + ((3.1796299999999999e-05 * fVec4[((IOTA - 113) & 127)]) + ((1.2067000000000002e-05 * fVec4[((IOTA - 112) & 127)]) + ((2.4852899999999999e-06 * fVec4[((IOTA - 107) & 127)]) + ((0.00010799700000000002 * fVec4[((IOTA - 105) & 127)]) + ((0.00045528000000000007 * fVec4[((IOTA - 104) & 127)]) + ((0.000126907 * fVec4[((IOTA - 103) & 127)]) + ((0.00017260300000000001 * fVec4[((IOTA - 102) & 127)]) + ((0.00014158200000000001 * fVec4[((IOTA - 98) & 127)]) + ((0.00150157 * fVec4[((IOTA - 97) & 127)]) + ((0.0011047400000000001 * fVec4[((IOTA - 96) & 127)]) + ((0.00044206500000000006 * fVec4[((IOTA - 94) & 127)]) + ((0.000917368 * fVec4[((IOTA - 93) & 127)]) + ((0.00129043 * fVec4[((IOTA - 92) & 127)]) + ((0.00084990400000000018 * fVec4[((IOTA - 91) & 127)]) + ((0.00034780400000000001 * fVec4[((IOTA - 87) & 127)]) + ((0.00075464000000000011 * fVec4[((IOTA - 86) & 127)]) + ((0.00109117 * fVec4[((IOTA - 82) & 127)]) + ((0.0015208400000000001 * fVec4[((IOTA - 81) & 127)]) + ((0.00035611100000000005 * fVec4[((IOTA - 80) & 127)]) + ((0.0013705 * fVec4[((IOTA - 77) & 127)]) + ((0.000211399 * fVec4[((IOTA - 76) & 127)]) + ((0.0014127 * fVec4[((IOTA - 72) & 127)]) + ((4.1167199999999996e-06 * fVec5[((IOTA - 125) & 127)]) + ((5.7300899999999997e-06 * fVec5[((IOTA - 124) & 127)]) + ((0.0145401 * fVec4[((IOTA - 13) & 127)]) + ((0.020249199999999998 * fVec4[((IOTA - 12) & 127)]) + ((0.0040707800000000004 * fVec4[((IOTA - 11) & 127)]) + ((4.0082300000000008e-05 * fVec4[((IOTA - 10) & 127)]) + ((0.00078458800000000002 * fVec4[((IOTA - 6) & 127)]) + ((0.00028978000000000001 * fVec4[((IOTA - 4) & 127)]) + ((9.0877899999999989e-06 * fVec4[((IOTA - 3) & 127)]) + ((0.0018515900000000002 * fVec4[((IOTA - 70) & 127)]) + ((0.0030167600000000003 * fVec4[((IOTA - 69) & 127)]) + ((0.00050696599999999997 * fVec4[((IOTA - 65) & 127)]) + ((0.0010659000000000001 * fVec4[((IOTA - 64) & 127)]) + ((0.0010421499999999999 * fVec4[((IOTA - 63) & 127)]) + ((0.00084516700000000008 * fVec4[((IOTA - 57) & 127)]) + ((0.0042148799999999998 * fVec4[((IOTA - 56) & 127)]) + ((0.0036031800000000001 * fVec4[((IOTA - 55) & 127)]) + ((0.0012747400000000001 * fVec4[((IOTA - 54) & 127)]) + ((0.00022847000000000001 * fVec4[((IOTA - 53) & 127)]) + ((0.0010076 * fVec4[((IOTA - 50) & 127)]) + ((0.00686201 * fVec4[((IOTA - 49) & 127)]) + ((0.0037995999999999998 * fVec4[((IOTA - 48) & 127)]) + ((0.00010534699999999999 * fVec4[((IOTA - 44) & 127)]) + ((0.0061074099999999997 * fVec4[((IOTA - 41) & 127)]) + ((0.0060289400000000009 * fVec4[((IOTA - 40) & 127)]) + ((0.00066093200000000003 * fVec4[((IOTA - 37) & 127)]) + ((0.0062985100000000002 * fVec4[((IOTA - 36) & 127)]) + ((0.0052902100000000001 * fVec4[((IOTA - 30) & 127)]) + ((0.023343600000000003 * fVec4[((IOTA - 29) & 127)]) + ((0.026311200000000003 * fVec4[((IOTA - 28) & 127)]) + ((0.00744592 * fVec4[((IOTA - 25) & 127)]) + ((0.00080698399999999996 * fVec4[((IOTA - 24) & 127)]) + ((0.012177400000000001 * fVec4[((IOTA - 23) & 127)]) + ((0.026490900000000001 * fVec4[((IOTA - 22) & 127)]) + ((0.022836200000000001 * fVec4[((IOTA - 21) & 127)]) + (((3.4589100000000004e-05 * fVec5[((IOTA - 117) & 127)]) + ((1.3577100000000001e-05 * fVec5[((IOTA - 121) & 127)]) + ((7.6923100000000002e-05 * fVec5[((IOTA - 119) & 127)]) + ((7.4281200000000003e-05 * fVec5[((IOTA - 120) & 127)]) + ((7.485010000000001e-05 * fVec5[((IOTA - 118) & 127)]) + ((9.5211100000000014e-05 * fVec5[((IOTA - 116) & 127)]) + ((0.00016010899999999999 * fVec5[((IOTA - 115) & 127)]) + ((0.00013675699999999999 * fVec5[((IOTA - 114) & 127)]) + ((0.036143599999999998 * fVec5[((IOTA - 14) & 127)]) + ((0.00068993700000000006 * fVec5[((IOTA - 11) & 127)]) + ((3.2388600000000004e-05 * fVec5[((IOTA - 9) & 127)]) + ((4.7910900000000002e-05 * fVec5[((IOTA - 113) & 127)]) + ((4.5599000000000002e-05 * fVec5[((IOTA - 112) & 127)]) + ((0.00032256200000000003 * fVec5[((IOTA - 111) & 127)]) + ((0.00023359100000000003 * fVec5[((IOTA - 110) & 127)]) + ((0.00010394399999999999 * fVec5[((IOTA - 109) & 127)]) + ((0.00035927000000000002 * fVec5[((IOTA - 108) & 127)]) + ((6.2289100000000006e-05 * fVec5[((IOTA - 107) & 127)]) + ((0.00036134400000000004 * fVec5[((IOTA - 103) & 127)]) + ((0.00019419100000000003 * fVec5[((IOTA - 102) & 127)]) + ((5.45233e-05 * fVec5[((IOTA - 89) & 127)]) + ((0.00018564400000000003 * fVec5[((IOTA - 88) & 127)]) + ((0.00029846800000000003 * fVec5[((IOTA - 87) & 127)]) + ((0.00062323900000000004 * fVec5[((IOTA - 84) & 127)]) + ((0.0013928100000000002 * fVec5[((IOTA - 83) & 127)]) + ((0.00042248700000000004 * fVec5[((IOTA - 82) & 127)]) + ((0.00082889300000000014 * fVec5[((IOTA - 79) & 127)]) + ((0.0018016099999999999 * fVec5[((IOTA - 78) & 127)]) + ((0.0015986000000000002 * fVec5[((IOTA - 77) & 127)]) + ((0.0015950599999999999 * fVec5[((IOTA - 76) & 127)]) + ((0.0018363100000000001 * fVec5[((IOTA - 75) & 127)]) + ((0.0016406599999999999 * fVec5[((IOTA - 74) & 127)]) + ((7.6211099999999999e-08 * fVec5[((IOTA - 69) & 127)]) + ((0.0022540800000000003 * fVec5[((IOTA - 68) & 127)]) + ((0.0010342000000000001 * fVec5[((IOTA - 67) & 127)]) + ((0.0019980200000000001 * fVec5[((IOTA - 66) & 127)]) + ((0.0010956399999999999 * fVec5[((IOTA - 65) & 127)]) + ((0.0011518100000000001 * fVec5[((IOTA - 63) & 127)]) + ((0.00180572 * fVec5[((IOTA - 62) & 127)]) + ((0.0018522499999999999 * fVec5[((IOTA - 57) & 127)]) + ((0.0018557900000000002 * fVec5[((IOTA - 56) & 127)]) + ((0.000176202 * fVec5[((IOTA - 55) & 127)]) + ((0.00050791400000000004 * fVec5[((IOTA - 52) & 127)]) + ((0.0046477599999999999 * fVec5[((IOTA - 51) & 127)]) + ((0.0021174599999999998 * fVec5[((IOTA - 50) & 127)]) + ((0.00082403999999999995 * fVec5[((IOTA - 47) & 127)]) + ((0.00163053 * fVec5[((IOTA - 46) & 127)]) + ((0.0040141600000000001 * fVec5[((IOTA - 45) & 127)]) + ((0.0028585699999999999 * fVec5[((IOTA - 39) & 127)]) + ((0.011163900000000001 * fVec5[((IOTA - 38) & 127)]) + ((0.0048144299999999998 * fVec5[((IOTA - 37) & 127)]) + ((0.0019228799999999999 * fVec5[((IOTA - 36) & 127)]) + ((0.00066510000000000007 * fVec5[((IOTA - 33) & 127)]) + ((0.00064387999999999999 * fVec5[((IOTA - 32) & 127)]) + ((0.00039120300000000002 * fVec5[((IOTA - 31) & 127)]) + ((0.0092074099999999992 * fVec5[((IOTA - 30) & 127)]) + ((0.0078471500000000007 * fVec5[((IOTA - 29) & 127)]) + ((0.0090147300000000003 * fVec5[((IOTA - 25) & 127)]) + ((0.00028735700000000002 * fVec5[((IOTA - 2) & 127)]) + ((0.00049999799999999998 * fVec5[((IOTA - 6) & 127)]) + ((0.00052553599999999995 * fVec5[((IOTA - 5) & 127)]) + ((0.035113600000000002 * fVec5[((IOTA - 24) & 127)]) + ((0.0135645 * fVec5[((IOTA - 21) & 127)]) + ((0.0189946 * fVec5[((IOTA - 20) & 127)]) + ((0.039244899999999999 * fVec5[((IOTA - 19) & 127)]) + ((0.021826400000000003 * fVec5[((IOTA - 18) & 127)]) + (((3.2544599999999997e-06 * fVec6[((IOTA - 124) & 127)]) + ((3.8028799999999999e-06 * fVec6[((IOTA - 123) & 127)]) + ((6.0437600000000006e-05 * fVec6[((IOTA - 120) & 127)]) + ((5.5343300000000003e-05 * fVec6[((IOTA - 119) & 127)]) + ((6.5355e-05 * fVec6[((IOTA - 118) & 127)]) + ((6.3452000000000002e-05 * fVec6[((IOTA - 115) & 127)]) + ((5.9620899999999994e-06 * fVec6[((IOTA - 113) & 127)]) + ((0.00025618100000000002 * fVec6[((IOTA - 108) & 127)]) + ((0.000179366 * fVec6[((IOTA - 107) & 127)]) + ((2.8330700000000003e-05 * fVec6[((IOTA - 106) & 127)]) + ((0.00036564200000000001 * fVec6[((IOTA - 103) & 127)]) + ((0.000109181 * fVec6[((IOTA - 100) & 127)]) + ((0.00078636400000000001 * fVec6[((IOTA - 99) & 127)]) + ((0.000743967 * fVec6[((IOTA - 98) & 127)]) + ((4.1273200000000003e-05 * fVec6[((IOTA - 97) & 127)]) + ((8.4906400000000018e-05 * fVec6[((IOTA - 96) & 127)]) + ((0.00042730800000000005 * fVec6[((IOTA - 95) & 127)]) + ((0.00056384700000000002 * fVec6[((IOTA - 94) & 127)]) + ((0.000318167 * fVec6[((IOTA - 90) & 127)]) + ((6.7318100000000002e-05 * fVec6[((IOTA - 89) & 127)]) + ((0.00077448100000000004 * fVec6[((IOTA - 88) & 127)]) + ((0.0011397200000000001 * fVec6[((IOTA - 87) & 127)]) + ((0.00015226400000000002 * fVec6[((IOTA - 85) & 127)]) + ((0.000103558 * fVec6[((IOTA - 79) & 127)]) + ((0.00040236000000000004 * fVec6[((IOTA - 78) & 127)]) + ((0.0011149 * fVec6[((IOTA - 77) & 127)]) + ((0.000534539 * fVec6[((IOTA - 76) & 127)]) + ((0.00076731800000000012 * fVec6[((IOTA - 75) & 127)]) + ((0.0011365400000000001 * fVec6[((IOTA - 72) & 127)]) + ((0.0037275299999999997 * fVec6[((IOTA - 71) & 127)]) + ((0.0027207099999999999 * fVec6[((IOTA - 70) & 127)]) + ((8.9040400000000016e-05 * fVec6[((IOTA - 69) & 127)]) + ((0.0014650000000000002 * fVec6[((IOTA - 66) & 127)]) + ((0.0024605 * fVec6[((IOTA - 65) & 127)]) + ((0.00052620800000000001 * fVec6[((IOTA - 64) & 127)]) + ((5.8486300000000003e-05 * fVec6[((IOTA - 61) & 127)]) + ((4.1022400000000002e-05 * fVec6[((IOTA - 58) & 127)]) + ((0.00059072699999999998 * fVec6[((IOTA - 52) & 127)]) + ((0.00052352400000000004 * fVec6[((IOTA - 51) & 127)]) + ((0.0020931500000000002 * fVec6[((IOTA - 48) & 127)]) + ((0.000447298 * fVec6[((IOTA - 47) & 127)]) + ((0.0040422200000000009 * fVec6[((IOTA - 45) & 127)]) + ((0.0032565800000000002 * fVec6[((IOTA - 44) & 127)]) + ((0.00596175 * fVec6[((IOTA - 42) & 127)]) + ((0.00171053 * fVec6[((IOTA - 41) & 127)]) + ((0.0071582299999999998 * fVec6[((IOTA - 38) & 127)]) + ((0.00084393100000000013 * fVec6[((IOTA - 37) & 127)]) + ((0.0030441299999999999 * fVec6[((IOTA - 35) & 127)]) + ((0.00048408199999999999 * fVec6[((IOTA - 32) & 127)]) + ((0.0246952 * fVec6[((IOTA - 31) & 127)]) + ((0.00017484299999999999 * fVec6[((IOTA - 30) & 127)]) + ((0.0312594 * fVec6[((IOTA - 26) & 127)]) + ((0.030204100000000001 * fVec6[((IOTA - 25) & 127)]) + ((0.032309299999999999 * fVec6[((IOTA - 21) & 127)]) + ((0.0073979500000000004 * fVec6[((IOTA - 20) & 127)]) + ((0.0027315100000000004 * fVec6[((IOTA - 18) & 127)]) + ((0.018365599999999999 * fVec6[((IOTA - 17) & 127)]) + ((0.0015812600000000001 * fVec6[((IOTA - 16) & 127)]) + ((0.0087116199999999998 * fVec6[((IOTA - 15) & 127)]) + ((0.0022679900000000001 * fVec6[((IOTA - 13) & 127)]) + ((0.00070895599999999995 * fVec6[((IOTA - 9) & 127)]) + ((0.00092257999999999999 * fVec6[((IOTA - 8) & 127)]) + ((0.000218614 * fVec6[((IOTA - 4) & 127)]) + ((7.8113100000000009e-05 * fVec6[((IOTA - 2) & 127)]) + (((4.2449800000000001e-05 * fVec7[((IOTA - 122) & 127)]) + ((1.68101e-05 * fVec7[((IOTA - 119) & 127)]) + ((1.08625e-05 * fVec7[((IOTA - 118) & 127)]) + ((0.00011037300000000001 * fVec7[((IOTA - 117) & 127)]) + ((7.9807499999999998e-05 * fVec7[((IOTA - 116) & 127)]) + ((9.6142299999999996e-05 * fVec7[((IOTA - 115) & 127)]) + ((7.7893600000000009e-05 * fVec7[((IOTA - 114) & 127)]) + ((7.9137900000000007e-05 * fVec7[((IOTA - 113) & 127)]) + ((0.00027298900000000001 * fVec7[((IOTA - 112) & 127)]) + ((1.22163e-05 * fVec7[((IOTA - 111) & 127)]) + ((3.4997699999999999e-05 * fVec7[((IOTA - 109) & 127)]) + ((4.7484800000000003e-05 * fVec7[((IOTA - 107) & 127)]) + ((0.00087555499999999997 * fVec7[((IOTA - 83) & 127)]) + ((0.00096178600000000006 * fVec7[((IOTA - 82) & 127)]) + ((0.00052484900000000008 * fVec7[((IOTA - 79) & 127)]) + ((0.000623567 * fVec7[((IOTA - 73) & 127)]) + ((0.00193418 * fVec7[((IOTA - 72) & 127)]) + ((0.0016586399999999999 * fVec7[((IOTA - 71) & 127)]) + ((0.0018386700000000001 * fVec7[((IOTA - 70) & 127)]) + ((0.00112042 * fVec7[((IOTA - 69) & 127)]) + ((0.0025244099999999999 * fVec7[((IOTA - 58) & 127)]) + ((0.0019192800000000002 * fVec7[((IOTA - 57) & 127)]) + ((0.0017400500000000001 * fVec7[((IOTA - 56) & 127)]) + ((0.0029806699999999999 * fVec7[((IOTA - 55) & 127)]) + ((0.0029504500000000003 * fVec7[((IOTA - 54) & 127)]) + ((0.0010499700000000001 * fVec7[((IOTA - 53) & 127)]) + ((4.1037600000000008e-05 * fVec7[((IOTA - 47) & 127)]) + ((0.0034572400000000003 * fVec7[((IOTA - 46) & 127)]) + ((0.0049149900000000002 * fVec7[((IOTA - 45) & 127)]) + ((0.00099377100000000006 * fVec7[((IOTA - 44) & 127)]) + ((0.0055609300000000004 * fVec7[((IOTA - 41) & 127)]) + ((0.011276600000000001 * fVec7[((IOTA - 40) & 127)]) + ((0.0057774999999999996 * fVec7[((IOTA - 39) & 127)]) + ((0.00788494 * fVec7[((IOTA - 35) & 127)]) + ((0.0050277900000000007 * fVec7[((IOTA - 34) & 127)]) + ((0.0038421800000000002 * fVec7[((IOTA - 32) & 127)]) + ((0.0149585 * fVec7[((IOTA - 29) & 127)]) + ((0.0036836899999999999 * fVec7[((IOTA - 27) & 127)]) + ((0.0022655599999999998 * fVec7[((IOTA - 26) & 127)]) + ((0.010108799999999999 * fVec7[((IOTA - 21) & 127)]) + ((0.022015099999999999 * fVec7[((IOTA - 20) & 127)]) + ((0.0082101299999999995 * fVec7[((IOTA - 17) & 127)]) + ((0.031857000000000003 * fVec7[((IOTA - 16) & 127)]) + ((0.00150281 * fVec7[((IOTA - 14) & 127)]) + ((0.00129228 * fVec7[((IOTA - 11) & 127)]) + ((0.00066836900000000004 * fVec7[((IOTA - 8) & 127)]) + ((8.8393099999999999e-05 * fVec7[((IOTA - 7) & 127)]) + ((0.00018522700000000002 * fVec7[((IOTA - 4) & 127)]) + ((4.6479600000000008e-05 * fVec7[((IOTA - 104) & 127)]) + ((0.000136606 * fVec7[((IOTA - 102) & 127)]) + ((0.00045482200000000002 * fVec7[((IOTA - 94) & 127)]) + ((0.00052650300000000011 * fVec7[((IOTA - 93) & 127)]) + ((2.2013400000000002e-05 * fVec8[((IOTA - 123) & 127)]) + ((7.0854499999999992e-06 * fVec8[((IOTA - 122) & 127)]) + ((3.0611000000000002e-05 * fVec8[((IOTA - 119) & 127)]) + ((8.0809800000000007e-05 * fVec8[((IOTA - 118) & 127)]) + ((1.71501e-05 * fVec8[((IOTA - 117) & 127)]) + ((6.3156600000000004e-05 * fVec8[((IOTA - 116) & 127)]) + ((2.5417499999999998e-06 * fVec8[((IOTA - 115) & 127)]) + ((2.1439300000000003e-05 * fVec8[((IOTA - 114) & 127)]) + ((2.5039900000000001e-05 * fVec8[((IOTA - 112) & 127)]) + ((0.000135007 * fVec8[((IOTA - 111) & 127)]) + ((6.3145400000000007e-05 * fVec8[((IOTA - 110) & 127)]) + ((0.00030512000000000003 * fVec8[((IOTA - 107) & 127)]) + ((9.1568200000000002e-05 * fVec8[((IOTA - 104) & 127)]) + ((0.00027613699999999998 * fVec8[((IOTA - 103) & 127)]) + ((0.00026536499999999999 * fVec8[((IOTA - 102) & 127)]) + ((0.00032241399999999998 * fVec8[((IOTA - 101) & 127)]) + ((0.00033567700000000005 * fVec8[((IOTA - 100) & 127)]) + ((6.1251899999999995e-06 * fVec8[((IOTA - 98) & 127)]) + ((0.0013563000000000002 * fVec8[((IOTA - 92) & 127)]) + ((0.0023668200000000004 * fVec8[((IOTA - 91) & 127)]) + ((0.0019167099999999999 * fVec8[((IOTA - 90) & 127)]) + ((0.00056512500000000009 * fVec8[((IOTA - 89) & 127)]) + ((0.00127944 * fVec8[((IOTA - 82) & 127)]) + ((0.00074675200000000005 * fVec8[((IOTA - 75) & 127)]) + ((0.0023775100000000002 * fVec8[((IOTA - 74) & 127)]) + ((0.0018128 * fVec8[((IOTA - 73) & 127)]) + ((0.0052337399999999997 * fVec8[((IOTA - 45) & 127)]) + ((0.0035233400000000002 * fVec8[((IOTA - 42) & 127)]) + ((0.00121233 * fVec8[((IOTA - 41) & 127)]) + ((0.00227231 * fVec8[((IOTA - 39) & 127)]) + ((0.012740800000000002 * fVec8[((IOTA - 38) & 127)]) + ((0.0058576800000000005 * fVec8[((IOTA - 37) & 127)]) + ((0.0072504600000000002 * fVec8[((IOTA - 34) & 127)]) + ((0.0079654100000000009 * fVec8[((IOTA - 33) & 127)]) + ((0.036658400000000001 * fVec8[((IOTA - 29) & 127)]) + ((0.0144063 * fVec8[((IOTA - 28) & 127)]) + ((0.0062073700000000002 * fVec8[((IOTA - 26) & 127)]) + ((0.037012400000000001 * fVec8[((IOTA - 25) & 127)]) + ((0.032690700000000003 * fVec8[((IOTA - 24) & 127)]) + ((0.00109545 * fVec8[((IOTA - 23) & 127)]) + ((0.0227166 * fVec8[((IOTA - 18) & 127)]) + ((0.0331264 * fVec8[((IOTA - 15) & 127)]) + ((0.0084816100000000005 * fVec8[((IOTA - 14) & 127)]) + ((0.0045181400000000004 * fVec8[((IOTA - 13) & 127)]) + ((0.0016828300000000002 * fVec8[((IOTA - 10) & 127)]) + ((0.00032086300000000001 * fVec8[((IOTA - 8) & 127)]) + ((0.00149577 * fVec8[((IOTA - 6) & 127)]) + ((0.00035434000000000003 * fVec8[((IOTA - 2) & 127)]) + ((2.4763900000000002e-05 * fTemp8) + ((0.0010571299999999999 * fVec8[((IOTA - 52) & 127)]) + ((0.00038515400000000002 * fVec8[((IOTA - 49) & 127)]) + ((0.000439049 * fVec8[((IOTA - 72) & 127)]) + ((0.0010578600000000001 * fVec8[((IOTA - 71) & 127)]) + ((0.0026522400000000002 * fVec8[((IOTA - 70) & 127)]) + ((0.00100471 * fVec8[((IOTA - 65) & 127)]) + ((0.00031719000000000002 * fVec8[((IOTA - 62) & 127)]) + ((0.00152038 * fVec8[((IOTA - 61) & 127)]) + ((0.0014213100000000001 * fVec8[((IOTA - 60) & 127)]) + ((0.0028660199999999999 * fVec8[((IOTA - 59) & 127)]) + ((0.0060551399999999997 * fVec8[((IOTA - 58) & 127)]) + ((0.0037266199999999999 * fVec8[((IOTA - 57) & 127)]) + ((0.0018872400000000001 * fVec8[((IOTA - 56) & 127)]) + ((0.00068895700000000002 * fVec8[((IOTA - 48) & 127)]) + ((0.00260297 * fVec8[((IOTA - 46) & 127)]) + ((0.0037507199999999999 * fVec8[((IOTA - 55) & 127)]) + ((0.0022728499999999999 * fVec8[((IOTA - 54) & 127)]) + ((0.0037854500000000001 * fVec8[((IOTA - 53) & 127)]) + ((9.5870599999999998e-07 * fVec11[((IOTA - 126) & 127)]) + ((6.1298299999999997e-06 * fVec11[((IOTA - 125) & 127)]) + ((1.7529100000000001e-05 * fVec11[((IOTA - 124) & 127)]) + ((1.3215300000000002e-05 * fVec11[((IOTA - 123) & 127)]) + ((3.73611e-06 * fVec11[((IOTA - 122) & 127)]) + ((1.4631700000000003e-05 * fVec11[((IOTA - 121) & 127)]) + ((7.9383399999999993e-06 * fVec11[((IOTA - 120) & 127)]) + ((0.000163275 * fVec11[((IOTA - 108) & 127)]) + ((5.2133700000000005e-05 * fVec11[((IOTA - 104) & 127)]) + ((1.7659600000000003e-05 * fVec11[((IOTA - 103) & 127)]) + ((0.00026651699999999997 * fVec11[((IOTA - 101) & 127)]) + ((0.00044441800000000003 * fVec11[((IOTA - 100) & 127)]) + ((0.000204947 * fVec11[((IOTA - 97) & 127)]) + ((0.0021076800000000002 * fVec11[((IOTA - 96) & 127)]) + ((0.0019922500000000001 * fVec11[((IOTA - 95) & 127)]) + ((0.000140679 * fVec11[((IOTA - 94) & 127)]) + ((0.0011280300000000001 * fVec11[((IOTA - 93) & 127)]) + ((0.0019903999999999998 * fVec11[((IOTA - 92) & 127)]) + ((0.000397475 * fVec11[((IOTA - 91) & 127)]) + ((0.00035911300000000004 * fVec11[((IOTA - 85) & 127)]) + ((0.000127816 * fVec11[((IOTA - 81) & 127)]) + ((0.0014990399999999999 * fVec11[((IOTA - 80) & 127)]) + ((0.00177585 * fVec11[((IOTA - 79) & 127)]) + ((5.3717400000000002e-05 * fVec11[((IOTA - 73) & 127)]) + ((0.00100658 * fVec11[((IOTA - 72) & 127)]) + ((0.00017406600000000001 * fVec11[((IOTA - 71) & 127)]) + ((0.00071912600000000005 * fVec11[((IOTA - 67) & 127)]) + ((0.00072212600000000002 * fVec11[((IOTA - 64) & 127)]) + ((0.0049928100000000003 * fVec11[((IOTA - 63) & 127)]) + ((0.0037463600000000002 * fVec11[((IOTA - 62) & 127)]) + ((0.0011032699999999999 * fVec11[((IOTA - 61) & 127)]) + ((1.5565300000000002e-05 * fVec11[((IOTA - 59) & 127)]) + ((0.0010646199999999998 * fVec11[((IOTA - 55) & 127)]) + ((0.0014746 * fVec11[((IOTA - 54) & 127)]) + ((0.0030302600000000003 * fVec11[((IOTA - 53) & 127)]) + ((0.0025201400000000001 * fVec11[((IOTA - 52) & 127)]) + ((0.0023052000000000003 * fVec11[((IOTA - 51) & 127)]) + ((0.0064089099999999994 * fVec11[((IOTA - 50) & 127)]) + ((0.0062176200000000001 * fVec11[((IOTA - 49) & 127)]) + ((0.00136571 * fVec11[((IOTA - 48) & 127)]) + ((0.000484007 * fVec11[((IOTA - 47) & 127)]) + ((0.0053646300000000004 * fVec11[((IOTA - 43) & 127)]) + ((0.00049839000000000003 * fVec11[((IOTA - 40) & 127)]) + ((0.0029793300000000001 * fVec11[((IOTA - 39) & 127)]) + ((0.00011673199999999999 * fVec11[((IOTA - 38) & 127)]) + ((0.0021503299999999998 * fVec11[((IOTA - 34) & 127)]) + ((0.0040663799999999996 * fVec11[((IOTA - 31) & 127)]) + ((0.022960699999999997 * fVec11[((IOTA - 30) & 127)]) + ((0.016656999999999998 * fVec11[((IOTA - 26) & 127)]) + ((0.026276299999999999 * fVec11[((IOTA - 23) & 127)]) + ((0.020495800000000002 * fVec11[((IOTA - 22) & 127)]) + ((0.023659500000000003 * fVec11[((IOTA - 21) & 127)]) + ((0.0210797 * fVec11[((IOTA - 20) & 127)]) + ((0.027862700000000001 * fVec11[((IOTA - 19) & 127)]) + ((0.015660400000000001 * fVec11[((IOTA - 16) & 127)]) + ((0.0069313100000000004 * fVec11[((IOTA - 12) & 127)]) + ((0.0015239000000000001 * fVec11[((IOTA - 11) & 127)]) + ((0.0018694900000000001 * fVec11[((IOTA - 7) & 127)]) + ((0.00091357700000000016 * fVec11[((IOTA - 5) & 127)]) + ((0.00034025 * fVec11[((IOTA - 3) & 127)]) + (((2.1476600000000004e-05 * fVec10[((IOTA - 122) & 127)]) + ((2.6092200000000004e-05 * fVec10[((IOTA - 121) & 127)]) + ((4.1403999999999999e-05 * fVec10[((IOTA - 116) & 127)]) + ((0.00020260300000000001 * fVec10[((IOTA - 113) & 127)]) + ((0.00014776200000000001 * fVec10[((IOTA - 112) & 127)]) + ((0.00045834100000000002 * fVec10[((IOTA - 109) & 127)]) + ((0.00029239199999999999 * fVec10[((IOTA - 108) & 127)]) + ((0.00051877400000000006 * fVec10[((IOTA - 105) & 127)]) + ((0.00062261900000000004 * fVec10[((IOTA - 104) & 127)]) + ((0.000143232 * fVec10[((IOTA - 103) & 127)]) + ((9.2107400000000005e-05 * fVec10[((IOTA - 101) & 127)]) + ((0.000784532 * fVec10[((IOTA - 100) & 127)]) + ((0.00071355700000000008 * fVec10[((IOTA - 99) & 127)]) + ((0.00065499700000000004 * fVec10[((IOTA - 98) & 127)]) + ((0.00027689300000000001 * fVec10[((IOTA - 97) & 127)]) + ((0.00098381599999999999 * fVec10[((IOTA - 90) & 127)]) + ((0.0011919700000000001 * fVec10[((IOTA - 89) & 127)]) + ((0.00017768299999999999 * fVec10[((IOTA - 59) & 127)]) + ((0.0039611100000000003 * fVec10[((IOTA - 58) & 127)]) + ((0.0042174700000000001 * fVec10[((IOTA - 57) & 127)]) + ((0.0044953900000000001 * fVec10[((IOTA - 56) & 127)]) + ((0.0022670200000000002 * fVec10[((IOTA - 55) & 127)]) + ((0.0021868500000000002 * fVec10[((IOTA - 52) & 127)]) + ((9.3079100000000001e-05 * fVec10[((IOTA - 51) & 127)]) + ((0.0021948699999999998 * fVec10[((IOTA - 49) & 127)]) + ((0.0045924300000000006 * fVec10[((IOTA - 46) & 127)]) + ((0.0084135899999999986 * fVec10[((IOTA - 45) & 127)]) + ((0.00067984600000000012 * fVec10[((IOTA - 40) & 127)]) + ((0.00402003 * fVec10[((IOTA - 39) & 127)]) + ((0.017721000000000001 * fVec10[((IOTA - 36) & 127)]) + ((0.0035177100000000003 * fVec10[((IOTA - 33) & 127)]) + ((0.012616499999999999 * fVec10[((IOTA - 32) & 127)]) + ((0.0087009700000000006 * fVec10[((IOTA - 31) & 127)]) + ((0.00866514 * fVec10[((IOTA - 26) & 127)]) + ((0.0044089000000000003 * fVec10[((IOTA - 25) & 127)]) + ((0.023826100000000003 * fVec10[((IOTA - 24) & 127)]) + ((0.0116758 * fVec10[((IOTA - 23) & 127)]) + ((0.0080310599999999996 * fVec10[((IOTA - 19) & 127)]) + ((0.0123386 * fVec10[((IOTA - 18) & 127)]) + ((0.0091981400000000005 * fVec10[((IOTA - 15) & 127)]) + ((0.00114058 * fVec10[((IOTA - 13) & 127)]) + ((0.0133545 * fVec10[((IOTA - 12) & 127)]) + ((0.00042513400000000003 * fVec10[((IOTA - 10) & 127)]) + ((0.00031202200000000002 * fVec10[((IOTA - 9) & 127)]) + ((0.00059449899999999996 * fVec10[((IOTA - 7) & 127)]) + ((9.0752000000000015e-05 * fVec10[((IOTA - 3) & 127)]) + ((2.8761299999999999e-06 * fVec10[((IOTA - 1) & 127)]) + ((3.51439e-07 * fTemp10) + ((0.0018707700000000001 * fVec10[((IOTA - 65) & 127)]) + ((0.00060252200000000008 * fVec10[((IOTA - 64) & 127)]) + ((0.00086149400000000008 * fVec10[((IOTA - 77) & 127)]) + ((0.00058334300000000006 * fVec10[((IOTA - 76) & 127)]) + ((0.0013006599999999999 * fVec10[((IOTA - 75) & 127)]) + ((0.00041085900000000007 * fVec10[((IOTA - 71) & 127)]) + ((0.0012948999999999999 * fVec10[((IOTA - 66) & 127)]) + ((5.6064900000000006e-05 * fVec12[((IOTA - 119) & 127)]) + ((2.9367600000000003e-05 * fVec12[((IOTA - 118) & 127)]) + ((3.3220999999999999e-05 * fVec12[((IOTA - 117) & 127)]) + ((0.00012805500000000002 * fVec12[((IOTA - 114) & 127)]) + ((0.000103477 * fVec12[((IOTA - 113) & 127)]) + ((0.00025872700000000005 * fVec12[((IOTA - 112) & 127)]) + ((0.00029786899999999998 * fVec12[((IOTA - 111) & 127)]) + ((0.00033988700000000003 * fVec12[((IOTA - 110) & 127)]) + ((9.3482300000000004e-05 * fVec12[((IOTA - 109) & 127)]) + ((0.00013677700000000001 * fVec12[((IOTA - 108) & 127)]) + ((0.00057155300000000003 * fVec12[((IOTA - 107) & 127)]) + ((0.00044084399999999997 * fVec12[((IOTA - 106) & 127)]) + ((0.00057291299999999998 * fVec12[((IOTA - 88) & 127)]) + ((0.00027621200000000002 * fVec12[((IOTA - 87) & 127)]) + ((0.0015819200000000001 * fVec12[((IOTA - 80) & 127)]) + ((0.00034622800000000002 * fVec12[((IOTA - 79) & 127)]) + ((0.0021050499999999998 * fVec12[((IOTA - 75) & 127)]) + ((0.00017197100000000001 * fVec12[((IOTA - 73) & 127)]) + ((0.00328831 * fVec12[((IOTA - 72) & 127)]) + ((0.0033849700000000002 * fVec12[((IOTA - 71) & 127)]) + ((0.00106408 * fVec12[((IOTA - 68) & 127)]) + ((0.0026545100000000001 * fVec12[((IOTA - 67) & 127)]) + ((0.0023114799999999999 * fVec12[((IOTA - 66) & 127)]) + ((0.0010799700000000002 * fVec12[((IOTA - 65) & 127)]) + ((0.000133325 * fVec12[((IOTA - 64) & 127)]) + ((0.00104922 * fVec12[((IOTA - 63) & 127)]) + ((0.00064313500000000008 * fVec12[((IOTA - 62) & 127)]) + ((0.000829111 * fVec12[((IOTA - 50) & 127)]) + ((0.0047209000000000001 * fVec12[((IOTA - 49) & 127)]) + ((0.0040045700000000007 * fVec12[((IOTA - 48) & 127)]) + ((0.0028235399999999998 * fVec12[((IOTA - 47) & 127)]) + ((0.0024041399999999999 * fVec12[((IOTA - 46) & 127)]) + ((0.00123226 * fVec12[((IOTA - 43) & 127)]) + ((0.0055503799999999997 * fVec12[((IOTA - 42) & 127)]) + ((0.0055164099999999994 * fVec12[((IOTA - 41) & 127)]) + ((0.009551539999999999 * fVec12[((IOTA - 40) & 127)]) + ((0.0071602499999999999 * fVec12[((IOTA - 37) & 127)]) + ((0.0059806600000000005 * fVec12[((IOTA - 34) & 127)]) + ((0.0033412400000000001 * fVec12[((IOTA - 33) & 127)]) + ((0.0013020600000000001 * fVec12[((IOTA - 32) & 127)]) + ((0.010603599999999999 * fVec12[((IOTA - 29) & 127)]) + ((0.0047975099999999996 * fVec12[((IOTA - 28) & 127)]) + ((0.00037618999999999999 * fVec12[((IOTA - 25) & 127)]) + ((0.025127100000000003 * fVec12[((IOTA - 24) & 127)]) + ((0.0074241100000000003 * fVec12[((IOTA - 22) & 127)]) + ((0.032307200000000001 * fVec12[((IOTA - 19) & 127)]) + ((0.00068458300000000011 * fVec12[((IOTA - 16) & 127)]) + ((0.0022406600000000002 * fVec12[((IOTA - 14) & 127)]) + ((0.00121477 * fVec12[((IOTA - 12) & 127)]) + ((0.00015070900000000001 * fVec12[((IOTA - 11) & 127)]) + ((0.000594639 * fVec12[((IOTA - 10) & 127)]) + ((0.00043852399999999998 * fVec12[((IOTA - 7) & 127)]) + ((3.5476400000000005e-05 * fVec12[((IOTA - 6) & 127)]) + ((0.00012342900000000001 * fVec12[((IOTA - 5) & 127)]) + ((0.00013495299999999999 * fVec12[((IOTA - 3) & 127)]) + ((6.5829500000000002e-06 * fVec12[((IOTA - 1) & 127)]) + ((4.9281200000000005e-05 * fVec12[((IOTA - 94) & 127)]) + ((0.00026790500000000003 * fVec12[((IOTA - 93) & 127)]) + ((0.00058204100000000005 * fVec12[((IOTA - 105) & 127)]) + ((0.00042623200000000002 * fVec12[((IOTA - 104) & 127)]) + ((0.00025379299999999999 * fVec12[((IOTA - 103) & 127)]) + ((0.0004933950000000001 * fVec12[((IOTA - 102) & 127)]) + ((0.00052014400000000005 * fVec12[((IOTA - 99) & 127)]) + (((0.0012122999999999999 * fVec12[((IOTA - 98) & 127)]) + ((0.00045970700000000006 * fVec12[((IOTA - 97) & 127)]) + ((0.00024474399999999997 * fVec12[((IOTA - 96) & 127)]) + ((0.00061810000000000001 * fVec12[((IOTA - 95) & 127)]) + ((2.7837800000000002e-06 * fVec13[((IOTA - 122) & 127)]) + ((8.3043399999999988e-06 * fVec13[((IOTA - 121) & 127)]) + ((5.6696200000000008e-05 * fVec13[((IOTA - 115) & 127)]) + ((0.00013219300000000001 * fVec13[((IOTA - 112) & 127)]) + ((0.00031032800000000001 * fVec13[((IOTA - 111) & 127)]) + ((0.000209402 * fVec13[((IOTA - 110) & 127)]) + ((0.000392538 * fVec13[((IOTA - 109) & 127)]) + ((0.00021252900000000001 * fVec13[((IOTA - 108) & 127)]) + ((0.00022341099999999999 * fVec13[((IOTA - 107) & 127)]) + ((0.000455971 * fVec13[((IOTA - 106) & 127)]) + ((0.00023670100000000002 * fVec13[((IOTA - 105) & 127)]) + ((9.3216599999999998e-05 * fVec13[((IOTA - 104) & 127)]) + ((0.00011625700000000002 * fVec13[((IOTA - 103) & 127)]) + ((0.00053898200000000002 * fVec13[((IOTA - 102) & 127)]) + ((0.00063969199999999997 * fVec13[((IOTA - 101) & 127)]) + ((0.00049445900000000004 * fVec13[((IOTA - 100) & 127)]) + ((0.00113736 * fVec13[((IOTA - 99) & 127)]) + ((0.0011671499999999998 * fVec13[((IOTA - 98) & 127)]) + ((0.00080747300000000007 * fVec13[((IOTA - 97) & 127)]) + ((0.00098782800000000006 * fVec13[((IOTA - 96) & 127)]) + ((0.000116086 * fVec13[((IOTA - 95) & 127)]) + ((0.0010682000000000001 * fVec13[((IOTA - 92) & 127)]) + ((0.0010581200000000001 * fVec13[((IOTA - 91) & 127)]) + ((0.00023935499999999999 * fVec13[((IOTA - 90) & 127)]) + ((6.07349e-05 * fVec13[((IOTA - 77) & 127)]) + ((0.00024441799999999999 * fVec13[((IOTA - 71) & 127)]) + ((0.0022682500000000003 * fVec13[((IOTA - 70) & 127)]) + ((0.0013828600000000001 * fVec13[((IOTA - 69) & 127)]) + ((0.00019294500000000003 * fVec13[((IOTA - 68) & 127)]) + ((0.0022136499999999997 * fVec13[((IOTA - 67) & 127)]) + ((0.023017300000000001 * fVec13[((IOTA - 16) & 127)]) + ((0.0059658100000000002 * fVec13[((IOTA - 15) & 127)]) + ((0.0035753 * fVec13[((IOTA - 13) & 127)]) + ((0.010657300000000001 * fVec13[((IOTA - 12) & 127)]) + ((0.00023747699999999999 * fVec13[((IOTA - 10) & 127)]) + ((0.00079964000000000012 * fVec13[((IOTA - 7) & 127)]) + ((0.000231547 * fVec13[((IOTA - 4) & 127)]) + ((0.00023603400000000001 * fVec13[((IOTA - 3) & 127)]) + ((3.2773799999999996e-06 * fTemp13) + ((0.014908999999999999 * fVec13[((IOTA - 28) & 127)]) + ((0.012678 * fVec13[((IOTA - 27) & 127)]) + ((0.041963100000000003 * fVec13[((IOTA - 22) & 127)]) + ((0.0023189199999999999 * fVec13[((IOTA - 66) & 127)]) + ((0.0022684799999999998 * fVec13[((IOTA - 65) & 127)]) + ((0.00027487300000000002 * fVec13[((IOTA - 64) & 127)]) + ((0.00097751499999999998 * fVec13[((IOTA - 62) & 127)]) + ((0.00025304199999999998 * fVec13[((IOTA - 61) & 127)]) + ((0.00036951399999999999 * fVec13[((IOTA - 60) & 127)]) + ((0.0020696600000000001 * fVec13[((IOTA - 59) & 127)]) + ((0.00039934300000000003 * fVec13[((IOTA - 58) & 127)]) + ((0.00168114 * fVec13[((IOTA - 55) & 127)]) + ((0.0019406200000000001 * fVec13[((IOTA - 54) & 127)]) + ((0.00213182 * fVec13[((IOTA - 48) & 127)]) + ((0.0044656900000000005 * fVec13[((IOTA - 47) & 127)]) + ((0.0055347900000000004 * fVec13[((IOTA - 46) & 127)]) + ((0.0030411100000000001 * fVec13[((IOTA - 42) & 127)]) + ((0.0061597700000000002 * fVec13[((IOTA - 39) & 127)]) + ((0.0032564600000000001 * fVec13[((IOTA - 38) & 127)]) + ((0.007966260000000001 * fVec13[((IOTA - 35) & 127)]) + ((0.014713700000000001 * fVec13[((IOTA - 34) & 127)]) + ((0.0070875299999999999 * fVec13[((IOTA - 29) & 127)]) + (((8.1563499999999999e-05 * fVec14[((IOTA - 118) & 127)]) + ((7.0606100000000001e-05 * fVec14[((IOTA - 117) & 127)]) + ((4.6020600000000005e-05 * fVec14[((IOTA - 116) & 127)]) + ((2.3044100000000002e-05 * fVec14[((IOTA - 115) & 127)]) + ((3.8369700000000006e-05 * fVec14[((IOTA - 114) & 127)]) + ((0.00029687600000000001 * fVec14[((IOTA - 113) & 127)]) + ((0.00024899699999999999 * fVec14[((IOTA - 112) & 127)]) + ((8.0695200000000013e-05 * fVec14[((IOTA - 111) & 127)]) + ((4.5071899999999998e-05 * fVec14[((IOTA - 110) & 127)]) + ((0.00031248700000000002 * fVec14[((IOTA - 109) & 127)]) + ((0.00029415900000000005 * fVec14[((IOTA - 108) & 127)]) + ((8.8138200000000003e-05 * fVec14[((IOTA - 107) & 127)]) + ((0.00030124200000000001 * fVec14[((IOTA - 106) & 127)]) + ((4.2708300000000006e-05 * fVec14[((IOTA - 105) & 127)]) + ((6.9614300000000009e-05 * fVec14[((IOTA - 103) & 127)]) + ((0.000321589 * fVec14[((IOTA - 99) & 127)]) + ((0.00016036600000000003 * fVec14[((IOTA - 98) & 127)]) + ((0.0012729099999999999 * fVec14[((IOTA - 88) & 127)]) + ((0.0021085400000000003 * fVec14[((IOTA - 87) & 127)]) + ((0.0005086 * fVec14[((IOTA - 86) & 127)]) + ((0.00014791000000000001 * fVec14[((IOTA - 85) & 127)]) + ((0.00032534600000000001 * fVec14[((IOTA - 81) & 127)]) + ((0.00099685500000000005 * fVec14[((IOTA - 80) & 127)]) + ((0.00058476299999999997 * fVec14[((IOTA - 76) & 127)]) + ((0.00186454 * fVec14[((IOTA - 75) & 127)]) + ((0.0013951499999999999 * fVec14[((IOTA - 74) & 127)]) + ((0.00129178 * fVec14[((IOTA - 73) & 127)]) + ((0.0016883999999999998 * fVec14[((IOTA - 72) & 127)]) + ((0.0018129000000000001 * fVec14[((IOTA - 71) & 127)]) + ((0.0040936100000000001 * fVec14[((IOTA - 42) & 127)]) + ((0.0020292500000000002 * fVec14[((IOTA - 41) & 127)]) + ((0.0030470000000000002 * fVec14[((IOTA - 38) & 127)]) + ((0.0096155300000000006 * fVec14[((IOTA - 37) & 127)]) + ((0.00534952 * fVec14[((IOTA - 36) & 127)]) + ((0.010443599999999999 * fVec14[((IOTA - 35) & 127)]) + ((0.014278200000000001 * fVec14[((IOTA - 34) & 127)]) + ((0.007845340000000001 * fVec14[((IOTA - 33) & 127)]) + ((0.006265520000000001 * fVec14[((IOTA - 32) & 127)]) + ((0.0039480399999999999 * fVec14[((IOTA - 31) & 127)]) + ((0.030915100000000001 * fVec14[((IOTA - 29) & 127)]) + ((0.038624800000000001 * fVec14[((IOTA - 28) & 127)]) + ((0.0106274 * fVec14[((IOTA - 26) & 127)]) + ((0.0056327499999999997 * fVec14[((IOTA - 25) & 127)]) + ((0.00093373200000000005 * fVec14[((IOTA - 24) & 127)]) + ((0.0144447 * fVec14[((IOTA - 23) & 127)]) + ((0.0027656299999999998 * fVec14[((IOTA - 14) & 127)]) + ((0.048321599999999999 * fVec14[((IOTA - 13) & 127)]) + ((0.046080900000000001 * fVec14[((IOTA - 12) & 127)]) + ((0.0051723899999999998 * fVec14[((IOTA - 11) & 127)]) + ((0.0011151400000000001 * fVec14[((IOTA - 9) & 127)]) + ((0.00019390000000000002 * fVec14[((IOTA - 4) & 127)]) + ((1.3112700000000001e-05 * fTemp14) + ((0.0018384600000000001 * fVec14[((IOTA - 68) & 127)]) + ((0.00195065 * fVec14[((IOTA - 67) & 127)]) + ((0.0012429300000000002 * fVec14[((IOTA - 66) & 127)]) + ((0.00169188 * fVec14[((IOTA - 65) & 127)]) + ((0.0010098400000000001 * fVec14[((IOTA - 64) & 127)]) + ((0.00052548700000000005 * fVec14[((IOTA - 61) & 127)]) + ((0.00060490900000000005 * fVec14[((IOTA - 48) & 127)]) + ((0.00033912900000000003 * fVec14[((IOTA - 58) & 127)]) + ((0.0021074099999999997 * fVec14[((IOTA - 55) & 127)]) + ((0.0012717499999999999 * fVec14[((IOTA - 54) & 127)]) + ((2.4813999999999997e-06 * fVec15[((IOTA - 124) & 127)]) + ((1.3482700000000002e-05 * fVec15[((IOTA - 118) & 127)]) + ((6.7211899999999999e-05 * fVec15[((IOTA - 114) & 127)]) + ((0.00013360000000000002 * fVec15[((IOTA - 113) & 127)]) + ((2.4868199999999998e-07 * fVec15[((IOTA - 112) & 127)]) + ((0.00021603300000000002 * fVec15[((IOTA - 108) & 127)]) + ((0.00013044 * fVec15[((IOTA - 107) & 127)]) + ((0.00031798600000000003 * fVec15[((IOTA - 103) & 127)]) + ((2.5636600000000001e-05 * fVec15[((IOTA - 102) & 127)]) + ((0.00013589400000000001 * fVec15[((IOTA - 101) & 127)]) + ((0.000417124 * fVec15[((IOTA - 100) & 127)]) + ((0.00028324699999999998 * fVec15[((IOTA - 99) & 127)]) + ((0.00072084000000000004 * fVec15[((IOTA - 98) & 127)]) + ((0.0013214800000000001 * fVec15[((IOTA - 94) & 127)]) + ((0.00147025 * fVec15[((IOTA - 93) & 127)]) + ((0.00043513300000000004 * fVec15[((IOTA - 92) & 127)]) + ((0.00047923700000000003 * fVec15[((IOTA - 91) & 127)]) + ((0.00045356600000000003 * fVec15[((IOTA - 90) & 127)]) + ((0.0013659900000000001 * fVec15[((IOTA - 89) & 127)]) + ((0.0012231700000000002 * fVec15[((IOTA - 88) & 127)]) + ((7.6576200000000007e-05 * fVec15[((IOTA - 87) & 127)]) + ((0.00029935000000000004 * fVec15[((IOTA - 83) & 127)]) + ((0.0033423799999999998 * fVec15[((IOTA - 82) & 127)]) + ((0.00229648 * fVec15[((IOTA - 81) & 127)]) + ((0.00063050200000000002 * fVec15[((IOTA - 79) & 127)]) + ((0.00022606700000000002 * fVec15[((IOTA - 77) & 127)]) + ((0.00156251 * fVec15[((IOTA - 54) & 127)]) + ((0.00015190600000000002 * fVec15[((IOTA - 53) & 127)]) + ((0.0026093900000000001 * fVec15[((IOTA - 51) & 127)]) + ((0.0030938500000000004 * fVec15[((IOTA - 50) & 127)]) + ((0.0031350200000000001 * fVec15[((IOTA - 49) & 127)]) + ((0.0040226100000000002 * fVec15[((IOTA - 48) & 127)]) + ((0.0049862600000000002 * fVec15[((IOTA - 44) & 127)]) + ((0.0058413700000000002 * fVec15[((IOTA - 41) & 127)]) + ((0.0045412800000000008 * fVec15[((IOTA - 40) & 127)]) + ((0.0065134700000000004 * fVec15[((IOTA - 37) & 127)]) + ((0.0086880100000000012 * fVec15[((IOTA - 35) & 127)]) + ((0.0107473 * fVec15[((IOTA - 34) & 127)]) + ((0.0015977300000000001 * fVec15[((IOTA - 32) & 127)]) + ((0.0063447800000000004 * fVec15[((IOTA - 30) & 127)]) + ((0.013484899999999999 * fVec15[((IOTA - 27) & 127)]) + ((0.0020287299999999999 * fVec15[((IOTA - 25) & 127)]) + ((0.018480799999999999 * fVec15[((IOTA - 24) & 127)]) + ((0.0056198899999999998 * fVec15[((IOTA - 22) & 127)]) + ((0.017673000000000001 * fVec15[((IOTA - 21) & 127)]) + ((0.0109137 * fVec15[((IOTA - 18) & 127)]) + ((0.0020388099999999998 * fVec15[((IOTA - 17) & 127)]) + ((0.00335082 * fVec15[((IOTA - 16) & 127)]) + ((0.00123416 * fVec15[((IOTA - 14) & 127)]) + ((0.0021818300000000001 * fVec15[((IOTA - 13) & 127)]) + ((0.00012594799999999999 * fVec15[((IOTA - 12) & 127)]) + ((0.00011811100000000002 * fVec15[((IOTA - 11) & 127)]) + ((0.00098081100000000005 * fVec15[((IOTA - 9) & 127)]) + ((0.00044730900000000001 * fVec15[((IOTA - 5) & 127)]) + ((1.2689500000000001e-05 * fVec15[((IOTA - 1) & 127)]) + ((0.0020653400000000001 * fVec15[((IOTA - 61) & 127)]) + ((0.0027092700000000002 * fVec15[((IOTA - 60) & 127)]) + ((0.00101213 * fVec15[((IOTA - 59) & 127)]) + ((9.5653400000000015e-05 * fVec15[((IOTA - 58) & 127)]) + ((0.00043061600000000004 * fVec15[((IOTA - 70) & 127)]) + ((0.00033741000000000001 * fVec15[((IOTA - 69) & 127)]) + ((0.000166844 * fVec15[((IOTA - 67) & 127)]) + ((0.00061629700000000003 * fVec15[((IOTA - 62) & 127)]) + ((9.3007799999999994e-06 * fVec16[((IOTA - 123) & 127)]) + ((8.1740999999999985e-06 * fVec16[((IOTA - 119) & 127)]) + ((3.2763499999999999e-05 * fVec16[((IOTA - 118) & 127)]) + ((5.73293e-05 * fVec16[((IOTA - 116) & 127)]) + ((0.00023654000000000004 * fVec16[((IOTA - 115) & 127)]) + ((0.00019556700000000001 * fVec16[((IOTA - 114) & 127)]) + ((5.6889900000000006e-05 * fVec16[((IOTA - 113) & 127)]) + ((0.00024025900000000002 * fVec16[((IOTA - 112) & 127)]) + ((0.00064424100000000004 * fVec16[((IOTA - 111) & 127)]) + ((0.00037747700000000003 * fVec16[((IOTA - 110) & 127)]) + ((3.6385200000000001e-06 * fVec16[((IOTA - 108) & 127)]) + ((0.00031980600000000001 * fVec16[((IOTA - 107) & 127)]) + ((0.00046841100000000007 * fVec16[((IOTA - 104) & 127)]) + ((0.00039931500000000002 * fVec16[((IOTA - 103) & 127)]) + ((3.42585e-06 * fVec16[((IOTA - 102) & 127)]) + ((0.00028306300000000001 * fVec16[((IOTA - 101) & 127)]) + ((0.0012796000000000001 * fVec16[((IOTA - 92) & 127)]) + ((0.0028355700000000004 * fVec16[((IOTA - 91) & 127)]) + ((0.00027312000000000001 * fVec16[((IOTA - 90) & 127)]) + ((0.00081654800000000006 * fVec16[((IOTA - 85) & 127)]) + ((7.8246599999999997e-05 * fVec16[((IOTA - 84) & 127)]) + ((0.0027393600000000001 * fVec16[((IOTA - 82) & 127)]) + ((0.00270886 * fVec16[((IOTA - 81) & 127)]) + ((0.0012424999999999999 * fVec16[((IOTA - 80) & 127)]) + ((0.00085482200000000009 * fVec16[((IOTA - 79) & 127)]) + ((0.00154955 * fVec16[((IOTA - 72) & 127)]) + ((0.0022211500000000003 * fVec16[((IOTA - 71) & 127)]) + ((0.0016530499999999999 * fVec16[((IOTA - 70) & 127)]) + ((0.0011901600000000002 * fVec16[((IOTA - 69) & 127)]) + ((0.0015993299999999999 * fVec16[((IOTA - 68) & 127)]) + ((0.00083150600000000009 * fVec16[((IOTA - 67) & 127)]) + ((0.0010392999999999999 * fVec16[((IOTA - 64) & 127)]) + ((0.0012512000000000001 * fVec16[((IOTA - 63) & 127)]) + ((0.0026334700000000002 * fVec16[((IOTA - 59) & 127)]) + ((0.0019319900000000002 * fVec16[((IOTA - 58) & 127)]) + ((0.0028975399999999997 * fVec16[((IOTA - 39) & 127)]) + ((0.018965700000000002 * fVec16[((IOTA - 38) & 127)]) + ((0.0134784 * fVec16[((IOTA - 37) & 127)]) + ((0.0031132099999999999 * fVec16[((IOTA - 36) & 127)]) + ((0.0063885599999999997 * fVec16[((IOTA - 35) & 127)]) + ((0.019759800000000001 * fVec16[((IOTA - 34) & 127)]) + ((0.027778900000000002 * fVec16[((IOTA - 33) & 127)]) + ((0.025745200000000003 * fVec16[((IOTA - 32) & 127)]) + ((0.0028674200000000003 * fVec16[((IOTA - 30) & 127)]) + ((0.023753799999999999 * fVec16[((IOTA - 29) & 127)]) + ((0.020933799999999999 * fVec16[((IOTA - 28) & 127)]) + ((0.0134953 * fVec16[((IOTA - 27) & 127)]) + ((0.024289200000000004 * fVec16[((IOTA - 26) & 127)]) + ((0.0073439100000000004 * fVec16[((IOTA - 25) & 127)]) + ((0.0091244499999999992 * fVec16[((IOTA - 22) & 127)]) + ((0.027517900000000001 * fVec16[((IOTA - 14) & 127)]) + ((0.060376700000000005 * fVec16[((IOTA - 13) & 127)]) + ((0.060888600000000008 * fVec16[((IOTA - 12) & 127)]) + ((0.0051214199999999998 * fVec16[((IOTA - 11) & 127)]) + ((0.00126033 * fVec16[((IOTA - 9) & 127)]) + ((2.0820699999999999e-05 * fVec16[((IOTA - 8) & 127)]) + ((0.00053298400000000002 * fVec16[((IOTA - 5) & 127)]) + ((6.2782600000000011e-05 * fVec16[((IOTA - 4) & 127)]) + ((7.6560500000000007e-05 * fVec16[((IOTA - 3) & 127)]) + ((2.9599300000000003e-05 * fVec16[((IOTA - 1) & 127)]) + ((1.8915500000000002e-05 * fTemp16) + ((0.00051400900000000006 * fVec16[((IOTA - 55) & 127)]) + ((0.00199607 * fVec16[((IOTA - 54) & 127)]) + ((0.00078433799999999998 * fVec16[((IOTA - 53) & 127)]) + (((1.0336899999999999e-06 * fVec17[((IOTA - 126) & 127)]) + ((1.07578e-06 * fVec17[((IOTA - 124) & 127)]) + ((1.0896600000000002e-05 * fVec17[((IOTA - 123) & 127)]) + ((5.7825300000000005e-06 * fVec17[((IOTA - 121) & 127)]) + ((2.9587800000000002e-05 * fVec17[((IOTA - 120) & 127)]) + ((0.000129173 * fVec17[((IOTA - 79) & 127)]) + ((0.0018692700000000001 * fVec17[((IOTA - 77) & 127)]) + ((0.0010500000000000002 * fVec17[((IOTA - 76) & 127)]) + ((1.2511200000000001e-05 * fVec17[((IOTA - 103) & 127)]) + ((3.3373e-05 * fVec17[((IOTA - 101) & 127)]) + ((0.00010999399999999999 * fVec17[((IOTA - 104) & 127)]) + ((0.0022768000000000003 * fVec17[((IOTA - 96) & 127)]) + ((0.0020205099999999997 * fVec17[((IOTA - 95) & 127)]) + ((0.00027500499999999999 * fVec17[((IOTA - 91) & 127)]) + ((9.9177200000000003e-05 * fVec17[((IOTA - 87) & 127)]) + ((0.0006416280000000001 * fVec17[((IOTA - 80) & 127)]) + ((0.0013042499999999999 * fVec17[((IOTA - 72) & 127)]) + ((0.0025056699999999998 * fVec17[((IOTA - 71) & 127)]) + ((0.0044664700000000002 * fVec17[((IOTA - 70) & 127)]) + ((0.0047280300000000003 * fVec17[((IOTA - 69) & 127)]) + ((0.0037914799999999999 * fVec17[((IOTA - 68) & 127)]) + ((0.0063763400000000003 * fVec17[((IOTA - 67) & 127)]) + ((0.0065615300000000003 * fVec17[((IOTA - 66) & 127)]) + ((0.00222449 * fVec17[((IOTA - 65) & 127)]) + ((0.0014331000000000001 * fVec17[((IOTA - 36) & 127)]) + ((0.0043624700000000002 * fVec17[((IOTA - 34) & 127)]) + ((0.0071496000000000007 * fVec17[((IOTA - 33) & 127)]) + ((0.009442299999999999 * fVec17[((IOTA - 31) & 127)]) + ((0.041430000000000002 * fVec17[((IOTA - 30) & 127)]) + ((0.032932100000000006 * fVec17[((IOTA - 29) & 127)]) + ((0.0056186100000000004 * fVec17[((IOTA - 28) & 127)]) + ((0.024621200000000003 * fVec17[((IOTA - 27) & 127)]) + ((0.042141200000000004 * fVec17[((IOTA - 26) & 127)]) + ((0.028794800000000002 * fVec17[((IOTA - 25) & 127)]) + ((0.06345640000000001 * fVec17[((IOTA - 24) & 127)]) + ((0.07541260000000001 * fVec17[((IOTA - 23) & 127)]) + ((0.00046772600000000007 * fVec17[((IOTA - 21) & 127)]) + ((0.049093400000000002 * fVec17[((IOTA - 20) & 127)]) + ((0.054047100000000001 * fVec17[((IOTA - 19) & 127)]) + ((0.0108471 * fVec17[((IOTA - 16) & 127)]) + ((0.0010471900000000001 * fVec17[((IOTA - 7) & 127)]) + ((0.00047446700000000006 * fVec17[((IOTA - 6) & 127)]) + (((1.5753899999999999e-07 * fVec18[((IOTA - 126) & 127)]) + ((3.3066799999999999e-06 * fVec18[((IOTA - 125) & 127)]) + ((9.6444300000000008e-05 * fVec18[((IOTA - 110) & 127)]) + ((0.00034096799999999998 * fVec18[((IOTA - 109) & 127)]) + ((1.0190999999999999e-05 * fVec18[((IOTA - 108) & 127)]) + ((0.00023396100000000001 * fVec18[((IOTA - 106) & 127)]) + ((0.00052374700000000008 * fVec18[((IOTA - 105) & 127)]) + ((0.00036215100000000001 * fVec18[((IOTA - 104) & 127)]) + ((0.00063805800000000005 * fVec18[((IOTA - 102) & 127)]) + ((0.0011957500000000002 * fVec18[((IOTA - 101) & 127)]) + ((0.0010047600000000002 * fVec18[((IOTA - 100) & 127)]) + ((0.00095472699999999994 * fVec18[((IOTA - 99) & 127)]) + ((0.00092775000000000008 * fVec18[((IOTA - 98) & 127)]) + ((0.00122649 * fVec18[((IOTA - 97) & 127)]) + ((0.0011230999999999999 * fVec18[((IOTA - 93) & 127)]) + ((0.00125953 * fVec18[((IOTA - 92) & 127)]) + ((0.00019295400000000001 * fVec18[((IOTA - 91) & 127)]) + ((0.00055969600000000004 * fVec18[((IOTA - 89) & 127)]) + ((0.000103257 * fVec18[((IOTA - 76) & 127)]) + ((0.00171093 * fVec18[((IOTA - 73) & 127)]) + ((0.0020383699999999999 * fVec18[((IOTA - 72) & 127)]) + ((0.0013637999999999999 * fVec18[((IOTA - 69) & 127)]) + ((0.0024843999999999999 * fVec18[((IOTA - 68) & 127)]) + ((0.00074355600000000003 * fVec18[((IOTA - 67) & 127)]) + ((0.00089791299999999997 * fVec18[((IOTA - 65) & 127)]) + ((0.0028104300000000005 * fVec18[((IOTA - 64) & 127)]) + ((0.0015055300000000001 * fVec18[((IOTA - 63) & 127)]) + ((0.00129704 * fVec18[((IOTA - 62) & 127)]) + ((0.00045463200000000001 * fVec18[((IOTA - 61) & 127)]) + ((0.00292619 * fVec18[((IOTA - 60) & 127)]) + ((0.0039499399999999999 * fVec18[((IOTA - 59) & 127)]) + ((0.00042873700000000005 * fVec18[((IOTA - 57) & 127)]) + ((0.00077501600000000001 * fVec18[((IOTA - 56) & 127)]) + ((0.0057435900000000007 * fVec18[((IOTA - 52) & 127)]) + ((0.0064549899999999999 * fVec18[((IOTA - 45) & 127)]) + ((0.0094244500000000009 * fVec18[((IOTA - 39) & 127)]) + ((0.0011423000000000002 * fVec18[((IOTA - 38) & 127)]) + ((0.0177702 * fVec18[((IOTA - 36) & 127)]) + ((0.0096359600000000007 * fVec18[((IOTA - 35) & 127)]) + ((0.019155500000000002 * fVec18[((IOTA - 33) & 127)]) + ((0.019293299999999999 * fVec18[((IOTA - 32) & 127)]) + ((0.0068834500000000002 * fVec18[((IOTA - 29) & 127)]) + ((0.036199000000000002 * fVec18[((IOTA - 26) & 127)]) + ((0.028412400000000001 * fVec18[((IOTA - 23) & 127)]) + ((0.016930500000000001 * fVec18[((IOTA - 20) & 127)]) + ((0.0106017 * fVec18[((IOTA - 19) & 127)]) + ((0.000263627 * fVec18[((IOTA - 17) & 127)]) + ((0.00025129900000000002 * fVec18[((IOTA - 15) & 127)]) + ((0.00047378999999999998 * fVec18[((IOTA - 14) & 127)]) + ((0.000359551 * fVec18[((IOTA - 11) & 127)]) + ((0.00050858999999999995 * fVec18[((IOTA - 10) & 127)]) + ((0.00025865000000000003 * fVec18[((IOTA - 8) & 127)]) + ((0.00030013000000000001 * fVec18[((IOTA - 7) & 127)]) + ((0.00012962100000000001 * fVec18[((IOTA - 4) & 127)]) + ((5.1984399999999995e-06 * fVec18[((IOTA - 2) & 127)]) + ((2.0081900000000002e-05 * fVec18[((IOTA - 1) & 127)]) + ((5.35095e-06 * fTemp18) + (((6.5997900000000001e-08 * fVec19[((IOTA - 126) & 127)]) + ((2.1505000000000002e-05 * fVec19[((IOTA - 111) & 127)]) + ((0.00025875799999999999 * fVec19[((IOTA - 110) & 127)]) + ((0.00016541 * fVec19[((IOTA - 109) & 127)]) + ((0.00012994100000000001 * fVec19[((IOTA - 108) & 127)]) + ((0.000501459 * fVec19[((IOTA - 107) & 127)]) + ((0.00061807300000000002 * fVec19[((IOTA - 106) & 127)]) + ((0.00041380000000000003 * fVec19[((IOTA - 105) & 127)]) + ((4.2136500000000006e-05 * fVec19[((IOTA - 102) & 127)]) + ((1.1025e-06 * fVec19[((IOTA - 101) & 127)]) + ((0.000102185 * fVec19[((IOTA - 100) & 127)]) + ((0.0010346200000000002 * fVec19[((IOTA - 99) & 127)]) + ((0.0015065 * fVec19[((IOTA - 98) & 127)]) + ((0.00015973800000000001 * fVec19[((IOTA - 94) & 127)]) + ((0.00065440400000000003 * fVec19[((IOTA - 93) & 127)]) + ((0.00049362799999999997 * fVec19[((IOTA - 91) & 127)]) + ((0.0010192300000000001 * fVec19[((IOTA - 90) & 127)]) + ((7.1971000000000006e-05 * fVec19[((IOTA - 85) & 127)]) + ((0.00051516900000000011 * fVec19[((IOTA - 84) & 127)]) + ((0.00076406400000000006 * fVec19[((IOTA - 83) & 127)]) + ((9.4944000000000018e-05 * fVec19[((IOTA - 81) & 127)]) + ((0.00095418100000000002 * fVec19[((IOTA - 80) & 127)]) + ((0.00034814200000000002 * fVec19[((IOTA - 76) & 127)]) + ((8.0286900000000005e-05 * fVec19[((IOTA - 71) & 127)]) + ((0.00159566 * fVec19[((IOTA - 70) & 127)]) + ((1.1146700000000001e-05 * fVec19[((IOTA - 67) & 127)]) + ((0.0016114299999999999 * fVec19[((IOTA - 66) & 127)]) + ((0.0030693399999999998 * fVec19[((IOTA - 65) & 127)]) + ((0.0029336900000000001 * fVec19[((IOTA - 64) & 127)]) + ((0.00021672300000000002 * fVec19[((IOTA - 61) & 127)]) + ((0.0015251900000000001 * fVec19[((IOTA - 60) & 127)]) + ((0.00063413500000000008 * fVec19[((IOTA - 59) & 127)]) + ((0.0015717800000000001 * fVec19[((IOTA - 40) & 127)]) + ((0.0086705299999999992 * fVec19[((IOTA - 37) & 127)]) + ((0.00411948 * fVec19[((IOTA - 34) & 127)]) + ((0.0107584 * fVec19[((IOTA - 33) & 127)]) + ((0.0029588800000000001 * fVec19[((IOTA - 32) & 127)]) + ((0.0139764 * fVec19[((IOTA - 30) & 127)]) + ((0.0093965200000000002 * fVec19[((IOTA - 29) & 127)]) + ((0.016385799999999999 * fVec19[((IOTA - 28) & 127)]) + ((0.015254500000000001 * fVec19[((IOTA - 27) & 127)]) + ((0.0099207400000000008 * fVec19[((IOTA - 26) & 127)]) + ((0.041638400000000006 * fVec19[((IOTA - 25) & 127)]) + ((0.020153599999999997 * fVec19[((IOTA - 24) & 127)]) + ((0.00032049699999999999 * fVec19[((IOTA - 23) & 127)]) + ((0.034925999999999999 * fVec19[((IOTA - 22) & 127)]) + ((0.0069752599999999996 * fVec19[((IOTA - 21) & 127)]) + ((0.0037277 * fVec19[((IOTA - 20) & 127)]) + ((0.045202099999999995 * fVec19[((IOTA - 19) & 127)]) + ((0.00526948 * fVec19[((IOTA - 16) & 127)]) + ((0.000358363 * fVec19[((IOTA - 10) & 127)]) + ((0.00023124899999999999 * fVec19[((IOTA - 7) & 127)]) + ((0.00020135900000000002 * fVec19[((IOTA - 6) & 127)]) + (((7.2115600000000003e-07 * fVec20[((IOTA - 126) & 127)]) + ((3.4760399999999997e-08 * fVec20[((IOTA - 123) & 127)]) + ((2.0505700000000003e-05 * fVec20[((IOTA - 122) & 127)]) + ((7.2276399999999995e-06 * fVec20[((IOTA - 121) & 127)]) + ((1.3220600000000002e-05 * fVec20[((IOTA - 120) & 127)]) + ((1.2673900000000001e-05 * fVec20[((IOTA - 118) & 127)]) + ((4.4900900000000009e-05 * fVec20[((IOTA - 117) & 127)]) + ((4.1691399999999999e-05 * fVec20[((IOTA - 110) & 127)]) + ((0.00027668200000000005 * fVec20[((IOTA - 92) & 127)]) + ((0.00280241 * fVec20[((IOTA - 82) & 127)]) + ((0.0020786799999999999 * fVec20[((IOTA - 81) & 127)]) + ((0.00091981900000000011 * fVec20[((IOTA - 80) & 127)]) + ((0.0002275 * fVec20[((IOTA - 79) & 127)]) + ((7.5101900000000007e-05 * fVec20[((IOTA - 76) & 127)]) + ((0.00076943900000000002 * fVec20[((IOTA - 72) & 127)]) + ((0.00063752100000000005 * fVec20[((IOTA - 71) & 127)]) + ((0.0026788099999999998 * fVec20[((IOTA - 70) & 127)]) + ((0.0036546199999999999 * fVec20[((IOTA - 69) & 127)]) + ((7.3547000000000006e-05 * fVec20[((IOTA - 68) & 127)]) + ((0.0010616200000000001 * fVec20[((IOTA - 66) & 127)]) + ((0.00033734999999999999 * fVec20[((IOTA - 64) & 127)]) + ((0.00050336900000000004 * fVec20[((IOTA - 63) & 127)]) + ((0.0013227800000000002 * fVec20[((IOTA - 61) & 127)]) + ((0.0013802 * fVec20[((IOTA - 60) & 127)]) + ((0.00057507100000000002 * fVec20[((IOTA - 59) & 127)]) + ((0.0017853699999999999 * fVec20[((IOTA - 58) & 127)]) + ((0.0034082300000000004 * fVec20[((IOTA - 57) & 127)]) + ((0.00345985 * fVec20[((IOTA - 56) & 127)]) + ((0.00155444 * fVec20[((IOTA - 53) & 127)]) + ((0.0014091100000000001 * fVec20[((IOTA - 52) & 127)]) + ((0.0018625499999999999 * fVec20[((IOTA - 51) & 127)]) + ((0.00053192199999999999 * fVec20[((IOTA - 48) & 127)]) + ((0.000148231 * fVec20[((IOTA - 47) & 127)]) + ((0.0072206400000000004 * fVec20[((IOTA - 44) & 127)]) + ((0.0011467599999999999 * fVec20[((IOTA - 43) & 127)]) + ((0.0050838799999999998 * fVec20[((IOTA - 35) & 127)]) + ((0.0111489 * fVec20[((IOTA - 12) & 127)]) + ((0.00048254200000000003 * fVec20[((IOTA - 10) & 127)]) + ((0.00084440200000000006 * fVec20[((IOTA - 7) & 127)]) + ((0.00014837300000000001 * fVec20[((IOTA - 3) & 127)]) + ((0.0034120499999999998 * fVec20[((IOTA - 24) & 127)]) + ((0.00206245 * fVec20[((IOTA - 23) & 127)]) + ((0.036800600000000003 * fVec20[((IOTA - 19) & 127)]) + ((0.013509400000000001 * fVec20[((IOTA - 32) & 127)]) + ((0.015784800000000002 * fVec20[((IOTA - 27) & 127)]) + ((0.0024348900000000003 * fVec20[((IOTA - 25) & 127)]) + ((0.016894100000000002 * fVec20[((IOTA - 16) & 127)]) + ((0.015907999999999999 * fVec20[((IOTA - 15) & 127)]) + ((6.1446399999999998e-06 * fVec21[((IOTA - 123) & 127)]) + ((8.1741199999999999e-06 * fVec21[((IOTA - 122) & 127)]) + ((2.2315100000000003e-05 * fVec21[((IOTA - 118) & 127)]) + (((4.6366800000000005e-05 * fVec21[((IOTA - 109) & 127)]) + ((0.00015426800000000002 * fVec21[((IOTA - 108) & 127)]) + ((2.9996500000000003e-05 * fVec21[((IOTA - 104) & 127)]) + ((0.00022863600000000002 * fVec21[((IOTA - 103) & 127)]) + ((0.00013601100000000001 * fVec21[((IOTA - 101) & 127)]) + ((0.00011103000000000001 * fVec21[((IOTA - 100) & 127)]) + ((0.00055044600000000001 * fVec21[((IOTA - 98) & 127)]) + ((0.00044798200000000004 * fVec21[((IOTA - 97) & 127)]) + ((0.00032662200000000005 * fVec21[((IOTA - 96) & 127)]) + ((0.00065044300000000001 * fVec21[((IOTA - 92) & 127)]) + ((0.0011816700000000001 * fVec21[((IOTA - 91) & 127)]) + ((0.00100478 * fVec21[((IOTA - 90) & 127)]) + ((4.4411900000000001e-05 * fVec21[((IOTA - 89) & 127)]) + ((0.000103707 * fVec21[((IOTA - 85) & 127)]) + ((0.00012959000000000001 * fVec21[((IOTA - 84) & 127)]) + ((0.0012166300000000002 * fVec21[((IOTA - 82) & 127)]) + ((0.00073013500000000003 * fVec21[((IOTA - 81) & 127)]) + ((0.0015448500000000002 * fVec21[((IOTA - 80) & 127)]) + ((0.00109789 * fVec21[((IOTA - 79) & 127)]) + ((0.00041635900000000004 * fVec21[((IOTA - 77) & 127)]) + ((0.00033440100000000001 * fVec21[((IOTA - 74) & 127)]) + ((0.00171149 * fVec21[((IOTA - 71) & 127)]) + ((0.0032145400000000001 * fVec21[((IOTA - 70) & 127)]) + ((0.000234556 * fVec21[((IOTA - 69) & 127)]) + ((0.0009296310000000001 * fVec21[((IOTA - 67) & 127)]) + ((0.00017575500000000001 * fVec21[((IOTA - 66) & 127)]) + ((0.00098071900000000012 * fVec21[((IOTA - 64) & 127)]) + ((0.00040021800000000004 * fVec21[((IOTA - 63) & 127)]) + ((0.0020002800000000001 * fVec21[((IOTA - 61) & 127)]) + ((0.0024495200000000002 * fVec21[((IOTA - 56) & 127)]) + ((0.0022621500000000001 * fVec21[((IOTA - 55) & 127)]) + ((0.0026210900000000004 * fVec21[((IOTA - 54) & 127)]) + ((0.00107755 * fVec21[((IOTA - 53) & 127)]) + ((0.0018869100000000001 * fVec21[((IOTA - 51) & 127)]) + ((0.0016816299999999999 * fVec21[((IOTA - 48) & 127)]) + ((0.00099638500000000002 * fVec21[((IOTA - 47) & 127)]) + ((0.0034718700000000002 * fVec21[((IOTA - 43) & 127)]) + ((0.0068587300000000004 * fVec21[((IOTA - 42) & 127)]) + ((0.0058219500000000002 * fVec21[((IOTA - 34) & 127)]) + ((0.017078900000000001 * fVec21[((IOTA - 33) & 127)]) + ((0.00087088200000000001 * fVec21[((IOTA - 30) & 127)]) + ((0.027225600000000003 * fVec21[((IOTA - 29) & 127)]) + ((0.00946403 * fVec21[((IOTA - 28) & 127)]) + ((0.0038781100000000002 * fVec21[((IOTA - 25) & 127)]) + ((0.048044200000000002 * fVec21[((IOTA - 24) & 127)]) + ((0.0047823300000000004 * fVec21[((IOTA - 23) & 127)]) + ((0.031593799999999998 * fVec21[((IOTA - 21) & 127)]) + ((0.0092093100000000001 * fVec21[((IOTA - 20) & 127)]) + ((0.0182515 * fVec21[((IOTA - 19) & 127)]) + ((0.0125871 * fVec21[((IOTA - 16) & 127)]) + ((0.0010793700000000001 * fVec21[((IOTA - 14) & 127)]) + ((0.0061485900000000007 * fVec21[((IOTA - 12) & 127)]) + ((0.00108131 * fVec21[((IOTA - 11) & 127)]) + ((0.00149292 * fVec21[((IOTA - 7) & 127)]) + ((0.00062478100000000003 * fVec21[((IOTA - 5) & 127)]) + (((1.4188099999999999e-06 * fVec22[((IOTA - 126) & 127)]) + ((3.3187600000000001e-06 * fVec22[((IOTA - 125) & 127)]) + ((5.1482899999999996e-06 * fVec22[((IOTA - 124) & 127)]) + ((8.7600299999999995e-06 * fVec22[((IOTA - 123) & 127)]) + ((5.5660599999999997e-06 * fVec22[((IOTA - 122) & 127)]) + ((5.530960000000001e-05 * fVec22[((IOTA - 121) & 127)]) + ((0.00011918500000000002 * fVec22[((IOTA - 120) & 127)]) + ((9.8678100000000013e-05 * fVec22[((IOTA - 119) & 127)]) + ((4.2207000000000004e-05 * fVec22[((IOTA - 118) & 127)]) + ((3.2490500000000003e-05 * fVec22[((IOTA - 117) & 127)]) + ((0.00011697900000000002 * fVec22[((IOTA - 116) & 127)]) + ((5.6691300000000004e-05 * fVec22[((IOTA - 112) & 127)]) + ((0.000115798 * fVec22[((IOTA - 111) & 127)]) + ((0.0037339199999999999 * fVec22[((IOTA - 96) & 127)]) + ((0.0027517499999999999 * fVec22[((IOTA - 95) & 127)]) + ((0.00065997500000000004 * fVec22[((IOTA - 92) & 127)]) + ((0.0016790700000000002 * fVec22[((IOTA - 91) & 127)]) + ((0.0019817300000000001 * fVec22[((IOTA - 88) & 127)]) + ((0.0040626200000000003 * fVec22[((IOTA - 87) & 127)]) + ((0.0023261500000000004 * fVec22[((IOTA - 86) & 127)]) + ((0.0015044699999999999 * fVec22[((IOTA - 85) & 127)]) + ((0.0010922900000000001 * fVec22[((IOTA - 84) & 127)]) + ((0.0012104800000000001 * fVec22[((IOTA - 64) & 127)]) + ((0.0039074399999999999 * fVec22[((IOTA - 63) & 127)]) + ((0.00102589 * fVec22[((IOTA - 62) & 127)]) + ((0.00070128400000000004 * fVec22[((IOTA - 59) & 127)]) + ((0.00040873600000000004 * fVec22[((IOTA - 58) & 127)]) + ((0.0011136799999999999 * fVec22[((IOTA - 57) & 127)]) + ((0.0035448200000000002 * fVec22[((IOTA - 56) & 127)]) + ((0.0022150400000000002 * fVec22[((IOTA - 55) & 127)]) + ((3.8517100000000004e-05 * fVec22[((IOTA - 54) & 127)]) + ((0.0011952499999999999 * fVec22[((IOTA - 53) & 127)]) + ((0.00017855099999999999 * fVec22[((IOTA - 52) & 127)]) + ((0.0020778099999999998 * fVec22[((IOTA - 51) & 127)]) + ((0.0048699899999999994 * fVec22[((IOTA - 50) & 127)]) + ((0.0020168600000000001 * fVec22[((IOTA - 49) & 127)]) + ((0.0011997199999999998 * fVec22[((IOTA - 47) & 127)]) + ((0.0061526599999999999 * fVec22[((IOTA - 46) & 127)]) + ((0.0028706900000000004 * fVec22[((IOTA - 44) & 127)]) + ((0.011077500000000001 * fVec22[((IOTA - 43) & 127)]) + ((0.0022290399999999998 * fVec22[((IOTA - 42) & 127)]) + ((0.0084232300000000003 * fVec22[((IOTA - 39) & 127)]) + ((0.00127378 * fVec22[((IOTA - 38) & 127)]) + ((0.0125606 * fVec22[((IOTA - 34) & 127)]) + ((0.011542200000000001 * fVec22[((IOTA - 31) & 127)]) + ((0.024367400000000001 * fVec22[((IOTA - 30) & 127)]) + ((0.0537481 * fVec22[((IOTA - 26) & 127)]) + ((0.00065433400000000001 * fVec22[((IOTA - 10) & 127)]) + ((0.00012754700000000002 * fVec22[((IOTA - 9) & 127)]) + ((0.00028600400000000002 * fVec22[((IOTA - 8) & 127)]) + ((0.00056964699999999995 * fVec22[((IOTA - 6) & 127)]) + ((0.00055874899999999999 * fVec22[((IOTA - 4) & 127)]) + ((0.000107706 * fVec22[((IOTA - 2) & 127)]) + ((2.3258800000000005e-05 * fVec22[((IOTA - 1) & 127)]) + ((1.5002200000000002e-05 * fTemp22) + ((0.013059400000000001 * fVec22[((IOTA - 23) & 127)]) + ((0.021176 * fVec22[((IOTA - 22) & 127)]) + ((0.0292041 * fVec22[((IOTA - 18) & 127)]) + ((0.015611 * fVec22[((IOTA - 17) & 127)]) + ((0.0131959 * fVec22[((IOTA - 15) & 127)]) + ((1.8648999999999999e-06 * fVec23[((IOTA - 126) & 127)]) + ((1.0045e-05 * fVec23[((IOTA - 125) & 127)]) + ((1.8977800000000003e-05 * fVec23[((IOTA - 124) & 127)]) + ((1.9873400000000002e-05 * fVec23[((IOTA - 123) & 127)]) + ((3.4954000000000004e-05 * fVec23[((IOTA - 122) & 127)]) + ((9.3229500000000019e-05 * fVec23[((IOTA - 121) & 127)]) + ((0.00012240800000000001 * fVec23[((IOTA - 120) & 127)]) + ((9.5701199999999998e-05 * fVec23[((IOTA - 119) & 127)]) + ((5.5900900000000005e-05 * fVec23[((IOTA - 115) & 127)]) + ((1.9102600000000002e-05 * fVec23[((IOTA - 114) & 127)]) + ((0.000876507 * fVec23[((IOTA - 91) & 127)]) + ((0.0020406000000000001 * fVec23[((IOTA - 90) & 127)]) + ((0.0013280499999999999 * fVec23[((IOTA - 89) & 127)]) + ((0.0017303100000000001 * fVec23[((IOTA - 88) & 127)]) + ((0.0029776099999999999 * fVec23[((IOTA - 87) & 127)]) + ((0.0025195700000000001 * fVec23[((IOTA - 86) & 127)]) + ((0.0011889400000000001 * fVec23[((IOTA - 83) & 127)]) + ((0.000386788 * fVec23[((IOTA - 81) & 127)]) + ((0.00090610300000000012 * fVec23[((IOTA - 80) & 127)]) + ((0.0014508500000000001 * fVec23[((IOTA - 79) & 127)]) + ((0.00082739399999999996 * fVec23[((IOTA - 78) & 127)]) + ((0.00013990400000000002 * fVec23[((IOTA - 76) & 127)]) + ((0.00174807 * fVec23[((IOTA - 75) & 127)]) + ((0.00102092 * fVec23[((IOTA - 74) & 127)]) + (((0.00235812 * fVec23[((IOTA - 63) & 127)]) + ((0.0021519 * fVec23[((IOTA - 62) & 127)]) + ((7.6654099999999985e-06 * fVec23[((IOTA - 61) & 127)]) + ((0.0022741699999999998 * fVec23[((IOTA - 55) & 127)]) + ((0.0042530099999999998 * fVec23[((IOTA - 54) & 127)]) + ((0.0032282000000000001 * fVec23[((IOTA - 53) & 127)]) + ((0.0041592900000000004 * fVec23[((IOTA - 50) & 127)]) + ((0.0075640600000000001 * fVec23[((IOTA - 49) & 127)]) + ((0.0079603199999999999 * fVec23[((IOTA - 48) & 127)]) + ((0.0030812000000000001 * fVec23[((IOTA - 47) & 127)]) + ((0.00018497500000000001 * fVec23[((IOTA - 46) & 127)]) + ((0.00033097600000000002 * fVec23[((IOTA - 43) & 127)]) + ((0.0066906600000000002 * fVec23[((IOTA - 42) & 127)]) + ((0.0081795500000000007 * fVec23[((IOTA - 41) & 127)]) + ((0.00108066 * fVec23[((IOTA - 40) & 127)]) + ((0.0088403900000000001 * fVec23[((IOTA - 36) & 127)]) + ((0.0054466000000000002 * fVec23[((IOTA - 35) & 127)]) + ((0.0040393699999999996 * fVec23[((IOTA - 33) & 127)]) + ((0.033863999999999998 * fVec23[((IOTA - 29) & 127)]) + ((0.0092350000000000002 * fVec23[((IOTA - 28) & 127)]) + ((0.00053732699999999999 * fVec23[((IOTA - 26) & 127)]) + ((0.0043864799999999999 * fVec23[((IOTA - 24) & 127)]) + ((0.0027836500000000004 * fVec23[((IOTA - 23) & 127)]) + ((0.0092729000000000006 * fVec23[((IOTA - 22) & 127)]) + ((0.022299000000000003 * fVec23[((IOTA - 21) & 127)]) + ((0.0012059800000000002 * fVec23[((IOTA - 20) & 127)]) + ((0.025815500000000002 * fVec23[((IOTA - 17) & 127)]) + ((7.0800700000000008e-05 * fVec23[((IOTA - 9) & 127)]) + ((0.00076956600000000007 * fVec23[((IOTA - 8) & 127)]) + ((0.000231146 * fVec23[((IOTA - 5) & 127)]) + (((1.4833700000000001e-06 * fVec9[((IOTA - 126) & 127)]) + ((3.6973199999999999e-06 * fVec9[((IOTA - 125) & 127)]) + ((8.5058500000000009e-06 * fVec9[((IOTA - 124) & 127)]) + ((4.1470500000000002e-05 * fVec9[((IOTA - 123) & 127)]) + ((7.1901800000000003e-05 * fVec9[((IOTA - 122) & 127)]) + ((3.71676e-05 * fVec9[((IOTA - 121) & 127)]) + ((3.3982700000000002e-05 * fVec9[((IOTA - 119) & 127)]) + ((0.00016550199999999999 * fVec9[((IOTA - 118) & 127)]) + ((0.00015893600000000001 * fVec9[((IOTA - 117) & 127)]) + ((0.00011888700000000002 * fVec9[((IOTA - 116) & 127)]) + ((2.6751600000000003e-05 * fVec9[((IOTA - 115) & 127)]) + ((1.5261800000000004e-05 * fVec9[((IOTA - 114) & 127)]) + ((0.00030627700000000004 * fVec9[((IOTA - 113) & 127)]) + ((0.00036830800000000003 * fVec9[((IOTA - 112) & 127)]) + ((0.000251322 * fVec9[((IOTA - 111) & 127)]) + ((0.00022708 * fVec9[((IOTA - 110) & 127)]) + ((0.000239084 * fVec9[((IOTA - 109) & 127)]) + ((9.1238799999999995e-06 * fVec9[((IOTA - 108) & 127)]) + ((0.00015429699999999999 * fVec9[((IOTA - 90) & 127)]) + ((0.00021972700000000002 * fVec9[((IOTA - 89) & 127)]) + ((0.0011643300000000001 * fVec9[((IOTA - 82) & 127)]) + ((0.00065994200000000006 * fVec9[((IOTA - 77) & 127)]) + ((0.0017905 * fVec9[((IOTA - 76) & 127)]) + ((0.00015571700000000001 * fVec9[((IOTA - 71) & 127)]) + ((0.0044549899999999998 * fVec9[((IOTA - 70) & 127)]) + ((0.0039002500000000005 * fVec9[((IOTA - 69) & 127)]) + ((0.00054205300000000002 * fVec9[((IOTA - 68) & 127)]) + ((0.00164631 * fVec9[((IOTA - 67) & 127)]) + ((0.00128867 * fVec9[((IOTA - 66) & 127)]) + ((0.000377902 * fVec9[((IOTA - 65) & 127)]) + ((0.00227327 * fVec9[((IOTA - 64) & 127)]) + ((0.0030369999999999998 * fVec9[((IOTA - 63) & 127)]) + ((0.0023284899999999999 * fVec9[((IOTA - 62) & 127)]) + ((0.0020450900000000003 * fVec9[((IOTA - 61) & 127)]) + ((0.0038926099999999999 * fVec9[((IOTA - 60) & 127)]) + ((0.0057548899999999995 * fVec9[((IOTA - 58) & 127)]) + ((0.0110121 * fVec9[((IOTA - 57) & 127)]) + ((0.010980500000000001 * fVec9[((IOTA - 56) & 127)]) + ((0.0074067100000000004 * fVec9[((IOTA - 55) & 127)]) + ((0.0058000299999999994 * fVec9[((IOTA - 54) & 127)]) + ((0.0046881500000000003 * fVec9[((IOTA - 53) & 127)]) + ((0.0079024400000000002 * fVec9[((IOTA - 52) & 127)]) + ((0.0143637 * fVec9[((IOTA - 51) & 127)]) + ((0.018899099999999999 * fVec9[((IOTA - 50) & 127)]) + ((0.016699200000000001 * fVec9[((IOTA - 49) & 127)]) + ((0.0121522 * fVec9[((IOTA - 48) & 127)]) + ((0.011685700000000002 * fVec9[((IOTA - 47) & 127)]) + ((0.0122635 * fVec9[((IOTA - 46) & 127)]) + ((0.017027300000000002 * fVec9[((IOTA - 45) & 127)]) + ((0.019806900000000002 * fVec9[((IOTA - 44) & 127)]) + ((0.017303499999999999 * fVec9[((IOTA - 43) & 127)]) + ((0.017569399999999999 * fVec9[((IOTA - 42) & 127)]) + ((0.016072400000000001 * fVec9[((IOTA - 41) & 127)]) + ((0.0227996 * fVec9[((IOTA - 40) & 127)]) + ((0.016965000000000001 * fVec9[((IOTA - 39) & 127)]) + ((0.017693 * fVec9[((IOTA - 38) & 127)]) + ((0.033336499999999998 * fVec9[((IOTA - 37) & 127)]) + ((0.029073099999999998 * fVec9[((IOTA - 36) & 127)]) + ((0.018621700000000001 * fVec9[((IOTA - 35) & 127)]) + ((0.023295900000000001 * fVec9[((IOTA - 34) & 127)]) + ((0.030269900000000002 * fVec9[((IOTA - 33) & 127)]) + ((0.023498000000000002 * fVec9[((IOTA - 32) & 127)]) + ((0.012867100000000001 * fVec9[((IOTA - 31) & 127)]) + ((0.024658199999999998 * fVec9[((IOTA - 30) & 127)]) + ((0.033071500000000004 * fVec9[((IOTA - 29) & 127)]) + ((0.023601800000000003 * fVec9[((IOTA - 28) & 127)]) + ((0.025422899999999998 * fVec9[((IOTA - 27) & 127)]) + ((0.014210199999999999 * fVec9[((IOTA - 26) & 127)]) + ((0.010567 * fVec9[((IOTA - 25) & 127)]) + ((0.056895100000000004 * fVec9[((IOTA - 24) & 127)]) + ((0.00027516900000000002 * fVec9[((IOTA - 2) & 127)]) + ((1.74779e-06 * fVec24[((IOTA - 126) & 127)]) + ((7.1374800000000001e-06 * fVec24[((IOTA - 125) & 127)]) + ((1.69708e-05 * fVec24[((IOTA - 124) & 127)]) + ((7.3980599999999995e-07 * fVec24[((IOTA - 123) & 127)]) + ((5.5996800000000006e-05 * fVec24[((IOTA - 121) & 127)]) + ((0.000117308 * fVec24[((IOTA - 120) & 127)]) + ((0.000195057 * fVec24[((IOTA - 119) & 127)]) + ((0.00020216400000000001 * fVec24[((IOTA - 118) & 127)]) + ((0.00016114100000000001 * fVec24[((IOTA - 117) & 127)]) + ((0.00038352400000000005 * fVec24[((IOTA - 116) & 127)]) + ((0.00050261399999999997 * fVec24[((IOTA - 115) & 127)]) + ((0.00050803600000000001 * fVec24[((IOTA - 114) & 127)]) + ((0.00042659700000000002 * fVec24[((IOTA - 113) & 127)]) + ((0.00050421999999999999 * fVec24[((IOTA - 112) & 127)]) + ((0.0010336799999999999 * fVec24[((IOTA - 111) & 127)]) + ((0.00070924500000000006 * fVec24[((IOTA - 110) & 127)]) + ((0.000779071 * fVec24[((IOTA - 109) & 127)]) + ((0.00095978899999999995 * fVec24[((IOTA - 108) & 127)]) + ((0.0013097499999999999 * fVec24[((IOTA - 107) & 127)]) + ((0.0016259900000000001 * fVec24[((IOTA - 106) & 127)]) + ((0.00100501 * fVec24[((IOTA - 105) & 127)]) + ((0.0012236 * fVec24[((IOTA - 104) & 127)]) + ((0.0018419899999999999 * fVec24[((IOTA - 103) & 127)]) + ((0.00147426 * fVec24[((IOTA - 102) & 127)]) + ((0.0013272 * fVec24[((IOTA - 101) & 127)]) + ((0.00094503799999999993 * fVec24[((IOTA - 100) & 127)]) + ((0.00059498000000000005 * fVec24[((IOTA - 99) & 127)]) + ((0.0025739000000000001 * fVec24[((IOTA - 96) & 127)]) + ((0.0033512100000000003 * fVec24[((IOTA - 95) & 127)]) + ((0.00193882 * fVec24[((IOTA - 88) & 127)]) + ((0.00365475 * fVec24[((IOTA - 87) & 127)]) + ((0.0026745600000000003 * fVec24[((IOTA - 86) & 127)]) + ((0.0017505699999999999 * fVec24[((IOTA - 85) & 127)]) + ((0.0010550900000000001 * fVec24[((IOTA - 84) & 127)]) + ((2.5156400000000002e-05 * fVec24[((IOTA - 83) & 127)]) + ((0.0015368900000000002 * fVec24[((IOTA - 81) & 127)]) + ((0.0026692399999999998 * fVec24[((IOTA - 80) & 127)]) + ((0.00144247 * fVec24[((IOTA - 79) & 127)]) + ((0.0020409600000000001 * fVec24[((IOTA - 78) & 127)]) + ((0.0020199900000000002 * fVec24[((IOTA - 77) & 127)]) + ((0.0046326400000000004 * fVec24[((IOTA - 76) & 127)]) + ((0.0053821700000000004 * fVec24[((IOTA - 75) & 127)]) + ((0.0036032700000000004 * fVec24[((IOTA - 74) & 127)]) + ((0.0053022700000000004 * fVec24[((IOTA - 73) & 127)]) + ((0.0039087499999999999 * fVec24[((IOTA - 72) & 127)]) + ((0.0019828699999999999 * fVec24[((IOTA - 71) & 127)]) + ((0.00072404000000000001 * fVec24[((IOTA - 70) & 127)]) + ((0.0033726400000000001 * fVec24[((IOTA - 68) & 127)]) + ((0.0028127900000000003 * fVec24[((IOTA - 67) & 127)]) + ((0.0016933400000000002 * fVec24[((IOTA - 66) & 127)]) + ((0.0029381799999999999 * fVec24[((IOTA - 65) & 127)]) + ((0.0038801100000000004 * fVec24[((IOTA - 64) & 127)]) + ((0.0067297599999999996 * fVec24[((IOTA - 63) & 127)]) + ((0.0064815100000000002 * fVec24[((IOTA - 62) & 127)]) + ((0.00338193 * fVec24[((IOTA - 61) & 127)]) + ((0.0026122100000000002 * fVec24[((IOTA - 60) & 127)]) + ((0.0038020800000000002 * fVec24[((IOTA - 59) & 127)]) + ((0.00278079 * fVec24[((IOTA - 58) & 127)]) + ((4.49754e-06 * fVec24[((IOTA - 56) & 127)]) + ((0.0042595000000000003 * fVec24[((IOTA - 54) & 127)]) + ((0.0029229899999999999 * fVec24[((IOTA - 53) & 127)]) + ((0.00139635 * fVec24[((IOTA - 52) & 127)]) + ((0.00020930100000000001 * fVec24[((IOTA - 51) & 127)]) + ((0.0014356600000000001 * fVec24[((IOTA - 50) & 127)]) + ((0.0039973999999999999 * fVec24[((IOTA - 55) & 127)]) + ((0.0046483699999999998 * fVec24[((IOTA - 49) & 127)]) + ((0.00067166600000000002 * fVec24[((IOTA - 48) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((1.96889e-05 * fTemp24) + (0.00012713900000000002 * fVec24[((IOTA - 1) & 127)])) + (0.00072445800000000009 * fVec24[((IOTA - 3) & 127)])) + (0.00084005400000000002 * fVec24[((IOTA - 4) & 127)])) + (0.00078251799999999995 * fVec24[((IOTA - 5) & 127)])) + (0.00064681700000000005 * fVec24[((IOTA - 6) & 127)])) + (0.00105561 * fVec24[((IOTA - 7) & 127)])) + (0.00107368 * fVec24[((IOTA - 8) & 127)])) + (0.00055752700000000004 * fVec24[((IOTA - 9) & 127)])) + (0.0020685400000000002 * fVec24[((IOTA - 10) & 127)])) + (0.0007391530000000001 * fVec24[((IOTA - 11) & 127)])) + (0.048941400000000003 * fVec24[((IOTA - 12) & 127)])) + (0.053001199999999998 * fVec24[((IOTA - 13) & 127)])) + (0.046698700000000003 * fVec24[((IOTA - 14) & 127)])) + (0.062211200000000001 * fVec24[((IOTA - 15) & 127)])) + (0.043948600000000004 * fVec24[((IOTA - 16) & 127)])) + (0.081345899999999999 * fVec24[((IOTA - 17) & 127)])) + (0.047424299999999996 * fVec24[((IOTA - 18) & 127)])) + (0.041405900000000002 * fVec24[((IOTA - 19) & 127)])) + (0.069732299999999997 * fVec24[((IOTA - 20) & 127)])) + (0.050380599999999998 * fVec24[((IOTA - 21) & 127)])) + (0.111697 * fVec24[((IOTA - 22) & 127)])) + (0.054464300000000007 * fVec24[((IOTA - 23) & 127)])) + (0.036801199999999999 * fVec24[((IOTA - 25) & 127)])) + (0.042423700000000002 * fVec24[((IOTA - 26) & 127)])) + (0.0075229400000000005 * fVec24[((IOTA - 27) & 127)])) + (0.0123141 * fVec24[((IOTA - 28) & 127)])) + (0.0216826 * fVec24[((IOTA - 29) & 127)])) + (0.017730600000000003 * fVec24[((IOTA - 30) & 127)])) + (0.0080194200000000011 * fVec24[((IOTA - 31) & 127)])) + (0.021074000000000002 * fVec24[((IOTA - 33) & 127)])) + (0.0272114 * fVec24[((IOTA - 34) & 127)])) + (0.0056564199999999997 * fVec24[((IOTA - 35) & 127)])) + (0.010539099999999999 * fVec24[((IOTA - 36) & 127)])) + (0.0081598500000000015 * fVec24[((IOTA - 37) & 127)])) + (0.0060665699999999994 * fVec24[((IOTA - 38) & 127)])) + (0.0072938400000000002 * fVec24[((IOTA - 39) & 127)])) + (0.0014525200000000001 * fVec24[((IOTA - 40) & 127)])) + (0.0049862900000000009 * fVec24[((IOTA - 41) & 127)])) + (0.014038399999999999 * fVec24[((IOTA - 42) & 127)])) + (0.0105579 * fVec24[((IOTA - 43) & 127)])) + (0.00431154 * fVec24[((IOTA - 45) & 127)])) + (0.0084629900000000001 * fVec24[((IOTA - 46) & 127)])) + (0.0007157 * fVec24[((IOTA - 47) & 127)])) + (0.0051357799999999995 * fVec9[((IOTA - 59) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00014766099999999999 * fVec23[((IOTA - 4) & 127)])))))))))))))))))))))))))))))))) + (0.0033820999999999999 * fVec22[((IOTA - 13) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00028939400000000006 * fVec21[((IOTA - 3) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00139284 * fVec20[((IOTA - 13) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00015575000000000002 * fVec19[((IOTA - 2) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00050830900000000008 * fVec18[((IOTA - 83) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00031437800000000003 * fVec17[((IOTA - 2) & 127)])))))))))))))))))))))))))))))))))))))))))))) + (0.00289646 * fVec16[((IOTA - 41) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.018085500000000001 * fVec13[((IOTA - 23) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0005644370000000001 * fVec10[((IOTA - 62) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (5.4750600000000001e-07 * fVec11[((IOTA - 1) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (8.4675399999999992e-06 * fTemp6)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0050167000000000007 * fVec5[((IOTA - 15) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.018413300000000001 * fVec4[((IOTA - 20) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (9.3501200000000002e-06 * fTemp0)) + (0.00026734600000000001 * fVec0[((IOTA - 4) & 127)])) + (0.0006046230000000001 * fVec0[((IOTA - 5) & 127)])) + (0.000116198 * fVec0[((IOTA - 7) & 127)])) + (0.00021498000000000001 * fVec0[((IOTA - 8) & 127)])) + (0.00102728 * fVec0[((IOTA - 9) & 127)])) + (0.0096909700000000001 * fVec0[((IOTA - 11) & 127)])) + (0.040782800000000001 * fVec0[((IOTA - 12) & 127)])) + (0.035763900000000001 * fVec0[((IOTA - 13) & 127)])) + (0.0082633600000000008 * fVec0[((IOTA - 14) & 127)])) + (0.0053294199999999996 * fVec0[((IOTA - 20) & 127)])) + (0.021568500000000001 * fVec0[((IOTA - 21) & 127)])) + (0.053170500000000002 * fVec0[((IOTA - 22) & 127)])) + (0.054135099999999998 * fVec0[((IOTA - 23) & 127)])) + (0.011376599999999999 * fVec0[((IOTA - 25) & 127)])) + (0.032389800000000003 * fVec0[((IOTA - 26) & 127)])) + (0.0037881900000000003 * fVec0[((IOTA - 27) & 127)])) + (0.013483499999999999 * fVec0[((IOTA - 30) & 127)]))))))))))))))))))))) + (0.00049059500000000003 * (fVec2[((IOTA - 81) & 127)] - fVec1[((IOTA - 75) & 127)]))) - ((0.0013939500000000001 * (fVec20[((IOTA - 78) & 127)] - fVec2[((IOTA - 58) & 127)])) + ((0.011907399999999999 * (fVec15[((IOTA - 33) & 127)] + fVec7[((IOTA - 23) & 127)])) + ((1.5865800000000003e-05 * fVec0[((IOTA - 123) & 127)]) + ((3.3133000000000003e-05 * fVec0[((IOTA - 122) & 127)]) + ((7.6978800000000009e-05 * fVec0[((IOTA - 121) & 127)]) + ((6.9207600000000005e-05 * fVec0[((IOTA - 120) & 127)]) + ((3.4888e-06 * fVec0[((IOTA - 119) & 127)]) + ((5.6830400000000004e-05 * fVec0[((IOTA - 118) & 127)]) + ((0.00013956500000000002 * fVec0[((IOTA - 117) & 127)]) + ((0.000268843 * fVec0[((IOTA - 116) & 127)]) + ((0.00016843600000000003 * fVec0[((IOTA - 115) & 127)]) + ((0.00010568 * fVec0[((IOTA - 111) & 127)]) + ((0.00025351300000000002 * fVec0[((IOTA - 110) & 127)]) + ((0.00015057400000000003 * fVec0[((IOTA - 108) & 127)]) + ((4.4610300000000002e-05 * fVec0[((IOTA - 106) & 127)]) + ((0.000116422 * fVec0[((IOTA - 96) & 127)]) + ((0.00045103200000000003 * fVec0[((IOTA - 93) & 127)]) + (((((((((((((((((0.012866299999999999 * fVec0[((IOTA - 37) & 127)]) + ((0.018287600000000001 * fVec0[((IOTA - 36) & 127)]) + ((0.0067883699999999993 * fVec0[((IOTA - 35) & 127)]) + ((0.0035579800000000001 * fVec0[((IOTA - 34) & 127)]) + ((0.000522489 * fVec0[((IOTA - 92) & 127)]) + ((0.0012505699999999999 * fVec0[((IOTA - 91) & 127)]) + ((0.0011286 * fVec0[((IOTA - 90) & 127)]) + ((0.00076078500000000004 * fVec0[((IOTA - 89) & 127)]) + ((0.0018710199999999999 * fVec0[((IOTA - 88) & 127)]) + ((0.0019413400000000002 * fVec0[((IOTA - 87) & 127)]) + ((1.9325300000000003e-05 * fVec0[((IOTA - 80) & 127)]) + ((0.000110683 * fVec0[((IOTA - 77) & 127)]) + ((0.00090340100000000007 * fVec0[((IOTA - 75) & 127)]) + ((0.00063188700000000003 * fVec0[((IOTA - 74) & 127)]) + ((0.0015169699999999999 * fVec0[((IOTA - 70) & 127)]) + ((0.00228896 * fVec0[((IOTA - 69) & 127)]) + ((0.0018415700000000001 * fVec0[((IOTA - 68) & 127)]) + ((0.000677036 * fVec0[((IOTA - 67) & 127)]) + ((0.00070188499999999997 * fVec0[((IOTA - 66) & 127)]) + ((6.0076500000000007e-05 * fVec0[((IOTA - 65) & 127)]) + ((0.00053549200000000004 * fVec0[((IOTA - 64) & 127)]) + ((0.0012484900000000001 * fVec0[((IOTA - 63) & 127)]) + ((0.00010081100000000001 * fVec0[((IOTA - 62) & 127)]) + ((0.0010030500000000001 * fVec0[((IOTA - 61) & 127)]) + ((0.00019151300000000001 * fVec0[((IOTA - 60) & 127)]) + (((0.00012409699999999999 * fVec0[((IOTA - 56) & 127)]) + ((0.00034672200000000005 * fVec0[((IOTA - 54) & 127)]) + ((0.00149271 * fVec0[((IOTA - 50) & 127)]) + ((0.0057374000000000001 * fVec0[((IOTA - 45) & 127)]) + ((0.0043065899999999999 * fVec0[((IOTA - 44) & 127)]) + ((0.0057909800000000003 * fVec0[((IOTA - 41) & 127)]) + ((1.47788e-07 * fVec1[((IOTA - 126) & 127)]) + ((4.2830899999999998e-06 * fVec1[((IOTA - 123) & 127)]) + ((1.5180600000000002e-05 * fVec1[((IOTA - 122) & 127)]) + ((5.7183599999999999e-05 * fVec1[((IOTA - 121) & 127)]) + ((3.7596900000000006e-05 * fVec1[((IOTA - 120) & 127)]) + ((5.5951800000000002e-05 * fVec1[((IOTA - 119) & 127)]) + ((4.1282200000000003e-05 * fVec1[((IOTA - 118) & 127)]) + ((8.3589400000000017e-05 * fVec1[((IOTA - 117) & 127)]) + ((0.00011071500000000001 * fVec1[((IOTA - 116) & 127)]) + ((6.9900900000000014e-05 * fVec1[((IOTA - 115) & 127)]) + ((0.00020505 * fVec1[((IOTA - 114) & 127)]) + ((9.7282700000000016e-05 * fVec1[((IOTA - 112) & 127)]) + ((0.00035981700000000001 * fVec1[((IOTA - 111) & 127)]) + ((0.00022261899999999999 * fVec1[((IOTA - 110) & 127)]) + ((0.00027634500000000005 * fVec1[((IOTA - 107) & 127)]) + ((0.00035780099999999998 * fVec1[((IOTA - 101) & 127)]) + ((0.00071558799999999997 * fVec1[((IOTA - 91) & 127)]) + ((0.00188966 * fVec1[((IOTA - 48) & 127)]) + ((0.00393443 * fVec1[((IOTA - 47) & 127)]) + ((0.0088357600000000015 * fVec1[((IOTA - 44) & 127)]) + ((0.00144816 * fVec1[((IOTA - 43) & 127)]) + ((0.0053719000000000006 * fVec1[((IOTA - 41) & 127)]) + ((0.0057588200000000004 * fVec1[((IOTA - 38) & 127)]) + ((0.0038469899999999998 * fVec1[((IOTA - 37) & 127)]) + ((0.0020671499999999998 * fVec1[((IOTA - 35) & 127)]) + ((0.0158868 * fVec1[((IOTA - 34) & 127)]) + ((0.016835300000000001 * fVec1[((IOTA - 31) & 127)]) + ((0.0075965400000000006 * fVec1[((IOTA - 28) & 127)]) + ((0.0061243800000000004 * fVec1[((IOTA - 26) & 127)]) + ((0.024267400000000001 * fVec1[((IOTA - 25) & 127)]) + ((0.022247599999999999 * fVec1[((IOTA - 22) & 127)]) + ((0.025193300000000002 * fVec1[((IOTA - 19) & 127)]) + ((0.00116489 * fVec1[((IOTA - 16) & 127)]) + ((0.0071606500000000002 * fVec1[((IOTA - 15) & 127)]) + ((0.00099201300000000014 * fVec1[((IOTA - 10) & 127)]) + ((2.56811e-05 * fVec1[((IOTA - 8) & 127)]) + ((0.000660455 * fVec1[((IOTA - 6) & 127)]) + ((0.00016602900000000002 * fVec1[((IOTA - 4) & 127)]) + ((4.0803300000000003e-05 * fVec1[((IOTA - 3) & 127)]) + ((7.5886399999999999e-05 * fVec1[((IOTA - 2) & 127)]) + ((9.9447399999999992e-06 * fTemp1) + ((0.00093411100000000006 * fVec1[((IOTA - 53) & 127)]) + ((0.0024952400000000001 * fVec1[((IOTA - 51) & 127)]) + ((0.0034762300000000003 * fVec1[((IOTA - 50) & 127)]) + ((0.00124285 * fVec1[((IOTA - 88) & 127)]) + ((0.00034728 * fVec1[((IOTA - 87) & 127)]) + ((0.00092678400000000005 * fVec1[((IOTA - 84) & 127)]) + ((0.0016128900000000001 * fVec1[((IOTA - 83) & 127)]) + ((0.00063472000000000008 * fVec1[((IOTA - 79) & 127)]) + ((0.0027100900000000001 * fVec1[((IOTA - 78) & 127)]) + ((0.00108501 * fVec1[((IOTA - 77) & 127)]) + ((0.00066758699999999998 * fVec1[((IOTA - 76) & 127)]) + ((0.00036076100000000002 * fVec1[((IOTA - 74) & 127)]) + ((0.0013523700000000001 * fVec1[((IOTA - 73) & 127)]) + ((0.0010234199999999999 * fVec1[((IOTA - 72) & 127)]) + ((0.00051179399999999999 * fVec1[((IOTA - 71) & 127)]) + ((0.0010446200000000002 * fVec1[((IOTA - 70) & 127)]) + ((0.00024338600000000003 * fVec1[((IOTA - 69) & 127)]) + ((0.00132391 * fVec1[((IOTA - 59) & 127)]) + ((0.0030292000000000001 * fVec1[((IOTA - 58) & 127)]) + ((0.00167037 * fVec1[((IOTA - 57) & 127)]) + ((0.00015749700000000001 * fVec1[((IOTA - 56) & 127)]) + ((0.00023174299999999999 * fVec1[((IOTA - 55) & 127)]) + (((2.1436099999999995e-06 * fVec2[((IOTA - 125) & 127)]) + ((9.3152500000000003e-06 * fVec2[((IOTA - 124) & 127)]) + ((8.1889299999999992e-06 * fVec2[((IOTA - 123) & 127)]) + ((1.74931e-05 * fVec2[((IOTA - 122) & 127)]) + ((2.2752300000000002e-05 * fVec2[((IOTA - 121) & 127)]) + ((1.2775900000000001e-05 * fVec2[((IOTA - 120) & 127)]) + ((4.7892300000000002e-05 * fVec2[((IOTA - 119) & 127)]) + ((1.7953800000000001e-05 * fVec2[((IOTA - 118) & 127)]) + ((5.4085200000000009e-05 * fVec2[((IOTA - 117) & 127)]) + ((0.000145382 * fVec2[((IOTA - 116) & 127)]) + ((1.3354200000000001e-06 * fVec2[((IOTA - 115) & 127)]) + ((7.4177099999999998e-05 * fVec2[((IOTA - 114) & 127)]) + ((0.000238922 * fVec2[((IOTA - 113) & 127)]) + ((9.5068000000000005e-05 * fVec2[((IOTA - 112) & 127)]) + ((0.00035358399999999999 * fVec2[((IOTA - 109) & 127)]) + ((4.61018e-05 * fVec2[((IOTA - 108) & 127)]) + ((3.6978000000000004e-05 * fVec2[((IOTA - 104) & 127)]) + ((0.00016568300000000002 * fVec2[((IOTA - 100) & 127)]) + ((0.00126296 * fVec2[((IOTA - 94) & 127)]) + ((0.0035651700000000003 * fVec2[((IOTA - 93) & 127)]) + ((0.00034114600000000002 * fVec2[((IOTA - 57) & 127)]) + ((0.00087139800000000001 * fVec2[((IOTA - 56) & 127)]) + ((3.7472300000000004e-05 * fVec2[((IOTA - 55) & 127)]) + ((0.00035147300000000004 * fVec2[((IOTA - 43) & 127)]) + ((0.0054228599999999998 * fVec2[((IOTA - 41) & 127)]) + ((0.00555617 * fVec2[((IOTA - 40) & 127)]) + ((0.00149051 * fVec2[((IOTA - 39) & 127)]) + ((0.0066379000000000004 * fVec2[((IOTA - 38) & 127)]) + ((0.023168899999999999 * fVec2[((IOTA - 37) & 127)]) + ((0.022447100000000001 * fVec2[((IOTA - 36) & 127)]) + ((0.0076363300000000002 * fVec2[((IOTA - 35) & 127)]) + ((0.00533637 * fVec2[((IOTA - 34) & 127)]) + ((0.0032469800000000004 * fVec2[((IOTA - 31) & 127)]) + ((0.0052128300000000008 * fVec2[((IOTA - 30) & 127)]) + ((0.00172566 * fVec2[((IOTA - 28) & 127)]) + ((0.018620600000000001 * fVec2[((IOTA - 27) & 127)]) + ((0.0399341 * fVec2[((IOTA - 20) & 127)]) + ((0.0157208 * fVec2[((IOTA - 19) & 127)]) + ((0.037496399999999999 * fVec2[((IOTA - 17) & 127)]) + ((0.026212800000000001 * fVec2[((IOTA - 16) & 127)]) + ((0.042901499999999995 * fVec2[((IOTA - 15) & 127)]) + ((0.020667000000000001 * fVec2[((IOTA - 14) & 127)]) + ((0.0017872699999999999 * fVec2[((IOTA - 10) & 127)]) + ((0.0012646299999999999 * fVec2[((IOTA - 8) & 127)]) + ((0.00051453000000000002 * fVec2[((IOTA - 6) & 127)]) + ((0.000140598 * fVec2[((IOTA - 3) & 127)]) + ((0.00031664699999999998 * fVec2[((IOTA - 2) & 127)]) + ((5.2325000000000005e-05 * fVec2[((IOTA - 1) & 127)]) + ((0.00257216 * fVec2[((IOTA - 61) & 127)]) + ((0.00089788499999999996 * fVec2[((IOTA - 60) & 127)]) + ((0.00191836 * fVec2[((IOTA - 92) & 127)]) + ((0.00036924600000000005 * fVec2[((IOTA - 91) & 127)]) + ((0.00064602799999999999 * fVec2[((IOTA - 90) & 127)]) + ((0.0010497700000000002 * fVec2[((IOTA - 89) & 127)]) + ((8.767989999999999e-06 * fVec2[((IOTA - 88) & 127)]) + ((0.00110188 * fVec2[((IOTA - 85) & 127)]) + ((0.0028700499999999999 * fVec2[((IOTA - 84) & 127)]) + ((0.0032637399999999998 * fVec2[((IOTA - 83) & 127)]) + ((0.00124704 * fVec2[((IOTA - 82) & 127)]) + ((0.00038958100000000001 * fVec2[((IOTA - 80) & 127)]) + ((0.00067759099999999996 * fVec2[((IOTA - 79) & 127)]) + ((0.00096400700000000001 * fVec2[((IOTA - 74) & 127)]) + ((0.0012385999999999999 * fVec2[((IOTA - 68) & 127)]) + ((0.00042248599999999997 * fVec2[((IOTA - 67) & 127)]) + ((0.00026454499999999998 * fVec2[((IOTA - 65) & 127)]) + ((0.0036227100000000003 * fVec2[((IOTA - 64) & 127)]) + ((0.0037377299999999999 * fVec2[((IOTA - 63) & 127)]) + ((0.0043915100000000004 * fVec2[((IOTA - 62) & 127)]) + ((5.8891899999999998e-07 * fVec3[((IOTA - 126) & 127)]) + ((1.5362e-06 * fVec3[((IOTA - 125) & 127)]) + ((5.0275400000000003e-05 * fVec3[((IOTA - 120) & 127)]) + ((3.1142400000000002e-05 * fVec3[((IOTA - 119) & 127)]) + ((2.6072899999999997e-06 * fVec3[((IOTA - 118) & 127)]) + ((5.3306300000000008e-05 * fVec3[((IOTA - 117) & 127)]) + ((1.7970700000000001e-05 * fVec3[((IOTA - 116) & 127)]) + ((0.00026641600000000001 * fVec3[((IOTA - 111) & 127)]) + ((0.00038083300000000002 * fVec3[((IOTA - 110) & 127)]) + ((0.00026763500000000001 * fVec3[((IOTA - 107) & 127)]) + ((0.00025283000000000006 * fVec3[((IOTA - 106) & 127)]) + ((4.3015400000000008e-05 * fVec3[((IOTA - 105) & 127)]) + ((0.00010684300000000001 * fVec3[((IOTA - 104) & 127)]) + ((5.1774199999999995e-06 * fVec3[((IOTA - 103) & 127)]) + ((0.000256214 * fVec3[((IOTA - 102) & 127)]) + ((7.3338599999999996e-05 * fVec3[((IOTA - 101) & 127)]) + ((7.9560600000000005e-05 * fVec3[((IOTA - 99) & 127)]) + ((6.534720000000001e-05 * fVec3[((IOTA - 95) & 127)]) + ((0.0016416599999999999 * fVec3[((IOTA - 94) & 127)]) + ((0.00116942 * fVec3[((IOTA - 93) & 127)]) + ((0.00010716300000000002 * fVec3[((IOTA - 89) & 127)]) + ((0.00023784200000000004 * fVec3[((IOTA - 88) & 127)]) + ((0.00023227000000000002 * fVec3[((IOTA - 50) & 127)]) + ((0.0011046700000000001 * fVec3[((IOTA - 49) & 127)]) + ((0.0017173400000000001 * fVec3[((IOTA - 47) & 127)]) + ((0.00096283600000000012 * fVec3[((IOTA - 46) & 127)]) + ((0.0020164800000000002 * fVec3[((IOTA - 44) & 127)]) + ((0.00034979300000000004 * fVec3[((IOTA - 41) & 127)]) + ((0.0033543900000000001 * fVec3[((IOTA - 40) & 127)]) + ((0.013240500000000001 * fVec3[((IOTA - 37) & 127)]) + ((0.0071675799999999998 * fVec3[((IOTA - 34) & 127)]) + ((0.0098981 * fVec3[((IOTA - 33) & 127)]) + ((0.00136287 * fVec3[((IOTA - 30) & 127)]) + ((0.00092559700000000001 * fVec3[((IOTA - 28) & 127)]) + ((0.0086453599999999995 * fVec3[((IOTA - 26) & 127)]) + ((0.0019909900000000002 * fVec3[((IOTA - 23) & 127)]) + ((0.013336300000000001 * fVec3[((IOTA - 21) & 127)]) + ((0.00016282300000000001 * fVec3[((IOTA - 20) & 127)]) + ((0.0033735599999999998 * fVec3[((IOTA - 18) & 127)]) + ((0.0013478399999999999 * fVec3[((IOTA - 16) & 127)]) + ((0.0024369399999999999 * fVec3[((IOTA - 15) & 127)]) + ((0.00048140299999999999 * fVec3[((IOTA - 12) & 127)]) + ((8.5212199999999997e-05 * fVec3[((IOTA - 10) & 127)]) + ((0.00015997100000000002 * fVec3[((IOTA - 8) & 127)]) + ((4.6397800000000005e-05 * fVec3[((IOTA - 6) & 127)]) + ((6.0256600000000009e-05 * fVec3[((IOTA - 4) & 127)]) + ((8.9622000000000004e-05 * fVec3[((IOTA - 2) & 127)]) + ((1.7245599999999999e-06 * fTemp3) + ((0.0007085180000000001 * fVec3[((IOTA - 53) & 127)]) + ((0.00029830299999999998 * fVec3[((IOTA - 87) & 127)]) + ((0.0011921100000000001 * fVec3[((IOTA - 86) & 127)]) + ((0.00036025800000000002 * fVec3[((IOTA - 85) & 127)]) + ((0.00132245 * fVec3[((IOTA - 81) & 127)]) + ((7.4600700000000006e-05 * fVec3[((IOTA - 80) & 127)]) + ((0.00135154 * fVec3[((IOTA - 76) & 127)]) + ((9.0714300000000007e-05 * fVec3[((IOTA - 75) & 127)]) + ((0.00046037299999999998 * fVec3[((IOTA - 74) & 127)]) + ((0.00032999100000000002 * fVec3[((IOTA - 73) & 127)]) + ((8.8671600000000007e-05 * fVec3[((IOTA - 66) & 127)]) + ((0.00071361900000000008 * fVec3[((IOTA - 65) & 127)]) + ((0.0021665299999999998 * fVec3[((IOTA - 64) & 127)]) + ((0.0028213700000000001 * fVec3[((IOTA - 63) & 127)]) + ((0.00086561800000000018 * fVec3[((IOTA - 62) & 127)]) + ((0.00109522 * fVec3[((IOTA - 60) & 127)]) + ((0.0027684799999999998 * fVec3[((IOTA - 59) & 127)]) + ((0.00027406100000000003 * fVec3[((IOTA - 58) & 127)]) + ((0.0011284799999999998 * fVec3[((IOTA - 57) & 127)]) + ((0.00017831100000000001 * fVec3[((IOTA - 56) & 127)]) + ((4.0112199999999995e-06 * fVec4[((IOTA - 125) & 127)]) + ((1.5117400000000002e-05 * fVec4[((IOTA - 124) & 127)]) + ((4.3721500000000005e-05 * fVec4[((IOTA - 120) & 127)]) + ((0.00015560700000000002 * fVec4[((IOTA - 119) & 127)]) + ((7.9108900000000011e-05 * fVec4[((IOTA - 118) & 127)]) + ((5.5350100000000004e-05 * fVec4[((IOTA - 117) & 127)]) + ((0.000188798 * fVec4[((IOTA - 116) & 127)]) + ((0.00014338299999999999 * fVec4[((IOTA - 115) & 127)]) + ((0.000132352 * fVec4[((IOTA - 114) & 127)]) + ((0.00038088800000000002 * fVec4[((IOTA - 111) & 127)]) + ((0.00029129200000000002 * fVec4[((IOTA - 110) & 127)]) + ((0.00042473900000000004 * fVec4[((IOTA - 109) & 127)]) + ((0.00039000200000000002 * fVec4[((IOTA - 108) & 127)]) + ((0.00037496900000000006 * fVec4[((IOTA - 106) & 127)]) + ((0.000122187 * fVec4[((IOTA - 101) & 127)]) + ((5.0613000000000005e-05 * fVec4[((IOTA - 100) & 127)]) + ((0.00034352299999999998 * fVec4[((IOTA - 99) & 127)]) + ((8.3557300000000007e-05 * fVec4[((IOTA - 95) & 127)]) + ((3.1251799999999998e-05 * fVec4[((IOTA - 90) & 127)]) + ((0.00081126199999999999 * fVec4[((IOTA - 89) & 127)]) + ((0.0010102899999999998 * fVec4[((IOTA - 88) & 127)]) + ((0.00016769199999999999 * fVec4[((IOTA - 85) & 127)]) + ((0.0023454999999999999 * fVec4[((IOTA - 84) & 127)]) + ((0.0020901600000000002 * fVec4[((IOTA - 83) & 127)]) + ((0.00077017200000000007 * fVec4[((IOTA - 79) & 127)]) + ((0.000728887 * fVec4[((IOTA - 78) & 127)]) + ((0.0021097199999999998 * fVec4[((IOTA - 75) & 127)]) + ((0.0025037600000000003 * fVec4[((IOTA - 74) & 127)]) + ((0.00040049300000000003 * fVec4[((IOTA - 73) & 127)]) + ((2.3934399999999998e-07 * fVec5[((IOTA - 126) & 127)]) + ((0.0014058600000000001 * fVec4[((IOTA - 15) & 127)]) + ((0.00187744 * fVec4[((IOTA - 14) & 127)]) + ((0.00024379800000000001 * fVec4[((IOTA - 9) & 127)]) + ((0.00038353700000000004 * fVec4[((IOTA - 8) & 127)]) + ((0.00030841899999999999 * fVec4[((IOTA - 7) & 127)]) + ((0.000199779 * fVec4[((IOTA - 5) & 127)]) + ((6.6441500000000004e-05 * fVec4[((IOTA - 2) & 127)]) + ((8.8823800000000002e-05 * fVec4[((IOTA - 1) & 127)]) + ((1.1196600000000002e-05 * fTemp4) + ((0.000236257 * fVec4[((IOTA - 71) & 127)]) + ((0.00080940200000000008 * fVec4[((IOTA - 68) & 127)]) + ((0.0014248099999999999 * fVec4[((IOTA - 67) & 127)]) + ((0.00051849200000000006 * fVec4[((IOTA - 66) & 127)]) + ((0.0012237400000000001 * fVec4[((IOTA - 62) & 127)]) + ((0.0028021500000000002 * fVec4[((IOTA - 61) & 127)]) + ((0.00089523300000000005 * fVec4[((IOTA - 60) & 127)]) + ((0.00083918999999999997 * fVec4[((IOTA - 59) & 127)]) + ((0.00050695199999999997 * fVec4[((IOTA - 58) & 127)]) + ((0.0034605500000000002 * fVec4[((IOTA - 52) & 127)]) + ((0.0048647899999999999 * fVec4[((IOTA - 51) & 127)]) + ((0.00157369 * fVec4[((IOTA - 47) & 127)]) + ((0.0028187400000000001 * fVec4[((IOTA - 46) & 127)]) + ((0.0046525800000000008 * fVec4[((IOTA - 45) & 127)]) + ((0.00020012 * fVec4[((IOTA - 43) & 127)]) + ((0.00347263 * fVec4[((IOTA - 42) & 127)]) + ((0.0063060700000000004 * fVec4[((IOTA - 39) & 127)]) + ((0.00608021 * fVec4[((IOTA - 38) & 127)]) + ((0.0032300599999999999 * fVec4[((IOTA - 35) & 127)]) + ((0.0153619 * fVec4[((IOTA - 34) & 127)]) + ((0.0075184400000000004 * fVec4[((IOTA - 33) & 127)]) + ((0.016116399999999999 * fVec4[((IOTA - 32) & 127)]) + ((0.0087108600000000008 * fVec4[((IOTA - 31) & 127)]) + ((0.011844500000000001 * fVec4[((IOTA - 27) & 127)]) + ((0.0088785800000000005 * fVec4[((IOTA - 26) & 127)]) + ((0.0071259000000000001 * fVec4[((IOTA - 19) & 127)]) + ((0.020032899999999999 * fVec4[((IOTA - 18) & 127)]) + ((0.041877400000000002 * fVec4[((IOTA - 17) & 127)]) + ((0.040486800000000003 * fVec4[((IOTA - 16) & 127)]) + ((3.0383900000000002e-05 * fVec5[((IOTA - 122) & 127)]) + ((1.2420800000000001e-05 * fVec5[((IOTA - 123) & 127)]) + ((0.0042459100000000003 * fVec5[((IOTA - 13) & 127)]) + ((0.017260600000000001 * fVec5[((IOTA - 12) & 127)]) + ((0.000626824 * fVec5[((IOTA - 10) & 127)]) + ((0.00043621100000000004 * fVec5[((IOTA - 8) & 127)]) + ((0.00071821400000000011 * fVec5[((IOTA - 7) & 127)]) + ((0.00014400599999999999 * fVec5[((IOTA - 106) & 127)]) + ((0.00056116599999999999 * fVec5[((IOTA - 105) & 127)]) + ((0.00043078500000000004 * fVec5[((IOTA - 104) & 127)]) + ((0.00016122200000000001 * fVec5[((IOTA - 101) & 127)]) + ((0.00032777300000000001 * fVec5[((IOTA - 100) & 127)]) + ((0.00086172699999999996 * fVec5[((IOTA - 99) & 127)]) + ((0.00116818 * fVec5[((IOTA - 98) & 127)]) + ((0.00088091000000000016 * fVec5[((IOTA - 97) & 127)]) + ((0.0006577480000000001 * fVec5[((IOTA - 96) & 127)]) + ((0.00066074500000000002 * fVec5[((IOTA - 95) & 127)]) + ((0.0018925399999999998 * fVec5[((IOTA - 94) & 127)]) + ((0.0023709600000000001 * fVec5[((IOTA - 93) & 127)]) + ((0.0009980639999999999 * fVec5[((IOTA - 92) & 127)]) + ((0.0012026699999999999 * fVec5[((IOTA - 91) & 127)]) + ((0.00057528899999999999 * fVec5[((IOTA - 90) & 127)]) + ((0.0011426300000000002 * fVec5[((IOTA - 86) & 127)]) + ((0.0012205 * fVec5[((IOTA - 85) & 127)]) + ((0.0013112 * fVec5[((IOTA - 81) & 127)]) + ((0.00133194 * fVec5[((IOTA - 80) & 127)]) + ((0.0011322700000000001 * fVec5[((IOTA - 73) & 127)]) + ((0.00181778 * fVec5[((IOTA - 72) & 127)]) + ((0.00071619100000000003 * fVec5[((IOTA - 71) & 127)]) + ((0.0016215200000000002 * fVec5[((IOTA - 70) & 127)]) + ((0.00066023199999999996 * fVec5[((IOTA - 64) & 127)]) + ((0.00109943 * fVec5[((IOTA - 61) & 127)]) + ((0.0031036200000000001 * fVec5[((IOTA - 60) & 127)]) + ((0.0042161500000000001 * fVec5[((IOTA - 59) & 127)]) + ((0.0025095600000000001 * fVec5[((IOTA - 58) & 127)]) + ((0.0032661999999999999 * fVec5[((IOTA - 54) & 127)]) + ((0.0034819399999999998 * fVec5[((IOTA - 53) & 127)]) + ((0.00163773 * fVec5[((IOTA - 49) & 127)]) + ((0.00127327 * fVec5[((IOTA - 48) & 127)]) + ((0.0010735900000000001 * fVec5[((IOTA - 44) & 127)]) + ((0.0025665700000000002 * fVec5[((IOTA - 43) & 127)]) + ((0.0028225600000000004 * fVec5[((IOTA - 42) & 127)]) + ((0.0053647900000000004 * fVec5[((IOTA - 41) & 127)]) + ((0.0047349100000000002 * fVec5[((IOTA - 40) & 127)]) + ((0.0038553600000000004 * fVec5[((IOTA - 35) & 127)]) + ((0.0039412199999999996 * fVec5[((IOTA - 34) & 127)]) + ((0.0124636 * fVec5[((IOTA - 28) & 127)]) + ((0.0117299 * fVec5[((IOTA - 27) & 127)]) + ((0.00123668 * fVec5[((IOTA - 26) & 127)]) + ((0.00020408400000000002 * fVec5[((IOTA - 3) & 127)]) + ((0.00064994100000000002 * fVec5[((IOTA - 4) & 127)]) + ((1.6051900000000001e-05 * fTemp5) + ((5.0749199999999992e-06 * fVec5[((IOTA - 1) & 127)]) + ((0.037707000000000004 * fVec5[((IOTA - 23) & 127)]) + ((0.063962000000000005 * fVec5[((IOTA - 22) & 127)]) + ((0.023310000000000001 * fVec5[((IOTA - 17) & 127)]) + ((0.028106900000000001 * fVec5[((IOTA - 16) & 127)]) + ((3.1669099999999999e-07 * fVec6[((IOTA - 126) & 127)]) + ((1.6687399999999998e-06 * fVec6[((IOTA - 125) & 127)]) + ((1.28328e-05 * fVec6[((IOTA - 122) & 127)]) + ((1.7308800000000003e-05 * fVec6[((IOTA - 121) & 127)]) + ((4.9074099999999998e-05 * fVec6[((IOTA - 117) & 127)]) + ((2.5899899999999999e-05 * fVec6[((IOTA - 116) & 127)]) + ((0.00011491000000000001 * fVec6[((IOTA - 114) & 127)]) + ((8.8784300000000003e-05 * fVec6[((IOTA - 112) & 127)]) + ((7.9503400000000002e-05 * fVec6[((IOTA - 111) & 127)]) + ((8.1492400000000013e-05 * fVec6[((IOTA - 110) & 127)]) + ((9.1673400000000002e-05 * fVec6[((IOTA - 109) & 127)]) + ((0.00025111700000000003 * fVec6[((IOTA - 105) & 127)]) + ((0.00018673 * fVec6[((IOTA - 104) & 127)]) + ((0.00071093600000000001 * fVec6[((IOTA - 102) & 127)]) + ((0.00104291 * fVec6[((IOTA - 101) & 127)]) + ((0.00012821000000000002 * fVec6[((IOTA - 93) & 127)]) + ((0.00085017999999999997 * fVec6[((IOTA - 92) & 127)]) + ((0.000712106 * fVec6[((IOTA - 91) & 127)]) + ((0.00071435800000000001 * fVec6[((IOTA - 86) & 127)]) + ((0.00037586100000000001 * fVec6[((IOTA - 84) & 127)]) + ((0.0012874099999999999 * fVec6[((IOTA - 83) & 127)]) + ((0.0014784800000000001 * fVec6[((IOTA - 82) & 127)]) + ((0.00193484 * fVec6[((IOTA - 81) & 127)]) + ((0.00029607 * fVec6[((IOTA - 80) & 127)]) + ((0.00071585700000000008 * fVec6[((IOTA - 74) & 127)]) + ((0.0023252199999999998 * fVec6[((IOTA - 73) & 127)]) + ((0.0013749300000000001 * fVec6[((IOTA - 68) & 127)]) + ((0.00058439199999999998 * fVec6[((IOTA - 67) & 127)]) + ((0.0011591100000000001 * fVec6[((IOTA - 63) & 127)]) + ((0.00056720100000000003 * fVec6[((IOTA - 62) & 127)]) + ((0.0020986799999999999 * fVec6[((IOTA - 60) & 127)]) + ((0.00155243 * fVec6[((IOTA - 59) & 127)]) + ((3.2355100000000005e-05 * fVec6[((IOTA - 57) & 127)]) + ((0.00057845500000000007 * fVec6[((IOTA - 56) & 127)]) + ((0.00150241 * fVec6[((IOTA - 55) & 127)]) + ((0.00172704 * fVec6[((IOTA - 54) & 127)]) + ((0.0023094999999999999 * fVec6[((IOTA - 53) & 127)]) + ((0.0013355600000000002 * fVec6[((IOTA - 50) & 127)]) + ((0.0016919000000000001 * fVec6[((IOTA - 49) & 127)]) + ((0.0041987500000000002 * fVec6[((IOTA - 46) & 127)]) + ((0.0013185600000000001 * fVec6[((IOTA - 43) & 127)]) + ((0.0045889699999999995 * fVec6[((IOTA - 40) & 127)]) + ((0.00114539 * fVec6[((IOTA - 39) & 127)]) + ((0.0121855 * fVec6[((IOTA - 36) & 127)]) + ((0.00058276900000000002 * fVec6[((IOTA - 34) & 127)]) + ((0.0107633 * fVec6[((IOTA - 33) & 127)]) + ((0.013816500000000001 * fVec6[((IOTA - 29) & 127)]) + ((0.00604938 * fVec6[((IOTA - 28) & 127)]) + ((0.020943 * fVec6[((IOTA - 27) & 127)]) + ((0.013073399999999999 * fVec6[((IOTA - 24) & 127)]) + ((0.0144256 * fVec6[((IOTA - 23) & 127)]) + ((0.013579000000000001 * fVec6[((IOTA - 22) & 127)]) + ((0.058097799999999998 * fVec6[((IOTA - 19) & 127)]) + ((0.00473027 * fVec6[((IOTA - 14) & 127)]) + ((0.00083837600000000005 * fVec6[((IOTA - 12) & 127)]) + ((0.00052448499999999999 * fVec6[((IOTA - 11) & 127)]) + ((0.0012249000000000001 * fVec6[((IOTA - 10) & 127)]) + ((0.00056178000000000001 * fVec6[((IOTA - 7) & 127)]) + ((4.4565200000000005e-05 * fVec6[((IOTA - 6) & 127)]) + ((0.00026242200000000006 * fVec6[((IOTA - 5) & 127)]) + ((0.00017666400000000001 * fVec6[((IOTA - 3) & 127)]) + ((3.9999700000000003e-05 * fVec6[((IOTA - 1) & 127)]) + ((1.42182e-06 * fVec7[((IOTA - 126) & 127)]) + ((3.38734e-06 * fVec7[((IOTA - 125) & 127)]) + ((3.55566e-07 * fVec7[((IOTA - 124) & 127)]) + ((1.54209e-06 * fVec7[((IOTA - 123) & 127)]) + ((1.0269900000000001e-05 * fVec7[((IOTA - 121) & 127)]) + ((5.1458800000000003e-05 * fVec7[((IOTA - 120) & 127)]) + ((9.7858700000000005e-05 * fVec7[((IOTA - 110) & 127)]) + ((0.00024103300000000001 * fVec7[((IOTA - 108) & 127)]) + ((4.9494600000000006e-05 * fVec7[((IOTA - 106) & 127)]) + ((9.2560700000000003e-05 * fVec7[((IOTA - 88) & 127)]) + ((0.00030100299999999999 * fVec7[((IOTA - 87) & 127)]) + ((0.00050179800000000002 * fVec7[((IOTA - 86) & 127)]) + ((0.00149106 * fVec7[((IOTA - 85) & 127)]) + ((0.00071892899999999999 * fVec7[((IOTA - 84) & 127)]) + ((0.00048326599999999999 * fVec7[((IOTA - 81) & 127)]) + ((0.00072090700000000001 * fVec7[((IOTA - 80) & 127)]) + ((0.00023854600000000002 * fVec7[((IOTA - 78) & 127)]) + ((0.0014875400000000001 * fVec7[((IOTA - 77) & 127)]) + ((0.0033493400000000001 * fVec7[((IOTA - 76) & 127)]) + ((0.0031260400000000001 * fVec7[((IOTA - 75) & 127)]) + ((0.00083117599999999999 * fVec7[((IOTA - 74) & 127)]) + ((0.00045545999999999998 * fVec7[((IOTA - 68) & 127)]) + ((0.0010428 * fVec7[((IOTA - 67) & 127)]) + ((0.0019296000000000001 * fVec7[((IOTA - 66) & 127)]) + ((0.00020463 * fVec7[((IOTA - 65) & 127)]) + ((0.0010030900000000001 * fVec7[((IOTA - 64) & 127)]) + ((0.00166927 * fVec7[((IOTA - 63) & 127)]) + ((0.00022598400000000001 * fVec7[((IOTA - 62) & 127)]) + ((0.00060200900000000003 * fVec7[((IOTA - 61) & 127)]) + ((0.00083492200000000009 * fVec7[((IOTA - 60) & 127)]) + ((9.2360600000000005e-05 * fVec7[((IOTA - 59) & 127)]) + ((0.00095314700000000011 * fVec7[((IOTA - 52) & 127)]) + ((0.00228246 * fVec7[((IOTA - 51) & 127)]) + ((0.0043644199999999999 * fVec7[((IOTA - 50) & 127)]) + ((0.0053697700000000003 * fVec7[((IOTA - 49) & 127)]) + ((0.0012248000000000001 * fVec7[((IOTA - 48) & 127)]) + ((0.0058665100000000001 * fVec7[((IOTA - 43) & 127)]) + ((0.0019103500000000001 * fVec7[((IOTA - 42) & 127)]) + ((0.0091888300000000003 * fVec7[((IOTA - 38) & 127)]) + ((0.0083688600000000005 * fVec7[((IOTA - 37) & 127)]) + ((0.0049278500000000001 * fVec7[((IOTA - 36) & 127)]) + ((0.0073932900000000003 * fVec7[((IOTA - 33) & 127)]) + ((0.00548534 * fVec7[((IOTA - 31) & 127)]) + ((0.0028647 * fVec7[((IOTA - 30) & 127)]) + ((0.0077168700000000007 * fVec7[((IOTA - 28) & 127)]) + ((0.0097574199999999993 * fVec7[((IOTA - 25) & 127)]) + ((0.0053800000000000002 * fVec7[((IOTA - 24) & 127)]) + ((0.0060703699999999994 * fVec7[((IOTA - 22) & 127)]) + ((0.0074193800000000006 * fVec7[((IOTA - 19) & 127)]) + ((0.0303129 * fVec7[((IOTA - 18) & 127)]) + ((0.00060355100000000002 * fVec7[((IOTA - 15) & 127)]) + ((0.00046831500000000007 * fVec7[((IOTA - 13) & 127)]) + ((0.012178800000000002 * fVec7[((IOTA - 12) & 127)]) + ((0.0012102200000000001 * fVec7[((IOTA - 10) & 127)]) + ((0.00099936700000000014 * fVec7[((IOTA - 9) & 127)]) + ((0.00060848900000000004 * fVec7[((IOTA - 6) & 127)]) + ((0.00037949199999999999 * fVec7[((IOTA - 5) & 127)]) + ((0.00016164900000000001 * fVec7[((IOTA - 3) & 127)]) + ((4.3842899999999996e-07 * fVec7[((IOTA - 2) & 127)]) + ((2.52175e-05 * fVec7[((IOTA - 1) & 127)]) + ((1.1251800000000001e-05 * fTemp7) + ((0.000547987 * fVec7[((IOTA - 92) & 127)]) + ((0.00076694000000000013 * fVec7[((IOTA - 91) & 127)]) + ((0.000164878 * fVec7[((IOTA - 89) & 127)]) + ((4.0191900000000004e-05 * fVec7[((IOTA - 105) & 127)]) + ((4.5314599999999995e-06 * fVec7[((IOTA - 103) & 127)]) + ((0.00025367800000000002 * fVec7[((IOTA - 101) & 127)]) + ((0.000293212 * fVec7[((IOTA - 100) & 127)]) + ((0.00039481299999999999 * fVec7[((IOTA - 99) & 127)]) + ((0.00059363700000000005 * fVec7[((IOTA - 98) & 127)]) + ((0.00084704300000000012 * fVec7[((IOTA - 97) & 127)]) + ((0.00094673100000000003 * fVec7[((IOTA - 90) & 127)]) + ((0.0015023899999999999 * fVec7[((IOTA - 96) & 127)]) + ((0.00124766 * fVec7[((IOTA - 95) & 127)]) + ((1.99452e-07 * fVec8[((IOTA - 126) & 127)]) + ((5.9452600000000002e-06 * fVec8[((IOTA - 125) & 127)]) + ((4.5447499999999991e-06 * fVec8[((IOTA - 124) & 127)]) + ((3.63984e-05 * fVec8[((IOTA - 121) & 127)]) + ((7.7160200000000014e-05 * fVec8[((IOTA - 120) & 127)]) + ((8.9261199999999998e-05 * fVec8[((IOTA - 113) & 127)]) + ((0.00032315499999999999 * fVec8[((IOTA - 109) & 127)]) + ((0.00016531600000000001 * fVec8[((IOTA - 108) & 127)]) + ((4.6986800000000009e-05 * fVec8[((IOTA - 106) & 127)]) + ((0.00025181600000000003 * fVec8[((IOTA - 105) & 127)]) + ((9.0767900000000016e-05 * fVec8[((IOTA - 99) & 127)]) + ((0.00023176100000000003 * fVec8[((IOTA - 97) & 127)]) + ((0.00080298400000000008 * fVec8[((IOTA - 96) & 127)]) + ((0.00069823599999999997 * fVec8[((IOTA - 95) & 127)]) + ((0.00077859999999999995 * fVec8[((IOTA - 94) & 127)]) + ((0.0010210200000000001 * fVec8[((IOTA - 93) & 127)]) + ((0.00051142200000000009 * fVec8[((IOTA - 88) & 127)]) + ((0.00065435200000000008 * fVec8[((IOTA - 87) & 127)]) + ((0.00128331 * fVec8[((IOTA - 86) & 127)]) + ((0.00044122600000000002 * fVec8[((IOTA - 85) & 127)]) + ((0.00109859 * fVec8[((IOTA - 84) & 127)]) + ((0.00048614699999999998 * fVec8[((IOTA - 83) & 127)]) + ((0.00056543900000000005 * fVec8[((IOTA - 81) & 127)]) + ((0.00042531800000000005 * fVec8[((IOTA - 80) & 127)]) + ((0.00037687700000000002 * fVec8[((IOTA - 79) & 127)]) + ((0.00153375 * fVec8[((IOTA - 78) & 127)]) + ((0.0010877699999999998 * fVec8[((IOTA - 77) & 127)]) + ((0.0010103800000000002 * fVec8[((IOTA - 76) & 127)]) + ((0.00253834 * fVec8[((IOTA - 44) & 127)]) + ((0.0083012099999999998 * fVec8[((IOTA - 43) & 127)]) + ((0.0117918 * fVec8[((IOTA - 40) & 127)]) + ((0.0095889700000000005 * fVec8[((IOTA - 36) & 127)]) + ((0.0071901300000000003 * fVec8[((IOTA - 35) & 127)]) + ((0.0060223199999999994 * fVec8[((IOTA - 32) & 127)]) + ((0.045109799999999999 * fVec8[((IOTA - 31) & 127)]) + ((0.0208799 * fVec8[((IOTA - 30) & 127)]) + ((0.017652600000000001 * fVec8[((IOTA - 27) & 127)]) + ((0.017632800000000001 * fVec8[((IOTA - 22) & 127)]) + ((0.017422800000000002 * fVec8[((IOTA - 21) & 127)]) + ((0.022197600000000001 * fVec8[((IOTA - 20) & 127)]) + ((0.019054700000000001 * fVec8[((IOTA - 19) & 127)]) + ((0.016357099999999999 * fVec8[((IOTA - 17) & 127)]) + ((0.020028999999999998 * fVec8[((IOTA - 16) & 127)]) + ((0.0078711900000000001 * fVec8[((IOTA - 12) & 127)]) + ((0.0014582099999999999 * fVec8[((IOTA - 11) & 127)]) + ((0.00062471599999999999 * fVec8[((IOTA - 9) & 127)]) + ((0.00162677 * fVec8[((IOTA - 7) & 127)]) + ((0.00116299 * fVec8[((IOTA - 5) & 127)]) + ((8.6241699999999998e-05 * fVec8[((IOTA - 4) & 127)]) + ((0.00039905000000000002 * fVec8[((IOTA - 3) & 127)]) + ((4.7087999999999997e-06 * fVec8[((IOTA - 1) & 127)]) + ((0.00464818 * fVec8[((IOTA - 51) & 127)]) + ((0.0030283900000000002 * fVec8[((IOTA - 50) & 127)]) + ((0.00079149500000000002 * fVec8[((IOTA - 69) & 127)]) + ((0.0059246500000000001 * fVec8[((IOTA - 68) & 127)]) + ((0.0068489100000000006 * fVec8[((IOTA - 67) & 127)]) + ((0.0030456500000000004 * fVec8[((IOTA - 66) & 127)]) + ((0.0024000200000000001 * fVec8[((IOTA - 64) & 127)]) + ((0.0039972499999999999 * fVec8[((IOTA - 63) & 127)]) + ((0.00066394700000000002 * fVec8[((IOTA - 47) & 127)]) + ((5.3289600000000006e-05 * fVec11[((IOTA - 119) & 127)]) + ((0.000107805 * fVec11[((IOTA - 118) & 127)]) + ((0.00016857100000000001 * fVec11[((IOTA - 117) & 127)]) + ((0.00017462800000000002 * fVec11[((IOTA - 116) & 127)]) + ((0.00020061900000000003 * fVec11[((IOTA - 115) & 127)]) + ((0.00026791400000000001 * fVec11[((IOTA - 114) & 127)]) + ((0.000214133 * fVec11[((IOTA - 113) & 127)]) + ((0.00012941499999999999 * fVec11[((IOTA - 112) & 127)]) + ((0.000341992 * fVec11[((IOTA - 111) & 127)]) + ((0.00073887099999999999 * fVec11[((IOTA - 110) & 127)]) + ((0.000178548 * fVec11[((IOTA - 109) & 127)]) + ((0.00034591100000000002 * fVec11[((IOTA - 107) & 127)]) + ((0.00056230400000000002 * fVec11[((IOTA - 106) & 127)]) + ((0.00034390400000000002 * fVec11[((IOTA - 105) & 127)]) + ((0.00040135500000000005 * fVec11[((IOTA - 102) & 127)]) + ((1.2323300000000001e-05 * fVec11[((IOTA - 99) & 127)]) + ((0.00017320599999999999 * fVec11[((IOTA - 98) & 127)]) + ((0.00137867 * fVec11[((IOTA - 90) & 127)]) + ((0.0011166000000000001 * fVec11[((IOTA - 89) & 127)]) + ((0.00077525200000000004 * fVec11[((IOTA - 88) & 127)]) + ((0.00051248299999999999 * fVec11[((IOTA - 87) & 127)]) + ((0.00034004900000000004 * fVec11[((IOTA - 86) & 127)]) + ((0.000134423 * fVec11[((IOTA - 84) & 127)]) + ((0.0011347400000000002 * fVec11[((IOTA - 83) & 127)]) + ((5.784670000000001e-05 * fVec11[((IOTA - 82) & 127)]) + ((0.0008637740000000001 * fVec11[((IOTA - 78) & 127)]) + ((0.0017782899999999999 * fVec11[((IOTA - 77) & 127)]) + ((0.00095740300000000012 * fVec11[((IOTA - 76) & 127)]) + ((0.00027913800000000001 * fVec11[((IOTA - 75) & 127)]) + ((0.000413929 * fVec11[((IOTA - 74) & 127)]) + ((0.0014493400000000001 * fVec11[((IOTA - 70) & 127)]) + ((0.0024630899999999998 * fVec11[((IOTA - 69) & 127)]) + ((0.00066884400000000004 * fVec11[((IOTA - 68) & 127)]) + ((0.0016410700000000001 * fVec11[((IOTA - 66) & 127)]) + ((0.0028929999999999997 * fVec11[((IOTA - 65) & 127)]) + ((0.00010676699999999999 * fVec11[((IOTA - 60) & 127)]) + ((0.00080710999999999999 * fVec11[((IOTA - 58) & 127)]) + ((0.0015732999999999999 * fVec11[((IOTA - 57) & 127)]) + ((0.00047008900000000003 * fVec11[((IOTA - 56) & 127)]) + ((0.00058858800000000002 * fVec11[((IOTA - 46) & 127)]) + ((0.0089012100000000014 * fVec11[((IOTA - 45) & 127)]) + ((0.0063971999999999996 * fVec11[((IOTA - 44) & 127)]) + ((0.0011654300000000001 * fVec11[((IOTA - 42) & 127)]) + ((0.0065539300000000003 * fVec11[((IOTA - 41) & 127)]) + ((0.00199292 * fVec11[((IOTA - 37) & 127)]) + ((0.0048789100000000002 * fVec11[((IOTA - 36) & 127)]) + ((0.00714622 * fVec11[((IOTA - 35) & 127)]) + ((0.0095548600000000001 * fVec11[((IOTA - 33) & 127)]) + ((0.019952500000000001 * fVec11[((IOTA - 32) & 127)]) + ((0.0029659300000000003 * fVec11[((IOTA - 29) & 127)]) + ((0.029996000000000002 * fVec11[((IOTA - 28) & 127)]) + ((0.0016475999999999999 * fVec11[((IOTA - 27) & 127)]) + ((0.0254705 * fVec11[((IOTA - 25) & 127)]) + ((0.0083854199999999993 * fVec11[((IOTA - 24) & 127)]) + ((0.039960800000000005 * fVec11[((IOTA - 18) & 127)]) + ((0.0071864600000000004 * fVec11[((IOTA - 17) & 127)]) + ((0.032838599999999996 * fVec11[((IOTA - 15) & 127)]) + ((0.00164934 * fVec11[((IOTA - 14) & 127)]) + ((0.0050885600000000007 * fVec11[((IOTA - 13) & 127)]) + ((0.00094482099999999999 * fVec11[((IOTA - 10) & 127)]) + ((7.6144500000000003e-05 * fVec11[((IOTA - 9) & 127)]) + ((0.00057894000000000001 * fVec11[((IOTA - 8) & 127)]) + ((0.00159128 * fVec11[((IOTA - 6) & 127)]) + ((0.00015391 * fVec11[((IOTA - 4) & 127)]) + ((0.00036213800000000002 * fVec11[((IOTA - 2) & 127)]) + ((1.8821400000000002e-05 * fTemp11) + ((3.5712499999999999e-07 * fVec10[((IOTA - 126) & 127)]) + ((1.1903999999999999e-06 * fVec10[((IOTA - 125) & 127)]) + ((9.2364300000000006e-06 * fVec10[((IOTA - 124) & 127)]) + ((7.6588799999999991e-06 * fVec10[((IOTA - 123) & 127)]) + ((8.9591899999999999e-06 * fVec10[((IOTA - 120) & 127)]) + ((8.6424300000000005e-05 * fVec10[((IOTA - 119) & 127)]) + ((7.8613700000000009e-05 * fVec10[((IOTA - 118) & 127)]) + ((4.4238600000000007e-05 * fVec10[((IOTA - 117) & 127)]) + ((5.5205099999999998e-06 * fVec10[((IOTA - 115) & 127)]) + ((6.6639900000000005e-05 * fVec10[((IOTA - 114) & 127)]) + ((0.000157369 * fVec10[((IOTA - 111) & 127)]) + ((8.3003200000000005e-05 * fVec10[((IOTA - 110) & 127)]) + ((0.000439844 * fVec10[((IOTA - 107) & 127)]) + ((0.00027481100000000002 * fVec10[((IOTA - 106) & 127)]) + ((3.2093500000000007e-05 * fVec10[((IOTA - 102) & 127)]) + ((0.00036137300000000001 * fVec10[((IOTA - 96) & 127)]) + ((0.00061885399999999995 * fVec10[((IOTA - 95) & 127)]) + ((0.00066768000000000003 * fVec10[((IOTA - 94) & 127)]) + ((0.00017124500000000002 * fVec10[((IOTA - 93) & 127)]) + ((0.00025192200000000002 * fVec10[((IOTA - 92) & 127)]) + ((0.00091703800000000001 * fVec10[((IOTA - 91) & 127)]) + ((0.0010790400000000001 * fVec10[((IOTA - 88) & 127)]) + ((0.0015949800000000002 * fVec10[((IOTA - 87) & 127)]) + ((0.0014874700000000001 * fVec10[((IOTA - 86) & 127)]) + ((0.00093692899999999997 * fVec10[((IOTA - 85) & 127)]) + ((0.0006546770000000001 * fVec10[((IOTA - 84) & 127)]) + ((0.00088971800000000006 * fVec10[((IOTA - 61) & 127)]) + ((0.0030282500000000001 * fVec10[((IOTA - 60) & 127)]) + ((0.0047336600000000006 * fVec10[((IOTA - 54) & 127)]) + ((0.0044919299999999999 * fVec10[((IOTA - 53) & 127)]) + ((0.0011470100000000002 * fVec10[((IOTA - 50) & 127)]) + ((0.0012055499999999999 * fVec10[((IOTA - 48) & 127)]) + ((0.0059192300000000002 * fVec10[((IOTA - 47) & 127)]) + ((0.0032900500000000001 * fVec10[((IOTA - 44) & 127)]) + ((0.00224289 * fVec10[((IOTA - 43) & 127)]) + ((0.00017730600000000001 * fVec10[((IOTA - 42) & 127)]) + ((0.0072601800000000006 * fVec10[((IOTA - 41) & 127)]) + ((0.00453353 * fVec10[((IOTA - 38) & 127)]) + ((0.00194991 * fVec10[((IOTA - 37) & 127)]) + ((0.00083337500000000002 * fVec10[((IOTA - 35) & 127)]) + ((0.0247151 * fVec10[((IOTA - 34) & 127)]) + ((0.0069191299999999999 * fVec10[((IOTA - 30) & 127)]) + ((0.0098116000000000002 * fVec10[((IOTA - 29) & 127)]) + ((0.0033760599999999997 * fVec10[((IOTA - 28) & 127)]) + ((0.0036533899999999998 * fVec10[((IOTA - 27) & 127)]) + ((0.0209074 * fVec10[((IOTA - 22) & 127)]) + ((0.0101589 * fVec10[((IOTA - 21) & 127)]) + ((0.016458299999999999 * fVec10[((IOTA - 20) & 127)]) + ((0.021493699999999998 * fVec10[((IOTA - 17) & 127)]) + ((0.0062705200000000008 * fVec10[((IOTA - 16) & 127)]) + ((0.0048823400000000006 * fVec10[((IOTA - 14) & 127)]) + ((0.00084803800000000007 * fVec10[((IOTA - 11) & 127)]) + ((0.0012552099999999999 * fVec10[((IOTA - 8) & 127)]) + ((0.00022105899999999999 * fVec10[((IOTA - 6) & 127)]) + ((0.00024554399999999999 * fVec10[((IOTA - 5) & 127)]) + ((0.00061196600000000003 * fVec10[((IOTA - 4) & 127)]) + ((0.00014579800000000002 * fVec10[((IOTA - 2) & 127)]) + ((0.000167615 * fVec10[((IOTA - 63) & 127)]) + ((0.000134809 * fVec10[((IOTA - 83) & 127)]) + ((0.00019593 * fVec10[((IOTA - 82) & 127)]) + ((0.0010831700000000001 * fVec10[((IOTA - 81) & 127)]) + ((0.00121283 * fVec10[((IOTA - 80) & 127)]) + ((0.0021823700000000003 * fVec10[((IOTA - 79) & 127)]) + ((0.00119166 * fVec10[((IOTA - 78) & 127)]) + ((0.00055397699999999999 * fVec10[((IOTA - 74) & 127)]) + ((0.0020279199999999999 * fVec10[((IOTA - 73) & 127)]) + ((0.00014092800000000002 * fVec10[((IOTA - 72) & 127)]) + ((8.5715000000000015e-05 * fVec10[((IOTA - 70) & 127)]) + ((0.00122613 * fVec10[((IOTA - 69) & 127)]) + ((0.0019218100000000001 * fVec10[((IOTA - 68) & 127)]) + ((0.00059488300000000004 * fVec10[((IOTA - 67) & 127)]) + ((1.2403399999999998e-06 * fVec12[((IOTA - 126) & 127)]) + ((6.5523199999999996e-06 * fVec12[((IOTA - 125) & 127)]) + ((7.103729999999999e-06 * fVec12[((IOTA - 124) & 127)]) + ((4.8057499999999997e-06 * fVec12[((IOTA - 123) & 127)]) + ((1.4907900000000002e-05 * fVec12[((IOTA - 122) & 127)]) + ((5.6678000000000002e-05 * fVec12[((IOTA - 121) & 127)]) + ((3.2618499999999999e-05 * fVec12[((IOTA - 120) & 127)]) + ((4.2858599999999997e-05 * fVec12[((IOTA - 116) & 127)]) + ((1.2154900000000001e-05 * fVec12[((IOTA - 115) & 127)]) + ((0.00126468 * fVec12[((IOTA - 90) & 127)]) + ((0.0016863 * fVec12[((IOTA - 89) & 127)]) + ((0.0009600120000000001 * fVec12[((IOTA - 86) & 127)]) + ((0.00042185499999999995 * fVec12[((IOTA - 85) & 127)]) + ((0.00064300400000000008 * fVec12[((IOTA - 84) & 127)]) + ((0.00199081 * fVec12[((IOTA - 83) & 127)]) + ((0.0032951600000000001 * fVec12[((IOTA - 82) & 127)]) + ((0.00044377400000000002 * fVec12[((IOTA - 81) & 127)]) + ((0.0011996999999999999 * fVec12[((IOTA - 78) & 127)]) + ((0.0027583899999999999 * fVec12[((IOTA - 77) & 127)]) + ((0.00029621600000000002 * fVec12[((IOTA - 76) & 127)]) + ((0.00032057000000000006 * fVec12[((IOTA - 74) & 127)]) + ((0.00011427200000000001 * fVec12[((IOTA - 70) & 127)]) + ((0.0023553899999999997 * fVec12[((IOTA - 69) & 127)]) + ((0.00121634 * fVec12[((IOTA - 61) & 127)]) + ((0.0031460699999999999 * fVec12[((IOTA - 60) & 127)]) + ((0.0028280900000000001 * fVec12[((IOTA - 59) & 127)]) + ((0.0041894900000000006 * fVec12[((IOTA - 58) & 127)]) + ((0.0050431600000000005 * fVec12[((IOTA - 57) & 127)]) + ((0.00070018900000000004 * fVec12[((IOTA - 56) & 127)]) + ((0.00079562299999999997 * fVec12[((IOTA - 55) & 127)]) + ((0.0022291200000000002 * fVec12[((IOTA - 54) & 127)]) + ((0.0010627800000000001 * fVec12[((IOTA - 53) & 127)]) + ((0.0025782299999999999 * fVec12[((IOTA - 52) & 127)]) + ((0.0010116599999999999 * fVec12[((IOTA - 51) & 127)]) + ((0.0030807500000000002 * fVec12[((IOTA - 45) & 127)]) + ((0.0044340900000000008 * fVec12[((IOTA - 44) & 127)]) + ((0.0014659899999999999 * fVec12[((IOTA - 39) & 127)]) + ((0.0075921599999999997 * fVec12[((IOTA - 38) & 127)]) + ((0.0013163199999999999 * fVec12[((IOTA - 36) & 127)]) + ((0.00139712 * fVec12[((IOTA - 35) & 127)]) + ((0.020927999999999999 * fVec12[((IOTA - 31) & 127)]) + ((0.0030580300000000002 * fVec12[((IOTA - 30) & 127)]) + ((0.0031714500000000001 * fVec12[((IOTA - 27) & 127)]) + ((0.0298252 * fVec12[((IOTA - 26) & 127)]) + ((0.0033139300000000001 * fVec12[((IOTA - 23) & 127)]) + ((0.0065595499999999999 * fVec12[((IOTA - 21) & 127)]) + ((0.0090886700000000001 * fVec12[((IOTA - 20) & 127)]) + ((0.0062460900000000001 * fVec12[((IOTA - 18) & 127)]) + ((0.012640400000000001 * fVec12[((IOTA - 17) & 127)]) + ((0.00686843 * fVec12[((IOTA - 15) & 127)]) + ((0.0014359399999999999 * fVec12[((IOTA - 13) & 127)]) + ((0.00021416200000000003 * fVec12[((IOTA - 9) & 127)]) + ((0.00044645700000000004 * fVec12[((IOTA - 8) & 127)]) + ((0.00023944000000000002 * fVec12[((IOTA - 4) & 127)]) + ((4.13336e-05 * fVec12[((IOTA - 2) & 127)]) + ((3.3055699999999998e-06 * fTemp12) + ((8.1906300000000006e-05 * fVec12[((IOTA - 101) & 127)]) + ((0.00050917300000000003 * fVec12[((IOTA - 100) & 127)]) + ((7.7107099999999996e-07 * fVec13[((IOTA - 126) & 127)]) + ((5.8016599999999996e-06 * fVec13[((IOTA - 125) & 127)]) + ((1.0293200000000002e-05 * fVec13[((IOTA - 124) & 127)]) + ((1.26402e-05 * fVec13[((IOTA - 123) & 127)]) + ((3.9907800000000004e-05 * fVec12[((IOTA - 92) & 127)]) + ((1.2875300000000002e-05 * fVec13[((IOTA - 120) & 127)]) + ((3.0919700000000001e-05 * fVec13[((IOTA - 119) & 127)]) + ((1.3730199999999999e-05 * fVec13[((IOTA - 118) & 127)]) + ((0.00010595300000000001 * fVec13[((IOTA - 117) & 127)]) + ((6.2319599999999999e-05 * fVec13[((IOTA - 116) & 127)]) + ((2.2893700000000001e-05 * fVec13[((IOTA - 114) & 127)]) + ((3.6990800000000005e-05 * fVec13[((IOTA - 113) & 127)]) + ((0.0014893700000000001 * fVec13[((IOTA - 94) & 127)]) + ((0.00063396999999999998 * fVec12[((IOTA - 91) & 127)]) + ((0.00075849800000000003 * fVec13[((IOTA - 93) & 127)]) + ((1.7939800000000001e-05 * fVec13[((IOTA - 89) & 127)]) + ((0.00022978000000000001 * fVec13[((IOTA - 88) & 127)]) + ((0.00040871000000000006 * fVec13[((IOTA - 87) & 127)]) + ((0.00042454500000000002 * fVec13[((IOTA - 86) & 127)]) + ((0.00052778200000000008 * fVec13[((IOTA - 85) & 127)]) + ((0.00239894 * fVec13[((IOTA - 84) & 127)]) + ((0.0029262899999999998 * fVec13[((IOTA - 83) & 127)]) + ((0.0016715800000000002 * fVec13[((IOTA - 82) & 127)]) + ((0.0011202900000000001 * fVec13[((IOTA - 81) & 127)]) + ((7.5395799999999992e-06 * fVec13[((IOTA - 80) & 127)]) + ((0.00041440900000000002 * fVec13[((IOTA - 79) & 127)]) + ((3.0152300000000003e-05 * fVec13[((IOTA - 78) & 127)]) + ((0.00071683100000000002 * fVec13[((IOTA - 76) & 127)]) + ((3.8916400000000006e-05 * fVec13[((IOTA - 75) & 127)]) + ((0.0012073799999999999 * fVec13[((IOTA - 74) & 127)]) + ((0.0031728900000000003 * fVec13[((IOTA - 73) & 127)]) + ((0.0018727100000000001 * fVec13[((IOTA - 72) & 127)]) + ((0.010106800000000001 * fVec13[((IOTA - 20) & 127)]) + ((0.016007400000000001 * fVec13[((IOTA - 19) & 127)]) + ((0.020679400000000001 * fVec13[((IOTA - 18) & 127)]) + ((0.0034218899999999999 * fVec13[((IOTA - 17) & 127)]) + ((0.016782399999999999 * fVec13[((IOTA - 14) & 127)]) + ((2.9919300000000003e-05 * fVec13[((IOTA - 11) & 127)]) + ((3.3796500000000001e-05 * fVec13[((IOTA - 9) & 127)]) + ((0.00054442100000000001 * fVec13[((IOTA - 8) & 127)]) + ((0.00043977500000000005 * fVec13[((IOTA - 6) & 127)]) + ((0.00054478099999999993 * fVec13[((IOTA - 5) & 127)]) + ((0.00022437700000000002 * fVec13[((IOTA - 2) & 127)]) + ((1.9893300000000001e-05 * fVec13[((IOTA - 1) & 127)]) + ((0.00244034 * fVec13[((IOTA - 26) & 127)]) + ((0.0027159100000000002 * fVec13[((IOTA - 25) & 127)]) + ((0.0355257 * fVec13[((IOTA - 24) & 127)]) + ((0.00091280400000000013 * fVec13[((IOTA - 63) & 127)]) + ((0.0016841900000000001 * fVec13[((IOTA - 57) & 127)]) + ((0.0014167300000000002 * fVec13[((IOTA - 56) & 127)]) + ((8.9493100000000012e-05 * fVec13[((IOTA - 53) & 127)]) + ((0.00032871800000000003 * fVec13[((IOTA - 52) & 127)]) + ((0.00168373 * fVec13[((IOTA - 51) & 127)]) + ((0.0039323600000000002 * fVec13[((IOTA - 50) & 127)]) + ((0.00094270700000000009 * fVec13[((IOTA - 49) & 127)]) + ((0.0014762200000000001 * fVec13[((IOTA - 45) & 127)]) + ((0.0053497099999999997 * fVec13[((IOTA - 44) & 127)]) + ((0.0013171900000000002 * fVec13[((IOTA - 43) & 127)]) + ((0.0034829700000000002 * fVec13[((IOTA - 41) & 127)]) + ((0.0043833000000000006 * fVec13[((IOTA - 40) & 127)]) + ((0.0085886299999999999 * fVec13[((IOTA - 37) & 127)]) + ((0.0098696699999999988 * fVec13[((IOTA - 36) & 127)]) + ((0.0081568500000000002 * fVec13[((IOTA - 33) & 127)]) + ((0.0055860800000000002 * fVec13[((IOTA - 32) & 127)]) + ((0.0076456700000000002 * fVec13[((IOTA - 31) & 127)]) + ((0.0047620600000000003 * fVec13[((IOTA - 30) & 127)]) + ((7.4901799999999991e-07 * fVec14[((IOTA - 126) & 127)]) + ((5.2121499999999997e-06 * fVec14[((IOTA - 125) & 127)]) + ((1.5791000000000002e-05 * fVec14[((IOTA - 124) & 127)]) + ((2.1421500000000001e-05 * fVec14[((IOTA - 123) & 127)]) + ((2.2224499999999998e-06 * fVec14[((IOTA - 122) & 127)]) + ((2.15894e-05 * fVec14[((IOTA - 121) & 127)]) + ((4.67294e-05 * fVec14[((IOTA - 120) & 127)]) + ((1.9006100000000001e-05 * fVec14[((IOTA - 119) & 127)]) + ((0.013501399999999998 * fVec13[((IOTA - 21) & 127)]) + ((0.00029154800000000003 * fVec14[((IOTA - 104) & 127)]) + ((0.000281437 * fVec14[((IOTA - 102) & 127)]) + ((0.000737136 * fVec14[((IOTA - 101) & 127)]) + ((0.00013028900000000001 * fVec14[((IOTA - 100) & 127)]) + ((0.00065116800000000004 * fVec14[((IOTA - 97) & 127)]) + ((0.00087714900000000003 * fVec14[((IOTA - 96) & 127)]) + ((0.00059851200000000005 * fVec14[((IOTA - 95) & 127)]) + ((0.00058117100000000001 * fVec14[((IOTA - 94) & 127)]) + ((7.4501400000000011e-05 * fVec14[((IOTA - 93) & 127)]) + ((0.00070493400000000005 * fVec14[((IOTA - 92) & 127)]) + ((0.0016990600000000001 * fVec14[((IOTA - 91) & 127)]) + ((0.00105839 * fVec14[((IOTA - 90) & 127)]) + ((0.00064867600000000005 * fVec14[((IOTA - 89) & 127)]) + ((0.00045359999999999997 * fVec14[((IOTA - 84) & 127)]) + ((0.00105405 * fVec14[((IOTA - 83) & 127)]) + ((0.00066430600000000003 * fVec14[((IOTA - 82) & 127)]) + ((1.0579500000000001e-05 * fVec14[((IOTA - 79) & 127)]) + ((0.00085561100000000005 * fVec14[((IOTA - 78) & 127)]) + ((0.00048425300000000003 * fVec14[((IOTA - 77) & 127)]) + ((0.00017929400000000001 * fVec14[((IOTA - 70) & 127)]) + ((0.0012052899999999999 * fVec14[((IOTA - 69) & 127)]) + ((0.0029520400000000004 * fVec14[((IOTA - 45) & 127)]) + ((0.0094207800000000001 * fVec14[((IOTA - 44) & 127)]) + ((0.0089927300000000009 * fVec14[((IOTA - 43) & 127)]) + ((0.0031344599999999999 * fVec14[((IOTA - 40) & 127)]) + ((0.0020825100000000001 * fVec14[((IOTA - 39) & 127)]) + ((0.010519000000000001 * fVec14[((IOTA - 30) & 127)]) + ((0.0133066 * fVec14[((IOTA - 27) & 127)]) + ((0.024085600000000002 * fVec14[((IOTA - 22) & 127)]) + ((0.0087774500000000009 * fVec14[((IOTA - 21) & 127)]) + ((0.0316397 * fVec14[((IOTA - 20) & 127)]) + ((0.0629913 * fVec14[((IOTA - 19) & 127)]) + ((0.00082095500000000006 * fVec14[((IOTA - 18) & 127)]) + ((0.027291599999999999 * fVec14[((IOTA - 17) & 127)]) + ((0.037210699999999999 * fVec14[((IOTA - 16) & 127)]) + ((0.00091706600000000002 * fVec14[((IOTA - 15) & 127)]) + ((0.00067622200000000009 * fVec14[((IOTA - 10) & 127)]) + ((0.00071360300000000005 * fVec14[((IOTA - 8) & 127)]) + ((0.000243654 * fVec14[((IOTA - 7) & 127)]) + ((0.00032285800000000003 * fVec14[((IOTA - 6) & 127)]) + ((0.000171535 * fVec14[((IOTA - 5) & 127)]) + ((9.1102699999999994e-07 * fVec14[((IOTA - 3) & 127)]) + ((0.000151989 * fVec14[((IOTA - 2) & 127)]) + ((7.3887899999999996e-06 * fVec14[((IOTA - 1) & 127)]) + ((0.0088627000000000011 * fVec14[((IOTA - 51) & 127)]) + ((0.00769069 * fVec14[((IOTA - 50) & 127)]) + ((0.0025811200000000001 * fVec14[((IOTA - 49) & 127)]) + ((0.0020010100000000001 * fVec14[((IOTA - 47) & 127)]) + ((9.0909400000000007e-05 * fVec14[((IOTA - 63) & 127)]) + ((7.1183600000000001e-05 * fVec14[((IOTA - 62) & 127)]) + ((0.00144718 * fVec14[((IOTA - 60) & 127)]) + ((0.0011860799999999999 * fVec14[((IOTA - 59) & 127)]) + ((0.0020690300000000003 * fVec14[((IOTA - 57) & 127)]) + ((0.0015602599999999999 * fVec14[((IOTA - 56) & 127)]) + ((0.0016904800000000001 * fVec14[((IOTA - 53) & 127)]) + ((0.00271579 * fVec14[((IOTA - 52) & 127)]) + ((6.2717999999999998e-07 * fVec15[((IOTA - 126) & 127)]) + ((3.2364399999999999e-06 * fVec15[((IOTA - 125) & 127)]) + ((8.259009999999999e-06 * fVec15[((IOTA - 123) & 127)]) + ((8.9749599999999985e-06 * fVec15[((IOTA - 122) & 127)]) + ((1.8158200000000002e-05 * fVec15[((IOTA - 121) & 127)]) + ((0.0056659300000000004 * fVec14[((IOTA - 46) & 127)]) + ((5.1987600000000003e-05 * fVec15[((IOTA - 120) & 127)]) + ((3.15558e-05 * fVec15[((IOTA - 119) & 127)]) + ((5.2186399999999999e-05 * fVec15[((IOTA - 117) & 127)]) + ((0.00018432800000000001 * fVec15[((IOTA - 116) & 127)]) + ((5.6034300000000007e-05 * fVec15[((IOTA - 115) & 127)]) + ((6.3985300000000012e-05 * fVec15[((IOTA - 111) & 127)]) + ((9.3386400000000004e-05 * fVec15[((IOTA - 110) & 127)]) + ((0.000174119 * fVec15[((IOTA - 109) & 127)]) + ((0.00035722100000000001 * fVec15[((IOTA - 106) & 127)]) + ((0.00040952500000000005 * fVec15[((IOTA - 105) & 127)]) + ((0.00017427299999999999 * fVec15[((IOTA - 104) & 127)]) + ((0.00071199800000000004 * fVec15[((IOTA - 97) & 127)]) + ((0.0017188800000000001 * fVec15[((IOTA - 96) & 127)]) + ((0.00054225400000000004 * fVec15[((IOTA - 95) & 127)]) + ((0.000197515 * fVec15[((IOTA - 86) & 127)]) + ((0.0015781700000000001 * fVec15[((IOTA - 85) & 127)]) + ((0.0013863900000000001 * fVec15[((IOTA - 84) & 127)]) + ((1.9453499999999999e-05 * fVec15[((IOTA - 80) & 127)]) + ((0.00084547300000000001 * fVec15[((IOTA - 78) & 127)]) + ((0.00076569700000000008 * fVec15[((IOTA - 76) & 127)]) + ((0.0010572699999999999 * fVec15[((IOTA - 75) & 127)]) + ((7.5785200000000008e-05 * fVec15[((IOTA - 74) & 127)]) + ((0.0013651400000000001 * fVec15[((IOTA - 73) & 127)]) + ((2.74129e-05 * fVec15[((IOTA - 72) & 127)]) + ((0.0044228100000000001 * fVec15[((IOTA - 56) & 127)]) + ((0.0033445299999999996 * fVec15[((IOTA - 55) & 127)]) + ((0.0038119900000000003 * fVec15[((IOTA - 52) & 127)]) + ((0.00126195 * fVec15[((IOTA - 47) & 127)]) + ((0.00358275 * fVec15[((IOTA - 46) & 127)]) + ((0.0054975199999999997 * fVec15[((IOTA - 45) & 127)]) + ((0.0039510000000000005 * fVec15[((IOTA - 43) & 127)]) + ((0.0080632699999999991 * fVec15[((IOTA - 42) & 127)]) + ((0.0029713500000000002 * fVec15[((IOTA - 39) & 127)]) + ((0.0045339300000000003 * fVec15[((IOTA - 38) & 127)]) + ((0.0034691399999999999 * fVec15[((IOTA - 36) & 127)]) + ((0.0053706500000000003 * fVec15[((IOTA - 31) & 127)]) + ((0.00080878800000000006 * fVec15[((IOTA - 29) & 127)]) + ((0.0049867499999999999 * fVec15[((IOTA - 28) & 127)]) + ((0.0289144 * fVec15[((IOTA - 26) & 127)]) + ((0.0069377800000000002 * fVec15[((IOTA - 23) & 127)]) + ((0.015224500000000002 * fVec15[((IOTA - 20) & 127)]) + ((0.022025899999999998 * fVec15[((IOTA - 19) & 127)]) + ((0.0022348099999999998 * fVec15[((IOTA - 15) & 127)]) + ((0.00084613300000000011 * fVec15[((IOTA - 10) & 127)]) + ((0.00031658400000000002 * fVec15[((IOTA - 8) & 127)]) + ((4.6817000000000003e-05 * fVec15[((IOTA - 7) & 127)]) + ((0.00030049700000000005 * fVec15[((IOTA - 6) & 127)]) + ((0.00030608399999999998 * fVec15[((IOTA - 4) & 127)]) + ((4.2592100000000005e-06 * fVec15[((IOTA - 3) & 127)]) + ((5.0763200000000002e-05 * fVec15[((IOTA - 2) & 127)]) + ((6.9052499999999997e-06 * fTemp15) + ((0.00022492500000000001 * fVec15[((IOTA - 71) & 127)]) + ((0.0012562599999999999 * fVec15[((IOTA - 68) & 127)]) + ((0.0010871100000000001 * fVec15[((IOTA - 66) & 127)]) + ((0.0020311800000000001 * fVec15[((IOTA - 65) & 127)]) + ((0.0011967099999999999 * fVec15[((IOTA - 64) & 127)]) + ((6.0100200000000004e-05 * fVec15[((IOTA - 63) & 127)]) + ((0.0025393899999999999 * fVec15[((IOTA - 57) & 127)]) + ((9.1296399999999994e-07 * fVec16[((IOTA - 126) & 127)]) + ((3.51464e-06 * fVec16[((IOTA - 125) & 127)]) + ((2.3408799999999998e-06 * fVec16[((IOTA - 124) & 127)]) + ((1.2859600000000001e-05 * fVec16[((IOTA - 122) & 127)]) + ((6.8135399999999998e-05 * fVec16[((IOTA - 121) & 127)]) + ((7.0622400000000003e-05 * fVec16[((IOTA - 120) & 127)]) + ((4.4616900000000003e-05 * fVec16[((IOTA - 117) & 127)]) + ((0.00015610500000000002 * fVec16[((IOTA - 109) & 127)]) + ((9.1847800000000005e-05 * fVec16[((IOTA - 106) & 127)]) + ((0.00040533400000000003 * fVec16[((IOTA - 105) & 127)]) + ((8.3187099999999995e-05 * fVec16[((IOTA - 100) & 127)]) + ((7.3548200000000008e-05 * fVec16[((IOTA - 99) & 127)]) + ((0.00037095800000000001 * fVec16[((IOTA - 98) & 127)]) + ((0.0010441100000000002 * fVec16[((IOTA - 97) & 127)]) + ((0.00075582300000000009 * fVec16[((IOTA - 96) & 127)]) + ((0.00068145800000000002 * fVec16[((IOTA - 95) & 127)]) + ((0.0017419500000000001 * fVec16[((IOTA - 94) & 127)]) + ((0.0020959099999999999 * fVec16[((IOTA - 93) & 127)]) + ((0.00075253699999999995 * fVec16[((IOTA - 89) & 127)]) + ((0.00076358900000000006 * fVec16[((IOTA - 88) & 127)]) + ((0.00093791200000000006 * fVec16[((IOTA - 87) & 127)]) + ((0.00066410799999999995 * fVec16[((IOTA - 86) & 127)]) + ((2.1531600000000002e-05 * fVec16[((IOTA - 83) & 127)]) + ((0.00025595899999999999 * fVec16[((IOTA - 78) & 127)]) + ((0.0026293000000000002 * fVec16[((IOTA - 77) & 127)]) + ((0.00269454 * fVec16[((IOTA - 76) & 127)]) + ((0.00143391 * fVec16[((IOTA - 75) & 127)]) + ((0.00067648000000000003 * fVec16[((IOTA - 74) & 127)]) + ((0.000121165 * fVec16[((IOTA - 73) & 127)]) + ((0.00082825600000000009 * fVec16[((IOTA - 66) & 127)]) + ((0.00018963900000000002 * fVec16[((IOTA - 65) & 127)]) + ((0.00039613000000000002 * fVec16[((IOTA - 62) & 127)]) + ((0.0029183799999999999 * fVec16[((IOTA - 61) & 127)]) + ((0.0020411800000000001 * fVec16[((IOTA - 60) & 127)]) + ((0.0035877300000000003 * fVec16[((IOTA - 57) & 127)]) + ((0.0078956300000000007 * fVec16[((IOTA - 40) & 127)]) + ((0.0017256800000000001 * fVec16[((IOTA - 31) & 127)]) + ((0.027913199999999999 * fVec16[((IOTA - 24) & 127)]) + ((0.025743499999999999 * fVec16[((IOTA - 23) & 127)]) + ((0.0068529799999999998 * fVec16[((IOTA - 21) & 127)]) + ((0.063915300000000008 * fVec16[((IOTA - 20) & 127)]) + ((0.0661857 * fVec16[((IOTA - 19) & 127)]) + ((0.022665999999999999 * fVec16[((IOTA - 18) & 127)]) + ((0.00195357 * fVec16[((IOTA - 17) & 127)]) + ((0.0555369 * fVec16[((IOTA - 16) & 127)]) + ((0.027306 * fVec16[((IOTA - 15) & 127)]) + ((0.00054477599999999996 * fVec16[((IOTA - 10) & 127)]) + ((0.00092023100000000009 * fVec16[((IOTA - 7) & 127)]) + ((0.00095649800000000007 * fVec16[((IOTA - 6) & 127)]) + ((0.00031540600000000001 * fVec16[((IOTA - 2) & 127)]) + ((0.0081759099999999998 * fVec16[((IOTA - 48) & 127)]) + ((0.0042540899999999994 * fVec16[((IOTA - 47) & 127)]) + ((0.0031707900000000002 * fVec16[((IOTA - 46) & 127)]) + ((0.0049894200000000005 * fVec16[((IOTA - 45) & 127)]) + ((0.0097648300000000004 * fVec16[((IOTA - 44) & 127)]) + ((0.0036288100000000001 * fVec16[((IOTA - 42) & 127)]) + ((0.0028681000000000002 * fVec16[((IOTA - 56) & 127)]) + ((0.0047187499999999999 * fVec16[((IOTA - 52) & 127)]) + ((0.0066370199999999996 * fVec16[((IOTA - 51) & 127)]) + ((0.0045751999999999998 * fVec16[((IOTA - 50) & 127)]) + ((0.0044307699999999997 * fVec16[((IOTA - 49) & 127)]) + ((0.0162506 * fVec16[((IOTA - 43) & 127)]) + ((9.8664600000000001e-07 * fVec17[((IOTA - 125) & 127)]) + ((6.1935700000000003e-07 * fVec17[((IOTA - 122) & 127)]) + ((4.9322600000000008e-05 * fVec17[((IOTA - 119) & 127)]) + ((6.2934400000000005e-05 * fVec17[((IOTA - 118) & 127)]) + ((4.2778300000000003e-05 * fVec17[((IOTA - 117) & 127)]) + ((0.000106835 * fVec17[((IOTA - 116) & 127)]) + ((0.00018018099999999999 * fVec17[((IOTA - 115) & 127)]) + ((0.00022798800000000001 * fVec17[((IOTA - 114) & 127)]) + ((0.000195522 * fVec17[((IOTA - 113) & 127)]) + ((0.00011808300000000001 * fVec17[((IOTA - 112) & 127)]) + ((3.4608100000000005e-05 * fVec17[((IOTA - 111) & 127)]) + ((5.723480000000001e-05 * fVec17[((IOTA - 110) & 127)]) + ((0.00010142800000000001 * fVec17[((IOTA - 109) & 127)]) + ((9.4569700000000004e-05 * fVec17[((IOTA - 108) & 127)]) + ((0.000158107 * fVec17[((IOTA - 107) & 127)]) + ((0.00070563799999999997 * fVec17[((IOTA - 106) & 127)]) + ((0.00020890300000000003 * fVec17[((IOTA - 78) & 127)]) + ((0.00023814000000000002 * fVec17[((IOTA - 102) & 127)]) + ((0.00015213499999999999 * fVec17[((IOTA - 100) & 127)]) + ((0.0010091500000000001 * fVec17[((IOTA - 99) & 127)]) + ((0.0015510600000000002 * fVec17[((IOTA - 98) & 127)]) + ((0.00028692799999999999 * fVec17[((IOTA - 97) & 127)]) + ((0.00133293 * fVec17[((IOTA - 94) & 127)]) + ((0.0028975800000000003 * fVec17[((IOTA - 93) & 127)]) + ((0.00048340500000000007 * fVec17[((IOTA - 105) & 127)]) + ((0.00088707100000000013 * fVec17[((IOTA - 92) & 127)]) + ((0.00187875 * fVec17[((IOTA - 90) & 127)]) + ((0.0031641300000000002 * fVec17[((IOTA - 89) & 127)]) + ((0.0018413699999999999 * fVec17[((IOTA - 88) & 127)]) + ((0.00031068799999999999 * fVec17[((IOTA - 86) & 127)]) + ((0.00097602600000000006 * fVec17[((IOTA - 85) & 127)]) + ((0.0015255399999999999 * fVec17[((IOTA - 84) & 127)]) + ((0.00237411 * fVec17[((IOTA - 83) & 127)]) + ((0.00112458 * fVec17[((IOTA - 82) & 127)]) + ((0.000380057 * fVec17[((IOTA - 81) & 127)]) + ((0.000712925 * fVec17[((IOTA - 75) & 127)]) + ((0.00090846500000000001 * fVec17[((IOTA - 74) & 127)]) + ((0.000274135 * fVec17[((IOTA - 73) & 127)]) + ((0.00090694700000000018 * fVec17[((IOTA - 64) & 127)]) + ((0.0024532300000000003 * fVec17[((IOTA - 63) & 127)]) + ((0.00327984 * fVec17[((IOTA - 62) & 127)]) + ((0.0016773199999999999 * fVec17[((IOTA - 61) & 127)]) + ((0.00044967800000000007 * fVec17[((IOTA - 60) & 127)]) + ((0.00165106 * fVec17[((IOTA - 59) & 127)]) + ((0.0048987900000000001 * fVec17[((IOTA - 58) & 127)]) + ((0.0034805299999999999 * fVec17[((IOTA - 57) & 127)]) + ((0.0023563100000000003 * fVec17[((IOTA - 56) & 127)]) + ((0.0045976600000000008 * fVec17[((IOTA - 55) & 127)]) + ((0.00626758 * fVec17[((IOTA - 54) & 127)]) + ((0.0026557099999999999 * fVec17[((IOTA - 53) & 127)]) + ((0.0043297500000000003 * fVec17[((IOTA - 52) & 127)]) + ((0.009209740000000001 * fVec17[((IOTA - 51) & 127)]) + ((0.0029224400000000001 * fVec17[((IOTA - 50) & 127)]) + ((0.0033351100000000001 * fVec17[((IOTA - 49) & 127)]) + ((0.010395300000000001 * fVec17[((IOTA - 48) & 127)]) + ((0.0093701299999999991 * fVec17[((IOTA - 47) & 127)]) + ((0.0063169100000000002 * fVec17[((IOTA - 46) & 127)]) + ((0.013098200000000001 * fVec17[((IOTA - 45) & 127)]) + ((0.014119 * fVec17[((IOTA - 44) & 127)]) + ((0.0021459299999999999 * fVec17[((IOTA - 43) & 127)]) + ((0.0105223 * fVec17[((IOTA - 42) & 127)]) + ((0.022465099999999998 * fVec17[((IOTA - 41) & 127)]) + ((0.0080828600000000007 * fVec17[((IOTA - 40) & 127)]) + ((0.0026383800000000001 * fVec17[((IOTA - 39) & 127)]) + ((0.0090530699999999999 * fVec17[((IOTA - 38) & 127)]) + ((0.0048908699999999994 * fVec17[((IOTA - 37) & 127)]) + ((0.0060908100000000003 * fVec17[((IOTA - 35) & 127)]) + ((0.0095365099999999998 * fVec17[((IOTA - 32) & 127)]) + ((0.00093046600000000002 * fVec17[((IOTA - 22) & 127)]) + ((0.015390200000000001 * fVec17[((IOTA - 18) & 127)]) + ((0.045964499999999998 * fVec17[((IOTA - 17) & 127)]) + ((0.028787799999999999 * fVec17[((IOTA - 15) & 127)]) + ((0.048319200000000007 * fVec17[((IOTA - 14) & 127)]) + ((0.076845299999999991 * fVec17[((IOTA - 13) & 127)]) + ((0.074437400000000001 * fVec17[((IOTA - 12) & 127)]) + ((0.0013813599999999999 * fVec17[((IOTA - 11) & 127)]) + ((9.4869000000000016e-05 * fVec17[((IOTA - 10) & 127)]) + ((0.00097653599999999996 * fVec17[((IOTA - 9) & 127)]) + ((0.00011001600000000001 * fVec17[((IOTA - 8) & 127)]) + ((0.00063438600000000002 * fVec17[((IOTA - 5) & 127)]) + ((0.00012589200000000001 * fVec17[((IOTA - 4) & 127)]) + ((0.00040925999999999999 * fVec17[((IOTA - 3) & 127)]) + ((6.4495100000000005e-05 * fVec17[((IOTA - 1) & 127)]) + ((1.3287400000000001e-05 * fTemp17) + ((7.7027e-06 * fVec18[((IOTA - 124) & 127)]) + ((1.6838600000000002e-05 * fVec18[((IOTA - 123) & 127)]) + ((4.9636399999999996e-06 * fVec18[((IOTA - 122) & 127)]) + ((1.9403399999999997e-06 * fVec18[((IOTA - 121) & 127)]) + ((5.28142e-05 * fVec18[((IOTA - 120) & 127)]) + ((0.00011763 * fVec18[((IOTA - 119) & 127)]) + ((0.00016574 * fVec18[((IOTA - 118) & 127)]) + ((0.00013637100000000001 * fVec18[((IOTA - 117) & 127)]) + ((9.7487500000000005e-05 * fVec18[((IOTA - 116) & 127)]) + ((2.2899500000000003e-05 * fVec18[((IOTA - 115) & 127)]) + ((1.3387100000000001e-05 * fVec18[((IOTA - 114) & 127)]) + ((8.3318600000000019e-05 * fVec18[((IOTA - 113) & 127)]) + ((0.00025527000000000004 * fVec18[((IOTA - 112) & 127)]) + ((0.00034909600000000002 * fVec18[((IOTA - 111) & 127)]) + ((0.00019374600000000001 * fVec18[((IOTA - 107) & 127)]) + ((0.00019838400000000002 * fVec18[((IOTA - 103) & 127)]) + ((0.000168486 * fVec18[((IOTA - 96) & 127)]) + ((0.0012272400000000001 * fVec18[((IOTA - 95) & 127)]) + ((0.00020233 * fVec18[((IOTA - 94) & 127)]) + ((0.00017177199999999999 * fVec18[((IOTA - 90) & 127)]) + ((0.00020847000000000004 * fVec18[((IOTA - 88) & 127)]) + ((0.0011732700000000001 * fVec18[((IOTA - 87) & 127)]) + ((0.00090841200000000004 * fVec18[((IOTA - 86) & 127)]) + ((0.0010732299999999999 * fVec18[((IOTA - 81) & 127)]) + ((0.00257691 * fVec18[((IOTA - 80) & 127)]) + ((0.0017717799999999999 * fVec18[((IOTA - 79) & 127)]) + ((0.000561862 * fVec18[((IOTA - 78) & 127)]) + ((0.000172719 * fVec18[((IOTA - 77) & 127)]) + ((0.0028482099999999999 * fVec18[((IOTA - 75) & 127)]) + ((0.00218125 * fVec18[((IOTA - 74) & 127)]) + ((0.00024288000000000001 * fVec18[((IOTA - 71) & 127)]) + ((0.00186575 * fVec18[((IOTA - 70) & 127)]) + ((0.000588187 * fVec18[((IOTA - 66) & 127)]) + ((0.00080033999999999997 * fVec18[((IOTA - 58) & 127)]) + ((2.5690700000000001e-05 * fVec18[((IOTA - 55) & 127)]) + ((0.00113243 * fVec18[((IOTA - 54) & 127)]) + ((0.0016462200000000001 * fVec18[((IOTA - 53) & 127)]) + ((0.00086436100000000012 * fVec18[((IOTA - 51) & 127)]) + ((0.0055766799999999997 * fVec18[((IOTA - 50) & 127)]) + ((0.00392757 * fVec18[((IOTA - 49) & 127)]) + ((0.0028865100000000001 * fVec18[((IOTA - 48) & 127)]) + ((0.0056144999999999997 * fVec18[((IOTA - 47) & 127)]) + ((0.0026402700000000001 * fVec18[((IOTA - 46) & 127)]) + ((0.0042838500000000005 * fVec18[((IOTA - 44) & 127)]) + ((0.0034927700000000001 * fVec18[((IOTA - 43) & 127)]) + ((0.00038527200000000003 * fVec18[((IOTA - 42) & 127)]) + ((0.0065811400000000009 * fVec18[((IOTA - 41) & 127)]) + ((0.0015727 * fVec18[((IOTA - 40) & 127)]) + ((0.0158301 * fVec18[((IOTA - 37) & 127)]) + ((0.027060000000000001 * fVec18[((IOTA - 34) & 127)]) + ((0.0063968899999999997 * fVec18[((IOTA - 31) & 127)]) + ((0.011650000000000001 * fVec18[((IOTA - 30) & 127)]) + ((0.0092220099999999992 * fVec18[((IOTA - 28) & 127)]) + ((0.0078633899999999996 * fVec18[((IOTA - 27) & 127)]) + ((0.029293300000000001 * fVec18[((IOTA - 25) & 127)]) + ((0.0096560400000000012 * fVec18[((IOTA - 24) & 127)]) + ((0.0144406 * fVec18[((IOTA - 22) & 127)]) + ((0.013951100000000001 * fVec18[((IOTA - 21) & 127)]) + ((0.0084374500000000009 * fVec18[((IOTA - 18) & 127)]) + ((0.0039648399999999999 * fVec18[((IOTA - 16) & 127)]) + ((0.0014542699999999999 * fVec18[((IOTA - 13) & 127)]) + ((0.00036303800000000004 * fVec18[((IOTA - 12) & 127)]) + ((0.00064008700000000001 * fVec18[((IOTA - 9) & 127)]) + ((6.501340000000001e-05 * fVec18[((IOTA - 6) & 127)]) + ((0.00011503900000000001 * fVec18[((IOTA - 5) & 127)]) + ((7.4982900000000003e-05 * fVec18[((IOTA - 3) & 127)]) + ((0.0016132899999999999 * fVec18[((IOTA - 85) & 127)]) + ((0.00035920700000000001 * fVec18[((IOTA - 84) & 127)]) + ((5.3978799999999999e-06 * fVec19[((IOTA - 125) & 127)]) + ((7.9125199999999989e-06 * fVec19[((IOTA - 124) & 127)]) + ((8.4929499999999997e-06 * fVec19[((IOTA - 123) & 127)]) + ((1.1654000000000001e-05 * fVec19[((IOTA - 122) & 127)]) + ((5.1085100000000003e-05 * fVec19[((IOTA - 121) & 127)]) + ((6.8685100000000004e-05 * fVec19[((IOTA - 120) & 127)]) + ((3.2896299999999998e-06 * fVec19[((IOTA - 119) & 127)]) + ((1.41509e-05 * fVec19[((IOTA - 118) & 127)]) + ((1.6980200000000004e-05 * fVec19[((IOTA - 117) & 127)]) + ((3.2223700000000001e-05 * fVec19[((IOTA - 116) & 127)]) + ((5.8471100000000003e-05 * fVec19[((IOTA - 115) & 127)]) + ((0.00010523700000000001 * fVec19[((IOTA - 114) & 127)]) + ((0.00013697000000000001 * fVec19[((IOTA - 113) & 127)]) + ((0.00010184400000000001 * fVec19[((IOTA - 112) & 127)]) + ((3.2479200000000006e-05 * fVec19[((IOTA - 104) & 127)]) + ((7.9775300000000009e-05 * fVec19[((IOTA - 103) & 127)]) + ((0.00031580000000000003 * fVec18[((IOTA - 82) & 127)]) + ((0.000178013 * fVec19[((IOTA - 97) & 127)]) + ((0.00096584900000000007 * fVec19[((IOTA - 96) & 127)]) + ((0.00013887600000000002 * fVec19[((IOTA - 95) & 127)]) + ((0.00019982600000000001 * fVec19[((IOTA - 92) & 127)]) + ((0.00031649800000000002 * fVec19[((IOTA - 89) & 127)]) + ((0.00037059799999999998 * fVec19[((IOTA - 88) & 127)]) + ((0.0012454300000000001 * fVec19[((IOTA - 87) & 127)]) + ((0.00084652999999999996 * fVec19[((IOTA - 86) & 127)]) + ((0.00049063800000000005 * fVec19[((IOTA - 82) & 127)]) + ((0.0013326899999999999 * fVec19[((IOTA - 79) & 127)]) + ((0.00140716 * fVec19[((IOTA - 78) & 127)]) + ((0.00036433400000000001 * fVec19[((IOTA - 77) & 127)]) + ((0.001299 * fVec19[((IOTA - 75) & 127)]) + ((0.0033552399999999998 * fVec19[((IOTA - 74) & 127)]) + ((0.00067232300000000006 * fVec19[((IOTA - 73) & 127)]) + ((0.000145224 * fVec19[((IOTA - 72) & 127)]) + ((0.00118198 * fVec19[((IOTA - 69) & 127)]) + ((0.0029169900000000004 * fVec19[((IOTA - 68) & 127)]) + ((0.000641773 * fVec19[((IOTA - 63) & 127)]) + ((0.0019041500000000001 * fVec19[((IOTA - 62) & 127)]) + ((0.0020271300000000003 * fVec19[((IOTA - 58) & 127)]) + ((0.0058685200000000003 * fVec19[((IOTA - 50) & 127)]) + ((0.0061875000000000003 * fVec19[((IOTA - 49) & 127)]) + ((0.0086182900000000007 * fVec19[((IOTA - 48) & 127)]) + ((0.0051318099999999997 * fVec19[((IOTA - 47) & 127)]) + ((0.00066500800000000003 * fVec19[((IOTA - 46) & 127)]) + ((0.0054012200000000008 * fVec19[((IOTA - 45) & 127)]) + ((0.0077257100000000002 * fVec19[((IOTA - 44) & 127)]) + ((0.0049702700000000006 * fVec19[((IOTA - 43) & 127)]) + ((0.0075730000000000007 * fVec19[((IOTA - 42) & 127)]) + ((0.0060422599999999998 * fVec19[((IOTA - 41) & 127)]) + ((0.0027149600000000002 * fVec19[((IOTA - 39) & 127)]) + ((0.00081970899999999995 * fVec19[((IOTA - 38) & 127)]) + ((5.1858400000000005e-05 * fVec19[((IOTA - 36) & 127)]) + ((0.0045739400000000003 * fVec19[((IOTA - 35) & 127)]) + ((0.00060354400000000002 * fVec19[((IOTA - 31) & 127)]) + ((0.0126207 * fVec19[((IOTA - 18) & 127)]) + ((0.015590100000000001 * fVec19[((IOTA - 17) & 127)]) + ((0.027497799999999999 * fVec19[((IOTA - 15) & 127)]) + ((0.019302299999999998 * fVec19[((IOTA - 14) & 127)]) + ((0.044481599999999996 * fVec19[((IOTA - 13) & 127)]) + ((0.042276800000000003 * fVec19[((IOTA - 12) & 127)]) + ((0.0021177600000000002 * fVec19[((IOTA - 11) & 127)]) + ((0.00027291300000000001 * fVec19[((IOTA - 9) & 127)]) + ((6.1550000000000005e-05 * fVec19[((IOTA - 8) & 127)]) + ((0.000175224 * fVec19[((IOTA - 5) & 127)]) + ((0.00022650199999999998 * fVec19[((IOTA - 4) & 127)]) + ((5.7022700000000005e-05 * fVec19[((IOTA - 3) & 127)]) + ((2.0383200000000002e-05 * fVec19[((IOTA - 1) & 127)]) + ((4.9413399999999999e-06 * fTemp19) + ((0.0037510500000000001 * fVec19[((IOTA - 57) & 127)]) + ((0.0046006600000000003 * fVec19[((IOTA - 56) & 127)]) + ((0.0050914999999999997 * fVec19[((IOTA - 55) & 127)]) + ((0.0044053800000000004 * fVec19[((IOTA - 54) & 127)]) + ((0.0011063700000000002 * fVec19[((IOTA - 53) & 127)]) + ((5.7104899999999999e-06 * fVec20[((IOTA - 125) & 127)]) + ((0.0019731900000000001 * fVec19[((IOTA - 52) & 127)]) + ((1.32724e-05 * fVec20[((IOTA - 124) & 127)]) + ((2.9137400000000003e-05 * fVec20[((IOTA - 119) & 127)]) + ((0.0069039700000000006 * fVec19[((IOTA - 51) & 127)]) + ((0.00015924 * fVec20[((IOTA - 116) & 127)]) + ((7.6537400000000003e-05 * fVec20[((IOTA - 115) & 127)]) + ((6.5009300000000008e-05 * fVec20[((IOTA - 114) & 127)]) + ((3.6292700000000006e-05 * fVec20[((IOTA - 113) & 127)]) + ((2.5843400000000004e-05 * fVec20[((IOTA - 112) & 127)]) + ((0.00024267500000000003 * fVec20[((IOTA - 111) & 127)]) + ((0.00031903100000000006 * fVec20[((IOTA - 109) & 127)]) + ((0.00039582199999999999 * fVec20[((IOTA - 108) & 127)]) + ((0.00027277099999999999 * fVec20[((IOTA - 107) & 127)]) + ((0.00092367899999999995 * fVec20[((IOTA - 106) & 127)]) + ((0.0007145500000000001 * fVec20[((IOTA - 105) & 127)]) + ((0.000964846 * fVec20[((IOTA - 104) & 127)]) + ((0.0012146699999999999 * fVec20[((IOTA - 103) & 127)]) + ((0.00057145600000000003 * fVec20[((IOTA - 102) & 127)]) + ((0.00054242299999999999 * fVec20[((IOTA - 101) & 127)]) + ((0.00061493000000000008 * fVec20[((IOTA - 100) & 127)]) + ((0.0012203400000000001 * fVec20[((IOTA - 99) & 127)]) + ((0.0011941500000000002 * fVec20[((IOTA - 98) & 127)]) + ((0.00106711 * fVec20[((IOTA - 97) & 127)]) + ((0.00308618 * fVec20[((IOTA - 96) & 127)]) + ((0.0032894199999999999 * fVec20[((IOTA - 95) & 127)]) + ((0.00149796 * fVec20[((IOTA - 94) & 127)]) + ((0.00068249900000000004 * fVec20[((IOTA - 93) & 127)]) + ((0.00078510099999999996 * fVec20[((IOTA - 91) & 127)]) + ((0.00096550100000000012 * fVec20[((IOTA - 90) & 127)]) + ((0.00058387599999999999 * fVec20[((IOTA - 89) & 127)]) + ((0.0013118799999999999 * fVec20[((IOTA - 88) & 127)]) + ((0.0027314400000000003 * fVec20[((IOTA - 87) & 127)]) + ((0.0031734000000000003 * fVec20[((IOTA - 86) & 127)]) + ((0.0023903100000000001 * fVec20[((IOTA - 85) & 127)]) + ((0.0025833200000000001 * fVec20[((IOTA - 84) & 127)]) + ((0.00058356200000000003 * fVec20[((IOTA - 83) & 127)]) + ((1.7606500000000002e-05 * fVec20[((IOTA - 77) & 127)]) + ((0.0017979000000000001 * fVec20[((IOTA - 75) & 127)]) + ((0.00191797 * fVec20[((IOTA - 74) & 127)]) + ((0.00034747700000000001 * fVec20[((IOTA - 73) & 127)]) + ((0.000544179 * fVec20[((IOTA - 67) & 127)]) + ((5.63033e-05 * fVec20[((IOTA - 65) & 127)]) + ((0.0011524899999999999 * fVec20[((IOTA - 62) & 127)]) + ((0.00156606 * fVec20[((IOTA - 55) & 127)]) + ((0.0015830800000000002 * fVec20[((IOTA - 54) & 127)]) + ((0.0017704200000000002 * fVec20[((IOTA - 50) & 127)]) + ((0.0019330199999999999 * fVec20[((IOTA - 49) & 127)]) + ((0.00266146 * fVec20[((IOTA - 46) & 127)]) + ((0.0011897800000000001 * fVec20[((IOTA - 45) & 127)]) + ((0.00307881 * fVec20[((IOTA - 42) & 127)]) + ((0.0024114100000000001 * fVec20[((IOTA - 41) & 127)]) + ((0.0026392099999999999 * fVec20[((IOTA - 40) & 127)]) + ((0.00380796 * fVec20[((IOTA - 39) & 127)]) + ((0.000320157 * fVec20[((IOTA - 38) & 127)]) + ((0.00022045699999999999 * fVec20[((IOTA - 37) & 127)]) + ((0.0020659800000000002 * fVec20[((IOTA - 36) & 127)]) + ((0.0049689600000000006 * fVec20[((IOTA - 34) & 127)]) + ((0.00033950300000000006 * fVec20[((IOTA - 11) & 127)]) + ((0.00046365600000000006 * fVec20[((IOTA - 9) & 127)]) + ((0.0019217200000000002 * fVec20[((IOTA - 8) & 127)]) + ((0.00055710700000000004 * fVec20[((IOTA - 6) & 127)]) + ((0.00078591400000000008 * fVec20[((IOTA - 5) & 127)]) + ((0.00067488200000000002 * fVec20[((IOTA - 4) & 127)]) + ((0.00020588500000000003 * fVec20[((IOTA - 2) & 127)]) + ((3.4700500000000004e-05 * fVec20[((IOTA - 1) & 127)]) + ((1.2413700000000001e-05 * fTemp20) + ((0.0161706 * fVec20[((IOTA - 22) & 127)]) + ((0.026332300000000003 * fVec20[((IOTA - 21) & 127)]) + ((0.0079993000000000009 * fVec20[((IOTA - 20) & 127)]) + ((0.0075314300000000004 * fVec20[((IOTA - 33) & 127)]) + ((0.0022648999999999998 * fVec20[((IOTA - 31) & 127)]) + ((0.00801492 * fVec20[((IOTA - 30) & 127)]) + ((0.0110397 * fVec20[((IOTA - 29) & 127)]) + ((0.0010152000000000002 * fVec20[((IOTA - 28) & 127)]) + ((0.00287375 * fVec20[((IOTA - 26) & 127)]) + ((0.00082163500000000003 * fVec20[((IOTA - 18) & 127)]) + ((0.035125400000000001 * fVec20[((IOTA - 17) & 127)]) + ((4.8744899999999996e-07 * fVec21[((IOTA - 126) & 127)]) + ((3.5255099999999998e-06 * fVec21[((IOTA - 125) & 127)]) + ((3.2621699999999995e-06 * fVec21[((IOTA - 124) & 127)]) + ((4.06072e-05 * fVec21[((IOTA - 121) & 127)]) + ((6.3317800000000006e-05 * fVec21[((IOTA - 120) & 127)]) + ((3.5918100000000004e-05 * fVec21[((IOTA - 119) & 127)]) + (((2.5941400000000002e-05 * fVec21[((IOTA - 117) & 127)]) + ((8.6548500000000007e-05 * fVec21[((IOTA - 116) & 127)]) + ((5.5551700000000006e-05 * fVec21[((IOTA - 115) & 127)]) + ((3.6866300000000003e-05 * fVec21[((IOTA - 114) & 127)]) + ((4.2405400000000006e-05 * fVec21[((IOTA - 113) & 127)]) + ((8.1096800000000013e-05 * fVec21[((IOTA - 112) & 127)]) + ((4.85157e-05 * fVec21[((IOTA - 111) & 127)]) + ((7.4248300000000005e-05 * fVec21[((IOTA - 110) & 127)]) + ((6.1852800000000005e-05 * fVec21[((IOTA - 107) & 127)]) + ((0.00033669 * fVec21[((IOTA - 106) & 127)]) + ((0.00035192300000000003 * fVec21[((IOTA - 105) & 127)]) + ((0.000181368 * fVec21[((IOTA - 102) & 127)]) + ((5.5010100000000004e-05 * fVec21[((IOTA - 99) & 127)]) + ((0.000181872 * fVec21[((IOTA - 95) & 127)]) + ((0.0012472700000000002 * fVec21[((IOTA - 94) & 127)]) + ((0.0012369000000000002 * fVec21[((IOTA - 93) & 127)]) + ((0.00084541900000000014 * fVec21[((IOTA - 88) & 127)]) + ((0.00030825999999999998 * fVec21[((IOTA - 87) & 127)]) + ((0.000991956 * fVec21[((IOTA - 86) & 127)]) + ((0.00039449500000000002 * fVec21[((IOTA - 83) & 127)]) + ((0.00042647700000000008 * fVec21[((IOTA - 78) & 127)]) + ((0.00098188600000000017 * fVec21[((IOTA - 76) & 127)]) + ((0.00076287399999999997 * fVec21[((IOTA - 75) & 127)]) + ((0.00019696800000000003 * fVec21[((IOTA - 73) & 127)]) + ((0.00026003500000000004 * fVec21[((IOTA - 72) & 127)]) + ((0.000162845 * fVec21[((IOTA - 68) & 127)]) + ((0.000175864 * fVec21[((IOTA - 65) & 127)]) + ((0.00122741 * fVec21[((IOTA - 62) & 127)]) + ((0.00051085000000000008 * fVec21[((IOTA - 60) & 127)]) + ((0.000469171 * fVec21[((IOTA - 52) & 127)]) + ((0.0048162999999999999 * fVec21[((IOTA - 50) & 127)]) + ((0.0040944599999999994 * fVec21[((IOTA - 49) & 127)]) + ((0.0041798500000000006 * fVec21[((IOTA - 46) & 127)]) + ((0.0073487099999999996 * fVec21[((IOTA - 45) & 127)]) + ((0.0047594300000000003 * fVec21[((IOTA - 44) & 127)]) + ((0.00164357 * fVec21[((IOTA - 41) & 127)]) + ((0.0066234300000000005 * fVec21[((IOTA - 40) & 127)]) + ((0.0107364 * fVec21[((IOTA - 39) & 127)]) + ((0.0021625699999999999 * fVec21[((IOTA - 38) & 127)]) + ((0.00078494800000000005 * fVec21[((IOTA - 37) & 127)]) + ((0.008554550000000001 * fVec21[((IOTA - 36) & 127)]) + ((0.0087573399999999989 * fVec21[((IOTA - 35) & 127)]) + ((0.0022028300000000002 * fVec21[((IOTA - 32) & 127)]) + ((0.026865800000000002 * fVec21[((IOTA - 31) & 127)]) + ((0.0066563000000000004 * fVec21[((IOTA - 27) & 127)]) + ((0.0173968 * fVec21[((IOTA - 26) & 127)]) + ((0.0065755600000000003 * fVec21[((IOTA - 22) & 127)]) + ((0.044476699999999994 * fVec21[((IOTA - 18) & 127)]) + ((0.019425600000000001 * fVec21[((IOTA - 17) & 127)]) + ((0.0258357 * fVec21[((IOTA - 15) & 127)]) + ((0.00505303 * fVec21[((IOTA - 13) & 127)]) + ((0.00065851199999999999 * fVec21[((IOTA - 10) & 127)]) + ((6.4017400000000008e-05 * fVec21[((IOTA - 9) & 127)]) + ((0.00033249800000000003 * fVec21[((IOTA - 8) & 127)]) + ((0.00114682 * fVec21[((IOTA - 6) & 127)]) + ((0.00043610699999999998 * fVec21[((IOTA - 4) & 127)]) + ((0.000204336 * fVec21[((IOTA - 2) & 127)]) + ((2.2571e-06 * fVec21[((IOTA - 1) & 127)]) + ((1.2883700000000002e-05 * fTemp21) + ((0.0042857099999999999 * fVec21[((IOTA - 59) & 127)]) + ((0.0037509800000000001 * fVec21[((IOTA - 58) & 127)]) + ((7.4329200000000013e-05 * fVec22[((IOTA - 115) & 127)]) + ((0.00029377599999999999 * fVec22[((IOTA - 114) & 127)]) + ((0.000280439 * fVec22[((IOTA - 113) & 127)]) + ((0.00052814500000000005 * fVec22[((IOTA - 110) & 127)]) + ((0.00070229999999999999 * fVec22[((IOTA - 109) & 127)]) + ((0.00080632699999999991 * fVec22[((IOTA - 108) & 127)]) + ((0.000643591 * fVec22[((IOTA - 107) & 127)]) + ((0.00081294000000000006 * fVec22[((IOTA - 106) & 127)]) + ((0.00082950500000000002 * fVec22[((IOTA - 105) & 127)]) + ((0.00023107600000000004 * fVec22[((IOTA - 104) & 127)]) + ((0.00064061300000000005 * fVec22[((IOTA - 103) & 127)]) + ((0.00091664000000000003 * fVec22[((IOTA - 102) & 127)]) + ((0.00073955600000000005 * fVec22[((IOTA - 101) & 127)]) + ((0.00059890600000000007 * fVec22[((IOTA - 100) & 127)]) + ((0.0013073099999999999 * fVec22[((IOTA - 99) & 127)]) + ((0.0027768799999999998 * fVec22[((IOTA - 98) & 127)]) + ((0.00040949500000000001 * fVec22[((IOTA - 97) & 127)]) + ((0.00145302 * fVec22[((IOTA - 94) & 127)]) + (((0.0022861500000000002 * fVec22[((IOTA - 93) & 127)]) + ((0.001377 * fVec22[((IOTA - 90) & 127)]) + ((0.0017080400000000001 * fVec22[((IOTA - 89) & 127)]) + ((0.00016274 * fVec22[((IOTA - 83) & 127)]) + ((0.0027307400000000002 * fVec22[((IOTA - 82) & 127)]) + ((0.0028667500000000004 * fVec22[((IOTA - 81) & 127)]) + ((0.0011399600000000002 * fVec22[((IOTA - 80) & 127)]) + ((0.00110995 * fVec22[((IOTA - 79) & 127)]) + ((0.00124602 * fVec22[((IOTA - 78) & 127)]) + ((0.00129805 * fVec22[((IOTA - 77) & 127)]) + ((0.00100318 * fVec22[((IOTA - 76) & 127)]) + ((0.0022987899999999998 * fVec22[((IOTA - 75) & 127)]) + ((0.0019049100000000001 * fVec22[((IOTA - 74) & 127)]) + ((0.00059075000000000002 * fVec22[((IOTA - 73) & 127)]) + ((0.00103864 * fVec22[((IOTA - 72) & 127)]) + ((0.0013787300000000001 * fVec22[((IOTA - 71) & 127)]) + ((0.00181733 * fVec22[((IOTA - 70) & 127)]) + ((0.00293582 * fVec22[((IOTA - 69) & 127)]) + ((0.0023355800000000003 * fVec22[((IOTA - 68) & 127)]) + ((0.0011070699999999999 * fVec22[((IOTA - 67) & 127)]) + ((0.00050953999999999995 * fVec22[((IOTA - 66) & 127)]) + ((0.00044511000000000003 * fVec22[((IOTA - 65) & 127)]) + ((0.0038312400000000001 * fVec22[((IOTA - 61) & 127)]) + ((0.0016638 * fVec22[((IOTA - 60) & 127)]) + ((0.0043739400000000006 * fVec22[((IOTA - 48) & 127)]) + ((0.0013932899999999999 * fVec22[((IOTA - 45) & 127)]) + ((0.0106382 * fVec22[((IOTA - 41) & 127)]) + ((0.0043469900000000002 * fVec22[((IOTA - 40) & 127)]) + ((0.0015759000000000001 * fVec22[((IOTA - 37) & 127)]) + ((0.0073185999999999998 * fVec22[((IOTA - 36) & 127)]) + ((0.0045973800000000007 * fVec22[((IOTA - 35) & 127)]) + ((0.013183400000000001 * fVec22[((IOTA - 33) & 127)]) + ((0.028645500000000001 * fVec22[((IOTA - 32) & 127)]) + ((0.0092487699999999999 * fVec22[((IOTA - 29) & 127)]) + ((0.039121700000000002 * fVec22[((IOTA - 28) & 127)]) + ((0.00144425 * fVec22[((IOTA - 27) & 127)]) + ((0.000216524 * fVec22[((IOTA - 11) & 127)]) + ((0.00050577300000000005 * fVec22[((IOTA - 7) & 127)]) + ((0.00019702400000000002 * fVec22[((IOTA - 5) & 127)]) + ((6.4290300000000003e-05 * fVec22[((IOTA - 3) & 127)]) + ((0.0060285 * fVec22[((IOTA - 25) & 127)]) + ((0.057524800000000001 * fVec22[((IOTA - 24) & 127)]) + ((0.021570599999999999 * fVec22[((IOTA - 21) & 127)]) + ((0.0014793400000000002 * fVec22[((IOTA - 20) & 127)]) + ((0.0043988899999999999 * fVec22[((IOTA - 19) & 127)]) + ((0.0073680199999999994 * fVec22[((IOTA - 16) & 127)]) + ((0.00058021900000000009 * fVec22[((IOTA - 14) & 127)]) + ((7.8904099999999995e-07 * fVec23[((IOTA - 118) & 127)]) + ((5.1851200000000009e-05 * fVec23[((IOTA - 117) & 127)]) + ((3.48346e-05 * fVec23[((IOTA - 116) & 127)]) + (((0.000263489 * fVec23[((IOTA - 113) & 127)]) + ((0.00048678400000000003 * fVec23[((IOTA - 112) & 127)]) + ((0.00066577900000000002 * fVec23[((IOTA - 111) & 127)]) + ((0.00072508600000000011 * fVec23[((IOTA - 110) & 127)]) + ((0.00094771800000000006 * fVec23[((IOTA - 109) & 127)]) + ((0.00085589900000000003 * fVec23[((IOTA - 108) & 127)]) + ((0.00097958799999999999 * fVec23[((IOTA - 107) & 127)]) + ((0.00110553 * fVec23[((IOTA - 106) & 127)]) + ((0.00082826600000000003 * fVec23[((IOTA - 105) & 127)]) + ((0.0013655500000000001 * fVec23[((IOTA - 104) & 127)]) + ((0.0018638400000000001 * fVec23[((IOTA - 103) & 127)]) + ((0.0016748900000000001 * fVec23[((IOTA - 102) & 127)]) + ((0.0013615999999999999 * fVec23[((IOTA - 101) & 127)]) + ((0.00120272 * fVec23[((IOTA - 100) & 127)]) + ((0.00103053 * fVec23[((IOTA - 99) & 127)]) + ((0.00040302800000000005 * fVec23[((IOTA - 98) & 127)]) + ((0.0012814900000000001 * fVec23[((IOTA - 97) & 127)]) + ((0.0015273399999999999 * fVec23[((IOTA - 96) & 127)]) + ((0.00046550599999999997 * fVec23[((IOTA - 95) & 127)]) + ((0.00038473700000000001 * fVec23[((IOTA - 94) & 127)]) + ((0.0010250300000000001 * fVec23[((IOTA - 93) & 127)]) + ((0.0011346700000000002 * fVec23[((IOTA - 92) & 127)]) + ((0.00043984100000000006 * fVec23[((IOTA - 85) & 127)]) + ((0.00021673800000000001 * fVec23[((IOTA - 84) & 127)]) + ((2.74177e-05 * fVec23[((IOTA - 82) & 127)]) + ((0.0010960700000000002 * fVec23[((IOTA - 77) & 127)]) + ((0.0013700399999999999 * fVec23[((IOTA - 73) & 127)]) + ((0.0030635300000000001 * fVec23[((IOTA - 72) & 127)]) + ((0.0019637600000000002 * fVec23[((IOTA - 71) & 127)]) + ((0.0018260300000000002 * fVec23[((IOTA - 70) & 127)]) + ((0.00238017 * fVec23[((IOTA - 69) & 127)]) + ((0.0031654200000000004 * fVec23[((IOTA - 68) & 127)]) + ((0.00275033 * fVec23[((IOTA - 67) & 127)]) + ((0.0016457800000000001 * fVec23[((IOTA - 66) & 127)]) + ((0.0025982900000000001 * fVec23[((IOTA - 65) & 127)]) + ((0.0013408299999999999 * fVec23[((IOTA - 64) & 127)]) + ((0.00068048499999999999 * fVec23[((IOTA - 60) & 127)]) + ((0.00122218 * fVec23[((IOTA - 59) & 127)]) + ((0.00152893 * fVec23[((IOTA - 58) & 127)]) + ((0.0022063899999999999 * fVec23[((IOTA - 57) & 127)]) + ((0.00078379700000000003 * fVec23[((IOTA - 56) & 127)]) + ((0.00022987799999999998 * fVec23[((IOTA - 52) & 127)]) + ((0.00078511300000000004 * fVec23[((IOTA - 51) & 127)]) + ((0.0012260999999999999 * fVec23[((IOTA - 45) & 127)]) + ((0.0026344099999999998 * fVec23[((IOTA - 44) & 127)]) + ((0.011467400000000001 * fVec23[((IOTA - 38) & 127)]) + ((0.0078678299999999993 * fVec23[((IOTA - 37) & 127)]) + ((0.0013363100000000001 * fVec23[((IOTA - 34) & 127)]) + ((0.0089890100000000004 * fVec23[((IOTA - 32) & 127)]) + ((0.0143689 * fVec23[((IOTA - 31) & 127)]) + ((0.0049334100000000001 * fVec23[((IOTA - 30) & 127)]) + ((0.019686699999999998 * fVec23[((IOTA - 27) & 127)]) + ((0.0086390499999999988 * fVec23[((IOTA - 25) & 127)]) + ((0.043355600000000001 * fVec23[((IOTA - 19) & 127)]) + ((0.00249322 * fVec23[((IOTA - 18) & 127)]) + ((0.0141169 * fVec23[((IOTA - 16) & 127)]) + ((0.0111431 * fVec23[((IOTA - 15) & 127)]) + ((0.0018486100000000001 * fVec23[((IOTA - 14) & 127)]) + ((0.000976993 * fVec23[((IOTA - 13) & 127)]) + ((0.0056459800000000001 * fVec23[((IOTA - 12) & 127)]) + ((0.00021246900000000004 * fVec23[((IOTA - 11) & 127)]) + ((0.00095016999999999996 * fVec23[((IOTA - 10) & 127)]) + ((0.0010622000000000001 * fVec23[((IOTA - 7) & 127)]) + ((0.00024919200000000002 * fVec23[((IOTA - 6) & 127)]) + ((0.00027049600000000001 * fVec23[((IOTA - 3) & 127)]) + ((5.1123399999999996e-06 * fVec23[((IOTA - 2) & 127)]) + ((3.7580000000000003e-05 * fVec23[((IOTA - 1) & 127)]) + ((1.0426200000000002e-05 * fTemp23) + ((2.5019199999999998e-06 * fVec9[((IOTA - 120) & 127)]) + (((0.00015476800000000001 * fVec9[((IOTA - 107) & 127)]) + ((2.3801800000000003e-05 * fVec9[((IOTA - 106) & 127)]) + ((0.00041578400000000004 * fVec9[((IOTA - 105) & 127)]) + ((0.00040693400000000007 * fVec9[((IOTA - 104) & 127)]) + ((0.00042180200000000004 * fVec9[((IOTA - 103) & 127)]) + ((0.00064933700000000005 * fVec9[((IOTA - 102) & 127)]) + ((0.0010572399999999999 * fVec9[((IOTA - 101) & 127)]) + ((0.00096599000000000012 * fVec9[((IOTA - 100) & 127)]) + ((0.00077855999999999997 * fVec9[((IOTA - 99) & 127)]) + ((0.00073777800000000002 * fVec9[((IOTA - 98) & 127)]) + ((0.00065036 * fVec9[((IOTA - 97) & 127)]) + ((0.00069698000000000004 * fVec9[((IOTA - 96) & 127)]) + ((0.0013956400000000001 * fVec9[((IOTA - 95) & 127)]) + ((0.0020596199999999999 * fVec9[((IOTA - 94) & 127)]) + ((0.0017169000000000002 * fVec9[((IOTA - 93) & 127)]) + ((0.0012716300000000002 * fVec9[((IOTA - 92) & 127)]) + ((0.00130908 * fVec9[((IOTA - 91) & 127)]) + ((0.00161012 * fVec9[((IOTA - 88) & 127)]) + ((0.0016711600000000001 * fVec9[((IOTA - 87) & 127)]) + ((0.00075290600000000002 * fVec9[((IOTA - 86) & 127)]) + ((0.00144013 * fVec9[((IOTA - 85) & 127)]) + ((0.0021273399999999997 * fVec9[((IOTA - 84) & 127)]) + ((0.00061597300000000002 * fVec9[((IOTA - 83) & 127)]) + ((0.00011313 * fVec9[((IOTA - 81) & 127)]) + ((0.0017438199999999999 * fVec9[((IOTA - 80) & 127)]) + ((0.0024799100000000001 * fVec9[((IOTA - 79) & 127)]) + ((0.00256507 * fVec9[((IOTA - 78) & 127)]) + ((0.0011552999999999999 * fVec9[((IOTA - 75) & 127)]) + ((0.00098456699999999999 * fVec9[((IOTA - 74) & 127)]) + ((0.000597807 * fVec9[((IOTA - 73) & 127)]) + ((0.0018893200000000001 * fVec9[((IOTA - 72) & 127)]) + ((0.00092920600000000002 * fVec9[((IOTA - 23) & 127)]) + ((0.080136100000000002 * fVec9[((IOTA - 22) & 127)]) + ((0.041393800000000001 * fVec9[((IOTA - 21) & 127)]) + ((0.042661300000000006 * fVec9[((IOTA - 20) & 127)]) + ((0.0088175100000000006 * fVec9[((IOTA - 19) & 127)]) + ((0.053196100000000003 * fVec9[((IOTA - 18) & 127)]) + ((0.097787600000000002 * fVec9[((IOTA - 17) & 127)]) + ((0.040092800000000005 * fVec9[((IOTA - 16) & 127)]) + ((0.077296500000000004 * fVec9[((IOTA - 15) & 127)]) + ((0.064767000000000005 * fVec9[((IOTA - 14) & 127)]) + ((0.082935599999999998 * fVec9[((IOTA - 13) & 127)]) + ((0.078489900000000001 * fVec9[((IOTA - 12) & 127)]) + ((0.00067357800000000009 * fVec9[((IOTA - 11) & 127)]) + ((0.00149621 * fVec9[((IOTA - 10) & 127)]) + ((0.00072128000000000003 * fVec9[((IOTA - 9) & 127)]) + ((0.00101019 * fVec9[((IOTA - 8) & 127)]) + ((0.000453602 * fVec9[((IOTA - 7) & 127)]) + ((0.00042969900000000002 * fVec9[((IOTA - 6) & 127)]) + ((0.0010723199999999999 * fVec9[((IOTA - 5) & 127)]) + ((0.00084950300000000004 * fVec9[((IOTA - 4) & 127)]) + ((0.00085153200000000001 * fVec9[((IOTA - 3) & 127)]) + ((0.00015027000000000001 * fVec9[((IOTA - 1) & 127)]) + (((((((((((((((((0.00016075400000000001 * fVec24[((IOTA - 2) & 127)]) + (0.021295600000000001 * fVec24[((IOTA - 24) & 127)])) + (0.0029395300000000001 * fVec24[((IOTA - 32) & 127)])) + (0.00092078700000000006 * fVec24[((IOTA - 44) & 127)])) + (0.00063317100000000008 * fVec24[((IOTA - 57) & 127)])) + (0.00036222200000000004 * fVec24[((IOTA - 69) & 127)])) + (0.000687957 * fVec24[((IOTA - 82) & 127)])) + (0.00087519700000000008 * fVec24[((IOTA - 89) & 127)])) + (0.000611186 * fVec24[((IOTA - 90) & 127)])) + (1.7742000000000001e-05 * fVec24[((IOTA - 91) & 127)])) + (0.00196204 * fVec24[((IOTA - 92) & 127)])) + (0.0023706000000000001 * fVec24[((IOTA - 93) & 127)])) + (9.940880000000001e-05 * fVec24[((IOTA - 94) & 127)])) + (0.00047365100000000001 * fVec24[((IOTA - 97) & 127)])) + (0.00048385000000000002 * fVec24[((IOTA - 98) & 127)])) + (1.47262e-06 * fVec24[((IOTA - 122) & 127)])) + (2.4709800000000002e-05 * fTemp9))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0038961999999999998 * fVec23[((IOTA - 39) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0037306700000000002 * fVec22[((IOTA - 12) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0013037700000000001 * fVec21[((IOTA - 57) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0032833199999999997 * fVec20[((IOTA - 14) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0010645800000000001 * fVec1[((IOTA - 54) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0069054599999999995 * fVec0[((IOTA - 33) & 127)]))))))))))))))))))))))))))) + (5.3508699999999998e-05 * fVec0[((IOTA - 1) & 127)])) + (0.000365476 * fVec0[((IOTA - 2) & 127)])) + (0.00024512500000000001 * fVec0[((IOTA - 3) & 127)])) + (0.00087751800000000009 * fVec0[((IOTA - 6) & 127)])) + (0.0019139999999999999 * fVec0[((IOTA - 10) & 127)])) + (0.058634600000000002 * fVec0[((IOTA - 15) & 127)])) + (0.066181599999999993 * fVec0[((IOTA - 16) & 127)])) + (0.023976299999999999 * fVec0[((IOTA - 17) & 127)])) + (0.043427500000000001 * fVec0[((IOTA - 18) & 127)])) + (0.023037200000000004 * fVec0[((IOTA - 19) & 127)])) + (0.00437594 * fVec0[((IOTA - 24) & 127)])) + (0.0069729000000000006 * fVec0[((IOTA - 28) & 127)])) + (0.0082814200000000011 * fVec0[((IOTA - 29) & 127)])) + (0.0090924899999999999 * fVec0[((IOTA - 31) & 127)])) + (0.014528600000000001 * fVec0[((IOTA - 32) & 127)]))))))))))))))))))))); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fHbargraph1 = FAUSTFLOAT(fRec28[0]); + output1[i] = FAUSTFLOAT(fTemp26); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + IOTA = (IOTA + 1); + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecBinaural5.cpp b/source/HOAUGens/HOADecBinaural5.cpp new file mode 100644 index 0000000000..267ea62a92 --- /dev/null +++ b/source/HOAUGens/HOADecBinaural5.cpp @@ -0,0 +1,2071 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL)" +name: "HOADecBinaural5" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + int IOTA; + double fVec0[128]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fVec1[128]; + double fRec5[2]; + FAUSTFLOAT fVbargraph2; + double fVec2[128]; + double fRec6[2]; + FAUSTFLOAT fVbargraph3; + double fVec3[128]; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fVec4[128]; + double fRec8[2]; + FAUSTFLOAT fVbargraph5; + double fVec5[128]; + double fRec9[2]; + FAUSTFLOAT fVbargraph6; + double fVec6[128]; + double fRec10[2]; + FAUSTFLOAT fVbargraph7; + double fVec7[128]; + double fRec11[2]; + FAUSTFLOAT fVbargraph8; + double fVec8[128]; + double fRec12[2]; + FAUSTFLOAT fVbargraph9; + double fVec9[128]; + double fRec13[2]; + FAUSTFLOAT fVbargraph10; + double fVec10[128]; + double fRec14[2]; + FAUSTFLOAT fVbargraph11; + double fVec11[128]; + double fRec15[2]; + FAUSTFLOAT fVbargraph12; + double fVec12[128]; + double fRec16[2]; + FAUSTFLOAT fVbargraph13; + double fVec13[128]; + double fRec17[2]; + FAUSTFLOAT fVbargraph14; + double fVec14[128]; + double fRec18[2]; + FAUSTFLOAT fVbargraph15; + double fVec15[128]; + double fRec19[2]; + FAUSTFLOAT fVbargraph16; + double fVec16[128]; + double fRec20[2]; + FAUSTFLOAT fVbargraph17; + double fVec17[128]; + double fRec21[2]; + FAUSTFLOAT fVbargraph18; + double fVec18[128]; + double fRec22[2]; + FAUSTFLOAT fVbargraph19; + double fVec19[128]; + double fRec23[2]; + FAUSTFLOAT fVbargraph20; + double fVec20[128]; + double fRec24[2]; + FAUSTFLOAT fVbargraph21; + double fVec21[128]; + double fRec25[2]; + FAUSTFLOAT fVbargraph22; + double fVec22[128]; + double fRec26[2]; + FAUSTFLOAT fVbargraph23; + double fVec23[128]; + double fRec27[2]; + FAUSTFLOAT fVbargraph24; + double fVec24[128]; + double fRec28[2]; + FAUSTFLOAT fVbargraph25; + double fVec25[128]; + double fRec29[2]; + FAUSTFLOAT fVbargraph26; + double fVec26[128]; + double fRec30[2]; + FAUSTFLOAT fVbargraph27; + double fVec27[128]; + double fRec31[2]; + FAUSTFLOAT fVbargraph28; + double fVec28[128]; + double fRec32[2]; + FAUSTFLOAT fVbargraph29; + double fVec29[128]; + double fRec33[2]; + FAUSTFLOAT fVbargraph30; + double fVec30[128]; + double fRec34[2]; + FAUSTFLOAT fVbargraph31; + double fVec31[128]; + double fRec35[2]; + FAUSTFLOAT fVbargraph32; + double fVec32[128]; + double fRec36[2]; + FAUSTFLOAT fVbargraph33; + double fVec33[128]; + double fRec37[2]; + FAUSTFLOAT fVbargraph34; + double fVec34[128]; + double fRec38[2]; + FAUSTFLOAT fVbargraph35; + double fVec35[128]; + double fRec0[2]; + FAUSTFLOAT fHbargraph0; + double fRec39[2]; + FAUSTFLOAT fHbargraph1; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("filters.lib/name", "Faust Filters Library"); + m->declare("filters.lib/version", "0.0"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL)"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecBinaural5"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 36; + + } + virtual int getNumOutputs() { + return 2; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + IOTA = 0; + for (int l3 = 0; (l3 < 128); l3 = (l3 + 1)) { + fVec0[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 128); l5 = (l5 + 1)) { + fVec1[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec5[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 128); l7 = (l7 + 1)) { + fVec2[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec6[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 128); l9 = (l9 + 1)) { + fVec3[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 128); l11 = (l11 + 1)) { + fVec4[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec8[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 128); l13 = (l13 + 1)) { + fVec5[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec9[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 128); l15 = (l15 + 1)) { + fVec6[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec10[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 128); l17 = (l17 + 1)) { + fVec7[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec11[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 128); l19 = (l19 + 1)) { + fVec8[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec12[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 128); l21 = (l21 + 1)) { + fVec9[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec13[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 128); l23 = (l23 + 1)) { + fVec10[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec14[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 128); l25 = (l25 + 1)) { + fVec11[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec15[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 128); l27 = (l27 + 1)) { + fVec12[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec16[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 128); l29 = (l29 + 1)) { + fVec13[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec17[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 128); l31 = (l31 + 1)) { + fVec14[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec18[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 128); l33 = (l33 + 1)) { + fVec15[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec19[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 128); l35 = (l35 + 1)) { + fVec16[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec20[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 128); l37 = (l37 + 1)) { + fVec17[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec21[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 128); l39 = (l39 + 1)) { + fVec18[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec22[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 128); l41 = (l41 + 1)) { + fVec19[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec23[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 128); l43 = (l43 + 1)) { + fVec20[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec24[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 128); l45 = (l45 + 1)) { + fVec21[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec25[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 128); l47 = (l47 + 1)) { + fVec22[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec26[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 128); l49 = (l49 + 1)) { + fVec23[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec27[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 128); l51 = (l51 + 1)) { + fVec24[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec28[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 128); l53 = (l53 + 1)) { + fVec25[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec29[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 128); l55 = (l55 + 1)) { + fVec26[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec30[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 128); l57 = (l57 + 1)) { + fVec27[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec31[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 128); l59 = (l59 + 1)) { + fVec28[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec32[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 128); l61 = (l61 + 1)) { + fVec29[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec33[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 128); l63 = (l63 + 1)) { + fVec30[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec34[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 128); l65 = (l65 + 1)) { + fVec31[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec35[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 128); l67 = (l67 + 1)) { + fVec32[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec36[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 128); l69 = (l69 + 1)) { + fVec33[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec37[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 128); l71 = (l71 + 1)) { + fVec34[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec38[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 128); l73 = (l73 + 1)) { + fVec35[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec0[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec39[l75] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecBinaural5"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x82e5490", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x80b05e0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x82a3be0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x827da60", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x8253e40", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7d815c0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7dfa3b0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x81e42d0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x81c5010", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x819c780", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x81719c0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x814a1f0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7e0f390", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x8103770", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x80b6980", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x80bed90", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x808d110", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x8062bb0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x801bd60", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x800d3e0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7feea70", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7fc5120", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7f9de00", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7f75dd0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7f513b0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7f2b4f0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7f01e80", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7edbc20", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7eb2ff0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7e8afc0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7e15810", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7e00750", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7e1ca80", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7d86030", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7d8aba0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x7d8f5b0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 10"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 10"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 10.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("Left"); + ui_interface->declare(&fHbargraph0, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x89c2d10", &fHbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Right"); + ui_interface->declare(&fHbargraph1, "unit", "dB"); + ui_interface->addHorizontalBargraph("0x8ffa690", &fHbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow1 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input5[i])); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + fVec0[(IOTA & 127)] = fTemp0; + double fTemp1 = (fRec3[0] * double(input33[i])); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + fVec1[(IOTA & 127)] = fTemp1; + double fTemp2 = (fRec3[0] * double(input34[i])); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec5[0]); + fVec2[(IOTA & 127)] = fTemp2; + double fTemp3 = (fRec3[0] * double(input35[i])); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec6[0]); + fVec3[(IOTA & 127)] = fTemp3; + double fTemp4 = (fRec3[0] * double(input6[i])); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + fVec4[(IOTA & 127)] = fTemp4; + double fTemp5 = (fRec3[0] * double(input31[i])); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec8[0]); + fVec5[(IOTA & 127)] = fTemp5; + double fTemp6 = (fRec3[0] * double(input12[i])); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec9[0]); + fVec6[(IOTA & 127)] = fTemp6; + double fTemp7 = (fRec3[0] * double(input30[i])); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec10[0]); + fVec7[(IOTA & 127)] = fTemp7; + double fTemp8 = (fRec3[0] * double(input32[i])); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec11[0]); + fVec8[(IOTA & 127)] = fTemp8; + double fTemp9 = (fRec3[0] * double(input29[i])); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec12[0]); + fVec9[(IOTA & 127)] = fTemp9; + double fTemp10 = (fRec3[0] * double(input28[i])); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec13[0]); + fVec10[(IOTA & 127)] = fTemp10; + double fTemp11 = (fRec3[0] * double(input27[i])); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec14[0]); + fVec11[(IOTA & 127)] = fTemp11; + double fTemp12 = (fRec3[0] * double(input26[i])); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec15[0]); + fVec12[(IOTA & 127)] = fTemp12; + double fTemp13 = (fRec3[0] * double(input25[i])); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec16[0]); + fVec13[(IOTA & 127)] = fTemp13; + double fTemp14 = (fRec3[0] * double(input24[i])); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec17[0]); + fVec14[(IOTA & 127)] = fTemp14; + double fTemp15 = (fRec3[0] * double(input23[i])); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec18[0]); + fVec15[(IOTA & 127)] = fTemp15; + double fTemp16 = (fRec3[0] * double(input22[i])); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec19[0]); + fVec16[(IOTA & 127)] = fTemp16; + double fTemp17 = (fRec3[0] * double(input21[i])); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec20[0]); + fVec17[(IOTA & 127)] = fTemp17; + double fTemp18 = (fRec3[0] * double(input20[i])); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph18 = FAUSTFLOAT(fRec21[0]); + fVec18[(IOTA & 127)] = fTemp18; + double fTemp19 = (fRec3[0] * double(input19[i])); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph19 = FAUSTFLOAT(fRec22[0]); + fVec19[(IOTA & 127)] = fTemp19; + double fTemp20 = (fRec3[0] * double(input18[i])); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph20 = FAUSTFLOAT(fRec23[0]); + fVec20[(IOTA & 127)] = fTemp20; + double fTemp21 = (fRec3[0] * double(input17[i])); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph21 = FAUSTFLOAT(fRec24[0]); + fVec21[(IOTA & 127)] = fTemp21; + double fTemp22 = (fRec3[0] * double(input16[i])); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph22 = FAUSTFLOAT(fRec25[0]); + fVec22[(IOTA & 127)] = fTemp22; + double fTemp23 = (fRec3[0] * double(input1[i])); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph23 = FAUSTFLOAT(fRec26[0]); + fVec23[(IOTA & 127)] = fTemp23; + double fTemp24 = (fRec3[0] * double(input14[i])); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph24 = FAUSTFLOAT(fRec27[0]); + fVec24[(IOTA & 127)] = fTemp24; + double fTemp25 = (fRec3[0] * double(input15[i])); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph25 = FAUSTFLOAT(fRec28[0]); + fVec25[(IOTA & 127)] = fTemp25; + double fTemp26 = (fRec3[0] * double(input13[i])); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph26 = FAUSTFLOAT(fRec29[0]); + fVec26[(IOTA & 127)] = fTemp26; + double fTemp27 = (fRec3[0] * double(input11[i])); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph27 = FAUSTFLOAT(fRec30[0]); + fVec27[(IOTA & 127)] = fTemp27; + double fTemp28 = (fRec3[0] * double(input10[i])); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph28 = FAUSTFLOAT(fRec31[0]); + fVec28[(IOTA & 127)] = fTemp28; + double fTemp29 = (fRec3[0] * double(input9[i])); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph29 = FAUSTFLOAT(fRec32[0]); + fVec29[(IOTA & 127)] = fTemp29; + double fTemp30 = (fRec3[0] * double(input8[i])); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph30 = FAUSTFLOAT(fRec33[0]); + fVec30[(IOTA & 127)] = fTemp30; + double fTemp31 = (fRec3[0] * double(input7[i])); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph31 = FAUSTFLOAT(fRec34[0]); + fVec31[(IOTA & 127)] = fTemp31; + double fTemp32 = (fRec3[0] * double(input4[i])); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph32 = FAUSTFLOAT(fRec35[0]); + fVec32[(IOTA & 127)] = fTemp32; + double fTemp33 = (fRec3[0] * double(input3[i])); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph33 = FAUSTFLOAT(fRec36[0]); + fVec33[(IOTA & 127)] = fTemp33; + double fTemp34 = (fRec3[0] * double(input2[i])); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph34 = FAUSTFLOAT(fRec37[0]); + fVec34[(IOTA & 127)] = fTemp34; + double fTemp35 = (fRec3[0] * double(input0[i])); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph35 = FAUSTFLOAT(fRec38[0]); + fVec35[(IOTA & 127)] = fTemp35; + double fTemp36 = (fRec1[0] * (((0.013603000000000001 * (fVec0[((IOTA - 21) & 127)] + fVec1[((IOTA - 36) & 127)])) + ((7.2609999999999996e-06 * fVec2[((IOTA - 124) & 127)]) + ((4.1597499999999996e-07 * fVec3[((IOTA - 126) & 127)]) + ((1.8790599999999999e-06 * fVec3[((IOTA - 122) & 127)]) + ((1.1066300000000001e-05 * fVec3[((IOTA - 119) & 127)]) + ((3.9484900000000005e-05 * fVec3[((IOTA - 118) & 127)]) + ((0.00013015800000000001 * fVec3[((IOTA - 113) & 127)]) + ((0.00014394700000000001 * fVec3[((IOTA - 112) & 127)]) + ((0.00022738500000000001 * fVec3[((IOTA - 109) & 127)]) + ((0.000184131 * fVec3[((IOTA - 108) & 127)]) + ((6.5695100000000007e-05 * fVec3[((IOTA - 107) & 127)]) + ((0.00057914199999999994 * fVec3[((IOTA - 104) & 127)]) + ((0.00021256499999999998 * fVec3[((IOTA - 103) & 127)]) + ((0.00016072600000000001 * fVec3[((IOTA - 101) & 127)]) + ((0.00099578800000000006 * fVec3[((IOTA - 100) & 127)]) + ((0.000329446 * fVec3[((IOTA - 99) & 127)]) + ((0.00057130400000000002 * fVec3[((IOTA - 97) & 127)]) + ((0.00056901300000000005 * fVec3[((IOTA - 94) & 127)]) + ((0.00057574700000000004 * fVec3[((IOTA - 93) & 127)]) + ((0.00074504200000000001 * fVec3[((IOTA - 92) & 127)]) + ((0.00123606 * fVec3[((IOTA - 89) & 127)]) + ((0.00082906200000000009 * fVec3[((IOTA - 88) & 127)]) + ((0.00026738900000000004 * fVec3[((IOTA - 85) & 127)]) + ((0.00035377299999999999 * fVec3[((IOTA - 84) & 127)]) + ((0.00011509799999999999 * fVec3[((IOTA - 83) & 127)]) + ((0.00083287999999999993 * fVec3[((IOTA - 82) & 127)]) + ((0.00100113 * fVec3[((IOTA - 81) & 127)]) + ((2.2775000000000001e-05 * fVec3[((IOTA - 80) & 127)]) + ((0.00039397500000000002 * fVec3[((IOTA - 79) & 127)]) + ((0.00067154300000000003 * fVec3[((IOTA - 75) & 127)]) + ((0.000406358 * fVec3[((IOTA - 71) & 127)]) + ((0.00041196100000000002 * fVec3[((IOTA - 68) & 127)]) + ((0.0020567600000000004 * fVec3[((IOTA - 67) & 127)]) + ((0.00065071700000000009 * fVec3[((IOTA - 66) & 127)]) + ((0.00064656900000000005 * fVec3[((IOTA - 65) & 127)]) + ((0.00080278000000000001 * fVec3[((IOTA - 60) & 127)]) + ((0.00011049000000000001 * fVec3[((IOTA - 57) & 127)]) + ((0.0027250800000000004 * fVec3[((IOTA - 56) & 127)]) + ((0.0028610300000000001 * fVec3[((IOTA - 55) & 127)]) + ((0.0012185900000000001 * fVec3[((IOTA - 50) & 127)]) + ((1.5504900000000001e-05 * fVec3[((IOTA - 49) & 127)]) + ((0.00172276 * fVec3[((IOTA - 48) & 127)]) + ((0.00219258 * fVec3[((IOTA - 47) & 127)]) + ((0.0050693000000000005 * fVec3[((IOTA - 45) & 127)]) + ((0.0038866299999999999 * fVec3[((IOTA - 44) & 127)]) + ((0.0025448800000000002 * fVec3[((IOTA - 43) & 127)]) + ((0.0031647300000000001 * fVec3[((IOTA - 42) & 127)]) + ((0.0017989500000000001 * fVec3[((IOTA - 38) & 127)]) + ((0.0080778499999999993 * fVec3[((IOTA - 35) & 127)]) + ((0.00048733100000000003 * fVec3[((IOTA - 33) & 127)]) + ((0.0038437199999999997 * fVec3[((IOTA - 32) & 127)]) + ((0.0048765500000000003 * fVec3[((IOTA - 26) & 127)]) + ((0.049832400000000006 * fVec3[((IOTA - 23) & 127)]) + ((0.049451700000000001 * fVec3[((IOTA - 22) & 127)]) + ((0.021755200000000002 * fVec3[((IOTA - 18) & 127)]) + ((0.029326899999999999 * fVec3[((IOTA - 15) & 127)]) + ((0.035047600000000005 * fVec3[((IOTA - 14) & 127)]) + ((0.020263300000000001 * fVec3[((IOTA - 13) & 127)]) + ((0.0065366499999999998 * fVec3[((IOTA - 10) & 127)]) + ((0.00210005 * fVec3[((IOTA - 8) & 127)]) + ((0.0025905300000000002 * fVec3[((IOTA - 6) & 127)]) + ((0.00019429700000000001 * fVec3[((IOTA - 4) & 127)]) + ((0.00013310400000000002 * fVec3[((IOTA - 2) & 127)]) + ((1.9185300000000001e-05 * fVec3[((IOTA - 1) & 127)]) + (((5.9961100000000004e-05 * fVec2[((IOTA - 118) & 127)]) + ((7.3244600000000007e-05 * fVec2[((IOTA - 115) & 127)]) + ((2.0171700000000002e-05 * fVec2[((IOTA - 113) & 127)]) + (((0.00015535900000000001 * fVec2[((IOTA - 111) & 127)]) + ((0.00053629700000000003 * fVec2[((IOTA - 110) & 127)]) + ((0.00048390300000000005 * fVec2[((IOTA - 109) & 127)]) + ((0.00074196000000000006 * fVec2[((IOTA - 106) & 127)]) + ((0.00057640399999999998 * fVec2[((IOTA - 105) & 127)]) + ((0.00010493 * fVec2[((IOTA - 104) & 127)]) + ((0.00023300800000000002 * fVec2[((IOTA - 103) & 127)]) + ((0.000995192 * fVec2[((IOTA - 102) & 127)]) + ((0.00062893200000000002 * fVec2[((IOTA - 101) & 127)]) + ((0.00050440599999999999 * fVec2[((IOTA - 99) & 127)]) + ((0.00069202100000000002 * fVec2[((IOTA - 98) & 127)]) + ((0.00092695799999999997 * fVec2[((IOTA - 95) & 127)]) + ((0.000167942 * fVec2[((IOTA - 94) & 127)]) + ((0.0013624400000000001 * fVec2[((IOTA - 92) & 127)]) + ((0.0019414100000000002 * fVec2[((IOTA - 91) & 127)]) + ((0.00165866 * fVec2[((IOTA - 88) & 127)]) + ((0.0026041200000000001 * fVec2[((IOTA - 87) & 127)]) + ((0.00014658300000000002 * fVec2[((IOTA - 82) & 127)]) + ((0.0011611800000000002 * fVec2[((IOTA - 81) & 127)]) + ((0.0010899900000000001 * fVec2[((IOTA - 80) & 127)]) + ((0.00094991200000000002 * fVec2[((IOTA - 79) & 127)]) + ((0.0015641000000000001 * fVec2[((IOTA - 78) & 127)]) + ((0.00045640700000000004 * fVec2[((IOTA - 77) & 127)]) + ((0.00042805600000000006 * fVec2[((IOTA - 74) & 127)]) + ((0.0016342099999999999 * fVec2[((IOTA - 73) & 127)]) + ((0.0031345000000000001 * fVec2[((IOTA - 69) & 127)]) + ((0.0014858800000000002 * fVec2[((IOTA - 68) & 127)]) + ((0.000144275 * fVec2[((IOTA - 67) & 127)]) + ((0.0024759400000000003 * fVec2[((IOTA - 66) & 127)]) + ((0.0035671400000000003 * fVec2[((IOTA - 62) & 127)]) + ((0.0027542000000000001 * fVec2[((IOTA - 61) & 127)]) + ((0.00089494500000000007 * fVec2[((IOTA - 60) & 127)]) + ((0.0012555700000000001 * fVec2[((IOTA - 59) & 127)]) + ((0.0010056700000000002 * fVec2[((IOTA - 55) & 127)]) + ((0.00058800500000000006 * fVec2[((IOTA - 54) & 127)]) + ((0.0041120999999999996 * fVec2[((IOTA - 49) & 127)]) + ((0.00010049300000000002 * fVec2[((IOTA - 48) & 127)]) + ((0.00060031400000000001 * fVec2[((IOTA - 46) & 127)]) + ((0.0011542099999999999 * fVec2[((IOTA - 45) & 127)]) + ((0.00092823899999999997 * fVec2[((IOTA - 43) & 127)]) + ((0.0101335 * fVec2[((IOTA - 42) & 127)]) + ((0.00091382600000000007 * fVec2[((IOTA - 41) & 127)]) + ((0.00128385 * fVec2[((IOTA - 39) & 127)]) + ((0.014247900000000001 * fVec2[((IOTA - 36) & 127)]) + ((0.0092913700000000002 * fVec2[((IOTA - 35) & 127)]) + ((0.018629699999999999 * fVec2[((IOTA - 31) & 127)]) + ((0.016535299999999999 * fVec2[((IOTA - 30) & 127)]) + ((0.0121183 * fVec2[((IOTA - 26) & 127)]) + ((0.017029000000000002 * fVec2[((IOTA - 24) & 127)]) + ((0.0099882500000000006 * fVec2[((IOTA - 23) & 127)]) + ((0.0024332300000000002 * fVec2[((IOTA - 21) & 127)]) + ((0.0216451 * fVec2[((IOTA - 20) & 127)]) + ((0.040556000000000002 * fVec2[((IOTA - 16) & 127)]) + ((0.00239814 * fVec2[((IOTA - 15) & 127)]) + ((0.0024948600000000002 * fVec2[((IOTA - 13) & 127)]) + ((0.000641677 * fVec2[((IOTA - 8) & 127)]) + ((0.00107489 * fVec2[((IOTA - 7) & 127)]) + ((0.00040000700000000002 * fVec2[((IOTA - 4) & 127)]) + ((1.1487900000000001e-05 * fVec2[((IOTA - 3) & 127)]) + ((3.1915800000000004e-05 * fVec2[((IOTA - 2) & 127)]) + ((3.5268499999999998e-07 * fVec2[((IOTA - 1) & 127)]) + (((0.00066595000000000011 * fVec1[((IOTA - 101) & 127)]) + ((8.0990199999999996e-05 * fVec1[((IOTA - 100) & 127)]) + ((0.00035469700000000001 * fVec1[((IOTA - 99) & 127)]) + ((0.00099614600000000005 * fVec1[((IOTA - 98) & 127)]) + ((0.00010470500000000001 * fVec1[((IOTA - 94) & 127)]) + ((0.00091987500000000012 * fVec1[((IOTA - 90) & 127)]) + ((0.00050879600000000005 * fVec1[((IOTA - 89) & 127)]) + ((0.00109914 * fVec1[((IOTA - 86) & 127)]) + ((0.00054998800000000006 * fVec1[((IOTA - 81) & 127)]) + ((0.00063005199999999998 * fVec1[((IOTA - 79) & 127)]) + ((0.00240705 * fVec1[((IOTA - 78) & 127)]) + ((0.0028402500000000003 * fVec1[((IOTA - 77) & 127)]) + ((0.0020358999999999998 * fVec1[((IOTA - 76) & 127)]) + ((0.00037087099999999999 * fVec1[((IOTA - 73) & 127)]) + ((0.00078916399999999997 * fVec1[((IOTA - 72) & 127)]) + ((0.00109212 * fVec1[((IOTA - 69) & 127)]) + ((0.0021674400000000001 * fVec1[((IOTA - 68) & 127)]) + ((0.0025459300000000001 * fVec1[((IOTA - 67) & 127)]) + ((0.0027579900000000001 * fVec1[((IOTA - 66) & 127)]) + ((0.00097928000000000012 * fVec1[((IOTA - 63) & 127)]) + ((0.00024169800000000002 * fVec1[((IOTA - 62) & 127)]) + ((0.0020687100000000001 * fVec1[((IOTA - 58) & 127)]) + ((0.0032992300000000002 * fVec1[((IOTA - 57) & 127)]) + ((0.0012276400000000001 * fVec1[((IOTA - 56) & 127)]) + ((0.0047411899999999993 * fVec1[((IOTA - 51) & 127)]) + ((0.0021280299999999999 * fVec1[((IOTA - 50) & 127)]) + ((0.00047240100000000001 * fVec1[((IOTA - 49) & 127)]) + ((0.0050889400000000001 * fVec1[((IOTA - 48) & 127)]) + ((0.0039216600000000004 * fVec1[((IOTA - 45) & 127)]) + ((0.0038515899999999998 * fVec1[((IOTA - 44) & 127)]) + ((0.0034045999999999998 * fVec1[((IOTA - 43) & 127)]) + ((0.00027787000000000005 * fVec1[((IOTA - 38) & 127)]) + ((0.000595796 * fVec1[((IOTA - 35) & 127)]) + ((0.0075479399999999995 * fVec1[((IOTA - 33) & 127)]) + ((0.0092621500000000002 * fVec1[((IOTA - 31) & 127)]) + ((0.0035737 * fVec1[((IOTA - 30) & 127)]) + ((0.00578605 * fVec1[((IOTA - 26) & 127)]) + ((0.059789399999999999 * fVec1[((IOTA - 25) & 127)]) + ((0.0097282899999999988 * fVec1[((IOTA - 24) & 127)]) + ((0.024477200000000001 * fVec1[((IOTA - 21) & 127)]) + ((0.018019900000000002 * fVec1[((IOTA - 20) & 127)]) + ((0.0026775799999999997 * fVec1[((IOTA - 17) & 127)]) + ((0.012747999999999999 * fVec1[((IOTA - 16) & 127)]) + ((0.018762600000000001 * fVec1[((IOTA - 15) & 127)]) + ((0.0048380300000000001 * fVec1[((IOTA - 13) & 127)]) + ((0.00128688 * fVec1[((IOTA - 8) & 127)]) + ((0.00053300299999999999 * fVec1[((IOTA - 6) & 127)]) + ((0.00029594900000000005 * fVec1[((IOTA - 4) & 127)]) + ((0.000120349 * fVec1[((IOTA - 2) & 127)]) + ((1.2679400000000001e-05 * fTemp1) + ((0.000204718 * (fVec4[((IOTA - 108) & 127)] - fVec5[((IOTA - 111) & 127)])) + ((2.5295200000000005e-05 * fVec1[((IOTA - 119) & 127)]) + ((7.9016800000000006e-05 * fVec1[((IOTA - 118) & 127)]) + ((3.9434700000000004e-05 * fVec1[((IOTA - 117) & 127)]) + ((2.0117200000000001e-05 * fVec1[((IOTA - 115) & 127)]) + ((0.000135399 * fVec1[((IOTA - 114) & 127)]) + ((0.00016193200000000002 * fVec1[((IOTA - 113) & 127)]) + ((0.000112188 * fVec1[((IOTA - 111) & 127)]) + ((0.00046164100000000005 * fVec1[((IOTA - 110) & 127)]) + ((0.00023653499999999998 * fVec1[((IOTA - 109) & 127)]) + ((0.00017757400000000003 * fVec1[((IOTA - 108) & 127)]) + ((5.4962800000000002e-05 * fVec1[((IOTA - 107) & 127)]) + ((0.00016055900000000001 * fVec1[((IOTA - 106) & 127)]) + ((0.00017919300000000002 * fVec1[((IOTA - 105) & 127)]) + ((1.4088300000000002e-05 * fVec1[((IOTA - 122) & 127)]) + ((7.1672200000000003e-06 * fVec1[((IOTA - 121) & 127)]) + ((0.0102524 * (fVec6[((IOTA - 26) & 127)] + fVec7[((IOTA - 18) & 127)])) + ((0.00029946900000000002 * fVec1[((IOTA - 102) & 127)]) + ((2.83422e-06 * fVec8[((IOTA - 125) & 127)]) + ((5.5335299999999992e-06 * fVec8[((IOTA - 121) & 127)]) + ((3.0215600000000003e-05 * fVec8[((IOTA - 118) & 127)]) + ((7.7583400000000007e-05 * fVec8[((IOTA - 117) & 127)]) + ((0.00025878700000000001 * fVec8[((IOTA - 111) & 127)]) + ((0.00028758400000000002 * fVec8[((IOTA - 110) & 127)]) + ((5.4718800000000002e-05 * fVec8[((IOTA - 109) & 127)]) + ((1.1273200000000002e-05 * fVec8[((IOTA - 108) & 127)]) + ((0.000325624 * fVec8[((IOTA - 106) & 127)]) + ((0.00018603700000000001 * fVec8[((IOTA - 105) & 127)]) + ((0.00046106800000000008 * fVec8[((IOTA - 103) & 127)]) + ((0.0012277499999999999 * fVec8[((IOTA - 102) & 127)]) + ((0.00075551100000000005 * fVec8[((IOTA - 101) & 127)]) + ((0.00027916900000000001 * fVec8[((IOTA - 100) & 127)]) + ((0.00034185200000000002 * fVec8[((IOTA - 99) & 127)]) + ((0.000452311 * fVec8[((IOTA - 98) & 127)]) + ((0.000139927 * fVec8[((IOTA - 97) & 127)]) + ((0.00056378000000000005 * fVec8[((IOTA - 96) & 127)]) + ((0.0019755300000000001 * fVec8[((IOTA - 95) & 127)]) + ((0.0015109100000000001 * fVec8[((IOTA - 94) & 127)]) + ((0.00039070400000000002 * fVec8[((IOTA - 93) & 127)]) + ((0.00046127000000000006 * fVec8[((IOTA - 91) & 127)]) + ((0.00094780500000000002 * fVec8[((IOTA - 88) & 127)]) + ((0.0032023000000000004 * fVec8[((IOTA - 87) & 127)]) + ((0.0019245600000000001 * fVec8[((IOTA - 86) & 127)]) + ((0.00061178000000000003 * fVec8[((IOTA - 83) & 127)]) + ((6.4463999999999998e-05 * fVec8[((IOTA - 82) & 127)]) + ((0.00014697899999999999 * fVec8[((IOTA - 81) & 127)]) + ((0.00024922099999999999 * fVec8[((IOTA - 77) & 127)]) + ((0.0013547000000000001 * fVec8[((IOTA - 76) & 127)]) + ((0.0017048 * fVec8[((IOTA - 75) & 127)]) + ((6.4220800000000007e-05 * fVec8[((IOTA - 74) & 127)]) + ((0.00059747199999999993 * fVec8[((IOTA - 71) & 127)]) + ((0.00107515 * fVec8[((IOTA - 70) & 127)]) + ((0.0017238400000000001 * fVec8[((IOTA - 69) & 127)]) + ((0.0022913100000000004 * fVec8[((IOTA - 68) & 127)]) + ((0.00053714799999999999 * fVec8[((IOTA - 67) & 127)]) + ((0.00011855000000000001 * fVec8[((IOTA - 65) & 127)]) + ((0.00052593900000000001 * fVec8[((IOTA - 61) & 127)]) + ((0.0014249900000000001 * fVec8[((IOTA - 57) & 127)]) + ((0.0036127500000000001 * fVec8[((IOTA - 56) & 127)]) + ((0.00090169900000000006 * fVec8[((IOTA - 55) & 127)]) + ((0.0038923199999999999 * fVec8[((IOTA - 50) & 127)]) + ((0.0045109299999999998 * fVec8[((IOTA - 49) & 127)]) + ((0.0097302499999999993 * fVec8[((IOTA - 44) & 127)]) + ((0.0090814900000000011 * fVec8[((IOTA - 43) & 127)]) + ((0.00028542000000000004 * fVec8[((IOTA - 42) & 127)]) + ((0.0020694099999999998 * fVec8[((IOTA - 39) & 127)]) + ((0.0090991500000000003 * fVec8[((IOTA - 38) & 127)]) + ((0.0012552500000000001 * fVec8[((IOTA - 37) & 127)]) + ((0.007511320000000001 * fVec8[((IOTA - 35) & 127)]) + ((0.022220300000000002 * fVec8[((IOTA - 31) & 127)]) + ((0.0138099 * fVec8[((IOTA - 30) & 127)]) + ((0.00318798 * fVec8[((IOTA - 26) & 127)]) + ((0.033351600000000002 * fVec8[((IOTA - 25) & 127)]) + ((0.029861800000000001 * fVec8[((IOTA - 24) & 127)]) + ((0.026114099999999998 * fVec8[((IOTA - 20) & 127)]) + ((0.036668100000000002 * fVec8[((IOTA - 19) & 127)]) + ((0.014710300000000001 * fVec8[((IOTA - 18) & 127)]) + ((0.0096699899999999998 * fVec8[((IOTA - 15) & 127)]) + ((0.0375927 * fVec8[((IOTA - 14) & 127)]) + ((0.0017399100000000001 * fVec8[((IOTA - 13) & 127)]) + ((0.00051784600000000008 * fVec8[((IOTA - 11) & 127)]) + ((0.00036456600000000003 * fVec8[((IOTA - 9) & 127)]) + ((0.00075119100000000012 * fVec8[((IOTA - 6) & 127)]) + ((0.000498891 * fVec8[((IOTA - 5) & 127)]) + ((0.00024446599999999999 * fVec8[((IOTA - 2) & 127)]) + ((6.0936200000000001e-05 * fVec8[((IOTA - 1) & 127)]) + ((1.26382e-07 * fVec5[((IOTA - 126) & 127)]) + ((2.5084200000000001e-06 * fVec5[((IOTA - 125) & 127)]) + ((5.2377200000000004e-06 * fVec5[((IOTA - 124) & 127)]) + ((7.843189999999999e-06 * fVec5[((IOTA - 123) & 127)]) + ((3.1262900000000002e-05 * fVec5[((IOTA - 122) & 127)]) + ((5.0188800000000003e-05 * fVec5[((IOTA - 121) & 127)]) + ((1.2448200000000002e-05 * fVec5[((IOTA - 120) & 127)]) + ((2.6150300000000003e-05 * fVec5[((IOTA - 113) & 127)]) + ((6.9454600000000004e-05 * fVec5[((IOTA - 107) & 127)]) + ((7.6502700000000002e-05 * fVec5[((IOTA - 101) & 127)]) + ((0.000186045 * fVec5[((IOTA - 100) & 127)]) + ((0.00088429199999999996 * fVec5[((IOTA - 99) & 127)]) + ((0.0015707 * fVec5[((IOTA - 98) & 127)]) + ((0.00018468800000000002 * fVec5[((IOTA - 97) & 127)]) + ((0.00098621800000000008 * fVec5[((IOTA - 95) & 127)]) + ((0.00090474700000000012 * fVec5[((IOTA - 94) & 127)]) + ((0.000159872 * fVec5[((IOTA - 93) & 127)]) + ((0.00056933899999999998 * fVec5[((IOTA - 92) & 127)]) + ((0.00185798 * fVec5[((IOTA - 91) & 127)]) + ((0.00189 * fVec5[((IOTA - 90) & 127)]) + ((0.000117786 * fVec5[((IOTA - 89) & 127)]) + ((0.00125928 * fVec5[((IOTA - 86) & 127)]) + ((2.8444500000000005e-05 * fVec5[((IOTA - 85) & 127)]) + ((0.00083294400000000007 * fVec5[((IOTA - 80) & 127)]) + ((0.0016764500000000001 * fVec5[((IOTA - 79) & 127)]) + ((0.0013962900000000001 * fVec5[((IOTA - 78) & 127)]) + ((0.00111758 * fVec5[((IOTA - 77) & 127)]) + ((0.00045391500000000005 * fVec5[((IOTA - 71) & 127)]) + ((0.000148803 * fVec5[((IOTA - 70) & 127)]) + ((0.0011753800000000002 * fVec5[((IOTA - 68) & 127)]) + ((0.0018962900000000001 * fVec5[((IOTA - 67) & 127)]) + ((0.0014613100000000002 * fVec5[((IOTA - 66) & 127)]) + ((0.0017970900000000001 * fVec5[((IOTA - 65) & 127)]) + ((0.0015315300000000001 * fVec5[((IOTA - 64) & 127)]) + ((0.0007421070000000001 * fVec5[((IOTA - 56) & 127)]) + ((0.00097520700000000007 * fVec5[((IOTA - 55) & 127)]) + ((0.0037838799999999999 * fVec5[((IOTA - 53) & 127)]) + ((0.00698747 * fVec5[((IOTA - 52) & 127)]) + ((0.0027626199999999999 * fVec5[((IOTA - 51) & 127)]) + ((0.0018685000000000002 * fVec5[((IOTA - 50) & 127)]) + ((0.00096042799999999993 * fVec5[((IOTA - 49) & 127)]) + ((0.0020852000000000002 * fVec5[((IOTA - 48) & 127)]) + ((0.000149424 * fVec5[((IOTA - 47) & 127)]) + ((0.0016588400000000002 * fVec5[((IOTA - 46) & 127)]) + ((0.00091880400000000017 * fVec5[((IOTA - 45) & 127)]) + ((0.00130451 * fVec5[((IOTA - 44) & 127)]) + ((0.0068212999999999998 * fVec5[((IOTA - 37) & 127)]) + ((0.00105405 * fVec5[((IOTA - 34) & 127)]) + ((0.0048931899999999995 * fVec5[((IOTA - 33) & 127)]) + ((0.00611832 * fVec5[((IOTA - 32) & 127)]) + ((0.00102206 * fVec5[((IOTA - 30) & 127)]) + ((0.0060025299999999998 * fVec5[((IOTA - 29) & 127)]) + ((0.026557499999999998 * fVec5[((IOTA - 25) & 127)]) + ((0.016024799999999999 * fVec5[((IOTA - 21) & 127)]) + ((0.024778500000000002 * fVec5[((IOTA - 20) & 127)]) + ((0.00506151 * fVec5[((IOTA - 17) & 127)]) + ((0.013812 * fVec5[((IOTA - 16) & 127)]) + ((0.0140754 * fVec5[((IOTA - 15) & 127)]) + ((0.00200059 * fVec5[((IOTA - 13) & 127)]) + ((3.0679800000000004e-05 * fVec5[((IOTA - 12) & 127)]) + ((0.00092361100000000007 * fVec5[((IOTA - 11) & 127)]) + ((0.000181232 * fVec5[((IOTA - 9) & 127)]) + ((0.00059467900000000008 * fVec5[((IOTA - 8) & 127)]) + ((7.6133200000000012e-05 * fVec5[((IOTA - 7) & 127)]) + ((7.5538900000000003e-05 * fVec5[((IOTA - 6) & 127)]) + ((0.00033447000000000001 * fVec5[((IOTA - 4) & 127)]) + ((2.2306500000000001e-05 * fVec5[((IOTA - 2) & 127)]) + ((1.01157e-06 * fTemp5) + ((6.6843999999999997e-07 * fVec7[((IOTA - 124) & 127)]) + ((4.8642500000000001e-06 * fVec7[((IOTA - 122) & 127)]) + ((3.7498900000000008e-05 * fVec7[((IOTA - 121) & 127)]) + ((3.5998700000000005e-05 * fVec7[((IOTA - 120) & 127)]) + ((0.00095904600000000007 * fVec7[((IOTA - 46) & 127)]) + ((0.0037653400000000003 * fVec7[((IOTA - 43) & 127)]) + ((0.0084534499999999995 * fVec7[((IOTA - 39) & 127)]) + ((0.0082750199999999993 * fVec7[((IOTA - 38) & 127)]) + ((0.00081858699999999996 * fVec7[((IOTA - 37) & 127)]) + ((0.0071382800000000003 * fVec7[((IOTA - 34) & 127)]) + ((0.0143394 * fVec7[((IOTA - 33) & 127)]) + ((0.010370600000000001 * fVec7[((IOTA - 30) & 127)]) + ((0.0011209800000000002 * fVec7[((IOTA - 29) & 127)]) + ((0.0024934200000000001 * fVec7[((IOTA - 26) & 127)]) + ((0.013645400000000002 * fVec7[((IOTA - 25) & 127)]) + ((0.0093267300000000001 * fVec7[((IOTA - 24) & 127)]) + ((0.0010391600000000001 * fVec7[((IOTA - 23) & 127)]) + ((0.013693200000000001 * fVec7[((IOTA - 21) & 127)]) + ((0.026419100000000001 * fVec7[((IOTA - 20) & 127)]) + ((0.0052816599999999997 * fVec7[((IOTA - 19) & 127)]) + ((0.0099079700000000003 * fVec7[((IOTA - 15) & 127)]) + ((0.0311939 * fVec7[((IOTA - 14) & 127)]) + ((0.0014727 * fVec7[((IOTA - 13) & 127)]) + ((0.00053649699999999993 * fVec7[((IOTA - 11) & 127)]) + ((0.000604741 * fVec7[((IOTA - 9) & 127)]) + ((0.00032760500000000002 * fVec7[((IOTA - 6) & 127)]) + ((0.00039869100000000001 * fVec7[((IOTA - 5) & 127)]) + ((0.00021179100000000002 * fVec7[((IOTA - 2) & 127)]) + ((6.6060299999999995e-06 * fVec7[((IOTA - 1) & 127)]) + ((4.4068199999999999e-05 * fVec7[((IOTA - 49) & 127)]) + ((0.00193187 * fVec7[((IOTA - 48) & 127)]) + ((9.3157099999999996e-05 * fVec7[((IOTA - 116) & 127)]) + ((0.00015893600000000001 * fVec7[((IOTA - 115) & 127)]) + ((4.8178400000000006e-05 * fVec7[((IOTA - 111) & 127)]) + ((0.00019388300000000003 * fVec7[((IOTA - 108) & 127)]) + ((8.075270000000001e-05 * fVec7[((IOTA - 102) & 127)]) + ((0.00035262600000000004 * fVec7[((IOTA - 99) & 127)]) + ((0.00033993400000000002 * fVec7[((IOTA - 98) & 127)]) + ((0.00077320100000000005 * fVec7[((IOTA - 94) & 127)]) + ((0.0017218500000000002 * fVec7[((IOTA - 93) & 127)]) + ((0.0012217599999999999 * fVec7[((IOTA - 92) & 127)]) + ((0.00028683100000000003 * fVec7[((IOTA - 88) & 127)]) + ((0.00061147200000000006 * fVec7[((IOTA - 87) & 127)]) + ((4.3723599999999996e-06 * fVec7[((IOTA - 84) & 127)]) + ((0.0018051600000000001 * fVec7[((IOTA - 83) & 127)]) + ((0.00139346 * fVec7[((IOTA - 82) & 127)]) + ((0.00143457 * fVec7[((IOTA - 79) & 127)]) + ((0.00059460700000000003 * fVec7[((IOTA - 78) & 127)]) + ((0.0010948899999999998 * fVec7[((IOTA - 75) & 127)]) + ((0.00070570300000000002 * fVec7[((IOTA - 72) & 127)]) + ((0.00073311000000000003 * fVec7[((IOTA - 71) & 127)]) + ((0.0013571100000000001 * fVec7[((IOTA - 69) & 127)]) + ((0.0014804200000000001 * fVec7[((IOTA - 68) & 127)]) + ((0.00195075 * fVec7[((IOTA - 65) & 127)]) + ((0.0018251999999999999 * fVec7[((IOTA - 64) & 127)]) + ((0.0019702999999999999 * fVec7[((IOTA - 57) & 127)]) + ((0.0014399 * fVec7[((IOTA - 56) & 127)]) + ((0.0012466299999999999 * fVec7[((IOTA - 53) & 127)]) + ((0.00280423 * fVec7[((IOTA - 52) & 127)]) + ((0.00060468100000000003 * fVec7[((IOTA - 51) & 127)]) + ((1.0928e-07 * fVec9[((IOTA - 126) & 127)]) + ((5.4454700000000002e-06 * fVec9[((IOTA - 124) & 127)]) + ((5.9020799999999992e-06 * fVec9[((IOTA - 123) & 127)]) + ((3.0095900000000004e-05 * fVec9[((IOTA - 122) & 127)]) + ((7.1112499999999999e-06 * fVec9[((IOTA - 121) & 127)]) + ((8.7983600000000016e-05 * fVec9[((IOTA - 118) & 127)]) + ((7.5496100000000004e-05 * fVec9[((IOTA - 117) & 127)]) + ((0.00076466500000000009 * fVec9[((IOTA - 57) & 127)]) + ((0.0023379199999999998 * fVec9[((IOTA - 56) & 127)]) + ((0.00074370100000000004 * fVec9[((IOTA - 55) & 127)]) + ((0.00012815799999999999 * fVec9[((IOTA - 48) & 127)]) + ((0.0035424300000000001 * fVec9[((IOTA - 47) & 127)]) + ((0.0032092900000000001 * fVec9[((IOTA - 46) & 127)]) + ((0.0028615699999999999 * fVec9[((IOTA - 45) & 127)]) + ((0.0057087800000000001 * fVec9[((IOTA - 42) & 127)]) + ((0.0084345599999999989 * fVec9[((IOTA - 41) & 127)]) + ((0.0040366099999999995 * fVec9[((IOTA - 36) & 127)]) + ((0.0069023500000000007 * fVec9[((IOTA - 35) & 127)]) + ((0.0065296299999999998 * fVec9[((IOTA - 34) & 127)]) + ((0.0044332599999999996 * fVec9[((IOTA - 33) & 127)]) + ((0.010555300000000002 * fVec9[((IOTA - 32) & 127)]) + ((0.0089396400000000004 * fVec9[((IOTA - 31) & 127)]) + ((0.0086035499999999997 * fVec9[((IOTA - 30) & 127)]) + ((0.0064883900000000001 * fVec9[((IOTA - 23) & 127)]) + ((0.039212699999999996 * fVec9[((IOTA - 22) & 127)]) + ((0.042623499999999995 * fVec9[((IOTA - 21) & 127)]) + ((0.025846499999999998 * fVec9[((IOTA - 20) & 127)]) + ((0.029899200000000001 * fVec9[((IOTA - 19) & 127)]) + ((0.0029874700000000003 * fVec9[((IOTA - 14) & 127)]) + ((0.010756 * fVec9[((IOTA - 12) & 127)]) + ((0.0070991099999999996 * fVec9[((IOTA - 11) & 127)]) + ((0.0013702900000000001 * fVec9[((IOTA - 9) & 127)]) + ((0.00081733800000000003 * fVec9[((IOTA - 7) & 127)]) + ((0.00083112799999999999 * fVec9[((IOTA - 6) & 127)]) + ((0.00032748300000000005 * fVec9[((IOTA - 5) & 127)]) + ((0.00078052999999999998 * fVec9[((IOTA - 63) & 127)]) + ((0.0011785699999999999 * fVec9[((IOTA - 62) & 127)]) + ((0.00011532300000000001 * fVec9[((IOTA - 113) & 127)]) + ((0.000114784 * fVec9[((IOTA - 112) & 127)]) + ((0.00022094800000000003 * fVec9[((IOTA - 111) & 127)]) + ((3.11603e-05 * fVec9[((IOTA - 110) & 127)]) + ((7.629300000000001e-05 * fVec9[((IOTA - 109) & 127)]) + ((8.7761800000000004e-05 * fVec9[((IOTA - 108) & 127)]) + ((0.000129107 * fVec9[((IOTA - 106) & 127)]) + ((0.00014790700000000002 * fVec9[((IOTA - 105) & 127)]) + ((0.000179094 * fVec9[((IOTA - 104) & 127)]) + ((0.0017678000000000001 * fVec9[((IOTA - 98) & 127)]) + ((0.00076420300000000008 * fVec9[((IOTA - 97) & 127)]) + ((0.0014221699999999999 * fVec9[((IOTA - 95) & 127)]) + ((0.0014204300000000001 * fVec9[((IOTA - 94) & 127)]) + ((0.00026099700000000001 * fVec9[((IOTA - 93) & 127)]) + ((0.0015267500000000001 * fVec9[((IOTA - 87) & 127)]) + ((0.0025674000000000001 * fVec9[((IOTA - 86) & 127)]) + ((0.0020047300000000001 * fVec9[((IOTA - 85) & 127)]) + ((0.00030755700000000002 * fVec9[((IOTA - 84) & 127)]) + ((3.2680800000000001e-05 * fVec9[((IOTA - 80) & 127)]) + ((0.00095345499999999997 * fVec9[((IOTA - 79) & 127)]) + ((0.0012025200000000001 * fVec9[((IOTA - 76) & 127)]) + ((0.00092701100000000015 * fVec9[((IOTA - 75) & 127)]) + ((4.1599100000000006e-05 * fVec9[((IOTA - 71) & 127)]) + ((0.0014544500000000001 * fVec9[((IOTA - 70) & 127)]) + ((0.0018527300000000001 * fVec9[((IOTA - 69) & 127)]) + ((9.4559900000000009e-05 * fVec9[((IOTA - 67) & 127)]) + ((0.0039955199999999998 * fVec9[((IOTA - 66) & 127)]) + ((0.00067061599999999996 * fVec9[((IOTA - 65) & 127)]) + ((5.0701899999999997e-07 * fVec10[((IOTA - 126) & 127)]) + ((6.5806299999999997e-06 * fVec10[((IOTA - 119) & 127)]) + ((2.5601699999999999e-05 * fVec10[((IOTA - 118) & 127)]) + ((0.00076725300000000008 * fVec10[((IOTA - 68) & 127)]) + ((0.0019781200000000003 * fVec10[((IOTA - 67) & 127)]) + ((0.00014541100000000002 * fVec10[((IOTA - 66) & 127)]) + ((0.00135169 * fVec10[((IOTA - 65) & 127)]) + ((0.0045255499999999997 * fVec10[((IOTA - 64) & 127)]) + ((0.0031505000000000001 * fVec10[((IOTA - 63) & 127)]) + ((0.0020048800000000001 * fVec10[((IOTA - 62) & 127)]) + ((0.0026610100000000001 * fVec10[((IOTA - 61) & 127)]) + ((0.0031940499999999999 * fVec10[((IOTA - 60) & 127)]) + ((0.0027235599999999999 * fVec10[((IOTA - 59) & 127)]) + ((0.0014989200000000002 * fVec10[((IOTA - 48) & 127)]) + ((0.00035501400000000001 * fVec10[((IOTA - 47) & 127)]) + ((0.00053073400000000005 * fVec10[((IOTA - 44) & 127)]) + ((0.00018177000000000002 * fVec10[((IOTA - 43) & 127)]) + ((0.00022923800000000002 * fVec10[((IOTA - 42) & 127)]) + ((0.0039643000000000005 * fVec10[((IOTA - 41) & 127)]) + ((0.0020238499999999998 * fVec10[((IOTA - 40) & 127)]) + ((0.0027395200000000001 * fVec10[((IOTA - 37) & 127)]) + ((0.0066015900000000001 * fVec10[((IOTA - 36) & 127)]) + ((0.0045629199999999998 * fVec10[((IOTA - 35) & 127)]) + ((0.00132022 * fVec10[((IOTA - 32) & 127)]) + ((0.0062597399999999997 * fVec10[((IOTA - 31) & 127)]) + ((0.0056072600000000002 * fVec10[((IOTA - 27) & 127)]) + ((0.0028673099999999997 * fVec10[((IOTA - 25) & 127)]) + ((0.019039799999999999 * fVec10[((IOTA - 23) & 127)]) + ((0.017118299999999999 * fVec10[((IOTA - 22) & 127)]) + ((0.0062560200000000002 * fVec10[((IOTA - 20) & 127)]) + ((0.020002100000000002 * fVec10[((IOTA - 19) & 127)]) + ((0.0041887600000000006 * fVec10[((IOTA - 17) & 127)]) + ((0.0014716100000000001 * fVec10[((IOTA - 14) & 127)]) + ((0.0090645100000000013 * fVec10[((IOTA - 13) & 127)]) + ((0.00086152300000000011 * fVec10[((IOTA - 10) & 127)]) + ((8.9981100000000001e-06 * fVec10[((IOTA - 8) & 127)]) + ((0.00017556200000000001 * fVec10[((IOTA - 7) & 127)]) + ((0.000124945 * fVec10[((IOTA - 5) & 127)]) + ((0.00016682200000000001 * fVec10[((IOTA - 4) & 127)]) + ((6.6630700000000012e-05 * fVec10[((IOTA - 1) & 127)]) + ((4.9924900000000007e-05 * fVec10[((IOTA - 114) & 127)]) + ((2.4116600000000002e-05 * fVec10[((IOTA - 113) & 127)]) + ((0.000123721 * fVec10[((IOTA - 112) & 127)]) + ((0.00017926800000000001 * fVec10[((IOTA - 111) & 127)]) + ((5.1830600000000005e-05 * fVec10[((IOTA - 109) & 127)]) + ((2.1457400000000002e-05 * fVec10[((IOTA - 108) & 127)]) + ((0.000127255 * fVec10[((IOTA - 107) & 127)]) + ((0.00017192499999999999 * fVec10[((IOTA - 106) & 127)]) + ((0.000196808 * fVec10[((IOTA - 105) & 127)]) + ((0.000165983 * fVec10[((IOTA - 103) & 127)]) + ((0.00045185199999999998 * fVec10[((IOTA - 102) & 127)]) + ((0.00019163000000000001 * fVec10[((IOTA - 101) & 127)]) + ((7.4874400000000003e-05 * fVec10[((IOTA - 98) & 127)]) + ((0.00068954300000000004 * fVec10[((IOTA - 95) & 127)]) + ((0.00019426900000000001 * fVec10[((IOTA - 94) & 127)]) + ((0.00036535500000000004 * fVec10[((IOTA - 93) & 127)]) + ((0.00113838 * fVec10[((IOTA - 92) & 127)]) + ((0.00135228 * fVec10[((IOTA - 91) & 127)]) + ((0.00061579300000000011 * fVec10[((IOTA - 90) & 127)]) + ((3.3239100000000005e-05 * fVec10[((IOTA - 87) & 127)]) + ((0.00027159100000000001 * fVec10[((IOTA - 86) & 127)]) + ((0.00083452999999999999 * fVec10[((IOTA - 83) & 127)]) + ((0.00051736399999999997 * fVec10[((IOTA - 82) & 127)]) + ((0.00092786600000000006 * fVec10[((IOTA - 80) & 127)]) + ((0.00187605 * fVec10[((IOTA - 79) & 127)]) + ((0.00014753499999999999 * fVec10[((IOTA - 78) & 127)]) + ((2.0620400000000002e-06 * fVec11[((IOTA - 126) & 127)]) + ((4.3651699999999997e-06 * fVec11[((IOTA - 125) & 127)]) + ((9.8025599999999989e-06 * fVec11[((IOTA - 123) & 127)]) + ((4.5363300000000005e-06 * fVec11[((IOTA - 120) & 127)]) + ((7.2638200000000005e-05 * fVec11[((IOTA - 117) & 127)]) + ((0.00026698599999999998 * fVec11[((IOTA - 116) & 127)]) + ((2.7375100000000002e-05 * fVec11[((IOTA - 115) & 127)]) + ((0.0016614500000000001 * fVec11[((IOTA - 66) & 127)]) + ((0.0026933400000000002 * fVec11[((IOTA - 65) & 127)]) + ((0.0033985199999999999 * fVec11[((IOTA - 64) & 127)]) + ((0.0054209699999999998 * fVec11[((IOTA - 63) & 127)]) + ((0.0038534000000000003 * fVec11[((IOTA - 62) & 127)]) + ((0.00150731 * fVec11[((IOTA - 61) & 127)]) + ((0.00172416 * fVec11[((IOTA - 60) & 127)]) + ((5.7417900000000005e-05 * fVec11[((IOTA - 58) & 127)]) + ((0.00292822 * fVec11[((IOTA - 54) & 127)]) + ((0.00231401 * fVec11[((IOTA - 53) & 127)]) + ((0.0034388399999999999 * fVec11[((IOTA - 45) & 127)]) + ((0.0031324200000000003 * fVec11[((IOTA - 44) & 127)]) + ((0.0097209400000000008 * fVec11[((IOTA - 41) & 127)]) + ((0.0084834000000000003 * fVec11[((IOTA - 40) & 127)]) + ((0.0055612700000000001 * fVec11[((IOTA - 39) & 127)]) + ((0.0021108199999999998 * fVec11[((IOTA - 38) & 127)]) + ((0.0155897 * fVec11[((IOTA - 37) & 127)]) + ((0.0193621 * fVec11[((IOTA - 36) & 127)]) + ((0.0023860600000000002 * fVec11[((IOTA - 35) & 127)]) + ((0.0080486600000000009 * fVec11[((IOTA - 30) & 127)]) + ((0.012241800000000001 * fVec11[((IOTA - 26) & 127)]) + ((0.00871626 * fVec11[((IOTA - 22) & 127)]) + ((0.034405700000000004 * fVec11[((IOTA - 21) & 127)]) + ((0.0063924000000000003 * fVec11[((IOTA - 20) & 127)]) + ((0.022591999999999998 * fVec11[((IOTA - 19) & 127)]) + ((0.026366200000000003 * fVec11[((IOTA - 18) & 127)]) + ((0.0176843 * fVec11[((IOTA - 16) & 127)]) + ((0.025000600000000001 * fVec11[((IOTA - 13) & 127)]) + ((0.0184747 * fVec11[((IOTA - 12) & 127)]) + ((0.0127194 * fVec11[((IOTA - 11) & 127)]) + ((0.0029847899999999998 * fVec11[((IOTA - 9) & 127)]) + ((0.0020377999999999998 * fVec11[((IOTA - 7) & 127)]) + ((0.00042369400000000001 * fVec11[((IOTA - 5) & 127)]) + ((0.00073914 * fVec11[((IOTA - 4) & 127)]) + ((0.00028138600000000001 * fVec11[((IOTA - 3) & 127)]) + ((8.5198599999999984e-06 * fTemp11) + ((0.00020037400000000002 * fVec11[((IOTA - 112) & 127)]) + ((0.00027241800000000002 * fVec11[((IOTA - 111) & 127)]) + ((0.00014274500000000003 * fVec11[((IOTA - 105) & 127)]) + ((2.8564700000000001e-05 * fVec11[((IOTA - 103) & 127)]) + ((0.000335003 * fVec11[((IOTA - 102) & 127)]) + ((0.000159333 * fVec11[((IOTA - 101) & 127)]) + ((0.00193815 * fVec11[((IOTA - 94) & 127)]) + ((0.00248299 * fVec11[((IOTA - 93) & 127)]) + ((0.00032790100000000002 * fVec11[((IOTA - 92) & 127)]) + ((0.000935657 * fVec11[((IOTA - 90) & 127)]) + ((0.00115957 * fVec11[((IOTA - 85) & 127)]) + ((0.0014868800000000001 * fVec11[((IOTA - 84) & 127)]) + ((0.0011174100000000001 * fVec11[((IOTA - 83) & 127)]) + ((0.00071595500000000011 * fVec11[((IOTA - 82) & 127)]) + ((0.00084476400000000002 * fVec11[((IOTA - 81) & 127)]) + ((0.0011752900000000001 * fVec11[((IOTA - 80) & 127)]) + ((0.00022800300000000001 * fVec11[((IOTA - 79) & 127)]) + ((5.6292200000000003e-05 * fVec11[((IOTA - 76) & 127)]) + ((0.0021444000000000003 * fVec11[((IOTA - 75) & 127)]) + ((4.0625199999999998e-07 * fVec12[((IOTA - 126) & 127)]) + ((6.5155300000000006e-08 * fVec12[((IOTA - 125) & 127)]) + ((4.2651e-06 * fVec12[((IOTA - 124) & 127)]) + ((1.7069900000000001e-05 * fVec12[((IOTA - 123) & 127)]) + ((2.37743e-05 * fVec12[((IOTA - 122) & 127)]) + ((4.763620000000001e-05 * fVec12[((IOTA - 121) & 127)]) + ((3.0153800000000003e-05 * fVec12[((IOTA - 120) & 127)]) + ((9.3094800000000015e-05 * fVec12[((IOTA - 117) & 127)]) + ((4.1650900000000005e-05 * fVec12[((IOTA - 116) & 127)]) + ((6.2211499999999999e-05 * fVec12[((IOTA - 115) & 127)]) + ((6.6434300000000015e-05 * fVec12[((IOTA - 114) & 127)]) + ((0.00017708100000000002 * fVec12[((IOTA - 111) & 127)]) + ((0.000302894 * fVec12[((IOTA - 110) & 127)]) + ((2.8490500000000004e-05 * fVec12[((IOTA - 109) & 127)]) + ((6.4782800000000006e-05 * fVec12[((IOTA - 105) & 127)]) + ((0.0031248600000000001 * fVec12[((IOTA - 33) & 127)]) + ((0.010657700000000001 * fVec12[((IOTA - 32) & 127)]) + ((0.0123298 * fVec12[((IOTA - 29) & 127)]) + ((0.023814399999999999 * fVec12[((IOTA - 28) & 127)]) + ((0.015685999999999999 * fVec12[((IOTA - 24) & 127)]) + ((0.026830500000000004 * fVec12[((IOTA - 23) & 127)]) + ((0.0044038100000000002 * fVec12[((IOTA - 20) & 127)]) + ((0.025842800000000003 * fVec12[((IOTA - 19) & 127)]) + ((0.0039745500000000003 * fVec12[((IOTA - 17) & 127)]) + ((0.0027138700000000002 * fVec12[((IOTA - 14) & 127)]) + ((0.0139846 * fVec12[((IOTA - 13) & 127)]) + ((0.0013470200000000002 * fVec12[((IOTA - 10) & 127)]) + ((0.00043533500000000002 * fVec12[((IOTA - 8) & 127)]) + ((8.6044500000000013e-05 * fVec12[((IOTA - 7) & 127)]) + ((0.000319706 * fVec12[((IOTA - 5) & 127)]) + ((0.00024937100000000002 * fVec12[((IOTA - 4) & 127)]) + ((5.3838100000000009e-05 * fVec12[((IOTA - 1) & 127)]) + ((2.6819199999999998e-06 * fTemp12) + ((0.0091450500000000001 * fVec12[((IOTA - 38) & 127)]) + ((0.00768047 * fVec12[((IOTA - 37) & 127)]) + ((0.0010365700000000001 * fVec12[((IOTA - 96) & 127)]) + ((0.00162586 * fVec12[((IOTA - 95) & 127)]) + ((0.00062772300000000006 * fVec12[((IOTA - 92) & 127)]) + ((0.00042317400000000007 * fVec12[((IOTA - 91) & 127)]) + ((0.0007219450000000001 * fVec12[((IOTA - 86) & 127)]) + ((0.00095599600000000008 * fVec12[((IOTA - 85) & 127)]) + ((0.0013169100000000001 * fVec12[((IOTA - 84) & 127)]) + ((0.000376642 * fVec12[((IOTA - 83) & 127)]) + ((5.7134700000000007e-05 * fVec12[((IOTA - 82) & 127)]) + ((0.00077003500000000008 * fVec12[((IOTA - 81) & 127)]) + ((0.00087973800000000013 * fVec12[((IOTA - 80) & 127)]) + ((0.00032809400000000002 * fVec12[((IOTA - 79) & 127)]) + ((0.0026185600000000002 * fVec12[((IOTA - 78) & 127)]) + ((0.0028955700000000001 * fVec12[((IOTA - 77) & 127)]) + ((0.00038572900000000002 * fVec12[((IOTA - 74) & 127)]) + ((0.00085528000000000004 * fVec12[((IOTA - 73) & 127)]) + ((0.0005309300000000001 * fVec12[((IOTA - 70) & 127)]) + ((0.0037638799999999998 * fVec12[((IOTA - 69) & 127)]) + ((0.0018805400000000002 * fVec12[((IOTA - 65) & 127)]) + ((0.00082699499999999997 * fVec12[((IOTA - 64) & 127)]) + ((0.00056278600000000002 * fVec12[((IOTA - 62) & 127)]) + ((0.0029268000000000002 * fVec12[((IOTA - 61) & 127)]) + ((0.00299716 * fVec12[((IOTA - 60) & 127)]) + ((7.7010600000000011e-05 * fVec12[((IOTA - 56) & 127)]) + ((0.00037668800000000002 * fVec12[((IOTA - 52) & 127)]) + ((0.00122064 * fVec12[((IOTA - 51) & 127)]) + ((0.000190838 * fVec12[((IOTA - 49) & 127)]) + ((0.00077671800000000003 * fVec12[((IOTA - 48) & 127)]) + ((0.00607597 * fVec12[((IOTA - 47) & 127)]) + ((0.0014073800000000002 * fVec12[((IOTA - 46) & 127)]) + ((0.0031471900000000002 * fVec12[((IOTA - 44) & 127)]) + ((0.0043989099999999998 * fVec12[((IOTA - 43) & 127)]) + ((0.0034855200000000002 * fVec12[((IOTA - 42) & 127)]) + ((9.49831e-07 * fVec13[((IOTA - 126) & 127)]) + ((3.1931999999999998e-06 * fVec13[((IOTA - 125) & 127)]) + ((5.5764699999999995e-06 * fVec13[((IOTA - 124) & 127)]) + ((1.0968800000000001e-07 * fVec13[((IOTA - 123) & 127)]) + ((0.0014048700000000001 * fVec13[((IOTA - 7) & 127)]) + ((0.00036872500000000003 * fVec13[((IOTA - 5) & 127)]) + ((0.000105049 * fVec13[((IOTA - 4) & 127)]) + ((0.00164861 * fVec13[((IOTA - 13) & 127)]) + ((0.022289900000000001 * fVec13[((IOTA - 12) & 127)]) + ((0.012312099999999999 * fVec13[((IOTA - 11) & 127)]) + ((0.00071207799999999999 * fVec13[((IOTA - 9) & 127)]) + ((0.000462468 * fVec13[((IOTA - 8) & 127)]) + ((2.12878e-05 * fVec13[((IOTA - 121) & 127)]) + ((8.7920300000000006e-05 * fVec13[((IOTA - 113) & 127)]) + ((0.00016192500000000002 * fVec13[((IOTA - 112) & 127)]) + ((0.00036806100000000004 * fVec13[((IOTA - 111) & 127)]) + ((0.00033710000000000001 * fVec13[((IOTA - 110) & 127)]) + ((4.8992500000000009e-05 * fVec13[((IOTA - 109) & 127)]) + ((0.00022824300000000002 * fVec13[((IOTA - 107) & 127)]) + ((0.00058892300000000009 * fVec13[((IOTA - 106) & 127)]) + ((0.00025375400000000002 * fVec13[((IOTA - 103) & 127)]) + ((0.00094852700000000001 * fVec13[((IOTA - 99) & 127)]) + ((0.00093470300000000005 * fVec13[((IOTA - 98) & 127)]) + ((0.0026319900000000003 * fVec13[((IOTA - 95) & 127)]) + ((0.0026384300000000002 * fVec13[((IOTA - 94) & 127)]) + ((0.00073298899999999997 * fVec13[((IOTA - 93) & 127)]) + ((0.00015313300000000001 * fVec13[((IOTA - 89) & 127)]) + ((0.00095595100000000002 * fVec13[((IOTA - 84) & 127)]) + ((0.00027629299999999999 * fVec13[((IOTA - 82) & 127)]) + ((0.0031433800000000003 * fVec13[((IOTA - 81) & 127)]) + ((0.0029007100000000004 * fVec13[((IOTA - 80) & 127)]) + ((0.0015954299999999999 * fVec13[((IOTA - 77) & 127)]) + ((0.0028552399999999998 * fVec13[((IOTA - 76) & 127)]) + ((0.0042386799999999999 * fVec13[((IOTA - 69) & 127)]) + ((0.0019517800000000002 * fVec13[((IOTA - 65) & 127)]) + ((0.0014053899999999999 * fVec13[((IOTA - 64) & 127)]) + ((0.00086168600000000018 * fVec13[((IOTA - 63) & 127)]) + ((0.0048033500000000005 * fVec13[((IOTA - 62) & 127)]) + ((0.0029130099999999997 * fVec13[((IOTA - 61) & 127)]) + ((0.00047407800000000001 * fVec13[((IOTA - 54) & 127)]) + ((0.00202768 * fVec13[((IOTA - 53) & 127)]) + ((3.5748100000000004e-05 * fVec13[((IOTA - 50) & 127)]) + ((0.0030451499999999999 * fVec13[((IOTA - 46) & 127)]) + ((0.0027342900000000003 * fVec13[((IOTA - 44) & 127)]) + ((0.00039842200000000006 * fVec13[((IOTA - 43) & 127)]) + ((0.0057944000000000008 * fVec13[((IOTA - 42) & 127)]) + ((0.0023061699999999997 * fVec13[((IOTA - 41) & 127)]) + ((0.009425300000000001 * fVec13[((IOTA - 39) & 127)]) + ((0.0020945399999999998 * fVec13[((IOTA - 38) & 127)]) + ((0.0029420500000000003 * fVec13[((IOTA - 36) & 127)]) + ((0.0185694 * fVec13[((IOTA - 35) & 127)]) + ((0.0113855 * fVec13[((IOTA - 34) & 127)]) + ((0.00026793500000000002 * fVec13[((IOTA - 33) & 127)]) + ((0.0051319800000000004 * fVec13[((IOTA - 32) & 127)]) + ((0.012179199999999999 * fVec13[((IOTA - 31) & 127)]) + ((0.012681100000000001 * fVec13[((IOTA - 24) & 127)]) + ((0.045592300000000002 * fVec13[((IOTA - 23) & 127)]) + ((0.015610000000000001 * fVec13[((IOTA - 22) & 127)]) + ((0.0327345 * fVec13[((IOTA - 21) & 127)]) + ((0.084608899999999987 * fVec13[((IOTA - 20) & 127)]) + ((0.024154900000000003 * fVec13[((IOTA - 19) & 127)]) + ((8.8079300000000002e-07 * fVec14[((IOTA - 126) & 127)]) + ((2.3561399999999996e-06 * fVec14[((IOTA - 124) & 127)]) + ((7.3129899999999994e-06 * fVec14[((IOTA - 118) & 127)]) + ((8.74663e-05 * fVec14[((IOTA - 113) & 127)]) + ((8.9256100000000021e-05 * fVec14[((IOTA - 112) & 127)]) + ((5.0065999999999998e-05 * fVec14[((IOTA - 109) & 127)]) + ((4.0718199999999999e-05 * fVec14[((IOTA - 107) & 127)]) + ((0.000190676 * fVec14[((IOTA - 106) & 127)]) + ((6.0194500000000008e-05 * fVec14[((IOTA - 105) & 127)]) + ((0.0010829400000000001 * fVec14[((IOTA - 104) & 127)]) + ((0.00074344099999999996 * fVec14[((IOTA - 103) & 127)]) + ((0.00017791700000000001 * fVec14[((IOTA - 101) & 127)]) + ((0.00123146 * fVec14[((IOTA - 100) & 127)]) + ((0.0012094300000000001 * fVec14[((IOTA - 99) & 127)]) + ((0.010247200000000001 * fVec14[((IOTA - 27) & 127)]) + ((0.0162706 * fVec14[((IOTA - 26) & 127)]) + ((0.016289999999999999 * fVec14[((IOTA - 25) & 127)]) + ((0.036860799999999999 * fVec14[((IOTA - 24) & 127)]) + ((0.038006600000000001 * fVec14[((IOTA - 23) & 127)]) + ((0.019427300000000002 * fVec14[((IOTA - 22) & 127)]) + ((0.025630400000000001 * fVec14[((IOTA - 21) & 127)]) + ((0.033451700000000001 * fVec14[((IOTA - 20) & 127)]) + ((0.029137300000000001 * fVec14[((IOTA - 13) & 127)]) + ((0.048090000000000001 * fVec14[((IOTA - 12) & 127)]) + ((0.0102197 * fVec14[((IOTA - 11) & 127)]) + ((0.00102731 * fVec14[((IOTA - 9) & 127)]) + ((0.00033557999999999998 * fVec14[((IOTA - 8) & 127)]) + ((0.00072926300000000007 * fVec14[((IOTA - 7) & 127)]) + ((0.00062620699999999994 * fVec14[((IOTA - 5) & 127)]) + ((6.2166100000000008e-05 * fVec14[((IOTA - 4) & 127)]) + ((2.7781499999999998e-06 * fTemp14) + ((0.0119731 * fVec14[((IOTA - 30) & 127)]) + ((0.00102399 * fVec14[((IOTA - 95) & 127)]) + ((0.0011951900000000001 * fVec14[((IOTA - 94) & 127)]) + ((0.00154042 * fVec14[((IOTA - 85) & 127)]) + ((0.00182591 * fVec14[((IOTA - 84) & 127)]) + ((0.00053972300000000009 * fVec14[((IOTA - 82) & 127)]) + ((0.00184866 * fVec14[((IOTA - 81) & 127)]) + ((0.000571055 * fVec14[((IOTA - 80) & 127)]) + ((0.0019816600000000001 * fVec14[((IOTA - 77) & 127)]) + ((0.000899127 * fVec14[((IOTA - 76) & 127)]) + ((0.00072784599999999998 * fVec14[((IOTA - 72) & 127)]) + ((0.0026818300000000001 * fVec14[((IOTA - 71) & 127)]) + ((0.0017303900000000001 * fVec14[((IOTA - 70) & 127)]) + ((0.0011627499999999999 * fVec14[((IOTA - 59) & 127)]) + ((0.00114566 * fVec14[((IOTA - 58) & 127)]) + ((0.0014845699999999999 * fVec14[((IOTA - 57) & 127)]) + ((0.0018366700000000001 * fVec14[((IOTA - 56) & 127)]) + ((0.0018739399999999999 * fVec14[((IOTA - 55) & 127)]) + ((0.00044913200000000004 * fVec14[((IOTA - 54) & 127)]) + ((0.0026997300000000004 * fVec14[((IOTA - 52) & 127)]) + ((0.00353529 * fVec14[((IOTA - 51) & 127)]) + ((0.00049338800000000009 * fVec14[((IOTA - 48) & 127)]) + ((0.0045044300000000002 * fVec14[((IOTA - 47) & 127)]) + ((4.1378300000000003e-05 * fVec14[((IOTA - 46) & 127)]) + ((0.00152776 * fVec14[((IOTA - 43) & 127)]) + ((0.0051684499999999998 * fVec14[((IOTA - 42) & 127)]) + ((0.0082244100000000014 * fVec14[((IOTA - 39) & 127)]) + ((0.0018586200000000001 * fVec14[((IOTA - 38) & 127)]) + ((3.9174899999999995e-06 * fVec15[((IOTA - 124) & 127)]) + ((2.3008000000000001e-06 * fVec15[((IOTA - 123) & 127)]) + ((2.30759e-05 * fVec15[((IOTA - 122) & 127)]) + ((4.44424e-05 * fVec15[((IOTA - 117) & 127)]) + ((2.0348199999999997e-06 * fVec15[((IOTA - 115) & 127)]) + ((0.00014602200000000002 * fVec15[((IOTA - 112) & 127)]) + ((0.000200705 * fVec15[((IOTA - 111) & 127)]) + ((0.00021466900000000001 * fVec15[((IOTA - 110) & 127)]) + ((0.00019825999999999999 * fVec15[((IOTA - 106) & 127)]) + ((0.00061293399999999998 * fVec15[((IOTA - 105) & 127)]) + ((0.00028580599999999999 * fVec15[((IOTA - 104) & 127)]) + ((0.00012016899999999999 * fVec15[((IOTA - 103) & 127)]) + ((5.1820600000000003e-05 * fVec15[((IOTA - 1) & 127)]) + ((0.014182999999999999 * fVec15[((IOTA - 17) & 127)]) + ((0.0067481200000000007 * fVec15[((IOTA - 16) & 127)]) + ((0.0024826200000000001 * fVec15[((IOTA - 14) & 127)]) + ((0.010515500000000001 * fVec15[((IOTA - 13) & 127)]) + ((0.00032269000000000004 * fVec15[((IOTA - 10) & 127)]) + ((0.00063523900000000001 * fVec15[((IOTA - 8) & 127)]) + ((0.000129078 * fVec15[((IOTA - 7) & 127)]) + ((0.00053025000000000001 * fVec15[((IOTA - 5) & 127)]) + ((0.00020292900000000002 * fVec15[((IOTA - 4) & 127)]) + ((0.00028350700000000001 * fVec15[((IOTA - 102) & 127)]) + ((0.00029655200000000006 * fVec15[((IOTA - 99) & 127)]) + ((0.00078374800000000002 * fVec15[((IOTA - 98) & 127)]) + ((0.00029986299999999999 * fVec15[((IOTA - 97) & 127)]) + ((0.00067223400000000007 * fVec15[((IOTA - 94) & 127)]) + ((0.0013073300000000002 * fVec15[((IOTA - 93) & 127)]) + ((0.0013844899999999999 * fVec15[((IOTA - 92) & 127)]) + ((0.00041581000000000002 * fVec15[((IOTA - 88) & 127)]) + ((0.000846243 * fVec15[((IOTA - 85) & 127)]) + ((0.00053294300000000002 * fVec15[((IOTA - 84) & 127)]) + ((0.00060163399999999998 * fVec15[((IOTA - 80) & 127)]) + ((0.0018310100000000001 * fVec15[((IOTA - 79) & 127)]) + ((0.0015329200000000001 * fVec15[((IOTA - 74) & 127)]) + ((0.00088242499999999994 * fVec15[((IOTA - 73) & 127)]) + ((0.0012564 * fVec15[((IOTA - 69) & 127)]) + ((0.000106876 * fVec15[((IOTA - 68) & 127)]) + ((5.6309300000000007e-05 * fVec15[((IOTA - 66) & 127)]) + ((0.0022511199999999997 * fVec15[((IOTA - 65) & 127)]) + ((0.00251024 * fVec15[((IOTA - 64) & 127)]) + ((0.0033029299999999999 * fVec15[((IOTA - 61) & 127)]) + ((0.0033276300000000003 * fVec15[((IOTA - 60) & 127)]) + ((0.00121754 * fVec15[((IOTA - 55) & 127)]) + ((0.0013364400000000002 * fVec15[((IOTA - 54) & 127)]) + ((0.0023798400000000003 * fVec15[((IOTA - 51) & 127)]) + ((0.0024073300000000001 * fVec15[((IOTA - 50) & 127)]) + ((2.2802500000000004e-05 * fVec15[((IOTA - 47) & 127)]) + ((0.0033117200000000002 * fVec15[((IOTA - 46) & 127)]) + ((0.00077673400000000006 * fVec15[((IOTA - 45) & 127)]) + ((0.0072897299999999995 * fVec15[((IOTA - 42) & 127)]) + ((0.00136954 * fVec15[((IOTA - 41) & 127)]) + ((0.0025440700000000003 * fVec15[((IOTA - 39) & 127)]) + ((0.00062277700000000003 * fVec15[((IOTA - 37) & 127)]) + ((0.0073965899999999998 * fVec15[((IOTA - 36) & 127)]) + ((0.0019310799999999999 * fVec15[((IOTA - 35) & 127)]) + ((0.00106083 * fVec15[((IOTA - 33) & 127)]) + ((0.020638200000000002 * fVec15[((IOTA - 32) & 127)]) + ((0.00084266199999999999 * fVec15[((IOTA - 31) & 127)]) + ((0.0090219900000000006 * fVec15[((IOTA - 28) & 127)]) + ((0.0221418 * fVec15[((IOTA - 27) & 127)]) + ((0.0036234800000000001 * fVec15[((IOTA - 26) & 127)]) + ((0.0061371100000000003 * fVec15[((IOTA - 24) & 127)]) + ((0.040377299999999998 * fVec15[((IOTA - 23) & 127)]) + ((0.0047783499999999998 * fVec15[((IOTA - 20) & 127)]) + ((8.72722e-07 * fVec16[((IOTA - 126) & 127)]) + ((2.1165599999999999e-06 * fVec16[((IOTA - 125) & 127)]) + ((7.3710100000000001e-06 * fVec16[((IOTA - 122) & 127)]) + ((1.46484e-05 * fVec16[((IOTA - 121) & 127)]) + ((0.00012623700000000002 * fVec16[((IOTA - 112) & 127)]) + ((0.00049957300000000001 * fVec16[((IOTA - 89) & 127)]) + ((0.00047812500000000003 * fVec16[((IOTA - 87) & 127)]) + ((0.00080239700000000005 * fVec16[((IOTA - 86) & 127)]) + ((0.00114842 * fVec16[((IOTA - 79) & 127)]) + ((0.00084254499999999999 * fVec16[((IOTA - 78) & 127)]) + ((0.00058521400000000002 * fVec16[((IOTA - 76) & 127)]) + ((0.0031232299999999998 * fVec16[((IOTA - 75) & 127)]) + ((0.0039299499999999998 * fVec16[((IOTA - 74) & 127)]) + ((0.00148547 * fVec16[((IOTA - 71) & 127)]) + ((0.0015915 * fVec16[((IOTA - 70) & 127)]) + ((0.00078234799999999998 * fVec16[((IOTA - 69) & 127)]) + ((0.00069670400000000003 * fVec16[((IOTA - 66) & 127)]) + ((0.00096430799999999998 * fVec16[((IOTA - 59) & 127)]) + ((0.00037265600000000002 * fVec16[((IOTA - 58) & 127)]) + ((0.00057995900000000001 * fVec16[((IOTA - 57) & 127)]) + ((0.00115193 * fVec16[((IOTA - 56) & 127)]) + ((0.00079223400000000006 * fVec16[((IOTA - 55) & 127)]) + ((0.0061534800000000002 * fVec16[((IOTA - 52) & 127)]) + ((0.0071582199999999999 * fVec16[((IOTA - 51) & 127)]) + ((0.00165015 * fVec16[((IOTA - 50) & 127)]) + ((0.00086588999999999991 * fVec16[((IOTA - 49) & 127)]) + ((0.0062358300000000004 * fVec16[((IOTA - 48) & 127)]) + ((0.0050313800000000002 * fVec16[((IOTA - 47) & 127)]) + ((0.0031040800000000004 * fVec16[((IOTA - 46) & 127)]) + ((0.0050040100000000006 * fVec16[((IOTA - 45) & 127)]) + ((0.0027939900000000001 * fVec16[((IOTA - 44) & 127)]) + ((0.0065439699999999996 * fVec16[((IOTA - 43) & 127)]) + ((0.00124876 * fVec16[((IOTA - 42) & 127)]) + ((0.020424000000000001 * fVec16[((IOTA - 33) & 127)]) + ((0.0045740400000000006 * fVec16[((IOTA - 32) & 127)]) + ((0.0090182999999999999 * fVec16[((IOTA - 29) & 127)]) + ((0.00841159 * fVec16[((IOTA - 28) & 127)]) + ((0.046303400000000002 * fVec16[((IOTA - 25) & 127)]) + ((0.022126100000000003 * fVec16[((IOTA - 24) & 127)]) + ((0.023621 * fVec16[((IOTA - 23) & 127)]) + ((0.034497100000000003 * fVec16[((IOTA - 22) & 127)]) + ((0.019118099999999999 * fVec16[((IOTA - 21) & 127)]) + ((0.0039120300000000004 * fVec16[((IOTA - 18) & 127)]) + ((0.034787400000000003 * fVec16[((IOTA - 13) & 127)]) + ((0.032626599999999999 * fVec16[((IOTA - 12) & 127)]) + ((0.010078100000000001 * fVec16[((IOTA - 11) & 127)]) + ((0.0033341600000000001 * fVec16[((IOTA - 9) & 127)]) + ((0.00170722 * fVec16[((IOTA - 7) & 127)]) + ((0.00039425900000000005 * fVec16[((IOTA - 5) & 127)]) + ((8.8433799999999993e-06 * fVec16[((IOTA - 4) & 127)]) + ((1.19794e-06 * fVec16[((IOTA - 3) & 127)]) + ((1.7201900000000002e-05 * fTemp16) + ((0.00040145799999999999 * fVec16[((IOTA - 111) & 127)]) + ((0.000414208 * fVec16[((IOTA - 110) & 127)]) + ((0.00021768299999999998 * fVec16[((IOTA - 107) & 127)]) + ((0.000541122 * fVec16[((IOTA - 106) & 127)]) + ((0.000823148 * fVec16[((IOTA - 105) & 127)]) + ((0.00019509200000000001 * fVec16[((IOTA - 103) & 127)]) + ((0.0013184900000000001 * fVec16[((IOTA - 102) & 127)]) + ((0.0010226299999999998 * fVec16[((IOTA - 101) & 127)]) + ((0.000125802 * fVec16[((IOTA - 100) & 127)]) + ((0.00083710400000000008 * fVec16[((IOTA - 99) & 127)]) + ((0.00236228 * fVec16[((IOTA - 98) & 127)]) + ((0.0017316800000000002 * fVec16[((IOTA - 97) & 127)]) + ((1.60144e-05 * fVec17[((IOTA - 123) & 127)]) + ((3.7959300000000001e-05 * fVec17[((IOTA - 122) & 127)]) + ((1.1808799999999999e-05 * fVec17[((IOTA - 121) & 127)]) + ((5.3246100000000005e-05 * fVec17[((IOTA - 118) & 127)]) + ((4.9970700000000006e-05 * fVec17[((IOTA - 117) & 127)]) + ((6.7732400000000001e-06 * fVec17[((IOTA - 116) & 127)]) + ((0.00013832100000000001 * fVec17[((IOTA - 113) & 127)]) + ((0.00034154700000000004 * fVec17[((IOTA - 112) & 127)]) + ((5.9127099999999998e-05 * fVec17[((IOTA - 111) & 127)]) + ((1.61672e-05 * fVec17[((IOTA - 109) & 127)]) + ((0.000403428 * fVec17[((IOTA - 108) & 127)]) + ((2.9283000000000004e-05 * fVec17[((IOTA - 107) & 127)]) + ((0.0013749000000000001 * fVec17[((IOTA - 80) & 127)]) + ((0.00137465 * fVec17[((IOTA - 79) & 127)]) + ((0.00104108 * fVec17[((IOTA - 77) & 127)]) + ((0.00091011900000000014 * fVec17[((IOTA - 76) & 127)]) + ((0.0020970900000000002 * fVec17[((IOTA - 75) & 127)]) + ((0.00061507900000000004 * fVec17[((IOTA - 74) & 127)]) + ((0.00066226900000000005 * fVec17[((IOTA - 71) & 127)]) + ((0.0048415200000000002 * fVec17[((IOTA - 70) & 127)]) + ((0.0022895300000000001 * fVec17[((IOTA - 69) & 127)]) + ((0.0025702799999999999 * fVec17[((IOTA - 65) & 127)]) + ((0.00035714999999999998 * fVec17[((IOTA - 64) & 127)]) + ((0.00088026800000000013 * fVec17[((IOTA - 61) & 127)]) + ((0.0015539499999999999 * fVec17[((IOTA - 55) & 127)]) + ((0.0034851399999999999 * fVec17[((IOTA - 54) & 127)]) + ((0.0013564600000000001 * fVec17[((IOTA - 53) & 127)]) + ((0.00033219200000000003 * fVec17[((IOTA - 52) & 127)]) + ((0.00324858 * fVec17[((IOTA - 50) & 127)]) + ((0.0029808 * fVec17[((IOTA - 49) & 127)]) + ((0.00093466200000000006 * fVec17[((IOTA - 46) & 127)]) + ((0.00039698400000000002 * fVec17[((IOTA - 43) & 127)]) + ((0.00048442499999999997 * fVec17[((IOTA - 42) & 127)]) + ((0.00013193900000000003 * fVec17[((IOTA - 41) & 127)]) + ((0.00084730000000000016 * fVec17[((IOTA - 40) & 127)]) + ((0.0038824599999999999 * fVec17[((IOTA - 38) & 127)]) + ((0.0023402100000000001 * fVec17[((IOTA - 35) & 127)]) + ((0.0090115600000000001 * fVec17[((IOTA - 34) & 127)]) + ((0.0145007 * fVec17[((IOTA - 31) & 127)]) + ((0.00672019 * fVec17[((IOTA - 30) & 127)]) + ((0.019919199999999998 * fVec17[((IOTA - 27) & 127)]) + ((0.018401899999999999 * fVec17[((IOTA - 23) & 127)]) + ((0.019435299999999999 * fVec17[((IOTA - 22) & 127)]) + ((0.0052171300000000004 * fVec17[((IOTA - 20) & 127)]) + ((0.00278912 * fVec17[((IOTA - 19) & 127)]) + ((0.0067436400000000004 * fVec17[((IOTA - 17) & 127)]) + ((0.0015875500000000001 * fVec17[((IOTA - 16) & 127)]) + ((0.00088633199999999998 * fVec17[((IOTA - 14) & 127)]) + ((0.0047006599999999997 * fVec17[((IOTA - 13) & 127)]) + ((2.4513200000000001e-05 * fVec17[((IOTA - 11) & 127)]) + ((0.00016840400000000001 * fVec17[((IOTA - 10) & 127)]) + ((1.7683500000000001e-05 * fVec17[((IOTA - 8) & 127)]) + ((7.4087300000000005e-05 * fVec17[((IOTA - 7) & 127)]) + ((0.00013083600000000001 * fVec17[((IOTA - 5) & 127)]) + ((0.00014402999999999999 * fVec17[((IOTA - 4) & 127)]) + ((3.4461000000000001e-05 * fVec17[((IOTA - 1) & 127)]) + ((5.6117600000000006e-05 * fVec17[((IOTA - 103) & 127)]) + ((0.00064464300000000008 * fVec17[((IOTA - 102) & 127)]) + ((6.57163e-05 * fVec17[((IOTA - 101) & 127)]) + ((0.00043101500000000003 * fVec17[((IOTA - 98) & 127)]) + ((0.00047464100000000004 * fVec17[((IOTA - 97) & 127)]) + ((0.00050108599999999998 * fVec17[((IOTA - 96) & 127)]) + ((0.00035622799999999999 * fVec17[((IOTA - 95) & 127)]) + ((0.000189175 * fVec17[((IOTA - 94) & 127)]) + ((0.000113763 * fVec17[((IOTA - 93) & 127)]) + ((0.00014460699999999999 * fVec17[((IOTA - 89) & 127)]) + ((0.00064626400000000002 * fVec17[((IOTA - 88) & 127)]) + ((0.00034561500000000002 * fVec17[((IOTA - 87) & 127)]) + ((4.3969300000000004e-08 * fVec18[((IOTA - 126) & 127)]) + ((4.9046399999999999e-05 * fVec18[((IOTA - 121) & 127)]) + ((3.5164200000000005e-05 * fVec18[((IOTA - 120) & 127)]) + ((6.5718700000000005e-05 * fVec18[((IOTA - 113) & 127)]) + ((9.8145199999999987e-06 * fVec18[((IOTA - 104) & 127)]) + ((0.00047854099999999997 * fVec18[((IOTA - 102) & 127)]) + ((0.00058713800000000007 * fVec18[((IOTA - 101) & 127)]) + ((0.00063487900000000009 * fVec18[((IOTA - 97) & 127)]) + ((0.00084097399999999998 * fVec18[((IOTA - 96) & 127)]) + ((0.00060218900000000004 * fVec18[((IOTA - 95) & 127)]) + ((0.000719178 * fVec18[((IOTA - 94) & 127)]) + ((0.00049947400000000008 * fVec18[((IOTA - 93) & 127)]) + ((5.7074400000000004e-05 * fVec18[((IOTA - 91) & 127)]) + ((0.00063668800000000005 * fVec18[((IOTA - 90) & 127)]) + ((0.00050174400000000004 * fVec18[((IOTA - 89) & 127)]) + ((0.00104393 * fVec18[((IOTA - 85) & 127)]) + ((0.00032165200000000002 * fVec18[((IOTA - 84) & 127)]) + ((0.0032504600000000002 * fVec18[((IOTA - 55) & 127)]) + ((0.0033312400000000001 * fVec18[((IOTA - 54) & 127)]) + ((0.0029572000000000001 * fVec18[((IOTA - 48) & 127)]) + ((0.0024246099999999998 * fVec18[((IOTA - 47) & 127)]) + ((0.00076525699999999998 * fVec18[((IOTA - 44) & 127)]) + ((0.00030002700000000002 * fVec18[((IOTA - 43) & 127)]) + ((0.0016828099999999999 * fVec18[((IOTA - 41) & 127)]) + ((0.0073388400000000001 * fVec18[((IOTA - 40) & 127)]) + ((0.0047153500000000001 * fVec18[((IOTA - 39) & 127)]) + ((0.0065382999999999995 * fVec18[((IOTA - 35) & 127)]) + ((0.00229415 * fVec18[((IOTA - 30) & 127)]) + ((0.010495000000000001 * fVec18[((IOTA - 29) & 127)]) + ((0.026362800000000002 * fVec18[((IOTA - 28) & 127)]) + ((0.0036550699999999998 * fVec18[((IOTA - 27) & 127)]) + ((0.00058345500000000008 * fVec18[((IOTA - 26) & 127)]) + ((0.019277900000000001 * fVec18[((IOTA - 23) & 127)]) + ((0.0184233 * fVec18[((IOTA - 22) & 127)]) + ((0.027672400000000003 * fVec18[((IOTA - 21) & 127)]) + ((0.010700899999999999 * fVec18[((IOTA - 20) & 127)]) + ((0.00049956899999999995 * fVec18[((IOTA - 19) & 127)]) + ((0.0033817300000000003 * fVec18[((IOTA - 14) & 127)]) + ((0.015114300000000001 * fVec18[((IOTA - 13) & 127)]) + ((0.020861999999999999 * fVec18[((IOTA - 12) & 127)]) + ((0.0053441599999999997 * fVec18[((IOTA - 11) & 127)]) + ((0.00123547 * fVec18[((IOTA - 9) & 127)]) + ((0.00040391500000000002 * fVec18[((IOTA - 7) & 127)]) + ((1.7806500000000003e-05 * fVec18[((IOTA - 6) & 127)]) + ((0.00048888700000000002 * fVec18[((IOTA - 5) & 127)]) + ((0.00015141300000000001 * fVec18[((IOTA - 3) & 127)]) + ((0.00029105500000000002 * fVec18[((IOTA - 62) & 127)]) + ((4.5806199999999998e-08 * fVec19[((IOTA - 126) & 127)]) + ((0.00130389 * fVec18[((IOTA - 81) & 127)]) + ((0.00015988800000000001 * fVec18[((IOTA - 80) & 127)]) + ((0.00030389300000000001 * fVec18[((IOTA - 77) & 127)]) + ((0.0007704150000000001 * fVec18[((IOTA - 76) & 127)]) + ((0.0019725599999999999 * fVec18[((IOTA - 71) & 127)]) + ((0.0010789299999999999 * fVec18[((IOTA - 70) & 127)]) + ((0.0017741899999999999 * fVec18[((IOTA - 69) & 127)]) + ((0.00083747600000000008 * fVec18[((IOTA - 66) & 127)]) + ((0.00093810300000000014 * fVec18[((IOTA - 65) & 127)]) + ((0.00207858 * fVec18[((IOTA - 64) & 127)]) + ((0.00137382 * fVec18[((IOTA - 63) & 127)]) + ((0.0019089600000000001 * fVec18[((IOTA - 59) & 127)]) + ((0.0028430399999999998 * fVec18[((IOTA - 58) & 127)]) + ((0.000467777 * fVec19[((IOTA - 4) & 127)]) + ((0.00037799999999999997 * fVec19[((IOTA - 3) & 127)]) + ((1.3991200000000001e-05 * fTemp19) + ((0.019317500000000001 * fVec20[((IOTA - 14) & 127)]) + ((0.0043390899999999994 * fVec20[((IOTA - 12) & 127)]) + ((0.0015058000000000001 * fVec20[((IOTA - 11) & 127)]) + ((0.00027456800000000005 * fVec20[((IOTA - 10) & 127)]) + ((0.00045164799999999997 * fVec20[((IOTA - 9) & 127)]) + ((0.00077579600000000004 * fVec20[((IOTA - 7) & 127)]) + ((0.00115678 * fVec20[((IOTA - 5) & 127)]) + ((0.000375048 * fVec20[((IOTA - 3) & 127)]) + ((5.7016799999999999e-05 * fVec20[((IOTA - 1) & 127)]) + ((5.9764499999999998e-07 * fVec19[((IOTA - 124) & 127)]) + ((6.2516899999999999e-06 * fVec19[((IOTA - 123) & 127)]) + ((4.5404499999999999e-06 * fVec19[((IOTA - 122) & 127)]) + ((3.3129100000000001e-05 * fVec19[((IOTA - 107) & 127)]) + ((0.00037957800000000004 * fVec19[((IOTA - 104) & 127)]) + ((9.1390300000000012e-05 * fVec19[((IOTA - 103) & 127)]) + ((0.00012164900000000001 * fVec19[((IOTA - 102) & 127)]) + ((7.2862900000000003e-05 * fVec19[((IOTA - 100) & 127)]) + ((0.00075476100000000006 * fVec19[((IOTA - 99) & 127)]) + ((0.0011213599999999998 * fVec19[((IOTA - 98) & 127)]) + ((0.00048859700000000001 * fVec19[((IOTA - 97) & 127)]) + ((0.00057772600000000009 * fVec19[((IOTA - 96) & 127)]) + ((0.0010992299999999999 * fVec19[((IOTA - 95) & 127)]) + ((0.00136867 * fVec19[((IOTA - 94) & 127)]) + ((0.0024769499999999999 * fVec19[((IOTA - 93) & 127)]) + ((0.0017141299999999999 * fVec19[((IOTA - 92) & 127)]) + ((0.00099528400000000014 * fVec19[((IOTA - 91) & 127)]) + ((0.00072564299999999999 * fVec19[((IOTA - 90) & 127)]) + ((0.00049014600000000001 * fVec19[((IOTA - 89) & 127)]) + ((0.00028476100000000002 * fVec19[((IOTA - 88) & 127)]) + ((5.4113300000000009e-05 * fVec19[((IOTA - 85) & 127)]) + ((0.00064926500000000011 * fVec19[((IOTA - 84) & 127)]) + ((0.00090145900000000007 * fVec19[((IOTA - 83) & 127)]) + ((0.00074948899999999999 * fVec19[((IOTA - 82) & 127)]) + ((0.00034548700000000001 * fVec19[((IOTA - 78) & 127)]) + ((0.0015595699999999999 * fVec19[((IOTA - 72) & 127)]) + ((0.00125158 * fVec19[((IOTA - 71) & 127)]) + ((0.0020382500000000001 * fVec19[((IOTA - 70) & 127)]) + ((0.0018769700000000002 * fVec19[((IOTA - 69) & 127)]) + ((0.00043826000000000005 * fVec19[((IOTA - 64) & 127)]) + ((0.00192213 * fVec19[((IOTA - 63) & 127)]) + ((0.0040995700000000003 * fVec19[((IOTA - 59) & 127)]) + ((0.0060987200000000002 * fVec19[((IOTA - 58) & 127)]) + ((0.0022176000000000001 * fVec19[((IOTA - 57) & 127)]) + ((0.00212824 * fVec19[((IOTA - 54) & 127)]) + ((0.0032781899999999998 * fVec19[((IOTA - 53) & 127)]) + ((9.5596100000000004e-05 * fVec19[((IOTA - 50) & 127)]) + ((0.0014545300000000001 * fVec19[((IOTA - 46) & 127)]) + ((0.0038625300000000003 * fVec19[((IOTA - 45) & 127)]) + ((0.0017145699999999999 * fVec19[((IOTA - 44) & 127)]) + ((0.0079508400000000007 * fVec19[((IOTA - 41) & 127)]) + ((0.009358169999999999 * fVec19[((IOTA - 40) & 127)]) + ((0.0094388700000000002 * fVec19[((IOTA - 32) & 127)]) + ((0.0081053099999999993 * fVec19[((IOTA - 31) & 127)]) + ((0.0247297 * fVec19[((IOTA - 27) & 127)]) + ((0.019441400000000001 * fVec19[((IOTA - 26) & 127)]) + ((0.0026723599999999999 * fVec19[((IOTA - 25) & 127)]) + ((0.074936900000000001 * fVec19[((IOTA - 22) & 127)]) + ((0.0218175 * fVec19[((IOTA - 21) & 127)]) + ((0.014052500000000001 * fVec19[((IOTA - 17) & 127)]) + ((0.032805500000000001 * fVec19[((IOTA - 16) & 127)]) + ((0.00195027 * fVec19[((IOTA - 15) & 127)]) + ((0.017061400000000001 * fVec19[((IOTA - 12) & 127)]) + ((0.00028077500000000003 * fVec19[((IOTA - 10) & 127)]) + ((0.00020304900000000001 * fVec19[((IOTA - 9) & 127)]) + ((0.00028114900000000001 * fVec19[((IOTA - 8) & 127)]) + ((0.00075311200000000001 * fVec19[((IOTA - 7) & 127)]) + ((1.1421399999999999e-06 * fVec20[((IOTA - 126) & 127)]) + ((6.1312800000000004e-06 * fVec20[((IOTA - 125) & 127)]) + ((1.8821000000000002e-05 * fVec20[((IOTA - 121) & 127)]) + ((3.69637e-05 * fVec20[((IOTA - 120) & 127)]) + ((0.00019845400000000001 * fVec20[((IOTA - 116) & 127)]) + ((1.2745400000000002e-05 * fVec20[((IOTA - 112) & 127)]) + ((0.000173661 * fVec20[((IOTA - 111) & 127)]) + ((3.7430900000000001e-05 * fVec20[((IOTA - 110) & 127)]) + ((3.8990300000000005e-05 * fVec20[((IOTA - 108) & 127)]) + ((0.00024954200000000006 * fVec20[((IOTA - 107) & 127)]) + ((0.00027521800000000003 * fVec20[((IOTA - 106) & 127)]) + ((3.6057999999999998e-06 * fVec20[((IOTA - 105) & 127)]) + ((0.00029303599999999999 * fVec20[((IOTA - 103) & 127)]) + ((0.00076291800000000002 * fVec20[((IOTA - 102) & 127)]) + ((0.00051647800000000001 * fVec20[((IOTA - 101) & 127)]) + ((0.061774100000000005 * fVec20[((IOTA - 19) & 127)]) + ((0.00040501500000000005 * fVec20[((IOTA - 97) & 127)]) + ((0.00046903899999999998 * fVec20[((IOTA - 94) & 127)]) + ((0.0023897499999999999 * fVec20[((IOTA - 93) & 127)]) + ((0.00074860400000000004 * fVec20[((IOTA - 90) & 127)]) + ((0.00089415600000000012 * fVec20[((IOTA - 89) & 127)]) + ((2.9381300000000003e-05 * fVec20[((IOTA - 88) & 127)]) + ((0.0013978900000000002 * fVec20[((IOTA - 85) & 127)]) + ((0.00145937 * fVec20[((IOTA - 84) & 127)]) + ((0.0012423599999999999 * fVec20[((IOTA - 81) & 127)]) + ((0.00270412 * fVec20[((IOTA - 80) & 127)]) + ((0.0023507600000000003 * fVec20[((IOTA - 79) & 127)]) + ((0.0022935899999999999 * fVec20[((IOTA - 75) & 127)]) + ((0.00059835300000000004 * fVec20[((IOTA - 74) & 127)]) + ((0.00030100100000000001 * fVec20[((IOTA - 68) & 127)]) + ((0.00073815999999999997 * fVec20[((IOTA - 67) & 127)]) + ((6.6901800000000004e-05 * fVec20[((IOTA - 62) & 127)]) + ((0.00028901300000000002 * fVec20[((IOTA - 61) & 127)]) + ((0.00109084 * fVec20[((IOTA - 59) & 127)]) + ((0.00178498 * fVec20[((IOTA - 58) & 127)]) + ((0.00151166 * fVec20[((IOTA - 57) & 127)]) + ((0.0025656400000000001 * fVec20[((IOTA - 56) & 127)]) + ((0.00030762600000000003 * fVec20[((IOTA - 55) & 127)]) + ((0.0020867200000000002 * fVec20[((IOTA - 54) & 127)]) + ((0.0025482200000000003 * fVec20[((IOTA - 53) & 127)]) + ((0.00167453 * fVec20[((IOTA - 52) & 127)]) + ((0.0023747 * fVec20[((IOTA - 51) & 127)]) + ((0.0022410199999999998 * fVec20[((IOTA - 50) & 127)]) + ((0.0055318300000000006 * fVec20[((IOTA - 46) & 127)]) + ((0.0023482899999999998 * fVec20[((IOTA - 45) & 127)]) + ((0.0034206599999999998 * fVec20[((IOTA - 42) & 127)]) + ((0.00188773 * fVec20[((IOTA - 41) & 127)]) + ((0.00072377599999999998 * fVec20[((IOTA - 39) & 127)]) + ((0.0024612599999999998 * fVec20[((IOTA - 38) & 127)]) + ((0.0033621900000000001 * fVec20[((IOTA - 37) & 127)]) + ((0.0033196100000000002 * fVec20[((IOTA - 36) & 127)]) + ((0.013694999999999999 * fVec20[((IOTA - 33) & 127)]) + ((0.012183600000000001 * fVec20[((IOTA - 32) & 127)]) + ((0.0070372400000000002 * fVec20[((IOTA - 29) & 127)]) + ((0.0085312900000000004 * fVec20[((IOTA - 28) & 127)]) + ((0.034597700000000002 * fVec20[((IOTA - 27) & 127)]) + ((0.016548 * fVec20[((IOTA - 23) & 127)]) + ((0.036212899999999999 * fVec20[((IOTA - 22) & 127)]) + ((1.28309e-06 * fVec21[((IOTA - 126) & 127)]) + ((2.87072e-06 * fVec21[((IOTA - 125) & 127)]) + ((1.3474999999999998e-06 * fVec21[((IOTA - 123) & 127)]) + ((3.5239900000000001e-05 * fVec21[((IOTA - 122) & 127)]) + ((1.4600800000000001e-05 * fVec21[((IOTA - 121) & 127)]) + ((5.8902200000000007e-05 * fVec21[((IOTA - 117) & 127)]) + ((7.3645299999999999e-06 * fVec21[((IOTA - 116) & 127)]) + ((0.000124213 * fVec21[((IOTA - 110) & 127)]) + ((6.7869599999999998e-05 * fVec21[((IOTA - 109) & 127)]) + ((0.000275636 * fVec21[((IOTA - 108) & 127)]) + ((0.00037599500000000001 * fVec21[((IOTA - 105) & 127)]) + ((0.00024762699999999999 * fVec21[((IOTA - 104) & 127)]) + ((0.000109887 * fVec21[((IOTA - 103) & 127)]) + ((0.00031391399999999999 * fVec21[((IOTA - 101) & 127)]) + ((0.0005165250000000001 * fVec21[((IOTA - 100) & 127)]) + ((3.8421000000000004e-05 * fVec21[((IOTA - 98) & 127)]) + ((0.00116917 * fVec21[((IOTA - 97) & 127)]) + ((0.0020289700000000002 * fVec21[((IOTA - 96) & 127)]) + ((0.00126756 * fVec21[((IOTA - 95) & 127)]) + ((0.00017397199999999999 * fVec21[((IOTA - 91) & 127)]) + ((0.0024624500000000001 * fVec21[((IOTA - 90) & 127)]) + ((0.0019107600000000001 * fVec21[((IOTA - 89) & 127)]) + ((0.0018574600000000002 * fVec21[((IOTA - 86) & 127)]) + ((0.0024842200000000001 * fVec21[((IOTA - 85) & 127)]) + ((2.4123700000000004e-05 * fVec21[((IOTA - 84) & 127)]) + ((0.00024932600000000002 * fVec21[((IOTA - 83) & 127)]) + ((0.00045661800000000005 * fVec21[((IOTA - 79) & 127)]) + ((0.00079671800000000008 * fVec21[((IOTA - 78) & 127)]) + ((0.00239427 * fVec21[((IOTA - 77) & 127)]) + ((0.0023235999999999999 * fVec21[((IOTA - 76) & 127)]) + ((0.0025652599999999998 * fVec21[((IOTA - 75) & 127)]) + ((0.036144099999999998 * fVec21[((IOTA - 18) & 127)]) + ((0.0041613600000000002 * fVec21[((IOTA - 15) & 127)]) + ((0.012642199999999999 * fVec21[((IOTA - 12) & 127)]) + ((0.00039501900000000003 * fVec21[((IOTA - 10) & 127)]) + ((0.0015795300000000002 * fVec21[((IOTA - 9) & 127)]) + ((0.00049500200000000003 * fVec21[((IOTA - 6) & 127)]) + ((0.00057567300000000007 * fVec21[((IOTA - 5) & 127)]) + ((0.00027081499999999999 * fVec21[((IOTA - 3) & 127)]) + ((7.1774599999999992e-06 * fVec21[((IOTA - 2) & 127)]) + ((1.2802800000000002e-05 * fVec21[((IOTA - 1) & 127)]) + ((3.72465e-06 * fTemp21) + ((0.012572000000000002 * fVec21[((IOTA - 26) & 127)]) + ((0.0013604799999999998 * fVec21[((IOTA - 24) & 127)]) + ((0.0029567700000000001 * fVec21[((IOTA - 23) & 127)]) + ((0.0026263800000000002 * fVec21[((IOTA - 22) & 127)]) + ((0.021428799999999998 * fVec21[((IOTA - 21) & 127)]) + ((0.0022557499999999999 * fVec21[((IOTA - 74) & 127)]) + ((0.000148732 * fVec21[((IOTA - 73) & 127)]) + ((0.000211924 * fVec21[((IOTA - 68) & 127)]) + ((0.0036126499999999998 * fVec21[((IOTA - 67) & 127)]) + ((4.2760100000000004e-05 * fVec21[((IOTA - 66) & 127)]) + ((0.00138174 * fVec21[((IOTA - 65) & 127)]) + ((0.00104509 * fVec21[((IOTA - 64) & 127)]) + ((4.0581600000000005e-05 * fVec21[((IOTA - 63) & 127)]) + ((0.0013407899999999999 * fVec21[((IOTA - 62) & 127)]) + ((0.0018573200000000002 * fVec21[((IOTA - 61) & 127)]) + ((0.00175925 * fVec21[((IOTA - 60) & 127)]) + ((0.00085908300000000007 * fVec21[((IOTA - 51) & 127)]) + ((0.0041468100000000008 * fVec21[((IOTA - 50) & 127)]) + ((0.00258888 * fVec21[((IOTA - 49) & 127)]) + ((0.0016738 * fVec21[((IOTA - 48) & 127)]) + ((0.0027436699999999997 * fVec21[((IOTA - 47) & 127)]) + ((0.0057636700000000003 * fVec21[((IOTA - 42) & 127)]) + ((0.00084519300000000016 * fVec21[((IOTA - 41) & 127)]) + ((0.0065382800000000005 * fVec21[((IOTA - 37) & 127)]) + ((0.0033053900000000001 * fVec21[((IOTA - 35) & 127)]) + ((0.013110500000000001 * fVec21[((IOTA - 32) & 127)]) + ((0.0012610900000000001 * fVec21[((IOTA - 30) & 127)]) + ((0.0011880900000000002 * fVec21[((IOTA - 27) & 127)]) + ((1.07446e-06 * fVec22[((IOTA - 125) & 127)]) + ((9.5882799999999996e-06 * fVec22[((IOTA - 124) & 127)]) + ((8.4472900000000006e-06 * fVec22[((IOTA - 123) & 127)]) + ((9.2338799999999984e-06 * fVec22[((IOTA - 121) & 127)]) + ((1.7718900000000001e-05 * fVec22[((IOTA - 120) & 127)]) + ((7.1736100000000013e-05 * fVec22[((IOTA - 117) & 127)]) + ((3.1738400000000003e-06 * fVec22[((IOTA - 116) & 127)]) + ((9.0475300000000011e-05 * fVec22[((IOTA - 112) & 127)]) + ((0.00015947800000000001 * fVec22[((IOTA - 111) & 127)]) + ((0.00017410300000000002 * fVec22[((IOTA - 107) & 127)]) + ((0.00022612700000000001 * fVec22[((IOTA - 106) & 127)]) + ((9.8550200000000011e-05 * fVec22[((IOTA - 105) & 127)]) + ((0.00026838000000000003 * fVec22[((IOTA - 104) & 127)]) + ((0.00025552300000000001 * fVec22[((IOTA - 103) & 127)]) + ((0.00062636099999999998 * fVec22[((IOTA - 99) & 127)]) + ((0.00118519 * fVec22[((IOTA - 98) & 127)]) + ((0.00090719900000000003 * fVec22[((IOTA - 95) & 127)]) + ((0.00178987 * fVec22[((IOTA - 94) & 127)]) + ((0.00072873000000000002 * fVec22[((IOTA - 93) & 127)]) + ((0.0021940599999999998 * fVec22[((IOTA - 68) & 127)]) + ((0.0055132499999999999 * fVec22[((IOTA - 67) & 127)]) + ((0.0050680600000000001 * fVec22[((IOTA - 66) & 127)]) + ((0.00140544 * fVec22[((IOTA - 65) & 127)]) + ((0.00038257900000000002 * fVec22[((IOTA - 63) & 127)]) + ((0.00150672 * fVec22[((IOTA - 62) & 127)]) + ((0.0023892500000000003 * fVec22[((IOTA - 54) & 127)]) + ((0.0010502300000000001 * fVec22[((IOTA - 50) & 127)]) + ((0.0027733100000000002 * fVec22[((IOTA - 49) & 127)]) + ((0.00084151500000000014 * fVec22[((IOTA - 48) & 127)]) + ((0.00099086200000000012 * fVec22[((IOTA - 45) & 127)]) + ((0.0033490500000000001 * fVec22[((IOTA - 44) & 127)]) + ((0.00158416 * fVec22[((IOTA - 43) & 127)]) + ((0.0036774399999999997 * fVec22[((IOTA - 42) & 127)]) + ((0.00271587 * fVec22[((IOTA - 40) & 127)]) + ((0.0054552100000000003 * fVec22[((IOTA - 39) & 127)]) + ((0.0091737099999999999 * fVec22[((IOTA - 36) & 127)]) + ((0.013223499999999999 * fVec22[((IOTA - 35) & 127)]) + ((0.00116439 * fVec22[((IOTA - 34) & 127)]) + ((0.028504700000000001 * fVec22[((IOTA - 31) & 127)]) + ((0.0322688 * fVec22[((IOTA - 30) & 127)]) + ((0.010072300000000001 * fVec22[((IOTA - 26) & 127)]) + ((0.0049182499999999999 * fVec22[((IOTA - 23) & 127)]) + ((0.025481600000000004 * fVec22[((IOTA - 21) & 127)]) + ((0.042283299999999996 * fVec22[((IOTA - 20) & 127)]) + ((0.0102863 * fVec22[((IOTA - 19) & 127)]) + ((0.0085219000000000007 * fVec22[((IOTA - 17) & 127)]) + ((0.022074799999999999 * fVec22[((IOTA - 16) & 127)]) + ((0.023820100000000004 * fVec22[((IOTA - 12) & 127)]) + ((0.011093200000000001 * fVec22[((IOTA - 11) & 127)]) + ((0.0033972199999999998 * fVec22[((IOTA - 9) & 127)]) + ((0.00352222 * fVec22[((IOTA - 7) & 127)]) + ((0.0012450900000000001 * fVec22[((IOTA - 5) & 127)]) + ((0.00077165999999999997 * fVec22[((IOTA - 3) & 127)]) + ((0.0013969 * fVec22[((IOTA - 77) & 127)]) + ((0.0015445700000000001 * fVec22[((IOTA - 76) & 127)]) + ((0.00205112 * fVec22[((IOTA - 86) & 127)]) + ((0.00010376700000000001 * (fVec23[((IOTA - 71) & 127)] - fVec24[((IOTA - 119) & 127)])) + ((0.00221638 * fVec22[((IOTA - 85) & 127)]) + ((0.0010048800000000001 * fVec22[((IOTA - 84) & 127)]) + ((0.00078622900000000005 * fVec22[((IOTA - 80) & 127)]) + ((1.4034199999999999e-06 * fVec25[((IOTA - 126) & 127)]) + ((1.2211099999999999e-06 * fVec25[((IOTA - 125) & 127)]) + ((1.2893400000000001e-05 * fVec25[((IOTA - 124) & 127)]) + ((2.6002200000000003e-05 * fVec25[((IOTA - 123) & 127)]) + ((2.6415500000000001e-05 * fVec25[((IOTA - 122) & 127)]) + ((2.8177200000000002e-05 * fVec25[((IOTA - 121) & 127)]) + ((1.2612900000000001e-05 * fVec25[((IOTA - 120) & 127)]) + ((3.0230399999999999e-06 * fVec22[((IOTA - 75) & 127)]) + ((0.00041671500000000006 * fVec25[((IOTA - 104) & 127)]) + ((0.00031062500000000003 * fVec25[((IOTA - 100) & 127)]) + ((7.3607000000000002e-05 * fVec25[((IOTA - 99) & 127)]) + ((0.00050056999999999999 * fVec25[((IOTA - 96) & 127)]) + ((0.0027204999999999998 * fVec25[((IOTA - 95) & 127)]) + ((0.0020446800000000001 * fVec25[((IOTA - 94) & 127)]) + ((8.3015299999999998e-05 * fVec25[((IOTA - 93) & 127)]) + ((0.0022225799999999996 * fVec25[((IOTA - 92) & 127)]) + ((0.0024016700000000003 * fVec25[((IOTA - 91) & 127)]) + ((0.00063865800000000006 * fVec25[((IOTA - 86) & 127)]) + ((0.00058693299999999999 * fVec25[((IOTA - 84) & 127)]) + ((0.00042316100000000002 * fVec25[((IOTA - 80) & 127)]) + ((0.0010148100000000001 * fVec25[((IOTA - 79) & 127)]) + ((0.00028691900000000001 * fVec25[((IOTA - 73) & 127)]) + ((0.0021912699999999999 * fVec25[((IOTA - 72) & 127)]) + ((0.00113353 * fVec25[((IOTA - 71) & 127)]) + ((0.000557951 * fVec25[((IOTA - 66) & 127)]) + ((0.00043863399999999997 * fVec25[((IOTA - 63) & 127)]) + ((0.00314139 * fVec25[((IOTA - 62) & 127)]) + ((0.0052284000000000002 * fVec25[((IOTA - 61) & 127)]) + ((0.0025010699999999998 * fVec25[((IOTA - 60) & 127)]) + ((0.0012393300000000001 * fVec25[((IOTA - 57) & 127)]) + ((0.0018594100000000001 * fVec25[((IOTA - 54) & 127)]) + ((0.0034922200000000003 * fVec25[((IOTA - 53) & 127)]) + ((0.00127944 * fVec25[((IOTA - 52) & 127)]) + ((0.0016422699999999999 * fVec25[((IOTA - 51) & 127)]) + ((0.00289419 * fVec25[((IOTA - 50) & 127)]) + ((0.0053105499999999998 * fVec25[((IOTA - 49) & 127)]) + ((0.0065292000000000006 * fVec25[((IOTA - 48) & 127)]) + ((0.00110392 * fVec25[((IOTA - 47) & 127)]) + ((0.0039351999999999998 * fVec25[((IOTA - 42) & 127)]) + ((0.00132128 * fVec25[((IOTA - 41) & 127)]) + ((0.0068892700000000003 * fVec25[((IOTA - 39) & 127)]) + ((0.0013770800000000001 * fVec25[((IOTA - 38) & 127)]) + ((0.031043400000000002 * fVec25[((IOTA - 30) & 127)]) + ((0.0012180400000000001 * fVec25[((IOTA - 29) & 127)]) + ((0.026485700000000001 * fVec25[((IOTA - 26) & 127)]) + ((0.026438899999999998 * fVec25[((IOTA - 23) & 127)]) + ((0.0094311100000000012 * fVec25[((IOTA - 22) & 127)]) + ((0.0253549 * fVec25[((IOTA - 21) & 127)]) + ((0.034643899999999998 * fVec25[((IOTA - 20) & 127)]) + ((0.0140976 * fVec25[((IOTA - 19) & 127)]) + ((0.00406018 * fVec25[((IOTA - 16) & 127)]) + ((0.019651700000000001 * fVec25[((IOTA - 12) & 127)]) + ((0.0098021300000000009 * fVec25[((IOTA - 11) & 127)]) + ((0.00308077 * fVec25[((IOTA - 9) & 127)]) + ((0.00323953 * fVec25[((IOTA - 7) & 127)]) + ((0.0012123500000000001 * fVec25[((IOTA - 5) & 127)]) + ((0.000682276 * fVec25[((IOTA - 3) & 127)]) + ((4.4620600000000002e-07 * fVec24[((IOTA - 126) & 127)]) + ((2.9040900000000002e-05 * fVec24[((IOTA - 122) & 127)]) + ((3.3390499999999998e-05 * fVec24[((IOTA - 121) & 127)]) + ((2.7818400000000001e-05 * fVec24[((IOTA - 118) & 127)]) + ((1.2691900000000001e-05 * fVec24[((IOTA - 113) & 127)]) + ((0.00037104300000000005 * fVec24[((IOTA - 111) & 127)]) + ((0.00041838800000000006 * fVec24[((IOTA - 110) & 127)]) + ((0.00057686100000000002 * fVec24[((IOTA - 106) & 127)]) + ((0.00059161900000000004 * fVec24[((IOTA - 105) & 127)]) + ((0.00049454399999999997 * fVec24[((IOTA - 104) & 127)]) + ((0.00107274 * fVec24[((IOTA - 85) & 127)]) + ((0.00062359600000000002 * fVec24[((IOTA - 80) & 127)]) + ((0.000178293 * fVec24[((IOTA - 79) & 127)]) + ((0.00080254300000000007 * fVec24[((IOTA - 76) & 127)]) + ((0.00065406300000000008 * fVec24[((IOTA - 68) & 127)]) + ((0.00014068899999999999 * fVec24[((IOTA - 67) & 127)]) + ((0.0019257899999999999 * fVec24[((IOTA - 65) & 127)]) + ((0.00162886 * fVec24[((IOTA - 64) & 127)]) + ((0.00050768500000000002 * fVec24[((IOTA - 63) & 127)]) + ((0.0025198 * fVec24[((IOTA - 60) & 127)]) + ((0.00117113 * fVec24[((IOTA - 59) & 127)]) + ((0.00015039900000000001 * fVec24[((IOTA - 58) & 127)]) + ((0.000455995 * fVec24[((IOTA - 56) & 127)]) + ((0.00278239 * fVec24[((IOTA - 55) & 127)]) + ((0.0010278799999999999 * fVec24[((IOTA - 54) & 127)]) + ((0.011156999999999999 * fVec24[((IOTA - 45) & 127)]) + ((0.0043641399999999999 * fVec24[((IOTA - 44) & 127)]) + ((0.0039441099999999998 * fVec24[((IOTA - 42) & 127)]) + ((0.0097659400000000007 * fVec24[((IOTA - 39) & 127)]) + ((0.0076369999999999997 * fVec24[((IOTA - 36) & 127)]) + ((0.015424400000000001 * fVec24[((IOTA - 35) & 127)]) + ((0.0018063700000000001 * fVec24[((IOTA - 32) & 127)]) + ((0.00736515 * fVec24[((IOTA - 31) & 127)]) + ((0.0126468 * fVec24[((IOTA - 30) & 127)]) + ((0.0011752499999999999 * fVec24[((IOTA - 27) & 127)]) + ((0.022162999999999999 * fVec24[((IOTA - 26) & 127)]) + ((0.0071126699999999998 * fVec24[((IOTA - 25) & 127)]) + ((0.018755900000000002 * fVec24[((IOTA - 24) & 127)]) + ((0.0013016799999999999 * fVec24[((IOTA - 23) & 127)]) + ((0.0137094 * fVec24[((IOTA - 21) & 127)]) + ((0.024051599999999999 * fVec24[((IOTA - 18) & 127)]) + ((0.015724599999999998 * fVec24[((IOTA - 15) & 127)]) + ((0.014135400000000001 * fVec24[((IOTA - 12) & 127)]) + ((0.0011849499999999999 * fVec24[((IOTA - 9) & 127)]) + ((0.00070355200000000008 * fVec24[((IOTA - 7) & 127)]) + ((5.9634000000000005e-05 * fVec24[((IOTA - 6) & 127)]) + ((0.000133299 * fVec24[((IOTA - 5) & 127)]) + ((0.00039401200000000001 * fVec24[((IOTA - 3) & 127)]) + ((3.0720999999999999e-05 * fVec24[((IOTA - 1) & 127)]) + ((8.3709499999999999e-06 * fTemp24) + ((0.00154597 * fVec24[((IOTA - 89) & 127)]) + ((0.00061440799999999999 * fVec24[((IOTA - 103) & 127)]) + ((0.00061735800000000003 * fVec24[((IOTA - 102) & 127)]) + ((0.000728026 * fVec24[((IOTA - 101) & 127)]) + ((0.00038062800000000004 * fVec24[((IOTA - 100) & 127)]) + ((0.00062138299999999998 * fVec24[((IOTA - 99) & 127)]) + ((0.00075514600000000005 * fVec24[((IOTA - 98) & 127)]) + ((0.00067549000000000005 * fVec24[((IOTA - 88) & 127)]) + ((0.0011730600000000001 * fVec24[((IOTA - 95) & 127)]) + ((0.0016346700000000002 * fVec24[((IOTA - 94) & 127)]) + ((0.0021457000000000004 * fVec24[((IOTA - 93) & 127)]) + ((0.0025975199999999999 * fVec24[((IOTA - 92) & 127)]) + ((0.00015330900000000002 * fVec24[((IOTA - 91) & 127)]) + ((3.0765800000000003e-05 * fVec26[((IOTA - 119) & 127)]) + ((7.0563399999999996e-05 * fVec26[((IOTA - 118) & 127)]) + ((1.38519e-05 * fVec26[((IOTA - 115) & 127)]) + ((0.00014198999999999999 * fVec26[((IOTA - 114) & 127)]) + ((9.8497200000000003e-05 * fVec26[((IOTA - 113) & 127)]) + ((0.000185267 * fVec26[((IOTA - 112) & 127)]) + ((9.1395000000000002e-05 * fVec26[((IOTA - 111) & 127)]) + ((8.0491800000000001e-05 * fVec26[((IOTA - 110) & 127)]) + ((0.00064522800000000008 * fVec26[((IOTA - 109) & 127)]) + ((0.00058569100000000005 * fVec26[((IOTA - 108) & 127)]) + ((0.00033563700000000001 * fVec26[((IOTA - 107) & 127)]) + ((0.00035424600000000001 * fVec26[((IOTA - 106) & 127)]) + ((0.00062789300000000003 * fVec26[((IOTA - 105) & 127)]) + ((0.00034429799999999999 * fVec26[((IOTA - 104) & 127)]) + ((2.9823200000000003e-05 * fVec26[((IOTA - 103) & 127)]) + ((0.00061507300000000005 * fVec26[((IOTA - 102) & 127)]) + ((0.00037771400000000002 * fVec26[((IOTA - 101) & 127)]) + ((0.00015985700000000001 * fVec26[((IOTA - 100) & 127)]) + ((0.000190946 * fVec26[((IOTA - 99) & 127)]) + ((0.00050743800000000003 * fVec26[((IOTA - 98) & 127)]) + ((0.00056488300000000007 * fVec26[((IOTA - 97) & 127)]) + ((8.1509000000000009e-05 * fVec26[((IOTA - 96) & 127)]) + ((0.00037732899999999998 * fVec26[((IOTA - 95) & 127)]) + ((0.00041022299999999998 * fVec26[((IOTA - 93) & 127)]) + ((0.00085697799999999999 * fVec26[((IOTA - 92) & 127)]) + ((0.011357900000000001 * fVec26[((IOTA - 14) & 127)]) + ((0.0037318799999999999 * fVec26[((IOTA - 12) & 127)]) + ((0.0010972500000000001 * fVec26[((IOTA - 11) & 127)]) + ((6.8217500000000009e-05 * fVec26[((IOTA - 10) & 127)]) + ((0.00061125900000000006 * fVec26[((IOTA - 9) & 127)]) + ((0.00056615599999999995 * fVec26[((IOTA - 7) & 127)]) + ((0.00058234700000000009 * fVec26[((IOTA - 5) & 127)]) + ((0.000105676 * fVec26[((IOTA - 83) & 127)]) + ((0.00052492499999999998 * fVec26[((IOTA - 75) & 127)]) + ((0.0022562899999999998 * fVec26[((IOTA - 74) & 127)]) + ((0.000321723 * fVec26[((IOTA - 73) & 127)]) + ((0.00080229500000000007 * fVec26[((IOTA - 72) & 127)]) + ((0.0019222600000000001 * fVec26[((IOTA - 71) & 127)]) + ((0.0028435500000000002 * fVec26[((IOTA - 70) & 127)]) + ((4.2787900000000004e-05 * fVec26[((IOTA - 69) & 127)]) + ((0.0024381200000000002 * fVec26[((IOTA - 67) & 127)]) + ((0.0023961899999999999 * fVec26[((IOTA - 66) & 127)]) + ((0.0021430799999999999 * fVec26[((IOTA - 65) & 127)]) + ((0.0030028400000000001 * fVec26[((IOTA - 64) & 127)]) + ((0.00058073100000000002 * fVec26[((IOTA - 63) & 127)]) + ((0.0017794099999999999 * fVec26[((IOTA - 51) & 127)]) + ((0.00225201 * fVec26[((IOTA - 48) & 127)]) + ((0.0035764999999999998 * fVec26[((IOTA - 47) & 127)]) + ((0.0050062100000000005 * fVec26[((IOTA - 46) & 127)]) + ((0.00090678400000000011 * fVec26[((IOTA - 45) & 127)]) + ((0.0060474300000000003 * fVec26[((IOTA - 42) & 127)]) + ((0.0049879100000000008 * fVec26[((IOTA - 41) & 127)]) + ((0.0040529299999999997 * fVec26[((IOTA - 40) & 127)]) + ((0.0083491300000000015 * fVec26[((IOTA - 39) & 127)]) + ((0.011238600000000001 * fVec26[((IOTA - 36) & 127)]) + ((7.6854400000000007e-05 * fVec26[((IOTA - 34) & 127)]) + ((0.0100301 * fVec26[((IOTA - 33) & 127)]) + ((0.0053935399999999996 * fVec26[((IOTA - 32) & 127)]) + ((0.0073630199999999996 * fVec26[((IOTA - 28) & 127)]) + ((0.016863099999999999 * fVec26[((IOTA - 27) & 127)]) + ((0.0087242399999999994 * fVec26[((IOTA - 24) & 127)]) + ((0.027741399999999999 * fVec26[((IOTA - 22) & 127)]) + ((0.0366919 * fVec26[((IOTA - 19) & 127)]) + ((0.00027969900000000001 * fVec26[((IOTA - 3) & 127)]) + ((7.1292100000000001e-05 * fVec6[((IOTA - 115) & 127)]) + ((0.00018952700000000002 * fVec6[((IOTA - 111) & 127)]) + ((0.00035912999999999999 * fVec6[((IOTA - 110) & 127)]) + ((0.00051251200000000002 * fVec6[((IOTA - 109) & 127)]) + ((0.00046264500000000003 * fVec6[((IOTA - 108) & 127)]) + ((0.00014609200000000001 * fVec6[((IOTA - 107) & 127)]) + ((0.000122237 * fVec6[((IOTA - 106) & 127)]) + ((2.0314199999999999e-05 * fVec6[((IOTA - 105) & 127)]) + ((3.2517300000000001e-05 * fVec6[((IOTA - 104) & 127)]) + ((7.679690000000001e-05 * fVec6[((IOTA - 103) & 127)]) + ((0.00081181999999999999 * fVec6[((IOTA - 102) & 127)]) + ((0.0010270300000000002 * fVec6[((IOTA - 101) & 127)]) + ((0.00033934900000000002 * fVec6[((IOTA - 100) & 127)]) + ((0.00067179499999999999 * fVec6[((IOTA - 99) & 127)]) + ((0.0015498300000000001 * fVec6[((IOTA - 98) & 127)]) + ((0.00193557 * fVec6[((IOTA - 97) & 127)]) + ((0.0012977900000000001 * fVec6[((IOTA - 96) & 127)]) + ((0.00173953 * fVec6[((IOTA - 92) & 127)]) + ((0.0020737100000000003 * fVec6[((IOTA - 91) & 127)]) + ((0.00132314 * fVec6[((IOTA - 90) & 127)]) + ((0.00050203100000000001 * fVec6[((IOTA - 89) & 127)]) + ((4.34537e-05 * fVec26[((IOTA - 1) & 127)]) + ((2.5817700000000002e-05 * fVec6[((IOTA - 81) & 127)]) + ((0.0008419320000000001 * fVec6[((IOTA - 80) & 127)]) + ((0.00087629800000000007 * fVec6[((IOTA - 79) & 127)]) + ((4.0528500000000005e-06 * fTemp6) + ((0.022452899999999998 * fVec6[((IOTA - 16) & 127)]) + ((0.0121954 * fVec6[((IOTA - 15) & 127)]) + ((0.0109563 * fVec6[((IOTA - 12) & 127)]) + ((0.00016957000000000002 * fVec6[((IOTA - 11) & 127)]) + ((0.00010783300000000001 * fVec6[((IOTA - 10) & 127)]) + ((0.00024862500000000004 * fVec6[((IOTA - 9) & 127)]) + ((0.00084071099999999995 * fVec6[((IOTA - 7) & 127)]) + ((0.000245352 * fVec6[((IOTA - 70) & 127)]) + ((0.0012620800000000001 * fVec6[((IOTA - 69) & 127)]) + ((0.0023085100000000002 * fVec6[((IOTA - 68) & 127)]) + ((0.002405 * fVec6[((IOTA - 67) & 127)]) + ((0.0014007000000000002 * fVec6[((IOTA - 66) & 127)]) + ((0.00093808200000000002 * fVec6[((IOTA - 64) & 127)]) + ((0.0028319 * fVec6[((IOTA - 63) & 127)]) + ((0.00071589500000000003 * fVec6[((IOTA - 60) & 127)]) + ((0.0012767 * fVec6[((IOTA - 59) & 127)]) + ((0.0016556800000000001 * fVec6[((IOTA - 58) & 127)]) + ((0.0023854900000000001 * fVec6[((IOTA - 57) & 127)]) + ((0.00071006400000000005 * fVec6[((IOTA - 56) & 127)]) + ((0.0023205399999999998 * fVec6[((IOTA - 54) & 127)]) + ((0.0019624999999999998 * fVec6[((IOTA - 52) & 127)]) + ((0.0022978399999999998 * fVec6[((IOTA - 51) & 127)]) + ((0.00051752200000000008 * fVec6[((IOTA - 48) & 127)]) + ((0.0059472300000000004 * fVec6[((IOTA - 46) & 127)]) + ((0.0056101400000000004 * fVec6[((IOTA - 45) & 127)]) + ((0.00025800500000000001 * fVec6[((IOTA - 40) & 127)]) + ((0.0064505600000000001 * fVec6[((IOTA - 38) & 127)]) + ((0.014772 * fVec6[((IOTA - 34) & 127)]) + ((0.0058612900000000008 * fVec6[((IOTA - 31) & 127)]) + ((0.0057233800000000001 * fVec6[((IOTA - 28) & 127)]) + ((0.0152522 * fVec6[((IOTA - 27) & 127)]) + ((0.018531200000000001 * fVec6[((IOTA - 25) & 127)]) + ((0.044155600000000003 * fVec6[((IOTA - 22) & 127)]) + ((0.0081954799999999998 * fVec6[((IOTA - 21) & 127)]) + ((1.16687e-06 * fVec27[((IOTA - 126) & 127)]) + ((8.0474799999999991e-06 * fVec27[((IOTA - 125) & 127)]) + ((1.1716500000000002e-05 * fVec27[((IOTA - 124) & 127)]) + ((1.6095900000000003e-05 * fVec27[((IOTA - 123) & 127)]) + ((1.2353500000000001e-05 * fVec27[((IOTA - 121) & 127)]) + ((5.0538800000000005e-05 * fVec27[((IOTA - 120) & 127)]) + ((6.90663e-05 * fVec27[((IOTA - 119) & 127)]) + ((7.1261200000000008e-05 * fVec27[((IOTA - 110) & 127)]) + ((0.00013404500000000001 * fVec27[((IOTA - 107) & 127)]) + ((9.0162999999999997e-05 * fVec6[((IOTA - 4) & 127)]) + ((0.000144139 * fVec27[((IOTA - 103) & 127)]) + ((0.00074598600000000002 * fVec27[((IOTA - 102) & 127)]) + ((0.00041806100000000001 * fVec27[((IOTA - 101) & 127)]) + ((0.00036489900000000002 * fVec6[((IOTA - 3) & 127)]) + ((0.00099729399999999991 * fVec27[((IOTA - 97) & 127)]) + ((0.00072742900000000003 * fVec27[((IOTA - 96) & 127)]) + ((0.00095647000000000006 * fVec27[((IOTA - 94) & 127)]) + ((0.0019078999999999999 * fVec27[((IOTA - 93) & 127)]) + ((0.00037591000000000002 * fVec27[((IOTA - 92) & 127)]) + ((0.00091705400000000015 * fVec27[((IOTA - 91) & 127)]) + ((0.0019979199999999998 * fVec27[((IOTA - 90) & 127)]) + ((0.00084190100000000004 * fVec27[((IOTA - 89) & 127)]) + ((0.00062404300000000002 * fVec27[((IOTA - 85) & 127)]) + ((0.0010226500000000002 * fVec27[((IOTA - 84) & 127)]) + ((0.00016474200000000003 * fVec27[((IOTA - 82) & 127)]) + ((0.00111031 * fVec27[((IOTA - 81) & 127)]) + ((0.0010574600000000001 * fVec27[((IOTA - 80) & 127)]) + ((0.0012639700000000001 * fVec27[((IOTA - 77) & 127)]) + ((0.00089859899999999993 * fVec27[((IOTA - 76) & 127)]) + ((0.00095380500000000006 * fVec27[((IOTA - 72) & 127)]) + ((0.000305641 * fVec27[((IOTA - 68) & 127)]) + ((0.000773294 * fVec27[((IOTA - 67) & 127)]) + ((0.00226954 * fVec27[((IOTA - 62) & 127)]) + ((0.026200899999999999 * fVec27[((IOTA - 20) & 127)]) + ((0.0667629 * fVec27[((IOTA - 19) & 127)]) + ((0.0107382 * fVec27[((IOTA - 18) & 127)]) + ((0.0291912 * fVec27[((IOTA - 17) & 127)]) + ((0.029706100000000003 * fVec27[((IOTA - 16) & 127)]) + ((0.011985200000000001 * fVec27[((IOTA - 15) & 127)]) + ((0.00355895 * fVec27[((IOTA - 10) & 127)]) + ((0.0019467900000000001 * fVec27[((IOTA - 8) & 127)]) + ((0.00139101 * fVec27[((IOTA - 6) & 127)]) + ((0.00016791500000000001 * fVec27[((IOTA - 4) & 127)]) + ((0.00029155500000000004 * fVec27[((IOTA - 2) & 127)]) + ((0.0053291099999999997 * fVec27[((IOTA - 26) & 127)]) + ((0.0035138299999999999 * fVec27[((IOTA - 25) & 127)]) + ((0.0017599800000000002 * fVec27[((IOTA - 61) & 127)]) + ((0.00071835900000000001 * fVec27[((IOTA - 58) & 127)]) + ((0.0012819700000000001 * fVec27[((IOTA - 57) & 127)]) + ((0.000143156 * fVec27[((IOTA - 55) & 127)]) + ((0.00051545500000000006 * fVec27[((IOTA - 54) & 127)]) + ((0.00011347700000000001 * fVec27[((IOTA - 53) & 127)]) + ((0.00065408100000000004 * fVec27[((IOTA - 52) & 127)]) + ((0.0046855900000000008 * fVec27[((IOTA - 51) & 127)]) + ((0.0086597399999999991 * fVec27[((IOTA - 50) & 127)]) + ((0.0090186299999999997 * fVec27[((IOTA - 49) & 127)]) + ((0.00194699 * fVec27[((IOTA - 48) & 127)]) + ((0.00031685400000000004 * fVec27[((IOTA - 46) & 127)]) + ((0.0069549800000000004 * fVec27[((IOTA - 45) & 127)]) + ((0.011236100000000001 * fVec27[((IOTA - 44) & 127)]) + ((0.0059433200000000002 * fVec27[((IOTA - 43) & 127)]) + ((0.00041302300000000005 * fVec27[((IOTA - 40) & 127)]) + ((0.00281839 * fVec27[((IOTA - 39) & 127)]) + ((0.019649799999999999 * fVec27[((IOTA - 30) & 127)]) + ((1.3822700000000001e-06 * fVec28[((IOTA - 126) & 127)]) + ((4.3207799999999997e-06 * fVec28[((IOTA - 125) & 127)]) + ((7.0508400000000002e-07 * fVec28[((IOTA - 123) & 127)]) + ((0.024438399999999999 * fVec27[((IOTA - 22) & 127)]) + ((8.1874899999999997e-07 * fVec28[((IOTA - 122) & 127)]) + ((4.9958900000000007e-05 * fVec28[((IOTA - 121) & 127)]) + ((4.8874300000000007e-05 * fVec28[((IOTA - 120) & 127)]) + ((0.0101949 * fVec27[((IOTA - 21) & 127)]) + ((3.0540600000000004e-05 * fVec28[((IOTA - 119) & 127)]) + ((8.9455700000000012e-05 * fVec28[((IOTA - 116) & 127)]) + ((7.5434700000000005e-05 * fVec28[((IOTA - 115) & 127)]) + ((0.00014591800000000001 * fVec28[((IOTA - 114) & 127)]) + ((0.00032979500000000002 * fVec28[((IOTA - 109) & 127)]) + ((0.00027301799999999998 * fVec28[((IOTA - 108) & 127)]) + ((2.9295999999999999e-06 * fVec28[((IOTA - 106) & 127)]) + ((0.00041821300000000002 * fVec28[((IOTA - 105) & 127)]) + ((0.00016436200000000001 * fVec28[((IOTA - 104) & 127)]) + ((1.0304700000000001e-05 * fVec28[((IOTA - 103) & 127)]) + ((9.9420300000000014e-05 * fVec28[((IOTA - 102) & 127)]) + ((0.000143957 * fVec28[((IOTA - 101) & 127)]) + ((0.00068593000000000007 * fVec28[((IOTA - 97) & 127)]) + ((0.0022403200000000001 * fVec28[((IOTA - 96) & 127)]) + ((0.00054845200000000005 * fVec28[((IOTA - 95) & 127)]) + ((0.0013290999999999999 * fVec28[((IOTA - 90) & 127)]) + ((0.0010531200000000001 * fVec28[((IOTA - 86) & 127)]) + ((0.00043581100000000003 * fVec28[((IOTA - 85) & 127)]) + ((0.00043643700000000002 * fVec28[((IOTA - 84) & 127)]) + ((0.00088380000000000002 * fVec28[((IOTA - 83) & 127)]) + ((0.00047224300000000001 * fVec28[((IOTA - 79) & 127)]) + ((0.00094611000000000001 * fVec28[((IOTA - 78) & 127)]) + ((0.0029536099999999997 * fVec28[((IOTA - 75) & 127)]) + ((0.0014493400000000001 * fVec28[((IOTA - 74) & 127)]) + ((0.00033464100000000005 * fVec28[((IOTA - 71) & 127)]) + ((0.000284002 * fVec28[((IOTA - 70) & 127)]) + ((0.00034605900000000002 * fVec28[((IOTA - 68) & 127)]) + ((0.00166238 * fVec28[((IOTA - 67) & 127)]) + ((0.00061167100000000005 * fVec28[((IOTA - 66) & 127)]) + ((0.0014756400000000001 * fVec28[((IOTA - 65) & 127)]) + ((0.0014824 * fVec28[((IOTA - 64) & 127)]) + ((0.000313016 * fVec28[((IOTA - 63) & 127)]) + ((0.0038431400000000001 * fVec28[((IOTA - 33) & 127)]) + ((0.001851 * fVec28[((IOTA - 32) & 127)]) + ((0.00023100900000000004 * fVec28[((IOTA - 31) & 127)]) + ((0.0018550299999999999 * fVec28[((IOTA - 30) & 127)]) + ((0.0068345300000000001 * fVec28[((IOTA - 29) & 127)]) + ((0.0065994599999999997 * fVec28[((IOTA - 28) & 127)]) + ((0.0086483799999999989 * fVec28[((IOTA - 26) & 127)]) + ((0.034778900000000001 * fVec28[((IOTA - 25) & 127)]) + ((0.0033660500000000002 * fVec28[((IOTA - 21) & 127)]) + ((0.0166362 * fVec28[((IOTA - 19) & 127)]) + ((0.013249500000000001 * fVec28[((IOTA - 18) & 127)]) + ((0.0149275 * fVec28[((IOTA - 15) & 127)]) + ((0.00153611 * fVec28[((IOTA - 12) & 127)]) + ((0.00022380100000000001 * fVec28[((IOTA - 11) & 127)]) + ((0.0002062 * fVec28[((IOTA - 10) & 127)]) + ((0.00029508100000000004 * fVec28[((IOTA - 9) & 127)]) + ((9.3157600000000004e-05 * fVec28[((IOTA - 7) & 127)]) + ((0.00083150800000000001 * fVec28[((IOTA - 6) & 127)]) + ((0.000139085 * fVec28[((IOTA - 3) & 127)]) + ((0.000100796 * fVec28[((IOTA - 2) & 127)]) + ((5.4869299999999995e-06 * fTemp28) + ((0.0069924600000000007 * fVec28[((IOTA - 42) & 127)]) + ((0.00046532900000000006 * fVec28[((IOTA - 61) & 127)]) + ((0.0014774499999999999 * fVec28[((IOTA - 57) & 127)]) + ((0.0052267299999999997 * fVec28[((IOTA - 56) & 127)]) + ((0.0049627400000000002 * fVec28[((IOTA - 55) & 127)]) + ((0.00034213000000000001 * fVec28[((IOTA - 54) & 127)]) + ((0.00171871 * fVec28[((IOTA - 52) & 127)]) + ((0.00204601 * fVec28[((IOTA - 51) & 127)]) + ((0.00172897 * fVec28[((IOTA - 44) & 127)]) + ((0.0059491199999999996 * fVec28[((IOTA - 43) & 127)]) + ((1.2067399999999999e-06 * fVec29[((IOTA - 126) & 127)]) + ((1.4484800000000001e-05 * fVec29[((IOTA - 123) & 127)]) + ((2.1146600000000005e-05 * fVec29[((IOTA - 122) & 127)]) + ((3.7560900000000002e-05 * fVec29[((IOTA - 121) & 127)]) + ((5.5921400000000003e-05 * fVec29[((IOTA - 120) & 127)]) + ((2.8070300000000005e-05 * fVec29[((IOTA - 119) & 127)]) + ((3.5723000000000003e-05 * fVec29[((IOTA - 118) & 127)]) + ((6.8163800000000006e-05 * fVec29[((IOTA - 117) & 127)]) + ((2.3925e-06 * fVec29[((IOTA - 116) & 127)]) + ((0.0046671199999999994 * fVec28[((IOTA - 38) & 127)]) + ((0.00014829900000000001 * fVec29[((IOTA - 108) & 127)]) + ((0.00037316500000000001 * fVec29[((IOTA - 105) & 127)]) + ((0.00039246300000000001 * fVec29[((IOTA - 104) & 127)]) + ((0.0074278399999999998 * fVec28[((IOTA - 37) & 127)]) + ((0.00069076200000000004 * fVec29[((IOTA - 98) & 127)]) + ((0.00059752000000000004 * fVec29[((IOTA - 97) & 127)]) + ((3.8900100000000004e-05 * fVec29[((IOTA - 96) & 127)]) + ((0.00104006 * fVec29[((IOTA - 95) & 127)]) + ((0.0024621700000000001 * fVec29[((IOTA - 94) & 127)]) + ((0.0011040900000000001 * fVec29[((IOTA - 93) & 127)]) + ((0.00025218300000000001 * fVec29[((IOTA - 92) & 127)]) + ((0.000582052 * fVec29[((IOTA - 87) & 127)]) + ((0.00181963 * fVec29[((IOTA - 86) & 127)]) + ((0.00027008400000000003 * fVec29[((IOTA - 83) & 127)]) + ((3.9284900000000001e-05 * fVec29[((IOTA - 82) & 127)]) + ((0.0023190699999999999 * fVec29[((IOTA - 78) & 127)]) + ((0.0031104100000000001 * fVec29[((IOTA - 77) & 127)]) + ((0.0018716399999999999 * fVec29[((IOTA - 76) & 127)]) + ((0.00173413 * fVec29[((IOTA - 75) & 127)]) + ((0.00046513499999999998 * fVec29[((IOTA - 74) & 127)]) + ((0.00070995800000000001 * fVec29[((IOTA - 73) & 127)]) + ((0.00136597 * fVec29[((IOTA - 72) & 127)]) + ((0.0005198920000000001 * fVec29[((IOTA - 66) & 127)]) + ((0.00252236 * fVec29[((IOTA - 65) & 127)]) + ((0.00148653 * fVec29[((IOTA - 64) & 127)]) + ((0.00049729599999999994 * fVec29[((IOTA - 61) & 127)]) + ((0.0017160000000000001 * fVec29[((IOTA - 60) & 127)]) + ((0.000571158 * fVec29[((IOTA - 59) & 127)]) + ((0.0016985100000000001 * fVec29[((IOTA - 35) & 127)]) + ((0.057691300000000001 * fVec29[((IOTA - 23) & 127)]) + ((0.016169199999999998 * fVec29[((IOTA - 22) & 127)]) + ((0.044694299999999999 * fVec29[((IOTA - 20) & 127)]) + ((0.073524500000000007 * fVec29[((IOTA - 19) & 127)]) + ((0.046224100000000004 * fVec29[((IOTA - 18) & 127)]) + ((0.039818899999999997 * fVec29[((IOTA - 16) & 127)]) + ((0.030653800000000002 * fVec29[((IOTA - 15) & 127)]) + ((0.0028312599999999999 * fVec29[((IOTA - 10) & 127)]) + ((0.00023471600000000002 * fVec29[((IOTA - 8) & 127)]) + ((0.0016646499999999999 * fVec29[((IOTA - 6) & 127)]) + ((0.00018944099999999999 * fVec29[((IOTA - 4) & 127)]) + ((0.00041035500000000005 * fVec29[((IOTA - 2) & 127)]) + ((0.0101911 * fVec29[((IOTA - 42) & 127)]) + ((0.0084519999999999994 * fVec29[((IOTA - 41) & 127)]) + ((0.0027287100000000001 * fVec29[((IOTA - 40) & 127)]) + ((0.0031196700000000002 * fVec29[((IOTA - 54) & 127)]) + ((0.0014963299999999999 * fVec29[((IOTA - 53) & 127)]) + ((0.0021004299999999999 * fVec29[((IOTA - 52) & 127)]) + ((0.0077831999999999997 * fVec29[((IOTA - 51) & 127)]) + ((0.0044508500000000001 * fVec29[((IOTA - 50) & 127)]) + ((0.0021174599999999998 * fVec29[((IOTA - 49) & 127)]) + ((0.0040522299999999995 * fVec29[((IOTA - 48) & 127)]) + ((0.0064639199999999997 * fVec29[((IOTA - 47) & 127)]) + ((0.0059821600000000003 * fVec29[((IOTA - 46) & 127)]) + ((0.0034409700000000002 * fVec29[((IOTA - 45) & 127)]) + ((0.0067079800000000005 * fVec29[((IOTA - 44) & 127)]) + ((0.0079398100000000003 * fVec29[((IOTA - 43) & 127)]) + ((1.06705e-06 * fVec30[((IOTA - 126) & 127)]) + ((3.8319600000000005e-05 * fVec30[((IOTA - 122) & 127)]) + ((5.611290000000001e-05 * fVec30[((IOTA - 121) & 127)]) + ((4.3469500000000001e-05 * fVec30[((IOTA - 120) & 127)]) + ((4.8748200000000002e-05 * fVec30[((IOTA - 117) & 127)]) + ((0.000144938 * fVec30[((IOTA - 110) & 127)]) + ((0.00089492 * fVec30[((IOTA - 76) & 127)]) + ((0.00098582100000000001 * fVec30[((IOTA - 75) & 127)]) + ((0.0010638000000000002 * fVec30[((IOTA - 74) & 127)]) + ((7.2644700000000013e-05 * fVec30[((IOTA - 104) & 127)]) + ((1.0278999999999999e-06 * fVec30[((IOTA - 103) & 127)]) + ((0.0011606799999999999 * fVec30[((IOTA - 96) & 127)]) + ((0.0031629900000000001 * fVec30[((IOTA - 95) & 127)]) + ((0.00078389600000000007 * fVec30[((IOTA - 94) & 127)]) + ((3.61728e-05 * fVec30[((IOTA - 91) & 127)]) + ((0.0022532999999999997 * fVec30[((IOTA - 86) & 127)]) + ((0.00078204200000000005 * fVec30[((IOTA - 79) & 127)]) + ((0.00053547700000000002 * fVec30[((IOTA - 77) & 127)]) + ((0.0020713300000000001 * fVec30[((IOTA - 72) & 127)]) + ((0.0018535400000000001 * fVec30[((IOTA - 70) & 127)]) + ((0.00287405 * fVec30[((IOTA - 71) & 127)]) + ((0.0024114399999999999 * fVec30[((IOTA - 69) & 127)]) + ((0.0054627 * fVec30[((IOTA - 68) & 127)]) + ((0.0053478500000000003 * fVec30[((IOTA - 67) & 127)]) + ((0.0013556799999999999 * fVec30[((IOTA - 6) & 127)]) + ((0.00012807300000000001 * fVec30[((IOTA - 4) & 127)]) + ((0.000378556 * fVec30[((IOTA - 2) & 127)]) + ((0.0036506200000000003 * fVec30[((IOTA - 66) & 127)]) + ((0.0039108500000000004 * fVec30[((IOTA - 65) & 127)]) + ((0.00124406 * fVec30[((IOTA - 64) & 127)]) + ((0.00066612700000000008 * fVec30[((IOTA - 53) & 127)]) + ((0.00021471700000000001 * fVec30[((IOTA - 42) & 127)]) + ((0.0083305600000000007 * fVec30[((IOTA - 38) & 127)]) + ((0.0016041499999999999 * fVec30[((IOTA - 34) & 127)]) + ((0.018119700000000002 * fVec30[((IOTA - 33) & 127)]) + ((0.036438700000000004 * fVec30[((IOTA - 30) & 127)]) + ((0.027385400000000001 * fVec30[((IOTA - 29) & 127)]) + ((0.0048108300000000003 * fVec30[((IOTA - 28) & 127)]) + ((0.040978300000000002 * fVec30[((IOTA - 27) & 127)]) + ((0.049985600000000005 * fVec30[((IOTA - 26) & 127)]) + ((0.038770699999999998 * fVec30[((IOTA - 24) & 127)]) + ((0.10758200000000001 * fVec30[((IOTA - 23) & 127)]) + ((0.021392099999999997 * fVec30[((IOTA - 22) & 127)]) + ((0.041771900000000008 * fVec30[((IOTA - 20) & 127)]) + ((0.055177400000000001 * fVec30[((IOTA - 19) & 127)]) + ((0.0108086 * fVec30[((IOTA - 18) & 127)]) + ((0.0026607500000000004 * fVec30[((IOTA - 10) & 127)]) + ((0.00066903899999999996 * fVec30[((IOTA - 8) & 127)]) + ((4.9495899999999995e-07 * fVec31[((IOTA - 126) & 127)]) + ((2.773e-06 * fVec31[((IOTA - 125) & 127)]) + ((5.3135e-06 * fVec31[((IOTA - 121) & 127)]) + ((2.8457499999999998e-06 * fVec31[((IOTA - 117) & 127)]) + ((2.4558300000000005e-05 * fVec31[((IOTA - 116) & 127)]) + ((5.2591200000000006e-05 * fVec31[((IOTA - 112) & 127)]) + ((0.00024796200000000001 * fVec31[((IOTA - 111) & 127)]) + ((0.00014221200000000001 * fVec31[((IOTA - 110) & 127)]) + ((0.00010309 * fVec31[((IOTA - 108) & 127)]) + ((0.00018337600000000001 * fVec31[((IOTA - 107) & 127)]) + ((0.00035608600000000003 * fVec31[((IOTA - 106) & 127)]) + ((0.00034403800000000002 * fVec31[((IOTA - 105) & 127)]) + ((0.00025383300000000002 * fVec31[((IOTA - 104) & 127)]) + ((0.00028535700000000003 * fVec31[((IOTA - 103) & 127)]) + ((0.00070562000000000001 * fVec31[((IOTA - 102) & 127)]) + ((0.0005151 * fVec31[((IOTA - 101) & 127)]) + ((0.00032077100000000002 * fVec31[((IOTA - 100) & 127)]) + ((9.0654800000000018e-05 * fVec31[((IOTA - 99) & 127)]) + ((0.00071143700000000009 * fVec31[((IOTA - 98) & 127)]) + ((0.0014366699999999999 * fVec31[((IOTA - 97) & 127)]) + ((0.00124614 * fVec31[((IOTA - 94) & 127)]) + ((0.0022713 * fVec31[((IOTA - 93) & 127)]) + ((0.00127749 * fVec31[((IOTA - 86) & 127)]) + ((0.00070097300000000003 * fVec31[((IOTA - 85) & 127)]) + ((6.2936500000000003e-05 * fVec31[((IOTA - 77) & 127)]) + ((2.0687900000000002e-05 * fVec31[((IOTA - 76) & 127)]) + ((0.00074920100000000001 * fVec31[((IOTA - 72) & 127)]) + ((0.00108661 * fVec31[((IOTA - 71) & 127)]) + ((0.00066226100000000003 * fVec31[((IOTA - 70) & 127)]) + ((0.00221192 * fVec31[((IOTA - 68) & 127)]) + ((0.0036181899999999999 * fVec31[((IOTA - 67) & 127)]) + ((3.8066800000000006e-05 * fVec31[((IOTA - 66) & 127)]) + ((2.7286800000000004e-05 * fVec31[((IOTA - 64) & 127)]) + ((0.0014662800000000001 * fVec31[((IOTA - 63) & 127)]) + ((0.0025716599999999999 * fVec31[((IOTA - 62) & 127)]) + ((0.00040080500000000001 * fVec31[((IOTA - 61) & 127)]) + ((0.0022166500000000001 * fVec31[((IOTA - 59) & 127)]) + ((0.0027539400000000003 * fVec31[((IOTA - 58) & 127)]) + ((0.000547636 * fVec31[((IOTA - 57) & 127)]) + ((0.0034324300000000002 * fVec31[((IOTA - 56) & 127)]) + ((0.0028814800000000001 * fVec31[((IOTA - 55) & 127)]) + ((0.00020467599999999999 * fVec31[((IOTA - 54) & 127)]) + ((0.0025276200000000004 * fVec31[((IOTA - 51) & 127)]) + ((0.0045955500000000003 * fVec31[((IOTA - 50) & 127)]) + ((0.0021549399999999997 * fVec31[((IOTA - 44) & 127)]) + ((0.00027813700000000002 * fVec31[((IOTA - 12) & 127)]) + ((0.00027818999999999999 * fVec31[((IOTA - 11) & 127)]) + ((0.00033955200000000002 * fVec31[((IOTA - 10) & 127)]) + ((0.00022609 * fVec31[((IOTA - 9) & 127)]) + ((0.00016021500000000001 * fVec31[((IOTA - 7) & 127)]) + ((0.000240886 * fVec31[((IOTA - 6) & 127)]) + ((2.4972599999999999e-05 * fVec31[((IOTA - 3) & 127)]) + ((5.2352700000000004e-05 * fVec31[((IOTA - 2) & 127)]) + ((4.2462999999999995e-06 * fTemp31) + ((0.011300600000000001 * fVec31[((IOTA - 19) & 127)]) + ((0.0094331200000000014 * fVec31[((IOTA - 18) & 127)]) + ((0.0013761300000000001 * fVec31[((IOTA - 41) & 127)]) + ((0.002183 * fVec31[((IOTA - 38) & 127)]) + ((0.0030387000000000001 * fVec31[((IOTA - 36) & 127)]) + ((0.021556799999999997 * fVec31[((IOTA - 35) & 127)]) + ((0.023527200000000002 * fVec31[((IOTA - 32) & 127)]) + ((0.0021948500000000004 * fVec31[((IOTA - 31) & 127)]) + ((0.00051807200000000006 * fVec31[((IOTA - 29) & 127)]) + ((0.024944000000000001 * fVec31[((IOTA - 26) & 127)]) + ((0.0035849099999999997 * fVec31[((IOTA - 25) & 127)]) + ((8.9630500000000016e-08 * fVec4[((IOTA - 126) & 127)]) + ((4.86084e-05 * fVec4[((IOTA - 119) & 127)]) + ((3.0215200000000005e-05 * fVec4[((IOTA - 118) & 127)]) + ((0.0071840999999999997 * fVec31[((IOTA - 15) & 127)]) + ((0.00010084700000000001 * fVec4[((IOTA - 110) & 127)]) + ((0.00034166200000000001 * fVec4[((IOTA - 109) & 127)]) + ((0.00033797299999999998 * fVec4[((IOTA - 107) & 127)]) + ((0.00045785700000000004 * fVec4[((IOTA - 106) & 127)]) + ((0.00013590400000000001 * fVec4[((IOTA - 105) & 127)]) + ((6.0929900000000008e-05 * fVec4[((IOTA - 104) & 127)]) + ((0.000208667 * fVec4[((IOTA - 102) & 127)]) + ((0.00030785900000000001 * fVec4[((IOTA - 101) & 127)]) + ((0.00026147399999999998 * fVec4[((IOTA - 100) & 127)]) + ((0.00048677700000000003 * fVec4[((IOTA - 99) & 127)]) + ((0.0012107800000000001 * fVec4[((IOTA - 98) & 127)]) + ((0.00076490500000000008 * fVec4[((IOTA - 97) & 127)]) + ((0.00058266999999999998 * fVec4[((IOTA - 94) & 127)]) + ((0.00082486899999999999 * fVec4[((IOTA - 93) & 127)]) + ((0.0011506799999999998 * fVec4[((IOTA - 92) & 127)]) + ((3.5632800000000002e-05 * fVec4[((IOTA - 91) & 127)]) + ((3.64663e-05 * fVec4[((IOTA - 90) & 127)]) + ((0.00056137899999999998 * fVec4[((IOTA - 88) & 127)]) + ((0.00015598000000000001 * fVec4[((IOTA - 87) & 127)]) + ((0.00076870700000000009 * fVec4[((IOTA - 84) & 127)]) + ((0.0014322200000000001 * fVec4[((IOTA - 83) & 127)]) + ((0.00046067700000000005 * fVec4[((IOTA - 82) & 127)]) + ((0.00064690400000000001 * fVec4[((IOTA - 79) & 127)]) + ((6.2586200000000001e-05 * fVec4[((IOTA - 72) & 127)]) + ((0.00117567 * fVec4[((IOTA - 71) & 127)]) + ((0.0012521400000000001 * fVec4[((IOTA - 70) & 127)]) + ((0.00055114699999999999 * fVec4[((IOTA - 66) & 127)]) + ((0.00110439 * fVec4[((IOTA - 65) & 127)]) + ((0.0016155 * fVec4[((IOTA - 64) & 127)]) + ((0.0021511500000000001 * fVec4[((IOTA - 63) & 127)]) + ((0.0019438999999999999 * fVec4[((IOTA - 60) & 127)]) + ((0.00122438 * fVec4[((IOTA - 52) & 127)]) + ((0.0070393900000000004 * fVec4[((IOTA - 39) & 127)]) + ((0.0048936500000000003 * fVec4[((IOTA - 37) & 127)]) + ((0.0095701499999999995 * fVec4[((IOTA - 36) & 127)]) + ((0.015800600000000001 * fVec4[((IOTA - 33) & 127)]) + ((0.011886499999999999 * fVec4[((IOTA - 32) & 127)]) + ((0.0058739299999999994 * fVec4[((IOTA - 30) & 127)]) + ((0.024750999999999999 * fVec4[((IOTA - 29) & 127)]) + ((0.0086730599999999998 * fVec4[((IOTA - 28) & 127)]) + ((0.023463500000000002 * fVec4[((IOTA - 26) & 127)]) + ((0.052758300000000001 * fVec4[((IOTA - 25) & 127)]) + ((0.0124978 * fVec4[((IOTA - 24) & 127)]) + ((0.035996800000000002 * fVec4[((IOTA - 22) & 127)]) + ((0.013752100000000001 * fVec4[((IOTA - 21) & 127)]) + ((0.0018844000000000001 * fVec4[((IOTA - 20) & 127)]) + ((0.0448946 * fVec4[((IOTA - 19) & 127)]) + ((0.00033159299999999998 * fVec4[((IOTA - 18) & 127)]) + ((0.00255288 * fVec4[((IOTA - 10) & 127)]) + ((0.00094661300000000001 * fVec4[((IOTA - 8) & 127)]) + ((0.0010133200000000001 * fVec4[((IOTA - 6) & 127)]) + ((0.00025746299999999998 * fVec4[((IOTA - 2) & 127)]) + ((0.00271718 * fVec4[((IOTA - 75) & 127)]) + ((3.43292e-08 * fVec0[((IOTA - 126) & 127)]) + ((3.3588899999999999e-06 * fVec0[((IOTA - 125) & 127)]) + ((3.9804799999999997e-06 * fVec0[((IOTA - 124) & 127)]) + ((2.0105900000000003e-05 * fVec0[((IOTA - 123) & 127)]) + ((7.7608600000000008e-05 * fVec0[((IOTA - 119) & 127)]) + ((5.0789799999999999e-05 * fVec0[((IOTA - 116) & 127)]) + ((0.00020361699999999999 * fVec0[((IOTA - 115) & 127)]) + ((0.00030080800000000001 * fVec0[((IOTA - 114) & 127)]) + ((3.2623300000000003e-05 * fVec0[((IOTA - 113) & 127)]) + ((0.00026027500000000002 * fVec0[((IOTA - 110) & 127)]) + ((0.00020187200000000002 * fVec0[((IOTA - 109) & 127)]) + ((0.00040571999999999998 * fVec0[((IOTA - 108) & 127)]) + ((0.00053009599999999997 * fVec0[((IOTA - 107) & 127)]) + ((0.00050674400000000005 * fVec0[((IOTA - 106) & 127)]) + ((0.00049718700000000006 * fVec0[((IOTA - 105) & 127)]) + ((0.0011330000000000001 * fVec0[((IOTA - 104) & 127)]) + ((0.0016271899999999999 * fVec0[((IOTA - 103) & 127)]) + ((0.00069229100000000004 * fVec0[((IOTA - 102) & 127)]) + ((0.00046662400000000006 * fVec0[((IOTA - 101) & 127)]) + ((0.00069381500000000008 * fVec0[((IOTA - 100) & 127)]) + ((0.00038071900000000001 * fVec0[((IOTA - 99) & 127)]) + ((0.00084254300000000007 * fVec0[((IOTA - 98) & 127)]) + ((0.00156339 * fVec0[((IOTA - 97) & 127)]) + ((0.0034697200000000004 * fVec0[((IOTA - 96) & 127)]) + ((0.0030116200000000004 * fVec0[((IOTA - 95) & 127)]) + ((0.00075465500000000002 * fVec0[((IOTA - 94) & 127)]) + ((0.00068181600000000002 * fVec0[((IOTA - 93) & 127)]) + ((0.00071934100000000008 * fVec0[((IOTA - 92) & 127)]) + ((0.00040184499999999996 * fVec0[((IOTA - 91) & 127)]) + ((0.00055143000000000011 * fVec0[((IOTA - 90) & 127)]) + ((0.0016723300000000001 * fVec0[((IOTA - 89) & 127)]) + ((0.0017063 * fVec0[((IOTA - 88) & 127)]) + ((0.0013395900000000001 * fVec0[((IOTA - 87) & 127)]) + ((0.0026214800000000003 * fVec0[((IOTA - 86) & 127)]) + ((0.0034494400000000002 * fVec0[((IOTA - 85) & 127)]) + ((0.0025590399999999998 * fVec0[((IOTA - 84) & 127)]) + ((0.0014532900000000001 * fVec0[((IOTA - 83) & 127)]) + ((0.00127111 * fVec0[((IOTA - 78) & 127)]) + ((0.0011545000000000001 * fVec0[((IOTA - 77) & 127)]) + ((0.00061171300000000006 * fVec0[((IOTA - 76) & 127)]) + ((0.00020694100000000001 * fVec0[((IOTA - 75) & 127)]) + ((0.00064708400000000003 * fVec0[((IOTA - 74) & 127)]) + ((0.0010632999999999999 * fVec0[((IOTA - 73) & 127)]) + ((0.000609699 * fVec0[((IOTA - 72) & 127)]) + ((0.00058977500000000006 * fVec0[((IOTA - 71) & 127)]) + ((0.0005591420000000001 * fVec0[((IOTA - 67) & 127)]) + ((8.8419900000000004e-05 * fVec0[((IOTA - 65) & 127)]) + ((0.00150508 * fVec0[((IOTA - 64) & 127)]) + ((0.0014054500000000001 * fVec0[((IOTA - 60) & 127)]) + ((0.00215198 * fVec0[((IOTA - 54) & 127)]) + ((0.000219724 * fVec0[((IOTA - 52) & 127)]) + ((0.0017431900000000001 * fVec0[((IOTA - 51) & 127)]) + ((0.000292148 * fVec0[((IOTA - 49) & 127)]) + ((0.00356967 * fVec0[((IOTA - 48) & 127)]) + ((0.00055458199999999997 * fVec0[((IOTA - 47) & 127)]) + ((0.0018462400000000001 * fVec0[((IOTA - 45) & 127)]) + ((0.0038023500000000003 * fVec0[((IOTA - 42) & 127)]) + ((0.0029068700000000002 * fVec0[((IOTA - 40) & 127)]) + ((0.0099856200000000006 * fVec0[((IOTA - 29) & 127)]) + ((0.010922899999999999 * fVec0[((IOTA - 28) & 127)]) + ((0.0013328999999999999 * fVec0[((IOTA - 24) & 127)]) + ((0.0016006100000000001 * fVec0[((IOTA - 23) & 127)]) + ((0.0099153599999999998 * fVec0[((IOTA - 22) & 127)]) + ((0.016723499999999999 * fVec0[((IOTA - 20) & 127)]) + ((0.045127499999999994 * fVec0[((IOTA - 17) & 127)]) + ((0.0059659600000000002 * fVec0[((IOTA - 14) & 127)]) + ((0.0027371000000000001 * fVec0[((IOTA - 13) & 127)]) + ((4.6184399999999998e-05 * fVec0[((IOTA - 10) & 127)]) + ((0.0025209700000000004 * fVec0[((IOTA - 8) & 127)]) + ((0.00036855699999999999 * fVec0[((IOTA - 6) & 127)]) + ((0.00070276500000000005 * fVec0[((IOTA - 5) & 127)]) + ((0.00090358699999999997 * fVec0[((IOTA - 4) & 127)]) + ((0.000231406 * fVec0[((IOTA - 2) & 127)]) + ((4.4178200000000003e-05 * fVec0[((IOTA - 1) & 127)]) + ((1.57811e-05 * fTemp0) + ((0.0047945900000000005 * fVec0[((IOTA - 39) & 127)]) + ((0.0038672100000000003 * fVec0[((IOTA - 38) & 127)]) + ((4.1971900000000004e-05 * fVec0[((IOTA - 36) & 127)]) + ((0.0060181399999999999 * fVec0[((IOTA - 35) & 127)]) + ((0.0049045500000000006 * fVec0[((IOTA - 33) & 127)]) + ((0.0091428700000000009 * fVec0[((IOTA - 32) & 127)]) + ((2.5137800000000002e-07 * fVec32[((IOTA - 126) & 127)]) + ((6.1820100000000001e-06 * fVec32[((IOTA - 125) & 127)]) + ((3.82797e-06 * fVec32[((IOTA - 124) & 127)]) + ((2.1185900000000001e-06 * fVec32[((IOTA - 123) & 127)]) + ((2.7248300000000001e-05 * fVec32[((IOTA - 121) & 127)]) + ((3.8722400000000007e-05 * fVec32[((IOTA - 120) & 127)]) + ((8.2140799999999984e-06 * fVec32[((IOTA - 119) & 127)]) + ((3.8470500000000004e-05 * fVec32[((IOTA - 117) & 127)]) + ((9.096330000000001e-05 * fVec32[((IOTA - 116) & 127)]) + ((8.7317000000000004e-05 * fVec32[((IOTA - 114) & 127)]) + ((0.000227166 * fVec32[((IOTA - 113) & 127)]) + ((8.3273200000000014e-05 * fVec32[((IOTA - 112) & 127)]) + ((8.2866000000000002e-05 * fVec32[((IOTA - 111) & 127)]) + ((0.00014514899999999999 * fVec32[((IOTA - 110) & 127)]) + ((0.00010655300000000001 * fVec32[((IOTA - 108) & 127)]) + ((0.00020428199999999999 * fVec32[((IOTA - 107) & 127)]) + ((5.2586900000000003e-05 * fVec32[((IOTA - 106) & 127)]) + ((0.00036701000000000003 * fVec32[((IOTA - 105) & 127)]) + ((0.00050770799999999994 * fVec32[((IOTA - 104) & 127)]) + ((0.00025426099999999998 * fVec32[((IOTA - 101) & 127)]) + ((0.00018379600000000001 * fVec32[((IOTA - 98) & 127)]) + ((0.00035138200000000002 * fVec32[((IOTA - 97) & 127)]) + ((7.6149300000000013e-05 * fVec32[((IOTA - 95) & 127)]) + ((0.0015575400000000001 * fVec32[((IOTA - 94) & 127)]) + ((0.00063264199999999999 * fVec32[((IOTA - 93) & 127)]) + ((0.00014839199999999998 * fVec32[((IOTA - 92) & 127)]) + ((0.00086251900000000007 * fVec32[((IOTA - 87) & 127)]) + ((0.0019024199999999999 * fVec32[((IOTA - 86) & 127)]) + ((0.00129144 * fVec32[((IOTA - 83) & 127)]) + ((0.00047882000000000003 * fVec32[((IOTA - 78) & 127)]) + ((0.0013118799999999999 * fVec32[((IOTA - 75) & 127)]) + ((0.0011614100000000001 * fVec32[((IOTA - 74) & 127)]) + ((0.0014712700000000002 * fVec32[((IOTA - 68) & 127)]) + ((0.0026238199999999998 * fVec32[((IOTA - 67) & 127)]) + ((0.0020513699999999998 * fVec32[((IOTA - 62) & 127)]) + ((0.00160801 * fVec32[((IOTA - 61) & 127)]) + ((0.00147938 * fVec32[((IOTA - 59) & 127)]) + ((0.00013115699999999999 * fVec32[((IOTA - 58) & 127)]) + ((0.00050519600000000007 * fVec32[((IOTA - 57) & 127)]) + ((0.0016339300000000002 * fVec32[((IOTA - 56) & 127)]) + ((0.0011073599999999999 * fVec32[((IOTA - 52) & 127)]) + ((0.0016051100000000001 * fVec32[((IOTA - 50) & 127)]) + ((0.0079808199999999996 * fVec32[((IOTA - 49) & 127)]) + ((0.00196889 * fVec32[((IOTA - 48) & 127)]) + ((0.0044432300000000003 * fVec32[((IOTA - 45) & 127)]) + ((0.000208879 * fVec32[((IOTA - 44) & 127)]) + ((0.0013145500000000001 * fVec32[((IOTA - 42) & 127)]) + ((9.226730000000001e-05 * fVec32[((IOTA - 40) & 127)]) + ((0.0053560100000000005 * fVec32[((IOTA - 39) & 127)]) + ((0.0053043999999999999 * fVec32[((IOTA - 38) & 127)]) + ((0.00291413 * fVec32[((IOTA - 37) & 127)]) + ((0.010230900000000001 * fVec32[((IOTA - 36) & 127)]) + ((0.0073240200000000005 * fVec32[((IOTA - 35) & 127)]) + ((0.0073238899999999996 * fVec32[((IOTA - 31) & 127)]) + ((0.0105234 * fVec32[((IOTA - 30) & 127)]) + ((0.0034125200000000005 * fVec32[((IOTA - 26) & 127)]) + ((0.0069197900000000003 * fVec32[((IOTA - 25) & 127)]) + ((0.031673199999999999 * fVec32[((IOTA - 18) & 127)]) + ((0.0274497 * fVec32[((IOTA - 17) & 127)]) + ((0.0030908899999999998 * fVec32[((IOTA - 16) & 127)]) + ((0.0103427 * fVec32[((IOTA - 15) & 127)]) + ((0.0120915 * fVec32[((IOTA - 13) & 127)]) + ((0.0038904299999999998 * fVec32[((IOTA - 10) & 127)]) + ((0.0024724199999999999 * fVec32[((IOTA - 8) & 127)]) + ((0.0012886100000000001 * fVec32[((IOTA - 6) & 127)]) + ((0.00084856599999999993 * fVec32[((IOTA - 4) & 127)]) + ((0.00020222799999999999 * fVec32[((IOTA - 2) & 127)]) + ((2.0016700000000001e-05 * fVec32[((IOTA - 1) & 127)]) + ((1.4622100000000002e-05 * fTemp32) + ((2.4533100000000001e-06 * fVec33[((IOTA - 126) & 127)]) + ((1.70273e-06 * fVec33[((IOTA - 125) & 127)]) + ((8.0341699999999997e-06 * fVec33[((IOTA - 123) & 127)]) + ((3.8827600000000008e-05 * fVec33[((IOTA - 122) & 127)]) + ((0.000101833 * fVec33[((IOTA - 121) & 127)]) + ((0.000105639 * fVec33[((IOTA - 120) & 127)]) + ((3.9296600000000006e-05 * fVec33[((IOTA - 119) & 127)]) + ((8.7116700000000006e-05 * fVec32[((IOTA - 66) & 127)]) + ((3.85491e-05 * fVec33[((IOTA - 117) & 127)]) + ((0.00018456300000000003 * fVec33[((IOTA - 116) & 127)]) + ((0.000184012 * fVec33[((IOTA - 115) & 127)]) + ((0.0019589099999999999 * fVec33[((IOTA - 96) & 127)]) + ((0.0031713800000000001 * fVec33[((IOTA - 95) & 127)]) + ((0.00068253400000000005 * fVec33[((IOTA - 94) & 127)]) + ((0.00056285600000000003 * fVec33[((IOTA - 91) & 127)]) + ((0.0014036900000000002 * fVec33[((IOTA - 90) & 127)]) + ((0.00337025 * fVec33[((IOTA - 87) & 127)]) + ((0.0052786200000000004 * fVec33[((IOTA - 86) & 127)]) + ((0.0015441700000000001 * fVec33[((IOTA - 85) & 127)]) + ((0.00036768800000000002 * fVec33[((IOTA - 84) & 127)]) + ((0.00069545300000000007 * fVec33[((IOTA - 83) & 127)]) + ((0.0010311999999999999 * fVec33[((IOTA - 65) & 127)]) + ((0.00113331 * fVec33[((IOTA - 64) & 127)]) + ((0.0014698599999999999 * fVec33[((IOTA - 63) & 127)]) + ((0.00070883900000000006 * fVec33[((IOTA - 62) & 127)]) + ((0.0020663499999999998 * fVec33[((IOTA - 57) & 127)]) + ((0.00288332 * fVec33[((IOTA - 56) & 127)]) + ((0.0008817050000000001 * fVec33[((IOTA - 55) & 127)]) + ((0.0035919900000000002 * fVec33[((IOTA - 54) & 127)]) + ((0.0016634199999999999 * fVec33[((IOTA - 53) & 127)]) + ((0.0012247 * fVec33[((IOTA - 52) & 127)]) + ((0.00117636 * fVec33[((IOTA - 51) & 127)]) + ((0.0053477200000000003 * fVec33[((IOTA - 49) & 127)]) + ((0.00571347 * fVec33[((IOTA - 48) & 127)]) + ((0.0068109299999999998 * fVec33[((IOTA - 45) & 127)]) + ((0.00503769 * fVec33[((IOTA - 44) & 127)]) + ((0.0033690899999999999 * fVec33[((IOTA - 43) & 127)]) + ((0.0081425600000000001 * fVec33[((IOTA - 42) & 127)]) + ((0.0048383499999999999 * fVec33[((IOTA - 39) & 127)]) + ((1.73416e-05 * fVec33[((IOTA - 38) & 127)]) + ((0.0011593500000000002 * fVec33[((IOTA - 37) & 127)]) + ((0.00341282 * fVec33[((IOTA - 36) & 127)]) + ((0.0053672899999999994 * fVec33[((IOTA - 34) & 127)]) + ((0.0060068300000000003 * fVec33[((IOTA - 33) & 127)]) + ((0.036282299999999996 * fVec33[((IOTA - 30) & 127)]) + ((0.0096774400000000007 * fVec33[((IOTA - 29) & 127)]) + ((0.0174746 * fVec33[((IOTA - 18) & 127)]) + ((0.021190899999999999 * fVec33[((IOTA - 17) & 127)]) + ((0.0025345699999999999 * fVec33[((IOTA - 16) & 127)]) + ((0.0025992000000000003 * fVec33[((IOTA - 15) & 127)]) + ((0.0061892400000000004 * fVec33[((IOTA - 13) & 127)]) + ((0.0020100199999999999 * fVec33[((IOTA - 10) & 127)]) + ((0.00148817 * fVec33[((IOTA - 8) & 127)]) + ((0.00053443399999999997 * fVec33[((IOTA - 6) & 127)]) + ((0.00069470999999999997 * fVec33[((IOTA - 4) & 127)]) + ((0.00013874000000000002 * fVec33[((IOTA - 2) & 127)]) + ((2.49699e-05 * fVec33[((IOTA - 1) & 127)]) + ((9.9362800000000004e-06 * fTemp33) + ((0.03066 * fVec33[((IOTA - 26) & 127)]) + ((0.0019489700000000002 * fVec33[((IOTA - 23) & 127)]) + ((0.000702438 * fVec33[((IOTA - 20) & 127)]) + ((9.4065400000000002e-05 * fVec33[((IOTA - 22) & 127)]) + ((2.4082099999999999e-06 * fVec34[((IOTA - 126) & 127)]) + ((8.464169999999999e-06 * fVec34[((IOTA - 125) & 127)]) + ((8.8836499999999992e-06 * fVec34[((IOTA - 124) & 127)]) + ((8.7967399999999994e-06 * fVec34[((IOTA - 123) & 127)]) + ((2.4375700000000001e-05 * fVec34[((IOTA - 122) & 127)]) + ((8.0066800000000004e-05 * fVec34[((IOTA - 121) & 127)]) + ((9.9426100000000014e-05 * fVec34[((IOTA - 120) & 127)]) + ((9.0816700000000014e-05 * fVec34[((IOTA - 119) & 127)]) + ((5.80835e-05 * fVec34[((IOTA - 118) & 127)]) + ((7.7452699999999998e-05 * fVec34[((IOTA - 117) & 127)]) + ((9.5024799999999997e-07 * fVec34[((IOTA - 116) & 127)]) + ((5.1149400000000002e-05 * fVec34[((IOTA - 98) & 127)]) + ((0.00032476299999999999 * fVec34[((IOTA - 97) & 127)]) + ((0.0012872900000000002 * fVec34[((IOTA - 94) & 127)]) + ((0.0022912900000000001 * fVec34[((IOTA - 93) & 127)]) + ((0.00119739 * fVec34[((IOTA - 92) & 127)]) + ((0.0019518999999999999 * fVec34[((IOTA - 90) & 127)]) + ((0.0043689900000000005 * fVec34[((IOTA - 89) & 127)]) + ((0.00375801 * fVec34[((IOTA - 88) & 127)]) + ((0.0016994499999999999 * fVec34[((IOTA - 87) & 127)]) + ((0.0032713800000000004 * fVec34[((IOTA - 86) & 127)]) + ((0.0036832600000000003 * fVec34[((IOTA - 85) & 127)]) + ((0.00089328000000000009 * fVec34[((IOTA - 84) & 127)]) + ((0.00072158200000000002 * fVec34[((IOTA - 83) & 127)]) + ((0.00038337700000000001 * fVec34[((IOTA - 80) & 127)]) + ((0.0016079900000000001 * fVec34[((IOTA - 79) & 127)]) + ((0.0020680200000000003 * fVec34[((IOTA - 78) & 127)]) + ((0.00028545500000000005 * fVec34[((IOTA - 77) & 127)]) + ((0.00025900400000000002 * fVec34[((IOTA - 75) & 127)]) + ((3.3718100000000005e-05 * fVec34[((IOTA - 63) & 127)]) + ((0.0016691100000000001 * fVec34[((IOTA - 62) & 127)]) + ((0.00089519800000000015 * fVec34[((IOTA - 60) & 127)]) + ((0.00079125400000000002 * fVec34[((IOTA - 59) & 127)]) + ((0.00099548200000000001 * fVec34[((IOTA - 58) & 127)]) + ((0.0024358800000000001 * fVec34[((IOTA - 54) & 127)]) + ((0.0056765999999999995 * fVec34[((IOTA - 53) & 127)]) + ((0.0027909200000000001 * fVec34[((IOTA - 52) & 127)]) + ((0.00077908600000000012 * fVec34[((IOTA - 51) & 127)]) + ((0.0016214599999999999 * fVec34[((IOTA - 50) & 127)]) + ((0.0042173100000000002 * fVec34[((IOTA - 48) & 127)]) + ((0.0091871399999999999 * fVec34[((IOTA - 47) & 127)]) + ((0.0022329500000000005 * fVec34[((IOTA - 44) & 127)]) + ((0.0028589500000000003 * fVec34[((IOTA - 42) & 127)]) + ((0.0021427500000000001 * fVec34[((IOTA - 45) & 127)]) + ((0.0070971000000000003 * fVec34[((IOTA - 41) & 127)]) + ((0.0053105900000000004 * fVec34[((IOTA - 40) & 127)]) + ((0.0030150300000000001 * fVec34[((IOTA - 39) & 127)]) + ((0.00053429399999999994 * fVec34[((IOTA - 36) & 127)]) + ((0.0164669 * fVec34[((IOTA - 35) & 127)]) + ((0.0037660800000000002 * fVec34[((IOTA - 33) & 127)]) + ((0.0086483100000000011 * fVec34[((IOTA - 32) & 127)]) + ((0.021576300000000003 * fVec34[((IOTA - 29) & 127)]) + ((0.021685099999999999 * fVec34[((IOTA - 28) & 127)]) + ((0.0057969700000000002 * fVec34[((IOTA - 26) & 127)]) + ((0.0057622799999999998 * fVec34[((IOTA - 24) & 127)]) + ((0.0197594 * fVec34[((IOTA - 21) & 127)]) + ((0.0121098 * fVec34[((IOTA - 20) & 127)]) + ((0.032535399999999999 * fVec34[((IOTA - 17) & 127)]) + ((0.00050339700000000005 * fVec34[((IOTA - 14) & 127)]) + ((0.00086802899999999998 * fVec34[((IOTA - 13) & 127)]) + ((0.0016583500000000001 * fVec34[((IOTA - 8) & 127)]) + ((0.00031507000000000003 * fVec34[((IOTA - 5) & 127)]) + ((0.00049461800000000005 * fVec34[((IOTA - 4) & 127)]) + ((0.00015840400000000001 * fVec34[((IOTA - 2) & 127)]) + ((2.8519800000000004e-05 * fVec34[((IOTA - 1) & 127)]) + ((4.4578800000000004e-06 * fTemp34) + ((0.0013077200000000001 * fVec34[((IOTA - 46) & 127)]) + ((1.1796500000000001e-05 * fVec23[((IOTA - 114) & 127)]) + ((0.00041981599999999999 * fVec23[((IOTA - 107) & 127)]) + ((5.3605900000000008e-05 * fVec23[((IOTA - 105) & 127)]) + ((0.00046969700000000004 * fVec23[((IOTA - 104) & 127)]) + ((0.00047704000000000008 * fVec23[((IOTA - 103) & 127)]) + ((0.00043236800000000009 * fVec23[((IOTA - 102) & 127)]) + ((0.00070973900000000003 * fVec23[((IOTA - 101) & 127)]) + ((0.000705385 * fVec23[((IOTA - 100) & 127)]) + ((0.00045614100000000008 * fVec23[((IOTA - 99) & 127)]) + ((0.00092227100000000001 * fVec23[((IOTA - 98) & 127)]) + ((0.00081300600000000002 * fVec23[((IOTA - 97) & 127)]) + ((0.000623519 * fVec23[((IOTA - 96) & 127)]) + ((0.0013659500000000001 * fVec23[((IOTA - 95) & 127)]) + ((0.00214314 * fVec23[((IOTA - 94) & 127)]) + ((0.0016777999999999999 * fVec23[((IOTA - 93) & 127)]) + ((0.00108099 * fVec23[((IOTA - 92) & 127)]) + ((6.7984800000000007e-05 * fVec23[((IOTA - 90) & 127)]) + ((0.000264467 * fVec23[((IOTA - 89) & 127)]) + ((0.00045975200000000007 * fVec23[((IOTA - 88) & 127)]) + ((0.0013345100000000001 * fVec23[((IOTA - 87) & 127)]) + ((0.0013671599999999999 * fVec23[((IOTA - 86) & 127)]) + ((0.00088433700000000001 * fVec23[((IOTA - 85) & 127)]) + ((0.0010498400000000002 * fVec23[((IOTA - 84) & 127)]) + ((0.00300031 * fVec23[((IOTA - 83) & 127)]) + ((0.00033132700000000002 * fVec23[((IOTA - 82) & 127)]) + ((2.3648600000000003e-05 * fVec23[((IOTA - 80) & 127)]) + ((0.00058793100000000009 * fVec23[((IOTA - 79) & 127)]) + ((0.0027816299999999998 * fVec23[((IOTA - 78) & 127)]) + ((0.0017765299999999999 * fVec23[((IOTA - 77) & 127)]) + ((0.00046795000000000002 * fVec23[((IOTA - 73) & 127)]) + ((0.0016152100000000002 * fVec23[((IOTA - 72) & 127)]) + ((0.058508199999999996 * fVec23[((IOTA - 22) & 127)]) + ((0.050635700000000006 * fVec23[((IOTA - 21) & 127)]) + ((0.041341200000000002 * fVec23[((IOTA - 20) & 127)]) + ((0.0214629 * fVec23[((IOTA - 19) & 127)]) + ((0.029345699999999999 * fVec23[((IOTA - 18) & 127)]) + ((0.088954799999999987 * fVec23[((IOTA - 17) & 127)]) + ((0.063658400000000004 * fVec23[((IOTA - 16) & 127)]) + ((0.078143400000000002 * fVec23[((IOTA - 15) & 127)]) + ((0.060886200000000001 * fVec23[((IOTA - 14) & 127)]) + ((0.077131900000000003 * fVec23[((IOTA - 13) & 127)]) + ((0.090551499999999993 * fVec23[((IOTA - 12) & 127)]) + ((0.0054581200000000003 * fVec23[((IOTA - 11) & 127)]) + ((0.00114689 * fVec23[((IOTA - 5) & 127)]) + ((0.00058690300000000006 * fVec23[((IOTA - 4) & 127)]) + ((0.0012299100000000001 * fVec23[((IOTA - 3) & 127)]) + ((0.00015469 * fVec23[((IOTA - 1) & 127)]) + ((3.3955100000000003e-05 * fTemp23) + ((2.0625300000000001e-06 * fVec35[((IOTA - 126) & 127)]) + ((5.0813899999999995e-06 * fVec35[((IOTA - 125) & 127)]) + ((5.7126099999999992e-06 * fVec35[((IOTA - 124) & 127)]) + ((0.0018110400000000001 * fVec23[((IOTA - 9) & 127)]) + ((2.09787e-05 * fVec35[((IOTA - 123) & 127)]) + ((1.8717900000000003e-05 * fVec35[((IOTA - 122) & 127)]) + ((4.2541300000000006e-05 * fVec35[((IOTA - 121) & 127)]) + ((0.00010654600000000001 * fVec35[((IOTA - 120) & 127)]) + ((0.00016404399999999999 * fVec35[((IOTA - 119) & 127)]) + ((0.00016872499999999999 * fVec35[((IOTA - 118) & 127)]) + ((0.00025855300000000002 * fVec35[((IOTA - 117) & 127)]) + ((0.00034160000000000001 * fVec35[((IOTA - 116) & 127)]) + ((0.00045382400000000002 * fVec35[((IOTA - 115) & 127)]) + ((0.00054736599999999998 * fVec35[((IOTA - 114) & 127)]) + ((0.00053358400000000003 * fVec35[((IOTA - 113) & 127)]) + ((0.00050102000000000002 * fVec35[((IOTA - 112) & 127)]) + ((0.00067625599999999997 * fVec35[((IOTA - 111) & 127)]) + ((0.00098166300000000002 * fVec35[((IOTA - 110) & 127)]) + ((0.00083451500000000008 * fVec35[((IOTA - 109) & 127)]) + ((0.0009436510000000001 * fVec35[((IOTA - 108) & 127)]) + ((0.0012923000000000001 * fVec35[((IOTA - 107) & 127)]) + ((0.00136699 * fVec35[((IOTA - 106) & 127)]) + ((0.0014059200000000002 * fVec35[((IOTA - 105) & 127)]) + ((0.0012065399999999999 * fVec35[((IOTA - 104) & 127)]) + ((0.00185348 * fVec35[((IOTA - 103) & 127)]) + ((0.00154024 * fVec35[((IOTA - 102) & 127)]) + ((0.00087727600000000008 * fVec35[((IOTA - 101) & 127)]) + ((0.00050683400000000006 * fVec35[((IOTA - 100) & 127)]) + ((0.00061282500000000011 * fVec35[((IOTA - 99) & 127)]) + ((0.00058470199999999999 * fVec35[((IOTA - 98) & 127)]) + ((0.00054874000000000004 * fVec35[((IOTA - 96) & 127)]) + ((0.00272945 * fVec35[((IOTA - 95) & 127)]) + ((0.0021461499999999999 * fVec35[((IOTA - 94) & 127)]) + ((2.3955000000000004e-05 * fVec35[((IOTA - 93) & 127)]) + ((0.00041329900000000006 * fVec35[((IOTA - 90) & 127)]) + ((0.0037083100000000003 * fVec35[((IOTA - 87) & 127)]) + ((0.0051757600000000006 * fVec35[((IOTA - 86) & 127)]) + ((0.0016799500000000001 * fVec35[((IOTA - 85) & 127)]) + ((0.0015701700000000001 * fVec35[((IOTA - 83) & 127)]) + ((0.00056369199999999997 * fVec35[((IOTA - 82) & 127)]) + ((0.0024365300000000001 * fVec35[((IOTA - 80) & 127)]) + ((0.0041905200000000005 * fVec35[((IOTA - 79) & 127)]) + ((0.0024405 * fVec35[((IOTA - 78) & 127)]) + ((0.00082847699999999999 * fVec35[((IOTA - 77) & 127)]) + ((0.0041945800000000007 * fVec35[((IOTA - 76) & 127)]) + ((0.0063743100000000002 * fVec35[((IOTA - 75) & 127)]) + ((0.0029129100000000003 * fVec35[((IOTA - 74) & 127)]) + ((0.0030868900000000001 * fVec35[((IOTA - 73) & 127)]) + ((0.0052356299999999998 * fVec35[((IOTA - 72) & 127)]) + ((0.0032107500000000001 * fVec35[((IOTA - 71) & 127)]) + ((0.00185049 * fVec35[((IOTA - 70) & 127)]) + ((0.0014647 * fVec35[((IOTA - 69) & 127)]) + ((0.0022559300000000002 * fVec35[((IOTA - 68) & 127)]) + ((0.0034284599999999999 * fVec35[((IOTA - 67) & 127)]) + ((0.0023089200000000003 * fVec35[((IOTA - 66) & 127)]) + ((0.0027403499999999999 * fVec35[((IOTA - 65) & 127)]) + ((0.0042152999999999999 * fVec35[((IOTA - 64) & 127)]) + ((0.0062385100000000001 * fVec35[((IOTA - 63) & 127)]) + ((0.0068040700000000006 * fVec35[((IOTA - 62) & 127)]) + ((0.0035775299999999998 * fVec35[((IOTA - 61) & 127)]) + ((0.0042250600000000001 * fVec35[((IOTA - 60) & 127)]) + ((0.0031211899999999998 * fVec35[((IOTA - 59) & 127)]) + ((0.0036129299999999999 * fVec35[((IOTA - 58) & 127)]) + ((0.0050028199999999998 * fVec35[((IOTA - 57) & 127)]) + ((0.0012118500000000002 * fVec35[((IOTA - 56) & 127)]) + ((0.0012461600000000001 * fVec35[((IOTA - 55) & 127)]) + ((0.00305273 * fVec35[((IOTA - 54) & 127)]) + ((0.00325793 * fVec35[((IOTA - 53) & 127)]) + ((0.0028833999999999999 * fVec35[((IOTA - 52) & 127)]) + ((0.0036652500000000001 * fVec35[((IOTA - 51) & 127)]) + ((0.00086377000000000014 * fVec35[((IOTA - 50) & 127)]) + ((0.00175234 * fVec35[((IOTA - 49) & 127)]) + ((0.00306785 * fVec35[((IOTA - 48) & 127)]) + ((0.00250454 * fVec35[((IOTA - 46) & 127)]) + ((0.015005800000000001 * fVec35[((IOTA - 45) & 127)]) + ((0.0079248200000000008 * fVec35[((IOTA - 44) & 127)]) + ((0.0028857800000000001 * fVec35[((IOTA - 43) & 127)]) + ((0.0074329900000000004 * fVec35[((IOTA - 42) & 127)]) + ((0.0056945699999999995 * fVec35[((IOTA - 41) & 127)]) + ((0.0064973000000000001 * fVec35[((IOTA - 40) & 127)]) + ((0.011589100000000001 * fVec35[((IOTA - 39) & 127)]) + ((0.0069301900000000001 * fVec35[((IOTA - 38) & 127)]) + ((0.0079812000000000008 * fVec35[((IOTA - 37) & 127)]) + ((0.0141227 * fVec35[((IOTA - 36) & 127)]) + ((0.0044680700000000002 * fVec35[((IOTA - 35) & 127)]) + ((0.020023599999999999 * fVec35[((IOTA - 34) & 127)]) + ((0.023001999999999998 * fVec35[((IOTA - 33) & 127)]) + ((0.0057082499999999998 * fVec35[((IOTA - 32) & 127)]) + ((0.011366300000000001 * fVec35[((IOTA - 31) & 127)]) + ((0.0266261 * fVec35[((IOTA - 30) & 127)]) + ((0.0087064099999999995 * fVec35[((IOTA - 29) & 127)]) + ((0.030624600000000002 * fVec35[((IOTA - 27) & 127)]) + ((0.0528391 * fVec35[((IOTA - 26) & 127)]) + ((0.031746299999999998 * fVec35[((IOTA - 25) & 127)]) + ((((((((((((((((((((((((2.5118200000000003e-05 * fTemp35) + (0.00012370799999999999 * fVec35[((IOTA - 1) & 127)])) + (0.00096838400000000008 * fVec35[((IOTA - 3) & 127)])) + (0.00059949000000000005 * fVec35[((IOTA - 4) & 127)])) + (0.00076772799999999997 * fVec35[((IOTA - 5) & 127)])) + (0.00014117900000000001 * fVec35[((IOTA - 6) & 127)])) + (0.0018634200000000002 * fVec35[((IOTA - 7) & 127)])) + (0.00024957099999999997 * fVec35[((IOTA - 8) & 127)])) + (0.0011589199999999999 * fVec35[((IOTA - 9) & 127)])) + (0.00050879500000000004 * fVec35[((IOTA - 10) & 127)])) + (0.0036302599999999997 * fVec35[((IOTA - 11) & 127)])) + (0.056510400000000002 * fVec35[((IOTA - 12) & 127)])) + (0.049342300000000006 * fVec35[((IOTA - 13) & 127)])) + (0.0449074 * fVec35[((IOTA - 14) & 127)])) + (0.064749100000000004 * fVec35[((IOTA - 15) & 127)])) + (0.059606500000000007 * fVec35[((IOTA - 16) & 127)])) + (0.073495100000000008 * fVec35[((IOTA - 17) & 127)])) + (0.034514800000000005 * fVec35[((IOTA - 18) & 127)])) + (0.055772500000000003 * fVec35[((IOTA - 19) & 127)])) + (0.06596840000000001 * fVec35[((IOTA - 20) & 127)])) + (0.057809200000000005 * fVec35[((IOTA - 21) & 127)])) + (0.096895100000000012 * fVec35[((IOTA - 22) & 127)])) + (0.021260899999999999 * fVec35[((IOTA - 23) & 127)])) + (0.00194177 * fVec23[((IOTA - 7) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (8.1495099999999995e-06 * fTemp2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (5.6033000000000004e-05 * fVec2[((IOTA - 112) & 127)]))))) + (5.4062099999999999e-06 * fTemp3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((0.0017748 * (fVec0[((IOTA - 37) & 127)] - fVec2[((IOTA - 11) & 127)])) + ((1.2428099999999998e-06 * fVec2[((IOTA - 126) & 127)]) + ((3.2792599999999998e-06 * fVec2[((IOTA - 125) & 127)]) + ((2.2750200000000001e-05 * fVec2[((IOTA - 123) & 127)]) + ((4.2331799999999998e-06 * fVec2[((IOTA - 122) & 127)]) + ((1.1368e-07 * fVec3[((IOTA - 125) & 127)]) + ((1.0452899999999999e-06 * fVec3[((IOTA - 124) & 127)]) + ((8.8748199999999998e-06 * fVec3[((IOTA - 123) & 127)]) + ((3.0136000000000001e-05 * fVec3[((IOTA - 121) & 127)]) + ((5.1785900000000002e-05 * fVec3[((IOTA - 120) & 127)]) + ((4.6594100000000008e-05 * fVec3[((IOTA - 117) & 127)]) + ((4.237040000000001e-05 * fVec3[((IOTA - 116) & 127)]) + ((7.5302800000000007e-05 * fVec3[((IOTA - 115) & 127)]) + ((0.00015921899999999999 * fVec3[((IOTA - 114) & 127)]) + ((0.00029620800000000001 * fVec3[((IOTA - 111) & 127)]) + ((0.00010367800000000001 * fVec3[((IOTA - 110) & 127)]) + ((0.000257395 * fVec3[((IOTA - 106) & 127)]) + ((0.00022867000000000002 * fVec3[((IOTA - 105) & 127)]) + ((0.00059618500000000005 * fVec3[((IOTA - 102) & 127)]) + ((5.3153400000000005e-05 * fVec3[((IOTA - 98) & 127)]) + ((0.00050300500000000005 * fVec3[((IOTA - 96) & 127)]) + ((0.00089824300000000017 * fVec3[((IOTA - 95) & 127)]) + ((0.00071672300000000006 * fVec3[((IOTA - 91) & 127)]) + ((0.00087084 * fVec3[((IOTA - 90) & 127)]) + ((0.00066567000000000004 * fVec3[((IOTA - 87) & 127)]) + ((0.00063050300000000003 * fVec3[((IOTA - 86) & 127)]) + ((0.00036544600000000001 * fVec3[((IOTA - 78) & 127)]) + ((0.0005348620000000001 * fVec3[((IOTA - 77) & 127)]) + ((0.00011637300000000001 * fVec3[((IOTA - 76) & 127)]) + ((0.00062500400000000008 * fVec3[((IOTA - 74) & 127)]) + ((0.0030246700000000001 * fVec3[((IOTA - 73) & 127)]) + ((5.18251e-05 * fVec3[((IOTA - 72) & 127)]) + ((0.00104465 * fVec3[((IOTA - 70) & 127)]) + ((0.00068156400000000006 * fVec3[((IOTA - 69) & 127)]) + ((0.00091668200000000004 * fVec3[((IOTA - 64) & 127)]) + ((0.0014250000000000001 * fVec3[((IOTA - 63) & 127)]) + ((0.00084994200000000012 * fVec3[((IOTA - 62) & 127)]) + ((0.0013655200000000001 * fVec3[((IOTA - 61) & 127)]) + ((0.00027888500000000004 * fVec3[((IOTA - 59) & 127)]) + ((0.00086320200000000009 * fVec3[((IOTA - 58) & 127)]) + ((0.0014153 * fVec3[((IOTA - 54) & 127)]) + ((0.0045418999999999998 * fVec3[((IOTA - 53) & 127)]) + ((0.00384556 * fVec3[((IOTA - 52) & 127)]) + ((0.000366072 * fVec3[((IOTA - 51) & 127)]) + ((0.0014374700000000002 * fVec3[((IOTA - 46) & 127)]) + ((0.00033874399999999998 * fVec3[((IOTA - 41) & 127)]) + ((0.00030484800000000003 * fVec3[((IOTA - 40) & 127)]) + ((0.0048036700000000003 * fVec3[((IOTA - 39) & 127)]) + ((0.00164291 * fVec3[((IOTA - 37) & 127)]) + ((0.00249059 * fVec3[((IOTA - 36) & 127)]) + ((0.0017187699999999999 * fVec3[((IOTA - 34) & 127)]) + ((0.014106700000000002 * fVec3[((IOTA - 31) & 127)]) + ((0.0034631599999999998 * fVec3[((IOTA - 30) & 127)]) + ((0.00122021 * fVec3[((IOTA - 29) & 127)]) + ((0.0144908 * fVec3[((IOTA - 28) & 127)]) + ((0.0051645099999999998 * fVec3[((IOTA - 27) & 127)]) + ((0.0019336899999999998 * fVec3[((IOTA - 25) & 127)]) + ((0.015479700000000001 * fVec3[((IOTA - 24) & 127)]) + ((0.028817700000000002 * fVec3[((IOTA - 21) & 127)]) + ((0.027774999999999998 * fVec3[((IOTA - 20) & 127)]) + ((0.0095242599999999997 * fVec3[((IOTA - 19) & 127)]) + ((0.0279913 * fVec3[((IOTA - 17) & 127)]) + ((0.0417492 * fVec3[((IOTA - 16) & 127)]) + ((0.026455700000000002 * fVec3[((IOTA - 12) & 127)]) + ((0.0106439 * fVec3[((IOTA - 11) & 127)]) + ((0.0028387799999999999 * fVec3[((IOTA - 9) & 127)]) + ((0.0027678799999999999 * fVec3[((IOTA - 7) & 127)]) + ((0.00059594300000000004 * fVec3[((IOTA - 5) & 127)]) + (((5.3590300000000001e-05 * fVec2[((IOTA - 120) & 127)]) + (((0.00014028700000000001 * fVec2[((IOTA - 116) & 127)]) + ((1.5673600000000002e-05 * fVec2[((IOTA - 117) & 127)]) + ((4.8999100000000003e-05 * fVec2[((IOTA - 114) & 127)]) + ((1.5814299999999998e-06 * fVec2[((IOTA - 119) & 127)]) + ((0.00050147500000000003 * fVec2[((IOTA - 108) & 127)]) + ((0.00022363300000000002 * fVec2[((IOTA - 107) & 127)]) + ((0.00033507799999999999 * fVec2[((IOTA - 100) & 127)]) + ((0.00011688400000000001 * fVec2[((IOTA - 97) & 127)]) + ((0.00021406600000000001 * fVec2[((IOTA - 96) & 127)]) + ((0.000297423 * fVec2[((IOTA - 93) & 127)]) + ((0.0015387000000000001 * fVec2[((IOTA - 90) & 127)]) + ((0.00186258 * fVec2[((IOTA - 89) & 127)]) + ((0.00084719700000000005 * fVec2[((IOTA - 86) & 127)]) + ((0.00233796 * fVec2[((IOTA - 85) & 127)]) + ((0.00012764500000000002 * fVec2[((IOTA - 84) & 127)]) + ((0.00021616300000000004 * fVec2[((IOTA - 83) & 127)]) + ((0.0024212699999999997 * fVec2[((IOTA - 76) & 127)]) + ((0.0028761400000000001 * fVec2[((IOTA - 75) & 127)]) + ((0.00043300400000000007 * fVec2[((IOTA - 72) & 127)]) + ((0.0024417599999999999 * fVec2[((IOTA - 71) & 127)]) + ((0.00075618700000000007 * fVec2[((IOTA - 70) & 127)]) + ((0.0017281500000000001 * fVec2[((IOTA - 65) & 127)]) + ((0.0051248600000000002 * fVec2[((IOTA - 64) & 127)]) + ((0.00047788000000000008 * fVec2[((IOTA - 63) & 127)]) + ((0.00093317700000000009 * fVec2[((IOTA - 58) & 127)]) + ((0.0021754500000000002 * fVec2[((IOTA - 57) & 127)]) + ((0.00054847800000000003 * fVec2[((IOTA - 56) & 127)]) + ((0.0027896000000000002 * fVec2[((IOTA - 53) & 127)]) + ((0.0026196700000000002 * fVec2[((IOTA - 52) & 127)]) + ((0.0031945100000000002 * fVec2[((IOTA - 51) & 127)]) + ((0.0014128300000000001 * fVec2[((IOTA - 50) & 127)]) + ((0.0013778600000000001 * fVec2[((IOTA - 47) & 127)]) + ((0.0024624100000000004 * fVec2[((IOTA - 44) & 127)]) + ((0.0041832300000000005 * fVec2[((IOTA - 40) & 127)]) + ((0.0042394400000000006 * fVec2[((IOTA - 38) & 127)]) + ((0.0079954099999999997 * fVec2[((IOTA - 37) & 127)]) + ((0.0063875200000000007 * fVec2[((IOTA - 34) & 127)]) + ((0.0162934 * fVec2[((IOTA - 33) & 127)]) + ((0.0146474 * fVec2[((IOTA - 32) & 127)]) + ((0.00101902 * fVec2[((IOTA - 29) & 127)]) + ((0.0168571 * fVec2[((IOTA - 28) & 127)]) + ((0.00062889200000000004 * fVec2[((IOTA - 27) & 127)]) + ((0.0076468400000000002 * fVec2[((IOTA - 25) & 127)]) + ((0.033886800000000002 * fVec2[((IOTA - 22) & 127)]) + ((0.0071410200000000005 * fVec2[((IOTA - 19) & 127)]) + ((0.036717600000000003 * fVec2[((IOTA - 18) & 127)]) + ((0.0076565000000000001 * fVec2[((IOTA - 17) & 127)]) + ((0.00298 * fVec2[((IOTA - 14) & 127)]) + ((0.0069646600000000001 * fVec2[((IOTA - 12) & 127)]) + ((0.00068874700000000008 * fVec2[((IOTA - 10) & 127)]) + ((0.00090127200000000005 * fVec2[((IOTA - 9) & 127)]) + ((0.00070176899999999998 * fVec2[((IOTA - 6) & 127)]) + ((0.00027111300000000002 * fVec2[((IOTA - 5) & 127)]) + ((0.00022685700000000001 * fVec1[((IOTA - 97) & 127)]) + ((0.0021709200000000002 * fVec1[((IOTA - 96) & 127)]) + ((0.00085764700000000012 * fVec1[((IOTA - 95) & 127)]) + ((0.00082614900000000009 * fVec1[((IOTA - 93) & 127)]) + ((0.00159165 * fVec1[((IOTA - 92) & 127)]) + ((0.00034550500000000002 * fVec1[((IOTA - 91) & 127)]) + ((0.00033078400000000004 * fVec1[((IOTA - 88) & 127)]) + ((0.00027603000000000003 * fVec1[((IOTA - 87) & 127)]) + ((0.00029228900000000005 * fVec1[((IOTA - 85) & 127)]) + ((0.00243838 * fVec1[((IOTA - 84) & 127)]) + ((0.0026374200000000001 * fVec1[((IOTA - 83) & 127)]) + ((0.00136692 * fVec1[((IOTA - 82) & 127)]) + ((0.00084570000000000012 * fVec1[((IOTA - 80) & 127)]) + ((0.00036336300000000001 * fVec1[((IOTA - 75) & 127)]) + ((0.00011652400000000001 * fVec1[((IOTA - 74) & 127)]) + ((0.00032160799999999997 * fVec1[((IOTA - 71) & 127)]) + ((0.00053794599999999998 * fVec1[((IOTA - 70) & 127)]) + ((0.00088611199999999999 * fVec1[((IOTA - 65) & 127)]) + ((0.0026223600000000002 * fVec1[((IOTA - 64) & 127)]) + ((0.0030361699999999999 * fVec1[((IOTA - 61) & 127)]) + ((0.0051482099999999994 * fVec1[((IOTA - 60) & 127)]) + ((0.0038286600000000002 * fVec1[((IOTA - 59) & 127)]) + ((0.0013894299999999999 * fVec1[((IOTA - 55) & 127)]) + ((0.00247795 * fVec1[((IOTA - 54) & 127)]) + ((0.0029021699999999999 * fVec1[((IOTA - 53) & 127)]) + ((0.0021600199999999999 * fVec1[((IOTA - 52) & 127)]) + ((0.0043512100000000003 * fVec1[((IOTA - 47) & 127)]) + ((0.0027352400000000003 * fVec1[((IOTA - 46) & 127)]) + ((0.010442 * fVec1[((IOTA - 42) & 127)]) + ((0.0069286199999999999 * fVec1[((IOTA - 41) & 127)]) + ((0.000433275 * fVec1[((IOTA - 40) & 127)]) + ((0.0015492300000000002 * fVec1[((IOTA - 39) & 127)]) + ((0.0029692899999999999 * fVec1[((IOTA - 37) & 127)]) + ((0.0062910800000000001 * fVec1[((IOTA - 34) & 127)]) + ((9.2176700000000001e-05 * fVec1[((IOTA - 32) & 127)]) + ((0.013434 * fVec1[((IOTA - 29) & 127)]) + ((0.012582400000000001 * fVec1[((IOTA - 28) & 127)]) + ((0.027007300000000001 * fVec1[((IOTA - 27) & 127)]) + ((0.027768000000000001 * fVec1[((IOTA - 23) & 127)]) + ((0.023543700000000001 * fVec1[((IOTA - 22) & 127)]) + ((0.048374199999999999 * fVec1[((IOTA - 19) & 127)]) + ((0.00038413800000000001 * fVec1[((IOTA - 18) & 127)]) + ((0.015292399999999999 * fVec1[((IOTA - 14) & 127)]) + ((0.0027435599999999999 * fVec1[((IOTA - 12) & 127)]) + ((0.00111859 * fVec1[((IOTA - 11) & 127)]) + ((0.000236882 * fVec1[((IOTA - 10) & 127)]) + ((0.00018073699999999999 * fVec1[((IOTA - 9) & 127)]) + ((0.00055218400000000005 * fVec1[((IOTA - 7) & 127)]) + ((0.00102578 * fVec1[((IOTA - 5) & 127)]) + ((0.00032584900000000002 * fVec1[((IOTA - 3) & 127)]) + ((3.7578000000000005e-05 * fVec1[((IOTA - 1) & 127)]) + ((0.00015806700000000002 * fVec1[((IOTA - 116) & 127)]) + ((3.3061900000000003e-05 * fVec1[((IOTA - 112) & 127)]) + ((5.8162399999999989e-07 * fVec1[((IOTA - 126) & 127)]) + ((4.8020300000000003e-06 * fVec1[((IOTA - 125) & 127)]) + ((2.7363e-06 * fVec1[((IOTA - 124) & 127)]) + ((1.1707000000000002e-05 * fVec1[((IOTA - 123) & 127)]) + ((1.4182800000000001e-05 * fVec1[((IOTA - 120) & 127)]) + ((1.8906799999999998e-07 * fVec8[((IOTA - 126) & 127)]) + ((2.2341899999999999e-06 * fVec8[((IOTA - 124) & 127)]) + ((7.2523899999999995e-06 * fVec8[((IOTA - 123) & 127)]) + ((1.1632800000000002e-05 * fVec8[((IOTA - 122) & 127)]) + ((1.2815000000000002e-05 * fVec8[((IOTA - 120) & 127)]) + ((4.3870300000000006e-05 * fVec8[((IOTA - 119) & 127)]) + ((2.12418e-05 * fVec8[((IOTA - 116) & 127)]) + ((6.3248200000000002e-05 * fVec8[((IOTA - 115) & 127)]) + ((7.2504899999999996e-06 * fVec8[((IOTA - 114) & 127)]) + ((5.3088699999999999e-05 * fVec8[((IOTA - 113) & 127)]) + ((4.6409099999999998e-06 * fVec8[((IOTA - 112) & 127)]) + ((1.0132900000000001e-05 * fVec8[((IOTA - 107) & 127)]) + ((0.00031120300000000002 * fVec8[((IOTA - 104) & 127)]) + ((0.00046980700000000004 * fVec8[((IOTA - 92) & 127)]) + ((0.00077178399999999997 * fVec8[((IOTA - 90) & 127)]) + ((0.0025545300000000002 * fVec8[((IOTA - 89) & 127)]) + ((0.0023083399999999999 * fVec8[((IOTA - 85) & 127)]) + ((0.0020812000000000001 * fVec8[((IOTA - 84) & 127)]) + ((0.0011864500000000001 * fVec8[((IOTA - 80) & 127)]) + ((0.0015861600000000001 * fVec8[((IOTA - 79) & 127)]) + ((0.00033844000000000002 * fVec8[((IOTA - 78) & 127)]) + ((0.00081387199999999999 * fVec8[((IOTA - 73) & 127)]) + ((0.00030503100000000004 * fVec8[((IOTA - 72) & 127)]) + ((0.00086728400000000007 * fVec8[((IOTA - 66) & 127)]) + ((0.00066844099999999998 * fVec8[((IOTA - 64) & 127)]) + ((0.0017065600000000002 * fVec8[((IOTA - 63) & 127)]) + ((7.9880600000000002e-05 * fVec8[((IOTA - 62) & 127)]) + ((0.00058366500000000003 * fVec8[((IOTA - 60) & 127)]) + ((0.0029923200000000001 * fVec8[((IOTA - 59) & 127)]) + ((0.0022988700000000002 * fVec8[((IOTA - 58) & 127)]) + ((0.0025412900000000003 * fVec8[((IOTA - 54) & 127)]) + ((0.00019665700000000001 * fVec8[((IOTA - 53) & 127)]) + ((0.00046025400000000006 * fVec8[((IOTA - 52) & 127)]) + ((0.0031450100000000002 * fVec8[((IOTA - 51) & 127)]) + ((0.0030871599999999998 * fVec8[((IOTA - 48) & 127)]) + ((0.0037002100000000002 * fVec8[((IOTA - 47) & 127)]) + ((0.0072840600000000002 * fVec8[((IOTA - 46) & 127)]) + ((0.0018587199999999999 * fVec8[((IOTA - 45) & 127)]) + ((0.011697200000000001 * fVec8[((IOTA - 41) & 127)]) + ((0.0054248200000000003 * fVec8[((IOTA - 40) & 127)]) + ((0.0036415000000000002 * fVec8[((IOTA - 36) & 127)]) + ((0.00321032 * fVec8[((IOTA - 34) & 127)]) + ((0.015532600000000001 * fVec8[((IOTA - 33) & 127)]) + ((0.00040727700000000005 * fVec8[((IOTA - 32) & 127)]) + ((0.0077309000000000006 * fVec8[((IOTA - 29) & 127)]) + ((0.018899300000000001 * fVec8[((IOTA - 28) & 127)]) + ((0.0098889300000000006 * fVec8[((IOTA - 27) & 127)]) + ((0.025709399999999997 * fVec8[((IOTA - 23) & 127)]) + ((0.054097699999999999 * fVec8[((IOTA - 22) & 127)]) + ((0.018824199999999999 * fVec8[((IOTA - 21) & 127)]) + ((0.029708399999999999 * fVec8[((IOTA - 17) & 127)]) + ((0.034653099999999999 * fVec8[((IOTA - 16) & 127)]) + ((0.015179700000000001 * fVec8[((IOTA - 12) & 127)]) + ((0.00027971300000000001 * fVec8[((IOTA - 10) & 127)]) + ((0.00033160200000000001 * fVec8[((IOTA - 8) & 127)]) + ((0.000311959 * fVec8[((IOTA - 7) & 127)]) + ((0.00044927400000000005 * fVec8[((IOTA - 4) & 127)]) + ((0.00017586500000000001 * fVec8[((IOTA - 3) & 127)]) + ((4.4886200000000002e-06 * fTemp8) + ((0.00029661500000000002 * fVec1[((IOTA - 104) & 127)]) + ((0.00067222099999999997 * fVec1[((IOTA - 103) & 127)]) + ((1.9648800000000001e-05 * fVec5[((IOTA - 119) & 127)]) + ((1.2491699999999999e-05 * fVec5[((IOTA - 118) & 127)]) + ((4.4503500000000005e-05 * fVec5[((IOTA - 117) & 127)]) + ((0.00021195100000000002 * fVec5[((IOTA - 116) & 127)]) + ((0.00016203300000000001 * fVec5[((IOTA - 115) & 127)]) + ((5.6872700000000002e-05 * fVec5[((IOTA - 114) & 127)]) + ((0.00010308 * fVec5[((IOTA - 112) & 127)]) + ((0.000208731 * fVec5[((IOTA - 110) & 127)]) + ((0.00068960199999999999 * fVec5[((IOTA - 109) & 127)]) + ((0.00054645700000000008 * fVec5[((IOTA - 108) & 127)]) + ((1.8441200000000002e-05 * fVec5[((IOTA - 106) & 127)]) + ((0.00042357400000000002 * fVec5[((IOTA - 105) & 127)]) + ((0.00048893999999999999 * fVec5[((IOTA - 104) & 127)]) + ((0.00024845100000000001 * fVec5[((IOTA - 103) & 127)]) + ((0.00017894900000000002 * fVec5[((IOTA - 102) & 127)]) + ((6.7516100000000002e-05 * fVec5[((IOTA - 96) & 127)]) + ((0.0017108000000000002 * fVec5[((IOTA - 88) & 127)]) + ((1.1331800000000002e-05 * fVec5[((IOTA - 87) & 127)]) + ((0.00113013 * fVec5[((IOTA - 84) & 127)]) + ((0.00176922 * fVec5[((IOTA - 83) & 127)]) + ((0.00098374200000000012 * fVec5[((IOTA - 82) & 127)]) + ((0.00096988900000000015 * fVec5[((IOTA - 81) & 127)]) + ((0.00041691500000000002 * fVec5[((IOTA - 76) & 127)]) + ((0.00136177 * fVec5[((IOTA - 75) & 127)]) + ((0.0035581200000000001 * fVec5[((IOTA - 74) & 127)]) + ((0.0032476200000000001 * fVec5[((IOTA - 73) & 127)]) + ((0.00082674300000000001 * fVec5[((IOTA - 72) & 127)]) + ((0.00010392300000000001 * fVec5[((IOTA - 69) & 127)]) + ((0.0010315600000000002 * fVec5[((IOTA - 63) & 127)]) + ((0.00066618000000000005 * fVec5[((IOTA - 62) & 127)]) + ((0.00066067299999999997 * fVec5[((IOTA - 61) & 127)]) + ((0.0030366200000000003 * fVec5[((IOTA - 60) & 127)]) + ((0.0055067099999999997 * fVec5[((IOTA - 59) & 127)]) + ((0.0033698399999999998 * fVec5[((IOTA - 58) & 127)]) + ((0.0012369500000000001 * fVec5[((IOTA - 57) & 127)]) + ((0.0022778900000000003 * fVec5[((IOTA - 54) & 127)]) + ((0.00048077500000000007 * fVec5[((IOTA - 43) & 127)]) + ((0.0046110700000000001 * fVec5[((IOTA - 42) & 127)]) + ((7.870070000000001e-05 * fVec5[((IOTA - 41) & 127)]) + ((0.00054999000000000009 * fVec5[((IOTA - 40) & 127)]) + ((0.0054236100000000006 * fVec5[((IOTA - 39) & 127)]) + ((0.0029943300000000003 * fVec5[((IOTA - 38) & 127)]) + ((0.0020941000000000002 * fVec5[((IOTA - 36) & 127)]) + ((0.0054747700000000003 * fVec5[((IOTA - 35) & 127)]) + ((0.0093895800000000015 * fVec5[((IOTA - 31) & 127)]) + ((0.0073566900000000008 * fVec5[((IOTA - 28) & 127)]) + ((0.011920200000000001 * fVec5[((IOTA - 27) & 127)]) + ((0.00161714 * fVec5[((IOTA - 26) & 127)]) + ((0.0065279500000000002 * fVec5[((IOTA - 24) & 127)]) + ((0.0057281199999999997 * fVec5[((IOTA - 23) & 127)]) + ((0.0025077799999999998 * fVec5[((IOTA - 22) & 127)]) + ((0.045951700000000005 * fVec5[((IOTA - 19) & 127)]) + ((0.0098139500000000001 * fVec5[((IOTA - 18) & 127)]) + ((0.016422000000000003 * fVec5[((IOTA - 14) & 127)]) + ((0.00114539 * fVec5[((IOTA - 10) & 127)]) + ((0.00066453400000000004 * fVec5[((IOTA - 5) & 127)]) + ((0.00014704800000000002 * fVec5[((IOTA - 3) & 127)]) + ((4.0382500000000002e-05 * fVec5[((IOTA - 1) & 127)]) + ((3.5565599999999999e-07 * fVec7[((IOTA - 126) & 127)]) + ((9.1062700000000002e-07 * fVec7[((IOTA - 125) & 127)]) + ((2.0649599999999999e-06 * fVec7[((IOTA - 123) & 127)]) + ((5.8832200000000002e-05 * fVec7[((IOTA - 119) & 127)]) + ((7.1316900000000002e-05 * fVec7[((IOTA - 118) & 127)]) + ((3.4692600000000001e-05 * fVec7[((IOTA - 117) & 127)]) + ((0.0010377400000000001 * fVec7[((IOTA - 45) & 127)]) + ((0.00037675000000000002 * fVec7[((IOTA - 44) & 127)]) + ((0.0017432399999999999 * fVec7[((IOTA - 42) & 127)]) + ((0.0029357799999999998 * fVec7[((IOTA - 41) & 127)]) + ((0.0046570400000000003 * fVec7[((IOTA - 40) & 127)]) + ((0.0064433700000000003 * fVec7[((IOTA - 36) & 127)]) + ((0.015688299999999999 * fVec7[((IOTA - 35) & 127)]) + ((0.0057866300000000001 * fVec7[((IOTA - 32) & 127)]) + ((0.012194400000000001 * fVec7[((IOTA - 31) & 127)]) + ((0.00023795899999999999 * fVec7[((IOTA - 28) & 127)]) + ((0.011861500000000001 * fVec7[((IOTA - 27) & 127)]) + ((0.048998699999999999 * fVec7[((IOTA - 22) & 127)]) + ((0.030317300000000002 * fVec7[((IOTA - 17) & 127)]) + ((0.023401399999999999 * fVec7[((IOTA - 16) & 127)]) + ((0.012933500000000001 * fVec7[((IOTA - 12) & 127)]) + ((0.0010612900000000001 * fVec7[((IOTA - 10) & 127)]) + ((0.00051073000000000004 * fVec7[((IOTA - 8) & 127)]) + ((0.00014768800000000001 * fVec7[((IOTA - 7) & 127)]) + ((0.00039946100000000004 * fVec7[((IOTA - 4) & 127)]) + ((0.00024617900000000002 * fVec7[((IOTA - 3) & 127)]) + ((1.1803900000000002e-05 * fTemp7) + ((0.00017110399999999999 * fVec7[((IOTA - 50) & 127)]) + ((1.1923800000000001e-05 * fVec7[((IOTA - 114) & 127)]) + ((8.9486099999999998e-07 * fVec7[((IOTA - 113) & 127)]) + ((6.4856699999999999e-05 * fVec7[((IOTA - 112) & 127)]) + ((0.000116221 * fVec7[((IOTA - 110) & 127)]) + ((6.72879e-06 * fVec7[((IOTA - 109) & 127)]) + ((0.000139837 * fVec7[((IOTA - 107) & 127)]) + ((7.9662500000000005e-05 * fVec7[((IOTA - 106) & 127)]) + ((0.000187727 * fVec7[((IOTA - 105) & 127)]) + ((0.000111947 * fVec7[((IOTA - 104) & 127)]) + ((1.6833800000000001e-05 * fVec7[((IOTA - 103) & 127)]) + ((7.8021400000000005e-05 * fVec7[((IOTA - 101) & 127)]) + ((0.00011700200000000002 * fVec7[((IOTA - 100) & 127)]) + ((0.00034809100000000003 * fVec7[((IOTA - 97) & 127)]) + ((0.00090964500000000016 * fVec7[((IOTA - 96) & 127)]) + ((0.00037990800000000004 * fVec7[((IOTA - 95) & 127)]) + ((9.2039500000000012e-05 * fVec7[((IOTA - 91) & 127)]) + ((0.00096732800000000005 * fVec7[((IOTA - 90) & 127)]) + ((0.00085248300000000002 * fVec7[((IOTA - 89) & 127)]) + ((0.0022487200000000001 * fVec7[((IOTA - 86) & 127)]) + ((0.0029242599999999997 * fVec7[((IOTA - 85) & 127)]) + ((0.00076865199999999999 * fVec7[((IOTA - 81) & 127)]) + ((0.00052445300000000003 * fVec7[((IOTA - 80) & 127)]) + ((0.00253659 * fVec7[((IOTA - 77) & 127)]) + ((0.00094093900000000001 * fVec7[((IOTA - 76) & 127)]) + ((7.3089300000000012e-05 * fVec7[((IOTA - 74) & 127)]) + ((0.00048837800000000003 * fVec7[((IOTA - 73) & 127)]) + ((0.00076806500000000007 * fVec7[((IOTA - 70) & 127)]) + ((0.000529127 * fVec7[((IOTA - 67) & 127)]) + ((0.00043313100000000006 * fVec7[((IOTA - 66) & 127)]) + ((0.00102227 * fVec7[((IOTA - 63) & 127)]) + ((0.00052528399999999999 * fVec7[((IOTA - 62) & 127)]) + ((0.00028461500000000005 * fVec7[((IOTA - 61) & 127)]) + ((0.00198759 * fVec7[((IOTA - 60) & 127)]) + ((0.0035936800000000001 * fVec7[((IOTA - 59) & 127)]) + ((0.0011111599999999999 * fVec7[((IOTA - 58) & 127)]) + ((0.0017386600000000002 * fVec7[((IOTA - 55) & 127)]) + ((0.0049311700000000003 * fVec7[((IOTA - 54) & 127)]) + ((2.1148099999999999e-06 * fVec9[((IOTA - 125) & 127)]) + ((4.5711199999999997e-05 * fVec9[((IOTA - 120) & 127)]) + ((5.42298e-05 * fVec9[((IOTA - 119) & 127)]) + ((0.00012083100000000001 * fVec9[((IOTA - 116) & 127)]) + ((6.27218e-05 * fVec9[((IOTA - 115) & 127)]) + ((0.00046964499999999998 * fVec9[((IOTA - 60) & 127)]) + ((0.00026329700000000001 * fVec9[((IOTA - 59) & 127)]) + ((0.0018275600000000002 * fVec9[((IOTA - 58) & 127)]) + ((0.00041102400000000001 * fVec9[((IOTA - 54) & 127)]) + ((0.0017007000000000001 * fVec9[((IOTA - 53) & 127)]) + ((0.00231387 * fVec9[((IOTA - 52) & 127)]) + ((0.0020779000000000001 * fVec9[((IOTA - 51) & 127)]) + ((0.0056022199999999998 * fVec9[((IOTA - 50) & 127)]) + ((0.00582607 * fVec9[((IOTA - 49) & 127)]) + ((0.00160081 * fVec9[((IOTA - 44) & 127)]) + ((0.00104407 * fVec9[((IOTA - 43) & 127)]) + ((0.0031685799999999998 * fVec9[((IOTA - 40) & 127)]) + ((0.00018332 * fVec9[((IOTA - 39) & 127)]) + ((0.00093215100000000009 * fVec9[((IOTA - 38) & 127)]) + ((0.0043404200000000002 * fVec9[((IOTA - 37) & 127)]) + ((0.0217894 * fVec9[((IOTA - 29) & 127)]) + ((0.026517200000000001 * fVec9[((IOTA - 28) & 127)]) + ((0.0168554 * fVec9[((IOTA - 27) & 127)]) + ((0.034177300000000001 * fVec9[((IOTA - 26) & 127)]) + ((0.0135478 * fVec9[((IOTA - 25) & 127)]) + ((0.00166423 * fVec9[((IOTA - 24) & 127)]) + ((0.0070665800000000003 * fVec9[((IOTA - 18) & 127)]) + ((0.047048 * fVec9[((IOTA - 17) & 127)]) + ((0.035346299999999997 * fVec9[((IOTA - 16) & 127)]) + ((0.0090231900000000004 * fVec9[((IOTA - 15) & 127)]) + ((0.0019528099999999999 * fVec9[((IOTA - 13) & 127)]) + ((0.0017446 * fVec9[((IOTA - 10) & 127)]) + ((0.00085654100000000005 * fVec9[((IOTA - 8) & 127)]) + ((0.00029337100000000001 * fVec9[((IOTA - 4) & 127)]) + ((1.06294e-05 * fVec9[((IOTA - 3) & 127)]) + ((0.000184408 * fVec9[((IOTA - 2) & 127)]) + ((0.00015656399999999999 * fVec9[((IOTA - 1) & 127)]) + ((2.1814200000000002e-05 * fTemp9) + ((1.5246800000000001e-05 * fVec9[((IOTA - 64) & 127)]) + ((9.5111100000000012e-05 * fVec9[((IOTA - 114) & 127)]) + ((0.00119035 * fVec7[((IOTA - 47) & 127)]) + ((0.000189154 * fVec9[((IOTA - 107) & 127)]) + ((0.000288454 * fVec9[((IOTA - 103) & 127)]) + ((0.00041850399999999999 * fVec9[((IOTA - 102) & 127)]) + ((0.00075451800000000003 * fVec9[((IOTA - 101) & 127)]) + ((0.0020261699999999999 * fVec9[((IOTA - 100) & 127)]) + ((0.00020092800000000001 * fVec9[((IOTA - 99) & 127)]) + ((0.00012133300000000001 * fVec9[((IOTA - 96) & 127)]) + ((0.000197653 * fVec9[((IOTA - 92) & 127)]) + ((0.0019592500000000001 * fVec9[((IOTA - 91) & 127)]) + ((0.0028519500000000002 * fVec9[((IOTA - 90) & 127)]) + ((0.0009232200000000001 * fVec9[((IOTA - 89) & 127)]) + ((0.00045499500000000003 * fVec9[((IOTA - 88) & 127)]) + ((0.000257292 * fVec9[((IOTA - 61) & 127)]) + ((0.00030183100000000002 * fVec9[((IOTA - 83) & 127)]) + ((0.00077060400000000004 * fVec9[((IOTA - 82) & 127)]) + ((0.0027795899999999998 * fVec9[((IOTA - 81) & 127)]) + ((0.00026032400000000004 * fVec9[((IOTA - 78) & 127)]) + ((0.00027182400000000005 * fVec9[((IOTA - 77) & 127)]) + ((0.0014794700000000001 * fVec9[((IOTA - 74) & 127)]) + ((0.0025902300000000002 * fVec9[((IOTA - 73) & 127)]) + ((0.0010700099999999999 * fVec9[((IOTA - 72) & 127)]) + ((0.0025843200000000002 * fVec9[((IOTA - 68) & 127)]) + ((1.86267e-06 * fVec10[((IOTA - 125) & 127)]) + ((6.4027499999999998e-06 * fVec10[((IOTA - 124) & 127)]) + ((6.23026e-06 * fVec10[((IOTA - 123) & 127)]) + ((4.4934200000000006e-06 * fVec10[((IOTA - 122) & 127)]) + ((7.2155799999999994e-06 * fVec10[((IOTA - 121) & 127)]) + ((2.3816400000000001e-05 * fVec10[((IOTA - 120) & 127)]) + ((2.3560099999999999e-07 * fVec10[((IOTA - 117) & 127)]) + ((1.7756400000000002e-05 * fVec10[((IOTA - 116) & 127)]) + ((0.0020163700000000004 * fVec10[((IOTA - 69) & 127)]) + ((0.0018022100000000001 * fVec10[((IOTA - 58) & 127)]) + ((0.0023103600000000005 * fVec10[((IOTA - 57) & 127)]) + ((0.00047002600000000002 * fVec10[((IOTA - 56) & 127)]) + ((0.00015724700000000001 * fVec10[((IOTA - 55) & 127)]) + ((0.00197986 * fVec10[((IOTA - 54) & 127)]) + ((0.0019755700000000003 * fVec10[((IOTA - 53) & 127)]) + ((0.0019031 * fVec10[((IOTA - 52) & 127)]) + ((0.0029535300000000002 * fVec10[((IOTA - 51) & 127)]) + ((0.000293281 * fVec10[((IOTA - 50) & 127)]) + ((0.00083629000000000006 * fVec10[((IOTA - 49) & 127)]) + ((0.00080509699999999995 * fVec10[((IOTA - 46) & 127)]) + ((0.00107051 * fVec10[((IOTA - 45) & 127)]) + ((0.0043877100000000004 * fVec10[((IOTA - 39) & 127)]) + ((0.0045821500000000001 * fVec10[((IOTA - 38) & 127)]) + ((0.00332504 * fVec10[((IOTA - 34) & 127)]) + ((0.011030700000000001 * fVec10[((IOTA - 33) & 127)]) + ((0.0011568400000000001 * fVec10[((IOTA - 30) & 127)]) + ((0.0010033099999999999 * fVec10[((IOTA - 29) & 127)]) + ((0.00042573700000000003 * fVec10[((IOTA - 28) & 127)]) + ((0.0094138900000000011 * fVec10[((IOTA - 26) & 127)]) + ((0.0098732500000000001 * fVec10[((IOTA - 24) & 127)]) + ((0.045702 * fVec10[((IOTA - 21) & 127)]) + ((0.0024935999999999999 * fVec10[((IOTA - 18) & 127)]) + ((0.00150782 * fVec10[((IOTA - 16) & 127)]) + ((0.013101799999999999 * fVec10[((IOTA - 15) & 127)]) + ((0.0027409999999999999 * fVec10[((IOTA - 12) & 127)]) + ((0.00055052599999999997 * fVec10[((IOTA - 11) & 127)]) + ((0.00048923200000000003 * fVec10[((IOTA - 9) & 127)]) + ((0.00026322800000000001 * fVec10[((IOTA - 6) & 127)]) + ((1.6040700000000004e-05 * fVec10[((IOTA - 3) & 127)]) + ((9.3217400000000013e-05 * fVec10[((IOTA - 2) & 127)]) + ((2.45111e-06 * fTemp10) + ((0.0015908299999999999 * fVec10[((IOTA - 72) & 127)]) + ((0.00049188300000000003 * fVec10[((IOTA - 71) & 127)]) + ((7.1048099999999992e-06 * fVec10[((IOTA - 115) & 127)]) + ((2.4848500000000001e-05 * fVec10[((IOTA - 110) & 127)]) + ((2.6001400000000005e-05 * fVec10[((IOTA - 104) & 127)]) + ((0.000221859 * fVec10[((IOTA - 100) & 127)]) + ((8.8924299999999998e-05 * fVec10[((IOTA - 99) & 127)]) + ((0.00043673000000000003 * fVec10[((IOTA - 97) & 127)]) + ((0.00010927100000000002 * fVec10[((IOTA - 96) & 127)]) + ((0.00097867000000000006 * fVec10[((IOTA - 70) & 127)]) + ((0.00090132600000000015 * fVec10[((IOTA - 89) & 127)]) + ((0.0012884700000000001 * fVec10[((IOTA - 88) & 127)]) + ((0.00056446700000000003 * fVec10[((IOTA - 85) & 127)]) + ((0.00095815500000000003 * fVec10[((IOTA - 84) & 127)]) + ((0.0017296600000000001 * fVec10[((IOTA - 81) & 127)]) + ((0.00094508800000000007 * fVec10[((IOTA - 77) & 127)]) + ((0.0019108700000000001 * fVec10[((IOTA - 76) & 127)]) + ((0.0015422700000000001 * fVec10[((IOTA - 75) & 127)]) + ((0.0025803099999999997 * fVec10[((IOTA - 74) & 127)]) + ((0.00278685 * fVec10[((IOTA - 73) & 127)]) + ((8.4868299999999985e-06 * fVec11[((IOTA - 124) & 127)]) + ((3.6957699999999999e-06 * fVec11[((IOTA - 122) & 127)]) + ((5.4636899999999996e-07 * fVec11[((IOTA - 121) & 127)]) + ((2.65182e-05 * fVec11[((IOTA - 119) & 127)]) + ((2.0308900000000001e-05 * fVec11[((IOTA - 118) & 127)]) + ((8.8809400000000011e-05 * fVec11[((IOTA - 114) & 127)]) + ((0.0011165799999999998 * fVec11[((IOTA - 68) & 127)]) + ((0.000148438 * fVec11[((IOTA - 67) & 127)]) + ((0.000184167 * fVec11[((IOTA - 59) & 127)]) + ((0.0011947399999999999 * fVec11[((IOTA - 57) & 127)]) + ((0.0030093800000000003 * fVec11[((IOTA - 56) & 127)]) + ((0.0013871700000000001 * fVec11[((IOTA - 55) & 127)]) + ((0.0059715699999999998 * fVec11[((IOTA - 52) & 127)]) + ((0.0053548799999999994 * fVec11[((IOTA - 51) & 127)]) + ((0.0034850300000000001 * fVec11[((IOTA - 50) & 127)]) + ((0.0025893600000000002 * fVec11[((IOTA - 49) & 127)]) + ((0.00153152 * fVec11[((IOTA - 48) & 127)]) + ((0.0085296599999999997 * fVec11[((IOTA - 47) & 127)]) + ((0.00362372 * fVec11[((IOTA - 46) & 127)]) + ((0.0061227299999999998 * fVec11[((IOTA - 43) & 127)]) + ((0.0031509299999999997 * fVec11[((IOTA - 42) & 127)]) + ((0.0086731099999999995 * fVec11[((IOTA - 34) & 127)]) + ((0.013334800000000001 * fVec11[((IOTA - 33) & 127)]) + ((0.017021599999999998 * fVec11[((IOTA - 32) & 127)]) + ((0.0074226800000000001 * fVec11[((IOTA - 31) & 127)]) + ((0.000158395 * fVec11[((IOTA - 29) & 127)]) + ((0.018246599999999998 * fVec11[((IOTA - 28) & 127)]) + ((0.0076219700000000005 * fVec11[((IOTA - 27) & 127)]) + ((0.0033454299999999999 * fVec11[((IOTA - 25) & 127)]) + ((0.020070100000000004 * fVec11[((IOTA - 24) & 127)]) + ((0.0109569 * fVec11[((IOTA - 23) & 127)]) + ((0.0090998300000000015 * fVec11[((IOTA - 17) & 127)]) + ((0.068287199999999992 * fVec11[((IOTA - 15) & 127)]) + ((0.046937899999999998 * fVec11[((IOTA - 14) & 127)]) + ((0.00520434 * fVec11[((IOTA - 10) & 127)]) + ((0.00229203 * fVec11[((IOTA - 8) & 127)]) + ((0.0020673400000000004 * fVec11[((IOTA - 6) & 127)]) + ((0.000157615 * fVec11[((IOTA - 2) & 127)]) + ((7.7455400000000011e-05 * fVec11[((IOTA - 1) & 127)]) + ((0.00058499699999999997 * fVec11[((IOTA - 72) & 127)]) + ((0.0026133899999999997 * fVec11[((IOTA - 71) & 127)]) + ((0.0012246500000000001 * fVec11[((IOTA - 70) & 127)]) + ((2.7376100000000004e-05 * fVec11[((IOTA - 113) & 127)]) + ((0.00013539800000000001 * fVec11[((IOTA - 110) & 127)]) + ((0.00025329700000000004 * fVec11[((IOTA - 109) & 127)]) + ((8.0048000000000003e-05 * fVec11[((IOTA - 108) & 127)]) + ((0.00024979000000000001 * fVec11[((IOTA - 107) & 127)]) + ((8.0692100000000013e-05 * fVec11[((IOTA - 106) & 127)]) + ((6.9954200000000002e-05 * fVec11[((IOTA - 104) & 127)]) + ((0.00043472999999999998 * fVec11[((IOTA - 100) & 127)]) + ((0.00125786 * fVec11[((IOTA - 99) & 127)]) + ((0.00087608300000000005 * fVec11[((IOTA - 98) & 127)]) + ((0.00045076799999999999 * fVec11[((IOTA - 97) & 127)]) + ((0.0009407450000000001 * fVec11[((IOTA - 96) & 127)]) + ((7.2771700000000007e-05 * fVec11[((IOTA - 95) & 127)]) + ((0.00040108800000000002 * fVec11[((IOTA - 91) & 127)]) + ((0.00116978 * fVec11[((IOTA - 69) & 127)]) + ((0.00025533199999999999 * fVec11[((IOTA - 89) & 127)]) + ((0.0011332599999999999 * fVec11[((IOTA - 88) & 127)]) + ((0.00220769 * fVec11[((IOTA - 87) & 127)]) + ((0.00109252 * fVec11[((IOTA - 86) & 127)]) + ((0.0028984100000000001 * fVec11[((IOTA - 78) & 127)]) + ((0.0035086900000000001 * fVec11[((IOTA - 77) & 127)]) + ((0.00075599999999999994 * fVec11[((IOTA - 74) & 127)]) + ((0.00029284900000000003 * fVec11[((IOTA - 73) & 127)]) + ((4.9866200000000007e-05 * fVec12[((IOTA - 119) & 127)]) + ((1.3841300000000002e-05 * fVec12[((IOTA - 118) & 127)]) + ((8.8019800000000014e-05 * fVec12[((IOTA - 113) & 127)]) + ((0.00017122700000000001 * fVec12[((IOTA - 112) & 127)]) + ((0.00034470100000000005 * fVec12[((IOTA - 108) & 127)]) + ((0.00055969699999999995 * fVec12[((IOTA - 107) & 127)]) + ((0.000235777 * fVec12[((IOTA - 106) & 127)]) + ((0.00054745600000000009 * fVec12[((IOTA - 104) & 127)]) + ((0.00286586 * fVec12[((IOTA - 34) & 127)]) + ((0.0097399199999999991 * fVec12[((IOTA - 31) & 127)]) + ((0.0174139 * fVec12[((IOTA - 30) & 127)]) + ((0.0072416499999999996 * fVec12[((IOTA - 27) & 127)]) + ((0.0127638 * fVec12[((IOTA - 26) & 127)]) + ((0.013886600000000001 * fVec12[((IOTA - 25) & 127)]) + ((0.0135128 * fVec12[((IOTA - 22) & 127)]) + ((0.031943700000000005 * fVec12[((IOTA - 21) & 127)]) + ((0.0042885500000000003 * fVec12[((IOTA - 18) & 127)]) + ((0.0005030770000000001 * fVec12[((IOTA - 16) & 127)]) + ((0.023001900000000002 * fVec12[((IOTA - 15) & 127)]) + ((0.0026751100000000001 * fVec12[((IOTA - 12) & 127)]) + ((0.0017721800000000002 * fVec12[((IOTA - 11) & 127)]) + ((0.0011451499999999999 * fVec12[((IOTA - 9) & 127)]) + ((0.00051771 * fVec12[((IOTA - 6) & 127)]) + ((0.00014284300000000003 * fVec12[((IOTA - 3) & 127)]) + ((7.4740900000000015e-05 * fVec12[((IOTA - 2) & 127)]) + ((0.0090965500000000001 * fVec12[((IOTA - 40) & 127)]) + ((0.0041563499999999996 * fVec12[((IOTA - 39) & 127)]) + ((0.0039647500000000004 * fVec12[((IOTA - 35) & 127)]) + ((0.010624 * fVec12[((IOTA - 36) & 127)]) + ((0.00057874299999999994 * fVec12[((IOTA - 103) & 127)]) + ((0.000227309 * fVec12[((IOTA - 102) & 127)]) + ((3.6224500000000005e-05 * fVec12[((IOTA - 101) & 127)]) + ((0.00086194799999999997 * fVec12[((IOTA - 100) & 127)]) + ((0.0010124999999999999 * fVec12[((IOTA - 99) & 127)]) + ((0.00091063799999999996 * fVec12[((IOTA - 98) & 127)]) + ((0.00095056999999999997 * fVec12[((IOTA - 97) & 127)]) + ((0.0008587130000000001 * fVec12[((IOTA - 94) & 127)]) + ((0.00067170500000000009 * fVec12[((IOTA - 93) & 127)]) + ((0.00075180100000000008 * fVec12[((IOTA - 90) & 127)]) + ((0.00103283 * fVec12[((IOTA - 89) & 127)]) + ((0.0016084700000000001 * fVec12[((IOTA - 88) & 127)]) + ((0.00040337199999999999 * fVec12[((IOTA - 87) & 127)]) + ((0.00023788700000000002 * fVec12[((IOTA - 76) & 127)]) + ((0.0024309800000000001 * fVec12[((IOTA - 75) & 127)]) + ((0.00240843 * fVec12[((IOTA - 72) & 127)]) + ((0.00300154 * fVec12[((IOTA - 71) & 127)]) + ((0.00151366 * fVec12[((IOTA - 68) & 127)]) + ((0.0039051800000000003 * fVec12[((IOTA - 67) & 127)]) + ((0.00049316099999999999 * fVec12[((IOTA - 66) & 127)]) + ((0.0010486899999999999 * fVec12[((IOTA - 63) & 127)]) + ((0.0013206299999999999 * fVec12[((IOTA - 59) & 127)]) + ((0.0020385799999999999 * fVec12[((IOTA - 58) & 127)]) + ((0.0011936899999999999 * fVec12[((IOTA - 57) & 127)]) + ((0.0019159900000000002 * fVec12[((IOTA - 55) & 127)]) + ((0.0034757899999999999 * fVec12[((IOTA - 54) & 127)]) + ((0.00039412900000000001 * fVec12[((IOTA - 53) & 127)]) + ((0.000223711 * fVec12[((IOTA - 50) & 127)]) + ((0.0059973599999999993 * fVec12[((IOTA - 45) & 127)]) + ((0.0010137600000000001 * fVec12[((IOTA - 41) & 127)]) + ((0.00060801600000000007 * fVec13[((IOTA - 6) & 127)]) + ((0.00021328700000000002 * fVec13[((IOTA - 3) & 127)]) + ((0.00033479199999999999 * fVec13[((IOTA - 2) & 127)]) + ((0.000128761 * fVec13[((IOTA - 1) & 127)]) + ((1.7026300000000003e-05 * fTemp13) + ((0.033199200000000005 * fVec13[((IOTA - 16) & 127)]) + ((0.046417300000000002 * fVec13[((IOTA - 15) & 127)]) + ((0.0099304299999999988 * fVec13[((IOTA - 14) & 127)]) + ((0.0035106700000000005 * fVec13[((IOTA - 10) & 127)]) + ((3.2580099999999998e-06 * fVec13[((IOTA - 122) & 127)]) + ((1.0567100000000001e-05 * fVec13[((IOTA - 120) & 127)]) + ((7.0646400000000002e-05 * fVec13[((IOTA - 119) & 127)]) + ((3.3377400000000003e-05 * fVec13[((IOTA - 118) & 127)]) + ((6.1289000000000002e-05 * fVec13[((IOTA - 117) & 127)]) + ((7.6744800000000011e-05 * fVec13[((IOTA - 116) & 127)]) + ((4.9172100000000003e-05 * fVec13[((IOTA - 115) & 127)]) + ((0.00010500799999999999 * fVec13[((IOTA - 114) & 127)]) + ((0.000353326 * fVec13[((IOTA - 108) & 127)]) + ((0.00033907700000000002 * fVec13[((IOTA - 105) & 127)]) + ((0.000432335 * fVec13[((IOTA - 104) & 127)]) + ((0.00038982200000000001 * fVec13[((IOTA - 102) & 127)]) + ((0.0011551700000000001 * fVec13[((IOTA - 101) & 127)]) + ((0.00092970300000000004 * fVec13[((IOTA - 100) & 127)]) + ((0.0014948399999999999 * fVec13[((IOTA - 97) & 127)]) + ((0.00059560100000000007 * fVec13[((IOTA - 96) & 127)]) + ((0.0021927800000000001 * fVec13[((IOTA - 92) & 127)]) + ((0.0017762400000000001 * fVec13[((IOTA - 91) & 127)]) + ((0.00084165100000000012 * fVec13[((IOTA - 90) & 127)]) + ((9.7980900000000016e-05 * fVec13[((IOTA - 88) & 127)]) + ((0.00035080200000000005 * fVec13[((IOTA - 87) & 127)]) + ((0.00050089500000000001 * fVec13[((IOTA - 86) & 127)]) + ((2.7396400000000004e-05 * fVec13[((IOTA - 85) & 127)]) + ((0.00066409100000000001 * fVec13[((IOTA - 83) & 127)]) + ((0.00066246499999999999 * fVec13[((IOTA - 79) & 127)]) + ((0.0016256900000000002 * fVec13[((IOTA - 78) & 127)]) + ((0.00221456 * fVec13[((IOTA - 75) & 127)]) + ((0.00234322 * fVec13[((IOTA - 74) & 127)]) + ((0.00072881600000000008 * fVec13[((IOTA - 73) & 127)]) + ((0.00284673 * fVec13[((IOTA - 72) & 127)]) + ((0.0044685800000000006 * fVec13[((IOTA - 71) & 127)]) + ((0.00059245800000000003 * fVec13[((IOTA - 70) & 127)]) + ((0.00023620999999999999 * fVec13[((IOTA - 68) & 127)]) + ((0.0024370400000000001 * fVec13[((IOTA - 67) & 127)]) + ((0.00027835400000000003 * fVec13[((IOTA - 66) & 127)]) + ((0.000384313 * fVec13[((IOTA - 60) & 127)]) + ((0.0024406500000000004 * fVec13[((IOTA - 59) & 127)]) + ((0.000127928 * fVec13[((IOTA - 58) & 127)]) + ((0.00012639700000000002 * fVec13[((IOTA - 57) & 127)]) + ((0.00244481 * fVec13[((IOTA - 56) & 127)]) + ((0.00051237899999999998 * fVec13[((IOTA - 55) & 127)]) + ((0.0021171799999999998 * fVec13[((IOTA - 52) & 127)]) + ((0.0037207400000000002 * fVec13[((IOTA - 51) & 127)]) + ((0.0014084900000000001 * fVec13[((IOTA - 49) & 127)]) + ((0.0075305299999999997 * fVec13[((IOTA - 48) & 127)]) + ((0.0024861100000000001 * fVec13[((IOTA - 47) & 127)]) + ((0.00011863999999999999 * fVec13[((IOTA - 45) & 127)]) + ((1.55259e-05 * fVec13[((IOTA - 40) & 127)]) + ((0.00128371 * fVec13[((IOTA - 37) & 127)]) + ((0.0096779899999999992 * fVec13[((IOTA - 30) & 127)]) + ((0.0453053 * fVec13[((IOTA - 29) & 127)]) + ((0.032010799999999999 * fVec13[((IOTA - 28) & 127)]) + ((0.020813500000000002 * fVec13[((IOTA - 27) & 127)]) + ((0.024042900000000002 * fVec13[((IOTA - 26) & 127)]) + ((0.030081000000000004 * fVec13[((IOTA - 25) & 127)]) + ((0.048124599999999997 * fVec13[((IOTA - 18) & 127)]) + ((0.0129798 * fVec13[((IOTA - 17) & 127)]) + ((1.4376099999999999e-07 * fVec14[((IOTA - 125) & 127)]) + ((8.1478800000000007e-06 * fVec14[((IOTA - 123) & 127)]) + ((3.5912700000000006e-05 * fVec14[((IOTA - 122) & 127)]) + ((6.3930200000000007e-05 * fVec14[((IOTA - 121) & 127)]) + ((9.5050500000000014e-05 * fVec14[((IOTA - 120) & 127)]) + ((2.4284e-05 * fVec14[((IOTA - 119) & 127)]) + ((0.00017088300000000001 * fVec14[((IOTA - 117) & 127)]) + ((0.000201394 * fVec14[((IOTA - 116) & 127)]) + ((0.00020405400000000001 * fVec14[((IOTA - 115) & 127)]) + ((1.0287e-05 * fVec14[((IOTA - 114) & 127)]) + ((1.34228e-05 * fVec14[((IOTA - 111) & 127)]) + ((0.000166584 * fVec14[((IOTA - 110) & 127)]) + ((0.00053367400000000004 * fVec14[((IOTA - 108) & 127)]) + ((0.00010277700000000001 * fVec14[((IOTA - 102) & 127)]) + ((0.00011668700000000002 * fVec14[((IOTA - 98) & 127)]) + ((0.00096910600000000007 * fVec14[((IOTA - 97) & 127)]) + ((0.015947700000000002 * fVec14[((IOTA - 28) & 127)]) + ((0.025441699999999998 * fVec14[((IOTA - 19) & 127)]) + ((0.060181899999999997 * fVec14[((IOTA - 18) & 127)]) + ((0.0165282 * fVec14[((IOTA - 17) & 127)]) + ((0.056723499999999996 * fVec14[((IOTA - 16) & 127)]) + ((0.059615000000000001 * fVec14[((IOTA - 15) & 127)]) + ((0.0024382600000000003 * fVec14[((IOTA - 14) & 127)]) + ((0.0031914500000000002 * fVec14[((IOTA - 10) & 127)]) + ((0.0013724499999999999 * fVec14[((IOTA - 6) & 127)]) + ((3.9424800000000002e-05 * fVec14[((IOTA - 3) & 127)]) + ((0.00042801200000000002 * fVec14[((IOTA - 2) & 127)]) + ((2.8233900000000001e-05 * fVec14[((IOTA - 1) & 127)]) + ((0.0067972900000000001 * fVec14[((IOTA - 34) & 127)]) + ((0.0077661499999999994 * fVec14[((IOTA - 33) & 127)]) + ((0.0107335 * fVec14[((IOTA - 32) & 127)]) + ((0.0074136300000000009 * fVec14[((IOTA - 31) & 127)]) + ((0.00064723500000000002 * fVec14[((IOTA - 96) & 127)]) + ((0.00037608900000000002 * fVec14[((IOTA - 93) & 127)]) + ((9.292850000000001e-05 * fVec14[((IOTA - 92) & 127)]) + ((0.0010366800000000001 * fVec14[((IOTA - 91) & 127)]) + ((0.0025010200000000001 * fVec14[((IOTA - 90) & 127)]) + ((0.000177073 * fVec14[((IOTA - 89) & 127)]) + ((0.00052927500000000006 * fVec14[((IOTA - 88) & 127)]) + ((0.0019501599999999998 * fVec14[((IOTA - 87) & 127)]) + ((0.00075808200000000009 * fVec14[((IOTA - 86) & 127)]) + ((4.6523100000000002e-05 * fVec14[((IOTA - 83) & 127)]) + ((0.00108943 * fVec14[((IOTA - 79) & 127)]) + ((0.00032896000000000005 * fVec14[((IOTA - 78) & 127)]) + ((0.0012591099999999999 * fVec14[((IOTA - 75) & 127)]) + ((8.8494799999999998e-05 * fVec14[((IOTA - 74) & 127)]) + ((0.00045897600000000005 * fVec14[((IOTA - 73) & 127)]) + ((0.00083460199999999994 * fVec14[((IOTA - 69) & 127)]) + ((0.0018953800000000001 * fVec14[((IOTA - 68) & 127)]) + ((0.00183186 * fVec14[((IOTA - 67) & 127)]) + ((0.0014255700000000001 * fVec14[((IOTA - 66) & 127)]) + ((0.000195193 * fVec14[((IOTA - 65) & 127)]) + ((0.0004124 * fVec14[((IOTA - 64) & 127)]) + ((0.00143402 * fVec14[((IOTA - 63) & 127)]) + ((0.00115475 * fVec14[((IOTA - 62) & 127)]) + ((0.00150633 * fVec14[((IOTA - 61) & 127)]) + ((0.0016002799999999999 * fVec14[((IOTA - 60) & 127)]) + ((0.0046591599999999999 * fVec14[((IOTA - 29) & 127)]) + ((0.0021894599999999998 * fVec14[((IOTA - 53) & 127)]) + ((0.0011194900000000001 * fVec14[((IOTA - 50) & 127)]) + ((0.0011283899999999999 * fVec14[((IOTA - 49) & 127)]) + ((0.0025925100000000001 * fVec14[((IOTA - 45) & 127)]) + ((0.0021516 * fVec14[((IOTA - 44) & 127)]) + ((0.005077410000000001 * fVec14[((IOTA - 41) & 127)]) + ((0.0023729100000000002 * fVec14[((IOTA - 40) & 127)]) + ((0.008696849999999999 * fVec14[((IOTA - 37) & 127)]) + ((0.013909899999999999 * fVec14[((IOTA - 36) & 127)]) + ((0.010920000000000001 * fVec14[((IOTA - 35) & 127)]) + ((8.7939299999999991e-07 * fVec15[((IOTA - 126) & 127)]) + ((5.4800099999999999e-06 * fVec15[((IOTA - 125) & 127)]) + ((1.7206200000000001e-05 * fVec15[((IOTA - 121) & 127)]) + ((6.7243000000000007e-05 * fVec15[((IOTA - 120) & 127)]) + ((8.7255500000000012e-05 * fVec15[((IOTA - 119) & 127)]) + ((1.6624399999999998e-06 * fVec15[((IOTA - 118) & 127)]) + ((0.000144194 * fVec15[((IOTA - 116) & 127)]) + ((0.00014439500000000002 * fVec15[((IOTA - 114) & 127)]) + ((0.00015184500000000001 * fVec15[((IOTA - 113) & 127)]) + ((2.34313e-05 * fVec15[((IOTA - 109) & 127)]) + ((0.00042287999999999999 * fVec15[((IOTA - 108) & 127)]) + ((0.00030992900000000002 * fVec15[((IOTA - 107) & 127)]) + ((0.00013332900000000001 * fVec15[((IOTA - 3) & 127)]) + ((0.00011180900000000001 * fVec15[((IOTA - 2) & 127)]) + ((7.1409999999999997e-07 * fTemp15) + ((0.020147700000000001 * fVec15[((IOTA - 15) & 127)]) + ((0.00239529 * fVec15[((IOTA - 12) & 127)]) + ((0.00075913900000000004 * fVec15[((IOTA - 11) & 127)]) + ((0.00060334500000000003 * fVec15[((IOTA - 9) & 127)]) + ((0.00095772900000000005 * fVec15[((IOTA - 6) & 127)]) + ((0.00020482300000000003 * fVec15[((IOTA - 101) & 127)]) + ((0.000300542 * fVec15[((IOTA - 100) & 127)]) + ((0.00086114700000000015 * fVec15[((IOTA - 96) & 127)]) + ((0.00020261300000000003 * fVec15[((IOTA - 95) & 127)]) + ((0.00029358500000000002 * fVec15[((IOTA - 91) & 127)]) + ((0.001897 * fVec15[((IOTA - 90) & 127)]) + ((0.00011857899999999999 * fVec15[((IOTA - 89) & 127)]) + ((0.00093195400000000003 * fVec15[((IOTA - 87) & 127)]) + ((0.00086698299999999999 * fVec15[((IOTA - 86) & 127)]) + ((0.00190189 * fVec15[((IOTA - 83) & 127)]) + ((0.0015840700000000001 * fVec15[((IOTA - 82) & 127)]) + ((0.00062755200000000008 * fVec15[((IOTA - 81) & 127)]) + ((0.0021193000000000002 * fVec15[((IOTA - 78) & 127)]) + ((0.0025810200000000003 * fVec15[((IOTA - 77) & 127)]) + ((2.1180200000000001e-05 * fVec15[((IOTA - 76) & 127)]) + ((0.00014521 * fVec15[((IOTA - 75) & 127)]) + ((9.0364000000000018e-05 * fVec15[((IOTA - 72) & 127)]) + ((0.00108413 * fVec15[((IOTA - 71) & 127)]) + ((0.000361035 * fVec15[((IOTA - 70) & 127)]) + ((0.00084564900000000008 * fVec15[((IOTA - 67) & 127)]) + ((0.00059175800000000006 * fVec15[((IOTA - 63) & 127)]) + ((0.00054578800000000007 * fVec15[((IOTA - 62) & 127)]) + ((0.00023921600000000002 * fVec15[((IOTA - 59) & 127)]) + ((0.00085691700000000001 * fVec15[((IOTA - 58) & 127)]) + ((0.00016994800000000001 * fVec15[((IOTA - 57) & 127)]) + ((8.2977300000000009e-05 * fVec15[((IOTA - 56) & 127)]) + ((0.0042629599999999997 * fVec15[((IOTA - 53) & 127)]) + ((0.00357925 * fVec15[((IOTA - 52) & 127)]) + ((0.00121156 * fVec15[((IOTA - 49) & 127)]) + ((0.0041496700000000003 * fVec15[((IOTA - 48) & 127)]) + ((0.0086446200000000004 * fVec15[((IOTA - 44) & 127)]) + ((0.0062203400000000004 * fVec15[((IOTA - 43) & 127)]) + ((0.0029795799999999999 * fVec15[((IOTA - 40) & 127)]) + ((0.0012590699999999999 * fVec15[((IOTA - 38) & 127)]) + ((0.0154334 * fVec15[((IOTA - 34) & 127)]) + ((0.018936700000000001 * fVec15[((IOTA - 30) & 127)]) + ((0.0049586700000000001 * fVec15[((IOTA - 29) & 127)]) + ((0.046698000000000003 * fVec15[((IOTA - 25) & 127)]) + ((0.010134700000000002 * fVec15[((IOTA - 22) & 127)]) + ((0.013995500000000001 * fVec15[((IOTA - 21) & 127)]) + ((0.0044761200000000001 * fVec15[((IOTA - 19) & 127)]) + ((0.0098600600000000004 * fVec15[((IOTA - 18) & 127)]) + ((1.00244e-05 * fVec16[((IOTA - 124) & 127)]) + ((2.4757200000000001e-05 * fVec16[((IOTA - 123) & 127)]) + ((2.0122300000000002e-05 * fVec16[((IOTA - 120) & 127)]) + ((7.8952500000000007e-05 * fVec16[((IOTA - 119) & 127)]) + ((5.0735200000000009e-05 * fVec16[((IOTA - 118) & 127)]) + ((2.5488499999999997e-06 * fVec16[((IOTA - 117) & 127)]) + ((5.9800600000000005e-05 * fVec16[((IOTA - 116) & 127)]) + ((0.000105037 * fVec16[((IOTA - 115) & 127)]) + ((0.00025922800000000002 * fVec16[((IOTA - 114) & 127)]) + ((0.00015691000000000001 * fVec16[((IOTA - 113) & 127)]) + ((0.00011911400000000001 * fVec16[((IOTA - 90) & 127)]) + ((0.00026815200000000002 * fVec16[((IOTA - 88) & 127)]) + ((0.0022168700000000001 * fVec16[((IOTA - 85) & 127)]) + ((0.00236279 * fVec16[((IOTA - 84) & 127)]) + ((0.00133927 * fVec16[((IOTA - 83) & 127)]) + ((0.0036129700000000001 * fVec16[((IOTA - 82) & 127)]) + ((0.00258392 * fVec16[((IOTA - 81) & 127)]) + ((0.00076553699999999994 * fVec16[((IOTA - 80) & 127)]) + ((0.00052649700000000001 * fVec16[((IOTA - 77) & 127)]) + ((0.00065805200000000001 * fVec16[((IOTA - 73) & 127)]) + ((0.0019009700000000001 * fVec16[((IOTA - 72) & 127)]) + ((0.00040585399999999998 * fVec16[((IOTA - 68) & 127)]) + ((0.00056621899999999997 * fVec16[((IOTA - 67) & 127)]) + ((0.00100438 * fVec16[((IOTA - 65) & 127)]) + ((0.00106258 * fVec16[((IOTA - 64) & 127)]) + ((0.00075541200000000001 * fVec16[((IOTA - 63) & 127)]) + ((0.0041593900000000007 * fVec16[((IOTA - 62) & 127)]) + ((0.0036430799999999999 * fVec16[((IOTA - 61) & 127)]) + ((0.00123704 * fVec16[((IOTA - 60) & 127)]) + ((0.00081929099999999999 * fVec16[((IOTA - 54) & 127)]) + ((0.000429732 * fVec16[((IOTA - 53) & 127)]) + ((0.0050749500000000008 * fVec16[((IOTA - 41) & 127)]) + ((0.0062304400000000003 * fVec16[((IOTA - 40) & 127)]) + ((0.0051450200000000001 * fVec16[((IOTA - 39) & 127)]) + ((0.0054617399999999997 * fVec16[((IOTA - 38) & 127)]) + ((0.013412900000000002 * fVec16[((IOTA - 37) & 127)]) + ((0.0083610900000000016 * fVec16[((IOTA - 36) & 127)]) + ((0.032106300000000004 * fVec16[((IOTA - 35) & 127)]) + ((0.013874800000000001 * fVec16[((IOTA - 34) & 127)]) + ((0.015102899999999999 * fVec16[((IOTA - 31) & 127)]) + ((0.00959986 * fVec16[((IOTA - 30) & 127)]) + ((0.0127315 * fVec16[((IOTA - 27) & 127)]) + ((0.0078796999999999999 * fVec16[((IOTA - 26) & 127)]) + ((0.0209115 * fVec16[((IOTA - 20) & 127)]) + ((0.024721300000000002 * fVec16[((IOTA - 19) & 127)]) + ((0.033460299999999998 * fVec16[((IOTA - 17) & 127)]) + ((0.019325600000000002 * fVec16[((IOTA - 16) & 127)]) + ((0.048091999999999996 * fVec16[((IOTA - 15) & 127)]) + ((0.023035199999999999 * fVec16[((IOTA - 14) & 127)]) + ((0.0040449700000000002 * fVec16[((IOTA - 10) & 127)]) + ((0.0018601700000000002 * fVec16[((IOTA - 8) & 127)]) + ((0.00110994 * fVec16[((IOTA - 6) & 127)]) + ((0.000373285 * fVec16[((IOTA - 2) & 127)]) + ((4.2016200000000006e-05 * fVec16[((IOTA - 1) & 127)]) + ((0.0020936499999999999 * fVec16[((IOTA - 92) & 127)]) + ((0.0011613700000000001 * fVec16[((IOTA - 93) & 127)]) + ((0.00292779 * fVec16[((IOTA - 91) & 127)]) + ((0.00026635300000000004 * fVec16[((IOTA - 109) & 127)]) + ((0.00011445900000000001 * fVec16[((IOTA - 108) & 127)]) + ((0.000136272 * fVec16[((IOTA - 104) & 127)]) + ((0.00016330100000000003 * fVec16[((IOTA - 96) & 127)]) + ((7.4505200000000006e-05 * fVec16[((IOTA - 95) & 127)]) + ((0.00031864099999999999 * fVec16[((IOTA - 94) & 127)]) + ((4.9133300000000002e-07 * fVec17[((IOTA - 126) & 127)]) + ((1.3759399999999999e-06 * fVec17[((IOTA - 125) & 127)]) + ((1.05587e-07 * fVec17[((IOTA - 124) & 127)]) + ((4.21833e-05 * fVec17[((IOTA - 120) & 127)]) + ((1.23038e-06 * fVec17[((IOTA - 119) & 127)]) + ((0.00012532099999999999 * fVec17[((IOTA - 115) & 127)]) + ((9.7130800000000002e-05 * fVec17[((IOTA - 114) & 127)]) + ((0.00033839299999999998 * fVec17[((IOTA - 110) & 127)]) + ((0.00029385700000000002 * fVec17[((IOTA - 106) & 127)]) + ((0.00033615499999999998 * fVec17[((IOTA - 105) & 127)]) + ((7.4171300000000013e-05 * fVec17[((IOTA - 81) & 127)]) + ((2.6719199999999999e-06 * fVec17[((IOTA - 78) & 127)]) + ((0.0027959399999999998 * fVec17[((IOTA - 73) & 127)]) + ((0.0025147900000000003 * fVec17[((IOTA - 72) & 127)]) + ((0.0026507900000000001 * fVec17[((IOTA - 68) & 127)]) + ((0.0024592200000000002 * fVec17[((IOTA - 67) & 127)]) + ((0.00046335100000000003 * fVec17[((IOTA - 66) & 127)]) + ((0.00364205 * fVec17[((IOTA - 63) & 127)]) + ((0.0030474500000000002 * fVec17[((IOTA - 62) & 127)]) + ((8.9896500000000002e-05 * fVec17[((IOTA - 60) & 127)]) + ((0.0020873300000000001 * fVec17[((IOTA - 59) & 127)]) + ((0.00024737200000000004 * fVec17[((IOTA - 58) & 127)]) + ((0.00011431100000000001 * fVec17[((IOTA - 57) & 127)]) + ((0.0012573 * fVec17[((IOTA - 56) & 127)]) + ((0.0013347700000000001 * fVec17[((IOTA - 51) & 127)]) + ((0.00071260200000000001 * fVec17[((IOTA - 48) & 127)]) + ((0.000302236 * fVec17[((IOTA - 47) & 127)]) + ((0.00032389000000000002 * fVec17[((IOTA - 45) & 127)]) + ((0.0039772100000000001 * fVec17[((IOTA - 44) & 127)]) + ((0.0039344899999999997 * fVec17[((IOTA - 39) & 127)]) + ((0.0028605000000000002 * fVec17[((IOTA - 37) & 127)]) + ((0.0056457300000000007 * fVec17[((IOTA - 36) & 127)]) + ((0.013276099999999999 * fVec17[((IOTA - 33) & 127)]) + ((0.0069491600000000002 * fVec17[((IOTA - 32) & 127)]) + ((0.0046345700000000002 * fVec17[((IOTA - 29) & 127)]) + ((0.0063826300000000002 * fVec17[((IOTA - 28) & 127)]) + ((0.0061617600000000005 * fVec17[((IOTA - 26) & 127)]) + ((0.0090629600000000001 * fVec17[((IOTA - 25) & 127)]) + ((0.016456200000000001 * fVec17[((IOTA - 24) & 127)]) + ((0.030671 * fVec17[((IOTA - 21) & 127)]) + ((0.0035630700000000002 * fVec17[((IOTA - 18) & 127)]) + ((0.0074771200000000003 * fVec17[((IOTA - 15) & 127)]) + ((0.00190957 * fVec17[((IOTA - 12) & 127)]) + ((0.00021257400000000001 * fVec17[((IOTA - 9) & 127)]) + ((0.00024266000000000001 * fVec17[((IOTA - 6) & 127)]) + ((2.0019800000000001e-05 * fVec17[((IOTA - 3) & 127)]) + ((0.00011068 * fVec17[((IOTA - 2) & 127)]) + ((5.2308799999999996e-06 * fTemp17) + ((0.00184891 * fVec17[((IOTA - 85) & 127)]) + ((6.1678400000000002e-05 * fVec17[((IOTA - 84) & 127)]) + ((0.00021002299999999999 * fVec17[((IOTA - 82) & 127)]) + ((0.00047366300000000004 * fVec17[((IOTA - 104) & 127)]) + ((0.00063192000000000012 * fVec17[((IOTA - 100) & 127)]) + ((0.00026227100000000001 * fVec17[((IOTA - 99) & 127)]) + ((0.00090633300000000005 * fVec17[((IOTA - 92) & 127)]) + ((0.00112509 * fVec17[((IOTA - 91) & 127)]) + ((0.00062542600000000011 * fVec17[((IOTA - 90) & 127)]) + ((0.00028041100000000005 * fVec17[((IOTA - 83) & 127)]) + ((0.0012169300000000002 * fVec17[((IOTA - 86) & 127)]) + ((1.4991799999999998e-06 * fVec18[((IOTA - 125) & 127)]) + ((4.4237300000000001e-06 * fVec18[((IOTA - 124) & 127)]) + ((2.5857400000000001e-05 * fVec18[((IOTA - 123) & 127)]) + ((4.8271399999999998e-08 * fVec18[((IOTA - 122) & 127)]) + ((0.00011086600000000001 * fVec18[((IOTA - 119) & 127)]) + ((0.00015923000000000001 * fVec18[((IOTA - 118) & 127)]) + ((0.00011133200000000001 * fVec18[((IOTA - 117) & 127)]) + ((9.1368399999999998e-05 * fVec18[((IOTA - 116) & 127)]) + ((6.9587500000000004e-05 * fVec18[((IOTA - 115) & 127)]) + ((7.9531300000000002e-05 * fVec18[((IOTA - 114) & 127)]) + ((0.000108869 * fVec18[((IOTA - 112) & 127)]) + ((5.3145400000000008e-05 * fVec18[((IOTA - 111) & 127)]) + ((0.00020724900000000003 * fVec18[((IOTA - 110) & 127)]) + ((0.000477114 * fVec18[((IOTA - 109) & 127)]) + ((0.00047335500000000001 * fVec18[((IOTA - 108) & 127)]) + ((0.00010935600000000001 * fVec18[((IOTA - 107) & 127)]) + ((0.00010925100000000001 * fVec18[((IOTA - 106) & 127)]) + ((0.00010986800000000001 * fVec18[((IOTA - 105) & 127)]) + ((0.00016840900000000001 * fVec18[((IOTA - 103) & 127)]) + ((9.6088500000000014e-05 * fVec18[((IOTA - 100) & 127)]) + ((0.00035324200000000003 * fVec18[((IOTA - 99) & 127)]) + ((0.00022054700000000003 * fVec18[((IOTA - 98) & 127)]) + ((7.9619000000000011e-05 * fVec18[((IOTA - 92) & 127)]) + ((0.00074820700000000008 * fVec18[((IOTA - 88) & 127)]) + ((0.00070991400000000007 * fVec18[((IOTA - 87) & 127)]) + ((0.00011130500000000002 * fVec18[((IOTA - 86) & 127)]) + ((0.00029838900000000003 * fVec18[((IOTA - 53) & 127)]) + ((0.0023647999999999998 * fVec18[((IOTA - 52) & 127)]) + ((0.0017983599999999999 * fVec18[((IOTA - 51) & 127)]) + ((0.0016364700000000001 * fVec18[((IOTA - 50) & 127)]) + ((0.0019431000000000001 * fVec18[((IOTA - 49) & 127)]) + ((0.00046590600000000003 * fVec18[((IOTA - 46) & 127)]) + ((0.0049145100000000004 * fVec18[((IOTA - 45) & 127)]) + ((0.0057126900000000003 * fVec18[((IOTA - 42) & 127)]) + ((0.0036100900000000003 * fVec18[((IOTA - 38) & 127)]) + ((0.0049432400000000007 * fVec18[((IOTA - 37) & 127)]) + ((0.0021107399999999998 * fVec18[((IOTA - 36) & 127)]) + ((0.0158944 * fVec18[((IOTA - 34) & 127)]) + ((0.012282700000000001 * fVec18[((IOTA - 33) & 127)]) + ((0.0089261400000000008 * fVec18[((IOTA - 32) & 127)]) + ((0.010118799999999999 * fVec18[((IOTA - 31) & 127)]) + ((0.0067020700000000001 * fVec18[((IOTA - 25) & 127)]) + ((0.0038775400000000005 * fVec18[((IOTA - 24) & 127)]) + ((0.0083579500000000011 * fVec18[((IOTA - 18) & 127)]) + ((0.0467927 * fVec18[((IOTA - 17) & 127)]) + ((0.041578400000000001 * fVec18[((IOTA - 16) & 127)]) + ((0.012665200000000001 * fVec18[((IOTA - 15) & 127)]) + ((0.0015061500000000002 * fVec18[((IOTA - 10) & 127)]) + ((0.00144769 * fVec18[((IOTA - 8) & 127)]) + ((2.8000400000000004e-05 * fVec18[((IOTA - 4) & 127)]) + ((0.00010043500000000001 * fVec18[((IOTA - 2) & 127)]) + ((5.0228400000000009e-05 * fVec18[((IOTA - 1) & 127)]) + ((1.0378400000000002e-05 * fTemp18) + ((0.0038434100000000002 * fVec18[((IOTA - 61) & 127)]) + ((0.0041785800000000003 * fVec18[((IOTA - 60) & 127)]) + ((0.0012871 * (fVec6[((IOTA - 71) & 127)] + fVec20[((IOTA - 99) & 127)])) + ((4.5172800000000002e-06 * fVec19[((IOTA - 125) & 127)]) + ((0.0015851900000000002 * fVec18[((IOTA - 83) & 127)]) + ((9.2806400000000006e-05 * fVec18[((IOTA - 82) & 127)]) + ((0.00087703300000000004 * fVec18[((IOTA - 79) & 127)]) + ((0.00051777699999999997 * fVec18[((IOTA - 78) & 127)]) + ((0.00056143600000000001 * fVec18[((IOTA - 75) & 127)]) + ((0.0023187400000000001 * fVec18[((IOTA - 74) & 127)]) + ((0.0031101499999999999 * fVec18[((IOTA - 73) & 127)]) + ((6.6465099999999999e-07 * fVec18[((IOTA - 72) & 127)]) + ((0.00063152 * fVec18[((IOTA - 68) & 127)]) + ((0.00098431600000000005 * fVec18[((IOTA - 67) & 127)]) + ((0.00041971200000000004 * fVec18[((IOTA - 56) & 127)]) + ((8.6446799999999994e-05 * fVec18[((IOTA - 57) & 127)]) + ((0.00023681100000000002 * fVec19[((IOTA - 2) & 127)]) + ((1.9032200000000001e-05 * fVec19[((IOTA - 1) & 127)]) + ((0.0034647700000000003 * fVec20[((IOTA - 18) & 127)]) + ((0.00594964 * fVec20[((IOTA - 17) & 127)]) + ((0.0161029 * fVec20[((IOTA - 16) & 127)]) + ((0.023348800000000003 * fVec20[((IOTA - 15) & 127)]) + ((0.0063743300000000001 * fVec20[((IOTA - 13) & 127)]) + ((0.0015232900000000001 * fVec20[((IOTA - 8) & 127)]) + ((0.00059566400000000009 * fVec20[((IOTA - 6) & 127)]) + ((0.00061765500000000005 * fVec20[((IOTA - 4) & 127)]) + ((0.00018629400000000002 * fVec20[((IOTA - 2) & 127)]) + ((1.14319e-05 * fTemp20) + ((0.0105468 * (fVec6[((IOTA - 30) & 127)] - fVec21[((IOTA - 36) & 127)])) + ((8.6228999999999984e-06 * fVec19[((IOTA - 121) & 127)]) + ((1.7197000000000002e-05 * fVec19[((IOTA - 120) & 127)]) + ((2.5498900000000001e-05 * fVec19[((IOTA - 119) & 127)]) + ((8.5473100000000007e-05 * fVec19[((IOTA - 118) & 127)]) + ((0.000117855 * fVec19[((IOTA - 117) & 127)]) + ((7.3769200000000005e-05 * fVec19[((IOTA - 116) & 127)]) + ((0.00010326400000000001 * fVec19[((IOTA - 115) & 127)]) + ((0.00014698200000000001 * fVec19[((IOTA - 114) & 127)]) + ((0.000116408 * fVec19[((IOTA - 113) & 127)]) + ((0.000116085 * fVec19[((IOTA - 112) & 127)]) + ((0.00012234100000000001 * fVec19[((IOTA - 111) & 127)]) + ((0.000291422 * fVec19[((IOTA - 110) & 127)]) + ((0.000101234 * fVec19[((IOTA - 109) & 127)]) + ((7.1704400000000004e-05 * fVec19[((IOTA - 108) & 127)]) + ((0.00017227900000000001 * fVec19[((IOTA - 106) & 127)]) + ((3.7385200000000002e-05 * fVec19[((IOTA - 105) & 127)]) + ((3.3625200000000005e-05 * fVec19[((IOTA - 101) & 127)]) + ((0.00036650100000000003 * fVec19[((IOTA - 87) & 127)]) + ((0.00082134800000000007 * fVec19[((IOTA - 86) & 127)]) + ((0.00047874499999999998 * fVec19[((IOTA - 81) & 127)]) + ((0.00093322400000000008 * fVec19[((IOTA - 80) & 127)]) + ((0.00072557100000000005 * fVec19[((IOTA - 79) & 127)]) + ((0.00086647800000000006 * fVec19[((IOTA - 77) & 127)]) + ((0.0024717699999999999 * fVec19[((IOTA - 76) & 127)]) + ((0.0011910600000000001 * fVec19[((IOTA - 75) & 127)]) + ((0.0017428699999999999 * fVec19[((IOTA - 74) & 127)]) + ((0.00125607 * fVec19[((IOTA - 73) & 127)]) + ((0.0028972500000000001 * fVec19[((IOTA - 68) & 127)]) + ((0.0039274399999999999 * fVec19[((IOTA - 67) & 127)]) + ((0.0012032799999999999 * fVec19[((IOTA - 66) & 127)]) + ((0.00069639100000000009 * fVec19[((IOTA - 65) & 127)]) + ((0.00067604500000000001 * fVec19[((IOTA - 62) & 127)]) + ((0.0020319800000000001 * fVec19[((IOTA - 61) & 127)]) + ((0.00030454800000000003 * fVec19[((IOTA - 60) & 127)]) + ((0.0027795100000000002 * fVec19[((IOTA - 56) & 127)]) + ((0.0040064599999999999 * fVec19[((IOTA - 55) & 127)]) + ((0.000117291 * fVec19[((IOTA - 52) & 127)]) + ((0.00024379400000000003 * fVec19[((IOTA - 51) & 127)]) + ((0.0021186500000000001 * fVec19[((IOTA - 49) & 127)]) + ((0.0035641600000000002 * fVec19[((IOTA - 48) & 127)]) + ((0.0032654700000000004 * fVec19[((IOTA - 47) & 127)]) + ((0.0054786700000000006 * fVec19[((IOTA - 43) & 127)]) + ((0.0027334600000000001 * fVec19[((IOTA - 42) & 127)]) + ((0.00072778400000000009 * fVec19[((IOTA - 39) & 127)]) + ((0.00847557 * fVec19[((IOTA - 38) & 127)]) + ((0.00445628 * fVec19[((IOTA - 37) & 127)]) + ((0.00091977900000000002 * fVec19[((IOTA - 36) & 127)]) + ((0.0015551999999999999 * fVec19[((IOTA - 35) & 127)]) + ((0.00075433100000000001 * fVec19[((IOTA - 34) & 127)]) + ((0.0018697900000000001 * fVec19[((IOTA - 33) & 127)]) + ((0.012971699999999999 * fVec19[((IOTA - 30) & 127)]) + ((0.0192195 * fVec19[((IOTA - 29) & 127)]) + ((0.0029063700000000001 * fVec19[((IOTA - 28) & 127)]) + ((0.053502300000000003 * fVec19[((IOTA - 24) & 127)]) + ((0.0063730200000000001 * fVec19[((IOTA - 23) & 127)]) + ((0.018845400000000002 * fVec19[((IOTA - 20) & 127)]) + ((0.040491700000000005 * fVec19[((IOTA - 19) & 127)]) + ((0.0282654 * fVec19[((IOTA - 18) & 127)]) + ((0.034808400000000003 * fVec19[((IOTA - 14) & 127)]) + ((0.00097944700000000004 * fVec19[((IOTA - 13) & 127)]) + ((0.00034398499999999999 * fVec19[((IOTA - 11) & 127)]) + ((0.00042503099999999998 * fVec19[((IOTA - 6) & 127)]) + ((0.00057029400000000005 * fVec19[((IOTA - 5) & 127)]) + ((5.0096100000000001e-06 * fVec20[((IOTA - 124) & 127)]) + ((1.3386700000000002e-05 * fVec20[((IOTA - 123) & 127)]) + ((3.2443100000000001e-05 * fVec20[((IOTA - 122) & 127)]) + ((1.76768e-05 * fVec20[((IOTA - 119) & 127)]) + ((8.9263899999999998e-05 * fVec20[((IOTA - 118) & 127)]) + ((2.6721800000000002e-05 * fVec20[((IOTA - 117) & 127)]) + ((8.7643399999999995e-06 * fVec20[((IOTA - 115) & 127)]) + ((3.1741700000000001e-05 * fVec20[((IOTA - 114) & 127)]) + ((5.6021400000000005e-05 * fVec20[((IOTA - 113) & 127)]) + ((5.941340000000001e-05 * fVec20[((IOTA - 109) & 127)]) + ((0.00014551400000000002 * fVec20[((IOTA - 104) & 127)]) + ((0.00041534500000000007 * fVec20[((IOTA - 100) & 127)]) + ((0.0252123 * fVec20[((IOTA - 21) & 127)]) + ((0.0254109 * fVec20[((IOTA - 20) & 127)]) + ((0.00081397000000000001 * fVec20[((IOTA - 98) & 127)]) + ((7.5796499999999995e-06 * fVec20[((IOTA - 96) & 127)]) + ((0.00142954 * fVec20[((IOTA - 95) & 127)]) + ((0.00067267800000000001 * fVec20[((IOTA - 92) & 127)]) + ((0.0012544500000000001 * fVec20[((IOTA - 91) & 127)]) + ((0.0026229399999999998 * fVec20[((IOTA - 87) & 127)]) + ((0.0012076299999999999 * fVec20[((IOTA - 86) & 127)]) + ((1.6765800000000001e-05 * fVec20[((IOTA - 83) & 127)]) + ((0.00011319699999999999 * fVec20[((IOTA - 82) & 127)]) + ((0.0013973899999999999 * fVec20[((IOTA - 78) & 127)]) + ((0.0037434500000000002 * fVec20[((IOTA - 77) & 127)]) + ((0.00103739 * fVec20[((IOTA - 76) & 127)]) + ((0.00042959699999999999 * fVec20[((IOTA - 73) & 127)]) + ((0.00143001 * fVec20[((IOTA - 72) & 127)]) + ((0.0028124000000000001 * fVec20[((IOTA - 71) & 127)]) + ((0.00084889100000000006 * fVec20[((IOTA - 70) & 127)]) + ((0.00046814600000000007 * fVec20[((IOTA - 69) & 127)]) + ((8.3187000000000002e-05 * fVec20[((IOTA - 66) & 127)]) + ((0.00060605399999999997 * fVec20[((IOTA - 65) & 127)]) + ((0.00097613699999999997 * fVec20[((IOTA - 64) & 127)]) + ((0.00086599699999999997 * fVec20[((IOTA - 63) & 127)]) + ((0.0017292799999999999 * fVec20[((IOTA - 60) & 127)]) + ((0.0022722300000000001 * fVec20[((IOTA - 49) & 127)]) + ((0.0068404800000000003 * fVec20[((IOTA - 48) & 127)]) + ((0.00110702 * fVec20[((IOTA - 47) & 127)]) + ((0.00757838 * fVec20[((IOTA - 44) & 127)]) + ((0.0057198600000000002 * fVec20[((IOTA - 43) & 127)]) + ((0.0029618999999999999 * fVec20[((IOTA - 40) & 127)]) + ((0.0140448 * fVec20[((IOTA - 35) & 127)]) + ((0.0041036900000000001 * fVec20[((IOTA - 34) & 127)]) + ((0.013145800000000001 * fVec20[((IOTA - 31) & 127)]) + ((0.019920400000000001 * fVec20[((IOTA - 30) & 127)]) + ((0.0094601700000000004 * fVec20[((IOTA - 26) & 127)]) + ((0.056288999999999999 * fVec20[((IOTA - 25) & 127)]) + ((0.0019233 * fVec20[((IOTA - 24) & 127)]) + ((5.4508599999999995e-06 * fVec21[((IOTA - 124) & 127)]) + ((2.3097900000000001e-05 * fVec21[((IOTA - 120) & 127)]) + ((9.5084400000000014e-05 * fVec21[((IOTA - 119) & 127)]) + ((4.7070600000000003e-05 * fVec21[((IOTA - 118) & 127)]) + ((1.9151600000000001e-05 * fVec21[((IOTA - 115) & 127)]) + ((0.000213902 * fVec21[((IOTA - 114) & 127)]) + ((4.3982700000000002e-05 * fVec21[((IOTA - 113) & 127)]) + ((8.4208499999999999e-05 * fVec21[((IOTA - 112) & 127)]) + ((0.000313663 * fVec21[((IOTA - 111) & 127)]) + ((0.000107876 * fVec21[((IOTA - 107) & 127)]) + ((0.00014932900000000002 * fVec21[((IOTA - 106) & 127)]) + ((0.00049481000000000004 * fVec21[((IOTA - 102) & 127)]) + ((0.00013896900000000002 * fVec21[((IOTA - 99) & 127)]) + ((0.000204095 * fVec21[((IOTA - 94) & 127)]) + ((0.0014644900000000001 * fVec21[((IOTA - 93) & 127)]) + ((0.00051962299999999998 * fVec21[((IOTA - 92) & 127)]) + ((0.0015988 * fVec21[((IOTA - 88) & 127)]) + ((0.0012366600000000001 * fVec21[((IOTA - 87) & 127)]) + ((0.0011569899999999999 * fVec21[((IOTA - 82) & 127)]) + ((0.0022012100000000003 * fVec21[((IOTA - 81) & 127)]) + ((0.00012976 * fVec21[((IOTA - 80) & 127)]) + ((0.00192268 * fVec21[((IOTA - 17) & 127)]) + ((0.030162100000000001 * fVec21[((IOTA - 16) & 127)]) + ((0.0031064899999999999 * fVec21[((IOTA - 14) & 127)]) + ((0.0034641700000000004 * fVec21[((IOTA - 13) & 127)]) + ((0.00109278 * fVec21[((IOTA - 11) & 127)]) + ((0.00052972100000000003 * fVec21[((IOTA - 8) & 127)]) + ((0.000247311 * fVec21[((IOTA - 7) & 127)]) + ((0.00027904300000000003 * fVec21[((IOTA - 4) & 127)]) + ((0.0037454299999999997 * fVec21[((IOTA - 25) & 127)]) + ((0.0010910800000000001 * fVec21[((IOTA - 72) & 127)]) + ((8.9774699999999996e-06 * fVec21[((IOTA - 71) & 127)]) + ((0.0018817999999999999 * fVec21[((IOTA - 70) & 127)]) + ((0.0061321300000000004 * fVec21[((IOTA - 69) & 127)]) + ((0.00048287699999999999 * fVec21[((IOTA - 59) & 127)]) + ((0.0018291900000000001 * fVec21[((IOTA - 58) & 127)]) + ((0.0024737499999999998 * fVec21[((IOTA - 57) & 127)]) + ((0.0019971400000000001 * fVec21[((IOTA - 56) & 127)]) + ((0.00122024 * fVec21[((IOTA - 55) & 127)]) + ((0.0039290200000000001 * fVec21[((IOTA - 54) & 127)]) + ((0.0016456699999999999 * fVec21[((IOTA - 53) & 127)]) + ((0.00022187000000000002 * fVec21[((IOTA - 52) & 127)]) + ((0.0013776999999999999 * fVec21[((IOTA - 46) & 127)]) + ((0.00103326 * fVec21[((IOTA - 45) & 127)]) + ((0.0032352400000000003 * fVec21[((IOTA - 44) & 127)]) + ((0.0038521000000000002 * fVec21[((IOTA - 43) & 127)]) + ((0.0237126 * fVec21[((IOTA - 20) & 127)]) + ((0.017540800000000002 * fVec21[((IOTA - 19) & 127)]) + ((0.010049600000000001 * fVec21[((IOTA - 40) & 127)]) + ((0.0061998300000000008 * fVec21[((IOTA - 39) & 127)]) + ((0.00020778699999999999 * fVec21[((IOTA - 38) & 127)]) + ((0.014879400000000001 * fVec21[((IOTA - 34) & 127)]) + ((0.00030624 * fVec21[((IOTA - 33) & 127)]) + ((0.0023475600000000003 * fVec21[((IOTA - 31) & 127)]) + ((0.0038550100000000003 * fVec21[((IOTA - 29) & 127)]) + ((0.0096461900000000007 * fVec21[((IOTA - 28) & 127)]) + ((8.3471200000000004e-08 * fVec22[((IOTA - 126) & 127)]) + ((9.3807100000000005e-06 * fVec22[((IOTA - 122) & 127)]) + ((6.6623900000000011e-05 * fVec22[((IOTA - 119) & 127)]) + ((6.1216400000000006e-05 * fVec22[((IOTA - 118) & 127)]) + ((6.7144700000000015e-05 * fVec22[((IOTA - 115) & 127)]) + ((0.000206061 * fVec22[((IOTA - 114) & 127)]) + ((0.00013795600000000001 * fVec22[((IOTA - 113) & 127)]) + ((4.38894e-05 * fVec22[((IOTA - 110) & 127)]) + ((0.00041225500000000004 * fVec22[((IOTA - 109) & 127)]) + ((0.000227209 * fVec22[((IOTA - 108) & 127)]) + ((0.00066430000000000005 * fVec22[((IOTA - 102) & 127)]) + ((0.00093781400000000003 * fVec22[((IOTA - 101) & 127)]) + ((0.00076159100000000005 * fVec22[((IOTA - 100) & 127)]) + ((0.00054271000000000007 * fVec22[((IOTA - 97) & 127)]) + ((0.00084564100000000006 * fVec22[((IOTA - 96) & 127)]) + ((0.000247972 * fVec22[((IOTA - 92) & 127)]) + ((0.0010684900000000001 * fVec22[((IOTA - 74) & 127)]) + ((0.00076376900000000008 * fVec22[((IOTA - 73) & 127)]) + ((0.00041839399999999999 * fVec22[((IOTA - 72) & 127)]) + ((6.3069200000000003e-05 * fVec22[((IOTA - 71) & 127)]) + ((0.00096322300000000003 * fVec22[((IOTA - 70) & 127)]) + ((0.00189788 * fVec22[((IOTA - 69) & 127)]) + ((0.00096244300000000011 * fVec22[((IOTA - 64) & 127)]) + ((0.00089314900000000009 * fVec22[((IOTA - 61) & 127)]) + ((0.00179447 * fVec22[((IOTA - 60) & 127)]) + ((0.000388658 * fVec22[((IOTA - 59) & 127)]) + ((0.00198825 * fVec22[((IOTA - 58) & 127)]) + ((0.0035999199999999999 * fVec22[((IOTA - 57) & 127)]) + ((0.0053912600000000001 * fVec22[((IOTA - 56) & 127)]) + ((0.0028989900000000002 * fVec22[((IOTA - 55) & 127)]) + ((0.0030239099999999999 * fVec22[((IOTA - 53) & 127)]) + ((0.0068894500000000001 * fVec22[((IOTA - 52) & 127)]) + ((0.000667396 * fVec22[((IOTA - 51) & 127)]) + ((0.00022144200000000003 * fVec22[((IOTA - 47) & 127)]) + ((0.00070796200000000002 * fVec22[((IOTA - 46) & 127)]) + ((0.0021818499999999999 * fVec22[((IOTA - 41) & 127)]) + ((0.013751599999999999 * fVec22[((IOTA - 38) & 127)]) + ((0.014187399999999999 * fVec22[((IOTA - 37) & 127)]) + ((0.0066966600000000001 * fVec22[((IOTA - 33) & 127)]) + ((0.0104107 * fVec22[((IOTA - 32) & 127)]) + ((0.015792199999999999 * fVec22[((IOTA - 29) & 127)]) + ((0.022154199999999999 * fVec22[((IOTA - 28) & 127)]) + ((0.0038254399999999998 * fVec22[((IOTA - 27) & 127)]) + ((0.028354799999999999 * fVec22[((IOTA - 25) & 127)]) + ((0.022252200000000003 * fVec22[((IOTA - 24) & 127)]) + ((0.0121111 * fVec22[((IOTA - 22) & 127)]) + ((0.032235100000000003 * fVec22[((IOTA - 18) & 127)]) + ((0.026861600000000003 * fVec22[((IOTA - 15) & 127)]) + ((0.017621899999999999 * fVec22[((IOTA - 14) & 127)]) + ((0.019559200000000002 * fVec22[((IOTA - 13) & 127)]) + ((0.0067998500000000005 * fVec22[((IOTA - 10) & 127)]) + ((0.00264073 * fVec22[((IOTA - 8) & 127)]) + ((0.0024590700000000003 * fVec22[((IOTA - 6) & 127)]) + ((0.00038372900000000003 * fVec22[((IOTA - 4) & 127)]) + ((0.000334903 * fVec22[((IOTA - 2) & 127)]) + ((5.3094000000000004e-05 * fVec22[((IOTA - 1) & 127)]) + ((2.1262000000000001e-05 * fTemp22) + ((0.00085027700000000009 * fVec22[((IOTA - 78) & 127)]) + ((0.0013567100000000001 * fVec22[((IOTA - 91) & 127)]) + ((0.00179301 * fVec22[((IOTA - 90) & 127)]) + ((0.00014971799999999999 * fVec22[((IOTA - 89) & 127)]) + ((0.0013197300000000001 * fVec22[((IOTA - 88) & 127)]) + ((0.00037485000000000003 * fVec22[((IOTA - 87) & 127)]) + ((0.00075088100000000012 * fVec22[((IOTA - 83) & 127)]) + ((0.000650408 * fVec22[((IOTA - 82) & 127)]) + ((4.1789000000000003e-05 * fVec22[((IOTA - 81) & 127)]) + ((0.00031279000000000002 * fVec22[((IOTA - 79) & 127)]) + ((6.4276900000000001e-05 * fVec25[((IOTA - 119) & 127)]) + ((9.164930000000001e-05 * fVec25[((IOTA - 118) & 127)]) + ((5.7182200000000003e-05 * fVec25[((IOTA - 117) & 127)]) + ((0.00012319500000000002 * fVec25[((IOTA - 116) & 127)]) + ((0.000211704 * fVec25[((IOTA - 115) & 127)]) + ((0.00034920800000000005 * fVec25[((IOTA - 114) & 127)]) + ((0.00033244200000000001 * fVec25[((IOTA - 113) & 127)]) + ((0.00025251100000000002 * fVec25[((IOTA - 112) & 127)]) + ((0.000318859 * fVec25[((IOTA - 111) & 127)]) + ((0.00039344000000000005 * fVec25[((IOTA - 110) & 127)]) + ((0.00033167 * fVec25[((IOTA - 109) & 127)]) + ((0.000465384 * fVec25[((IOTA - 108) & 127)]) + ((0.00039361300000000001 * fVec25[((IOTA - 107) & 127)]) + ((0.00042075400000000002 * fVec25[((IOTA - 106) & 127)]) + ((0.00037080799999999998 * fVec25[((IOTA - 105) & 127)]) + ((1.6587200000000003e-05 * fVec25[((IOTA - 103) & 127)]) + ((0.00091861900000000008 * fVec25[((IOTA - 102) & 127)]) + ((0.00025743700000000001 * fVec25[((IOTA - 101) & 127)]) + ((1.0584400000000002e-05 * fVec25[((IOTA - 98) & 127)]) + ((0.00040115600000000006 * fVec25[((IOTA - 97) & 127)]) + ((0.0014677900000000001 * fVec25[((IOTA - 90) & 127)]) + ((0.0010665400000000002 * fVec25[((IOTA - 89) & 127)]) + ((0.0011811600000000001 * fVec25[((IOTA - 88) & 127)]) + ((0.00093001200000000003 * fVec25[((IOTA - 87) & 127)]) + ((0.00025672299999999999 * fVec25[((IOTA - 85) & 127)]) + ((3.6903100000000002e-05 * fVec25[((IOTA - 83) & 127)]) + ((0.00082218600000000003 * fVec25[((IOTA - 82) & 127)]) + ((0.000382178 * fVec25[((IOTA - 81) & 127)]) + ((0.00056339900000000002 * fVec25[((IOTA - 78) & 127)]) + ((0.00030066700000000001 * fVec25[((IOTA - 77) & 127)]) + ((0.00075356000000000002 * fVec25[((IOTA - 76) & 127)]) + ((0.0017828800000000001 * fVec25[((IOTA - 75) & 127)]) + ((0.00080830800000000009 * fVec25[((IOTA - 74) & 127)]) + ((0.00187645 * fVec25[((IOTA - 70) & 127)]) + ((0.0013177900000000001 * fVec25[((IOTA - 69) & 127)]) + ((0.0026788900000000002 * fVec25[((IOTA - 68) & 127)]) + ((0.0014275899999999998 * fVec25[((IOTA - 67) & 127)]) + ((0.00077358800000000008 * fVec25[((IOTA - 65) & 127)]) + ((0.00030791900000000003 * fVec25[((IOTA - 64) & 127)]) + ((0.0018273299999999998 * fVec25[((IOTA - 59) & 127)]) + ((0.000741378 * fVec25[((IOTA - 58) & 127)]) + ((0.0021143999999999998 * fVec25[((IOTA - 56) & 127)]) + ((0.0023650199999999998 * fVec25[((IOTA - 55) & 127)]) + ((0.00137963 * fVec25[((IOTA - 46) & 127)]) + ((0.0022811300000000001 * fVec25[((IOTA - 45) & 127)]) + ((0.0077523699999999997 * fVec25[((IOTA - 44) & 127)]) + ((0.0087150300000000003 * fVec25[((IOTA - 43) & 127)]) + ((0.0035589599999999999 * fVec25[((IOTA - 40) & 127)]) + ((0.009139089999999999 * fVec25[((IOTA - 37) & 127)]) + ((0.0022023799999999999 * fVec25[((IOTA - 36) & 127)]) + ((0.00043536700000000003 * fVec25[((IOTA - 35) & 127)]) + ((0.0065159300000000005 * fVec25[((IOTA - 34) & 127)]) + ((0.0023690899999999999 * fVec25[((IOTA - 33) & 127)]) + ((0.017782599999999999 * fVec25[((IOTA - 32) & 127)]) + ((0.0058807299999999998 * fVec25[((IOTA - 31) & 127)]) + ((0.033734800000000002 * fVec25[((IOTA - 28) & 127)]) + ((0.00030687999999999999 * fVec25[((IOTA - 27) & 127)]) + ((0.027150500000000001 * fVec25[((IOTA - 25) & 127)]) + ((0.018427300000000001 * fVec25[((IOTA - 24) & 127)]) + ((0.037316000000000002 * fVec25[((IOTA - 18) & 127)]) + ((0.014252300000000001 * fVec25[((IOTA - 17) & 127)]) + ((0.019724700000000001 * fVec25[((IOTA - 15) & 127)]) + ((0.00039235000000000002 * fVec25[((IOTA - 14) & 127)]) + ((0.016522600000000002 * fVec25[((IOTA - 13) & 127)]) + ((0.0057737600000000002 * fVec25[((IOTA - 10) & 127)]) + ((0.00298131 * fVec25[((IOTA - 8) & 127)]) + ((0.0021578599999999997 * fVec25[((IOTA - 6) & 127)]) + ((0.0006632360000000001 * fVec25[((IOTA - 4) & 127)]) + ((0.00032355000000000003 * fVec25[((IOTA - 2) & 127)]) + ((4.3569800000000004e-05 * fVec25[((IOTA - 1) & 127)]) + ((2.0610900000000003e-05 * fTemp25) + ((7.3541399999999999e-06 * fVec24[((IOTA - 125) & 127)]) + ((1.9871400000000001e-05 * fVec24[((IOTA - 124) & 127)]) + ((1.68007e-05 * fVec24[((IOTA - 123) & 127)]) + ((4.0472700000000003e-05 * fVec24[((IOTA - 120) & 127)]) + ((2.0089899999999999e-06 * fVec24[((IOTA - 117) & 127)]) + ((9.4388500000000013e-05 * fVec24[((IOTA - 116) & 127)]) + ((4.0048000000000007e-05 * fVec24[((IOTA - 115) & 127)]) + ((0.00013508199999999999 * fVec24[((IOTA - 114) & 127)]) + ((1.4516400000000002e-05 * fVec24[((IOTA - 112) & 127)]) + ((4.0951399999999994e-06 * fVec24[((IOTA - 109) & 127)]) + ((0.00038113700000000003 * fVec24[((IOTA - 108) & 127)]) + ((0.00025360600000000002 * fVec24[((IOTA - 107) & 127)]) + ((0.00018401499999999999 * fVec24[((IOTA - 86) & 127)]) + ((8.3155100000000006e-05 * fVec24[((IOTA - 84) & 127)]) + ((0.00055631600000000006 * fVec24[((IOTA - 83) & 127)]) + ((0.0013639500000000001 * fVec24[((IOTA - 82) & 127)]) + ((0.0011469 * fVec24[((IOTA - 81) & 127)]) + ((0.0022757299999999997 * fVec24[((IOTA - 78) & 127)]) + ((0.00076008400000000006 * fVec24[((IOTA - 77) & 127)]) + ((0.00049322500000000002 * fVec24[((IOTA - 75) & 127)]) + ((7.2509299999999999e-06 * fVec24[((IOTA - 74) & 127)]) + ((0.00102811 * fVec24[((IOTA - 73) & 127)]) + ((0.00084844100000000013 * fVec24[((IOTA - 72) & 127)]) + ((0.00073845000000000009 * fVec24[((IOTA - 71) & 127)]) + ((0.00068371000000000003 * fVec24[((IOTA - 70) & 127)]) + ((7.2511700000000006e-05 * fVec24[((IOTA - 69) & 127)]) + ((0.00078590300000000001 * fVec24[((IOTA - 66) & 127)]) + ((0.00095934000000000015 * fVec24[((IOTA - 62) & 127)]) + ((0.000404712 * fVec24[((IOTA - 61) & 127)]) + ((0.00023097600000000001 * fVec24[((IOTA - 57) & 127)]) + ((0.00218833 * fVec24[((IOTA - 53) & 127)]) + ((0.0010072700000000002 * fVec24[((IOTA - 52) & 127)]) + ((0.00137375 * fVec24[((IOTA - 51) & 127)]) + ((0.00083448600000000006 * fVec24[((IOTA - 50) & 127)]) + ((0.00081536399999999995 * fVec24[((IOTA - 49) & 127)]) + ((0.00054543100000000008 * fVec24[((IOTA - 48) & 127)]) + ((0.0035057600000000001 * fVec24[((IOTA - 47) & 127)]) + ((0.0042825600000000004 * fVec24[((IOTA - 46) & 127)]) + ((0.0073746600000000008 * fVec24[((IOTA - 43) & 127)]) + ((0.0031813100000000001 * fVec24[((IOTA - 41) & 127)]) + ((0.0031712400000000001 * fVec24[((IOTA - 40) & 127)]) + ((0.0019387000000000002 * fVec24[((IOTA - 38) & 127)]) + ((0.010274799999999999 * fVec24[((IOTA - 37) & 127)]) + ((0.0160001 * fVec24[((IOTA - 34) & 127)]) + ((0.015218700000000002 * fVec24[((IOTA - 33) & 127)]) + ((0.0051433299999999998 * fVec24[((IOTA - 29) & 127)]) + ((0.019054000000000001 * fVec24[((IOTA - 28) & 127)]) + ((0.029220799999999998 * fVec24[((IOTA - 22) & 127)]) + ((0.019108199999999999 * fVec24[((IOTA - 20) & 127)]) + ((0.0101244 * fVec24[((IOTA - 19) & 127)]) + ((0.0243991 * fVec24[((IOTA - 17) & 127)]) + ((0.0071943800000000002 * fVec24[((IOTA - 16) & 127)]) + ((0.0065491000000000004 * fVec24[((IOTA - 14) & 127)]) + ((0.00345408 * fVec24[((IOTA - 13) & 127)]) + ((0.000172325 * fVec24[((IOTA - 11) & 127)]) + ((4.8090900000000004e-05 * fVec24[((IOTA - 10) & 127)]) + ((0.0012270600000000001 * fVec24[((IOTA - 8) & 127)]) + ((0.00054008200000000011 * fVec24[((IOTA - 4) & 127)]) + ((2.44107e-05 * fVec24[((IOTA - 2) & 127)]) + ((0.00038692400000000002 * fVec24[((IOTA - 90) & 127)]) + ((8.5443400000000003e-05 * fVec24[((IOTA - 97) & 127)]) + ((0.00057432400000000008 * fVec24[((IOTA - 96) & 127)]) + ((5.2891500000000002e-07 * fVec26[((IOTA - 126) & 127)]) + ((7.5122799999999995e-06 * fVec26[((IOTA - 125) & 127)]) + ((1.6393300000000001e-05 * fVec26[((IOTA - 124) & 127)]) + ((2.3049300000000003e-05 * fVec26[((IOTA - 123) & 127)]) + ((2.3497200000000003e-05 * fVec26[((IOTA - 122) & 127)]) + ((3.1160000000000007e-05 * fVec26[((IOTA - 121) & 127)]) + ((2.6824200000000003e-05 * fVec26[((IOTA - 120) & 127)]) + ((2.2243600000000002e-05 * fVec26[((IOTA - 117) & 127)]) + ((4.78325e-05 * fVec26[((IOTA - 116) & 127)]) + ((0.0011128800000000001 * fVec24[((IOTA - 87) & 127)]) + ((0.00013262100000000003 * fVec26[((IOTA - 94) & 127)]) + ((0.00061235200000000004 * fVec26[((IOTA - 91) & 127)]) + ((0.00083076200000000008 * fVec26[((IOTA - 90) & 127)]) + ((0.00094943600000000012 * fVec26[((IOTA - 89) & 127)]) + ((0.00016757299999999999 * fVec26[((IOTA - 88) & 127)]) + ((0.00022032700000000001 * fVec26[((IOTA - 87) & 127)]) + ((0.00016127700000000001 * fVec26[((IOTA - 86) & 127)]) + ((0.00678927 * fVec26[((IOTA - 17) & 127)]) + ((0.0091073999999999999 * fVec26[((IOTA - 16) & 127)]) + ((0.0130569 * fVec26[((IOTA - 15) & 127)]) + ((0.0042139100000000004 * fVec26[((IOTA - 13) & 127)]) + ((0.00085768200000000002 * fVec26[((IOTA - 8) & 127)]) + ((0.00032995300000000002 * fVec26[((IOTA - 6) & 127)]) + ((0.00189814 * fVec26[((IOTA - 84) & 127)]) + ((0.0011356999999999999 * fVec26[((IOTA - 82) & 127)]) + ((0.0018585000000000001 * fVec26[((IOTA - 81) & 127)]) + ((0.0012131000000000002 * fVec26[((IOTA - 80) & 127)]) + ((0.00025399999999999999 * fVec26[((IOTA - 79) & 127)]) + ((0.00035679200000000004 * fVec26[((IOTA - 78) & 127)]) + ((0.00097909699999999995 * fVec26[((IOTA - 77) & 127)]) + ((0.0021205199999999999 * fVec26[((IOTA - 76) & 127)]) + ((0.00191763 * fVec26[((IOTA - 85) & 127)]) + ((0.0008138310000000001 * fVec26[((IOTA - 68) & 127)]) + ((0.00074145100000000007 * fVec26[((IOTA - 62) & 127)]) + ((0.00047705600000000001 * fVec26[((IOTA - 61) & 127)]) + ((0.0034899700000000002 * fVec26[((IOTA - 60) & 127)]) + ((0.0025903700000000003 * fVec26[((IOTA - 59) & 127)]) + ((0.0027718299999999999 * fVec26[((IOTA - 58) & 127)]) + ((0.00315957 * fVec26[((IOTA - 57) & 127)]) + ((0.0041676700000000001 * fVec26[((IOTA - 56) & 127)]) + ((0.0040106600000000001 * fVec26[((IOTA - 55) & 127)]) + ((0.00024623100000000002 * fVec26[((IOTA - 54) & 127)]) + ((0.00327415 * fVec26[((IOTA - 53) & 127)]) + ((0.0026408399999999998 * fVec26[((IOTA - 52) & 127)]) + ((0.00050010199999999999 * fVec26[((IOTA - 50) & 127)]) + ((0.00058122499999999999 * fVec26[((IOTA - 49) & 127)]) + ((0.0072108700000000003 * fVec26[((IOTA - 44) & 127)]) + ((0.0018301400000000001 * fVec26[((IOTA - 43) & 127)]) + ((0.00058247500000000005 * fVec26[((IOTA - 38) & 127)]) + ((0.0085527399999999996 * fVec26[((IOTA - 37) & 127)]) + ((0.0064438700000000008 * fVec26[((IOTA - 35) & 127)]) + ((0.0030920700000000001 * fVec26[((IOTA - 31) & 127)]) + ((0.026311300000000003 * fVec26[((IOTA - 30) & 127)]) + ((0.0045847700000000002 * fVec26[((IOTA - 29) & 127)]) + ((0.014478500000000002 * fVec26[((IOTA - 26) & 127)]) + ((0.014742699999999999 * fVec26[((IOTA - 25) & 127)]) + ((0.0040668100000000006 * fVec26[((IOTA - 23) & 127)]) + ((0.010288200000000001 * fVec26[((IOTA - 21) & 127)]) + ((0.016673299999999999 * fVec26[((IOTA - 20) & 127)]) + ((0.0066805500000000004 * fVec26[((IOTA - 18) & 127)]) + ((7.5180799999999995e-07 * fVec6[((IOTA - 126) & 127)]) + ((7.4192699999999999e-06 * fVec6[((IOTA - 125) & 127)]) + ((7.8058900000000002e-06 * fVec6[((IOTA - 124) & 127)]) + ((0.00050478700000000003 * fVec26[((IOTA - 4) & 127)]) + ((7.6831699999999991e-06 * fVec6[((IOTA - 123) & 127)]) + ((4.3886799999999996e-07 * fVec6[((IOTA - 122) & 127)]) + ((2.5728499999999999e-05 * fVec6[((IOTA - 121) & 127)]) + ((3.8519100000000002e-06 * fVec6[((IOTA - 120) & 127)]) + ((8.4650599999999985e-06 * fVec6[((IOTA - 119) & 127)]) + ((4.1315700000000002e-05 * fVec6[((IOTA - 118) & 127)]) + ((0.00014156200000000002 * fVec6[((IOTA - 117) & 127)]) + ((0.00013138900000000001 * fVec6[((IOTA - 116) & 127)]) + ((2.3594499999999999e-05 * fVec6[((IOTA - 114) & 127)]) + ((5.5362000000000003e-05 * fVec6[((IOTA - 113) & 127)]) + ((4.5982300000000002e-05 * fVec6[((IOTA - 112) & 127)]) + ((2.5231199999999997e-06 * fTemp26) + ((0.00020877800000000001 * fVec6[((IOTA - 95) & 127)]) + ((0.0014440100000000001 * fVec6[((IOTA - 94) & 127)]) + ((0.000105713 * fVec26[((IOTA - 2) & 127)]) + ((7.5196800000000005e-05 * fVec6[((IOTA - 93) & 127)]) + ((0.00021774900000000002 * fVec6[((IOTA - 88) & 127)]) + ((0.00050493599999999999 * fVec6[((IOTA - 87) & 127)]) + ((0.00129094 * fVec6[((IOTA - 86) & 127)]) + ((0.00131875 * fVec6[((IOTA - 85) & 127)]) + ((0.00025035200000000002 * fVec6[((IOTA - 84) & 127)]) + ((0.0016813900000000001 * fVec6[((IOTA - 83) & 127)]) + ((0.00079413300000000004 * fVec6[((IOTA - 82) & 127)]) + ((0.00148109 * fVec6[((IOTA - 78) & 127)]) + ((0.00187816 * fVec6[((IOTA - 77) & 127)]) + ((0.000177443 * fVec6[((IOTA - 2) & 127)]) + ((2.38744e-05 * fVec6[((IOTA - 1) & 127)]) + ((0.012670500000000001 * fVec6[((IOTA - 17) & 127)]) + ((0.017149600000000001 * fVec6[((IOTA - 14) & 127)]) + ((0.00039274200000000002 * fVec6[((IOTA - 13) & 127)]) + ((0.00063474100000000008 * fVec6[((IOTA - 8) & 127)]) + ((0.0015205800000000001 * fVec6[((IOTA - 76) & 127)]) + ((0.00021227600000000001 * fVec6[((IOTA - 75) & 127)]) + ((0.00359524 * fVec6[((IOTA - 74) & 127)]) + ((0.0041234900000000005 * fVec6[((IOTA - 73) & 127)]) + ((0.00089886800000000004 * fVec6[((IOTA - 72) & 127)]) + ((0.0018163100000000002 * fVec6[((IOTA - 65) & 127)]) + ((0.0033862499999999999 * fVec6[((IOTA - 62) & 127)]) + ((0.00095073000000000011 * fVec6[((IOTA - 61) & 127)]) + ((0.00032132100000000001 * fVec6[((IOTA - 55) & 127)]) + ((0.0011200699999999999 * fVec6[((IOTA - 53) & 127)]) + ((0.0028892500000000003 * fVec6[((IOTA - 50) & 127)]) + ((0.000955261 * fVec6[((IOTA - 49) & 127)]) + ((6.3343100000000014e-05 * fVec6[((IOTA - 47) & 127)]) + ((0.00694716 * fVec6[((IOTA - 44) & 127)]) + ((0.0026067200000000003 * fVec6[((IOTA - 43) & 127)]) + ((0.0036414500000000001 * fVec6[((IOTA - 42) & 127)]) + ((0.0024519899999999998 * fVec6[((IOTA - 41) & 127)]) + ((0.00093541399999999997 * fVec6[((IOTA - 39) & 127)]) + ((0.0018243199999999999 * fVec6[((IOTA - 37) & 127)]) + ((0.0072907000000000007 * fVec6[((IOTA - 36) & 127)]) + ((0.0082141100000000002 * fVec6[((IOTA - 35) & 127)]) + ((0.0015148500000000001 * fVec6[((IOTA - 33) & 127)]) + ((0.0039258799999999996 * fVec6[((IOTA - 32) & 127)]) + ((0.0083919700000000003 * fVec6[((IOTA - 29) & 127)]) + ((0.045109500000000004 * fVec6[((IOTA - 24) & 127)]) + ((0.0130615 * fVec6[((IOTA - 23) & 127)]) + ((0.0068680599999999996 * fVec6[((IOTA - 20) & 127)]) + ((0.0158055 * fVec6[((IOTA - 19) & 127)]) + ((0.0196975 * fVec6[((IOTA - 18) & 127)]) + ((0.00022428400000000002 * fVec6[((IOTA - 6) & 127)]) + ((0.00061255200000000004 * fVec6[((IOTA - 5) & 127)]) + ((5.1650600000000005e-06 * fVec27[((IOTA - 122) & 127)]) + ((6.2288800000000013e-05 * fVec27[((IOTA - 118) & 127)]) + ((0.000107544 * fVec27[((IOTA - 117) & 127)]) + ((3.1495500000000004e-05 * fVec27[((IOTA - 116) & 127)]) + ((1.20038e-05 * fVec27[((IOTA - 115) & 127)]) + ((2.5178300000000003e-05 * fVec27[((IOTA - 114) & 127)]) + ((0.000470283 * fVec27[((IOTA - 113) & 127)]) + ((0.00042444499999999997 * fVec27[((IOTA - 112) & 127)]) + ((0.00022263799999999999 * fVec27[((IOTA - 111) & 127)]) + ((4.14666e-05 * fVec27[((IOTA - 109) & 127)]) + ((0.000344395 * fVec27[((IOTA - 108) & 127)]) + ((0.00011064600000000001 * fVec27[((IOTA - 106) & 127)]) + ((0.00030248100000000001 * fVec27[((IOTA - 105) & 127)]) + ((0.00041449600000000004 * fVec27[((IOTA - 104) & 127)]) + ((0.00012015400000000002 * fVec27[((IOTA - 100) & 127)]) + ((0.00051881099999999999 * fVec27[((IOTA - 99) & 127)]) + ((6.7970200000000002e-05 * fVec27[((IOTA - 98) & 127)]) + ((0.00034321600000000003 * fVec27[((IOTA - 95) & 127)]) + ((0.00044988999999999999 * fVec27[((IOTA - 88) & 127)]) + ((0.00256128 * fVec27[((IOTA - 87) & 127)]) + ((0.0023223300000000001 * fVec27[((IOTA - 86) & 127)]) + ((0.00014500400000000001 * fVec27[((IOTA - 83) & 127)]) + ((0.0011457399999999999 * fVec27[((IOTA - 79) & 127)]) + ((0.00095134899999999999 * fVec27[((IOTA - 78) & 127)]) + ((0.00214124 * fVec27[((IOTA - 75) & 127)]) + ((0.0040635300000000001 * fVec27[((IOTA - 74) & 127)]) + ((0.00039275000000000003 * fVec27[((IOTA - 73) & 127)]) + ((0.0021799499999999999 * fVec27[((IOTA - 71) & 127)]) + ((0.0024713999999999999 * fVec27[((IOTA - 70) & 127)]) + ((0.00148032 * fVec27[((IOTA - 69) & 127)]) + ((0.00048183400000000005 * fVec27[((IOTA - 66) & 127)]) + ((0.0020025400000000001 * fVec27[((IOTA - 65) & 127)]) + ((0.0024424899999999999 * fVec27[((IOTA - 64) & 127)]) + ((0.0017324700000000001 * fVec27[((IOTA - 63) & 127)]) + ((0.0044173700000000003 * fVec27[((IOTA - 14) & 127)]) + ((0.047073999999999998 * fVec27[((IOTA - 13) & 127)]) + ((0.050409800000000005 * fVec27[((IOTA - 12) & 127)]) + ((0.0088254800000000001 * fVec27[((IOTA - 11) & 127)]) + ((0.0028401100000000003 * fVec27[((IOTA - 9) & 127)]) + ((0.0010134199999999999 * fVec27[((IOTA - 7) & 127)]) + ((0.00048772500000000005 * fVec27[((IOTA - 5) & 127)]) + ((0.00019671200000000001 * fVec27[((IOTA - 3) & 127)]) + ((1.9656400000000004e-05 * fVec27[((IOTA - 1) & 127)]) + ((1.1230600000000001e-05 * fTemp27) + ((0.054586100000000005 * fVec27[((IOTA - 28) & 127)]) + ((0.0076356100000000001 * fVec27[((IOTA - 27) & 127)]) + ((0.0064172300000000003 * fVec27[((IOTA - 24) & 127)]) + ((0.025168300000000001 * fVec27[((IOTA - 23) & 127)]) + ((0.00083292900000000005 * fVec27[((IOTA - 60) & 127)]) + ((4.4803300000000005e-05 * fVec27[((IOTA - 59) & 127)]) + ((0.000591623 * fVec27[((IOTA - 56) & 127)]) + ((0.0017609399999999999 * fVec27[((IOTA - 47) & 127)]) + ((0.00027506900000000002 * fVec27[((IOTA - 42) & 127)]) + ((0.0020045600000000003 * fVec27[((IOTA - 41) & 127)]) + ((0.00894526 * fVec27[((IOTA - 38) & 127)]) + ((0.0040081499999999994 * fVec27[((IOTA - 37) & 127)]) + ((0.0022934100000000001 * fVec27[((IOTA - 36) & 127)]) + ((0.0078181599999999993 * fVec27[((IOTA - 35) & 127)]) + ((0.0060735200000000007 * fVec27[((IOTA - 34) & 127)]) + ((0.020101600000000001 * fVec27[((IOTA - 33) & 127)]) + ((0.011363099999999999 * fVec27[((IOTA - 32) & 127)]) + ((0.0048202200000000001 * fVec27[((IOTA - 31) & 127)]) + ((0.015268600000000002 * fVec27[((IOTA - 29) & 127)]) + ((1.2052900000000001e-05 * fVec28[((IOTA - 124) & 127)]) + ((7.5001999999999998e-06 * fVec28[((IOTA - 118) & 127)]) + ((3.8559700000000003e-05 * fVec28[((IOTA - 117) & 127)]) + ((0.00012688900000000001 * fVec28[((IOTA - 113) & 127)]) + ((7.1436400000000013e-05 * fVec28[((IOTA - 112) & 127)]) + ((8.3677800000000007e-05 * fVec28[((IOTA - 111) & 127)]) + ((0.000142659 * fVec28[((IOTA - 110) & 127)]) + ((0.00011731000000000001 * fVec28[((IOTA - 107) & 127)]) + ((0.00029102700000000002 * fVec28[((IOTA - 100) & 127)]) + ((0.000736785 * fVec28[((IOTA - 99) & 127)]) + ((0.00088049500000000002 * fVec28[((IOTA - 98) & 127)]) + ((0.00076679700000000005 * fVec28[((IOTA - 94) & 127)]) + ((0.0012207399999999999 * fVec28[((IOTA - 93) & 127)]) + ((0.00193305 * fVec28[((IOTA - 92) & 127)]) + ((0.00063554600000000007 * fVec28[((IOTA - 91) & 127)]) + ((0.00026668900000000002 * fVec28[((IOTA - 89) & 127)]) + ((0.00319579 * fVec28[((IOTA - 88) & 127)]) + ((0.0011806200000000001 * fVec28[((IOTA - 87) & 127)]) + ((0.00029940000000000001 * fVec28[((IOTA - 82) & 127)]) + ((0.0028643700000000002 * fVec28[((IOTA - 81) & 127)]) + ((0.0023513099999999997 * fVec28[((IOTA - 80) & 127)]) + ((0.0017465 * fVec28[((IOTA - 77) & 127)]) + ((0.00021222400000000003 * fVec28[((IOTA - 76) & 127)]) + ((0.00041598900000000002 * fVec28[((IOTA - 73) & 127)]) + ((0.00030018800000000001 * fVec28[((IOTA - 72) & 127)]) + ((0.00152436 * fVec28[((IOTA - 69) & 127)]) + ((0.00128761 * fVec28[((IOTA - 62) & 127)]) + ((0.00817616 * fVec28[((IOTA - 36) & 127)]) + ((0.0060419900000000006 * fVec28[((IOTA - 35) & 127)]) + ((0.0085528800000000006 * fVec28[((IOTA - 34) & 127)]) + ((0.030350199999999997 * fVec28[((IOTA - 27) & 127)]) + ((0.00316892 * fVec28[((IOTA - 24) & 127)]) + ((0.025193300000000002 * fVec28[((IOTA - 23) & 127)]) + ((0.0021023399999999999 * fVec28[((IOTA - 22) & 127)]) + ((0.0073916000000000008 * fVec28[((IOTA - 20) & 127)]) + ((0.017867400000000002 * fVec28[((IOTA - 17) & 127)]) + ((0.010231500000000001 * fVec28[((IOTA - 16) & 127)]) + ((0.00146583 * fVec28[((IOTA - 14) & 127)]) + ((0.0064234600000000006 * fVec28[((IOTA - 13) & 127)]) + ((0.00078510700000000006 * fVec28[((IOTA - 8) & 127)]) + ((0.00035025799999999999 * fVec28[((IOTA - 5) & 127)]) + ((0.00013798200000000001 * fVec28[((IOTA - 4) & 127)]) + ((3.8530500000000007e-05 * fVec28[((IOTA - 1) & 127)]) + ((0.0043865800000000002 * fVec28[((IOTA - 41) & 127)]) + ((0.0046617300000000002 * fVec28[((IOTA - 40) & 127)]) + ((0.0029096 * fVec28[((IOTA - 39) & 127)]) + ((0.0015227400000000001 * fVec28[((IOTA - 60) & 127)]) + ((0.00373734 * fVec28[((IOTA - 59) & 127)]) + ((0.0014280500000000002 * fVec28[((IOTA - 58) & 127)]) + ((0.0026737700000000002 * fVec28[((IOTA - 53) & 127)]) + ((0.0024428499999999999 * fVec28[((IOTA - 50) & 127)]) + ((0.0025408400000000004 * fVec28[((IOTA - 49) & 127)]) + ((0.0022300800000000002 * fVec28[((IOTA - 48) & 127)]) + ((0.00082497000000000007 * fVec28[((IOTA - 47) & 127)]) + ((0.0010773099999999999 * fVec28[((IOTA - 46) & 127)]) + ((6.9417900000000012e-05 * fVec28[((IOTA - 45) & 127)]) + ((1.6178099999999998e-07 * fVec29[((IOTA - 125) & 127)]) + ((1.7421599999999998e-07 * fVec29[((IOTA - 124) & 127)]) + ((0.00021674500000000001 * fVec29[((IOTA - 115) & 127)]) + ((0.00028279200000000003 * fVec29[((IOTA - 114) & 127)]) + ((5.2515800000000003e-05 * fVec29[((IOTA - 113) & 127)]) + ((0.000133249 * fVec29[((IOTA - 112) & 127)]) + ((0.00038273500000000004 * fVec29[((IOTA - 111) & 127)]) + ((0.00043214699999999997 * fVec29[((IOTA - 110) & 127)]) + ((0.00027134800000000003 * fVec29[((IOTA - 109) & 127)]) + ((3.3736500000000005e-05 * fVec29[((IOTA - 107) & 127)]) + ((6.6819399999999999e-05 * fVec29[((IOTA - 106) & 127)]) + ((0.00038405399999999999 * fVec29[((IOTA - 103) & 127)]) + ((0.0010818799999999999 * fVec29[((IOTA - 102) & 127)]) + ((0.000419827 * fVec29[((IOTA - 101) & 127)]) + ((0.000472497 * fVec29[((IOTA - 100) & 127)]) + ((0.00040792200000000007 * fVec29[((IOTA - 99) & 127)]) + ((0.0017046100000000001 * fVec29[((IOTA - 91) & 127)]) + ((0.0017854000000000001 * fVec29[((IOTA - 90) & 127)]) + ((0.000146465 * fVec29[((IOTA - 89) & 127)]) + ((0.0011246299999999999 * fVec29[((IOTA - 88) & 127)]) + ((0.000121433 * fVec29[((IOTA - 85) & 127)]) + ((0.0015572399999999999 * fVec29[((IOTA - 84) & 127)]) + ((0.00286542 * fVec29[((IOTA - 81) & 127)]) + ((0.0035030399999999998 * fVec29[((IOTA - 80) & 127)]) + ((0.0013357099999999999 * fVec29[((IOTA - 79) & 127)]) + ((0.0028925200000000004 * fVec29[((IOTA - 71) & 127)]) + ((0.00488274 * fVec29[((IOTA - 70) & 127)]) + ((0.0016347499999999999 * fVec29[((IOTA - 69) & 127)]) + ((0.0014653400000000001 * fVec29[((IOTA - 68) & 127)]) + ((0.0016001099999999999 * fVec29[((IOTA - 67) & 127)]) + ((2.4437900000000002e-05 * fVec29[((IOTA - 63) & 127)]) + ((0.00012724599999999999 * fVec29[((IOTA - 62) & 127)]) + ((0.019400900000000002 * fVec29[((IOTA - 37) & 127)]) + ((0.0108342 * fVec29[((IOTA - 36) & 127)]) + ((0.021263200000000003 * fVec29[((IOTA - 34) & 127)]) + ((0.020498300000000001 * fVec29[((IOTA - 33) & 127)]) + ((0.0187685 * fVec29[((IOTA - 32) & 127)]) + ((0.0086318699999999998 * fVec29[((IOTA - 31) & 127)]) + ((0.0119454 * fVec29[((IOTA - 30) & 127)]) + ((0.024111899999999999 * fVec29[((IOTA - 29) & 127)]) + ((0.0154331 * fVec29[((IOTA - 28) & 127)]) + ((0.011326600000000001 * fVec29[((IOTA - 27) & 127)]) + ((0.0041025300000000001 * fVec29[((IOTA - 26) & 127)]) + ((0.035046500000000001 * fVec29[((IOTA - 25) & 127)]) + ((0.0109835 * fVec29[((IOTA - 24) & 127)]) + ((0.008624660000000001 * fVec29[((IOTA - 21) & 127)]) + ((0.0030574400000000002 * fVec29[((IOTA - 17) & 127)]) + ((0.016297900000000001 * fVec29[((IOTA - 14) & 127)]) + ((0.053418799999999995 * fVec29[((IOTA - 13) & 127)]) + ((0.071327800000000011 * fVec29[((IOTA - 12) & 127)]) + ((0.0074569299999999996 * fVec29[((IOTA - 11) & 127)]) + ((0.00196452 * fVec29[((IOTA - 9) & 127)]) + ((1.4284499999999999e-06 * fVec29[((IOTA - 7) & 127)]) + ((0.00065664800000000002 * fVec29[((IOTA - 5) & 127)]) + ((0.00033454700000000003 * fVec29[((IOTA - 3) & 127)]) + ((4.19701e-05 * fVec29[((IOTA - 1) & 127)]) + ((1.6075699999999999e-05 * fTemp29) + ((0.0032972399999999999 * fVec29[((IOTA - 39) & 127)]) + ((0.010154000000000002 * fVec29[((IOTA - 38) & 127)]) + ((0.00045853400000000008 * fVec29[((IOTA - 58) & 127)]) + ((0.0015582 * fVec29[((IOTA - 57) & 127)]) + ((0.0015001299999999999 * fVec29[((IOTA - 56) & 127)]) + ((0.0012102200000000001 * fVec29[((IOTA - 55) & 127)]) + ((2.1103299999999999e-06 * fVec30[((IOTA - 125) & 127)]) + ((5.5217400000000003e-06 * fVec30[((IOTA - 124) & 127)]) + ((3.11789e-06 * fVec30[((IOTA - 123) & 127)]) + ((9.0368300000000007e-05 * fVec30[((IOTA - 119) & 127)]) + ((0.00011532 * fVec30[((IOTA - 118) & 127)]) + ((1.9649999999999998e-06 * fVec30[((IOTA - 116) & 127)]) + ((0.00021442500000000002 * fVec30[((IOTA - 115) & 127)]) + ((0.00030905200000000004 * fVec30[((IOTA - 114) & 127)]) + ((4.7581900000000006e-05 * fVec30[((IOTA - 113) & 127)]) + ((0.00016311100000000002 * fVec30[((IOTA - 112) & 127)]) + ((0.00016924900000000001 * fVec30[((IOTA - 111) & 127)]) + ((3.0118399999999995e-06 * fVec30[((IOTA - 109) & 127)]) + ((0.00014172800000000001 * (fVec32[((IOTA - 109) & 127)] - fVec31[((IOTA - 78) & 127)])) + ((0.00026133000000000005 * fVec30[((IOTA - 73) & 127)]) + ((0.00034291200000000001 * fVec30[((IOTA - 107) & 127)]) + ((0.00026214100000000002 * fVec30[((IOTA - 106) & 127)]) + ((0.00023320700000000001 * fVec30[((IOTA - 105) & 127)]) + ((0.00041387999999999999 * fVec30[((IOTA - 102) & 127)]) + ((0.000138245 * fVec30[((IOTA - 101) & 127)]) + ((0.000478309 * fVec30[((IOTA - 100) & 127)]) + ((0.00053920599999999997 * fVec30[((IOTA - 108) & 127)]) + ((0.00091847499999999998 * fVec30[((IOTA - 99) & 127)]) + ((0.0013005599999999999 * fVec30[((IOTA - 98) & 127)]) + ((0.00113754 * fVec30[((IOTA - 97) & 127)]) + ((0.0026714199999999999 * fVec30[((IOTA - 93) & 127)]) + ((0.0021342599999999998 * fVec30[((IOTA - 92) & 127)]) + ((0.00024966300000000001 * fVec30[((IOTA - 90) & 127)]) + ((0.0023507699999999999 * fVec30[((IOTA - 89) & 127)]) + ((0.0046170200000000003 * fVec30[((IOTA - 88) & 127)]) + ((0.0013482500000000001 * fVec30[((IOTA - 87) & 127)]) + ((0.0010940099999999999 * fVec30[((IOTA - 85) & 127)]) + ((0.0017591500000000001 * fVec30[((IOTA - 84) & 127)]) + ((0.00040582000000000004 * fVec30[((IOTA - 83) & 127)]) + ((0.00225807 * fVec30[((IOTA - 82) & 127)]) + ((0.00237535 * fVec30[((IOTA - 81) & 127)]) + ((0.000120611 * fVec30[((IOTA - 80) & 127)]) + ((0.00060378299999999999 * fVec30[((IOTA - 78) & 127)]) + ((0.00074305500000000006 * fVec30[((IOTA - 5) & 127)]) + ((0.00070165199999999998 * fVec30[((IOTA - 3) & 127)]) + ((7.2115300000000004e-05 * fVec30[((IOTA - 1) & 127)]) + ((1.68655e-05 * fTemp30) + ((0.0020077300000000001 * fVec30[((IOTA - 63) & 127)]) + ((0.0032089100000000001 * fVec30[((IOTA - 62) & 127)]) + ((0.0010079800000000001 * fVec30[((IOTA - 61) & 127)]) + ((0.00063087099999999997 * fVec30[((IOTA - 60) & 127)]) + ((0.0044288800000000005 * fVec30[((IOTA - 59) & 127)]) + ((0.0047678900000000003 * fVec30[((IOTA - 58) & 127)]) + ((0.0024688500000000003 * fVec30[((IOTA - 57) & 127)]) + ((0.00277838 * fVec30[((IOTA - 56) & 127)]) + ((0.0075612199999999996 * fVec30[((IOTA - 55) & 127)]) + ((0.00761051 * fVec30[((IOTA - 54) & 127)]) + ((0.0018776900000000002 * fVec30[((IOTA - 52) & 127)]) + ((0.0082384199999999998 * fVec30[((IOTA - 51) & 127)]) + ((0.0050166199999999994 * fVec30[((IOTA - 50) & 127)]) + ((0.0032369600000000001 * fVec30[((IOTA - 49) & 127)]) + ((0.0040625900000000005 * fVec30[((IOTA - 48) & 127)]) + ((0.011856999999999999 * fVec30[((IOTA - 47) & 127)]) + ((0.0091953899999999995 * fVec30[((IOTA - 46) & 127)]) + ((0.0061361499999999999 * fVec30[((IOTA - 45) & 127)]) + ((0.015667299999999999 * fVec30[((IOTA - 44) & 127)]) + ((0.0121152 * fVec30[((IOTA - 43) & 127)]) + ((0.0102805 * fVec30[((IOTA - 41) & 127)]) + ((0.0249734 * fVec30[((IOTA - 40) & 127)]) + ((0.0028042699999999998 * fVec30[((IOTA - 39) & 127)]) + ((0.0112762 * fVec30[((IOTA - 37) & 127)]) + ((0.0070063399999999998 * fVec30[((IOTA - 36) & 127)]) + ((0.0037140800000000002 * fVec30[((IOTA - 35) & 127)]) + ((0.0077227400000000005 * fVec30[((IOTA - 32) & 127)]) + ((0.0031788599999999999 * fVec30[((IOTA - 31) & 127)]) + ((0.0055445599999999996 * fVec30[((IOTA - 25) & 127)]) + ((0.014456700000000001 * fVec30[((IOTA - 21) & 127)]) + ((0.043969699999999994 * fVec30[((IOTA - 17) & 127)]) + ((0.010103500000000001 * fVec30[((IOTA - 16) & 127)]) + ((0.026084999999999997 * fVec30[((IOTA - 15) & 127)]) + ((0.040577500000000002 * fVec30[((IOTA - 14) & 127)]) + ((0.0703236 * fVec30[((IOTA - 13) & 127)]) + ((0.086424600000000004 * fVec30[((IOTA - 12) & 127)]) + ((0.00526349 * fVec30[((IOTA - 11) & 127)]) + ((0.0021171000000000002 * fVec30[((IOTA - 9) & 127)]) + ((0.00027211800000000001 * fVec30[((IOTA - 7) & 127)]) + ((6.8184199999999995e-06 * fVec31[((IOTA - 124) & 127)]) + ((9.6015999999999997e-06 * fVec31[((IOTA - 123) & 127)]) + ((2.6161300000000003e-05 * fVec31[((IOTA - 122) & 127)]) + ((7.66841e-06 * fVec31[((IOTA - 120) & 127)]) + ((9.9956200000000017e-05 * fVec31[((IOTA - 119) & 127)]) + ((9.8288800000000007e-05 * fVec31[((IOTA - 118) & 127)]) + ((0.00016569499999999999 * fVec31[((IOTA - 115) & 127)]) + ((0.000131304 * fVec31[((IOTA - 114) & 127)]) + ((7.4421400000000012e-05 * fVec31[((IOTA - 113) & 127)]) + ((9.0750500000000005e-05 * fVec31[((IOTA - 109) & 127)]) + ((0.00081881900000000014 * fVec31[((IOTA - 96) & 127)]) + ((0.0015964400000000002 * fVec31[((IOTA - 95) & 127)]) + ((3.5872199999999999e-05 * fVec31[((IOTA - 92) & 127)]) + ((0.0020068299999999998 * fVec31[((IOTA - 91) & 127)]) + ((0.00050415000000000008 * fVec31[((IOTA - 90) & 127)]) + ((0.00041316100000000005 * fVec31[((IOTA - 89) & 127)]) + ((0.0011488700000000002 * fVec31[((IOTA - 88) & 127)]) + ((0.0011271300000000001 * fVec31[((IOTA - 87) & 127)]) + ((0.0028610799999999998 * fVec31[((IOTA - 84) & 127)]) + ((0.00119961 * fVec31[((IOTA - 83) & 127)]) + ((0.0011123800000000001 * fVec31[((IOTA - 82) & 127)]) + ((0.0018691199999999999 * fVec31[((IOTA - 81) & 127)]) + ((0.0023870700000000003 * fVec31[((IOTA - 80) & 127)]) + ((0.0014690600000000001 * fVec31[((IOTA - 79) & 127)]) + ((0.00020293100000000003 * fVec31[((IOTA - 75) & 127)]) + ((0.00042256999999999999 * fVec31[((IOTA - 74) & 127)]) + ((4.8196899999999999e-05 * fVec31[((IOTA - 73) & 127)]) + ((0.00081876599999999996 * fVec31[((IOTA - 69) & 127)]) + ((0.00116132 * fVec31[((IOTA - 65) & 127)]) + ((0.0012919000000000001 * fVec31[((IOTA - 60) & 127)]) + ((0.0018522 * fVec31[((IOTA - 53) & 127)]) + ((0.0040265300000000004 * fVec31[((IOTA - 52) & 127)]) + ((0.00164123 * fVec31[((IOTA - 49) & 127)]) + ((0.0035543000000000003 * fVec31[((IOTA - 48) & 127)]) + ((0.0019447000000000002 * fVec31[((IOTA - 47) & 127)]) + ((0.0045421799999999998 * fVec31[((IOTA - 46) & 127)]) + ((0.0032057800000000001 * fVec31[((IOTA - 45) & 127)]) + ((0.0098560599999999998 * fVec31[((IOTA - 43) & 127)]) + ((0.00252045 * fVec31[((IOTA - 13) & 127)]) + ((0.00052853700000000004 * fVec31[((IOTA - 8) & 127)]) + ((0.00017706000000000002 * fVec31[((IOTA - 5) & 127)]) + ((0.00017067000000000002 * fVec31[((IOTA - 4) & 127)]) + ((2.8269799999999997e-06 * fVec31[((IOTA - 1) & 127)]) + ((0.00574575 * fVec31[((IOTA - 22) & 127)]) + ((0.0048227900000000004 * fVec31[((IOTA - 21) & 127)]) + ((0.0053663600000000006 * fVec31[((IOTA - 20) & 127)]) + ((0.0110708 * fVec31[((IOTA - 17) & 127)]) + ((0.0055212400000000002 * fVec31[((IOTA - 42) & 127)]) + ((0.0039102499999999997 * fVec31[((IOTA - 40) & 127)]) + ((0.0014029000000000001 * fVec31[((IOTA - 39) & 127)]) + ((0.00081971100000000009 * fVec31[((IOTA - 37) & 127)]) + ((0.015326500000000002 * fVec31[((IOTA - 34) & 127)]) + ((0.0039000900000000002 * fVec31[((IOTA - 33) & 127)]) + ((0.0107983 * fVec31[((IOTA - 30) & 127)]) + ((0.0016720200000000002 * fVec31[((IOTA - 28) & 127)]) + ((0.0115642 * fVec31[((IOTA - 27) & 127)]) + ((0.0083424600000000012 * fVec31[((IOTA - 24) & 127)]) + ((0.0016058699999999999 * fVec31[((IOTA - 23) & 127)]) + ((3.5305499999999996e-06 * fVec4[((IOTA - 125) & 127)]) + ((4.1155299999999994e-06 * fVec4[((IOTA - 124) & 127)]) + ((0.0074311999999999998 * fVec31[((IOTA - 16) & 127)]) + ((8.4151000000000001e-06 * fVec4[((IOTA - 123) & 127)]) + ((2.8368800000000002e-05 * fVec4[((IOTA - 122) & 127)]) + ((6.1171800000000003e-05 * fVec4[((IOTA - 121) & 127)]) + ((4.5063100000000006e-05 * fVec4[((IOTA - 120) & 127)]) + ((0.00013187999999999999 * fVec4[((IOTA - 117) & 127)]) + ((9.0214000000000001e-05 * fVec4[((IOTA - 116) & 127)]) + ((4.5684500000000006e-05 * fVec4[((IOTA - 115) & 127)]) + ((0.00037238400000000002 * fVec31[((IOTA - 14) & 127)]) + ((0.00010922300000000001 * fVec4[((IOTA - 114) & 127)]) + ((0.00012787900000000001 * fVec4[((IOTA - 113) & 127)]) + ((0.00010810400000000001 * fVec4[((IOTA - 112) & 127)]) + ((8.4602100000000008e-05 * fVec4[((IOTA - 111) & 127)]) + ((0.00014129499999999999 * fVec4[((IOTA - 103) & 127)]) + ((0.0011713800000000001 * fVec4[((IOTA - 96) & 127)]) + ((0.00048376700000000002 * fVec4[((IOTA - 95) & 127)]) + ((0.00040982500000000005 * fVec4[((IOTA - 89) & 127)]) + ((0.00192194 * fVec4[((IOTA - 86) & 127)]) + ((0.00102436 * fVec4[((IOTA - 85) & 127)]) + ((0.00100778 * fVec4[((IOTA - 81) & 127)]) + ((0.00035581800000000004 * fVec4[((IOTA - 80) & 127)]) + ((0.00108387 * fVec4[((IOTA - 78) & 127)]) + ((0.0044921400000000004 * fVec4[((IOTA - 73) & 127)]) + ((0.00086068200000000009 * fVec4[((IOTA - 69) & 127)]) + ((0.0026953699999999999 * fVec4[((IOTA - 68) & 127)]) + ((0.00069267700000000005 * fVec4[((IOTA - 67) & 127)]) + ((0.0014122200000000001 * fVec4[((IOTA - 62) & 127)]) + ((0.00059297400000000002 * fVec4[((IOTA - 61) & 127)]) + ((0.00053443700000000002 * fVec4[((IOTA - 59) & 127)]) + ((0.0013940900000000002 * fVec4[((IOTA - 58) & 127)]) + ((0.0012833600000000001 * fVec4[((IOTA - 57) & 127)]) + ((0.0031110899999999999 * fVec4[((IOTA - 56) & 127)]) + ((0.0050713199999999998 * fVec4[((IOTA - 55) & 127)]) + ((0.0050443700000000003 * fVec4[((IOTA - 54) & 127)]) + ((0.00419002 * fVec4[((IOTA - 53) & 127)]) + ((0.0032877399999999999 * fVec4[((IOTA - 51) & 127)]) + ((0.00909628 * fVec4[((IOTA - 50) & 127)]) + ((0.0036924600000000003 * fVec4[((IOTA - 49) & 127)]) + ((0.0046017100000000002 * fVec4[((IOTA - 48) & 127)]) + ((0.0073180300000000005 * fVec4[((IOTA - 47) & 127)]) + ((0.0070144200000000004 * fVec4[((IOTA - 46) & 127)]) + ((0.0020962000000000003 * fVec4[((IOTA - 45) & 127)]) + ((0.0052343400000000005 * fVec4[((IOTA - 44) & 127)]) + ((0.0071723899999999998 * fVec4[((IOTA - 43) & 127)]) + ((0.0036162899999999999 * fVec4[((IOTA - 42) & 127)]) + ((0.010498400000000001 * fVec4[((IOTA - 41) & 127)]) + ((0.0021260799999999998 * fVec4[((IOTA - 40) & 127)]) + ((0.0065524800000000003 * fVec4[((IOTA - 38) & 127)]) + ((0.011496599999999999 * fVec4[((IOTA - 35) & 127)]) + ((0.0010427100000000001 * fVec4[((IOTA - 34) & 127)]) + ((0.0092546800000000012 * fVec4[((IOTA - 31) & 127)]) + ((0.0026388100000000001 * fVec4[((IOTA - 27) & 127)]) + ((0.0128167 * fVec4[((IOTA - 23) & 127)]) + ((0.011590800000000002 * fVec4[((IOTA - 17) & 127)]) + ((0.0038800599999999998 * fVec4[((IOTA - 16) & 127)]) + ((0.022263399999999999 * fVec4[((IOTA - 15) & 127)]) + ((0.020153300000000002 * fVec4[((IOTA - 14) & 127)]) + ((0.042437800000000005 * fVec4[((IOTA - 13) & 127)]) + ((0.047133599999999998 * fVec4[((IOTA - 12) & 127)]) + ((0.00567696 * fVec4[((IOTA - 11) & 127)]) + ((0.00143681 * fVec4[((IOTA - 9) & 127)]) + ((0.00086101400000000001 * fVec4[((IOTA - 7) & 127)]) + ((0.00058492199999999998 * fVec4[((IOTA - 5) & 127)]) + ((6.7829099999999997e-06 * fVec4[((IOTA - 4) & 127)]) + ((0.00025529600000000002 * fVec4[((IOTA - 3) & 127)]) + ((2.9285600000000003e-05 * fVec4[((IOTA - 1) & 127)]) + ((3.8661599999999993e-06 * fTemp4) + ((0.00355741 * fVec4[((IOTA - 77) & 127)]) + ((0.00203951 * fVec4[((IOTA - 76) & 127)]) + ((1.70851e-05 * fVec0[((IOTA - 122) & 127)]) + ((3.0657300000000002e-05 * fVec0[((IOTA - 121) & 127)]) + ((0.00099792900000000005 * fVec4[((IOTA - 74) & 127)]) + ((5.3340699999999993e-07 * fVec0[((IOTA - 120) & 127)]) + ((1.03751e-05 * fVec0[((IOTA - 118) & 127)]) + ((8.3314900000000018e-05 * fVec0[((IOTA - 117) & 127)]) + ((9.1851000000000012e-05 * fVec0[((IOTA - 112) & 127)]) + ((2.7205700000000003e-05 * fVec0[((IOTA - 111) & 127)]) + ((0.00152143 * fVec0[((IOTA - 82) & 127)]) + ((0.0032921200000000004 * fVec0[((IOTA - 81) & 127)]) + ((0.00193753 * fVec0[((IOTA - 80) & 127)]) + ((0.00062551900000000005 * fVec0[((IOTA - 79) & 127)]) + ((0.00096127300000000012 * fVec0[((IOTA - 70) & 127)]) + ((0.0042903999999999998 * fVec0[((IOTA - 69) & 127)]) + ((0.0037726500000000002 * fVec0[((IOTA - 68) & 127)]) + ((0.00041918000000000001 * fVec0[((IOTA - 66) & 127)]) + ((0.00047510500000000003 * fVec0[((IOTA - 63) & 127)]) + ((0.0017495700000000002 * fVec0[((IOTA - 62) & 127)]) + ((0.0013881099999999999 * fVec0[((IOTA - 61) & 127)]) + ((0.00142376 * fVec0[((IOTA - 59) & 127)]) + ((0.0013234399999999999 * fVec0[((IOTA - 58) & 127)]) + ((0.0023363800000000003 * fVec0[((IOTA - 57) & 127)]) + ((0.0047624399999999997 * fVec0[((IOTA - 56) & 127)]) + ((0.00035963800000000001 * fVec0[((IOTA - 55) & 127)]) + ((0.0014325799999999999 * fVec0[((IOTA - 53) & 127)]) + ((0.0035146700000000001 * fVec0[((IOTA - 50) & 127)]) + ((0.00013482199999999999 * fVec0[((IOTA - 46) & 127)]) + ((0.0031359700000000001 * fVec0[((IOTA - 44) & 127)]) + ((0.0033774600000000001 * fVec0[((IOTA - 43) & 127)]) + ((0.00043131800000000003 * fVec0[((IOTA - 41) & 127)]) + ((0.00581921 * fVec0[((IOTA - 27) & 127)]) + ((0.00064315100000000001 * fVec0[((IOTA - 26) & 127)]) + ((0.016502200000000002 * fVec0[((IOTA - 25) & 127)]) + ((0.026153100000000002 * fVec0[((IOTA - 19) & 127)]) + ((0.015518799999999999 * fVec0[((IOTA - 18) & 127)]) + ((0.011748099999999999 * fVec0[((IOTA - 16) & 127)]) + ((0.024044800000000002 * fVec0[((IOTA - 15) & 127)]) + ((0.011073200000000002 * fVec0[((IOTA - 12) & 127)]) + ((0.00016208700000000002 * fVec0[((IOTA - 11) & 127)]) + ((0.00023927800000000002 * fVec0[((IOTA - 9) & 127)]) + ((0.00099840900000000002 * fVec0[((IOTA - 7) & 127)]) + ((0.00026075800000000004 * fVec0[((IOTA - 3) & 127)]) + ((0.0095376600000000016 * fVec0[((IOTA - 34) & 127)]) + ((0.00354222 * fVec0[((IOTA - 31) & 127)]) + ((9.0296599999999999e-06 * fVec32[((IOTA - 122) & 127)]) + ((1.9893500000000002e-05 * fVec32[((IOTA - 118) & 127)]) + ((3.7877500000000005e-05 * fVec32[((IOTA - 115) & 127)]) + ((0.00027007400000000003 * fVec32[((IOTA - 103) & 127)]) + ((0.00044415800000000005 * fVec32[((IOTA - 102) & 127)]) + ((0.00031515600000000003 * fVec32[((IOTA - 100) & 127)]) + ((0.00068420899999999997 * fVec32[((IOTA - 99) & 127)]) + ((0.00049268100000000002 * fVec32[((IOTA - 96) & 127)]) + ((0.0099954400000000013 * fVec0[((IOTA - 30) & 127)]) + ((0.0015305800000000001 * fVec32[((IOTA - 91) & 127)]) + ((0.0017284399999999999 * fVec32[((IOTA - 90) & 127)]) + ((0.00127253 * fVec32[((IOTA - 89) & 127)]) + ((0.00166752 * fVec32[((IOTA - 88) & 127)]) + ((0.00033490500000000003 * fVec32[((IOTA - 85) & 127)]) + ((0.0011273899999999998 * fVec32[((IOTA - 84) & 127)]) + ((6.2119200000000007e-05 * fVec32[((IOTA - 82) & 127)]) + ((0.0017261400000000001 * fVec32[((IOTA - 81) & 127)]) + ((0.00048162000000000004 * fVec32[((IOTA - 80) & 127)]) + ((0.00071563500000000006 * fVec32[((IOTA - 79) & 127)]) + ((1.14088e-05 * fVec32[((IOTA - 77) & 127)]) + ((0.0014551499999999999 * fVec32[((IOTA - 76) & 127)]) + ((0.00078290800000000002 * fVec32[((IOTA - 73) & 127)]) + ((0.0013603899999999999 * fVec32[((IOTA - 72) & 127)]) + ((0.00076972400000000006 * fVec32[((IOTA - 71) & 127)]) + ((0.0011577500000000001 * fVec32[((IOTA - 70) & 127)]) + ((0.0027559100000000003 * fVec32[((IOTA - 69) & 127)]) + ((0.0011045300000000001 * fVec32[((IOTA - 65) & 127)]) + ((0.0019003900000000001 * fVec32[((IOTA - 64) & 127)]) + ((5.8659000000000002e-05 * fVec32[((IOTA - 63) & 127)]) + ((0.00034302399999999999 * fVec32[((IOTA - 60) & 127)]) + ((0.0015042599999999999 * fVec32[((IOTA - 55) & 127)]) + ((0.0038506399999999998 * fVec32[((IOTA - 54) & 127)]) + ((0.00280679 * fVec32[((IOTA - 53) & 127)]) + ((0.00191281 * fVec32[((IOTA - 51) & 127)]) + ((0.0030454200000000001 * fVec32[((IOTA - 47) & 127)]) + ((0.0010344 * fVec32[((IOTA - 46) & 127)]) + ((0.0021753000000000002 * fVec32[((IOTA - 43) & 127)]) + ((0.00241033 * fVec32[((IOTA - 41) & 127)]) + ((0.0054447699999999998 * fVec32[((IOTA - 34) & 127)]) + ((0.0027451799999999998 * fVec32[((IOTA - 33) & 127)]) + ((0.00192986 * fVec32[((IOTA - 32) & 127)]) + ((0.0050891900000000004 * fVec32[((IOTA - 29) & 127)]) + ((0.010143899999999999 * fVec32[((IOTA - 28) & 127)]) + ((0.0039649200000000002 * fVec32[((IOTA - 27) & 127)]) + ((0.014927200000000002 * fVec32[((IOTA - 24) & 127)]) + ((0.010792999999999999 * fVec32[((IOTA - 23) & 127)]) + ((0.008510160000000001 * fVec32[((IOTA - 22) & 127)]) + ((0.0223719 * fVec32[((IOTA - 21) & 127)]) + ((0.0123166 * fVec32[((IOTA - 20) & 127)]) + ((0.017947399999999999 * fVec32[((IOTA - 19) & 127)]) + ((0.0073694100000000007 * fVec32[((IOTA - 14) & 127)]) + ((0.0142655 * fVec32[((IOTA - 12) & 127)]) + ((0.0067548000000000009 * fVec32[((IOTA - 11) & 127)]) + ((0.0025108100000000005 * fVec32[((IOTA - 9) & 127)]) + ((0.00235191 * fVec32[((IOTA - 7) & 127)]) + ((0.00091979399999999993 * fVec32[((IOTA - 5) & 127)]) + (((6.9716599999999994e-06 * fVec33[((IOTA - 124) & 127)]) + ((9.8485200000000004e-06 * fVec33[((IOTA - 118) & 127)]) + ((0.00010357900000000001 * fVec33[((IOTA - 114) & 127)]) + ((0.00042897299999999997 * fVec33[((IOTA - 113) & 127)]) + ((0.00029024100000000006 * fVec33[((IOTA - 112) & 127)]) + ((9.8297200000000012e-05 * fVec33[((IOTA - 111) & 127)]) + ((0.00020804999999999999 * fVec33[((IOTA - 110) & 127)]) + ((0.00054109500000000001 * fVec33[((IOTA - 109) & 127)]) + ((0.00083962700000000002 * fVec33[((IOTA - 108) & 127)]) + ((0.00056389100000000007 * fVec33[((IOTA - 107) & 127)]) + ((0.00051816800000000006 * fVec33[((IOTA - 106) & 127)]) + ((0.00065456900000000003 * fVec33[((IOTA - 105) & 127)]) + ((0.00088825400000000011 * fVec33[((IOTA - 104) & 127)]) + ((0.000446193 * fVec33[((IOTA - 103) & 127)]) + ((0.00071199100000000003 * fVec33[((IOTA - 102) & 127)]) + ((0.0012468500000000001 * fVec33[((IOTA - 101) & 127)]) + ((0.0012435300000000001 * fVec33[((IOTA - 100) & 127)]) + ((0.0010388900000000002 * fVec33[((IOTA - 99) & 127)]) + ((0.00170268 * fVec33[((IOTA - 98) & 127)]) + ((0.00126004 * fVec33[((IOTA - 97) & 127)]) + ((0.0013548899999999999 * fVec33[((IOTA - 93) & 127)]) + ((0.0020163799999999999 * fVec33[((IOTA - 92) & 127)]) + ((0.0010302600000000001 * fVec33[((IOTA - 89) & 127)]) + ((0.00142103 * fVec33[((IOTA - 88) & 127)]) + ((0.0020040399999999999 * fVec33[((IOTA - 82) & 127)]) + ((0.0030592000000000002 * fVec33[((IOTA - 81) & 127)]) + ((0.00082976100000000015 * fVec33[((IOTA - 80) & 127)]) + ((0.00083032800000000008 * fVec33[((IOTA - 79) & 127)]) + ((0.00146794 * fVec33[((IOTA - 78) & 127)]) + ((0.0029912300000000001 * fVec33[((IOTA - 77) & 127)]) + ((0.0019008400000000002 * fVec33[((IOTA - 76) & 127)]) + ((0.00032308700000000001 * fVec33[((IOTA - 75) & 127)]) + ((0.00121188 * fVec33[((IOTA - 74) & 127)]) + ((0.0015286800000000001 * fVec33[((IOTA - 73) & 127)]) + ((0.0016313200000000001 * fVec33[((IOTA - 72) & 127)]) + ((0.0019843199999999999 * fVec33[((IOTA - 71) & 127)]) + ((0.0031219500000000001 * fVec33[((IOTA - 70) & 127)]) + ((0.0017147500000000001 * fVec33[((IOTA - 69) & 127)]) + ((4.5241600000000004e-05 * fVec33[((IOTA - 68) & 127)]) + ((0.00193403 * fVec33[((IOTA - 67) & 127)]) + ((0.00103439 * fVec33[((IOTA - 66) & 127)]) + ((0.00025587599999999999 * fVec33[((IOTA - 61) & 127)]) + ((0.0014905299999999999 * fVec33[((IOTA - 60) & 127)]) + ((0.000502175 * fVec33[((IOTA - 59) & 127)]) + ((0.00055048599999999999 * fVec33[((IOTA - 58) & 127)]) + ((0.00049892100000000004 * fVec33[((IOTA - 50) & 127)]) + ((0.0029968600000000001 * fVec33[((IOTA - 47) & 127)]) + ((0.0024887899999999998 * fVec33[((IOTA - 46) & 127)]) + ((0.0030320900000000003 * fVec33[((IOTA - 41) & 127)]) + ((0.0076587399999999998 * fVec33[((IOTA - 40) & 127)]) + ((0.010064699999999999 * fVec33[((IOTA - 35) & 127)]) + ((0.030136699999999999 * fVec33[((IOTA - 32) & 127)]) + ((0.017341200000000001 * fVec33[((IOTA - 31) & 127)]) + ((0.0053095800000000004 * fVec33[((IOTA - 14) & 127)]) + ((0.0072171800000000001 * fVec33[((IOTA - 12) & 127)]) + ((0.0030320200000000003 * fVec33[((IOTA - 11) & 127)]) + ((0.00131485 * fVec33[((IOTA - 9) & 127)]) + ((0.0011081700000000001 * fVec33[((IOTA - 7) & 127)]) + ((0.00036208399999999998 * fVec33[((IOTA - 5) & 127)]) + ((0.00017773600000000001 * fVec33[((IOTA - 3) & 127)]) + ((0.039170099999999999 * fVec33[((IOTA - 28) & 127)]) + ((0.00031563800000000003 * fVec33[((IOTA - 27) & 127)]) + ((0.00069887100000000011 * fVec33[((IOTA - 25) & 127)]) + ((0.025458500000000002 * fVec33[((IOTA - 24) & 127)]) + ((0.0120184 * fVec33[((IOTA - 21) & 127)]) + ((6.574880000000001e-05 * fVec34[((IOTA - 115) & 127)]) + ((0.011691100000000001 * fVec33[((IOTA - 19) & 127)]) + ((7.5893800000000015e-05 * fVec34[((IOTA - 114) & 127)]) + ((0.00055035400000000008 * fVec34[((IOTA - 113) & 127)]) + ((0.00054230400000000007 * fVec34[((IOTA - 112) & 127)]) + ((0.00038862600000000004 * fVec34[((IOTA - 111) & 127)]) + ((0.00038355300000000002 * fVec34[((IOTA - 110) & 127)]) + ((0.0010789999999999999 * fVec34[((IOTA - 109) & 127)]) + ((0.00127535 * fVec34[((IOTA - 108) & 127)]) + ((0.00026040700000000004 * fVec34[((IOTA - 107) & 127)]) + ((0.00064190699999999994 * fVec34[((IOTA - 106) & 127)]) + ((0.0012643700000000001 * fVec34[((IOTA - 105) & 127)]) + ((0.0014951399999999998 * fVec34[((IOTA - 104) & 127)]) + ((0.00096466700000000011 * fVec34[((IOTA - 103) & 127)]) + ((0.00062200899999999997 * fVec34[((IOTA - 102) & 127)]) + ((0.0013151 * fVec34[((IOTA - 101) & 127)]) + ((0.00155276 * fVec34[((IOTA - 100) & 127)]) + ((0.00147963 * fVec34[((IOTA - 99) & 127)]) + ((0.0012132899999999999 * fVec34[((IOTA - 96) & 127)]) + ((0.0010497099999999999 * fVec34[((IOTA - 95) & 127)]) + ((5.4447799999999994e-06 * fVec34[((IOTA - 91) & 127)]) + ((0.00060830200000000002 * fVec34[((IOTA - 82) & 127)]) + ((0.00073753600000000001 * fVec34[((IOTA - 81) & 127)]) + ((4.1098800000000007e-05 * fVec34[((IOTA - 76) & 127)]) + ((0.00031511100000000003 * fVec34[((IOTA - 74) & 127)]) + ((0.0011385200000000001 * fVec34[((IOTA - 73) & 127)]) + ((0.0023925600000000002 * fVec34[((IOTA - 72) & 127)]) + ((0.00191902 * fVec34[((IOTA - 71) & 127)]) + ((0.00073584900000000001 * fVec34[((IOTA - 70) & 127)]) + ((0.0033698500000000002 * fVec34[((IOTA - 69) & 127)]) + ((0.0046562499999999998 * fVec34[((IOTA - 68) & 127)]) + ((0.0026088700000000001 * fVec34[((IOTA - 67) & 127)]) + ((0.0015381499999999998 * fVec34[((IOTA - 66) & 127)]) + ((0.00177024 * fVec34[((IOTA - 65) & 127)]) + ((0.0027169400000000002 * fVec34[((IOTA - 64) & 127)]) + ((0.0011334100000000001 * fVec34[((IOTA - 61) & 127)]) + ((0.0012374899999999999 * fVec34[((IOTA - 57) & 127)]) + ((0.00350462 * fVec34[((IOTA - 56) & 127)]) + ((0.00029472900000000003 * fVec34[((IOTA - 55) & 127)]) + ((0.00161133 * fVec34[((IOTA - 49) & 127)]) + ((0.0043256300000000004 * fVec34[((IOTA - 43) & 127)]) + ((0.0039263700000000002 * fVec34[((IOTA - 38) & 127)]) + ((0.0193136 * fVec34[((IOTA - 37) & 127)]) + ((0.0137585 * fVec34[((IOTA - 34) & 127)]) + ((0.016165499999999999 * fVec34[((IOTA - 31) & 127)]) + ((0.0200181 * fVec34[((IOTA - 30) & 127)]) + ((0.00436148 * fVec34[((IOTA - 27) & 127)]) + ((0.0115485 * fVec34[((IOTA - 25) & 127)]) + ((0.0032127699999999998 * fVec34[((IOTA - 23) & 127)]) + ((0.0057804000000000006 * fVec34[((IOTA - 22) & 127)]) + ((0.037111700000000004 * fVec34[((IOTA - 19) & 127)]) + ((0.014907300000000002 * fVec34[((IOTA - 18) & 127)]) + ((0.0092683000000000001 * fVec34[((IOTA - 16) & 127)]) + ((0.0158698 * fVec34[((IOTA - 15) & 127)]) + ((0.00489909 * fVec34[((IOTA - 12) & 127)]) + ((0.00036272099999999999 * fVec34[((IOTA - 11) & 127)]) + ((0.00043871700000000003 * fVec34[((IOTA - 10) & 127)]) + ((0.00018132700000000001 * fVec34[((IOTA - 9) & 127)]) + ((0.00097058900000000011 * fVec34[((IOTA - 7) & 127)]) + ((0.00016036100000000001 * fVec34[((IOTA - 6) & 127)]) + (((1.8656099999999998e-06 * fVec23[((IOTA - 126) & 127)]) + ((2.5639300000000001e-06 * fVec23[((IOTA - 125) & 127)]) + ((8.3185099999999991e-06 * fVec23[((IOTA - 124) & 127)]) + ((3.8801999999999999e-05 * fVec23[((IOTA - 123) & 127)]) + ((6.5230500000000005e-05 * fVec23[((IOTA - 122) & 127)]) + ((4.81323e-05 * fVec23[((IOTA - 121) & 127)]) + ((3.1175000000000006e-05 * fVec23[((IOTA - 120) & 127)]) + ((1.1129000000000001e-05 * fVec23[((IOTA - 119) & 127)]) + ((0.00016385400000000001 * fVec23[((IOTA - 118) & 127)]) + ((0.000137362 * fVec23[((IOTA - 117) & 127)]) + ((9.139900000000001e-05 * fVec23[((IOTA - 116) & 127)]) + ((0.00012562199999999998 * fVec23[((IOTA - 115) & 127)]) + ((0.00025063300000000005 * fVec23[((IOTA - 113) & 127)]) + ((0.000272806 * fVec23[((IOTA - 112) & 127)]) + ((0.000314307 * fVec23[((IOTA - 111) & 127)]) + ((0.00026935700000000002 * fVec23[((IOTA - 110) & 127)]) + ((0.00027303400000000002 * fVec23[((IOTA - 109) & 127)]) + ((8.74662e-06 * fVec23[((IOTA - 108) & 127)]) + ((0.00035653000000000003 * fVec23[((IOTA - 106) & 127)]) + ((0.000138672 * fVec23[((IOTA - 91) & 127)]) + ((0.0011749499999999999 * fVec23[((IOTA - 81) & 127)]) + ((0.00092974400000000003 * fVec23[((IOTA - 76) & 127)]) + ((0.00189912 * fVec23[((IOTA - 75) & 127)]) + ((0.0018498099999999999 * fVec23[((IOTA - 74) & 127)]) + ((0.00102903 * fVec23[((IOTA - 70) & 127)]) + ((0.0023879000000000001 * fVec23[((IOTA - 69) & 127)]) + ((0.0030104600000000004 * fVec23[((IOTA - 68) & 127)]) + ((0.00157916 * fVec23[((IOTA - 67) & 127)]) + ((0.0021747000000000003 * fVec23[((IOTA - 66) & 127)]) + ((0.0024374800000000001 * fVec23[((IOTA - 65) & 127)]) + ((0.0017056100000000002 * fVec23[((IOTA - 64) & 127)]) + ((0.00246014 * fVec23[((IOTA - 63) & 127)]) + ((0.0044470300000000003 * fVec23[((IOTA - 62) & 127)]) + ((0.0047484400000000005 * fVec23[((IOTA - 61) & 127)]) + ((0.0027951100000000004 * fVec23[((IOTA - 60) & 127)]) + ((0.0047547600000000002 * fVec23[((IOTA - 59) & 127)]) + ((0.0037710400000000002 * fVec23[((IOTA - 58) & 127)]) + ((0.0045419900000000001 * fVec23[((IOTA - 57) & 127)]) + ((0.010441600000000001 * fVec23[((IOTA - 56) & 127)]) + ((0.0100582 * fVec23[((IOTA - 55) & 127)]) + ((0.0076609499999999997 * fVec23[((IOTA - 54) & 127)]) + ((0.0068764300000000002 * fVec23[((IOTA - 53) & 127)]) + ((0.0095819500000000005 * fVec23[((IOTA - 52) & 127)]) + ((0.015913200000000002 * fVec23[((IOTA - 51) & 127)]) + ((0.015119400000000002 * fVec23[((IOTA - 50) & 127)]) + ((0.0128559 * fVec23[((IOTA - 49) & 127)]) + ((0.016606200000000002 * fVec23[((IOTA - 48) & 127)]) + ((0.016194200000000002 * fVec23[((IOTA - 47) & 127)]) + ((0.0116756 * fVec23[((IOTA - 46) & 127)]) + ((0.008875280000000001 * fVec23[((IOTA - 45) & 127)]) + ((0.016079200000000002 * fVec23[((IOTA - 44) & 127)]) + ((0.0188738 * fVec23[((IOTA - 43) & 127)]) + ((0.022184499999999999 * fVec23[((IOTA - 42) & 127)]) + ((0.020373700000000002 * fVec23[((IOTA - 41) & 127)]) + ((0.0086227300000000003 * fVec23[((IOTA - 40) & 127)]) + ((0.015368999999999999 * fVec23[((IOTA - 39) & 127)]) + ((0.025263300000000002 * fVec23[((IOTA - 38) & 127)]) + ((0.026966700000000003 * fVec23[((IOTA - 37) & 127)]) + ((0.023967600000000002 * fVec23[((IOTA - 36) & 127)]) + ((0.0180915 * fVec23[((IOTA - 35) & 127)]) + ((0.026436999999999999 * fVec23[((IOTA - 34) & 127)]) + ((0.035762599999999999 * fVec23[((IOTA - 33) & 127)]) + ((0.019380700000000001 * fVec23[((IOTA - 32) & 127)]) + ((0.0052166499999999998 * fVec23[((IOTA - 31) & 127)]) + ((0.012525700000000001 * fVec23[((IOTA - 30) & 127)]) + ((0.039007399999999998 * fVec23[((IOTA - 29) & 127)]) + ((0.039406500000000004 * fVec23[((IOTA - 28) & 127)]) + ((0.0160175 * fVec23[((IOTA - 27) & 127)]) + ((0.0095142000000000004 * fVec23[((IOTA - 26) & 127)]) + ((0.00060328500000000006 * fVec23[((IOTA - 25) & 127)]) + ((0.042794800000000008 * fVec23[((IOTA - 24) & 127)]) + ((0.034687500000000003 * fVec23[((IOTA - 23) & 127)]) + ((0.0011779100000000001 * fVec23[((IOTA - 10) & 127)]) + ((0.00041459900000000003 * fVec23[((IOTA - 6) & 127)]) + ((0.00031506200000000001 * fVec23[((IOTA - 2) & 127)]) + ((((((((((((0.00017378000000000001 * fVec35[((IOTA - 2) & 127)]) + (0.015415000000000002 * fVec35[((IOTA - 24) & 127)])) + (0.0114164 * fVec35[((IOTA - 28) & 127)])) + (0.0029673899999999999 * fVec35[((IOTA - 47) & 127)])) + (0.0010694400000000001 * fVec35[((IOTA - 81) & 127)])) + (0.000311911 * fVec35[((IOTA - 84) & 127)])) + (0.00141242 * fVec35[((IOTA - 88) & 127)])) + (0.00134669 * fVec35[((IOTA - 89) & 127)])) + (0.0014838199999999998 * fVec35[((IOTA - 91) & 127)])) + (0.0024969700000000003 * fVec35[((IOTA - 92) & 127)])) + (0.00054486499999999995 * fVec35[((IOTA - 97) & 127)])) + (0.000167329 * fVec23[((IOTA - 8) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00019245000000000002 * fVec34[((IOTA - 3) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00050699800000000004 * fVec32[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (2.3397700000000005e-05 * fVec2[((IOTA - 121) & 127)]))) + (0.00093209300000000016 * fVec3[((IOTA - 3) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fHbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (fRec1[0] * (((0.0012133199999999999 * (fVec14[((IOTA - 71) & 127)] + fVec1[((IOTA - 52) & 127)])) + ((0.00049059500000000003 * (fVec16[((IOTA - 81) & 127)] - fVec15[((IOTA - 75) & 127)])) + ((5.2298199999999994e-07 * fVec2[((IOTA - 125) & 127)]) + ((4.9010699999999996e-07 * fVec3[((IOTA - 126) & 127)]) + ((5.3679899999999996e-07 * fVec3[((IOTA - 125) & 127)]) + ((0.00016007900000000001 * fVec3[((IOTA - 113) & 127)]) + ((0.00010256700000000001 * fVec3[((IOTA - 112) & 127)]) + ((0.00012329500000000002 * fVec3[((IOTA - 109) & 127)]) + ((0.00024529 * fVec3[((IOTA - 108) & 127)]) + ((0.000116481 * fVec3[((IOTA - 107) & 127)]) + ((0.00031804700000000001 * fVec3[((IOTA - 104) & 127)]) + ((0.00031549700000000003 * fVec3[((IOTA - 103) & 127)]) + ((7.5432800000000007e-05 * fVec3[((IOTA - 102) & 127)]) + ((0.00045955200000000001 * fVec3[((IOTA - 101) & 127)]) + ((0.00062797000000000005 * fVec3[((IOTA - 100) & 127)]) + ((0.00034837500000000005 * fVec3[((IOTA - 99) & 127)]) + ((0.00034092200000000001 * fVec3[((IOTA - 98) & 127)]) + ((0.00028357800000000004 * fVec3[((IOTA - 97) & 127)]) + ((0.00064725700000000004 * fVec3[((IOTA - 96) & 127)]) + ((0.00045720700000000006 * fVec3[((IOTA - 95) & 127)]) + ((0.00045935800000000004 * fVec3[((IOTA - 93) & 127)]) + ((0.00079472899999999999 * fVec3[((IOTA - 89) & 127)]) + ((0.00048970299999999997 * fVec3[((IOTA - 88) & 127)]) + ((0.00139777 * fVec3[((IOTA - 85) & 127)]) + ((0.00060715599999999997 * fVec3[((IOTA - 84) & 127)]) + ((0.00029701599999999999 * fVec3[((IOTA - 81) & 127)]) + ((0.00034235100000000002 * fVec3[((IOTA - 80) & 127)]) + ((0.00028653700000000001 * fVec3[((IOTA - 77) & 127)]) + ((0.0014116000000000001 * fVec3[((IOTA - 76) & 127)]) + ((0.00137812 * fVec3[((IOTA - 75) & 127)]) + ((0.0012998700000000001 * fVec3[((IOTA - 72) & 127)]) + ((0.00042063000000000002 * fVec3[((IOTA - 70) & 127)]) + ((0.00079169700000000006 * fVec3[((IOTA - 69) & 127)]) + ((0.0012782400000000001 * fVec3[((IOTA - 61) & 127)]) + ((0.0018483200000000001 * fVec3[((IOTA - 60) & 127)]) + ((0.0022960400000000001 * fVec3[((IOTA - 57) & 127)]) + ((0.0058707500000000001 * fVec3[((IOTA - 56) & 127)]) + ((0.0018583900000000001 * fVec3[((IOTA - 55) & 127)]) + ((0.0022279499999999998 * fVec3[((IOTA - 51) & 127)]) + ((0.00329707 * fVec3[((IOTA - 47) & 127)]) + ((0.00064256900000000006 * fVec3[((IOTA - 46) & 127)]) + ((0.00077027599999999997 * fVec3[((IOTA - 44) & 127)]) + ((0.0069703400000000002 * fVec3[((IOTA - 43) & 127)]) + ((0.0029865499999999997 * fVec3[((IOTA - 42) & 127)]) + ((0.00066859100000000006 * fVec3[((IOTA - 40) & 127)]) + ((0.0054219300000000002 * fVec3[((IOTA - 39) & 127)]) + ((0.0032567799999999999 * fVec3[((IOTA - 36) & 127)]) + ((0.0090969899999999992 * fVec3[((IOTA - 35) & 127)]) + ((0.0028999400000000002 * fVec3[((IOTA - 34) & 127)]) + ((0.0041598900000000003 * fVec3[((IOTA - 30) & 127)]) + ((0.00281423 * fVec3[((IOTA - 26) & 127)]) + ((0.0114492 * fVec3[((IOTA - 24) & 127)]) + ((0.062921400000000002 * fVec3[((IOTA - 23) & 127)]) + ((0.009939410000000001 * fVec3[((IOTA - 22) & 127)]) + ((0.0082256800000000008 * fVec3[((IOTA - 19) & 127)]) + ((0.0072763699999999999 * fVec3[((IOTA - 18) & 127)]) + ((0.029352299999999998 * fVec3[((IOTA - 15) & 127)]) + ((0.0164873 * fVec3[((IOTA - 14) & 127)]) + ((0.00271609 * fVec3[((IOTA - 13) & 127)]) + ((0.0020980300000000003 * fVec3[((IOTA - 10) & 127)]) + ((0.00161338 * fVec3[((IOTA - 6) & 127)]) + ((0.00010617300000000001 * fVec3[((IOTA - 2) & 127)]) + (((2.4710700000000004e-05 * fVec2[((IOTA - 118) & 127)]) + ((9.6095799999999989e-06 * fVec2[((IOTA - 116) & 127)]) + ((1.5763499999999999e-05 * fVec2[((IOTA - 115) & 127)]) + ((3.0402900000000003e-05 * fVec2[((IOTA - 117) & 127)]) + ((0.00018143200000000001 * fVec2[((IOTA - 113) & 127)]) + ((0.00020251500000000001 * fVec2[((IOTA - 112) & 127)]) + ((0.00047742500000000007 * fVec2[((IOTA - 109) & 127)]) + ((6.9920100000000002e-05 * fVec2[((IOTA - 108) & 127)]) + ((0.00010837000000000002 * fVec2[((IOTA - 106) & 127)]) + ((0.00021159599999999998 * fVec2[((IOTA - 105) & 127)]) + ((0.00044150600000000004 * fVec2[((IOTA - 104) & 127)]) + ((0.00030981600000000003 * fVec2[((IOTA - 103) & 127)]) + ((0.00021886600000000001 * fVec2[((IOTA - 102) & 127)]) + ((7.3603400000000008e-05 * fVec2[((IOTA - 100) & 127)]) + ((0.00027642300000000003 * fVec2[((IOTA - 99) & 127)]) + ((0.00028442500000000004 * fVec2[((IOTA - 96) & 127)]) + ((0.00026061299999999998 * fVec2[((IOTA - 90) & 127)]) + ((0.0012727999999999999 * fVec2[((IOTA - 89) & 127)]) + ((0.0015695100000000001 * fVec2[((IOTA - 82) & 127)]) + ((0.000297595 * fVec2[((IOTA - 80) & 127)]) + ((0.0015193100000000001 * fVec2[((IOTA - 79) & 127)]) + ((8.17245e-06 * fVec2[((IOTA - 78) & 127)]) + ((5.1462500000000001e-06 * fVec2[((IOTA - 76) & 127)]) + ((0.00020189900000000001 * fVec2[((IOTA - 74) & 127)]) + ((0.00123554 * fVec2[((IOTA - 70) & 127)]) + ((0.0038251800000000001 * fVec2[((IOTA - 69) & 127)]) + ((0.0011616500000000002 * fVec2[((IOTA - 68) & 127)]) + ((0.0021885900000000002 * fVec2[((IOTA - 63) & 127)]) + ((0.0026820200000000002 * fVec2[((IOTA - 62) & 127)]) + ((0.00016043700000000001 * fVec2[((IOTA - 60) & 127)]) + ((0.00080700599999999998 * fVec2[((IOTA - 59) & 127)]) + ((0.00208479 * fVec2[((IOTA - 56) & 127)]) + ((0.00079029400000000009 * fVec2[((IOTA - 55) & 127)]) + ((0.0018815500000000001 * fVec2[((IOTA - 50) & 127)]) + ((0.0039224999999999998 * fVec2[((IOTA - 49) & 127)]) + ((0.0023459100000000001 * fVec2[((IOTA - 48) & 127)]) + ((0.0058526400000000001 * fVec2[((IOTA - 43) & 127)]) + ((0.00758612 * fVec2[((IOTA - 42) & 127)]) + ((0.0059286199999999999 * fVec2[((IOTA - 37) & 127)]) + ((0.018901899999999999 * fVec2[((IOTA - 36) & 127)]) + ((0.0061276900000000007 * fVec2[((IOTA - 32) & 127)]) + ((0.0082786999999999999 * fVec2[((IOTA - 31) & 127)]) + ((0.0030943999999999998 * fVec2[((IOTA - 30) & 127)]) + ((0.0026460699999999999 * fVec2[((IOTA - 29) & 127)]) + ((0.013392500000000002 * fVec2[((IOTA - 26) & 127)]) + ((0.013666300000000001 * fVec2[((IOTA - 24) & 127)]) + ((0.013813599999999999 * fVec2[((IOTA - 23) & 127)]) + ((0.028074400000000003 * fVec2[((IOTA - 21) & 127)]) + ((0.021535099999999998 * fVec2[((IOTA - 20) & 127)]) + ((0.0026271699999999999 * fVec2[((IOTA - 17) & 127)]) + ((0.042756999999999996 * fVec2[((IOTA - 16) & 127)]) + ((0.0031149699999999999 * fVec2[((IOTA - 15) & 127)]) + ((0.00153082 * fVec2[((IOTA - 11) & 127)]) + ((0.00074648599999999998 * fVec2[((IOTA - 8) & 127)]) + ((0.00059798700000000002 * fVec2[((IOTA - 7) & 127)]) + (((((0.00050637700000000002 * fVec1[((IOTA - 95) & 127)]) + ((((((((((((((((((((((((((((((((((((((((((((((((((((4.7473200000000005e-05 * fVec1[((IOTA - 119) & 127)]) + ((8.2700800000000006e-05 * fVec1[((IOTA - 118) & 127)]) + (((((((((3.7857500000000001e-06 * fVec1[((IOTA - 124) & 127)]) + ((6.9760599999999997e-06 * fVec1[((IOTA - 123) & 127)]) + ((9.5422300000000003e-06 * fVec1[((IOTA - 122) & 127)]) + ((8.2385099999999998e-07 * fVec1[((IOTA - 121) & 127)]) + ((((((((((5.1372500000000003e-05 * fVec8[((IOTA - 114) & 127)]) + ((1.7389700000000001e-05 * fVec8[((IOTA - 112) & 127)]) + ((0.00029880500000000002 * fVec8[((IOTA - 109) & 127)]) + (((0.00022300300000000002 * fVec8[((IOTA - 105) & 127)]) + ((0.00055241200000000006 * fVec8[((IOTA - 104) & 127)]) + ((0.00033970199999999999 * fVec8[((IOTA - 103) & 127)]) + ((((0.00034907699999999999 * fVec8[((IOTA - 98) & 127)]) + ((((((((((((((((((((((((((((((((((((((((((((((((((((0.00010801200000000001 * fVec1[((IOTA - 103) & 127)]) + ((1.2372700000000001e-07 * fVec5[((IOTA - 126) & 127)]) + ((3.1280100000000006e-05 * fVec5[((IOTA - 123) & 127)]) + ((6.3623500000000005e-05 * fVec5[((IOTA - 122) & 127)]) + ((2.7187600000000004e-05 * fVec5[((IOTA - 121) & 127)]) + ((3.0087400000000003e-05 * fVec5[((IOTA - 118) & 127)]) + ((0.00039033699999999999 * fVec5[((IOTA - 101) & 127)]) + ((0.00072547200000000001 * fVec5[((IOTA - 100) & 127)]) + ((0.00061035800000000008 * fVec5[((IOTA - 99) & 127)]) + ((0.00059681000000000003 * fVec5[((IOTA - 98) & 127)]) + ((0.0013495600000000001 * fVec5[((IOTA - 97) & 127)]) + ((0.00072111400000000002 * fVec5[((IOTA - 96) & 127)]) + ((0.00033368300000000004 * fVec5[((IOTA - 94) & 127)]) + ((0.00074977799999999999 * fVec5[((IOTA - 93) & 127)]) + ((0.0019814300000000002 * fVec5[((IOTA - 92) & 127)]) + ((0.00220104 * fVec5[((IOTA - 91) & 127)]) + ((0.0010971900000000001 * fVec5[((IOTA - 90) & 127)]) + ((((((((((0.0015209100000000001 * fVec5[((IOTA - 70) & 127)]) + ((((((((((((((((((((((((((((((((((((1.8801499999999999e-06 * fVec7[((IOTA - 125) & 127)]) + ((2.86475e-06 * fVec7[((IOTA - 121) & 127)]) + ((4.5437300000000006e-05 * fVec7[((IOTA - 120) & 127)]) + ((3.7167200000000006e-05 * fVec7[((IOTA - 119) & 127)]) + ((0.0025962800000000003 * fVec7[((IOTA - 46) & 127)]) + ((0.00094216599999999992 * fVec7[((IOTA - 45) & 127)]) + ((0.00087447600000000001 * fVec7[((IOTA - 44) & 127)]) + ((0.00090515300000000001 * fVec7[((IOTA - 41) & 127)]) + ((0.00946257 * fVec7[((IOTA - 40) & 127)]) + ((0.0057508300000000002 * fVec7[((IOTA - 39) & 127)]) + ((0.00092223200000000004 * fVec7[((IOTA - 35) & 127)]) + ((0.013826099999999999 * fVec7[((IOTA - 34) & 127)]) + ((0.010905700000000001 * fVec7[((IOTA - 30) & 127)]) + ((0.0063115899999999997 * fVec7[((IOTA - 28) & 127)]) + ((0.000688129 * fVec7[((IOTA - 27) & 127)]) + ((0.0080507100000000009 * fVec7[((IOTA - 26) & 127)]) + ((0.011200099999999999 * fVec7[((IOTA - 25) & 127)]) + ((0.032943199999999999 * fVec7[((IOTA - 21) & 127)]) + ((0.0176399 * fVec7[((IOTA - 20) & 127)]) + ((0.0044134300000000003 * fVec7[((IOTA - 18) & 127)]) + ((0.013648499999999999 * fVec7[((IOTA - 15) & 127)]) + ((0.033771500000000003 * fVec7[((IOTA - 14) & 127)]) + ((0.00106518 * fVec7[((IOTA - 11) & 127)]) + ((0.00109752 * fVec7[((IOTA - 9) & 127)]) + ((0.00024148299999999999 * fVec7[((IOTA - 6) & 127)]) + ((0.00050002000000000011 * fVec7[((IOTA - 5) & 127)]) + ((0.000269518 * fVec7[((IOTA - 2) & 127)]) + ((7.6205500000000001e-05 * fVec7[((IOTA - 116) & 127)]) + ((0.00011034900000000001 * fVec7[((IOTA - 115) & 127)]) + ((1.0490900000000001e-05 * fVec7[((IOTA - 114) & 127)]) + ((0.00033708200000000005 * fVec7[((IOTA - 111) & 127)]) + ((0.00014544100000000001 * fVec7[((IOTA - 110) & 127)]) + ((9.5426400000000019e-05 * fVec7[((IOTA - 106) & 127)]) + ((1.21443e-05 * fVec7[((IOTA - 104) & 127)]) + ((0.00030771299999999999 * fVec7[((IOTA - 102) & 127)]) + ((0.000179626 * fVec7[((IOTA - 101) & 127)]) + ((0.0012725800000000002 * fVec7[((IOTA - 95) & 127)]) + ((0.00097590299999999997 * fVec7[((IOTA - 94) & 127)]) + ((0.00050777799999999996 * fVec7[((IOTA - 93) & 127)]) + ((0.00052255599999999998 * fVec7[((IOTA - 92) & 127)]) + ((0.000196801 * fVec7[((IOTA - 88) & 127)]) + ((0.00032958500000000002 * fVec7[((IOTA - 87) & 127)]) + ((0.00048037700000000004 * fVec7[((IOTA - 86) & 127)]) + ((0.0016631100000000002 * fVec7[((IOTA - 79) & 127)]) + ((0.0012850399999999999 * fVec7[((IOTA - 78) & 127)]) + ((0.00047741400000000001 * fVec7[((IOTA - 76) & 127)]) + ((0.00086772500000000007 * fVec7[((IOTA - 75) & 127)]) + ((0.00018961800000000001 * fVec7[((IOTA - 74) & 127)]) + ((0.00034060800000000006 * fVec7[((IOTA - 72) & 127)]) + ((0.0014475 * fVec7[((IOTA - 71) & 127)]) + ((0.0018212299999999999 * fVec7[((IOTA - 70) & 127)]) + ((0.0031428600000000004 * fVec7[((IOTA - 67) & 127)]) + ((0.0064321500000000002 * fVec7[((IOTA - 66) & 127)]) + ((0.0039660099999999998 * fVec7[((IOTA - 65) & 127)]) + ((0.0008650550000000001 * fVec7[((IOTA - 61) & 127)]) + ((0.0027378300000000001 * fVec7[((IOTA - 53) & 127)]) + ((0.0026139900000000001 * fVec7[((IOTA - 52) & 127)]) + ((0.00078646200000000003 * fVec7[((IOTA - 51) & 127)]) + ((6.2225900000000003e-05 * fVec9[((IOTA - 117) & 127)]) + ((6.4000199999999998e-05 * fVec9[((IOTA - 116) & 127)]) + ((1.55277e-05 * fVec9[((IOTA - 115) & 127)]) + ((0.00075748000000000005 * fVec9[((IOTA - 59) & 127)]) + ((0.00142515 * fVec9[((IOTA - 58) & 127)]) + ((0.00273609 * fVec9[((IOTA - 53) & 127)]) + ((0.0016491499999999998 * fVec9[((IOTA - 52) & 127)]) + ((0.00303536 * fVec9[((IOTA - 51) & 127)]) + ((0.0066745500000000004 * fVec9[((IOTA - 50) & 127)]) + ((0.0023904999999999998 * fVec9[((IOTA - 49) & 127)]) + ((0.00042790200000000002 * fVec9[((IOTA - 46) & 127)]) + ((0.0016112800000000001 * fVec9[((IOTA - 45) & 127)]) + ((0.0016677299999999999 * fVec9[((IOTA - 44) & 127)]) + ((0.0035765799999999998 * fVec9[((IOTA - 40) & 127)]) + ((0.00286477 * fVec9[((IOTA - 39) & 127)]) + ((0.00067609400000000002 * fVec9[((IOTA - 37) & 127)]) + ((0.0041627900000000004 * fVec9[((IOTA - 36) & 127)]) + ((0.017109099999999999 * fVec9[((IOTA - 29) & 127)]) + ((0.021511700000000002 * fVec9[((IOTA - 28) & 127)]) + ((0.030071000000000001 * fVec9[((IOTA - 27) & 127)]) + ((0.041622700000000006 * fVec9[((IOTA - 26) & 127)]) + ((0.0069335600000000001 * fVec9[((IOTA - 25) & 127)]) + ((0.0270782 * fVec9[((IOTA - 18) & 127)]) + ((0.039712700000000004 * fVec9[((IOTA - 17) & 127)]) + ((0.030031400000000003 * fVec9[((IOTA - 16) & 127)]) + ((0.00052651599999999998 * fVec9[((IOTA - 15) & 127)]) + ((0.00392377 * fVec9[((IOTA - 14) & 127)]) + ((0.0035166300000000002 * fVec9[((IOTA - 13) & 127)]) + ((0.00075928600000000008 * fVec9[((IOTA - 10) & 127)]) + ((0.00033872000000000004 * fVec9[((IOTA - 5) & 127)]) + ((0.00016066400000000001 * fVec9[((IOTA - 3) & 127)]) + ((0.00018682000000000003 * fVec9[((IOTA - 2) & 127)]) + ((0.00020279900000000001 * fVec9[((IOTA - 1) & 127)]) + ((1.7251399999999999e-05 * fTemp9) + ((2.3037100000000003e-05 * fVec9[((IOTA - 63) & 127)]) + ((8.4839600000000007e-05 * fVec9[((IOTA - 114) & 127)]) + ((4.4167100000000006e-05 * fVec9[((IOTA - 113) & 127)]) + ((0.00475582 * fVec7[((IOTA - 47) & 127)]) + ((3.2060500000000002e-05 * fVec9[((IOTA - 110) & 127)]) + ((0.000112602 * fVec9[((IOTA - 108) & 127)]) + ((1.7491000000000002e-05 * fVec9[((IOTA - 107) & 127)]) + ((0.00075613700000000004 * fVec9[((IOTA - 103) & 127)]) + ((0.0007542060000000001 * fVec9[((IOTA - 102) & 127)]) + ((0.00098607899999999995 * fVec9[((IOTA - 101) & 127)]) + ((0.0010969700000000001 * fVec9[((IOTA - 100) & 127)]) + ((7.8230200000000002e-05 * fVec9[((IOTA - 99) & 127)]) + ((9.2514000000000016e-05 * fVec9[((IOTA - 94) & 127)]) + ((0.00053345900000000002 * fVec9[((IOTA - 92) & 127)]) + ((0.0020748199999999998 * fVec9[((IOTA - 91) & 127)]) + ((0.0015876900000000001 * fVec9[((IOTA - 90) & 127)]) + ((0.00011153500000000001 * fVec9[((IOTA - 89) & 127)]) + ((0.00046845299999999997 * fVec9[((IOTA - 84) & 127)]) + ((0.00086976600000000012 * fVec9[((IOTA - 83) & 127)]) + ((0.00230627 * fVec9[((IOTA - 82) & 127)]) + ((0.00198928 * fVec9[((IOTA - 81) & 127)]) + ((0.00011933700000000001 * fVec9[((IOTA - 75) & 127)]) + ((0.0018365300000000001 * fVec9[((IOTA - 74) & 127)]) + ((0.0018139200000000001 * fVec9[((IOTA - 73) & 127)]) + ((0.0024437400000000002 * fVec9[((IOTA - 68) & 127)]) + ((2.2443800000000004e-05 * fVec9[((IOTA - 67) & 127)]) + ((4.5497699999999996e-06 * fVec10[((IOTA - 125) & 127)]) + ((7.5675299999999995e-06 * fVec10[((IOTA - 124) & 127)]) + ((2.6879600000000003e-05 * fVec10[((IOTA - 121) & 127)]) + ((4.6292799999999998e-05 * fVec10[((IOTA - 120) & 127)]) + ((0.00010061500000000001 * fVec10[((IOTA - 116) & 127)]) + ((0.00201564 * fVec10[((IOTA - 69) & 127)]) + ((0.0011886300000000002 * fVec10[((IOTA - 58) & 127)]) + ((0.00077164300000000003 * fVec10[((IOTA - 57) & 127)]) + ((0.00049624800000000002 * fVec10[((IOTA - 56) & 127)]) + ((0.0030874799999999997 * fVec10[((IOTA - 55) & 127)]) + ((0.0021949399999999998 * fVec10[((IOTA - 54) & 127)]) + ((0.0010828400000000001 * fVec10[((IOTA - 53) & 127)]) + ((0.0010153900000000001 * fVec10[((IOTA - 52) & 127)]) + ((0.00128692 * fVec10[((IOTA - 51) & 127)]) + ((0.0016323399999999999 * fVec10[((IOTA - 50) & 127)]) + ((0.00075240799999999998 * fVec10[((IOTA - 49) & 127)]) + ((0.00092245300000000005 * fVec10[((IOTA - 47) & 127)]) + ((0.0017931100000000001 * fVec10[((IOTA - 46) & 127)]) + ((0.0007471750000000001 * fVec10[((IOTA - 45) & 127)]) + ((0.00051067700000000007 * fVec10[((IOTA - 43) & 127)]) + ((0.0014619100000000001 * fVec10[((IOTA - 42) & 127)]) + ((0.0044955800000000008 * fVec10[((IOTA - 39) & 127)]) + ((0.0021450200000000001 * fVec10[((IOTA - 38) & 127)]) + ((0.0014973 * fVec10[((IOTA - 35) & 127)]) + ((0.0082343699999999995 * fVec10[((IOTA - 34) & 127)]) + ((0.0040986399999999997 * fVec10[((IOTA - 33) & 127)]) + ((0.011162700000000001 * fVec10[((IOTA - 30) & 127)]) + ((0.00346101 * fVec10[((IOTA - 29) & 127)]) + ((0.000302305 * fVec10[((IOTA - 27) & 127)]) + ((0.00492144 * fVec10[((IOTA - 26) & 127)]) + ((0.0030501999999999999 * fVec10[((IOTA - 24) & 127)]) + ((0.00073979700000000005 * fVec10[((IOTA - 23) & 127)]) + ((0.0221686 * fVec10[((IOTA - 21) & 127)]) + ((0.0085520800000000001 * fVec10[((IOTA - 18) & 127)]) + ((0.0047510700000000005 * fVec10[((IOTA - 16) & 127)]) + ((0.0076238799999999995 * fVec10[((IOTA - 15) & 127)]) + ((0.00012743000000000002 * fVec10[((IOTA - 12) & 127)]) + ((0.00010937100000000001 * fVec10[((IOTA - 9) & 127)]) + ((0.00020908600000000004 * fVec10[((IOTA - 6) & 127)]) + ((4.7766400000000011e-05 * fVec10[((IOTA - 4) & 127)]) + ((4.8072300000000004e-05 * fVec10[((IOTA - 2) & 127)]) + ((4.4257099999999997e-06 * fTemp10) + ((0.00098654899999999998 * fVec10[((IOTA - 71) & 127)]) + ((2.7254400000000001e-05 * fVec10[((IOTA - 115) & 127)]) + ((8.944870000000001e-05 * fVec10[((IOTA - 111) & 127)]) + ((0.00012954900000000002 * fVec10[((IOTA - 108) & 127)]) + ((0.00022061000000000002 * fVec10[((IOTA - 103) & 127)]) + ((0.00037079399999999997 * fVec10[((IOTA - 100) & 127)]) + ((0.00051272299999999998 * fVec10[((IOTA - 99) & 127)]) + ((0.00038258600000000003 * fVec10[((IOTA - 95) & 127)]) + ((8.2812900000000015e-05 * fVec10[((IOTA - 94) & 127)]) + ((0.0027608300000000001 * fVec10[((IOTA - 70) & 127)]) + ((0.00030423900000000004 * fVec10[((IOTA - 89) & 127)]) + ((0.00083367799999999991 * fVec10[((IOTA - 88) & 127)]) + ((0.00088518799999999997 * fVec10[((IOTA - 87) & 127)]) + ((0.00014659800000000001 * fVec10[((IOTA - 86) & 127)]) + ((0.00021570500000000001 * fVec10[((IOTA - 84) & 127)]) + ((0.0013572500000000002 * fVec10[((IOTA - 83) & 127)]) + ((0.0010737000000000001 * fVec10[((IOTA - 82) & 127)]) + ((0.0012087000000000001 * fVec10[((IOTA - 77) & 127)]) + ((0.0016850599999999999 * fVec10[((IOTA - 76) & 127)]) + ((0.0021331399999999999 * fVec10[((IOTA - 75) & 127)]) + ((0.0048056599999999998 * fVec10[((IOTA - 74) & 127)]) + ((0.00126592 * fVec10[((IOTA - 73) & 127)]) + ((3.7160099999999995e-06 * fVec11[((IOTA - 124) & 127)]) + ((8.5845599999999997e-06 * fVec11[((IOTA - 122) & 127)]) + ((3.7165799999999998e-07 * fVec11[((IOTA - 121) & 127)]) + ((1.64162e-06 * fVec11[((IOTA - 120) & 127)]) + ((4.2956600000000001e-05 * fVec11[((IOTA - 118) & 127)]) + ((3.4676399999999999e-05 * fVec11[((IOTA - 117) & 127)]) + ((0.00061609800000000004 * fVec11[((IOTA - 68) & 127)]) + ((0.00082633100000000014 * fVec11[((IOTA - 61) & 127)]) + ((0.0013798999999999999 * fVec11[((IOTA - 60) & 127)]) + ((0.0020596899999999999 * fVec11[((IOTA - 57) & 127)]) + ((0.0010143999999999999 * fVec11[((IOTA - 56) & 127)]) + ((0.0032089699999999998 * fVec11[((IOTA - 52) & 127)]) + ((0.0061142000000000002 * fVec11[((IOTA - 51) & 127)]) + ((0.0024907200000000001 * fVec11[((IOTA - 50) & 127)]) + ((0.0034285800000000001 * fVec11[((IOTA - 49) & 127)]) + ((0.0070378800000000007 * fVec11[((IOTA - 48) & 127)]) + ((0.0087433800000000002 * fVec11[((IOTA - 47) & 127)]) + ((0.0040170900000000001 * fVec11[((IOTA - 44) & 127)]) + ((0.0021569699999999998 * fVec11[((IOTA - 43) & 127)]) + ((0.0118508 * fVec11[((IOTA - 34) & 127)]) + ((0.011241000000000001 * fVec11[((IOTA - 33) & 127)]) + ((0.00427576 * fVec11[((IOTA - 32) & 127)]) + ((0.012546699999999999 * fVec11[((IOTA - 31) & 127)]) + ((0.00167917 * fVec11[((IOTA - 30) & 127)]) + ((0.0028046799999999999 * fVec11[((IOTA - 29) & 127)]) + ((0.023972300000000002 * fVec11[((IOTA - 28) & 127)]) + ((0.025418900000000001 * fVec11[((IOTA - 25) & 127)]) + ((0.036758700000000005 * fVec11[((IOTA - 24) & 127)]) + ((0.0094883599999999995 * fVec11[((IOTA - 23) & 127)]) + ((0.030652200000000001 * fVec11[((IOTA - 20) & 127)]) + ((0.019792300000000002 * fVec11[((IOTA - 17) & 127)]) + ((0.074180800000000005 * fVec11[((IOTA - 15) & 127)]) + ((0.039634599999999999 * fVec11[((IOTA - 14) & 127)]) + ((0.0036891799999999998 * fVec11[((IOTA - 10) & 127)]) + ((0.0026538200000000003 * fVec11[((IOTA - 8) & 127)]) + ((0.0018822300000000001 * fVec11[((IOTA - 6) & 127)]) + ((0.00023555400000000002 * fVec11[((IOTA - 2) & 127)]) + ((5.9274000000000002e-05 * fVec11[((IOTA - 1) & 127)]) + ((0.00128951 * fVec11[((IOTA - 72) & 127)]) + ((0.00063230399999999998 * fVec11[((IOTA - 71) & 127)]) + ((0.00104743 * fVec11[((IOTA - 70) & 127)]) + ((0.00019604 * fVec11[((IOTA - 109) & 127)]) + ((0.00013709400000000001 * fVec11[((IOTA - 108) & 127)]) + ((0.00021278000000000003 * fVec11[((IOTA - 107) & 127)]) + ((0.000177257 * fVec11[((IOTA - 106) & 127)]) + ((1.3509400000000001e-05 * fVec11[((IOTA - 103) & 127)]) + ((0.00028317500000000004 * fVec11[((IOTA - 100) & 127)]) + ((0.0010204299999999999 * fVec11[((IOTA - 99) & 127)]) + ((0.00083823700000000003 * fVec11[((IOTA - 98) & 127)]) + ((0.00095599300000000003 * fVec11[((IOTA - 97) & 127)]) + ((0.00073841100000000002 * fVec11[((IOTA - 90) & 127)]) + ((0.0017069399999999999 * fVec11[((IOTA - 69) & 127)]) + ((0.0017065600000000002 * fVec11[((IOTA - 89) & 127)]) + ((0.00082051300000000004 * fVec11[((IOTA - 88) & 127)]) + ((0.000130195 * fVec11[((IOTA - 87) & 127)]) + ((0.00015612699999999999 * fVec11[((IOTA - 86) & 127)]) + ((0.00052182200000000002 * fVec11[((IOTA - 85) & 127)]) + ((0.0018906000000000001 * fVec11[((IOTA - 80) & 127)]) + ((0.0022695099999999998 * fVec11[((IOTA - 79) & 127)]) + ((0.0011883900000000001 * fVec11[((IOTA - 78) & 127)]) + ((0.00081579000000000005 * fVec11[((IOTA - 77) & 127)]) + ((0.0005847640000000001 * fVec11[((IOTA - 76) & 127)]) + ((5.2538300000000005e-05 * fVec12[((IOTA - 117) & 127)]) + ((9.9222000000000006e-05 * fVec12[((IOTA - 113) & 127)]) + ((0.000120834 * fVec12[((IOTA - 112) & 127)]) + ((0.00032393100000000001 * fVec12[((IOTA - 108) & 127)]) + ((0.00049770700000000001 * fVec12[((IOTA - 107) & 127)]) + ((0.00021051600000000003 * fVec12[((IOTA - 106) & 127)]) + ((0.00054882499999999996 * fVec12[((IOTA - 105) & 127)]) + ((0.00033593400000000003 * fVec12[((IOTA - 104) & 127)]) + ((0.0050464000000000004 * fVec12[((IOTA - 34) & 127)]) + ((0.0016620900000000002 * fVec12[((IOTA - 32) & 127)]) + ((0.0091001899999999993 * fVec12[((IOTA - 31) & 127)]) + ((0.0086900200000000014 * fVec12[((IOTA - 27) & 127)]) + ((0.0025605699999999999 * fVec12[((IOTA - 25) & 127)]) + ((0.0343884 * fVec12[((IOTA - 22) & 127)]) + ((0.0039259000000000004 * fVec12[((IOTA - 21) & 127)]) + ((0.0066841400000000007 * fVec12[((IOTA - 19) & 127)]) + ((0.00452054 * fVec12[((IOTA - 18) & 127)]) + ((0.0064993800000000008 * fVec12[((IOTA - 16) & 127)]) + ((0.0139144 * fVec12[((IOTA - 15) & 127)]) + ((0.00063756100000000003 * fVec12[((IOTA - 10) & 127)]) + ((0.00019982100000000001 * fVec12[((IOTA - 9) & 127)]) + ((0.00061146700000000009 * fVec12[((IOTA - 6) & 127)]) + ((6.9460300000000005e-06 * fVec12[((IOTA - 4) & 127)]) + ((8.9573699999999999e-05 * fVec12[((IOTA - 3) & 127)]) + ((1.7425400000000001e-05 * fVec12[((IOTA - 2) & 127)]) + ((1.2426000000000001e-05 * fTemp12) + ((0.0009923550000000001 * fVec12[((IOTA - 40) & 127)]) + ((0.00091611500000000001 * fVec12[((IOTA - 39) & 127)]) + ((0.0050600599999999999 * fVec12[((IOTA - 35) & 127)]) + ((0.00025844700000000003 * fVec12[((IOTA - 36) & 127)]) + ((0.000195336 * fVec12[((IOTA - 102) & 127)]) + ((0.00050333699999999997 * fVec12[((IOTA - 101) & 127)]) + ((0.00094140900000000004 * fVec12[((IOTA - 100) & 127)]) + ((0.00095396900000000004 * fVec12[((IOTA - 99) & 127)]) + ((0.00098442100000000008 * fVec12[((IOTA - 98) & 127)]) + ((0.00038126300000000001 * fVec12[((IOTA - 97) & 127)]) + ((0.00026112299999999999 * fVec12[((IOTA - 94) & 127)]) + ((0.00050703100000000002 * fVec12[((IOTA - 93) & 127)]) + ((0.00074057800000000009 * fVec12[((IOTA - 89) & 127)]) + ((0.00179612 * fVec12[((IOTA - 88) & 127)]) + ((0.00076789300000000007 * fVec12[((IOTA - 87) & 127)]) + ((0.00039971500000000003 * fVec12[((IOTA - 83) & 127)]) + ((0.0027544000000000002 * fVec12[((IOTA - 75) & 127)]) + ((0.0006000580000000001 * fVec12[((IOTA - 74) & 127)]) + ((0.0020230000000000001 * fVec12[((IOTA - 72) & 127)]) + ((0.00025677799999999999 * fVec12[((IOTA - 71) & 127)]) + ((0.00088973999999999998 * fVec12[((IOTA - 69) & 127)]) + ((0.0017349500000000001 * fVec12[((IOTA - 68) & 127)]) + ((0.00090262100000000015 * fVec12[((IOTA - 67) & 127)]) + ((0.0011930899999999999 * fVec12[((IOTA - 59) & 127)]) + ((0.00101278 * fVec12[((IOTA - 58) & 127)]) + ((0.0017261400000000001 * fVec12[((IOTA - 56) & 127)]) + ((0.0038630600000000002 * fVec12[((IOTA - 55) & 127)]) + ((6.30711e-05 * fVec12[((IOTA - 54) & 127)]) + ((0.0018780100000000001 * fVec12[((IOTA - 52) & 127)]) + ((0.00034529899999999997 * fVec12[((IOTA - 46) & 127)]) + ((0.00093084299999999999 * fVec12[((IOTA - 45) & 127)]) + ((0.0019572999999999999 * fVec12[((IOTA - 42) & 127)]) + ((0.0019534999999999999 * fVec12[((IOTA - 41) & 127)]) + ((0.00045993600000000004 * fVec13[((IOTA - 6) & 127)]) + ((0.000291907 * fVec13[((IOTA - 3) & 127)]) + ((0.00029861600000000003 * fVec13[((IOTA - 2) & 127)]) + ((0.000146899 * fVec13[((IOTA - 1) & 127)]) + ((1.7574500000000003e-05 * fTemp13) + ((0.034952499999999997 * fVec13[((IOTA - 16) & 127)]) + ((0.049422800000000003 * fVec13[((IOTA - 15) & 127)]) + ((0.0046001599999999998 * fVec13[((IOTA - 14) & 127)]) + ((0.0033411400000000003 * fVec13[((IOTA - 10) & 127)]) + ((9.0339799999999988e-06 * fVec13[((IOTA - 122) & 127)]) + ((1.1963999999999999e-05 * fVec13[((IOTA - 121) & 127)]) + ((4.4093400000000007e-05 * fVec13[((IOTA - 119) & 127)]) + ((4.0827600000000009e-05 * fVec13[((IOTA - 118) & 127)]) + ((2.2890000000000003e-05 * fVec13[((IOTA - 117) & 127)]) + ((8.0226800000000002e-05 * fVec13[((IOTA - 116) & 127)]) + ((7.3188700000000013e-05 * fVec13[((IOTA - 115) & 127)]) + ((6.1088199999999996e-05 * fVec13[((IOTA - 114) & 127)]) + ((2.9869500000000006e-05 * fVec13[((IOTA - 108) & 127)]) + ((6.3848399999999997e-06 * fVec13[((IOTA - 107) & 127)]) + ((0.000123289 * fVec13[((IOTA - 106) & 127)]) + ((0.00024978799999999997 * fVec13[((IOTA - 105) & 127)]) + ((0.000131514 * fVec13[((IOTA - 104) & 127)]) + ((0.00063336600000000001 * fVec13[((IOTA - 101) & 127)]) + ((0.0010492399999999999 * fVec13[((IOTA - 100) & 127)]) + ((0.00070518200000000005 * fVec13[((IOTA - 93) & 127)]) + ((0.00199563 * fVec13[((IOTA - 92) & 127)]) + ((0.000946998 * fVec13[((IOTA - 91) & 127)]) + ((3.0889300000000003e-05 * fVec13[((IOTA - 90) & 127)]) + ((0.0010462800000000001 * fVec13[((IOTA - 88) & 127)]) + ((0.0011994800000000002 * fVec13[((IOTA - 87) & 127)]) + ((0.00035223700000000004 * fVec13[((IOTA - 84) & 127)]) + ((0.00028803899999999997 * fVec13[((IOTA - 83) & 127)]) + ((0.000115759 * fVec13[((IOTA - 80) & 127)]) + ((0.000974996 * fVec13[((IOTA - 79) & 127)]) + ((0.00029525600000000003 * fVec13[((IOTA - 76) & 127)]) + ((0.0031206000000000003 * fVec13[((IOTA - 75) & 127)]) + ((0.0010051399999999999 * fVec13[((IOTA - 74) & 127)]) + ((2.0701900000000002e-05 * fVec13[((IOTA - 73) & 127)]) + ((0.00348921 * fVec13[((IOTA - 72) & 127)]) + ((0.0035248100000000002 * fVec13[((IOTA - 71) & 127)]) + ((0.0020746099999999997 * fVec13[((IOTA - 68) & 127)]) + ((0.0009994540000000001 * fVec13[((IOTA - 67) & 127)]) + ((2.3077000000000003e-05 * fVec13[((IOTA - 59) & 127)]) + ((0.00188758 * fVec13[((IOTA - 58) & 127)]) + ((0.00246043 * fVec13[((IOTA - 57) & 127)]) + ((0.0034086400000000001 * fVec13[((IOTA - 56) & 127)]) + ((0.000130247 * fVec13[((IOTA - 55) & 127)]) + ((0.00181967 * fVec13[((IOTA - 52) & 127)]) + ((0.0024710800000000001 * fVec13[((IOTA - 51) & 127)]) + ((0.00375698 * fVec13[((IOTA - 50) & 127)]) + ((0.0049808300000000003 * fVec13[((IOTA - 49) & 127)]) + ((0.0029275000000000004 * fVec13[((IOTA - 48) & 127)]) + ((0.00043671900000000002 * fVec13[((IOTA - 46) & 127)]) + ((0.0023742299999999997 * fVec13[((IOTA - 42) & 127)]) + ((0.0095164399999999993 * fVec13[((IOTA - 38) & 127)]) + ((0.011094 * fVec13[((IOTA - 37) & 127)]) + ((0.0052607699999999997 * fVec13[((IOTA - 32) & 127)]) + ((0.053353600000000001 * fVec13[((IOTA - 29) & 127)]) + ((0.0300478 * fVec13[((IOTA - 28) & 127)]) + ((0.0155105 * fVec13[((IOTA - 27) & 127)]) + ((0.023786000000000002 * fVec13[((IOTA - 26) & 127)]) + ((0.025571299999999998 * fVec13[((IOTA - 25) & 127)]) + ((0.009493109999999999 * fVec13[((IOTA - 24) & 127)]) + ((0.041311500000000001 * fVec13[((IOTA - 18) & 127)]) + ((0.016981400000000001 * fVec13[((IOTA - 17) & 127)]) + ((8.7891600000000009e-07 * fVec14[((IOTA - 126) & 127)]) + ((2.13798e-06 * fVec14[((IOTA - 125) & 127)]) + ((3.8383899999999997e-06 * fVec14[((IOTA - 124) & 127)]) + ((5.9589300000000002e-05 * fVec14[((IOTA - 114) & 127)]) + ((6.5764600000000004e-05 * fVec14[((IOTA - 113) & 127)]) + ((0.00021162899999999999 * fVec14[((IOTA - 112) & 127)]) + ((4.5487700000000008e-05 * fVec14[((IOTA - 109) & 127)]) + ((4.3592100000000006e-05 * fVec14[((IOTA - 107) & 127)]) + ((0.000224978 * fVec14[((IOTA - 105) & 127)]) + ((0.00052132399999999998 * fVec14[((IOTA - 104) & 127)]) + ((0.00048330599999999997 * fVec14[((IOTA - 103) & 127)]) + ((0.00071050799999999999 * fVec14[((IOTA - 102) & 127)]) + ((0.00063433500000000009 * fVec14[((IOTA - 101) & 127)]) + ((0.00044372900000000002 * fVec14[((IOTA - 100) & 127)]) + ((0.000330823 * fVec14[((IOTA - 99) & 127)]) + ((0.00039405700000000001 * fVec14[((IOTA - 98) & 127)]) + ((4.5460600000000003e-05 * fVec14[((IOTA - 97) & 127)]) + ((0.0037881900000000003 * fVec14[((IOTA - 27) & 127)]) + ((0.032389800000000003 * fVec14[((IOTA - 26) & 127)]) + ((0.011376599999999999 * fVec14[((IOTA - 25) & 127)]) + ((0.054135099999999998 * fVec14[((IOTA - 23) & 127)]) + ((0.053170500000000002 * fVec14[((IOTA - 22) & 127)]) + ((0.021568500000000001 * fVec14[((IOTA - 21) & 127)]) + ((0.0053294199999999996 * fVec14[((IOTA - 20) & 127)]) + ((0.0082633600000000008 * fVec14[((IOTA - 14) & 127)]) + ((0.035763900000000001 * fVec14[((IOTA - 13) & 127)]) + ((0.040782800000000001 * fVec14[((IOTA - 12) & 127)]) + ((0.0096909700000000001 * fVec14[((IOTA - 11) & 127)]) + ((0.00102728 * fVec14[((IOTA - 9) & 127)]) + ((0.00021498000000000001 * fVec14[((IOTA - 8) & 127)]) + ((0.000116198 * fVec14[((IOTA - 7) & 127)]) + ((0.0006046230000000001 * fVec14[((IOTA - 5) & 127)]) + ((0.00026734600000000001 * fVec14[((IOTA - 4) & 127)]) + ((9.3501200000000002e-06 * fTemp14) + ((0.013483499999999999 * fVec14[((IOTA - 30) & 127)]) + ((0.0005875600000000001 * fVec14[((IOTA - 95) & 127)]) + ((7.4827500000000015e-05 * fVec14[((IOTA - 94) & 127)]) + ((0.00074562900000000004 * fVec14[((IOTA - 86) & 127)]) + ((0.0020883 * fVec14[((IOTA - 85) & 127)]) + ((0.0010964799999999999 * fVec14[((IOTA - 84) & 127)]) + ((0.00030719900000000002 * fVec14[((IOTA - 83) & 127)]) + ((0.00081686200000000012 * fVec14[((IOTA - 82) & 127)]) + ((0.00092738999999999994 * fVec14[((IOTA - 81) & 127)]) + ((0.0012767800000000001 * fVec14[((IOTA - 79) & 127)]) + ((0.0012493700000000001 * fVec14[((IOTA - 78) & 127)]) + ((0.00032623600000000004 * fVec14[((IOTA - 76) & 127)]) + ((0.00127728 * fVec14[((IOTA - 73) & 127)]) + ((0.00294839 * fVec14[((IOTA - 72) & 127)]) + ((0.00090787099999999998 * fVec14[((IOTA - 59) & 127)]) + ((6.1440200000000009e-05 * fVec14[((IOTA - 58) & 127)]) + ((0.000132287 * fVec14[((IOTA - 57) & 127)]) + ((0.00017799499999999999 * fVec14[((IOTA - 55) & 127)]) + ((1.8103599999999998e-06 * fVec14[((IOTA - 53) & 127)]) + ((0.0035657499999999999 * fVec14[((IOTA - 52) & 127)]) + ((0.00186571 * fVec14[((IOTA - 51) & 127)]) + ((0.00106006 * fVec14[((IOTA - 49) & 127)]) + ((0.00134358 * fVec14[((IOTA - 48) & 127)]) + ((0.0065925900000000006 * fVec14[((IOTA - 47) & 127)]) + ((0.0032892700000000004 * fVec14[((IOTA - 46) & 127)]) + ((0.00571376 * fVec14[((IOTA - 43) & 127)]) + ((((((2.3535099999999999e-06 * fVec15[((IOTA - 125) & 127)]) + ((6.8823199999999997e-07 * fVec15[((IOTA - 124) & 127)]) + ((1.7898600000000002e-05 * fVec15[((IOTA - 113) & 127)]) + ((0.00023630399999999998 * fVec15[((IOTA - 109) & 127)]) + ((0.00012162599999999999 * fVec15[((IOTA - 108) & 127)]) + ((0.000113249 * fVec15[((IOTA - 106) & 127)]) + ((0.00024597200000000001 * fVec15[((IOTA - 105) & 127)]) + ((0.000398374 * fVec15[((IOTA - 104) & 127)]) + ((0.00061746999999999995 * fVec15[((IOTA - 103) & 127)]) + ((4.2711400000000006e-05 * fVec15[((IOTA - 1) & 127)]) + ((0.0054672200000000001 * fVec15[((IOTA - 17) & 127)]) + ((0.0048873499999999995 * fVec15[((IOTA - 14) & 127)]) + ((0.0016455200000000001 * fVec15[((IOTA - 13) & 127)]) + ((0.000402347 * fVec15[((IOTA - 12) & 127)]) + ((0.00052282000000000001 * fVec15[((IOTA - 11) & 127)]) + ((0.00052120499999999995 * fVec15[((IOTA - 9) & 127)]) + ((0.00038794200000000001 * fVec15[((IOTA - 7) & 127)]) + ((0.00069996900000000005 * fVec15[((IOTA - 5) & 127)]) + ((5.8344399999999994e-07 * fVec15[((IOTA - 102) & 127)]) + ((8.2155600000000003e-06 * fVec15[((IOTA - 100) & 127)]) + ((0.00080468499999999997 * fVec15[((IOTA - 99) & 127)]) + ((0.00094507800000000002 * fVec15[((IOTA - 98) & 127)]) + ((0.00045216100000000002 * fVec15[((IOTA - 97) & 127)]) + ((0.00031561499999999999 * fVec15[((IOTA - 96) & 127)]) + ((0.00047134100000000001 * fVec15[((IOTA - 95) & 127)]) + ((0.00069274800000000008 * fVec15[((IOTA - 94) & 127)]) + ((0.0014052000000000001 * fVec15[((IOTA - 93) & 127)]) + ((0.00040994799999999999 * fVec15[((IOTA - 92) & 127)]) + ((0.0011113 * fVec15[((IOTA - 90) & 127)]) + ((0.00094376900000000001 * fVec15[((IOTA - 89) & 127)]) + ((2.9439099999999997e-06 * fVec15[((IOTA - 86) & 127)]) + ((0.000122065 * fVec15[((IOTA - 85) & 127)]) + ((0.00070423299999999996 * fVec15[((IOTA - 82) & 127)]) + ((0.00072425400000000002 * fVec15[((IOTA - 81) & 127)]) + ((0.00091705600000000008 * fVec15[((IOTA - 80) & 127)]) + ((0.0013588599999999999 * fVec15[((IOTA - 68) & 127)]) + ((0.0019555700000000002 * fVec15[((IOTA - 67) & 127)]) + ((0.0022902399999999998 * fVec15[((IOTA - 66) & 127)]) + ((0.00089318700000000004 * fVec15[((IOTA - 65) & 127)]) + ((0.00055652499999999999 * fVec15[((IOTA - 64) & 127)]) + ((0.0013175300000000001 * fVec15[((IOTA - 63) & 127)]) + ((0.0026977899999999998 * fVec15[((IOTA - 62) & 127)]) + ((0.0050601500000000002 * fVec15[((IOTA - 61) & 127)]) + ((0.00138116 * fVec15[((IOTA - 60) & 127)]) + ((0.0030267599999999999 * fVec15[((IOTA - 52) & 127)]) + ((0.00017370600000000001 * fVec15[((IOTA - 49) & 127)]) + ((0.0034650500000000003 * fVec15[((IOTA - 46) & 127)]) + ((0.0047482499999999999 * fVec15[((IOTA - 45) & 127)]) + ((0.0070738099999999998 * fVec15[((IOTA - 42) & 127)]) + ((0.0044454100000000003 * fVec15[((IOTA - 40) & 127)]) + ((0.0047369300000000003 * fVec15[((IOTA - 39) & 127)]) + ((0.011450700000000001 * fVec15[((IOTA - 36) & 127)]) + ((0.017145500000000001 * fVec15[((IOTA - 33) & 127)]) + ((0.0023752499999999998 * fVec15[((IOTA - 32) & 127)]) + ((0.0079500400000000002 * fVec15[((IOTA - 30) & 127)]) + ((0.010459599999999999 * fVec15[((IOTA - 29) & 127)]) + ((0.0025976200000000001 * fVec15[((IOTA - 27) & 127)]) + ((0.016936400000000001 * fVec15[((IOTA - 24) & 127)]) + ((0.0285481 * fVec15[((IOTA - 23) & 127)]) + ((0.012527699999999999 * fVec15[((IOTA - 21) & 127)]) + ((0.0068624900000000006 * fVec15[((IOTA - 20) & 127)]) + ((0.0059164899999999999 * fVec15[((IOTA - 18) & 127)]) + ((1.2439699999999999e-06 * fVec16[((IOTA - 126) & 127)]) + ((0.00043207300000000005 * fVec16[((IOTA - 87) & 127)]) + ((0.00011911000000000002 * fVec16[((IOTA - 86) & 127)]) + ((0.0010146599999999999 * fVec16[((IOTA - 78) & 127)]) + ((0.0022639300000000004 * fVec16[((IOTA - 77) & 127)]) + ((0.0023445299999999996 * fVec16[((IOTA - 76) & 127)]) + ((0.00117332 * fVec16[((IOTA - 75) & 127)]) + ((0.00012271000000000002 * fVec16[((IOTA - 73) & 127)]) + ((0.0012369900000000001 * fVec16[((IOTA - 72) & 127)]) + ((0.0012845700000000001 * fVec16[((IOTA - 71) & 127)]) + ((0.0020734499999999997 * fVec16[((IOTA - 70) & 127)]) + ((0.00071453400000000007 * fVec16[((IOTA - 69) & 127)]) + ((0.0025929000000000004 * fVec16[((IOTA - 66) & 127)]) + ((0.00141333 * fVec16[((IOTA - 59) & 127)]) + ((0.0020445400000000001 * fVec16[((IOTA - 54) & 127)]) + ((0.0029146700000000003 * fVec16[((IOTA - 53) & 127)]) + ((0.0050671200000000005 * fVec16[((IOTA - 52) & 127)]) + ((0.0055215200000000002 * fVec16[((IOTA - 51) & 127)]) + ((0.00247781 * fVec16[((IOTA - 50) & 127)]) + ((0.0028622500000000002 * fVec16[((IOTA - 49) & 127)]) + ((0.0043047199999999997 * fVec16[((IOTA - 48) & 127)]) + ((0.0050508000000000003 * fVec16[((IOTA - 47) & 127)]) + ((0.0046696999999999997 * fVec16[((IOTA - 46) & 127)]) + ((0.0063979799999999993 * fVec16[((IOTA - 45) & 127)]) + ((0.0023229500000000003 * fVec16[((IOTA - 44) & 127)]) + ((0.0018713100000000002 * fVec16[((IOTA - 42) & 127)]) + ((0.0013015000000000001 * fVec16[((IOTA - 33) & 127)]) + ((0.0059736599999999996 * fVec16[((IOTA - 32) & 127)]) + ((0.00466849 * fVec16[((IOTA - 29) & 127)]) + ((0.0129721 * fVec16[((IOTA - 26) & 127)]) + ((0.033185600000000003 * fVec16[((IOTA - 25) & 127)]) + ((0.0144081 * fVec16[((IOTA - 24) & 127)]) + ((0.037911500000000001 * fVec16[((IOTA - 23) & 127)]) + ((0.042685100000000004 * fVec16[((IOTA - 22) & 127)]) + ((0.0139343 * fVec16[((IOTA - 21) & 127)]) + ((0.0146813 * fVec16[((IOTA - 18) & 127)]) + ((0.035285799999999999 * fVec16[((IOTA - 13) & 127)]) + ((0.029631599999999998 * fVec16[((IOTA - 12) & 127)]) + ((0.0080319299999999996 * fVec16[((IOTA - 11) & 127)]) + ((0.0023853500000000001 * fVec16[((IOTA - 9) & 127)]) + ((0.00110753 * fVec16[((IOTA - 7) & 127)]) + ((7.2946600000000004e-05 * fVec16[((IOTA - 5) & 127)]) + ((9.9022600000000003e-05 * fVec16[((IOTA - 4) & 127)]) + ((2.4865500000000001e-05 * fTemp16) + ((0.00047993200000000003 * fVec16[((IOTA - 111) & 127)]) + ((0.00064053100000000006 * fVec16[((IOTA - 110) & 127)]) + ((0.00079346300000000011 * fVec16[((IOTA - 107) & 127)]) + ((0.00071335300000000012 * fVec16[((IOTA - 106) & 127)]) + ((0.00039982700000000006 * fVec16[((IOTA - 105) & 127)]) + ((0.00059741799999999995 * fVec16[((IOTA - 103) & 127)]) + ((0.00146408 * fVec16[((IOTA - 102) & 127)]) + ((0.000423628 * fVec16[((IOTA - 101) & 127)]) + ((0.00085437899999999995 * fVec16[((IOTA - 99) & 127)]) + ((0.0018223600000000001 * fVec16[((IOTA - 98) & 127)]) + ((0.0014952799999999999 * fVec16[((IOTA - 97) & 127)]) + ((1.0971399999999999e-06 * fVec16[((IOTA - 96) & 127)]) + ((0.00025442800000000001 * fVec16[((IOTA - 95) & 127)]) + ((5.33039e-06 * fVec17[((IOTA - 124) & 127)]) + ((2.5657100000000002e-05 * fVec17[((IOTA - 123) & 127)]) + ((3.6885000000000003e-05 * fVec17[((IOTA - 122) & 127)]) + ((6.3795399999999999e-06 * fVec17[((IOTA - 121) & 127)]) + ((9.4831099999999997e-06 * fVec17[((IOTA - 115) & 127)]) + ((2.9261400000000004e-05 * fVec17[((IOTA - 114) & 127)]) + ((0.000131404 * fVec17[((IOTA - 113) & 127)]) + ((0.00013365499999999999 * fVec17[((IOTA - 112) & 127)]) + ((4.31971e-05 * fVec17[((IOTA - 109) & 127)]) + ((0.00012369400000000001 * fVec17[((IOTA - 108) & 127)]) + ((0.00123329 * fVec17[((IOTA - 79) & 127)]) + ((0.00205091 * fVec17[((IOTA - 78) & 127)]) + ((0.00098058400000000006 * fVec17[((IOTA - 77) & 127)]) + ((0.0011948000000000002 * fVec17[((IOTA - 72) & 127)]) + ((0.0011723900000000002 * fVec17[((IOTA - 71) & 127)]) + ((0.00025078000000000004 * fVec17[((IOTA - 70) & 127)]) + ((0.000315598 * fVec17[((IOTA - 69) & 127)]) + ((0.00034212800000000003 * fVec17[((IOTA - 68) & 127)]) + ((0.00010491900000000002 * fVec17[((IOTA - 67) & 127)]) + ((0.0012219899999999998 * fVec17[((IOTA - 61) & 127)]) + ((0.00492437 * fVec17[((IOTA - 55) & 127)]) + ((0.0013854399999999999 * fVec17[((IOTA - 54) & 127)]) + ((0.0022150300000000002 * fVec17[((IOTA - 52) & 127)]) + ((0.0012555400000000001 * fVec17[((IOTA - 51) & 127)]) + ((0.0035995400000000005 * fVec17[((IOTA - 48) & 127)]) + ((0.00089967400000000016 * fVec17[((IOTA - 45) & 127)]) + ((0.00088876600000000004 * fVec17[((IOTA - 43) & 127)]) + ((0.0011795500000000001 * fVec17[((IOTA - 42) & 127)]) + ((0.0046426699999999998 * fVec17[((IOTA - 39) & 127)]) + ((0.0016583300000000002 * fVec17[((IOTA - 38) & 127)]) + ((0.0051621699999999998 * fVec17[((IOTA - 36) & 127)]) + ((0.0080632599999999992 * fVec17[((IOTA - 35) & 127)]) + ((0.00157599 * fVec17[((IOTA - 32) & 127)]) + ((0.015070099999999999 * fVec17[((IOTA - 31) & 127)]) + ((0.00011657599999999999 * fVec17[((IOTA - 29) & 127)]) + ((0.00174132 * fVec17[((IOTA - 27) & 127)]) + ((0.0013890300000000001 * fVec17[((IOTA - 25) & 127)]) + ((8.8277000000000009e-05 * fVec17[((IOTA - 24) & 127)]) + ((0.015129699999999999 * fVec17[((IOTA - 22) & 127)]) + ((0.0037970199999999999 * fVec17[((IOTA - 19) & 127)]) + ((0.0040573900000000001 * fVec17[((IOTA - 17) & 127)]) + ((0.0014204600000000001 * fVec17[((IOTA - 14) & 127)]) + ((0.0013988000000000002 * fVec17[((IOTA - 13) & 127)]) + ((0.00012460800000000001 * fVec17[((IOTA - 11) & 127)]) + ((5.5101800000000008e-05 * fVec17[((IOTA - 9) & 127)]) + ((0.00012828900000000002 * fVec17[((IOTA - 7) & 127)]) + ((0.00014925 * fVec17[((IOTA - 5) & 127)]) + ((4.5166200000000001e-05 * fVec17[((IOTA - 3) & 127)]) + ((1.5119900000000001e-05 * fVec17[((IOTA - 1) & 127)]) + ((0.00017813400000000001 * fVec17[((IOTA - 84) & 127)]) + ((0.00058893599999999997 * fVec17[((IOTA - 82) & 127)]) + ((0.00019079900000000001 * fVec17[((IOTA - 100) & 127)]) + ((5.9783799999999997e-06 * fVec17[((IOTA - 98) & 127)]) + ((0.0012019699999999999 * fVec17[((IOTA - 97) & 127)]) + ((0.0020851700000000003 * fVec17[((IOTA - 96) & 127)]) + ((0.00026872700000000002 * fVec17[((IOTA - 92) & 127)]) + ((0.00087657299999999996 * fVec17[((IOTA - 91) & 127)]) + ((0.000467904 * fVec17[((IOTA - 90) & 127)]) + ((0.00078785699999999999 * fVec17[((IOTA - 83) & 127)]) + ((4.8898900000000001e-07 * fVec18[((IOTA - 126) & 127)]) + ((6.8207099999999996e-06 * fVec18[((IOTA - 123) & 127)]) + ((4.3675400000000005e-05 * fVec18[((IOTA - 122) & 127)]) + ((2.5023000000000001e-05 * fVec18[((IOTA - 121) & 127)]) + ((3.1796299999999999e-05 * fVec18[((IOTA - 113) & 127)]) + ((1.2067000000000002e-05 * fVec18[((IOTA - 112) & 127)]) + ((2.4852899999999999e-06 * fVec18[((IOTA - 107) & 127)]) + ((0.00010799700000000002 * fVec18[((IOTA - 105) & 127)]) + ((0.00045528000000000007 * fVec18[((IOTA - 104) & 127)]) + ((0.000126907 * fVec18[((IOTA - 103) & 127)]) + ((0.00017260300000000001 * fVec18[((IOTA - 102) & 127)]) + ((0.00014158200000000001 * fVec18[((IOTA - 98) & 127)]) + ((0.00150157 * fVec18[((IOTA - 97) & 127)]) + ((0.0011047400000000001 * fVec18[((IOTA - 96) & 127)]) + ((0.00044206500000000006 * fVec18[((IOTA - 94) & 127)]) + ((0.000917368 * fVec18[((IOTA - 93) & 127)]) + ((0.00129043 * fVec18[((IOTA - 92) & 127)]) + ((0.00084990400000000018 * fVec18[((IOTA - 91) & 127)]) + ((0.00034780400000000001 * fVec18[((IOTA - 87) & 127)]) + ((0.00075464000000000011 * fVec18[((IOTA - 86) & 127)]) + ((0.0036031800000000001 * fVec18[((IOTA - 55) & 127)]) + ((0.0012747400000000001 * fVec18[((IOTA - 54) & 127)]) + ((0.00022847000000000001 * fVec18[((IOTA - 53) & 127)]) + ((0.0010076 * fVec18[((IOTA - 50) & 127)]) + ((0.00686201 * fVec18[((IOTA - 49) & 127)]) + ((0.0037995999999999998 * fVec18[((IOTA - 48) & 127)]) + ((0.00010534699999999999 * fVec18[((IOTA - 44) & 127)]) + ((0.0061074099999999997 * fVec18[((IOTA - 41) & 127)]) + ((0.0060289400000000009 * fVec18[((IOTA - 40) & 127)]) + ((0.00066093200000000003 * fVec18[((IOTA - 37) & 127)]) + ((0.0062985100000000002 * fVec18[((IOTA - 36) & 127)]) + ((0.0052902100000000001 * fVec18[((IOTA - 30) & 127)]) + ((0.023343600000000003 * fVec18[((IOTA - 29) & 127)]) + ((0.026311200000000003 * fVec18[((IOTA - 28) & 127)]) + ((0.00744592 * fVec18[((IOTA - 25) & 127)]) + ((0.00080698399999999996 * fVec18[((IOTA - 24) & 127)]) + ((0.012177400000000001 * fVec18[((IOTA - 23) & 127)]) + ((0.026490900000000001 * fVec18[((IOTA - 22) & 127)]) + ((0.022836200000000001 * fVec18[((IOTA - 21) & 127)]) + ((0.018413300000000001 * fVec18[((IOTA - 20) & 127)]) + ((0.0145401 * fVec18[((IOTA - 13) & 127)]) + ((0.020249199999999998 * fVec18[((IOTA - 12) & 127)]) + ((0.0040707800000000004 * fVec18[((IOTA - 11) & 127)]) + ((4.0082300000000008e-05 * fVec18[((IOTA - 10) & 127)]) + ((0.00078458800000000002 * fVec18[((IOTA - 6) & 127)]) + ((0.00028978000000000001 * fVec18[((IOTA - 4) & 127)]) + ((9.0877899999999989e-06 * fVec18[((IOTA - 3) & 127)]) + ((4.1167199999999996e-06 * fVec19[((IOTA - 125) & 127)]) + ((0.00109117 * fVec18[((IOTA - 82) & 127)]) + ((0.0015208400000000001 * fVec18[((IOTA - 81) & 127)]) + ((0.00035611100000000005 * fVec18[((IOTA - 80) & 127)]) + ((0.0013705 * fVec18[((IOTA - 77) & 127)]) + ((0.000211399 * fVec18[((IOTA - 76) & 127)]) + ((0.0014127 * fVec18[((IOTA - 72) & 127)]) + ((0.0018515900000000002 * fVec18[((IOTA - 70) & 127)]) + ((0.0030167600000000003 * fVec18[((IOTA - 69) & 127)]) + ((0.00050696599999999997 * fVec18[((IOTA - 65) & 127)]) + ((0.0010659000000000001 * fVec18[((IOTA - 64) & 127)]) + ((0.0010421499999999999 * fVec18[((IOTA - 63) & 127)]) + ((0.0042148799999999998 * fVec18[((IOTA - 56) & 127)]) + ((0.00084516700000000008 * fVec18[((IOTA - 57) & 127)]) + ((0.00028735700000000002 * fVec19[((IOTA - 2) & 127)]) + ((0.0027315100000000004 * fVec20[((IOTA - 18) & 127)]) + ((0.018365599999999999 * fVec20[((IOTA - 17) & 127)]) + ((0.0015812600000000001 * fVec20[((IOTA - 16) & 127)]) + ((0.0087116199999999998 * fVec20[((IOTA - 15) & 127)]) + ((0.0022679900000000001 * fVec20[((IOTA - 13) & 127)]) + ((0.00070895599999999995 * fVec20[((IOTA - 9) & 127)]) + ((0.00092257999999999999 * fVec20[((IOTA - 8) & 127)]) + ((0.000218614 * fVec20[((IOTA - 4) & 127)]) + ((7.8113100000000009e-05 * fVec20[((IOTA - 2) & 127)]) + ((8.4675399999999992e-06 * fTemp20) + ((5.7300899999999997e-06 * fVec19[((IOTA - 124) & 127)]) + ((1.3577100000000001e-05 * fVec19[((IOTA - 121) & 127)]) + ((7.4281200000000003e-05 * fVec19[((IOTA - 120) & 127)]) + ((7.6923100000000002e-05 * fVec19[((IOTA - 119) & 127)]) + ((7.485010000000001e-05 * fVec19[((IOTA - 118) & 127)]) + ((3.4589100000000004e-05 * fVec19[((IOTA - 117) & 127)]) + ((9.5211100000000014e-05 * fVec19[((IOTA - 116) & 127)]) + ((0.00016010899999999999 * fVec19[((IOTA - 115) & 127)]) + ((0.00013675699999999999 * fVec19[((IOTA - 114) & 127)]) + ((4.7910900000000002e-05 * fVec19[((IOTA - 113) & 127)]) + ((4.5599000000000002e-05 * fVec19[((IOTA - 112) & 127)]) + ((0.00032256200000000003 * fVec19[((IOTA - 111) & 127)]) + ((0.00023359100000000003 * fVec19[((IOTA - 110) & 127)]) + ((0.00010394399999999999 * fVec19[((IOTA - 109) & 127)]) + ((0.00035927000000000002 * fVec19[((IOTA - 108) & 127)]) + ((6.2289100000000006e-05 * fVec19[((IOTA - 107) & 127)]) + ((0.00036134400000000004 * fVec19[((IOTA - 103) & 127)]) + ((0.00019419100000000003 * fVec19[((IOTA - 102) & 127)]) + ((5.45233e-05 * fVec19[((IOTA - 89) & 127)]) + ((0.00018564400000000003 * fVec19[((IOTA - 88) & 127)]) + ((0.00029846800000000003 * fVec19[((IOTA - 87) & 127)]) + ((0.00062323900000000004 * fVec19[((IOTA - 84) & 127)]) + ((0.0013928100000000002 * fVec19[((IOTA - 83) & 127)]) + ((0.00042248700000000004 * fVec19[((IOTA - 82) & 127)]) + ((0.00082889300000000014 * fVec19[((IOTA - 79) & 127)]) + ((0.0018016099999999999 * fVec19[((IOTA - 78) & 127)]) + ((0.0015986000000000002 * fVec19[((IOTA - 77) & 127)]) + ((0.0015950599999999999 * fVec19[((IOTA - 76) & 127)]) + ((0.0018363100000000001 * fVec19[((IOTA - 75) & 127)]) + ((0.0016406599999999999 * fVec19[((IOTA - 74) & 127)]) + ((7.6211099999999999e-08 * fVec19[((IOTA - 69) & 127)]) + ((0.0022540800000000003 * fVec19[((IOTA - 68) & 127)]) + ((0.0010342000000000001 * fVec19[((IOTA - 67) & 127)]) + ((0.0019980200000000001 * fVec19[((IOTA - 66) & 127)]) + ((0.0010956399999999999 * fVec19[((IOTA - 65) & 127)]) + ((0.0011518100000000001 * fVec19[((IOTA - 63) & 127)]) + ((0.00180572 * fVec19[((IOTA - 62) & 127)]) + ((0.0018522499999999999 * fVec19[((IOTA - 57) & 127)]) + ((0.0018557900000000002 * fVec19[((IOTA - 56) & 127)]) + ((0.000176202 * fVec19[((IOTA - 55) & 127)]) + ((0.00050791400000000004 * fVec19[((IOTA - 52) & 127)]) + ((0.0046477599999999999 * fVec19[((IOTA - 51) & 127)]) + ((0.0021174599999999998 * fVec19[((IOTA - 50) & 127)]) + ((0.00082403999999999995 * fVec19[((IOTA - 47) & 127)]) + ((0.00163053 * fVec19[((IOTA - 46) & 127)]) + ((0.0040141600000000001 * fVec19[((IOTA - 45) & 127)]) + ((0.0028585699999999999 * fVec19[((IOTA - 39) & 127)]) + ((0.011163900000000001 * fVec19[((IOTA - 38) & 127)]) + ((0.0048144299999999998 * fVec19[((IOTA - 37) & 127)]) + ((0.0019228799999999999 * fVec19[((IOTA - 36) & 127)]) + ((0.00066510000000000007 * fVec19[((IOTA - 33) & 127)]) + ((0.00064387999999999999 * fVec19[((IOTA - 32) & 127)]) + ((0.00039120300000000002 * fVec19[((IOTA - 31) & 127)]) + ((0.0092074099999999992 * fVec19[((IOTA - 30) & 127)]) + ((0.0078471500000000007 * fVec19[((IOTA - 29) & 127)]) + ((0.0090147300000000003 * fVec19[((IOTA - 25) & 127)]) + ((0.035113600000000002 * fVec19[((IOTA - 24) & 127)]) + ((0.0135645 * fVec19[((IOTA - 21) & 127)]) + ((0.0189946 * fVec19[((IOTA - 20) & 127)]) + ((0.039244899999999999 * fVec19[((IOTA - 19) & 127)]) + ((0.021826400000000003 * fVec19[((IOTA - 18) & 127)]) + ((0.0050167000000000007 * fVec19[((IOTA - 15) & 127)]) + ((0.036143599999999998 * fVec19[((IOTA - 14) & 127)]) + ((0.00068993700000000006 * fVec19[((IOTA - 11) & 127)]) + ((3.2388600000000004e-05 * fVec19[((IOTA - 9) & 127)]) + ((0.00049999799999999998 * fVec19[((IOTA - 6) & 127)]) + (((3.2544599999999997e-06 * fVec20[((IOTA - 124) & 127)]) + ((3.8028799999999999e-06 * fVec20[((IOTA - 123) & 127)]) + ((6.0437600000000006e-05 * fVec20[((IOTA - 120) & 127)]) + ((5.5343300000000003e-05 * fVec20[((IOTA - 119) & 127)]) + ((6.5355e-05 * fVec20[((IOTA - 118) & 127)]) + ((6.3452000000000002e-05 * fVec20[((IOTA - 115) & 127)]) + ((5.9620899999999994e-06 * fVec20[((IOTA - 113) & 127)]) + ((0.00025618100000000002 * fVec20[((IOTA - 108) & 127)]) + ((0.000179366 * fVec20[((IOTA - 107) & 127)]) + ((2.8330700000000003e-05 * fVec20[((IOTA - 106) & 127)]) + ((0.00036564200000000001 * fVec20[((IOTA - 103) & 127)]) + ((0.000109181 * fVec20[((IOTA - 100) & 127)]) + ((0.00078636400000000001 * fVec20[((IOTA - 99) & 127)]) + ((0.032309299999999999 * fVec20[((IOTA - 21) & 127)]) + ((0.0073979500000000004 * fVec20[((IOTA - 20) & 127)]) + ((0.000743967 * fVec20[((IOTA - 98) & 127)]) + ((4.1273200000000003e-05 * fVec20[((IOTA - 97) & 127)]) + ((8.4906400000000018e-05 * fVec20[((IOTA - 96) & 127)]) + ((0.00042730800000000005 * fVec20[((IOTA - 95) & 127)]) + ((0.00056384700000000002 * fVec20[((IOTA - 94) & 127)]) + ((0.000318167 * fVec20[((IOTA - 90) & 127)]) + ((6.7318100000000002e-05 * fVec20[((IOTA - 89) & 127)]) + ((0.00077448100000000004 * fVec20[((IOTA - 88) & 127)]) + ((0.0011397200000000001 * fVec20[((IOTA - 87) & 127)]) + ((0.00015226400000000002 * fVec20[((IOTA - 85) & 127)]) + ((0.000103558 * fVec20[((IOTA - 79) & 127)]) + ((0.00040236000000000004 * fVec20[((IOTA - 78) & 127)]) + ((0.0011149 * fVec20[((IOTA - 77) & 127)]) + ((0.000534539 * fVec20[((IOTA - 76) & 127)]) + ((0.00076731800000000012 * fVec20[((IOTA - 75) & 127)]) + ((0.0011365400000000001 * fVec20[((IOTA - 72) & 127)]) + ((0.0037275299999999997 * fVec20[((IOTA - 71) & 127)]) + ((0.0027207099999999999 * fVec20[((IOTA - 70) & 127)]) + ((8.9040400000000016e-05 * fVec20[((IOTA - 69) & 127)]) + ((0.0014650000000000002 * fVec20[((IOTA - 66) & 127)]) + ((0.0024605 * fVec20[((IOTA - 65) & 127)]) + ((0.00052620800000000001 * fVec20[((IOTA - 64) & 127)]) + ((5.8486300000000003e-05 * fVec20[((IOTA - 61) & 127)]) + ((4.1022400000000002e-05 * fVec20[((IOTA - 58) & 127)]) + ((0.00059072699999999998 * fVec20[((IOTA - 52) & 127)]) + ((0.00052352400000000004 * fVec20[((IOTA - 51) & 127)]) + ((0.0020931500000000002 * fVec20[((IOTA - 48) & 127)]) + ((0.000447298 * fVec20[((IOTA - 47) & 127)]) + ((0.0040422200000000009 * fVec20[((IOTA - 45) & 127)]) + ((0.0032565800000000002 * fVec20[((IOTA - 44) & 127)]) + ((0.00596175 * fVec20[((IOTA - 42) & 127)]) + ((0.00171053 * fVec20[((IOTA - 41) & 127)]) + ((0.0071582299999999998 * fVec20[((IOTA - 38) & 127)]) + ((0.00084393100000000013 * fVec20[((IOTA - 37) & 127)]) + ((0.0030441299999999999 * fVec20[((IOTA - 35) & 127)]) + ((0.00048408199999999999 * fVec20[((IOTA - 32) & 127)]) + ((0.0246952 * fVec20[((IOTA - 31) & 127)]) + ((0.00017484299999999999 * fVec20[((IOTA - 30) & 127)]) + ((0.0312594 * fVec20[((IOTA - 26) & 127)]) + (((4.2449800000000001e-05 * fVec21[((IOTA - 122) & 127)]) + ((1.68101e-05 * fVec21[((IOTA - 119) & 127)]) + ((1.08625e-05 * fVec21[((IOTA - 118) & 127)]) + ((0.00011037300000000001 * fVec21[((IOTA - 117) & 127)]) + ((7.9807499999999998e-05 * fVec21[((IOTA - 116) & 127)]) + ((9.6142299999999996e-05 * fVec21[((IOTA - 115) & 127)]) + ((7.7893600000000009e-05 * fVec21[((IOTA - 114) & 127)]) + ((7.9137900000000007e-05 * fVec21[((IOTA - 113) & 127)]) + ((0.00027298900000000001 * fVec21[((IOTA - 112) & 127)]) + ((1.22163e-05 * fVec21[((IOTA - 111) & 127)]) + ((3.4997699999999999e-05 * fVec21[((IOTA - 109) & 127)]) + ((4.7484800000000003e-05 * fVec21[((IOTA - 107) & 127)]) + ((4.6479600000000008e-05 * fVec21[((IOTA - 104) & 127)]) + ((0.000136606 * fVec21[((IOTA - 102) & 127)]) + ((0.00045482200000000002 * fVec21[((IOTA - 94) & 127)]) + ((0.00052650300000000011 * fVec21[((IOTA - 93) & 127)]) + ((0.00087555499999999997 * fVec21[((IOTA - 83) & 127)]) + ((0.00096178600000000006 * fVec21[((IOTA - 82) & 127)]) + ((0.00052484900000000008 * fVec21[((IOTA - 79) & 127)]) + ((0.0082101299999999995 * fVec21[((IOTA - 17) & 127)]) + ((0.031857000000000003 * fVec21[((IOTA - 16) & 127)]) + ((0.00150281 * fVec21[((IOTA - 14) & 127)]) + ((0.00129228 * fVec21[((IOTA - 11) & 127)]) + ((0.00066836900000000004 * fVec21[((IOTA - 8) & 127)]) + ((8.8393099999999999e-05 * fVec21[((IOTA - 7) & 127)]) + ((0.00018522700000000002 * fVec21[((IOTA - 4) & 127)]) + ((0.0022655599999999998 * fVec21[((IOTA - 26) & 127)]) + ((0.010108799999999999 * fVec21[((IOTA - 21) & 127)]) + ((0.000623567 * fVec21[((IOTA - 73) & 127)]) + ((0.00193418 * fVec21[((IOTA - 72) & 127)]) + ((0.0016586399999999999 * fVec21[((IOTA - 71) & 127)]) + ((0.0018386700000000001 * fVec21[((IOTA - 70) & 127)]) + ((0.00112042 * fVec21[((IOTA - 69) & 127)]) + ((0.0025244099999999999 * fVec21[((IOTA - 58) & 127)]) + ((0.0019192800000000002 * fVec21[((IOTA - 57) & 127)]) + ((0.0017400500000000001 * fVec21[((IOTA - 56) & 127)]) + ((0.0029806699999999999 * fVec21[((IOTA - 55) & 127)]) + ((0.0029504500000000003 * fVec21[((IOTA - 54) & 127)]) + ((0.0010499700000000001 * fVec21[((IOTA - 53) & 127)]) + ((4.1037600000000008e-05 * fVec21[((IOTA - 47) & 127)]) + ((0.0034572400000000003 * fVec21[((IOTA - 46) & 127)]) + ((0.0049149900000000002 * fVec21[((IOTA - 45) & 127)]) + ((0.00099377100000000006 * fVec21[((IOTA - 44) & 127)]) + ((0.022015099999999999 * fVec21[((IOTA - 20) & 127)]) + ((0.0055609300000000004 * fVec21[((IOTA - 41) & 127)]) + ((0.011276600000000001 * fVec21[((IOTA - 40) & 127)]) + ((0.0057774999999999996 * fVec21[((IOTA - 39) & 127)]) + ((0.00788494 * fVec21[((IOTA - 35) & 127)]) + ((0.0050277900000000007 * fVec21[((IOTA - 34) & 127)]) + ((0.0038421800000000002 * fVec21[((IOTA - 32) & 127)]) + ((0.0149585 * fVec21[((IOTA - 29) & 127)]) + ((0.0036836899999999999 * fVec21[((IOTA - 27) & 127)]) + ((2.2013400000000002e-05 * fVec22[((IOTA - 123) & 127)]) + ((7.0854499999999992e-06 * fVec22[((IOTA - 122) & 127)]) + ((3.0611000000000002e-05 * fVec22[((IOTA - 119) & 127)]) + ((8.0809800000000007e-05 * fVec22[((IOTA - 118) & 127)]) + ((1.71501e-05 * fVec22[((IOTA - 117) & 127)]) + ((6.3156600000000004e-05 * fVec22[((IOTA - 116) & 127)]) + ((2.5417499999999998e-06 * fVec22[((IOTA - 115) & 127)]) + ((2.1439300000000003e-05 * fVec22[((IOTA - 114) & 127)]) + ((2.5039900000000001e-05 * fVec22[((IOTA - 112) & 127)]) + ((0.000135007 * fVec22[((IOTA - 111) & 127)]) + ((6.3145400000000007e-05 * fVec22[((IOTA - 110) & 127)]) + ((0.00030512000000000003 * fVec22[((IOTA - 107) & 127)]) + ((9.1568200000000002e-05 * fVec22[((IOTA - 104) & 127)]) + ((0.00027613699999999998 * fVec22[((IOTA - 103) & 127)]) + ((0.00026536499999999999 * fVec22[((IOTA - 102) & 127)]) + ((0.00032241399999999998 * fVec22[((IOTA - 101) & 127)]) + ((0.00033567700000000005 * fVec22[((IOTA - 100) & 127)]) + ((6.1251899999999995e-06 * fVec22[((IOTA - 98) & 127)]) + ((0.0013563000000000002 * fVec22[((IOTA - 92) & 127)]) + ((0.0023775100000000002 * fVec22[((IOTA - 74) & 127)]) + ((0.0018128 * fVec22[((IOTA - 73) & 127)]) + ((0.000439049 * fVec22[((IOTA - 72) & 127)]) + ((0.0010578600000000001 * fVec22[((IOTA - 71) & 127)]) + ((0.0026522400000000002 * fVec22[((IOTA - 70) & 127)]) + ((0.00100471 * fVec22[((IOTA - 65) & 127)]) + ((0.00031719000000000002 * fVec22[((IOTA - 62) & 127)]) + ((0.00152038 * fVec22[((IOTA - 61) & 127)]) + ((0.0014213100000000001 * fVec22[((IOTA - 60) & 127)]) + ((0.0028660199999999999 * fVec22[((IOTA - 59) & 127)]) + ((0.0060551399999999997 * fVec22[((IOTA - 58) & 127)]) + ((0.0037266199999999999 * fVec22[((IOTA - 57) & 127)]) + ((0.0018872400000000001 * fVec22[((IOTA - 56) & 127)]) + ((0.0037507199999999999 * fVec22[((IOTA - 55) & 127)]) + ((0.0022728499999999999 * fVec22[((IOTA - 54) & 127)]) + ((0.0037854500000000001 * fVec22[((IOTA - 53) & 127)]) + ((0.0010571299999999999 * fVec22[((IOTA - 52) & 127)]) + ((0.00038515400000000002 * fVec22[((IOTA - 49) & 127)]) + ((0.00068895700000000002 * fVec22[((IOTA - 48) & 127)]) + ((0.00260297 * fVec22[((IOTA - 46) & 127)]) + ((0.0052337399999999997 * fVec22[((IOTA - 45) & 127)]) + ((0.0035233400000000002 * fVec22[((IOTA - 42) & 127)]) + ((0.00121233 * fVec22[((IOTA - 41) & 127)]) + ((0.00227231 * fVec22[((IOTA - 39) & 127)]) + ((0.012740800000000002 * fVec22[((IOTA - 38) & 127)]) + ((0.0058576800000000005 * fVec22[((IOTA - 37) & 127)]) + ((0.0072504600000000002 * fVec22[((IOTA - 34) & 127)]) + ((0.0079654100000000009 * fVec22[((IOTA - 33) & 127)]) + ((0.036658400000000001 * fVec22[((IOTA - 29) & 127)]) + ((0.0144063 * fVec22[((IOTA - 28) & 127)]) + ((0.0062073700000000002 * fVec22[((IOTA - 26) & 127)]) + ((0.037012400000000001 * fVec22[((IOTA - 25) & 127)]) + ((0.032690700000000003 * fVec22[((IOTA - 24) & 127)]) + ((0.00109545 * fVec22[((IOTA - 23) & 127)]) + ((0.0227166 * fVec22[((IOTA - 18) & 127)]) + ((0.0331264 * fVec22[((IOTA - 15) & 127)]) + ((0.0084816100000000005 * fVec22[((IOTA - 14) & 127)]) + ((0.0045181400000000004 * fVec22[((IOTA - 13) & 127)]) + ((0.0016828300000000002 * fVec22[((IOTA - 10) & 127)]) + ((0.00032086300000000001 * fVec22[((IOTA - 8) & 127)]) + ((0.00149577 * fVec22[((IOTA - 6) & 127)]) + ((0.00035434000000000003 * fVec22[((IOTA - 2) & 127)]) + ((2.4763900000000002e-05 * fTemp22) + ((0.0023668200000000004 * fVec22[((IOTA - 91) & 127)]) + ((0.0019167099999999999 * fVec22[((IOTA - 90) & 127)]) + ((0.00056512500000000009 * fVec22[((IOTA - 89) & 127)]) + ((0.00127944 * fVec22[((IOTA - 82) & 127)]) + ((9.5870599999999998e-07 * fVec25[((IOTA - 126) & 127)]) + ((6.1298299999999997e-06 * fVec25[((IOTA - 125) & 127)]) + ((1.7529100000000001e-05 * fVec25[((IOTA - 124) & 127)]) + ((1.3215300000000002e-05 * fVec25[((IOTA - 123) & 127)]) + ((3.73611e-06 * fVec25[((IOTA - 122) & 127)]) + ((1.4631700000000003e-05 * fVec25[((IOTA - 121) & 127)]) + ((7.9383399999999993e-06 * fVec25[((IOTA - 120) & 127)]) + ((0.00074675200000000005 * fVec22[((IOTA - 75) & 127)]) + ((0.000163275 * fVec25[((IOTA - 108) & 127)]) + ((5.2133700000000005e-05 * fVec25[((IOTA - 104) & 127)]) + ((1.7659600000000003e-05 * fVec25[((IOTA - 103) & 127)]) + ((0.00026651699999999997 * fVec25[((IOTA - 101) & 127)]) + ((0.00044441800000000003 * fVec25[((IOTA - 100) & 127)]) + ((0.000204947 * fVec25[((IOTA - 97) & 127)]) + ((0.0021076800000000002 * fVec25[((IOTA - 96) & 127)]) + ((0.0019922500000000001 * fVec25[((IOTA - 95) & 127)]) + ((0.000140679 * fVec25[((IOTA - 94) & 127)]) + ((0.0011280300000000001 * fVec25[((IOTA - 93) & 127)]) + ((0.0019903999999999998 * fVec25[((IOTA - 92) & 127)]) + ((0.000397475 * fVec25[((IOTA - 91) & 127)]) + ((0.00035911300000000004 * fVec25[((IOTA - 85) & 127)]) + ((0.000127816 * fVec25[((IOTA - 81) & 127)]) + ((0.0014990399999999999 * fVec25[((IOTA - 80) & 127)]) + ((0.00177585 * fVec25[((IOTA - 79) & 127)]) + ((5.3717400000000002e-05 * fVec25[((IOTA - 73) & 127)]) + ((0.00100658 * fVec25[((IOTA - 72) & 127)]) + ((0.00017406600000000001 * fVec25[((IOTA - 71) & 127)]) + ((0.00071912600000000005 * fVec25[((IOTA - 67) & 127)]) + ((0.00072212600000000002 * fVec25[((IOTA - 64) & 127)]) + ((0.0049928100000000003 * fVec25[((IOTA - 63) & 127)]) + ((0.0037463600000000002 * fVec25[((IOTA - 62) & 127)]) + ((0.0011032699999999999 * fVec25[((IOTA - 61) & 127)]) + ((1.5565300000000002e-05 * fVec25[((IOTA - 59) & 127)]) + ((0.0010646199999999998 * fVec25[((IOTA - 55) & 127)]) + ((0.0014746 * fVec25[((IOTA - 54) & 127)]) + ((0.0030302600000000003 * fVec25[((IOTA - 53) & 127)]) + ((0.0025201400000000001 * fVec25[((IOTA - 52) & 127)]) + ((0.0023052000000000003 * fVec25[((IOTA - 51) & 127)]) + ((0.0064089099999999994 * fVec25[((IOTA - 50) & 127)]) + ((0.0062176200000000001 * fVec25[((IOTA - 49) & 127)]) + ((0.00136571 * fVec25[((IOTA - 48) & 127)]) + ((0.000484007 * fVec25[((IOTA - 47) & 127)]) + ((0.0053646300000000004 * fVec25[((IOTA - 43) & 127)]) + ((0.00049839000000000003 * fVec25[((IOTA - 40) & 127)]) + ((0.0029793300000000001 * fVec25[((IOTA - 39) & 127)]) + ((0.00011673199999999999 * fVec25[((IOTA - 38) & 127)]) + ((0.0021503299999999998 * fVec25[((IOTA - 34) & 127)]) + ((0.0040663799999999996 * fVec25[((IOTA - 31) & 127)]) + ((0.022960699999999997 * fVec25[((IOTA - 30) & 127)]) + ((0.016656999999999998 * fVec25[((IOTA - 26) & 127)]) + ((0.026276299999999999 * fVec25[((IOTA - 23) & 127)]) + ((0.020495800000000002 * fVec25[((IOTA - 22) & 127)]) + ((0.023659500000000003 * fVec25[((IOTA - 21) & 127)]) + ((0.0210797 * fVec25[((IOTA - 20) & 127)]) + ((0.027862700000000001 * fVec25[((IOTA - 19) & 127)]) + ((0.015660400000000001 * fVec25[((IOTA - 16) & 127)]) + ((0.0069313100000000004 * fVec25[((IOTA - 12) & 127)]) + ((0.0015239000000000001 * fVec25[((IOTA - 11) & 127)]) + ((0.0018694900000000001 * fVec25[((IOTA - 7) & 127)]) + ((0.00091357700000000016 * fVec25[((IOTA - 5) & 127)]) + ((0.00034025 * fVec25[((IOTA - 3) & 127)]) + (((2.1476600000000004e-05 * fVec24[((IOTA - 122) & 127)]) + ((2.6092200000000004e-05 * fVec24[((IOTA - 121) & 127)]) + ((4.1403999999999999e-05 * fVec24[((IOTA - 116) & 127)]) + ((0.00020260300000000001 * fVec24[((IOTA - 113) & 127)]) + ((0.00014776200000000001 * fVec24[((IOTA - 112) & 127)]) + ((0.00045834100000000002 * fVec24[((IOTA - 109) & 127)]) + ((0.00029239199999999999 * fVec24[((IOTA - 108) & 127)]) + ((0.00051877400000000006 * fVec24[((IOTA - 105) & 127)]) + ((0.00062261900000000004 * fVec24[((IOTA - 104) & 127)]) + ((0.00086149400000000008 * fVec24[((IOTA - 77) & 127)]) + ((0.00058334300000000006 * fVec24[((IOTA - 76) & 127)]) + ((0.0013006599999999999 * fVec24[((IOTA - 75) & 127)]) + ((0.00041085900000000007 * fVec24[((IOTA - 71) & 127)]) + ((0.0012948999999999999 * fVec24[((IOTA - 66) & 127)]) + ((0.0018707700000000001 * fVec24[((IOTA - 65) & 127)]) + ((0.00060252200000000008 * fVec24[((IOTA - 64) & 127)]) + ((0.0005644370000000001 * fVec24[((IOTA - 62) & 127)]) + ((0.00017768299999999999 * fVec24[((IOTA - 59) & 127)]) + ((0.0039611100000000003 * fVec24[((IOTA - 58) & 127)]) + ((0.0042174700000000001 * fVec24[((IOTA - 57) & 127)]) + ((0.0044953900000000001 * fVec24[((IOTA - 56) & 127)]) + ((0.0022670200000000002 * fVec24[((IOTA - 55) & 127)]) + ((0.0021868500000000002 * fVec24[((IOTA - 52) & 127)]) + ((9.3079100000000001e-05 * fVec24[((IOTA - 51) & 127)]) + ((0.0021948699999999998 * fVec24[((IOTA - 49) & 127)]) + ((0.0045924300000000006 * fVec24[((IOTA - 46) & 127)]) + ((0.0084135899999999986 * fVec24[((IOTA - 45) & 127)]) + ((0.00067984600000000012 * fVec24[((IOTA - 40) & 127)]) + ((0.00402003 * fVec24[((IOTA - 39) & 127)]) + ((0.017721000000000001 * fVec24[((IOTA - 36) & 127)]) + ((0.0035177100000000003 * fVec24[((IOTA - 33) & 127)]) + ((0.012616499999999999 * fVec24[((IOTA - 32) & 127)]) + ((0.0087009700000000006 * fVec24[((IOTA - 31) & 127)]) + ((0.00866514 * fVec24[((IOTA - 26) & 127)]) + ((0.0044089000000000003 * fVec24[((IOTA - 25) & 127)]) + ((0.023826100000000003 * fVec24[((IOTA - 24) & 127)]) + ((0.0116758 * fVec24[((IOTA - 23) & 127)]) + ((0.0080310599999999996 * fVec24[((IOTA - 19) & 127)]) + ((0.0123386 * fVec24[((IOTA - 18) & 127)]) + ((0.0091981400000000005 * fVec24[((IOTA - 15) & 127)]) + ((0.00114058 * fVec24[((IOTA - 13) & 127)]) + ((0.0133545 * fVec24[((IOTA - 12) & 127)]) + ((0.00042513400000000003 * fVec24[((IOTA - 10) & 127)]) + ((0.00031202200000000002 * fVec24[((IOTA - 9) & 127)]) + ((0.00059449899999999996 * fVec24[((IOTA - 7) & 127)]) + ((9.0752000000000015e-05 * fVec24[((IOTA - 3) & 127)]) + ((2.8761299999999999e-06 * fVec24[((IOTA - 1) & 127)]) + ((3.51439e-07 * fTemp24) + ((0.0011919700000000001 * fVec24[((IOTA - 89) & 127)]) + ((0.00098381599999999999 * fVec24[((IOTA - 90) & 127)]) + ((0.000143232 * fVec24[((IOTA - 103) & 127)]) + ((9.2107400000000005e-05 * fVec24[((IOTA - 101) & 127)]) + ((0.000784532 * fVec24[((IOTA - 100) & 127)]) + ((0.00071355700000000008 * fVec24[((IOTA - 99) & 127)]) + ((0.00065499700000000004 * fVec24[((IOTA - 98) & 127)]) + ((0.00027689300000000001 * fVec24[((IOTA - 97) & 127)]) + ((5.6064900000000006e-05 * fVec26[((IOTA - 119) & 127)]) + ((2.9367600000000003e-05 * fVec26[((IOTA - 118) & 127)]) + ((3.3220999999999999e-05 * fVec26[((IOTA - 117) & 127)]) + ((0.00012805500000000002 * fVec26[((IOTA - 114) & 127)]) + ((0.000103477 * fVec26[((IOTA - 113) & 127)]) + ((0.00025872700000000005 * fVec26[((IOTA - 112) & 127)]) + ((0.00029786899999999998 * fVec26[((IOTA - 111) & 127)]) + ((0.00033988700000000003 * fVec26[((IOTA - 110) & 127)]) + ((9.3482300000000004e-05 * fVec26[((IOTA - 109) & 127)]) + ((0.00013677700000000001 * fVec26[((IOTA - 108) & 127)]) + ((0.00057155300000000003 * fVec26[((IOTA - 107) & 127)]) + ((0.00044084399999999997 * fVec26[((IOTA - 106) & 127)]) + ((0.00058204100000000005 * fVec26[((IOTA - 105) & 127)]) + ((0.00042623200000000002 * fVec26[((IOTA - 104) & 127)]) + ((0.00025379299999999999 * fVec26[((IOTA - 103) & 127)]) + ((0.0004933950000000001 * fVec26[((IOTA - 102) & 127)]) + ((0.00052014400000000005 * fVec26[((IOTA - 99) & 127)]) + ((0.0012122999999999999 * fVec26[((IOTA - 98) & 127)]) + ((0.00045970700000000006 * fVec26[((IOTA - 97) & 127)]) + ((0.00024474399999999997 * fVec26[((IOTA - 96) & 127)]) + ((0.00061810000000000001 * fVec26[((IOTA - 95) & 127)]) + ((4.9281200000000005e-05 * fVec26[((IOTA - 94) & 127)]) + ((0.00026790500000000003 * fVec26[((IOTA - 93) & 127)]) + ((0.00057291299999999998 * fVec26[((IOTA - 88) & 127)]) + ((0.00027621200000000002 * fVec26[((IOTA - 87) & 127)]) + ((0.00068458300000000011 * fVec26[((IOTA - 16) & 127)]) + ((0.0022406600000000002 * fVec26[((IOTA - 14) & 127)]) + ((0.00121477 * fVec26[((IOTA - 12) & 127)]) + ((0.00015070900000000001 * fVec26[((IOTA - 11) & 127)]) + ((0.000594639 * fVec26[((IOTA - 10) & 127)]) + ((0.00043852399999999998 * fVec26[((IOTA - 7) & 127)]) + ((3.5476400000000005e-05 * fVec26[((IOTA - 6) & 127)]) + ((0.00012342900000000001 * fVec26[((IOTA - 5) & 127)]) + ((0.0015819200000000001 * fVec26[((IOTA - 80) & 127)]) + ((0.00034622800000000002 * fVec26[((IOTA - 79) & 127)]) + ((0.0021050499999999998 * fVec26[((IOTA - 75) & 127)]) + ((0.00017197100000000001 * fVec26[((IOTA - 73) & 127)]) + ((0.00328831 * fVec26[((IOTA - 72) & 127)]) + ((0.0033849700000000002 * fVec26[((IOTA - 71) & 127)]) + ((0.00106408 * fVec26[((IOTA - 68) & 127)]) + ((0.0026545100000000001 * fVec26[((IOTA - 67) & 127)]) + ((0.0023114799999999999 * fVec26[((IOTA - 66) & 127)]) + ((0.0010799700000000002 * fVec26[((IOTA - 65) & 127)]) + ((0.000133325 * fVec26[((IOTA - 64) & 127)]) + ((0.00104922 * fVec26[((IOTA - 63) & 127)]) + ((0.00064313500000000008 * fVec26[((IOTA - 62) & 127)]) + ((0.000829111 * fVec26[((IOTA - 50) & 127)]) + ((0.0047209000000000001 * fVec26[((IOTA - 49) & 127)]) + ((0.0040045700000000007 * fVec26[((IOTA - 48) & 127)]) + ((0.0028235399999999998 * fVec26[((IOTA - 47) & 127)]) + ((0.0024041399999999999 * fVec26[((IOTA - 46) & 127)]) + ((0.00123226 * fVec26[((IOTA - 43) & 127)]) + ((0.0055503799999999997 * fVec26[((IOTA - 42) & 127)]) + ((0.0055164099999999994 * fVec26[((IOTA - 41) & 127)]) + ((0.009551539999999999 * fVec26[((IOTA - 40) & 127)]) + ((0.0071602499999999999 * fVec26[((IOTA - 37) & 127)]) + ((0.0059806600000000005 * fVec26[((IOTA - 34) & 127)]) + ((0.0033412400000000001 * fVec26[((IOTA - 33) & 127)]) + ((0.0013020600000000001 * fVec26[((IOTA - 32) & 127)]) + ((0.010603599999999999 * fVec26[((IOTA - 29) & 127)]) + ((0.0047975099999999996 * fVec26[((IOTA - 28) & 127)]) + ((0.00037618999999999999 * fVec26[((IOTA - 25) & 127)]) + ((0.025127100000000003 * fVec26[((IOTA - 24) & 127)]) + ((0.0074241100000000003 * fVec26[((IOTA - 22) & 127)]) + ((0.032307200000000001 * fVec26[((IOTA - 19) & 127)]) + ((2.7837800000000002e-06 * fVec6[((IOTA - 122) & 127)]) + ((0.00013495299999999999 * fVec26[((IOTA - 3) & 127)]) + ((8.3043399999999988e-06 * fVec6[((IOTA - 121) & 127)]) + ((5.6696200000000008e-05 * fVec6[((IOTA - 115) & 127)]) + ((0.00013219300000000001 * fVec6[((IOTA - 112) & 127)]) + ((0.00031032800000000001 * fVec6[((IOTA - 111) & 127)]) + ((0.000209402 * fVec6[((IOTA - 110) & 127)]) + ((0.000392538 * fVec6[((IOTA - 109) & 127)]) + ((0.00021252900000000001 * fVec6[((IOTA - 108) & 127)]) + ((0.00022341099999999999 * fVec6[((IOTA - 107) & 127)]) + ((0.000455971 * fVec6[((IOTA - 106) & 127)]) + ((0.00023670100000000002 * fVec6[((IOTA - 105) & 127)]) + ((9.3216599999999998e-05 * fVec6[((IOTA - 104) & 127)]) + ((0.00011625700000000002 * fVec6[((IOTA - 103) & 127)]) + ((0.00053898200000000002 * fVec6[((IOTA - 102) & 127)]) + ((0.00063969199999999997 * fVec6[((IOTA - 101) & 127)]) + ((0.00049445900000000004 * fVec6[((IOTA - 100) & 127)]) + ((0.00113736 * fVec6[((IOTA - 99) & 127)]) + ((0.0011671499999999998 * fVec6[((IOTA - 98) & 127)]) + ((0.00080747300000000007 * fVec6[((IOTA - 97) & 127)]) + ((0.00098782800000000006 * fVec6[((IOTA - 96) & 127)]) + ((0.000116086 * fVec6[((IOTA - 95) & 127)]) + ((0.0010682000000000001 * fVec6[((IOTA - 92) & 127)]) + ((0.0010581200000000001 * fVec6[((IOTA - 91) & 127)]) + ((0.00023935499999999999 * fVec6[((IOTA - 90) & 127)]) + (((6.07349e-05 * fVec6[((IOTA - 77) & 127)]) + ((3.2773799999999996e-06 * fTemp6) + ((0.023017300000000001 * fVec6[((IOTA - 16) & 127)]) + ((0.0059658100000000002 * fVec6[((IOTA - 15) & 127)]) + ((0.0035753 * fVec6[((IOTA - 13) & 127)]) + ((0.010657300000000001 * fVec6[((IOTA - 12) & 127)]) + ((0.00023747699999999999 * fVec6[((IOTA - 10) & 127)]) + ((0.00079964000000000012 * fVec6[((IOTA - 7) & 127)]) + ((0.00024441799999999999 * fVec6[((IOTA - 71) & 127)]) + ((0.0022682500000000003 * fVec6[((IOTA - 70) & 127)]) + ((0.0013828600000000001 * fVec6[((IOTA - 69) & 127)]) + ((0.00019294500000000003 * fVec6[((IOTA - 68) & 127)]) + ((0.0022136499999999997 * fVec6[((IOTA - 67) & 127)]) + ((0.0023189199999999999 * fVec6[((IOTA - 66) & 127)]) + ((0.0022684799999999998 * fVec6[((IOTA - 65) & 127)]) + ((0.00027487300000000002 * fVec6[((IOTA - 64) & 127)]) + ((0.00097751499999999998 * fVec6[((IOTA - 62) & 127)]) + ((0.00025304199999999998 * fVec6[((IOTA - 61) & 127)]) + ((0.00036951399999999999 * fVec6[((IOTA - 60) & 127)]) + ((0.0020696600000000001 * fVec6[((IOTA - 59) & 127)]) + ((0.00039934300000000003 * fVec6[((IOTA - 58) & 127)]) + ((0.00168114 * fVec6[((IOTA - 55) & 127)]) + ((0.0019406200000000001 * fVec6[((IOTA - 54) & 127)]) + ((0.00213182 * fVec6[((IOTA - 48) & 127)]) + ((0.0044656900000000005 * fVec6[((IOTA - 47) & 127)]) + ((0.0055347900000000004 * fVec6[((IOTA - 46) & 127)]) + ((0.0030411100000000001 * fVec6[((IOTA - 42) & 127)]) + ((0.0061597700000000002 * fVec6[((IOTA - 39) & 127)]) + ((0.0032564600000000001 * fVec6[((IOTA - 38) & 127)]) + ((0.007966260000000001 * fVec6[((IOTA - 35) & 127)]) + ((0.014713700000000001 * fVec6[((IOTA - 34) & 127)]) + ((0.0070875299999999999 * fVec6[((IOTA - 29) & 127)]) + ((0.014908999999999999 * fVec6[((IOTA - 28) & 127)]) + ((0.012678 * fVec6[((IOTA - 27) & 127)]) + ((0.018085500000000001 * fVec6[((IOTA - 23) & 127)]) + ((0.041963100000000003 * fVec6[((IOTA - 22) & 127)]) + ((8.1563499999999999e-05 * fVec27[((IOTA - 118) & 127)]) + ((7.0606100000000001e-05 * fVec27[((IOTA - 117) & 127)]) + ((4.6020600000000005e-05 * fVec27[((IOTA - 116) & 127)]) + ((2.3044100000000002e-05 * fVec27[((IOTA - 115) & 127)]) + ((3.8369700000000006e-05 * fVec27[((IOTA - 114) & 127)]) + ((0.00029687600000000001 * fVec27[((IOTA - 113) & 127)]) + ((0.00024899699999999999 * fVec27[((IOTA - 112) & 127)]) + ((8.0695200000000013e-05 * fVec27[((IOTA - 111) & 127)]) + ((4.5071899999999998e-05 * fVec27[((IOTA - 110) & 127)]) + ((0.00031248700000000002 * fVec27[((IOTA - 109) & 127)]) + ((0.00029415900000000005 * fVec27[((IOTA - 108) & 127)]) + ((8.8138200000000003e-05 * fVec27[((IOTA - 107) & 127)]) + ((0.00030124200000000001 * fVec27[((IOTA - 106) & 127)]) + ((4.2708300000000006e-05 * fVec27[((IOTA - 105) & 127)]) + ((0.000231547 * fVec6[((IOTA - 4) & 127)]) + ((6.9614300000000009e-05 * fVec27[((IOTA - 103) & 127)]) + ((0.000321589 * fVec27[((IOTA - 99) & 127)]) + (((0.00016036600000000003 * fVec27[((IOTA - 98) & 127)]) + ((0.0012729099999999999 * fVec27[((IOTA - 88) & 127)]) + ((0.0021085400000000003 * fVec27[((IOTA - 87) & 127)]) + ((0.0005086 * fVec27[((IOTA - 86) & 127)]) + ((0.00014791000000000001 * fVec27[((IOTA - 85) & 127)]) + ((0.00032534600000000001 * fVec27[((IOTA - 81) & 127)]) + ((0.00099685500000000005 * fVec27[((IOTA - 80) & 127)]) + ((0.00058476299999999997 * fVec27[((IOTA - 76) & 127)]) + ((0.00186454 * fVec27[((IOTA - 75) & 127)]) + ((0.0013951499999999999 * fVec27[((IOTA - 74) & 127)]) + ((0.00129178 * fVec27[((IOTA - 73) & 127)]) + ((0.0016883999999999998 * fVec27[((IOTA - 72) & 127)]) + ((0.0018129000000000001 * fVec27[((IOTA - 71) & 127)]) + ((0.0018384600000000001 * fVec27[((IOTA - 68) & 127)]) + ((0.00195065 * fVec27[((IOTA - 67) & 127)]) + ((0.0012429300000000002 * fVec27[((IOTA - 66) & 127)]) + ((0.00169188 * fVec27[((IOTA - 65) & 127)]) + ((0.0010098400000000001 * fVec27[((IOTA - 64) & 127)]) + ((0.0027656299999999998 * fVec27[((IOTA - 14) & 127)]) + ((0.048321599999999999 * fVec27[((IOTA - 13) & 127)]) + ((0.046080900000000001 * fVec27[((IOTA - 12) & 127)]) + ((0.0051723899999999998 * fVec27[((IOTA - 11) & 127)]) + ((0.0011151400000000001 * fVec27[((IOTA - 9) & 127)]) + ((0.00019390000000000002 * fVec27[((IOTA - 4) & 127)]) + ((1.3112700000000001e-05 * fTemp27) + ((0.038624800000000001 * fVec27[((IOTA - 28) & 127)]) + ((0.0106274 * fVec27[((IOTA - 26) & 127)]) + ((0.0056327499999999997 * fVec27[((IOTA - 25) & 127)]) + ((0.00093373200000000005 * fVec27[((IOTA - 24) & 127)]) + ((0.0144447 * fVec27[((IOTA - 23) & 127)]) + ((0.00052548700000000005 * fVec27[((IOTA - 61) & 127)]) + ((0.00033912900000000003 * fVec27[((IOTA - 58) & 127)]) + ((0.0021074099999999997 * fVec27[((IOTA - 55) & 127)]) + ((0.0012717499999999999 * fVec27[((IOTA - 54) & 127)]) + ((0.00060490900000000005 * fVec27[((IOTA - 48) & 127)]) + ((0.0040936100000000001 * fVec27[((IOTA - 42) & 127)]) + ((0.0020292500000000002 * fVec27[((IOTA - 41) & 127)]) + ((0.0030470000000000002 * fVec27[((IOTA - 38) & 127)]) + ((0.0096155300000000006 * fVec27[((IOTA - 37) & 127)]) + ((0.00534952 * fVec27[((IOTA - 36) & 127)]) + ((0.010443599999999999 * fVec27[((IOTA - 35) & 127)]) + ((0.014278200000000001 * fVec27[((IOTA - 34) & 127)]) + ((0.007845340000000001 * fVec27[((IOTA - 33) & 127)]) + ((0.006265520000000001 * fVec27[((IOTA - 32) & 127)]) + ((0.0039480399999999999 * fVec27[((IOTA - 31) & 127)]) + (((2.4813999999999997e-06 * fVec28[((IOTA - 124) & 127)]) + ((1.3482700000000002e-05 * fVec28[((IOTA - 118) & 127)]) + ((6.7211899999999999e-05 * fVec28[((IOTA - 114) & 127)]) + ((0.00013360000000000002 * fVec28[((IOTA - 113) & 127)]) + ((2.4868199999999998e-07 * fVec28[((IOTA - 112) & 127)]) + ((0.00021603300000000002 * fVec28[((IOTA - 108) & 127)]) + ((0.00013044 * fVec28[((IOTA - 107) & 127)]) + ((0.00031798600000000003 * fVec28[((IOTA - 103) & 127)]) + ((2.5636600000000001e-05 * fVec28[((IOTA - 102) & 127)]) + ((0.00013589400000000001 * fVec28[((IOTA - 101) & 127)]) + ((0.000417124 * fVec28[((IOTA - 100) & 127)]) + ((0.00028324699999999998 * fVec28[((IOTA - 99) & 127)]) + ((0.00072084000000000004 * fVec28[((IOTA - 98) & 127)]) + ((0.0013214800000000001 * fVec28[((IOTA - 94) & 127)]) + ((0.00147025 * fVec28[((IOTA - 93) & 127)]) + ((0.00043513300000000004 * fVec28[((IOTA - 92) & 127)]) + ((0.00047923700000000003 * fVec28[((IOTA - 91) & 127)]) + ((0.00045356600000000003 * fVec28[((IOTA - 90) & 127)]) + ((0.0013659900000000001 * fVec28[((IOTA - 89) & 127)]) + ((0.0012231700000000002 * fVec28[((IOTA - 88) & 127)]) + ((7.6576200000000007e-05 * fVec28[((IOTA - 87) & 127)]) + ((0.00029935000000000004 * fVec28[((IOTA - 83) & 127)]) + ((0.0033423799999999998 * fVec28[((IOTA - 82) & 127)]) + ((0.00229648 * fVec28[((IOTA - 81) & 127)]) + ((0.00063050200000000002 * fVec28[((IOTA - 79) & 127)]) + ((0.00022606700000000002 * fVec28[((IOTA - 77) & 127)]) + ((0.00043061600000000004 * fVec28[((IOTA - 70) & 127)]) + ((0.00033741000000000001 * fVec28[((IOTA - 69) & 127)]) + ((0.000166844 * fVec28[((IOTA - 67) & 127)]) + ((0.00061629700000000003 * fVec28[((IOTA - 62) & 127)]) + ((0.0086880100000000012 * fVec28[((IOTA - 35) & 127)]) + ((0.0107473 * fVec28[((IOTA - 34) & 127)]) + ((0.0015977300000000001 * fVec28[((IOTA - 32) & 127)]) + ((0.0063447800000000004 * fVec28[((IOTA - 30) & 127)]) + ((0.013484899999999999 * fVec28[((IOTA - 27) & 127)]) + ((0.0020287299999999999 * fVec28[((IOTA - 25) & 127)]) + ((0.018480799999999999 * fVec28[((IOTA - 24) & 127)]) + ((0.0056198899999999998 * fVec28[((IOTA - 22) & 127)]) + ((0.017673000000000001 * fVec28[((IOTA - 21) & 127)]) + ((0.0109137 * fVec28[((IOTA - 18) & 127)]) + ((0.0020388099999999998 * fVec28[((IOTA - 17) & 127)]) + ((0.00335082 * fVec28[((IOTA - 16) & 127)]) + ((0.00123416 * fVec28[((IOTA - 14) & 127)]) + ((0.0021818300000000001 * fVec28[((IOTA - 13) & 127)]) + ((0.00012594799999999999 * fVec28[((IOTA - 12) & 127)]) + ((0.00011811100000000002 * fVec28[((IOTA - 11) & 127)]) + ((0.00098081100000000005 * fVec28[((IOTA - 9) & 127)]) + ((0.00044730900000000001 * fVec28[((IOTA - 5) & 127)]) + ((1.2689500000000001e-05 * fVec28[((IOTA - 1) & 127)]) + ((0.0058413700000000002 * fVec28[((IOTA - 41) & 127)]) + ((0.0045412800000000008 * fVec28[((IOTA - 40) & 127)]) + ((0.0020653400000000001 * fVec28[((IOTA - 61) & 127)]) + ((0.0027092700000000002 * fVec28[((IOTA - 60) & 127)]) + ((0.00101213 * fVec28[((IOTA - 59) & 127)]) + ((9.5653400000000015e-05 * fVec28[((IOTA - 58) & 127)]) + ((0.00156251 * fVec28[((IOTA - 54) & 127)]) + ((0.00015190600000000002 * fVec28[((IOTA - 53) & 127)]) + ((0.0026093900000000001 * fVec28[((IOTA - 51) & 127)]) + ((0.0030938500000000004 * fVec28[((IOTA - 50) & 127)]) + ((0.0031350200000000001 * fVec28[((IOTA - 49) & 127)]) + ((0.0040226100000000002 * fVec28[((IOTA - 48) & 127)]) + ((0.0049862600000000002 * fVec28[((IOTA - 44) & 127)]) + ((9.3007799999999994e-06 * fVec29[((IOTA - 123) & 127)]) + ((8.1740999999999985e-06 * fVec29[((IOTA - 119) & 127)]) + ((3.2763499999999999e-05 * fVec29[((IOTA - 118) & 127)]) + ((5.73293e-05 * fVec29[((IOTA - 116) & 127)]) + ((0.00023654000000000004 * fVec29[((IOTA - 115) & 127)]) + ((0.00019556700000000001 * fVec29[((IOTA - 114) & 127)]) + ((5.6889900000000006e-05 * fVec29[((IOTA - 113) & 127)]) + ((0.00024025900000000002 * fVec29[((IOTA - 112) & 127)]) + ((0.00064424100000000004 * fVec29[((IOTA - 111) & 127)]) + ((0.00037747700000000003 * fVec29[((IOTA - 110) & 127)]) + ((3.6385200000000001e-06 * fVec29[((IOTA - 108) & 127)]) + ((0.00031980600000000001 * fVec29[((IOTA - 107) & 127)]) + ((0.00046841100000000007 * fVec29[((IOTA - 104) & 127)]) + ((0.00039931500000000002 * fVec29[((IOTA - 103) & 127)]) + ((3.42585e-06 * fVec29[((IOTA - 102) & 127)]) + ((0.00028306300000000001 * fVec29[((IOTA - 101) & 127)]) + ((0.0065134700000000004 * fVec28[((IOTA - 37) & 127)]) + ((0.0012796000000000001 * fVec29[((IOTA - 92) & 127)]) + ((0.0028355700000000004 * fVec29[((IOTA - 91) & 127)]) + ((0.00027312000000000001 * fVec29[((IOTA - 90) & 127)]) + ((0.00081654800000000006 * fVec29[((IOTA - 85) & 127)]) + ((7.8246599999999997e-05 * fVec29[((IOTA - 84) & 127)]) + ((0.0027393600000000001 * fVec29[((IOTA - 82) & 127)]) + ((0.00270886 * fVec29[((IOTA - 81) & 127)]) + ((0.0012424999999999999 * fVec29[((IOTA - 80) & 127)]) + ((0.00085482200000000009 * fVec29[((IOTA - 79) & 127)]) + ((0.00154955 * fVec29[((IOTA - 72) & 127)]) + ((0.0022211500000000003 * fVec29[((IOTA - 71) & 127)]) + ((0.0016530499999999999 * fVec29[((IOTA - 70) & 127)]) + ((0.0011901600000000002 * fVec29[((IOTA - 69) & 127)]) + ((0.0015993299999999999 * fVec29[((IOTA - 68) & 127)]) + ((0.00083150600000000009 * fVec29[((IOTA - 67) & 127)]) + ((0.0010392999999999999 * fVec29[((IOTA - 64) & 127)]) + ((0.0012512000000000001 * fVec29[((IOTA - 63) & 127)]) + ((0.0026334700000000002 * fVec29[((IOTA - 59) & 127)]) + ((0.0134784 * fVec29[((IOTA - 37) & 127)]) + ((0.0031132099999999999 * fVec29[((IOTA - 36) & 127)]) + ((0.0063885599999999997 * fVec29[((IOTA - 35) & 127)]) + ((0.019759800000000001 * fVec29[((IOTA - 34) & 127)]) + ((0.027778900000000002 * fVec29[((IOTA - 33) & 127)]) + ((0.025745200000000003 * fVec29[((IOTA - 32) & 127)]) + ((0.0028674200000000003 * fVec29[((IOTA - 30) & 127)]) + ((0.023753799999999999 * fVec29[((IOTA - 29) & 127)]) + ((0.020933799999999999 * fVec29[((IOTA - 28) & 127)]) + ((0.0134953 * fVec29[((IOTA - 27) & 127)]) + ((0.024289200000000004 * fVec29[((IOTA - 26) & 127)]) + ((0.0073439100000000004 * fVec29[((IOTA - 25) & 127)]) + ((0.0091244499999999992 * fVec29[((IOTA - 22) & 127)]) + ((0.027517900000000001 * fVec29[((IOTA - 14) & 127)]) + ((0.060376700000000005 * fVec29[((IOTA - 13) & 127)]) + ((0.060888600000000008 * fVec29[((IOTA - 12) & 127)]) + ((0.0051214199999999998 * fVec29[((IOTA - 11) & 127)]) + ((0.00126033 * fVec29[((IOTA - 9) & 127)]) + ((2.0820699999999999e-05 * fVec29[((IOTA - 8) & 127)]) + ((0.00053298400000000002 * fVec29[((IOTA - 5) & 127)]) + ((6.2782600000000011e-05 * fVec29[((IOTA - 4) & 127)]) + ((7.6560500000000007e-05 * fVec29[((IOTA - 3) & 127)]) + ((2.9599300000000003e-05 * fVec29[((IOTA - 1) & 127)]) + ((1.8915500000000002e-05 * fTemp29) + ((0.00289646 * fVec29[((IOTA - 41) & 127)]) + ((0.0028975399999999997 * fVec29[((IOTA - 39) & 127)]) + ((0.018965700000000002 * fVec29[((IOTA - 38) & 127)]) + ((0.0019319900000000002 * fVec29[((IOTA - 58) & 127)]) + ((0.00051400900000000006 * fVec29[((IOTA - 55) & 127)]) + ((0.00199607 * fVec29[((IOTA - 54) & 127)]) + (((1.0336899999999999e-06 * fVec30[((IOTA - 126) & 127)]) + ((1.07578e-06 * fVec30[((IOTA - 124) & 127)]) + ((1.0896600000000002e-05 * fVec30[((IOTA - 123) & 127)]) + ((5.7825300000000005e-06 * fVec30[((IOTA - 121) & 127)]) + ((2.9587800000000002e-05 * fVec30[((IOTA - 120) & 127)]) + ((0.0010500000000000002 * fVec30[((IOTA - 76) & 127)]) + ((0.00010999399999999999 * fVec30[((IOTA - 104) & 127)]) + ((1.2511200000000001e-05 * fVec30[((IOTA - 103) & 127)]) + ((3.3373e-05 * fVec30[((IOTA - 101) & 127)]) + ((0.0022768000000000003 * fVec30[((IOTA - 96) & 127)]) + ((0.0020205099999999997 * fVec30[((IOTA - 95) & 127)]) + ((0.00027500499999999999 * fVec30[((IOTA - 91) & 127)]) + ((9.9177200000000003e-05 * fVec30[((IOTA - 87) & 127)]) + ((0.0006416280000000001 * fVec30[((IOTA - 80) & 127)]) + ((0.000129173 * fVec30[((IOTA - 79) & 127)]) + ((0.0018692700000000001 * fVec30[((IOTA - 77) & 127)]) + ((0.0013042499999999999 * fVec30[((IOTA - 72) & 127)]) + ((0.0044664700000000002 * fVec30[((IOTA - 70) & 127)]) + ((0.0025056699999999998 * fVec30[((IOTA - 71) & 127)]) + ((0.0047280300000000003 * fVec30[((IOTA - 69) & 127)]) + ((0.0037914799999999999 * fVec30[((IOTA - 68) & 127)]) + ((0.0063763400000000003 * fVec30[((IOTA - 67) & 127)]) + ((0.00047446700000000006 * fVec30[((IOTA - 6) & 127)]) + ((0.00031437800000000003 * fVec30[((IOTA - 2) & 127)]) + ((0.0065615300000000003 * fVec30[((IOTA - 66) & 127)]) + ((0.00222449 * fVec30[((IOTA - 65) & 127)]) + ((0.0014331000000000001 * fVec30[((IOTA - 36) & 127)]) + ((0.0043624700000000002 * fVec30[((IOTA - 34) & 127)]) + ((0.0071496000000000007 * fVec30[((IOTA - 33) & 127)]) + ((0.009442299999999999 * fVec30[((IOTA - 31) & 127)]) + ((0.041430000000000002 * fVec30[((IOTA - 30) & 127)]) + ((0.032932100000000006 * fVec30[((IOTA - 29) & 127)]) + ((0.0056186100000000004 * fVec30[((IOTA - 28) & 127)]) + ((0.024621200000000003 * fVec30[((IOTA - 27) & 127)]) + ((0.042141200000000004 * fVec30[((IOTA - 26) & 127)]) + ((0.028794800000000002 * fVec30[((IOTA - 25) & 127)]) + ((0.06345640000000001 * fVec30[((IOTA - 24) & 127)]) + ((0.07541260000000001 * fVec30[((IOTA - 23) & 127)]) + ((0.00046772600000000007 * fVec30[((IOTA - 21) & 127)]) + ((0.049093400000000002 * fVec30[((IOTA - 20) & 127)]) + ((0.054047100000000001 * fVec30[((IOTA - 19) & 127)]) + ((0.0108471 * fVec30[((IOTA - 16) & 127)]) + (((1.5753899999999999e-07 * fVec31[((IOTA - 126) & 127)]) + ((3.3066799999999999e-06 * fVec31[((IOTA - 125) & 127)]) + ((9.6444300000000008e-05 * fVec31[((IOTA - 110) & 127)]) + ((0.00034096799999999998 * fVec31[((IOTA - 109) & 127)]) + ((1.0190999999999999e-05 * fVec31[((IOTA - 108) & 127)]) + ((0.00023396100000000001 * fVec31[((IOTA - 106) & 127)]) + ((0.00052374700000000008 * fVec31[((IOTA - 105) & 127)]) + ((0.00036215100000000001 * fVec31[((IOTA - 104) & 127)]) + ((0.00063805800000000005 * fVec31[((IOTA - 102) & 127)]) + ((0.0011957500000000002 * fVec31[((IOTA - 101) & 127)]) + ((0.0010047600000000002 * fVec31[((IOTA - 100) & 127)]) + ((0.00095472699999999994 * fVec31[((IOTA - 99) & 127)]) + ((0.00092775000000000008 * fVec31[((IOTA - 98) & 127)]) + ((0.00122649 * fVec31[((IOTA - 97) & 127)]) + ((0.0011230999999999999 * fVec31[((IOTA - 93) & 127)]) + ((0.00125953 * fVec31[((IOTA - 92) & 127)]) + ((0.00019295400000000001 * fVec31[((IOTA - 91) & 127)]) + ((0.00055969600000000004 * fVec31[((IOTA - 89) & 127)]) + ((0.00050830900000000008 * fVec31[((IOTA - 83) & 127)]) + ((0.000103257 * fVec31[((IOTA - 76) & 127)]) + ((0.00171093 * fVec31[((IOTA - 73) & 127)]) + ((0.0020383699999999999 * fVec31[((IOTA - 72) & 127)]) + ((0.0013637999999999999 * fVec31[((IOTA - 69) & 127)]) + ((0.0024843999999999999 * fVec31[((IOTA - 68) & 127)]) + ((0.00074355600000000003 * fVec31[((IOTA - 67) & 127)]) + ((0.00089791299999999997 * fVec31[((IOTA - 65) & 127)]) + ((0.0028104300000000005 * fVec31[((IOTA - 64) & 127)]) + ((0.0015055300000000001 * fVec31[((IOTA - 63) & 127)]) + ((0.00129704 * fVec31[((IOTA - 62) & 127)]) + ((0.00045463200000000001 * fVec31[((IOTA - 61) & 127)]) + ((0.00292619 * fVec31[((IOTA - 60) & 127)]) + ((0.0039499399999999999 * fVec31[((IOTA - 59) & 127)]) + ((0.00042873700000000005 * fVec31[((IOTA - 57) & 127)]) + ((0.00077501600000000001 * fVec31[((IOTA - 56) & 127)]) + ((0.0057435900000000007 * fVec31[((IOTA - 52) & 127)]) + ((0.0064549899999999999 * fVec31[((IOTA - 45) & 127)]) + ((0.000359551 * fVec31[((IOTA - 11) & 127)]) + ((0.00050858999999999995 * fVec31[((IOTA - 10) & 127)]) + ((0.00025865000000000003 * fVec31[((IOTA - 8) & 127)]) + ((0.00030013000000000001 * fVec31[((IOTA - 7) & 127)]) + ((0.00012962100000000001 * fVec31[((IOTA - 4) & 127)]) + ((5.1984399999999995e-06 * fVec31[((IOTA - 2) & 127)]) + ((2.0081900000000002e-05 * fVec31[((IOTA - 1) & 127)]) + ((5.35095e-06 * fTemp31) + ((0.016930500000000001 * fVec31[((IOTA - 20) & 127)]) + ((0.0106017 * fVec31[((IOTA - 19) & 127)]) + ((0.000263627 * fVec31[((IOTA - 17) & 127)]) + ((0.0094244500000000009 * fVec31[((IOTA - 39) & 127)]) + ((0.0011423000000000002 * fVec31[((IOTA - 38) & 127)]) + ((0.0177702 * fVec31[((IOTA - 36) & 127)]) + ((0.0096359600000000007 * fVec31[((IOTA - 35) & 127)]) + ((0.019155500000000002 * fVec31[((IOTA - 33) & 127)]) + ((0.019293299999999999 * fVec31[((IOTA - 32) & 127)]) + ((0.0068834500000000002 * fVec31[((IOTA - 29) & 127)]) + ((0.036199000000000002 * fVec31[((IOTA - 26) & 127)]) + ((0.028412400000000001 * fVec31[((IOTA - 23) & 127)]) + ((6.5997900000000001e-08 * fVec4[((IOTA - 126) & 127)]) + ((0.00025129900000000002 * fVec31[((IOTA - 15) & 127)]) + (((2.1505000000000002e-05 * fVec4[((IOTA - 111) & 127)]) + ((0.00025875799999999999 * fVec4[((IOTA - 110) & 127)]) + ((0.00016541 * fVec4[((IOTA - 109) & 127)]) + ((0.00012994100000000001 * fVec4[((IOTA - 108) & 127)]) + ((0.000501459 * fVec4[((IOTA - 107) & 127)]) + ((0.00061807300000000002 * fVec4[((IOTA - 106) & 127)]) + ((0.00041380000000000003 * fVec4[((IOTA - 105) & 127)]) + ((4.2136500000000006e-05 * fVec4[((IOTA - 102) & 127)]) + ((1.1025e-06 * fVec4[((IOTA - 101) & 127)]) + ((0.000102185 * fVec4[((IOTA - 100) & 127)]) + ((0.0010346200000000002 * fVec4[((IOTA - 99) & 127)]) + ((0.0015065 * fVec4[((IOTA - 98) & 127)]) + ((0.00015973800000000001 * fVec4[((IOTA - 94) & 127)]) + ((0.00065440400000000003 * fVec4[((IOTA - 93) & 127)]) + ((0.00049362799999999997 * fVec4[((IOTA - 91) & 127)]) + ((0.0010192300000000001 * fVec4[((IOTA - 90) & 127)]) + ((7.1971000000000006e-05 * fVec4[((IOTA - 85) & 127)]) + ((0.00051516900000000011 * fVec4[((IOTA - 84) & 127)]) + ((0.00076406400000000006 * fVec4[((IOTA - 83) & 127)]) + ((9.4944000000000018e-05 * fVec4[((IOTA - 81) & 127)]) + ((0.00095418100000000002 * fVec4[((IOTA - 80) & 127)]) + ((8.0286900000000005e-05 * fVec4[((IOTA - 71) & 127)]) + ((0.00159566 * fVec4[((IOTA - 70) & 127)]) + ((1.1146700000000001e-05 * fVec4[((IOTA - 67) & 127)]) + ((0.0016114299999999999 * fVec4[((IOTA - 66) & 127)]) + ((0.0030693399999999998 * fVec4[((IOTA - 65) & 127)]) + ((0.0029336900000000001 * fVec4[((IOTA - 64) & 127)]) + ((0.00021672300000000002 * fVec4[((IOTA - 61) & 127)]) + ((0.0015251900000000001 * fVec4[((IOTA - 60) & 127)]) + ((0.00063413500000000008 * fVec4[((IOTA - 59) & 127)]) + ((0.0015717800000000001 * fVec4[((IOTA - 40) & 127)]) + ((0.0086705299999999992 * fVec4[((IOTA - 37) & 127)]) + ((0.00411948 * fVec4[((IOTA - 34) & 127)]) + ((0.0107584 * fVec4[((IOTA - 33) & 127)]) + ((0.0029588800000000001 * fVec4[((IOTA - 32) & 127)]) + ((0.0139764 * fVec4[((IOTA - 30) & 127)]) + ((0.0093965200000000002 * fVec4[((IOTA - 29) & 127)]) + ((0.016385799999999999 * fVec4[((IOTA - 28) & 127)]) + ((0.015254500000000001 * fVec4[((IOTA - 27) & 127)]) + ((0.0099207400000000008 * fVec4[((IOTA - 26) & 127)]) + ((0.041638400000000006 * fVec4[((IOTA - 25) & 127)]) + ((0.020153599999999997 * fVec4[((IOTA - 24) & 127)]) + ((0.00032049699999999999 * fVec4[((IOTA - 23) & 127)]) + ((0.034925999999999999 * fVec4[((IOTA - 22) & 127)]) + ((0.0069752599999999996 * fVec4[((IOTA - 21) & 127)]) + ((0.0037277 * fVec4[((IOTA - 20) & 127)]) + ((0.045202099999999995 * fVec4[((IOTA - 19) & 127)]) + ((0.00526948 * fVec4[((IOTA - 16) & 127)]) + ((0.000358363 * fVec4[((IOTA - 10) & 127)]) + ((0.00023124899999999999 * fVec4[((IOTA - 7) & 127)]) + ((0.00020135900000000002 * fVec4[((IOTA - 6) & 127)]) + ((0.00015575000000000002 * fVec4[((IOTA - 2) & 127)]) + (((7.2115600000000003e-07 * fVec0[((IOTA - 126) & 127)]) + ((3.4760399999999997e-08 * fVec0[((IOTA - 123) & 127)]) + ((2.0505700000000003e-05 * fVec0[((IOTA - 122) & 127)]) + ((7.2276399999999995e-06 * fVec0[((IOTA - 121) & 127)]) + ((1.3220600000000002e-05 * fVec0[((IOTA - 120) & 127)]) + ((1.2673900000000001e-05 * fVec0[((IOTA - 118) & 127)]) + ((4.4900900000000009e-05 * fVec0[((IOTA - 117) & 127)]) + ((4.1691399999999999e-05 * fVec0[((IOTA - 110) & 127)]) + ((0.00027668200000000005 * fVec0[((IOTA - 92) & 127)]) + ((0.00280241 * fVec0[((IOTA - 82) & 127)]) + ((0.0020786799999999999 * fVec0[((IOTA - 81) & 127)]) + ((0.00091981900000000011 * fVec0[((IOTA - 80) & 127)]) + ((0.0002275 * fVec0[((IOTA - 79) & 127)]) + ((7.5101900000000007e-05 * fVec0[((IOTA - 76) & 127)]) + ((0.00076943900000000002 * fVec0[((IOTA - 72) & 127)]) + ((0.00063752100000000005 * fVec0[((IOTA - 71) & 127)]) + ((0.0026788099999999998 * fVec0[((IOTA - 70) & 127)]) + ((0.0036546199999999999 * fVec0[((IOTA - 69) & 127)]) + ((7.3547000000000006e-05 * fVec0[((IOTA - 68) & 127)]) + ((0.0010616200000000001 * fVec0[((IOTA - 66) & 127)]) + ((0.00033734999999999999 * fVec0[((IOTA - 64) & 127)]) + ((0.00050336900000000004 * fVec0[((IOTA - 63) & 127)]) + ((0.0013227800000000002 * fVec0[((IOTA - 61) & 127)]) + ((0.0013802 * fVec0[((IOTA - 60) & 127)]) + ((0.00057507100000000002 * fVec0[((IOTA - 59) & 127)]) + ((0.0017853699999999999 * fVec0[((IOTA - 58) & 127)]) + ((0.0034082300000000004 * fVec0[((IOTA - 57) & 127)]) + ((0.00345985 * fVec0[((IOTA - 56) & 127)]) + ((0.00155444 * fVec0[((IOTA - 53) & 127)]) + ((0.0014091100000000001 * fVec0[((IOTA - 52) & 127)]) + ((0.0018625499999999999 * fVec0[((IOTA - 51) & 127)]) + ((0.00053192199999999999 * fVec0[((IOTA - 48) & 127)]) + ((0.000148231 * fVec0[((IOTA - 47) & 127)]) + ((0.0072206400000000004 * fVec0[((IOTA - 44) & 127)]) + ((0.0011467599999999999 * fVec0[((IOTA - 43) & 127)]) + ((0.015784800000000002 * fVec0[((IOTA - 27) & 127)]) + ((0.0024348900000000003 * fVec0[((IOTA - 25) & 127)]) + ((0.0034120499999999998 * fVec0[((IOTA - 24) & 127)]) + ((0.00206245 * fVec0[((IOTA - 23) & 127)]) + ((0.036800600000000003 * fVec0[((IOTA - 19) & 127)]) + ((0.016894100000000002 * fVec0[((IOTA - 16) & 127)]) + ((0.015907999999999999 * fVec0[((IOTA - 15) & 127)]) + ((0.00139284 * fVec0[((IOTA - 13) & 127)]) + ((0.0111489 * fVec0[((IOTA - 12) & 127)]) + ((0.00048254200000000003 * fVec0[((IOTA - 10) & 127)]) + ((0.00084440200000000006 * fVec0[((IOTA - 7) & 127)]) + ((0.00014837300000000001 * fVec0[((IOTA - 3) & 127)]) + ((0.0050838799999999998 * fVec0[((IOTA - 35) & 127)]) + (((6.1446399999999998e-06 * fVec32[((IOTA - 123) & 127)]) + ((8.1741199999999999e-06 * fVec32[((IOTA - 122) & 127)]) + ((2.2315100000000003e-05 * fVec32[((IOTA - 118) & 127)]) + ((4.6366800000000005e-05 * fVec32[((IOTA - 109) & 127)]) + ((0.00015426800000000002 * fVec32[((IOTA - 108) & 127)]) + ((2.9996500000000003e-05 * fVec32[((IOTA - 104) & 127)]) + ((0.00022863600000000002 * fVec32[((IOTA - 103) & 127)]) + ((0.00013601100000000001 * fVec32[((IOTA - 101) & 127)]) + ((0.00011103000000000001 * fVec32[((IOTA - 100) & 127)]) + ((0.00055044600000000001 * fVec32[((IOTA - 98) & 127)]) + ((0.00044798200000000004 * fVec32[((IOTA - 97) & 127)]) + ((0.00032662200000000005 * fVec32[((IOTA - 96) & 127)]) + ((0.00065044300000000001 * fVec32[((IOTA - 92) & 127)]) + ((0.0011816700000000001 * fVec32[((IOTA - 91) & 127)]) + ((0.00100478 * fVec32[((IOTA - 90) & 127)]) + ((4.4411900000000001e-05 * fVec32[((IOTA - 89) & 127)]) + ((0.000103707 * fVec32[((IOTA - 85) & 127)]) + ((0.00012959000000000001 * fVec32[((IOTA - 84) & 127)]) + ((0.0012166300000000002 * fVec32[((IOTA - 82) & 127)]) + ((0.00073013500000000003 * fVec32[((IOTA - 81) & 127)]) + ((0.0015448500000000002 * fVec32[((IOTA - 80) & 127)]) + ((0.00109789 * fVec32[((IOTA - 79) & 127)]) + ((0.00041635900000000004 * fVec32[((IOTA - 77) & 127)]) + ((0.00033440100000000001 * fVec32[((IOTA - 74) & 127)]) + ((0.00171149 * fVec32[((IOTA - 71) & 127)]) + ((0.0032145400000000001 * fVec32[((IOTA - 70) & 127)]) + ((0.000234556 * fVec32[((IOTA - 69) & 127)]) + ((0.0009296310000000001 * fVec32[((IOTA - 67) & 127)]) + ((0.00098071900000000012 * fVec32[((IOTA - 64) & 127)]) + ((0.00040021800000000004 * fVec32[((IOTA - 63) & 127)]) + ((0.0020002800000000001 * fVec32[((IOTA - 61) & 127)]) + ((0.0024495200000000002 * fVec32[((IOTA - 56) & 127)]) + ((0.0022621500000000001 * fVec32[((IOTA - 55) & 127)]) + ((0.0026210900000000004 * fVec32[((IOTA - 54) & 127)]) + ((0.00107755 * fVec32[((IOTA - 53) & 127)]) + ((0.0018869100000000001 * fVec32[((IOTA - 51) & 127)]) + ((0.0016816299999999999 * fVec32[((IOTA - 48) & 127)]) + ((0.00099638500000000002 * fVec32[((IOTA - 47) & 127)]) + ((0.0034718700000000002 * fVec32[((IOTA - 43) & 127)]) + ((0.0068587300000000004 * fVec32[((IOTA - 42) & 127)]) + ((0.0058219500000000002 * fVec32[((IOTA - 34) & 127)]) + ((0.017078900000000001 * fVec32[((IOTA - 33) & 127)]) + ((0.00087088200000000001 * fVec32[((IOTA - 30) & 127)]) + ((0.027225600000000003 * fVec32[((IOTA - 29) & 127)]) + ((0.00946403 * fVec32[((IOTA - 28) & 127)]) + ((0.0038781100000000002 * fVec32[((IOTA - 25) & 127)]) + ((0.048044200000000002 * fVec32[((IOTA - 24) & 127)]) + ((0.0047823300000000004 * fVec32[((IOTA - 23) & 127)]) + ((0.031593799999999998 * fVec32[((IOTA - 21) & 127)]) + ((0.0092093100000000001 * fVec32[((IOTA - 20) & 127)]) + ((0.0182515 * fVec32[((IOTA - 19) & 127)]) + ((0.0125871 * fVec32[((IOTA - 16) & 127)]) + ((0.0010793700000000001 * fVec32[((IOTA - 14) & 127)]) + ((0.0061485900000000007 * fVec32[((IOTA - 12) & 127)]) + ((0.00108131 * fVec32[((IOTA - 11) & 127)]) + ((0.00149292 * fVec32[((IOTA - 7) & 127)]) + ((0.00062478100000000003 * fVec32[((IOTA - 5) & 127)]) + ((0.00028939400000000006 * fVec32[((IOTA - 3) & 127)]) + ((1.4188099999999999e-06 * fVec33[((IOTA - 126) & 127)]) + ((3.3187600000000001e-06 * fVec33[((IOTA - 125) & 127)]) + ((5.1482899999999996e-06 * fVec33[((IOTA - 124) & 127)]) + ((8.7600299999999995e-06 * fVec33[((IOTA - 123) & 127)]) + ((5.5660599999999997e-06 * fVec33[((IOTA - 122) & 127)]) + ((5.530960000000001e-05 * fVec33[((IOTA - 121) & 127)]) + ((0.00011918500000000002 * fVec33[((IOTA - 120) & 127)]) + ((9.8678100000000013e-05 * fVec33[((IOTA - 119) & 127)]) + (((4.2207000000000004e-05 * fVec33[((IOTA - 118) & 127)]) + ((3.2490500000000003e-05 * fVec33[((IOTA - 117) & 127)]) + ((0.00011697900000000002 * fVec33[((IOTA - 116) & 127)]) + ((5.6691300000000004e-05 * fVec33[((IOTA - 112) & 127)]) + ((0.000115798 * fVec33[((IOTA - 111) & 127)]) + ((0.0037339199999999999 * fVec33[((IOTA - 96) & 127)]) + ((0.0027517499999999999 * fVec33[((IOTA - 95) & 127)]) + ((0.00065997500000000004 * fVec33[((IOTA - 92) & 127)]) + ((0.0016790700000000002 * fVec33[((IOTA - 91) & 127)]) + ((0.0019817300000000001 * fVec33[((IOTA - 88) & 127)]) + ((0.0040626200000000003 * fVec33[((IOTA - 87) & 127)]) + ((0.0023261500000000004 * fVec33[((IOTA - 86) & 127)]) + ((0.0015044699999999999 * fVec33[((IOTA - 85) & 127)]) + ((0.0010922900000000001 * fVec33[((IOTA - 84) & 127)]) + ((0.0012104800000000001 * fVec33[((IOTA - 64) & 127)]) + ((0.0039074399999999999 * fVec33[((IOTA - 63) & 127)]) + ((0.00102589 * fVec33[((IOTA - 62) & 127)]) + ((0.00070128400000000004 * fVec33[((IOTA - 59) & 127)]) + ((0.00040873600000000004 * fVec33[((IOTA - 58) & 127)]) + ((0.0011136799999999999 * fVec33[((IOTA - 57) & 127)]) + ((0.0035448200000000002 * fVec33[((IOTA - 56) & 127)]) + ((0.0022150400000000002 * fVec33[((IOTA - 55) & 127)]) + ((3.8517100000000004e-05 * fVec33[((IOTA - 54) & 127)]) + ((0.0011952499999999999 * fVec33[((IOTA - 53) & 127)]) + ((0.00017855099999999999 * fVec33[((IOTA - 52) & 127)]) + ((0.0020778099999999998 * fVec33[((IOTA - 51) & 127)]) + ((0.0048699899999999994 * fVec33[((IOTA - 50) & 127)]) + ((0.0020168600000000001 * fVec33[((IOTA - 49) & 127)]) + ((0.0011997199999999998 * fVec33[((IOTA - 47) & 127)]) + ((0.0061526599999999999 * fVec33[((IOTA - 46) & 127)]) + ((0.0028706900000000004 * fVec33[((IOTA - 44) & 127)]) + ((0.011077500000000001 * fVec33[((IOTA - 43) & 127)]) + ((0.0022290399999999998 * fVec33[((IOTA - 42) & 127)]) + ((0.0084232300000000003 * fVec33[((IOTA - 39) & 127)]) + ((0.00127378 * fVec33[((IOTA - 38) & 127)]) + ((0.0125606 * fVec33[((IOTA - 34) & 127)]) + ((0.011542200000000001 * fVec33[((IOTA - 31) & 127)]) + ((0.024367400000000001 * fVec33[((IOTA - 30) & 127)]) + ((0.0292041 * fVec33[((IOTA - 18) & 127)]) + ((0.015611 * fVec33[((IOTA - 17) & 127)]) + ((0.0131959 * fVec33[((IOTA - 15) & 127)]) + ((0.0033820999999999999 * fVec33[((IOTA - 13) & 127)]) + ((0.00065433400000000001 * fVec33[((IOTA - 10) & 127)]) + ((0.00012754700000000002 * fVec33[((IOTA - 9) & 127)]) + ((0.00028600400000000002 * fVec33[((IOTA - 8) & 127)]) + ((0.00056964699999999995 * fVec33[((IOTA - 6) & 127)]) + ((0.00055874899999999999 * fVec33[((IOTA - 4) & 127)]) + ((0.000107706 * fVec33[((IOTA - 2) & 127)]) + ((2.3258800000000005e-05 * fVec33[((IOTA - 1) & 127)]) + ((1.5002200000000002e-05 * fTemp33) + ((0.0537481 * fVec33[((IOTA - 26) & 127)]) + ((0.013059400000000001 * fVec33[((IOTA - 23) & 127)]) + (((1.8648999999999999e-06 * fVec34[((IOTA - 126) & 127)]) + ((1.0045e-05 * fVec34[((IOTA - 125) & 127)]) + ((1.8977800000000003e-05 * fVec34[((IOTA - 124) & 127)]) + ((1.9873400000000002e-05 * fVec34[((IOTA - 123) & 127)]) + ((3.4954000000000004e-05 * fVec34[((IOTA - 122) & 127)]) + ((9.3229500000000019e-05 * fVec34[((IOTA - 121) & 127)]) + ((0.00012240800000000001 * fVec34[((IOTA - 120) & 127)]) + ((9.5701199999999998e-05 * fVec34[((IOTA - 119) & 127)]) + ((5.5900900000000005e-05 * fVec34[((IOTA - 115) & 127)]) + ((1.9102600000000002e-05 * fVec34[((IOTA - 114) & 127)]) + ((0.000876507 * fVec34[((IOTA - 91) & 127)]) + ((0.0020406000000000001 * fVec34[((IOTA - 90) & 127)]) + ((0.0013280499999999999 * fVec34[((IOTA - 89) & 127)]) + ((0.0017303100000000001 * fVec34[((IOTA - 88) & 127)]) + ((0.0029776099999999999 * fVec34[((IOTA - 87) & 127)]) + ((0.0025195700000000001 * fVec34[((IOTA - 86) & 127)]) + ((0.0011889400000000001 * fVec34[((IOTA - 83) & 127)]) + ((0.000386788 * fVec34[((IOTA - 81) & 127)]) + ((0.00090610300000000012 * fVec34[((IOTA - 80) & 127)]) + ((0.0014508500000000001 * fVec34[((IOTA - 79) & 127)]) + ((0.00082739399999999996 * fVec34[((IOTA - 78) & 127)]) + ((0.00013990400000000002 * fVec34[((IOTA - 76) & 127)]) + ((0.00174807 * fVec34[((IOTA - 75) & 127)]) + ((0.00102092 * fVec34[((IOTA - 74) & 127)]) + ((0.00235812 * fVec34[((IOTA - 63) & 127)]) + ((0.0021519 * fVec34[((IOTA - 62) & 127)]) + ((7.6654099999999985e-06 * fVec34[((IOTA - 61) & 127)]) + ((0.0022741699999999998 * fVec34[((IOTA - 55) & 127)]) + ((0.0042530099999999998 * fVec34[((IOTA - 54) & 127)]) + ((0.0032282000000000001 * fVec34[((IOTA - 53) & 127)]) + ((0.0041592900000000004 * fVec34[((IOTA - 50) & 127)]) + ((0.0075640600000000001 * fVec34[((IOTA - 49) & 127)]) + ((0.0079603199999999999 * fVec34[((IOTA - 48) & 127)]) + ((0.0030812000000000001 * fVec34[((IOTA - 47) & 127)]) + ((0.00033097600000000002 * fVec34[((IOTA - 43) & 127)]) + ((0.0066906600000000002 * fVec34[((IOTA - 42) & 127)]) + ((0.0081795500000000007 * fVec34[((IOTA - 41) & 127)]) + ((0.00108066 * fVec34[((IOTA - 40) & 127)]) + ((0.0088403900000000001 * fVec34[((IOTA - 36) & 127)]) + ((0.0054466000000000002 * fVec34[((IOTA - 35) & 127)]) + ((0.0040393699999999996 * fVec34[((IOTA - 33) & 127)]) + ((0.033863999999999998 * fVec34[((IOTA - 29) & 127)]) + ((0.0092350000000000002 * fVec34[((IOTA - 28) & 127)]) + ((0.00053732699999999999 * fVec34[((IOTA - 26) & 127)]) + ((0.0043864799999999999 * fVec34[((IOTA - 24) & 127)]) + ((0.0027836500000000004 * fVec34[((IOTA - 23) & 127)]) + ((0.0092729000000000006 * fVec34[((IOTA - 22) & 127)]) + ((0.022299000000000003 * fVec34[((IOTA - 21) & 127)]) + ((0.0012059800000000002 * fVec34[((IOTA - 20) & 127)]) + ((0.025815500000000002 * fVec34[((IOTA - 17) & 127)]) + ((7.0800700000000008e-05 * fVec34[((IOTA - 9) & 127)]) + ((0.00076956600000000007 * fVec34[((IOTA - 8) & 127)]) + ((0.000231146 * fVec34[((IOTA - 5) & 127)]) + ((0.00014766099999999999 * fVec34[((IOTA - 4) & 127)]) + (((1.4833700000000001e-06 * fVec23[((IOTA - 126) & 127)]) + ((3.6973199999999999e-06 * fVec23[((IOTA - 125) & 127)]) + ((8.5058500000000009e-06 * fVec23[((IOTA - 124) & 127)]) + ((4.1470500000000002e-05 * fVec23[((IOTA - 123) & 127)]) + ((7.1901800000000003e-05 * fVec23[((IOTA - 122) & 127)]) + ((3.71676e-05 * fVec23[((IOTA - 121) & 127)]) + ((3.3982700000000002e-05 * fVec23[((IOTA - 119) & 127)]) + ((0.00016550199999999999 * fVec23[((IOTA - 118) & 127)]) + ((0.00015893600000000001 * fVec23[((IOTA - 117) & 127)]) + ((0.00011888700000000002 * fVec23[((IOTA - 116) & 127)]) + ((2.6751600000000003e-05 * fVec23[((IOTA - 115) & 127)]) + ((1.5261800000000004e-05 * fVec23[((IOTA - 114) & 127)]) + ((0.00030627700000000004 * fVec23[((IOTA - 113) & 127)]) + ((0.00036830800000000003 * fVec23[((IOTA - 112) & 127)]) + ((0.000251322 * fVec23[((IOTA - 111) & 127)]) + ((0.00022708 * fVec23[((IOTA - 110) & 127)]) + ((0.000239084 * fVec23[((IOTA - 109) & 127)]) + ((9.1238799999999995e-06 * fVec23[((IOTA - 108) & 127)]) + ((0.00015429699999999999 * fVec23[((IOTA - 90) & 127)]) + ((0.00021972700000000002 * fVec23[((IOTA - 89) & 127)]) + ((0.0011643300000000001 * fVec23[((IOTA - 82) & 127)]) + ((0.00065994200000000006 * fVec23[((IOTA - 77) & 127)]) + ((0.0017905 * fVec23[((IOTA - 76) & 127)]) + ((0.00015571700000000001 * fVec23[((IOTA - 71) & 127)]) + ((0.0044549899999999998 * fVec23[((IOTA - 70) & 127)]) + ((0.0039002500000000005 * fVec23[((IOTA - 69) & 127)]) + ((0.00054205300000000002 * fVec23[((IOTA - 68) & 127)]) + ((0.00164631 * fVec23[((IOTA - 67) & 127)]) + ((0.00128867 * fVec23[((IOTA - 66) & 127)]) + ((0.000377902 * fVec23[((IOTA - 65) & 127)]) + ((0.00227327 * fVec23[((IOTA - 64) & 127)]) + ((0.0030369999999999998 * fVec23[((IOTA - 63) & 127)]) + ((0.0023284899999999999 * fVec23[((IOTA - 62) & 127)]) + ((0.0020450900000000003 * fVec23[((IOTA - 61) & 127)]) + ((0.0038926099999999999 * fVec23[((IOTA - 60) & 127)]) + ((0.0051357799999999995 * fVec23[((IOTA - 59) & 127)]) + ((0.0057548899999999995 * fVec23[((IOTA - 58) & 127)]) + ((0.0110121 * fVec23[((IOTA - 57) & 127)]) + ((0.010980500000000001 * fVec23[((IOTA - 56) & 127)]) + ((0.0074067100000000004 * fVec23[((IOTA - 55) & 127)]) + ((0.0058000299999999994 * fVec23[((IOTA - 54) & 127)]) + ((0.0046881500000000003 * fVec23[((IOTA - 53) & 127)]) + ((0.0079024400000000002 * fVec23[((IOTA - 52) & 127)]) + ((0.0143637 * fVec23[((IOTA - 51) & 127)]) + ((0.018899099999999999 * fVec23[((IOTA - 50) & 127)]) + ((0.016699200000000001 * fVec23[((IOTA - 49) & 127)]) + ((0.0121522 * fVec23[((IOTA - 48) & 127)]) + ((0.011685700000000002 * fVec23[((IOTA - 47) & 127)]) + ((0.0122635 * fVec23[((IOTA - 46) & 127)]) + ((0.017027300000000002 * fVec23[((IOTA - 45) & 127)]) + ((0.019806900000000002 * fVec23[((IOTA - 44) & 127)]) + ((0.017303499999999999 * fVec23[((IOTA - 43) & 127)]) + ((0.017569399999999999 * fVec23[((IOTA - 42) & 127)]) + ((0.016072400000000001 * fVec23[((IOTA - 41) & 127)]) + ((0.0227996 * fVec23[((IOTA - 40) & 127)]) + ((0.016965000000000001 * fVec23[((IOTA - 39) & 127)]) + ((0.017693 * fVec23[((IOTA - 38) & 127)]) + ((0.033336499999999998 * fVec23[((IOTA - 37) & 127)]) + ((0.029073099999999998 * fVec23[((IOTA - 36) & 127)]) + ((0.018621700000000001 * fVec23[((IOTA - 35) & 127)]) + ((0.023295900000000001 * fVec23[((IOTA - 34) & 127)]) + ((0.030269900000000002 * fVec23[((IOTA - 33) & 127)]) + ((0.023498000000000002 * fVec23[((IOTA - 32) & 127)]) + ((0.012867100000000001 * fVec23[((IOTA - 31) & 127)]) + ((0.024658199999999998 * fVec23[((IOTA - 30) & 127)]) + ((0.033071500000000004 * fVec23[((IOTA - 29) & 127)]) + ((0.023601800000000003 * fVec23[((IOTA - 28) & 127)]) + ((0.025422899999999998 * fVec23[((IOTA - 27) & 127)]) + ((0.014210199999999999 * fVec23[((IOTA - 26) & 127)]) + ((0.010567 * fVec23[((IOTA - 25) & 127)]) + ((0.056895100000000004 * fVec23[((IOTA - 24) & 127)]) + ((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((1.96889e-05 * fTemp35) + (0.00012713900000000002 * fVec35[((IOTA - 1) & 127)])) + (0.00072445800000000009 * fVec35[((IOTA - 3) & 127)])) + (0.00084005400000000002 * fVec35[((IOTA - 4) & 127)])) + (0.00078251799999999995 * fVec35[((IOTA - 5) & 127)])) + (0.00064681700000000005 * fVec35[((IOTA - 6) & 127)])) + (0.00105561 * fVec35[((IOTA - 7) & 127)])) + (0.00107368 * fVec35[((IOTA - 8) & 127)])) + (0.00055752700000000004 * fVec35[((IOTA - 9) & 127)])) + (0.0020685400000000002 * fVec35[((IOTA - 10) & 127)])) + (0.0007391530000000001 * fVec35[((IOTA - 11) & 127)])) + (0.048941400000000003 * fVec35[((IOTA - 12) & 127)])) + (0.053001199999999998 * fVec35[((IOTA - 13) & 127)])) + (0.046698700000000003 * fVec35[((IOTA - 14) & 127)])) + (0.062211200000000001 * fVec35[((IOTA - 15) & 127)])) + (0.043948600000000004 * fVec35[((IOTA - 16) & 127)])) + (0.081345899999999999 * fVec35[((IOTA - 17) & 127)])) + (0.047424299999999996 * fVec35[((IOTA - 18) & 127)])) + (0.041405900000000002 * fVec35[((IOTA - 19) & 127)])) + (0.069732299999999997 * fVec35[((IOTA - 20) & 127)])) + (0.050380599999999998 * fVec35[((IOTA - 21) & 127)])) + (0.111697 * fVec35[((IOTA - 22) & 127)])) + (0.054464300000000007 * fVec35[((IOTA - 23) & 127)])) + (0.036801199999999999 * fVec35[((IOTA - 25) & 127)])) + (0.042423700000000002 * fVec35[((IOTA - 26) & 127)])) + (0.0075229400000000005 * fVec35[((IOTA - 27) & 127)])) + (0.0123141 * fVec35[((IOTA - 28) & 127)])) + (0.0216826 * fVec35[((IOTA - 29) & 127)])) + (0.017730600000000003 * fVec35[((IOTA - 30) & 127)])) + (0.0080194200000000011 * fVec35[((IOTA - 31) & 127)])) + (0.021074000000000002 * fVec35[((IOTA - 33) & 127)])) + (0.0272114 * fVec35[((IOTA - 34) & 127)])) + (0.0056564199999999997 * fVec35[((IOTA - 35) & 127)])) + (0.010539099999999999 * fVec35[((IOTA - 36) & 127)])) + (0.0081598500000000015 * fVec35[((IOTA - 37) & 127)])) + (0.0060665699999999994 * fVec35[((IOTA - 38) & 127)])) + (0.0072938400000000002 * fVec35[((IOTA - 39) & 127)])) + (0.0014525200000000001 * fVec35[((IOTA - 40) & 127)])) + (0.0049862900000000009 * fVec35[((IOTA - 41) & 127)])) + (0.014038399999999999 * fVec35[((IOTA - 42) & 127)])) + (0.0105579 * fVec35[((IOTA - 43) & 127)])) + (0.00431154 * fVec35[((IOTA - 45) & 127)])) + (0.0084629900000000001 * fVec35[((IOTA - 46) & 127)])) + (0.0007157 * fVec35[((IOTA - 47) & 127)])) + (0.00067166600000000002 * fVec35[((IOTA - 48) & 127)])) + (0.0046483699999999998 * fVec35[((IOTA - 49) & 127)])) + (0.0014356600000000001 * fVec35[((IOTA - 50) & 127)])) + (0.00020930100000000001 * fVec35[((IOTA - 51) & 127)])) + (0.00139635 * fVec35[((IOTA - 52) & 127)])) + (0.0029229899999999999 * fVec35[((IOTA - 53) & 127)])) + (0.0042595000000000003 * fVec35[((IOTA - 54) & 127)])) + (0.0039973999999999999 * fVec35[((IOTA - 55) & 127)])) + (4.49754e-06 * fVec35[((IOTA - 56) & 127)])) + (0.00278079 * fVec35[((IOTA - 58) & 127)])) + (0.0038020800000000002 * fVec35[((IOTA - 59) & 127)])) + (0.0026122100000000002 * fVec35[((IOTA - 60) & 127)])) + (0.00338193 * fVec35[((IOTA - 61) & 127)])) + (0.0064815100000000002 * fVec35[((IOTA - 62) & 127)])) + (0.0067297599999999996 * fVec35[((IOTA - 63) & 127)])) + (0.0038801100000000004 * fVec35[((IOTA - 64) & 127)])) + (0.0029381799999999999 * fVec35[((IOTA - 65) & 127)])) + (0.0016933400000000002 * fVec35[((IOTA - 66) & 127)])) + (0.0028127900000000003 * fVec35[((IOTA - 67) & 127)])) + (0.0033726400000000001 * fVec35[((IOTA - 68) & 127)])) + (0.00072404000000000001 * fVec35[((IOTA - 70) & 127)])) + (0.0019828699999999999 * fVec35[((IOTA - 71) & 127)])) + (0.0039087499999999999 * fVec35[((IOTA - 72) & 127)])) + (0.0053022700000000004 * fVec35[((IOTA - 73) & 127)])) + (0.0036032700000000004 * fVec35[((IOTA - 74) & 127)])) + (0.0053821700000000004 * fVec35[((IOTA - 75) & 127)])) + (0.0046326400000000004 * fVec35[((IOTA - 76) & 127)])) + (0.0020199900000000002 * fVec35[((IOTA - 77) & 127)])) + (0.0020409600000000001 * fVec35[((IOTA - 78) & 127)])) + (0.00144247 * fVec35[((IOTA - 79) & 127)])) + (0.0026692399999999998 * fVec35[((IOTA - 80) & 127)])) + (0.0015368900000000002 * fVec35[((IOTA - 81) & 127)])) + (2.5156400000000002e-05 * fVec35[((IOTA - 83) & 127)])) + (0.0010550900000000001 * fVec35[((IOTA - 84) & 127)])) + (0.0017505699999999999 * fVec35[((IOTA - 85) & 127)])) + (0.0026745600000000003 * fVec35[((IOTA - 86) & 127)])) + (0.00365475 * fVec35[((IOTA - 87) & 127)])) + (0.00193882 * fVec35[((IOTA - 88) & 127)])) + (0.0033512100000000003 * fVec35[((IOTA - 95) & 127)])) + (0.0025739000000000001 * fVec35[((IOTA - 96) & 127)])) + (0.00059498000000000005 * fVec35[((IOTA - 99) & 127)])) + (0.00094503799999999993 * fVec35[((IOTA - 100) & 127)])) + (0.0013272 * fVec35[((IOTA - 101) & 127)])) + (0.00147426 * fVec35[((IOTA - 102) & 127)])) + (0.0018419899999999999 * fVec35[((IOTA - 103) & 127)])) + (0.0012236 * fVec35[((IOTA - 104) & 127)])) + (0.00100501 * fVec35[((IOTA - 105) & 127)])) + (0.0016259900000000001 * fVec35[((IOTA - 106) & 127)])) + (0.0013097499999999999 * fVec35[((IOTA - 107) & 127)])) + (0.00095978899999999995 * fVec35[((IOTA - 108) & 127)])) + (0.000779071 * fVec35[((IOTA - 109) & 127)])) + (0.00070924500000000006 * fVec35[((IOTA - 110) & 127)])) + (0.0010336799999999999 * fVec35[((IOTA - 111) & 127)])) + (0.00050421999999999999 * fVec35[((IOTA - 112) & 127)])) + (0.00042659700000000002 * fVec35[((IOTA - 113) & 127)])) + (0.00050803600000000001 * fVec35[((IOTA - 114) & 127)])) + (0.00050261399999999997 * fVec35[((IOTA - 115) & 127)])) + (0.00038352400000000005 * fVec35[((IOTA - 116) & 127)])) + (0.00016114100000000001 * fVec35[((IOTA - 117) & 127)])) + (0.00020216400000000001 * fVec35[((IOTA - 118) & 127)])) + (0.000195057 * fVec35[((IOTA - 119) & 127)])) + (0.000117308 * fVec35[((IOTA - 120) & 127)])) + (5.5996800000000006e-05 * fVec35[((IOTA - 121) & 127)])) + (7.3980599999999995e-07 * fVec35[((IOTA - 123) & 127)])) + (1.69708e-05 * fVec35[((IOTA - 124) & 127)])) + (7.1374800000000001e-06 * fVec35[((IOTA - 125) & 127)])) + (1.74779e-06 * fVec35[((IOTA - 126) & 127)])) + (0.00027516900000000002 * fVec23[((IOTA - 2) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00018497500000000001 * fVec34[((IOTA - 46) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.021176 * fVec33[((IOTA - 22) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00017575500000000001 * fVec32[((IOTA - 66) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.013509400000000001 * fVec0[((IOTA - 32) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00034814200000000002 * fVec4[((IOTA - 76) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00047378999999999998 * fVec31[((IOTA - 14) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0010471900000000001 * fVec30[((IOTA - 7) & 127)])))))))))))))))))))))))))))))))))))))))))))) + (0.00078433799999999998 * fVec29[((IOTA - 53) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.030915100000000001 * fVec27[((IOTA - 29) & 127)]))))))))))))))))))))))))))))))))))))))))))))))) + (0.00023603400000000001 * fVec6[((IOTA - 3) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (6.5829500000000002e-06 * fVec26[((IOTA - 1) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (5.4750600000000001e-07 * fVec25[((IOTA - 1) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.030204100000000001 * fVec20[((IOTA - 25) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00052553599999999995 * fVec19[((IOTA - 5) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0021927500000000003 * fVec14[((IOTA - 38) & 127)])) + (0.0083352199999999991 * fVec14[((IOTA - 39) & 127)])) + (8.3406000000000007e-05 * fVec14[((IOTA - 40) & 127)])) + (0.0031513300000000004 * fVec14[((IOTA - 42) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (3.6319699999999997e-06 * fTemp5)) + (2.4576800000000002e-05 * fVec5[((IOTA - 2) & 127)])) + (0.00015069900000000002 * fVec5[((IOTA - 4) & 127)])) + (0.00060193700000000009 * fVec5[((IOTA - 8) & 127)])) + (0.000675301 * fVec5[((IOTA - 9) & 127)])) + (0.0011334299999999999 * fVec5[((IOTA - 12) & 127)])) + (0.00047542500000000002 * fVec5[((IOTA - 13) & 127)])) + (0.0059456100000000005 * fVec5[((IOTA - 16) & 127)])) + (0.0126277 * fVec5[((IOTA - 17) & 127)])) + (0.0025068899999999999 * fVec5[((IOTA - 18) & 127)])) + (0.0385717 * fVec5[((IOTA - 21) & 127)])) + (0.0170557 * fVec5[((IOTA - 25) & 127)])) + (0.0126768 * fVec5[((IOTA - 26) & 127)])) + (0.0115049 * fVec5[((IOTA - 30) & 127)])) + (0.0055829800000000004 * fVec5[((IOTA - 33) & 127)])) + (0.0064408899999999995 * fVec5[((IOTA - 34) & 127)])) + (0.000104873 * fVec5[((IOTA - 35) & 127)])) + (0.0071838199999999996 * fVec5[((IOTA - 37) & 127)])) + (0.0011544700000000001 * fVec5[((IOTA - 44) & 127)])) + (0.00097338799999999994 * fVec5[((IOTA - 45) & 127)])) + (0.0016260699999999999 * fVec5[((IOTA - 46) & 127)])) + (0.0020304099999999999 * fVec5[((IOTA - 47) & 127)])) + (0.0019771099999999998 * fVec5[((IOTA - 49) & 127)])) + (0.00125431 * fVec5[((IOTA - 50) & 127)])) + (0.0019231300000000001 * fVec5[((IOTA - 51) & 127)])) + (0.0029441700000000003 * fVec5[((IOTA - 52) & 127)])) + (0.0050931100000000005 * fVec5[((IOTA - 53) & 127)])) + (0.00340691 * fVec5[((IOTA - 54) & 127)])) + (0.00037213200000000001 * fVec5[((IOTA - 57) & 127)])) + (0.000706466 * fVec5[((IOTA - 63) & 127)])) + (0.00020927699999999998 * fVec5[((IOTA - 64) & 127)])) + (0.0028972400000000001 * fVec5[((IOTA - 66) & 127)])) + (0.0038660999999999999 * fVec5[((IOTA - 67) & 127)])) + (0.00062221300000000004 * fVec5[((IOTA - 68) & 127)]))) + (2.1830800000000001e-05 * fVec5[((IOTA - 71) & 127)])) + (0.00124657 * fVec5[((IOTA - 77) & 127)])) + (0.0012989399999999999 * fVec5[((IOTA - 78) & 127)])) + (0.00069349199999999998 * fVec5[((IOTA - 79) & 127)])) + (0.0013639300000000002 * fVec5[((IOTA - 80) & 127)])) + (0.00042755500000000004 * fVec5[((IOTA - 81) & 127)])) + (0.00055465799999999997 * fVec5[((IOTA - 86) & 127)])) + (0.00059551999999999999 * fVec5[((IOTA - 87) & 127)]))))))))))))))))))) + (1.02701e-05 * fVec8[((IOTA - 1) & 127)])) + (0.00014154700000000001 * fVec8[((IOTA - 2) & 127)])) + (0.00046685400000000005 * fVec8[((IOTA - 5) & 127)])) + (0.00035533899999999998 * fVec8[((IOTA - 6) & 127)])) + (0.00086630000000000008 * fVec8[((IOTA - 9) & 127)])) + (0.00099208 * fVec8[((IOTA - 11) & 127)])) + (0.039329700000000002 * fVec8[((IOTA - 14) & 127)])) + (0.0149163 * fVec8[((IOTA - 15) & 127)])) + (0.0064296300000000004 * fVec8[((IOTA - 18) & 127)])) + (0.035226500000000001 * fVec8[((IOTA - 19) & 127)])) + (0.0130171 * fVec8[((IOTA - 20) & 127)])) + (0.0061437900000000005 * fVec8[((IOTA - 21) & 127)])) + (0.0102132 * fVec8[((IOTA - 24) & 127)])) + (0.024535600000000001 * fVec8[((IOTA - 25) & 127)])) + (0.020671599999999998 * fVec8[((IOTA - 26) & 127)])) + (0.023538899999999998 * fVec8[((IOTA - 31) & 127)])) + (0.011447000000000001 * fVec8[((IOTA - 32) & 127)])) + (0.0032104900000000003 * fVec8[((IOTA - 36) & 127)])) + (0.0094747700000000004 * fVec8[((IOTA - 38) & 127)])) + (0.0010198799999999999 * fVec8[((IOTA - 39) & 127)])) + (0.0027844300000000001 * fVec8[((IOTA - 43) & 127)])) + (0.0067384899999999998 * fVec8[((IOTA - 44) & 127)])) + (0.0032535099999999998 * fVec8[((IOTA - 45) & 127)])) + (0.00141698 * fVec8[((IOTA - 48) & 127)])) + (0.0024531600000000002 * fVec8[((IOTA - 50) & 127)])) + (0.0045924500000000005 * fVec8[((IOTA - 51) & 127)])) + (0.0022929000000000001 * fVec8[((IOTA - 52) & 127)])) + (0.000275949 * fVec8[((IOTA - 55) & 127)])) + (0.0032251900000000002 * fVec8[((IOTA - 56) & 127)])) + (0.0035572200000000003 * fVec8[((IOTA - 57) & 127)])) + (0.0024816700000000001 * fVec8[((IOTA - 58) & 127)])) + (0.0008441150000000001 * fVec8[((IOTA - 64) & 127)])) + (0.00126202 * fVec8[((IOTA - 65) & 127)])) + (4.5858600000000002e-06 * fVec8[((IOTA - 66) & 127)])) + (0.00012734500000000001 * fVec8[((IOTA - 67) & 127)])) + (0.00078859399999999999 * fVec8[((IOTA - 70) & 127)])) + (0.0027678099999999999 * fVec8[((IOTA - 71) & 127)])) + (0.00243735 * fVec8[((IOTA - 72) & 127)])) + (0.0010027700000000001 * fVec8[((IOTA - 75) & 127)])) + (0.00079166000000000002 * fVec8[((IOTA - 76) & 127)])) + (0.00167515 * fVec8[((IOTA - 77) & 127)])) + (0.00021579799999999998 * fVec8[((IOTA - 78) & 127)])) + (0.00032569200000000004 * fVec8[((IOTA - 82) & 127)])) + (0.00095692800000000001 * fVec8[((IOTA - 83) & 127)])) + (2.0754000000000002e-05 * fVec8[((IOTA - 84) & 127)])) + (0.00018321300000000002 * fVec8[((IOTA - 87) & 127)])) + (0.00085020799999999998 * fVec8[((IOTA - 88) & 127)])) + (0.00109749 * fVec8[((IOTA - 95) & 127)])) + (0.0013883300000000001 * fVec8[((IOTA - 96) & 127)])) + (0.00038612800000000001 * fVec8[((IOTA - 97) & 127)]))) + (0.00014013400000000001 * fVec8[((IOTA - 99) & 127)])) + (0.00037413600000000001 * fVec8[((IOTA - 100) & 127)]))))) + (0.00049498900000000004 * fVec8[((IOTA - 108) & 127)]))))) + (0.00021690700000000002 * fVec8[((IOTA - 115) & 127)])) + (0.00011256800000000001 * fVec8[((IOTA - 116) & 127)])) + (3.56627e-05 * fVec8[((IOTA - 121) & 127)])) + (7.3778699999999997e-06 * fVec8[((IOTA - 122) & 127)])) + (3.6607499999999997e-07 * fVec8[((IOTA - 123) & 127)])) + (2.7659199999999998e-06 * fVec8[((IOTA - 124) & 127)])) + (3.8413599999999999e-06 * fVec8[((IOTA - 125) & 127)])) + (0.00050295899999999998 * fVec1[((IOTA - 102) & 127)])))))) + (0.00034800800000000002 * fVec1[((IOTA - 106) & 127)])) + (0.00076432900000000012 * fVec1[((IOTA - 107) & 127)])) + (0.000187338 * fVec1[((IOTA - 110) & 127)])) + (0.00062120000000000003 * fVec1[((IOTA - 111) & 127)])) + (0.00025635600000000001 * fVec1[((IOTA - 112) & 127)])) + (2.3915799999999999e-05 * fVec1[((IOTA - 113) & 127)])) + (8.1593800000000005e-06 * fVec1[((IOTA - 115) & 127)])))) + (1.0137500000000001e-05 * fTemp1)) + (4.6548500000000003e-05 * fVec1[((IOTA - 2) & 127)])) + (0.00088798200000000005 * fVec1[((IOTA - 8) & 127)])) + (0.00069891699999999996 * fVec1[((IOTA - 9) & 127)])) + (0.00181913 * fVec1[((IOTA - 13) & 127)])) + (0.0054863400000000001 * fVec1[((IOTA - 15) & 127)])) + (0.0019924000000000001 * fVec1[((IOTA - 16) & 127)])) + (0.013652599999999999 * fVec1[((IOTA - 17) & 127)])) + (0.00159373 * fVec1[((IOTA - 20) & 127)])) + (0.036081500000000002 * fVec1[((IOTA - 21) & 127)])) + (0.0030950299999999999 * fVec1[((IOTA - 24) & 127)])) + (0.037774599999999998 * fVec1[((IOTA - 25) & 127)])) + (0.028828200000000002 * fVec1[((IOTA - 26) & 127)])) + (0.000204141 * fVec1[((IOTA - 29) & 127)])) + (0.0042742800000000001 * fVec1[((IOTA - 31) & 127)])) + (0.0089989399999999987 * fVec1[((IOTA - 32) & 127)])) + (0.0068589700000000007 * fVec1[((IOTA - 33) & 127)])) + (0.0060432200000000002 * fVec1[((IOTA - 34) & 127)])) + (0.0039135200000000002 * fVec1[((IOTA - 36) & 127)])) + (0.00316628 * fVec1[((IOTA - 37) & 127)])) + (0.00133088 * fVec1[((IOTA - 38) & 127)])) + (0.00039082200000000003 * fVec1[((IOTA - 39) & 127)])) + (0.00158516 * fVec1[((IOTA - 44) & 127)])) + (0.0065423600000000005 * fVec1[((IOTA - 45) & 127)])) + (0.00189017 * fVec1[((IOTA - 46) & 127)])) + (0.00057413199999999998 * fVec1[((IOTA - 50) & 127)])) + (0.0020712 * fVec1[((IOTA - 51) & 127)])) + (0.0018052900000000002 * fVec1[((IOTA - 53) & 127)])) + (0.0023703500000000002 * fVec1[((IOTA - 57) & 127)])) + (0.0036706899999999999 * fVec1[((IOTA - 58) & 127)])) + (0.00030227500000000002 * fVec1[((IOTA - 59) & 127)])) + (9.7681400000000017e-05 * fVec1[((IOTA - 63) & 127)])) + (0.00059178400000000004 * fVec1[((IOTA - 64) & 127)])) + (0.00086177900000000002 * fVec1[((IOTA - 65) & 127)])) + (0.00143107 * fVec1[((IOTA - 66) & 127)])) + (0.00028822199999999998 * fVec1[((IOTA - 67) & 127)])) + (0.0016012900000000002 * fVec1[((IOTA - 69) & 127)])) + (0.0020469400000000001 * fVec1[((IOTA - 70) & 127)])) + (0.00059196600000000009 * fVec1[((IOTA - 71) & 127)])) + (0.00073552900000000007 * fVec1[((IOTA - 72) & 127)])) + (0.000178321 * fVec1[((IOTA - 73) & 127)])) + (0.00043909900000000009 * fVec1[((IOTA - 74) & 127)])) + (0.00043622600000000001 * fVec1[((IOTA - 76) & 127)])) + (0.0027763100000000001 * fVec1[((IOTA - 77) & 127)])) + (0.0030928000000000001 * fVec1[((IOTA - 78) & 127)])) + (0.00262714 * fVec1[((IOTA - 79) & 127)])) + (0.00047957900000000005 * fVec1[((IOTA - 82) & 127)])) + (0.0010505599999999999 * fVec1[((IOTA - 86) & 127)])) + (0.00060150800000000006 * fVec1[((IOTA - 90) & 127)])) + (0.0015832200000000002 * fVec1[((IOTA - 91) & 127)]))) + (0.00063118199999999999 * fVec1[((IOTA - 98) & 127)])) + (0.000225169 * fVec1[((IOTA - 99) & 127)])) + (0.00029375200000000004 * fVec2[((IOTA - 4) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.1276500000000001e-05 * fTemp3)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) - ((0.019952500000000001 * (fVec25[((IOTA - 32) & 127)] + fVec13[((IOTA - 19) & 127)])) + ((0.0013939500000000001 * (fVec0[((IOTA - 78) & 127)] - fVec16[((IOTA - 58) & 127)])) + ((0.011907399999999999 * (fVec28[((IOTA - 33) & 127)] + fVec21[((IOTA - 23) & 127)])) + ((3.5387599999999999e-07 * fVec2[((IOTA - 126) & 127)]) + ((1.7257199999999999e-07 * fVec2[((IOTA - 124) & 127)]) + ((1.0509000000000001e-05 * fVec2[((IOTA - 123) & 127)]) + ((2.64133e-07 * fVec2[((IOTA - 122) & 127)]) + ((1.88962e-06 * fVec3[((IOTA - 124) & 127)]) + ((1.2972200000000001e-05 * fVec3[((IOTA - 123) & 127)]) + ((1.0935700000000001e-05 * fVec3[((IOTA - 122) & 127)]) + ((1.8612200000000001e-05 * fVec3[((IOTA - 121) & 127)]) + ((3.9623600000000005e-05 * fVec3[((IOTA - 120) & 127)]) + ((6.4674599999999999e-05 * fVec3[((IOTA - 119) & 127)]) + ((3.9744300000000005e-05 * fVec3[((IOTA - 118) & 127)]) + ((6.1891600000000009e-05 * fVec3[((IOTA - 117) & 127)]) + ((0.00013154600000000002 * fVec3[((IOTA - 116) & 127)]) + ((0.00014730600000000002 * fVec3[((IOTA - 115) & 127)]) + ((7.1850599999999999e-05 * fVec3[((IOTA - 114) & 127)]) + ((0.00018714500000000003 * fVec3[((IOTA - 111) & 127)]) + ((0.00013017200000000001 * fVec3[((IOTA - 110) & 127)]) + ((0.00016379800000000002 * fVec3[((IOTA - 106) & 127)]) + ((6.8155400000000015e-05 * fVec3[((IOTA - 105) & 127)]) + ((0.000356807 * fVec3[((IOTA - 94) & 127)]) + ((0.00010998000000000001 * fVec3[((IOTA - 92) & 127)]) + ((0.00137693 * fVec3[((IOTA - 91) & 127)]) + ((0.00038515799999999997 * fVec3[((IOTA - 90) & 127)]) + ((0.0013470000000000001 * fVec3[((IOTA - 87) & 127)]) + ((0.000719942 * fVec3[((IOTA - 86) & 127)]) + ((0.00032487800000000002 * fVec3[((IOTA - 83) & 127)]) + ((3.1829800000000005e-05 * fVec3[((IOTA - 82) & 127)]) + ((0.0013521000000000002 * fVec3[((IOTA - 79) & 127)]) + ((0.0020066400000000001 * fVec3[((IOTA - 78) & 127)]) + ((0.0012834600000000002 * fVec3[((IOTA - 74) & 127)]) + ((0.0013223400000000002 * fVec3[((IOTA - 73) & 127)]) + ((0.00066997600000000008 * fVec3[((IOTA - 71) & 127)]) + ((0.00028885500000000003 * fVec3[((IOTA - 68) & 127)]) + ((0.00049617300000000004 * fVec3[((IOTA - 67) & 127)]) + ((0.00035371400000000004 * fVec3[((IOTA - 66) & 127)]) + ((0.00021810000000000002 * fVec3[((IOTA - 65) & 127)]) + ((0.00046019100000000004 * fVec3[((IOTA - 64) & 127)]) + ((0.00115073 * fVec3[((IOTA - 63) & 127)]) + ((0.00097666000000000007 * fVec3[((IOTA - 62) & 127)]) + ((0.00151538 * fVec3[((IOTA - 59) & 127)]) + ((0.00084158200000000001 * fVec3[((IOTA - 58) & 127)]) + ((0.0053566900000000008 * fVec3[((IOTA - 54) & 127)]) + ((0.0056201200000000002 * fVec3[((IOTA - 53) & 127)]) + ((0.0026897799999999997 * fVec3[((IOTA - 52) & 127)]) + ((8.6894300000000006e-05 * fVec3[((IOTA - 50) & 127)]) + ((0.0021847699999999999 * fVec3[((IOTA - 49) & 127)]) + ((0.000149884 * fVec3[((IOTA - 48) & 127)]) + ((0.0011263499999999999 * fVec3[((IOTA - 45) & 127)]) + ((0.00509335 * fVec3[((IOTA - 41) & 127)]) + ((0.0011182499999999999 * fVec3[((IOTA - 38) & 127)]) + ((0.0016788300000000001 * fVec3[((IOTA - 37) & 127)]) + ((0.008711700000000001 * fVec3[((IOTA - 33) & 127)]) + ((0.0095986700000000001 * fVec3[((IOTA - 32) & 127)]) + ((0.0029319899999999998 * fVec3[((IOTA - 31) & 127)]) + ((0.0060741800000000002 * fVec3[((IOTA - 29) & 127)]) + ((0.012128399999999999 * fVec3[((IOTA - 28) & 127)]) + ((0.022111800000000001 * fVec3[((IOTA - 27) & 127)]) + ((0.0070419100000000002 * fVec3[((IOTA - 25) & 127)]) + ((0.025463 * fVec3[((IOTA - 21) & 127)]) + ((0.0094445700000000011 * fVec3[((IOTA - 20) & 127)]) + ((0.040986200000000007 * fVec3[((IOTA - 17) & 127)]) + ((0.0232394 * fVec3[((IOTA - 16) & 127)]) + ((0.0092197700000000004 * fVec3[((IOTA - 12) & 127)]) + ((0.00099274799999999989 * fVec3[((IOTA - 11) & 127)]) + ((0.00090807000000000008 * fVec3[((IOTA - 9) & 127)]) + ((1.3656800000000001e-05 * fVec3[((IOTA - 8) & 127)]) + ((0.00047334800000000006 * fVec3[((IOTA - 7) & 127)]) + ((0.00056994300000000006 * fVec3[((IOTA - 5) & 127)]) + ((0.00016988300000000001 * fVec3[((IOTA - 4) & 127)]) + ((0.000533286 * fVec3[((IOTA - 3) & 127)]) + (((6.0561999999999997e-06 * fVec2[((IOTA - 120) & 127)]) + ((1.85995e-05 * fVec2[((IOTA - 121) & 127)]) + ((1.31045e-05 * fVec2[((IOTA - 114) & 127)]) + ((7.8594199999999994e-06 * fVec2[((IOTA - 119) & 127)]) + ((0.000108287 * fVec2[((IOTA - 111) & 127)]) + ((8.0248799999999996e-05 * fVec2[((IOTA - 110) & 127)]) + ((0.00010179300000000001 * fVec2[((IOTA - 107) & 127)]) + ((6.9430699999999999e-05 * fVec2[((IOTA - 101) & 127)]) + ((0.00037864900000000005 * fVec2[((IOTA - 98) & 127)]) + ((0.00031944200000000002 * fVec2[((IOTA - 97) & 127)]) + ((0.00063309400000000006 * fVec2[((IOTA - 95) & 127)]) + ((0.00154521 * fVec2[((IOTA - 94) & 127)]) + ((0.00032423500000000003 * fVec2[((IOTA - 93) & 127)]) + ((0.00040066800000000002 * fVec2[((IOTA - 92) & 127)]) + ((0.0011881600000000002 * fVec2[((IOTA - 91) & 127)]) + ((0.00014360999999999999 * fVec2[((IOTA - 88) & 127)]) + ((0.0012552500000000001 * fVec2[((IOTA - 87) & 127)]) + ((0.0011276200000000002 * fVec2[((IOTA - 86) & 127)]) + ((0.0013305999999999999 * fVec2[((IOTA - 85) & 127)]) + ((0.00220105 * fVec2[((IOTA - 84) & 127)]) + ((0.00028070500000000002 * fVec2[((IOTA - 83) & 127)]) + ((0.00019803400000000001 * fVec2[((IOTA - 81) & 127)]) + ((0.000719536 * fVec2[((IOTA - 77) & 127)]) + ((0.00023482 * fVec2[((IOTA - 75) & 127)]) + ((0.00053795000000000004 * fVec2[((IOTA - 73) & 127)]) + ((0.00141146 * fVec2[((IOTA - 72) & 127)]) + ((0.00095293700000000005 * fVec2[((IOTA - 71) & 127)]) + ((0.0013829300000000001 * fVec2[((IOTA - 67) & 127)]) + ((0.0024797400000000002 * fVec2[((IOTA - 66) & 127)]) + ((0.0021595200000000003 * fVec2[((IOTA - 65) & 127)]) + ((0.00055027799999999997 * fVec2[((IOTA - 64) & 127)]) + ((0.00037787200000000002 * fVec2[((IOTA - 61) & 127)]) + ((0.0017943199999999999 * fVec2[((IOTA - 58) & 127)]) + ((0.00043604399999999996 * fVec2[((IOTA - 57) & 127)]) + ((0.0030510400000000001 * fVec2[((IOTA - 54) & 127)]) + ((0.0032679499999999999 * fVec2[((IOTA - 53) & 127)]) + ((0.0016038300000000001 * fVec2[((IOTA - 52) & 127)]) + ((0.0023069200000000001 * fVec2[((IOTA - 51) & 127)]) + ((0.00023969600000000002 * fVec2[((IOTA - 47) & 127)]) + ((0.0012663199999999998 * fVec2[((IOTA - 46) & 127)]) + ((0.0024327299999999997 * fVec2[((IOTA - 45) & 127)]) + ((0.0029054900000000002 * fVec2[((IOTA - 44) & 127)]) + ((0.0022215600000000005 * fVec2[((IOTA - 41) & 127)]) + ((0.0013207500000000001 * fVec2[((IOTA - 40) & 127)]) + ((0.0072914300000000007 * fVec2[((IOTA - 39) & 127)]) + ((0.00412913 * fVec2[((IOTA - 38) & 127)]) + ((0.0036310699999999997 * fVec2[((IOTA - 35) & 127)]) + ((0.024170899999999999 * fVec2[((IOTA - 34) & 127)]) + ((0.0017220500000000001 * fVec2[((IOTA - 33) & 127)]) + ((0.0122118 * fVec2[((IOTA - 28) & 127)]) + ((0.00166183 * fVec2[((IOTA - 27) & 127)]) + ((0.019867699999999999 * fVec2[((IOTA - 25) & 127)]) + ((0.0369366 * fVec2[((IOTA - 22) & 127)]) + ((0.032542599999999998 * fVec2[((IOTA - 19) & 127)]) + ((0.034134699999999997 * fVec2[((IOTA - 18) & 127)]) + ((0.0042810899999999995 * fVec2[((IOTA - 14) & 127)]) + ((0.00041230200000000008 * fVec2[((IOTA - 13) & 127)]) + ((0.0064589699999999996 * fVec2[((IOTA - 12) & 127)]) + ((0.0015071799999999999 * fVec2[((IOTA - 10) & 127)]) + ((0.00079139900000000003 * fVec2[((IOTA - 9) & 127)]) + ((0.00093245700000000003 * fVec2[((IOTA - 6) & 127)]) + ((0.00020629700000000001 * fVec2[((IOTA - 5) & 127)]) + ((0.00015997800000000002 * fVec2[((IOTA - 3) & 127)]) + ((5.5292199999999999e-05 * fVec2[((IOTA - 2) & 127)]) + ((4.2160500000000004e-05 * fVec2[((IOTA - 1) & 127)]) + ((((((0.00089910999999999995 * fVec1[((IOTA - 96) & 127)]) + ((((0.00082320800000000008 * fVec1[((IOTA - 92) & 127)]) + ((0.00056911199999999998 * fVec1[((IOTA - 89) & 127)]) + ((((((((((((((((((((((((((((((((((((((((((1.3101100000000002e-05 * fVec1[((IOTA - 117) & 127)]) + (((((((7.8918999999999994e-07 * fVec1[((IOTA - 126) & 127)]) + ((1.43513e-06 * fVec1[((IOTA - 125) & 127)]) + ((2.0324300000000002e-06 * fVec1[((IOTA - 120) & 127)]) + (((((((3.3404600000000002e-05 * fVec8[((IOTA - 113) & 127)]) + (((0.00018796700000000001 * fVec8[((IOTA - 110) & 127)]) + (((((((((((((((((((((((((((((((((((((((((((((((((((((((3.3095899999999998e-06 * fVec5[((IOTA - 125) & 127)]) + ((4.7186399999999994e-07 * fVec5[((IOTA - 124) & 127)]) + ((7.4174700000000007e-05 * fVec5[((IOTA - 120) & 127)]) + ((7.7359000000000003e-05 * fVec5[((IOTA - 119) & 127)]) + ((6.394730000000001e-05 * fVec5[((IOTA - 117) & 127)]) + ((0.00017427100000000001 * fVec5[((IOTA - 116) & 127)]) + ((0.00012311099999999999 * fVec5[((IOTA - 115) & 127)]) + ((7.1814100000000008e-05 * fVec5[((IOTA - 114) & 127)]) + ((1.4596900000000001e-05 * fVec5[((IOTA - 113) & 127)]) + ((0.00024714399999999998 * fVec5[((IOTA - 112) & 127)]) + ((0.00046465699999999999 * fVec5[((IOTA - 111) & 127)]) + ((0.000294806 * fVec5[((IOTA - 110) & 127)]) + ((0.00024303000000000001 * fVec5[((IOTA - 109) & 127)]) + ((0.00020111799999999999 * fVec5[((IOTA - 108) & 127)]) + ((4.3534300000000008e-05 * fVec5[((IOTA - 107) & 127)]) + ((0.000132294 * fVec5[((IOTA - 106) & 127)]) + ((0.00023640900000000001 * fVec5[((IOTA - 105) & 127)]) + ((0.00030904199999999999 * fVec5[((IOTA - 104) & 127)]) + ((0.00048926600000000003 * fVec5[((IOTA - 103) & 127)]) + ((0.00014898900000000001 * fVec5[((IOTA - 102) & 127)]) + ((0.00036149400000000002 * fVec5[((IOTA - 95) & 127)]) + ((0.00048925400000000006 * fVec5[((IOTA - 89) & 127)]) + ((0.00118464 * fVec5[((IOTA - 88) & 127)]) + ((0.00070410700000000004 * fVec5[((IOTA - 85) & 127)]) + ((0.0024227599999999999 * fVec5[((IOTA - 84) & 127)]) + ((0.00265679 * fVec5[((IOTA - 83) & 127)]) + ((0.00053618700000000004 * fVec5[((IOTA - 82) & 127)]) + ((0.00093539700000000003 * fVec5[((IOTA - 76) & 127)]) + ((0.0022656299999999998 * fVec5[((IOTA - 75) & 127)]) + ((0.0033662499999999999 * fVec5[((IOTA - 74) & 127)]) + ((0.0013667 * fVec5[((IOTA - 73) & 127)]) + ((0.0013000100000000001 * fVec5[((IOTA - 72) & 127)]) + ((0.00085172299999999998 * fVec5[((IOTA - 69) & 127)]) + ((0.00092161000000000012 * fVec5[((IOTA - 65) & 127)]) + ((0.00096749600000000009 * fVec5[((IOTA - 62) & 127)]) + ((0.00208793 * fVec5[((IOTA - 61) & 127)]) + ((0.0039472500000000002 * fVec5[((IOTA - 60) & 127)]) + ((0.0035667300000000002 * fVec5[((IOTA - 59) & 127)]) + ((0.0015280199999999999 * fVec5[((IOTA - 58) & 127)]) + ((0.00135731 * fVec5[((IOTA - 56) & 127)]) + ((0.0024045100000000003 * fVec5[((IOTA - 55) & 127)]) + ((0.00179843 * fVec5[((IOTA - 48) & 127)]) + ((0.00093652300000000009 * fVec5[((IOTA - 43) & 127)]) + ((0.00062249400000000002 * fVec5[((IOTA - 42) & 127)]) + ((0.0034119799999999998 * fVec5[((IOTA - 41) & 127)]) + ((0.00098740600000000013 * fVec5[((IOTA - 40) & 127)]) + ((0.0055919800000000007 * fVec5[((IOTA - 39) & 127)]) + ((0.0010025500000000001 * fVec5[((IOTA - 38) & 127)]) + ((0.00663592 * fVec5[((IOTA - 36) & 127)]) + ((0.0047425499999999999 * fVec5[((IOTA - 32) & 127)]) + ((0.0062932100000000005 * fVec5[((IOTA - 31) & 127)]) + ((0.010758799999999999 * fVec5[((IOTA - 29) & 127)]) + ((0.0038245200000000001 * fVec5[((IOTA - 28) & 127)]) + ((0.0112476 * fVec5[((IOTA - 27) & 127)]) + ((0.016027 * fVec5[((IOTA - 24) & 127)]) + ((0.0046430400000000002 * fVec5[((IOTA - 23) & 127)]) + ((0.0042897200000000003 * fVec5[((IOTA - 22) & 127)]) + ((0.00073910200000000005 * fVec5[((IOTA - 20) & 127)]) + ((0.043083799999999998 * fVec5[((IOTA - 19) & 127)]) + ((0.00064792100000000009 * fVec5[((IOTA - 15) & 127)]) + ((0.0040079500000000006 * fVec5[((IOTA - 14) & 127)]) + ((0.00044004100000000001 * fVec5[((IOTA - 11) & 127)]) + ((0.00087964000000000011 * fVec5[((IOTA - 10) & 127)]) + ((0.000268464 * fVec5[((IOTA - 7) & 127)]) + ((0.00026824800000000001 * fVec5[((IOTA - 6) & 127)]) + ((8.4505199999999992e-05 * fVec5[((IOTA - 5) & 127)]) + ((0.000134394 * fVec5[((IOTA - 3) & 127)]) + (((1.6301099999999998e-07 * fVec7[((IOTA - 126) & 127)]) + ((3.7258200000000002e-07 * fVec7[((IOTA - 124) & 127)]) + ((1.4570900000000001e-05 * fVec7[((IOTA - 123) & 127)]) + ((1.0674400000000001e-05 * fVec7[((IOTA - 122) & 127)]) + ((6.8187499999999997e-06 * fVec7[((IOTA - 118) & 127)]) + ((1.22155e-05 * fVec7[((IOTA - 117) & 127)]) + ((0.0043432500000000008 * fVec7[((IOTA - 43) & 127)]) + ((0.0026580699999999998 * fVec7[((IOTA - 42) & 127)]) + ((0.00046081399999999998 * fVec7[((IOTA - 38) & 127)]) + ((0.000349336 * fVec7[((IOTA - 37) & 127)]) + ((0.017148099999999999 * fVec7[((IOTA - 36) & 127)]) + ((0.0011150800000000001 * fVec7[((IOTA - 33) & 127)]) + ((0.0037448400000000001 * fVec7[((IOTA - 32) & 127)]) + ((0.0050101600000000005 * fVec7[((IOTA - 31) & 127)]) + ((0.014650700000000001 * fVec7[((IOTA - 29) & 127)]) + ((0.0095669599999999994 * fVec7[((IOTA - 24) & 127)]) + ((0.0066888099999999999 * fVec7[((IOTA - 23) & 127)]) + ((0.0362081 * fVec7[((IOTA - 22) & 127)]) + ((0.0014289800000000001 * fVec7[((IOTA - 19) & 127)]) + ((0.034642600000000003 * fVec7[((IOTA - 17) & 127)]) + ((0.015890000000000001 * fVec7[((IOTA - 16) & 127)]) + ((0.0022824399999999997 * fVec7[((IOTA - 13) & 127)]) + ((0.0135867 * fVec7[((IOTA - 12) & 127)]) + ((0.00120929 * fVec7[((IOTA - 10) & 127)]) + ((0.00068705900000000006 * fVec7[((IOTA - 8) & 127)]) + ((4.5115800000000004e-06 * fVec7[((IOTA - 7) & 127)]) + ((0.00045277399999999997 * fVec7[((IOTA - 4) & 127)]) + ((0.000126525 * fVec7[((IOTA - 3) & 127)]) + ((5.86263e-06 * fVec7[((IOTA - 1) & 127)]) + ((1.0597700000000002e-05 * fTemp7) + ((0.0039060700000000002 * fVec7[((IOTA - 50) & 127)]) + ((0.00260247 * fVec7[((IOTA - 49) & 127)]) + ((0.00248036 * fVec7[((IOTA - 48) & 127)]) + ((0.000175064 * fVec7[((IOTA - 113) & 127)]) + ((1.3098900000000001e-05 * fVec7[((IOTA - 112) & 127)]) + ((4.29445e-06 * fVec7[((IOTA - 109) & 127)]) + ((0.00026637400000000005 * fVec7[((IOTA - 108) & 127)]) + ((6.0177699999999998e-05 * fVec7[((IOTA - 107) & 127)]) + ((3.2786800000000003e-05 * fVec7[((IOTA - 105) & 127)]) + ((2.6471800000000001e-06 * fVec7[((IOTA - 103) & 127)]) + ((0.00017389 * fVec7[((IOTA - 100) & 127)]) + ((0.00025139699999999999 * fVec7[((IOTA - 99) & 127)]) + ((0.00061095100000000009 * fVec7[((IOTA - 98) & 127)]) + ((0.0010470500000000001 * fVec7[((IOTA - 97) & 127)]) + ((0.00048894300000000004 * fVec7[((IOTA - 96) & 127)]) + ((0.00089744900000000003 * fVec7[((IOTA - 91) & 127)]) + ((0.0015826800000000002 * fVec7[((IOTA - 90) & 127)]) + ((0.00059544000000000003 * fVec7[((IOTA - 89) & 127)]) + ((0.00041056299999999997 * fVec7[((IOTA - 85) & 127)]) + ((0.0018416800000000001 * fVec7[((IOTA - 84) & 127)]) + ((0.0019494400000000002 * fVec7[((IOTA - 83) & 127)]) + ((0.00045673100000000004 * fVec7[((IOTA - 82) & 127)]) + ((0.00017357700000000001 * fVec7[((IOTA - 81) & 127)]) + ((7.5409600000000011e-05 * fVec7[((IOTA - 80) & 127)]) + ((3.4814800000000004e-05 * fVec7[((IOTA - 77) & 127)]) + ((0.00077242300000000005 * fVec7[((IOTA - 73) & 127)]) + ((0.00099550199999999989 * fVec7[((IOTA - 69) & 127)]) + ((0.0017788900000000002 * fVec7[((IOTA - 68) & 127)]) + ((0.0013746100000000001 * fVec7[((IOTA - 64) & 127)]) + ((0.00280854 * fVec7[((IOTA - 63) & 127)]) + ((0.00039799099999999999 * fVec7[((IOTA - 62) & 127)]) + ((0.00034907800000000001 * fVec7[((IOTA - 60) & 127)]) + ((0.0013482700000000002 * fVec7[((IOTA - 59) & 127)]) + ((0.0013237000000000001 * fVec7[((IOTA - 58) & 127)]) + ((0.00276925 * fVec7[((IOTA - 57) & 127)]) + ((0.0042720800000000001 * fVec7[((IOTA - 56) & 127)]) + ((0.0044575300000000003 * fVec7[((IOTA - 55) & 127)]) + ((0.00051885799999999997 * fVec7[((IOTA - 54) & 127)]) + ((4.6913299999999994e-07 * fVec9[((IOTA - 126) & 127)]) + ((3.87501e-06 * fVec9[((IOTA - 125) & 127)]) + ((5.002449999999999e-06 * fVec9[((IOTA - 124) & 127)]) + ((3.9637299999999994e-06 * fVec9[((IOTA - 123) & 127)]) + ((9.1651900000000009e-06 * fVec9[((IOTA - 122) & 127)]) + ((1.4090200000000001e-05 * fVec9[((IOTA - 121) & 127)]) + ((7.5314999999999998e-06 * fVec9[((IOTA - 120) & 127)]) + ((4.5760099999999997e-06 * fVec9[((IOTA - 119) & 127)]) + ((7.1657300000000003e-05 * fVec9[((IOTA - 118) & 127)]) + ((0.00062549000000000003 * fVec9[((IOTA - 60) & 127)]) + ((0.00020057500000000001 * fVec9[((IOTA - 57) & 127)]) + ((0.00034310999999999999 * fVec9[((IOTA - 56) & 127)]) + ((0.0011041099999999999 * fVec9[((IOTA - 55) & 127)]) + ((0.00027130399999999999 * fVec9[((IOTA - 54) & 127)]) + ((0.00447439 * fVec9[((IOTA - 48) & 127)]) + ((0.0048625600000000001 * fVec9[((IOTA - 47) & 127)]) + ((0.0040076400000000007 * fVec9[((IOTA - 43) & 127)]) + ((0.0092723200000000006 * fVec9[((IOTA - 42) & 127)]) + ((0.0024687199999999998 * fVec9[((IOTA - 41) & 127)]) + ((0.0021369100000000001 * fVec9[((IOTA - 38) & 127)]) + ((0.0107259 * fVec9[((IOTA - 35) & 127)]) + ((0.0107476 * fVec9[((IOTA - 34) & 127)]) + ((0.0022086499999999999 * fVec9[((IOTA - 33) & 127)]) + ((0.0098775700000000004 * fVec9[((IOTA - 32) & 127)]) + ((0.0118732 * fVec9[((IOTA - 31) & 127)]) + ((0.0052917800000000003 * fVec9[((IOTA - 30) & 127)]) + ((0.0050746000000000003 * fVec9[((IOTA - 24) & 127)]) + ((0.0089725199999999995 * fVec9[((IOTA - 23) & 127)]) + ((0.044024900000000006 * fVec9[((IOTA - 22) & 127)]) + ((0.039155500000000003 * fVec9[((IOTA - 21) & 127)]) + ((0.037087799999999997 * fVec9[((IOTA - 20) & 127)]) + ((0.017778200000000001 * fVec9[((IOTA - 19) & 127)]) + ((0.011974100000000001 * fVec9[((IOTA - 12) & 127)]) + ((0.0073849099999999997 * fVec9[((IOTA - 11) & 127)]) + ((7.1621100000000004e-05 * fVec9[((IOTA - 9) & 127)]) + ((0.00019713 * fVec9[((IOTA - 8) & 127)]) + ((0.00036027699999999999 * fVec9[((IOTA - 7) & 127)]) + ((0.0012823400000000001 * fVec9[((IOTA - 6) & 127)]) + ((4.5651900000000001e-06 * fVec9[((IOTA - 4) & 127)]) + ((0.00185713 * fVec9[((IOTA - 64) & 127)]) + ((0.00040374999999999997 * fVec9[((IOTA - 62) & 127)]) + ((8.9802400000000006e-05 * fVec9[((IOTA - 112) & 127)]) + ((0.00021085600000000004 * fVec9[((IOTA - 111) & 127)]) + ((0.00018475699999999999 * fVec9[((IOTA - 109) & 127)]) + ((0.000471096 * fVec9[((IOTA - 106) & 127)]) + ((0.00047116600000000002 * fVec9[((IOTA - 105) & 127)]) + ((2.0109e-05 * fVec9[((IOTA - 104) & 127)]) + ((0.000713545 * fVec9[((IOTA - 98) & 127)]) + ((0.0010885700000000001 * fVec9[((IOTA - 97) & 127)]) + ((0.0018384899999999999 * fVec9[((IOTA - 96) & 127)]) + ((0.00138243 * fVec9[((IOTA - 95) & 127)]) + ((0.000109815 * fVec9[((IOTA - 93) & 127)]) + ((0.00094006000000000016 * fVec9[((IOTA - 88) & 127)]) + ((0.0011530800000000001 * fVec9[((IOTA - 87) & 127)]) + ((0.00094841900000000004 * fVec9[((IOTA - 86) & 127)]) + ((0.00065421300000000006 * fVec9[((IOTA - 85) & 127)]) + ((0.00025139500000000001 * fVec9[((IOTA - 61) & 127)]) + ((0.0004991240000000001 * fVec9[((IOTA - 80) & 127)]) + ((0.00065653400000000007 * fVec9[((IOTA - 79) & 127)]) + ((0.00054983199999999999 * fVec9[((IOTA - 78) & 127)]) + ((0.0020529700000000003 * fVec9[((IOTA - 77) & 127)]) + ((0.0026922199999999999 * fVec9[((IOTA - 76) & 127)]) + ((0.00027834600000000001 * fVec9[((IOTA - 72) & 127)]) + ((0.000385146 * fVec9[((IOTA - 71) & 127)]) + ((0.0014043900000000002 * fVec9[((IOTA - 70) & 127)]) + ((0.00036717 * fVec9[((IOTA - 69) & 127)]) + ((0.00046783600000000001 * fVec9[((IOTA - 66) & 127)]) + ((0.0017735000000000001 * fVec9[((IOTA - 65) & 127)]) + ((4.9855999999999993e-07 * fVec10[((IOTA - 126) & 127)]) + ((3.50232e-06 * fVec10[((IOTA - 123) & 127)]) + ((1.4280600000000002e-05 * fVec10[((IOTA - 122) & 127)]) + ((1.4047300000000002e-05 * fVec10[((IOTA - 119) & 127)]) + ((4.6408600000000002e-05 * fVec10[((IOTA - 118) & 127)]) + ((5.87972e-05 * fVec10[((IOTA - 117) & 127)]) + ((0.0012798899999999999 * fVec10[((IOTA - 68) & 127)]) + ((0.0018695900000000002 * fVec10[((IOTA - 67) & 127)]) + ((0.00186269 * fVec10[((IOTA - 66) & 127)]) + ((0.0026860300000000003 * fVec10[((IOTA - 65) & 127)]) + ((0.0032383700000000004 * fVec10[((IOTA - 64) & 127)]) + ((0.00279993 * fVec10[((IOTA - 63) & 127)]) + ((0.0019108400000000002 * fVec10[((IOTA - 62) & 127)]) + ((0.0026381999999999998 * fVec10[((IOTA - 61) & 127)]) + ((0.0026963499999999997 * fVec10[((IOTA - 60) & 127)]) + ((0.00086811600000000005 * fVec10[((IOTA - 59) & 127)]) + ((0.0024559999999999998 * fVec10[((IOTA - 48) & 127)]) + ((0.00250409 * fVec10[((IOTA - 44) & 127)]) + ((0.0036837900000000002 * fVec10[((IOTA - 41) & 127)]) + ((0.0024353000000000001 * fVec10[((IOTA - 40) & 127)]) + ((0.0075394699999999995 * fVec10[((IOTA - 37) & 127)]) + ((0.0044009499999999998 * fVec10[((IOTA - 36) & 127)]) + ((0.0072411400000000001 * fVec10[((IOTA - 32) & 127)]) + ((0.0075611899999999998 * fVec10[((IOTA - 31) & 127)]) + ((0.0048946199999999997 * fVec10[((IOTA - 28) & 127)]) + ((0.0098907100000000005 * fVec10[((IOTA - 25) & 127)]) + ((0.0060862800000000003 * fVec10[((IOTA - 22) & 127)]) + ((0.013805099999999999 * fVec10[((IOTA - 20) & 127)]) + ((0.010487100000000001 * fVec10[((IOTA - 19) & 127)]) + ((0.0070100300000000004 * fVec10[((IOTA - 17) & 127)]) + ((0.0041332800000000005 * fVec10[((IOTA - 14) & 127)]) + ((0.00164412 * fVec10[((IOTA - 13) & 127)]) + ((0.00029239700000000001 * fVec10[((IOTA - 11) & 127)]) + ((1.1881600000000002e-05 * fVec10[((IOTA - 10) & 127)]) + ((2.8156500000000004e-05 * fVec10[((IOTA - 8) & 127)]) + ((0.00014026000000000002 * fVec10[((IOTA - 7) & 127)]) + ((0.00022704600000000001 * fVec10[((IOTA - 5) & 127)]) + ((7.3559200000000005e-05 * fVec10[((IOTA - 3) & 127)]) + ((5.2513899999999999e-05 * fVec10[((IOTA - 1) & 127)]) + ((0.00087314000000000011 * fVec10[((IOTA - 72) & 127)]) + ((0.00016971900000000001 * fVec10[((IOTA - 114) & 127)]) + ((0.000160941 * fVec10[((IOTA - 113) & 127)]) + ((9.4163700000000008e-05 * fVec10[((IOTA - 112) & 127)]) + ((0.00011364000000000002 * fVec10[((IOTA - 110) & 127)]) + ((1.29874e-06 * fVec10[((IOTA - 109) & 127)]) + ((0.00019798300000000002 * fVec10[((IOTA - 107) & 127)]) + ((0.00029092600000000005 * fVec10[((IOTA - 106) & 127)]) + ((0.000558027 * fVec10[((IOTA - 105) & 127)]) + ((6.9544300000000004e-05 * fVec10[((IOTA - 104) & 127)]) + ((0.00037840699999999998 * fVec10[((IOTA - 102) & 127)]) + ((0.00017562900000000001 * fVec10[((IOTA - 101) & 127)]) + ((8.1890699999999998e-05 * fVec10[((IOTA - 98) & 127)]) + ((0.000828216 * fVec10[((IOTA - 97) & 127)]) + ((7.2374799999999997e-05 * fVec10[((IOTA - 96) & 127)]) + ((0.00053566200000000012 * fVec10[((IOTA - 93) & 127)]) + ((0.00132091 * fVec10[((IOTA - 92) & 127)]) + ((0.00085476600000000008 * fVec10[((IOTA - 91) & 127)]) + ((0.00039815900000000003 * fVec10[((IOTA - 90) & 127)]) + ((0.00078330700000000001 * fVec10[((IOTA - 85) & 127)]) + ((0.0010126200000000001 * fVec10[((IOTA - 81) & 127)]) + ((0.00177717 * fVec10[((IOTA - 80) & 127)]) + ((0.00075712800000000003 * fVec10[((IOTA - 79) & 127)]) + ((0.00049644899999999994 * fVec10[((IOTA - 78) & 127)]) + ((8.3132699999999988e-07 * fVec11[((IOTA - 126) & 127)]) + ((8.32524e-07 * fVec11[((IOTA - 125) & 127)]) + ((3.6526999999999999e-07 * fVec11[((IOTA - 123) & 127)]) + ((7.4674300000000003e-06 * fVec11[((IOTA - 119) & 127)]) + ((0.000100599 * fVec11[((IOTA - 116) & 127)]) + ((0.00018938700000000001 * fVec11[((IOTA - 115) & 127)]) + ((0.00015979300000000001 * fVec11[((IOTA - 114) & 127)]) + ((0.000207328 * fVec11[((IOTA - 67) & 127)]) + ((0.0021144200000000001 * fVec11[((IOTA - 66) & 127)]) + ((0.00111618 * fVec11[((IOTA - 65) & 127)]) + ((0.0027910400000000003 * fVec11[((IOTA - 64) & 127)]) + ((0.0056323800000000002 * fVec11[((IOTA - 63) & 127)]) + ((0.0021717500000000001 * fVec11[((IOTA - 62) & 127)]) + ((0.00153181 * fVec11[((IOTA - 59) & 127)]) + ((0.0024682100000000002 * fVec11[((IOTA - 58) & 127)]) + ((0.0013744400000000002 * fVec11[((IOTA - 55) & 127)]) + ((0.00065952400000000009 * fVec11[((IOTA - 54) & 127)]) + ((0.00066730700000000001 * fVec11[((IOTA - 53) & 127)]) + ((0.0020160500000000001 * fVec11[((IOTA - 46) & 127)]) + ((0.0047180700000000004 * fVec11[((IOTA - 45) & 127)]) + ((0.0042019000000000006 * fVec11[((IOTA - 42) & 127)]) + ((0.0019727600000000001 * fVec11[((IOTA - 41) & 127)]) + ((0.0070614800000000002 * fVec11[((IOTA - 40) & 127)]) + ((0.012130500000000001 * fVec11[((IOTA - 39) & 127)]) + ((0.0089114199999999998 * fVec11[((IOTA - 38) & 127)]) + ((0.012699700000000001 * fVec11[((IOTA - 37) & 127)]) + ((0.011447799999999999 * fVec11[((IOTA - 36) & 127)]) + ((0.00061176199999999996 * fVec11[((IOTA - 35) & 127)]) + ((0.020701200000000003 * fVec11[((IOTA - 27) & 127)]) + ((0.017392399999999999 * fVec11[((IOTA - 26) & 127)]) + ((0.044909400000000002 * fVec11[((IOTA - 22) & 127)]) + ((0.036347600000000001 * fVec11[((IOTA - 21) & 127)]) + ((0.037415699999999996 * fVec11[((IOTA - 19) & 127)]) + ((0.046260099999999998 * fVec11[((IOTA - 18) & 127)]) + ((0.0097333599999999999 * fVec11[((IOTA - 16) & 127)]) + ((0.026032199999999998 * fVec11[((IOTA - 13) & 127)]) + ((0.016245099999999998 * fVec11[((IOTA - 12) & 127)]) + ((0.011957800000000001 * fVec11[((IOTA - 11) & 127)]) + ((0.0030688399999999998 * fVec11[((IOTA - 9) & 127)]) + ((0.00171357 * fVec11[((IOTA - 7) & 127)]) + ((0.000715845 * fVec11[((IOTA - 5) & 127)]) + ((0.00059789399999999996 * fVec11[((IOTA - 4) & 127)]) + ((0.00035335000000000005 * fVec11[((IOTA - 3) & 127)]) + ((1.0056300000000001e-05 * fTemp11) + ((1.4028600000000002e-05 * fVec11[((IOTA - 113) & 127)]) + ((9.5528500000000005e-05 * fVec11[((IOTA - 112) & 127)]) + ((0.000254403 * fVec11[((IOTA - 111) & 127)]) + ((3.8387300000000004e-05 * fVec11[((IOTA - 110) & 127)]) + ((0.00027903300000000004 * fVec11[((IOTA - 105) & 127)]) + ((0.00027494299999999999 * fVec11[((IOTA - 104) & 127)]) + ((0.000190144 * fVec11[((IOTA - 102) & 127)]) + ((0.00053989800000000003 * fVec11[((IOTA - 101) & 127)]) + ((0.00018442000000000003 * fVec11[((IOTA - 96) & 127)]) + ((0.0010822799999999999 * fVec11[((IOTA - 95) & 127)]) + ((0.000120732 * fVec11[((IOTA - 94) & 127)]) + ((0.00043210699999999999 * fVec11[((IOTA - 93) & 127)]) + ((0.00070196899999999999 * fVec11[((IOTA - 92) & 127)]) + ((0.00041614100000000003 * fVec11[((IOTA - 91) & 127)]) + ((0.00112341 * fVec11[((IOTA - 84) & 127)]) + ((0.0028764799999999998 * fVec11[((IOTA - 83) & 127)]) + ((0.0023685999999999998 * fVec11[((IOTA - 82) & 127)]) + ((0.00041246200000000005 * fVec11[((IOTA - 81) & 127)]) + ((0.0011269000000000001 * fVec11[((IOTA - 75) & 127)]) + ((0.00144309 * fVec11[((IOTA - 74) & 127)]) + (((6.4160099999999995e-07 * fVec12[((IOTA - 126) & 127)]) + ((6.5399499999999997e-07 * fVec12[((IOTA - 125) & 127)]) + ((4.0178399999999993e-06 * fVec12[((IOTA - 124) & 127)]) + ((6.9574199999999994e-06 * fVec12[((IOTA - 123) & 127)]) + ((2.1448200000000002e-05 * fVec12[((IOTA - 122) & 127)]) + ((4.1371800000000003e-05 * fVec12[((IOTA - 121) & 127)]) + ((2.2406299999999999e-05 * fVec12[((IOTA - 120) & 127)]) + ((1.58565e-05 * fVec12[((IOTA - 119) & 127)]) + ((1.5899000000000001e-05 * fVec12[((IOTA - 118) & 127)]) + ((3.8585699999999999e-05 * fVec12[((IOTA - 116) & 127)]) + ((8.8055400000000011e-05 * fVec12[((IOTA - 115) & 127)]) + ((5.2838100000000005e-05 * fVec12[((IOTA - 114) & 127)]) + ((0.00015411999999999999 * fVec12[((IOTA - 111) & 127)]) + ((2.2778299999999998e-05 * fVec12[((IOTA - 110) & 127)]) + ((9.8318499999999997e-05 * fVec12[((IOTA - 109) & 127)]) + ((0.00667199 * fVec12[((IOTA - 33) & 127)]) + ((0.0092429299999999999 * fVec12[((IOTA - 30) & 127)]) + ((0.0064707699999999998 * fVec12[((IOTA - 29) & 127)]) + ((0.0021991000000000003 * fVec12[((IOTA - 28) & 127)]) + ((0.00014088400000000003 * fVec12[((IOTA - 26) & 127)]) + ((0.0017641899999999999 * fVec12[((IOTA - 24) & 127)]) + ((0.024507300000000003 * fVec12[((IOTA - 23) & 127)]) + ((0.028314100000000002 * fVec12[((IOTA - 20) & 127)]) + ((0.0084666200000000011 * fVec12[((IOTA - 17) & 127)]) + ((0.0079231200000000005 * fVec12[((IOTA - 14) & 127)]) + ((0.0012615600000000001 * fVec12[((IOTA - 13) & 127)]) + ((0.0010508900000000001 * fVec12[((IOTA - 12) & 127)]) + ((0.00028143800000000001 * fVec12[((IOTA - 11) & 127)]) + ((0.00030371700000000001 * fVec12[((IOTA - 8) & 127)]) + ((0.00022810600000000003 * fVec12[((IOTA - 7) & 127)]) + ((0.00055799799999999998 * fVec12[((IOTA - 5) & 127)]) + ((4.7708800000000006e-05 * fVec12[((IOTA - 1) & 127)]) + ((0.0024287200000000001 * fVec12[((IOTA - 38) & 127)]) + ((0.00017214300000000001 * fVec12[((IOTA - 37) & 127)]) + ((0.00012489399999999999 * fVec12[((IOTA - 103) & 127)]) + ((0.00067140100000000007 * fVec12[((IOTA - 96) & 127)]) + ((0.00070487200000000005 * fVec12[((IOTA - 95) & 127)]) + ((0.00015813099999999999 * fVec12[((IOTA - 92) & 127)]) + ((0.00052452300000000005 * fVec12[((IOTA - 91) & 127)]) + ((0.000208784 * fVec12[((IOTA - 90) & 127)]) + ((0.00092574600000000008 * fVec12[((IOTA - 86) & 127)]) + ((0.0020186799999999997 * fVec12[((IOTA - 85) & 127)]) + ((0.0010764800000000001 * fVec12[((IOTA - 84) & 127)]) + ((3.5108400000000004e-05 * fVec12[((IOTA - 82) & 127)]) + ((0.00024882700000000002 * fVec12[((IOTA - 81) & 127)]) + ((0.00071957500000000008 * fVec12[((IOTA - 80) & 127)]) + ((0.0015043999999999999 * fVec12[((IOTA - 79) & 127)]) + ((0.0022789299999999998 * fVec12[((IOTA - 78) & 127)]) + ((0.0027959500000000002 * fVec12[((IOTA - 77) & 127)]) + ((0.00051197700000000005 * fVec12[((IOTA - 76) & 127)]) + ((0.00026544400000000004 * fVec12[((IOTA - 73) & 127)]) + ((0.00050830099999999996 * fVec12[((IOTA - 70) & 127)]) + ((0.0006250810000000001 * fVec12[((IOTA - 66) & 127)]) + ((4.9838300000000007e-05 * fVec12[((IOTA - 65) & 127)]) + ((0.00045048300000000006 * fVec12[((IOTA - 64) & 127)]) + ((0.00086288599999999999 * fVec12[((IOTA - 63) & 127)]) + ((0.00059936800000000008 * fVec12[((IOTA - 62) & 127)]) + ((0.0024784299999999998 * fVec12[((IOTA - 61) & 127)]) + ((0.0013091800000000001 * fVec12[((IOTA - 60) & 127)]) + ((2.8726200000000003e-05 * fVec12[((IOTA - 57) & 127)]) + ((0.00095517500000000006 * fVec12[((IOTA - 53) & 127)]) + ((0.000341713 * fVec12[((IOTA - 51) & 127)]) + ((0.00096935900000000004 * fVec12[((IOTA - 50) & 127)]) + ((0.0014495199999999999 * fVec12[((IOTA - 49) & 127)]) + ((0.0014898400000000001 * fVec12[((IOTA - 48) & 127)]) + ((0.0021659299999999999 * fVec12[((IOTA - 47) & 127)]) + ((0.0041707000000000003 * fVec12[((IOTA - 44) & 127)]) + (((1.06573e-06 * fVec13[((IOTA - 126) & 127)]) + ((7.9130000000000003e-06 * fVec13[((IOTA - 125) & 127)]) + ((1.11533e-05 * fVec13[((IOTA - 124) & 127)]) + ((7.879419999999999e-07 * fVec13[((IOTA - 123) & 127)]) + ((0.00105671 * fVec13[((IOTA - 7) & 127)]) + ((0.00050579800000000001 * fVec13[((IOTA - 5) & 127)]) + ((0.000136334 * fVec13[((IOTA - 4) & 127)]) + ((0.0055327599999999994 * fVec13[((IOTA - 13) & 127)]) + ((0.019557600000000001 * fVec13[((IOTA - 12) & 127)]) + ((0.013523700000000001 * fVec13[((IOTA - 11) & 127)]) + ((0.00111838 * fVec13[((IOTA - 9) & 127)]) + ((0.00037129600000000002 * fVec13[((IOTA - 8) & 127)]) + ((1.0373300000000001e-05 * fVec13[((IOTA - 120) & 127)]) + ((4.1348700000000006e-05 * fVec13[((IOTA - 113) & 127)]) + ((0.00021077300000000001 * fVec13[((IOTA - 112) & 127)]) + ((0.00029117200000000002 * fVec13[((IOTA - 111) & 127)]) + ((6.1881300000000007e-05 * fVec13[((IOTA - 110) & 127)]) + ((7.7441300000000014e-05 * fVec13[((IOTA - 109) & 127)]) + ((6.0216300000000008e-05 * fVec13[((IOTA - 103) & 127)]) + ((0.00012581500000000001 * fVec13[((IOTA - 102) & 127)]) + ((7.0025300000000002e-05 * fVec13[((IOTA - 99) & 127)]) + ((0.00066286199999999996 * fVec13[((IOTA - 98) & 127)]) + ((9.3832500000000013e-05 * fVec13[((IOTA - 97) & 127)]) + ((0.00058996000000000005 * fVec13[((IOTA - 96) & 127)]) + ((0.0019117200000000002 * fVec13[((IOTA - 95) & 127)]) + ((0.00096887299999999998 * fVec13[((IOTA - 94) & 127)]) + ((0.00068554300000000005 * fVec13[((IOTA - 89) & 127)]) + ((0.0015192199999999999 * fVec13[((IOTA - 86) & 127)]) + ((0.00088183900000000015 * fVec13[((IOTA - 85) & 127)]) + ((0.0013959600000000001 * fVec13[((IOTA - 82) & 127)]) + ((0.0020842900000000004 * fVec13[((IOTA - 81) & 127)]) + ((0.0021536300000000001 * fVec13[((IOTA - 78) & 127)]) + ((0.0032852899999999997 * fVec13[((IOTA - 77) & 127)]) + ((0.00209749 * fVec13[((IOTA - 70) & 127)]) + ((0.00127137 * fVec13[((IOTA - 69) & 127)]) + ((0.00045627100000000001 * fVec13[((IOTA - 66) & 127)]) + ((0.0018730800000000001 * fVec13[((IOTA - 65) & 127)]) + ((0.0019614799999999998 * fVec13[((IOTA - 64) & 127)]) + ((0.0024225800000000001 * fVec13[((IOTA - 63) & 127)]) + ((0.0025499699999999999 * fVec13[((IOTA - 62) & 127)]) + ((0.00086850000000000013 * fVec13[((IOTA - 61) & 127)]) + ((0.0013203800000000001 * fVec13[((IOTA - 60) & 127)]) + ((0.0028012499999999999 * fVec13[((IOTA - 54) & 127)]) + ((0.00090830500000000009 * fVec13[((IOTA - 53) & 127)]) + ((0.00097509099999999998 * fVec13[((IOTA - 47) & 127)]) + ((0.0013267800000000001 * fVec13[((IOTA - 45) & 127)]) + ((0.0033277000000000003 * fVec13[((IOTA - 44) & 127)]) + ((0.0045936600000000003 * fVec13[((IOTA - 43) & 127)]) + ((0.0021596799999999998 * fVec13[((IOTA - 41) & 127)]) + ((0.017120300000000001 * fVec13[((IOTA - 40) & 127)]) + ((0.0063158000000000008 * fVec13[((IOTA - 39) & 127)]) + ((0.014149700000000001 * fVec13[((IOTA - 36) & 127)]) + ((0.020176400000000001 * fVec13[((IOTA - 35) & 127)]) + ((0.0059566600000000008 * fVec13[((IOTA - 34) & 127)]) + ((0.0072458499999999999 * fVec13[((IOTA - 33) & 127)]) + ((0.013193999999999999 * fVec13[((IOTA - 31) & 127)]) + ((0.0032949700000000004 * fVec13[((IOTA - 30) & 127)]) + ((0.038218000000000002 * fVec13[((IOTA - 23) & 127)]) + ((0.046904000000000001 * fVec13[((IOTA - 22) & 127)]) + ((0.042610000000000002 * fVec13[((IOTA - 21) & 127)]) + ((0.060833700000000004 * fVec13[((IOTA - 20) & 127)]) + ((1.5865800000000003e-05 * fVec14[((IOTA - 123) & 127)]) + ((3.3133000000000003e-05 * fVec14[((IOTA - 122) & 127)]) + ((7.6978800000000009e-05 * fVec14[((IOTA - 121) & 127)]) + ((6.9207600000000005e-05 * fVec14[((IOTA - 120) & 127)]) + ((3.4888e-06 * fVec14[((IOTA - 119) & 127)]) + ((5.6830400000000004e-05 * fVec14[((IOTA - 118) & 127)]) + ((0.00013956500000000002 * fVec14[((IOTA - 117) & 127)]) + ((0.000268843 * fVec14[((IOTA - 116) & 127)]) + ((0.00016843600000000003 * fVec14[((IOTA - 115) & 127)]) + ((0.00010568 * fVec14[((IOTA - 111) & 127)]) + ((0.00025351300000000002 * fVec14[((IOTA - 110) & 127)]) + ((0.00015057400000000003 * fVec14[((IOTA - 108) & 127)]) + ((4.4610300000000002e-05 * fVec14[((IOTA - 106) & 127)]) + ((0.0069729000000000006 * fVec14[((IOTA - 28) & 127)]) + ((0.00437594 * fVec14[((IOTA - 24) & 127)]) + ((0.023037200000000004 * fVec14[((IOTA - 19) & 127)]) + ((0.043427500000000001 * fVec14[((IOTA - 18) & 127)]) + ((0.023976299999999999 * fVec14[((IOTA - 17) & 127)]) + ((0.066181599999999993 * fVec14[((IOTA - 16) & 127)]) + ((0.058634600000000002 * fVec14[((IOTA - 15) & 127)]) + ((0.0019139999999999999 * fVec14[((IOTA - 10) & 127)]) + ((0.00087751800000000009 * fVec14[((IOTA - 6) & 127)]) + ((0.00024512500000000001 * fVec14[((IOTA - 3) & 127)]) + ((0.000365476 * fVec14[((IOTA - 2) & 127)]) + ((5.3508699999999998e-05 * fVec14[((IOTA - 1) & 127)]) + ((0.0035579800000000001 * fVec14[((IOTA - 34) & 127)]) + ((0.0069054599999999995 * fVec14[((IOTA - 33) & 127)]) + ((0.014528600000000001 * fVec14[((IOTA - 32) & 127)]) + ((0.0090924899999999999 * fVec14[((IOTA - 31) & 127)]) + ((0.000116422 * fVec14[((IOTA - 96) & 127)]) + ((0.00045103200000000003 * fVec14[((IOTA - 93) & 127)]) + ((0.000522489 * fVec14[((IOTA - 92) & 127)]) + ((0.0012505699999999999 * fVec14[((IOTA - 91) & 127)]) + ((0.0011286 * fVec14[((IOTA - 90) & 127)]) + ((0.00076078500000000004 * fVec14[((IOTA - 89) & 127)]) + ((0.0018710199999999999 * fVec14[((IOTA - 88) & 127)]) + ((0.0019413400000000002 * fVec14[((IOTA - 87) & 127)]) + ((1.9325300000000003e-05 * fVec14[((IOTA - 80) & 127)]) + ((0.000110683 * fVec14[((IOTA - 77) & 127)]) + ((0.00090340100000000007 * fVec14[((IOTA - 75) & 127)]) + ((0.00063188700000000003 * fVec14[((IOTA - 74) & 127)]) + ((0.0015169699999999999 * fVec14[((IOTA - 70) & 127)]) + ((0.00228896 * fVec14[((IOTA - 69) & 127)]) + ((0.0018415700000000001 * fVec14[((IOTA - 68) & 127)]) + ((0.000677036 * fVec14[((IOTA - 67) & 127)]) + ((0.00070188499999999997 * fVec14[((IOTA - 66) & 127)]) + ((6.0076500000000007e-05 * fVec14[((IOTA - 65) & 127)]) + ((0.00053549200000000004 * fVec14[((IOTA - 64) & 127)]) + ((0.0012484900000000001 * fVec14[((IOTA - 63) & 127)]) + ((0.00010081100000000001 * fVec14[((IOTA - 62) & 127)]) + ((0.0010030500000000001 * fVec14[((IOTA - 61) & 127)]) + ((0.00019151300000000001 * fVec14[((IOTA - 60) & 127)]) + ((0.0082814200000000011 * fVec14[((IOTA - 29) & 127)]) + ((0.00012409699999999999 * fVec14[((IOTA - 56) & 127)]) + ((0.00034672200000000005 * fVec14[((IOTA - 54) & 127)]) + ((0.00149271 * fVec14[((IOTA - 50) & 127)]) + ((0.0057374000000000001 * fVec14[((IOTA - 45) & 127)]) + ((0.0043065899999999999 * fVec14[((IOTA - 44) & 127)]) + ((0.0057909800000000003 * fVec14[((IOTA - 41) & 127)]) + ((0.012866299999999999 * fVec14[((IOTA - 37) & 127)]) + ((0.018287600000000001 * fVec14[((IOTA - 36) & 127)]) + ((0.0067883699999999993 * fVec14[((IOTA - 35) & 127)]) + ((1.47788e-07 * fVec15[((IOTA - 126) & 127)]) + ((4.2830899999999998e-06 * fVec15[((IOTA - 123) & 127)]) + ((1.5180600000000002e-05 * fVec15[((IOTA - 122) & 127)]) + ((5.7183599999999999e-05 * fVec15[((IOTA - 121) & 127)]) + ((3.7596900000000006e-05 * fVec15[((IOTA - 120) & 127)]) + ((5.5951800000000002e-05 * fVec15[((IOTA - 119) & 127)]) + ((4.1282200000000003e-05 * fVec15[((IOTA - 118) & 127)]) + ((8.3589400000000017e-05 * fVec15[((IOTA - 117) & 127)]) + ((0.00011071500000000001 * fVec15[((IOTA - 116) & 127)]) + ((6.9900900000000014e-05 * fVec15[((IOTA - 115) & 127)]) + ((0.00020505 * fVec15[((IOTA - 114) & 127)]) + ((9.7282700000000016e-05 * fVec15[((IOTA - 112) & 127)]) + ((0.00035981700000000001 * fVec15[((IOTA - 111) & 127)]) + ((0.00022261899999999999 * fVec15[((IOTA - 110) & 127)]) + ((0.00027634500000000005 * fVec15[((IOTA - 107) & 127)]) + ((4.0803300000000003e-05 * fVec15[((IOTA - 3) & 127)]) + ((7.5886399999999999e-05 * fVec15[((IOTA - 2) & 127)]) + ((9.9447399999999992e-06 * fTemp15) + ((0.00116489 * fVec15[((IOTA - 16) & 127)]) + ((0.0071606500000000002 * fVec15[((IOTA - 15) & 127)]) + ((0.00099201300000000014 * fVec15[((IOTA - 10) & 127)]) + ((2.56811e-05 * fVec15[((IOTA - 8) & 127)]) + ((0.000660455 * fVec15[((IOTA - 6) & 127)]) + ((0.00016602900000000002 * fVec15[((IOTA - 4) & 127)]) + ((0.00035780099999999998 * fVec15[((IOTA - 101) & 127)]) + ((0.00071558799999999997 * fVec15[((IOTA - 91) & 127)]) + ((0.00124285 * fVec15[((IOTA - 88) & 127)]) + ((0.00034728 * fVec15[((IOTA - 87) & 127)]) + ((0.00092678400000000005 * fVec15[((IOTA - 84) & 127)]) + ((0.0016128900000000001 * fVec15[((IOTA - 83) & 127)]) + ((0.00063472000000000008 * fVec15[((IOTA - 79) & 127)]) + ((0.0027100900000000001 * fVec15[((IOTA - 78) & 127)]) + ((0.00108501 * fVec15[((IOTA - 77) & 127)]) + ((0.00066758699999999998 * fVec15[((IOTA - 76) & 127)]) + ((0.00036076100000000002 * fVec15[((IOTA - 74) & 127)]) + ((0.0013523700000000001 * fVec15[((IOTA - 73) & 127)]) + ((0.0010234199999999999 * fVec15[((IOTA - 72) & 127)]) + ((0.00051179399999999999 * fVec15[((IOTA - 71) & 127)]) + ((0.0010446200000000002 * fVec15[((IOTA - 70) & 127)]) + ((0.00024338600000000003 * fVec15[((IOTA - 69) & 127)]) + ((0.00132391 * fVec15[((IOTA - 59) & 127)]) + ((0.0030292000000000001 * fVec15[((IOTA - 58) & 127)]) + ((0.00167037 * fVec15[((IOTA - 57) & 127)]) + ((0.00015749700000000001 * fVec15[((IOTA - 56) & 127)]) + ((0.00023174299999999999 * fVec15[((IOTA - 55) & 127)]) + ((0.0010645800000000001 * fVec15[((IOTA - 54) & 127)]) + ((0.00093411100000000006 * fVec15[((IOTA - 53) & 127)]) + ((0.0024952400000000001 * fVec15[((IOTA - 51) & 127)]) + ((0.0034762300000000003 * fVec15[((IOTA - 50) & 127)]) + ((0.00188966 * fVec15[((IOTA - 48) & 127)]) + ((0.00393443 * fVec15[((IOTA - 47) & 127)]) + ((0.0088357600000000015 * fVec15[((IOTA - 44) & 127)]) + ((0.00144816 * fVec15[((IOTA - 43) & 127)]) + ((0.0053719000000000006 * fVec15[((IOTA - 41) & 127)]) + ((0.0057588200000000004 * fVec15[((IOTA - 38) & 127)]) + ((0.0038469899999999998 * fVec15[((IOTA - 37) & 127)]) + ((0.0020671499999999998 * fVec15[((IOTA - 35) & 127)]) + ((0.0158868 * fVec15[((IOTA - 34) & 127)]) + ((0.016835300000000001 * fVec15[((IOTA - 31) & 127)]) + ((0.0075965400000000006 * fVec15[((IOTA - 28) & 127)]) + ((0.0061243800000000004 * fVec15[((IOTA - 26) & 127)]) + ((0.024267400000000001 * fVec15[((IOTA - 25) & 127)]) + ((0.022247599999999999 * fVec15[((IOTA - 22) & 127)]) + ((0.025193300000000002 * fVec15[((IOTA - 19) & 127)]) + ((2.1436099999999995e-06 * fVec16[((IOTA - 125) & 127)]) + ((9.3152500000000003e-06 * fVec16[((IOTA - 124) & 127)]) + ((8.1889299999999992e-06 * fVec16[((IOTA - 123) & 127)]) + ((1.74931e-05 * fVec16[((IOTA - 122) & 127)]) + ((2.2752300000000002e-05 * fVec16[((IOTA - 121) & 127)]) + ((1.2775900000000001e-05 * fVec16[((IOTA - 120) & 127)]) + ((4.7892300000000002e-05 * fVec16[((IOTA - 119) & 127)]) + ((1.7953800000000001e-05 * fVec16[((IOTA - 118) & 127)]) + ((5.4085200000000009e-05 * fVec16[((IOTA - 117) & 127)]) + ((0.000145382 * fVec16[((IOTA - 116) & 127)]) + ((1.3354200000000001e-06 * fVec16[((IOTA - 115) & 127)]) + ((7.4177099999999998e-05 * fVec16[((IOTA - 114) & 127)]) + ((0.000238922 * fVec16[((IOTA - 113) & 127)]) + ((9.5068000000000005e-05 * fVec16[((IOTA - 112) & 127)]) + ((0.00064602799999999999 * fVec16[((IOTA - 90) & 127)]) + ((0.0010497700000000002 * fVec16[((IOTA - 89) & 127)]) + ((8.767989999999999e-06 * fVec16[((IOTA - 88) & 127)]) + ((0.00110188 * fVec16[((IOTA - 85) & 127)]) + ((0.0028700499999999999 * fVec16[((IOTA - 84) & 127)]) + ((0.0032637399999999998 * fVec16[((IOTA - 83) & 127)]) + ((0.00124704 * fVec16[((IOTA - 82) & 127)]) + ((0.00038958100000000001 * fVec16[((IOTA - 80) & 127)]) + ((0.00067759099999999996 * fVec16[((IOTA - 79) & 127)]) + ((0.00096400700000000001 * fVec16[((IOTA - 74) & 127)]) + ((0.0012385999999999999 * fVec16[((IOTA - 68) & 127)]) + ((0.00042248599999999997 * fVec16[((IOTA - 67) & 127)]) + ((0.00026454499999999998 * fVec16[((IOTA - 65) & 127)]) + ((0.0036227100000000003 * fVec16[((IOTA - 64) & 127)]) + ((0.0037377299999999999 * fVec16[((IOTA - 63) & 127)]) + ((0.0043915100000000004 * fVec16[((IOTA - 62) & 127)]) + ((0.00257216 * fVec16[((IOTA - 61) & 127)]) + ((0.00089788499999999996 * fVec16[((IOTA - 60) & 127)]) + ((0.00034114600000000002 * fVec16[((IOTA - 57) & 127)]) + ((0.00087139800000000001 * fVec16[((IOTA - 56) & 127)]) + ((3.7472300000000004e-05 * fVec16[((IOTA - 55) & 127)]) + ((0.00035147300000000004 * fVec16[((IOTA - 43) & 127)]) + ((0.0054228599999999998 * fVec16[((IOTA - 41) & 127)]) + ((0.00555617 * fVec16[((IOTA - 40) & 127)]) + ((0.00149051 * fVec16[((IOTA - 39) & 127)]) + ((0.0066379000000000004 * fVec16[((IOTA - 38) & 127)]) + ((0.023168899999999999 * fVec16[((IOTA - 37) & 127)]) + ((0.022447100000000001 * fVec16[((IOTA - 36) & 127)]) + ((0.0076363300000000002 * fVec16[((IOTA - 35) & 127)]) + ((0.00533637 * fVec16[((IOTA - 34) & 127)]) + ((0.0032469800000000004 * fVec16[((IOTA - 31) & 127)]) + ((0.0052128300000000008 * fVec16[((IOTA - 30) & 127)]) + ((0.00172566 * fVec16[((IOTA - 28) & 127)]) + ((0.018620600000000001 * fVec16[((IOTA - 27) & 127)]) + ((0.0399341 * fVec16[((IOTA - 20) & 127)]) + ((0.0157208 * fVec16[((IOTA - 19) & 127)]) + ((0.037496399999999999 * fVec16[((IOTA - 17) & 127)]) + ((0.026212800000000001 * fVec16[((IOTA - 16) & 127)]) + ((0.042901499999999995 * fVec16[((IOTA - 15) & 127)]) + ((0.020667000000000001 * fVec16[((IOTA - 14) & 127)]) + ((0.0017872699999999999 * fVec16[((IOTA - 10) & 127)]) + ((0.0012646299999999999 * fVec16[((IOTA - 8) & 127)]) + ((0.00051453000000000002 * fVec16[((IOTA - 6) & 127)]) + ((0.000140598 * fVec16[((IOTA - 3) & 127)]) + ((0.00031664699999999998 * fVec16[((IOTA - 2) & 127)]) + ((5.2325000000000005e-05 * fVec16[((IOTA - 1) & 127)]) + ((0.00191836 * fVec16[((IOTA - 92) & 127)]) + ((0.0035651700000000003 * fVec16[((IOTA - 93) & 127)]) + ((0.00036924600000000005 * fVec16[((IOTA - 91) & 127)]) + ((0.00035358399999999999 * fVec16[((IOTA - 109) & 127)]) + ((4.61018e-05 * fVec16[((IOTA - 108) & 127)]) + ((3.6978000000000004e-05 * fVec16[((IOTA - 104) & 127)]) + ((0.00016568300000000002 * fVec16[((IOTA - 100) & 127)]) + ((0.00126296 * fVec16[((IOTA - 94) & 127)]) + ((5.8891899999999998e-07 * fVec17[((IOTA - 126) & 127)]) + ((1.5362e-06 * fVec17[((IOTA - 125) & 127)]) + ((5.0275400000000003e-05 * fVec17[((IOTA - 120) & 127)]) + ((3.1142400000000002e-05 * fVec17[((IOTA - 119) & 127)]) + ((2.6072899999999997e-06 * fVec17[((IOTA - 118) & 127)]) + ((5.3306300000000008e-05 * fVec17[((IOTA - 117) & 127)]) + ((1.7970700000000001e-05 * fVec17[((IOTA - 116) & 127)]) + ((0.00026641600000000001 * fVec17[((IOTA - 111) & 127)]) + ((0.00038083300000000002 * fVec17[((IOTA - 110) & 127)]) + ((0.00026763500000000001 * fVec17[((IOTA - 107) & 127)]) + ((0.00025283000000000006 * fVec17[((IOTA - 106) & 127)]) + ((4.3015400000000008e-05 * fVec17[((IOTA - 105) & 127)]) + ((0.00132245 * fVec17[((IOTA - 81) & 127)]) + ((7.4600700000000006e-05 * fVec17[((IOTA - 80) & 127)]) + ((0.00135154 * fVec17[((IOTA - 76) & 127)]) + ((9.0714300000000007e-05 * fVec17[((IOTA - 75) & 127)]) + ((0.00046037299999999998 * fVec17[((IOTA - 74) & 127)]) + ((0.00032999100000000002 * fVec17[((IOTA - 73) & 127)]) + ((8.8671600000000007e-05 * fVec17[((IOTA - 66) & 127)]) + ((0.00071361900000000008 * fVec17[((IOTA - 65) & 127)]) + ((0.0021665299999999998 * fVec17[((IOTA - 64) & 127)]) + ((0.0028213700000000001 * fVec17[((IOTA - 63) & 127)]) + ((0.00086561800000000018 * fVec17[((IOTA - 62) & 127)]) + ((0.00109522 * fVec17[((IOTA - 60) & 127)]) + ((0.0027684799999999998 * fVec17[((IOTA - 59) & 127)]) + ((0.00027406100000000003 * fVec17[((IOTA - 58) & 127)]) + ((0.0011284799999999998 * fVec17[((IOTA - 57) & 127)]) + ((0.00017831100000000001 * fVec17[((IOTA - 56) & 127)]) + ((0.0007085180000000001 * fVec17[((IOTA - 53) & 127)]) + ((0.00023227000000000002 * fVec17[((IOTA - 50) & 127)]) + ((0.0011046700000000001 * fVec17[((IOTA - 49) & 127)]) + ((0.0017173400000000001 * fVec17[((IOTA - 47) & 127)]) + ((0.00096283600000000012 * fVec17[((IOTA - 46) & 127)]) + ((0.0020164800000000002 * fVec17[((IOTA - 44) & 127)]) + ((0.00034979300000000004 * fVec17[((IOTA - 41) & 127)]) + ((0.0033543900000000001 * fVec17[((IOTA - 40) & 127)]) + ((0.013240500000000001 * fVec17[((IOTA - 37) & 127)]) + ((0.0071675799999999998 * fVec17[((IOTA - 34) & 127)]) + ((0.0098981 * fVec17[((IOTA - 33) & 127)]) + ((0.00136287 * fVec17[((IOTA - 30) & 127)]) + ((0.00092559700000000001 * fVec17[((IOTA - 28) & 127)]) + ((0.0086453599999999995 * fVec17[((IOTA - 26) & 127)]) + ((0.0019909900000000002 * fVec17[((IOTA - 23) & 127)]) + ((0.013336300000000001 * fVec17[((IOTA - 21) & 127)]) + ((0.00016282300000000001 * fVec17[((IOTA - 20) & 127)]) + ((0.0033735599999999998 * fVec17[((IOTA - 18) & 127)]) + ((0.0013478399999999999 * fVec17[((IOTA - 16) & 127)]) + ((0.0024369399999999999 * fVec17[((IOTA - 15) & 127)]) + ((0.00048140299999999999 * fVec17[((IOTA - 12) & 127)]) + ((8.5212199999999997e-05 * fVec17[((IOTA - 10) & 127)]) + ((0.00015997100000000002 * fVec17[((IOTA - 8) & 127)]) + ((4.6397800000000005e-05 * fVec17[((IOTA - 6) & 127)]) + ((6.0256600000000009e-05 * fVec17[((IOTA - 4) & 127)]) + ((8.9622000000000004e-05 * fVec17[((IOTA - 2) & 127)]) + ((1.7245599999999999e-06 * fTemp17) + ((0.00036025800000000002 * fVec17[((IOTA - 85) & 127)]) + ((0.00010684300000000001 * fVec17[((IOTA - 104) & 127)]) + ((5.1774199999999995e-06 * fVec17[((IOTA - 103) & 127)]) + ((0.000256214 * fVec17[((IOTA - 102) & 127)]) + ((7.3338599999999996e-05 * fVec17[((IOTA - 101) & 127)]) + ((7.9560600000000005e-05 * fVec17[((IOTA - 99) & 127)]) + ((6.534720000000001e-05 * fVec17[((IOTA - 95) & 127)]) + ((0.0016416599999999999 * fVec17[((IOTA - 94) & 127)]) + ((0.00116942 * fVec17[((IOTA - 93) & 127)]) + ((0.00010716300000000002 * fVec17[((IOTA - 89) & 127)]) + ((0.00023784200000000004 * fVec17[((IOTA - 88) & 127)]) + ((0.00029830299999999998 * fVec17[((IOTA - 87) & 127)]) + ((0.0011921100000000001 * fVec17[((IOTA - 86) & 127)]) + ((4.0112199999999995e-06 * fVec18[((IOTA - 125) & 127)]) + ((1.5117400000000002e-05 * fVec18[((IOTA - 124) & 127)]) + ((4.3721500000000005e-05 * fVec18[((IOTA - 120) & 127)]) + ((0.00015560700000000002 * fVec18[((IOTA - 119) & 127)]) + ((7.9108900000000011e-05 * fVec18[((IOTA - 118) & 127)]) + ((5.5350100000000004e-05 * fVec18[((IOTA - 117) & 127)]) + ((0.000188798 * fVec18[((IOTA - 116) & 127)]) + ((0.00014338299999999999 * fVec18[((IOTA - 115) & 127)]) + ((0.000132352 * fVec18[((IOTA - 114) & 127)]) + ((0.00038088800000000002 * fVec18[((IOTA - 111) & 127)]) + ((0.00029129200000000002 * fVec18[((IOTA - 110) & 127)]) + ((0.00042473900000000004 * fVec18[((IOTA - 109) & 127)]) + ((0.00039000200000000002 * fVec18[((IOTA - 108) & 127)]) + ((0.00037496900000000006 * fVec18[((IOTA - 106) & 127)]) + ((0.000122187 * fVec18[((IOTA - 101) & 127)]) + ((5.0613000000000005e-05 * fVec18[((IOTA - 100) & 127)]) + ((0.00034352299999999998 * fVec18[((IOTA - 99) & 127)]) + ((8.3557300000000007e-05 * fVec18[((IOTA - 95) & 127)]) + ((3.1251799999999998e-05 * fVec18[((IOTA - 90) & 127)]) + ((0.00081126199999999999 * fVec18[((IOTA - 89) & 127)]) + ((0.0010102899999999998 * fVec18[((IOTA - 88) & 127)]) + ((0.00016769199999999999 * fVec18[((IOTA - 85) & 127)]) + ((0.0023454999999999999 * fVec18[((IOTA - 84) & 127)]) + ((0.0034605500000000002 * fVec18[((IOTA - 52) & 127)]) + ((0.0048647899999999999 * fVec18[((IOTA - 51) & 127)]) + ((0.00157369 * fVec18[((IOTA - 47) & 127)]) + ((0.0028187400000000001 * fVec18[((IOTA - 46) & 127)]) + ((0.0046525800000000008 * fVec18[((IOTA - 45) & 127)]) + ((0.00020012 * fVec18[((IOTA - 43) & 127)]) + ((0.00347263 * fVec18[((IOTA - 42) & 127)]) + ((0.0063060700000000004 * fVec18[((IOTA - 39) & 127)]) + ((0.00608021 * fVec18[((IOTA - 38) & 127)]) + ((0.0032300599999999999 * fVec18[((IOTA - 35) & 127)]) + ((0.0153619 * fVec18[((IOTA - 34) & 127)]) + ((0.0075184400000000004 * fVec18[((IOTA - 33) & 127)]) + ((0.016116399999999999 * fVec18[((IOTA - 32) & 127)]) + ((0.0087108600000000008 * fVec18[((IOTA - 31) & 127)]) + ((0.011844500000000001 * fVec18[((IOTA - 27) & 127)]) + ((0.0088785800000000005 * fVec18[((IOTA - 26) & 127)]) + ((0.0071259000000000001 * fVec18[((IOTA - 19) & 127)]) + ((0.020032899999999999 * fVec18[((IOTA - 18) & 127)]) + ((0.041877400000000002 * fVec18[((IOTA - 17) & 127)]) + ((0.040486800000000003 * fVec18[((IOTA - 16) & 127)]) + ((0.0014058600000000001 * fVec18[((IOTA - 15) & 127)]) + ((0.00187744 * fVec18[((IOTA - 14) & 127)]) + ((0.00024379800000000001 * fVec18[((IOTA - 9) & 127)]) + ((0.00038353700000000004 * fVec18[((IOTA - 8) & 127)]) + ((0.00030841899999999999 * fVec18[((IOTA - 7) & 127)]) + ((0.000199779 * fVec18[((IOTA - 5) & 127)]) + ((6.6441500000000004e-05 * fVec18[((IOTA - 2) & 127)]) + ((8.8823800000000002e-05 * fVec18[((IOTA - 1) & 127)]) + ((1.1196600000000002e-05 * fTemp18) + ((0.0012237400000000001 * fVec18[((IOTA - 62) & 127)]) + ((0.0028021500000000002 * fVec18[((IOTA - 61) & 127)]) + ((0.00089523300000000005 * fVec18[((IOTA - 60) & 127)]) + ((2.3934399999999998e-07 * fVec19[((IOTA - 126) & 127)]) + ((0.0020901600000000002 * fVec18[((IOTA - 83) & 127)]) + ((0.00077017200000000007 * fVec18[((IOTA - 79) & 127)]) + ((0.000728887 * fVec18[((IOTA - 78) & 127)]) + ((0.0021097199999999998 * fVec18[((IOTA - 75) & 127)]) + ((0.0025037600000000003 * fVec18[((IOTA - 74) & 127)]) + ((0.00040049300000000003 * fVec18[((IOTA - 73) & 127)]) + ((0.000236257 * fVec18[((IOTA - 71) & 127)]) + ((0.00080940200000000008 * fVec18[((IOTA - 68) & 127)]) + ((0.0014248099999999999 * fVec18[((IOTA - 67) & 127)]) + ((0.00051849200000000006 * fVec18[((IOTA - 66) & 127)]) + ((0.00083918999999999997 * fVec18[((IOTA - 59) & 127)]) + ((0.00050695199999999997 * fVec18[((IOTA - 58) & 127)]) + ((0.00064994100000000002 * fVec19[((IOTA - 4) & 127)]) + ((0.00020408400000000002 * fVec19[((IOTA - 3) & 127)]) + ((5.0749199999999992e-06 * fVec19[((IOTA - 1) & 127)]) + ((1.6051900000000001e-05 * fTemp19) + ((0.00473027 * fVec20[((IOTA - 14) & 127)]) + ((0.00083837600000000005 * fVec20[((IOTA - 12) & 127)]) + ((0.00052448499999999999 * fVec20[((IOTA - 11) & 127)]) + ((0.0012249000000000001 * fVec20[((IOTA - 10) & 127)]) + ((0.00056178000000000001 * fVec20[((IOTA - 7) & 127)]) + ((4.4565200000000005e-05 * fVec20[((IOTA - 6) & 127)]) + ((0.00026242200000000006 * fVec20[((IOTA - 5) & 127)]) + ((0.00017666400000000001 * fVec20[((IOTA - 3) & 127)]) + ((3.9999700000000003e-05 * fVec20[((IOTA - 1) & 127)]) + ((1.2420800000000001e-05 * fVec19[((IOTA - 123) & 127)]) + ((3.0383900000000002e-05 * fVec19[((IOTA - 122) & 127)]) + ((0.00014400599999999999 * fVec19[((IOTA - 106) & 127)]) + ((0.00056116599999999999 * fVec19[((IOTA - 105) & 127)]) + ((0.00043078500000000004 * fVec19[((IOTA - 104) & 127)]) + ((0.00016122200000000001 * fVec19[((IOTA - 101) & 127)]) + ((0.00032777300000000001 * fVec19[((IOTA - 100) & 127)]) + ((0.00086172699999999996 * fVec19[((IOTA - 99) & 127)]) + ((0.00116818 * fVec19[((IOTA - 98) & 127)]) + ((0.00088091000000000016 * fVec19[((IOTA - 97) & 127)]) + ((0.0006577480000000001 * fVec19[((IOTA - 96) & 127)]) + ((0.00066074500000000002 * fVec19[((IOTA - 95) & 127)]) + ((0.0018925399999999998 * fVec19[((IOTA - 94) & 127)]) + ((0.0023709600000000001 * fVec19[((IOTA - 93) & 127)]) + ((0.0009980639999999999 * fVec19[((IOTA - 92) & 127)]) + ((0.0012026699999999999 * fVec19[((IOTA - 91) & 127)]) + ((0.00057528899999999999 * fVec19[((IOTA - 90) & 127)]) + ((0.0011426300000000002 * fVec19[((IOTA - 86) & 127)]) + ((0.0012205 * fVec19[((IOTA - 85) & 127)]) + ((0.0013112 * fVec19[((IOTA - 81) & 127)]) + ((0.00133194 * fVec19[((IOTA - 80) & 127)]) + ((0.0011322700000000001 * fVec19[((IOTA - 73) & 127)]) + ((0.00181778 * fVec19[((IOTA - 72) & 127)]) + ((0.00071619100000000003 * fVec19[((IOTA - 71) & 127)]) + ((0.0016215200000000002 * fVec19[((IOTA - 70) & 127)]) + ((0.00066023199999999996 * fVec19[((IOTA - 64) & 127)]) + ((0.00109943 * fVec19[((IOTA - 61) & 127)]) + ((0.0031036200000000001 * fVec19[((IOTA - 60) & 127)]) + ((0.0042161500000000001 * fVec19[((IOTA - 59) & 127)]) + ((0.0025095600000000001 * fVec19[((IOTA - 58) & 127)]) + ((0.0032661999999999999 * fVec19[((IOTA - 54) & 127)]) + ((0.0034819399999999998 * fVec19[((IOTA - 53) & 127)]) + ((0.00163773 * fVec19[((IOTA - 49) & 127)]) + ((0.00127327 * fVec19[((IOTA - 48) & 127)]) + ((0.0010735900000000001 * fVec19[((IOTA - 44) & 127)]) + ((0.0025665700000000002 * fVec19[((IOTA - 43) & 127)]) + ((0.0028225600000000004 * fVec19[((IOTA - 42) & 127)]) + ((0.0053647900000000004 * fVec19[((IOTA - 41) & 127)]) + ((0.0047349100000000002 * fVec19[((IOTA - 40) & 127)]) + ((0.0038553600000000004 * fVec19[((IOTA - 35) & 127)]) + ((0.0039412199999999996 * fVec19[((IOTA - 34) & 127)]) + ((0.0124636 * fVec19[((IOTA - 28) & 127)]) + ((0.0117299 * fVec19[((IOTA - 27) & 127)]) + ((0.00123668 * fVec19[((IOTA - 26) & 127)]) + ((0.037707000000000004 * fVec19[((IOTA - 23) & 127)]) + ((0.063962000000000005 * fVec19[((IOTA - 22) & 127)]) + ((0.023310000000000001 * fVec19[((IOTA - 17) & 127)]) + ((0.028106900000000001 * fVec19[((IOTA - 16) & 127)]) + ((0.0042459100000000003 * fVec19[((IOTA - 13) & 127)]) + ((0.017260600000000001 * fVec19[((IOTA - 12) & 127)]) + ((0.000626824 * fVec19[((IOTA - 10) & 127)]) + ((0.00043621100000000004 * fVec19[((IOTA - 8) & 127)]) + ((0.00071821400000000011 * fVec19[((IOTA - 7) & 127)]) + ((3.1669099999999999e-07 * fVec20[((IOTA - 126) & 127)]) + ((1.6687399999999998e-06 * fVec20[((IOTA - 125) & 127)]) + ((1.28328e-05 * fVec20[((IOTA - 122) & 127)]) + ((1.7308800000000003e-05 * fVec20[((IOTA - 121) & 127)]) + ((4.9074099999999998e-05 * fVec20[((IOTA - 117) & 127)]) + ((2.5899899999999999e-05 * fVec20[((IOTA - 116) & 127)]) + ((0.00011491000000000001 * fVec20[((IOTA - 114) & 127)]) + ((8.8784300000000003e-05 * fVec20[((IOTA - 112) & 127)]) + ((7.9503400000000002e-05 * fVec20[((IOTA - 111) & 127)]) + ((8.1492400000000013e-05 * fVec20[((IOTA - 110) & 127)]) + ((9.1673400000000002e-05 * fVec20[((IOTA - 109) & 127)]) + ((0.00025111700000000003 * fVec20[((IOTA - 105) & 127)]) + ((0.00018673 * fVec20[((IOTA - 104) & 127)]) + ((0.00071093600000000001 * fVec20[((IOTA - 102) & 127)]) + ((0.00104291 * fVec20[((IOTA - 101) & 127)]) + ((0.058097799999999998 * fVec20[((IOTA - 19) & 127)]) + ((0.00012821000000000002 * fVec20[((IOTA - 93) & 127)]) + ((0.00085017999999999997 * fVec20[((IOTA - 92) & 127)]) + ((0.000712106 * fVec20[((IOTA - 91) & 127)]) + ((0.00071435800000000001 * fVec20[((IOTA - 86) & 127)]) + ((0.00037586100000000001 * fVec20[((IOTA - 84) & 127)]) + ((0.0012874099999999999 * fVec20[((IOTA - 83) & 127)]) + ((0.0014784800000000001 * fVec20[((IOTA - 82) & 127)]) + ((0.00193484 * fVec20[((IOTA - 81) & 127)]) + ((0.00029607 * fVec20[((IOTA - 80) & 127)]) + ((0.00071585700000000008 * fVec20[((IOTA - 74) & 127)]) + ((0.0023252199999999998 * fVec20[((IOTA - 73) & 127)]) + ((0.0013749300000000001 * fVec20[((IOTA - 68) & 127)]) + ((0.00058439199999999998 * fVec20[((IOTA - 67) & 127)]) + ((0.0011591100000000001 * fVec20[((IOTA - 63) & 127)]) + ((0.00056720100000000003 * fVec20[((IOTA - 62) & 127)]) + ((0.0020986799999999999 * fVec20[((IOTA - 60) & 127)]) + ((0.00155243 * fVec20[((IOTA - 59) & 127)]) + ((3.2355100000000005e-05 * fVec20[((IOTA - 57) & 127)]) + ((0.00057845500000000007 * fVec20[((IOTA - 56) & 127)]) + ((0.00150241 * fVec20[((IOTA - 55) & 127)]) + ((0.00172704 * fVec20[((IOTA - 54) & 127)]) + ((0.0023094999999999999 * fVec20[((IOTA - 53) & 127)]) + ((0.0013355600000000002 * fVec20[((IOTA - 50) & 127)]) + ((0.0016919000000000001 * fVec20[((IOTA - 49) & 127)]) + ((0.0041987500000000002 * fVec20[((IOTA - 46) & 127)]) + ((0.0013185600000000001 * fVec20[((IOTA - 43) & 127)]) + ((0.0045889699999999995 * fVec20[((IOTA - 40) & 127)]) + ((0.00114539 * fVec20[((IOTA - 39) & 127)]) + ((0.0121855 * fVec20[((IOTA - 36) & 127)]) + ((0.00058276900000000002 * fVec20[((IOTA - 34) & 127)]) + ((0.0107633 * fVec20[((IOTA - 33) & 127)]) + ((0.013816500000000001 * fVec20[((IOTA - 29) & 127)]) + ((0.00604938 * fVec20[((IOTA - 28) & 127)]) + ((0.020943 * fVec20[((IOTA - 27) & 127)]) + ((0.013073399999999999 * fVec20[((IOTA - 24) & 127)]) + ((0.0144256 * fVec20[((IOTA - 23) & 127)]) + ((0.013579000000000001 * fVec20[((IOTA - 22) & 127)]) + ((1.42182e-06 * fVec21[((IOTA - 126) & 127)]) + ((3.38734e-06 * fVec21[((IOTA - 125) & 127)]) + ((3.55566e-07 * fVec21[((IOTA - 124) & 127)]) + ((1.54209e-06 * fVec21[((IOTA - 123) & 127)]) + ((1.0269900000000001e-05 * fVec21[((IOTA - 121) & 127)]) + ((5.1458800000000003e-05 * fVec21[((IOTA - 120) & 127)]) + ((9.7858700000000005e-05 * fVec21[((IOTA - 110) & 127)]) + ((0.00024103300000000001 * fVec21[((IOTA - 108) & 127)]) + ((4.9494600000000006e-05 * fVec21[((IOTA - 106) & 127)]) + ((4.0191900000000004e-05 * fVec21[((IOTA - 105) & 127)]) + ((4.5314599999999995e-06 * fVec21[((IOTA - 103) & 127)]) + ((0.00025367800000000002 * fVec21[((IOTA - 101) & 127)]) + ((0.000293212 * fVec21[((IOTA - 100) & 127)]) + ((0.00039481299999999999 * fVec21[((IOTA - 99) & 127)]) + ((0.00059363700000000005 * fVec21[((IOTA - 98) & 127)]) + ((0.00084704300000000012 * fVec21[((IOTA - 97) & 127)]) + ((0.0015023899999999999 * fVec21[((IOTA - 96) & 127)]) + ((0.00124766 * fVec21[((IOTA - 95) & 127)]) + ((0.000547987 * fVec21[((IOTA - 92) & 127)]) + ((0.00076694000000000013 * fVec21[((IOTA - 91) & 127)]) + ((0.00094673100000000003 * fVec21[((IOTA - 90) & 127)]) + ((0.000164878 * fVec21[((IOTA - 89) & 127)]) + ((9.2560700000000003e-05 * fVec21[((IOTA - 88) & 127)]) + ((0.00030100299999999999 * fVec21[((IOTA - 87) & 127)]) + ((0.00050179800000000002 * fVec21[((IOTA - 86) & 127)]) + ((0.00149106 * fVec21[((IOTA - 85) & 127)]) + ((0.00071892899999999999 * fVec21[((IOTA - 84) & 127)]) + ((0.00048326599999999999 * fVec21[((IOTA - 81) & 127)]) + ((0.00072090700000000001 * fVec21[((IOTA - 80) & 127)]) + ((0.00023854600000000002 * fVec21[((IOTA - 78) & 127)]) + ((0.0014875400000000001 * fVec21[((IOTA - 77) & 127)]) + ((0.0033493400000000001 * fVec21[((IOTA - 76) & 127)]) + ((0.0031260400000000001 * fVec21[((IOTA - 75) & 127)]) + ((0.0303129 * fVec21[((IOTA - 18) & 127)]) + ((0.00060355100000000002 * fVec21[((IOTA - 15) & 127)]) + ((0.00046831500000000007 * fVec21[((IOTA - 13) & 127)]) + ((0.012178800000000002 * fVec21[((IOTA - 12) & 127)]) + ((0.0012102200000000001 * fVec21[((IOTA - 10) & 127)]) + ((0.00099936700000000014 * fVec21[((IOTA - 9) & 127)]) + ((0.00060848900000000004 * fVec21[((IOTA - 6) & 127)]) + ((0.00037949199999999999 * fVec21[((IOTA - 5) & 127)]) + ((0.00016164900000000001 * fVec21[((IOTA - 3) & 127)]) + ((4.3842899999999996e-07 * fVec21[((IOTA - 2) & 127)]) + ((2.52175e-05 * fVec21[((IOTA - 1) & 127)]) + ((1.1251800000000001e-05 * fTemp21) + ((0.0097574199999999993 * fVec21[((IOTA - 25) & 127)]) + ((0.0053800000000000002 * fVec21[((IOTA - 24) & 127)]) + ((0.0060703699999999994 * fVec21[((IOTA - 22) & 127)]) + ((0.00083117599999999999 * fVec21[((IOTA - 74) & 127)]) + ((0.00045545999999999998 * fVec21[((IOTA - 68) & 127)]) + ((0.0010428 * fVec21[((IOTA - 67) & 127)]) + ((0.0019296000000000001 * fVec21[((IOTA - 66) & 127)]) + ((0.00020463 * fVec21[((IOTA - 65) & 127)]) + ((0.0010030900000000001 * fVec21[((IOTA - 64) & 127)]) + ((0.00166927 * fVec21[((IOTA - 63) & 127)]) + ((0.00022598400000000001 * fVec21[((IOTA - 62) & 127)]) + ((0.00060200900000000003 * fVec21[((IOTA - 61) & 127)]) + ((0.00083492200000000009 * fVec21[((IOTA - 60) & 127)]) + ((9.2360600000000005e-05 * fVec21[((IOTA - 59) & 127)]) + ((0.00095314700000000011 * fVec21[((IOTA - 52) & 127)]) + ((0.00228246 * fVec21[((IOTA - 51) & 127)]) + ((0.0043644199999999999 * fVec21[((IOTA - 50) & 127)]) + ((0.0053697700000000003 * fVec21[((IOTA - 49) & 127)]) + ((0.0012248000000000001 * fVec21[((IOTA - 48) & 127)]) + ((0.0058665100000000001 * fVec21[((IOTA - 43) & 127)]) + ((0.0074193800000000006 * fVec21[((IOTA - 19) & 127)]) + ((0.0019103500000000001 * fVec21[((IOTA - 42) & 127)]) + ((0.0091888300000000003 * fVec21[((IOTA - 38) & 127)]) + ((0.0083688600000000005 * fVec21[((IOTA - 37) & 127)]) + ((0.0049278500000000001 * fVec21[((IOTA - 36) & 127)]) + ((0.0073932900000000003 * fVec21[((IOTA - 33) & 127)]) + ((0.00548534 * fVec21[((IOTA - 31) & 127)]) + ((0.0028647 * fVec21[((IOTA - 30) & 127)]) + ((0.0077168700000000007 * fVec21[((IOTA - 28) & 127)]) + ((1.99452e-07 * fVec22[((IOTA - 126) & 127)]) + ((5.9452600000000002e-06 * fVec22[((IOTA - 125) & 127)]) + ((4.5447499999999991e-06 * fVec22[((IOTA - 124) & 127)]) + ((3.63984e-05 * fVec22[((IOTA - 121) & 127)]) + ((7.7160200000000014e-05 * fVec22[((IOTA - 120) & 127)]) + ((8.9261199999999998e-05 * fVec22[((IOTA - 113) & 127)]) + ((0.00032315499999999999 * fVec22[((IOTA - 109) & 127)]) + ((0.00016531600000000001 * fVec22[((IOTA - 108) & 127)]) + ((4.6986800000000009e-05 * fVec22[((IOTA - 106) & 127)]) + ((0.00025181600000000003 * fVec22[((IOTA - 105) & 127)]) + ((9.0767900000000016e-05 * fVec22[((IOTA - 99) & 127)]) + ((0.00023176100000000003 * fVec22[((IOTA - 97) & 127)]) + ((0.00080298400000000008 * fVec22[((IOTA - 96) & 127)]) + ((0.00069823599999999997 * fVec22[((IOTA - 95) & 127)]) + ((0.00077859999999999995 * fVec22[((IOTA - 94) & 127)]) + ((0.0010210200000000001 * fVec22[((IOTA - 93) & 127)]) + ((0.00079149500000000002 * fVec22[((IOTA - 69) & 127)]) + ((0.0059246500000000001 * fVec22[((IOTA - 68) & 127)]) + ((0.0068489100000000006 * fVec22[((IOTA - 67) & 127)]) + ((0.0030456500000000004 * fVec22[((IOTA - 66) & 127)]) + ((0.0024000200000000001 * fVec22[((IOTA - 64) & 127)]) + ((0.0039972499999999999 * fVec22[((IOTA - 63) & 127)]) + ((0.00464818 * fVec22[((IOTA - 51) & 127)]) + ((0.0030283900000000002 * fVec22[((IOTA - 50) & 127)]) + ((0.00066394700000000002 * fVec22[((IOTA - 47) & 127)]) + ((0.00253834 * fVec22[((IOTA - 44) & 127)]) + ((0.0083012099999999998 * fVec22[((IOTA - 43) & 127)]) + ((0.0117918 * fVec22[((IOTA - 40) & 127)]) + ((0.0095889700000000005 * fVec22[((IOTA - 36) & 127)]) + ((0.0071901300000000003 * fVec22[((IOTA - 35) & 127)]) + ((0.0060223199999999994 * fVec22[((IOTA - 32) & 127)]) + ((0.045109799999999999 * fVec22[((IOTA - 31) & 127)]) + ((0.0208799 * fVec22[((IOTA - 30) & 127)]) + ((0.017652600000000001 * fVec22[((IOTA - 27) & 127)]) + ((0.017632800000000001 * fVec22[((IOTA - 22) & 127)]) + ((0.017422800000000002 * fVec22[((IOTA - 21) & 127)]) + ((0.022197600000000001 * fVec22[((IOTA - 20) & 127)]) + ((0.019054700000000001 * fVec22[((IOTA - 19) & 127)]) + ((0.016357099999999999 * fVec22[((IOTA - 17) & 127)]) + ((0.020028999999999998 * fVec22[((IOTA - 16) & 127)]) + ((0.0078711900000000001 * fVec22[((IOTA - 12) & 127)]) + ((0.0014582099999999999 * fVec22[((IOTA - 11) & 127)]) + ((0.00062471599999999999 * fVec22[((IOTA - 9) & 127)]) + ((0.00162677 * fVec22[((IOTA - 7) & 127)]) + ((0.00116299 * fVec22[((IOTA - 5) & 127)]) + ((8.6241699999999998e-05 * fVec22[((IOTA - 4) & 127)]) + ((0.00039905000000000002 * fVec22[((IOTA - 3) & 127)]) + ((4.7087999999999997e-06 * fVec22[((IOTA - 1) & 127)]) + ((0.00153375 * fVec22[((IOTA - 78) & 127)]) + ((0.0010877699999999998 * fVec22[((IOTA - 77) & 127)]) + ((0.0010103800000000002 * fVec22[((IOTA - 76) & 127)]) + ((0.00051142200000000009 * fVec22[((IOTA - 88) & 127)]) + ((0.00065435200000000008 * fVec22[((IOTA - 87) & 127)]) + ((0.00128331 * fVec22[((IOTA - 86) & 127)]) + ((0.00044122600000000002 * fVec22[((IOTA - 85) & 127)]) + ((0.00109859 * fVec22[((IOTA - 84) & 127)]) + ((0.00048614699999999998 * fVec22[((IOTA - 83) & 127)]) + ((0.00056543900000000005 * fVec22[((IOTA - 81) & 127)]) + ((0.00042531800000000005 * fVec22[((IOTA - 80) & 127)]) + ((0.00037687700000000002 * fVec22[((IOTA - 79) & 127)]) + ((5.3289600000000006e-05 * fVec25[((IOTA - 119) & 127)]) + ((0.000107805 * fVec25[((IOTA - 118) & 127)]) + ((0.00016857100000000001 * fVec25[((IOTA - 117) & 127)]) + ((0.00017462800000000002 * fVec25[((IOTA - 116) & 127)]) + ((0.00020061900000000003 * fVec25[((IOTA - 115) & 127)]) + ((0.00026791400000000001 * fVec25[((IOTA - 114) & 127)]) + ((0.000214133 * fVec25[((IOTA - 113) & 127)]) + ((0.00012941499999999999 * fVec25[((IOTA - 112) & 127)]) + ((0.000341992 * fVec25[((IOTA - 111) & 127)]) + ((0.00073887099999999999 * fVec25[((IOTA - 110) & 127)]) + ((0.000178548 * fVec25[((IOTA - 109) & 127)]) + ((0.00034591100000000002 * fVec25[((IOTA - 107) & 127)]) + ((0.00056230400000000002 * fVec25[((IOTA - 106) & 127)]) + ((0.00034390400000000002 * fVec25[((IOTA - 105) & 127)]) + ((0.00040135500000000005 * fVec25[((IOTA - 102) & 127)]) + ((1.2323300000000001e-05 * fVec25[((IOTA - 99) & 127)]) + ((0.00017320599999999999 * fVec25[((IOTA - 98) & 127)]) + ((0.00137867 * fVec25[((IOTA - 90) & 127)]) + ((0.0011166000000000001 * fVec25[((IOTA - 89) & 127)]) + ((0.00077525200000000004 * fVec25[((IOTA - 88) & 127)]) + ((0.00051248299999999999 * fVec25[((IOTA - 87) & 127)]) + ((0.00034004900000000004 * fVec25[((IOTA - 86) & 127)]) + ((0.000134423 * fVec25[((IOTA - 84) & 127)]) + ((0.0011347400000000002 * fVec25[((IOTA - 83) & 127)]) + ((5.784670000000001e-05 * fVec25[((IOTA - 82) & 127)]) + ((0.0008637740000000001 * fVec25[((IOTA - 78) & 127)]) + ((0.0017782899999999999 * fVec25[((IOTA - 77) & 127)]) + ((0.00095740300000000012 * fVec25[((IOTA - 76) & 127)]) + ((0.00027913800000000001 * fVec25[((IOTA - 75) & 127)]) + ((0.000413929 * fVec25[((IOTA - 74) & 127)]) + ((0.0014493400000000001 * fVec25[((IOTA - 70) & 127)]) + ((0.0024630899999999998 * fVec25[((IOTA - 69) & 127)]) + ((0.00066884400000000004 * fVec25[((IOTA - 68) & 127)]) + ((0.0016410700000000001 * fVec25[((IOTA - 66) & 127)]) + ((0.0028929999999999997 * fVec25[((IOTA - 65) & 127)]) + ((0.00010676699999999999 * fVec25[((IOTA - 60) & 127)]) + ((0.00080710999999999999 * fVec25[((IOTA - 58) & 127)]) + ((0.0015732999999999999 * fVec25[((IOTA - 57) & 127)]) + ((0.00047008900000000003 * fVec25[((IOTA - 56) & 127)]) + ((0.00058858800000000002 * fVec25[((IOTA - 46) & 127)]) + ((0.0089012100000000014 * fVec25[((IOTA - 45) & 127)]) + ((0.0063971999999999996 * fVec25[((IOTA - 44) & 127)]) + ((0.0011654300000000001 * fVec25[((IOTA - 42) & 127)]) + ((0.0065539300000000003 * fVec25[((IOTA - 41) & 127)]) + ((0.00199292 * fVec25[((IOTA - 37) & 127)]) + ((0.0048789100000000002 * fVec25[((IOTA - 36) & 127)]) + ((0.00714622 * fVec25[((IOTA - 35) & 127)]) + ((0.0095548600000000001 * fVec25[((IOTA - 33) & 127)]) + ((0.0029659300000000003 * fVec25[((IOTA - 29) & 127)]) + ((0.029996000000000002 * fVec25[((IOTA - 28) & 127)]) + ((0.0016475999999999999 * fVec25[((IOTA - 27) & 127)]) + ((0.0254705 * fVec25[((IOTA - 25) & 127)]) + ((0.0083854199999999993 * fVec25[((IOTA - 24) & 127)]) + ((0.039960800000000005 * fVec25[((IOTA - 18) & 127)]) + ((0.0071864600000000004 * fVec25[((IOTA - 17) & 127)]) + ((0.032838599999999996 * fVec25[((IOTA - 15) & 127)]) + ((0.00164934 * fVec25[((IOTA - 14) & 127)]) + ((0.0050885600000000007 * fVec25[((IOTA - 13) & 127)]) + ((0.00094482099999999999 * fVec25[((IOTA - 10) & 127)]) + ((7.6144500000000003e-05 * fVec25[((IOTA - 9) & 127)]) + ((0.00057894000000000001 * fVec25[((IOTA - 8) & 127)]) + ((0.00159128 * fVec25[((IOTA - 6) & 127)]) + ((0.00015391 * fVec25[((IOTA - 4) & 127)]) + ((0.00036213800000000002 * fVec25[((IOTA - 2) & 127)]) + ((1.8821400000000002e-05 * fTemp25) + ((3.5712499999999999e-07 * fVec24[((IOTA - 126) & 127)]) + ((1.1903999999999999e-06 * fVec24[((IOTA - 125) & 127)]) + ((9.2364300000000006e-06 * fVec24[((IOTA - 124) & 127)]) + ((7.6588799999999991e-06 * fVec24[((IOTA - 123) & 127)]) + ((8.9591899999999999e-06 * fVec24[((IOTA - 120) & 127)]) + ((8.6424300000000005e-05 * fVec24[((IOTA - 119) & 127)]) + ((7.8613700000000009e-05 * fVec24[((IOTA - 118) & 127)]) + ((4.4238600000000007e-05 * fVec24[((IOTA - 117) & 127)]) + ((5.5205099999999998e-06 * fVec24[((IOTA - 115) & 127)]) + ((6.6639900000000005e-05 * fVec24[((IOTA - 114) & 127)]) + ((0.000157369 * fVec24[((IOTA - 111) & 127)]) + ((8.3003200000000005e-05 * fVec24[((IOTA - 110) & 127)]) + ((0.000439844 * fVec24[((IOTA - 107) & 127)]) + ((0.00027481100000000002 * fVec24[((IOTA - 106) & 127)]) + ((0.0014874700000000001 * fVec24[((IOTA - 86) & 127)]) + ((0.00093692899999999997 * fVec24[((IOTA - 85) & 127)]) + ((0.0006546770000000001 * fVec24[((IOTA - 84) & 127)]) + ((0.000134809 * fVec24[((IOTA - 83) & 127)]) + ((0.00019593 * fVec24[((IOTA - 82) & 127)]) + ((0.0010831700000000001 * fVec24[((IOTA - 81) & 127)]) + ((0.00121283 * fVec24[((IOTA - 80) & 127)]) + ((0.0021823700000000003 * fVec24[((IOTA - 79) & 127)]) + ((0.00119166 * fVec24[((IOTA - 78) & 127)]) + ((0.00055397699999999999 * fVec24[((IOTA - 74) & 127)]) + ((0.0020279199999999999 * fVec24[((IOTA - 73) & 127)]) + ((0.00014092800000000002 * fVec24[((IOTA - 72) & 127)]) + ((8.5715000000000015e-05 * fVec24[((IOTA - 70) & 127)]) + ((0.00122613 * fVec24[((IOTA - 69) & 127)]) + ((0.0019218100000000001 * fVec24[((IOTA - 68) & 127)]) + ((0.00059488300000000004 * fVec24[((IOTA - 67) & 127)]) + ((0.000167615 * fVec24[((IOTA - 63) & 127)]) + ((0.00088971800000000006 * fVec24[((IOTA - 61) & 127)]) + ((0.0030282500000000001 * fVec24[((IOTA - 60) & 127)]) + ((0.0047336600000000006 * fVec24[((IOTA - 54) & 127)]) + ((0.0044919299999999999 * fVec24[((IOTA - 53) & 127)]) + ((0.0011470100000000002 * fVec24[((IOTA - 50) & 127)]) + ((0.0012055499999999999 * fVec24[((IOTA - 48) & 127)]) + ((0.0059192300000000002 * fVec24[((IOTA - 47) & 127)]) + ((0.0032900500000000001 * fVec24[((IOTA - 44) & 127)]) + ((0.00224289 * fVec24[((IOTA - 43) & 127)]) + ((0.00017730600000000001 * fVec24[((IOTA - 42) & 127)]) + ((0.0072601800000000006 * fVec24[((IOTA - 41) & 127)]) + ((0.00453353 * fVec24[((IOTA - 38) & 127)]) + ((0.00194991 * fVec24[((IOTA - 37) & 127)]) + ((0.00083337500000000002 * fVec24[((IOTA - 35) & 127)]) + ((0.0247151 * fVec24[((IOTA - 34) & 127)]) + ((0.0069191299999999999 * fVec24[((IOTA - 30) & 127)]) + ((0.0098116000000000002 * fVec24[((IOTA - 29) & 127)]) + ((0.0033760599999999997 * fVec24[((IOTA - 28) & 127)]) + ((0.0036533899999999998 * fVec24[((IOTA - 27) & 127)]) + ((0.0209074 * fVec24[((IOTA - 22) & 127)]) + ((0.0101589 * fVec24[((IOTA - 21) & 127)]) + ((0.016458299999999999 * fVec24[((IOTA - 20) & 127)]) + ((0.021493699999999998 * fVec24[((IOTA - 17) & 127)]) + ((0.0062705200000000008 * fVec24[((IOTA - 16) & 127)]) + ((0.0048823400000000006 * fVec24[((IOTA - 14) & 127)]) + ((0.00084803800000000007 * fVec24[((IOTA - 11) & 127)]) + ((0.0012552099999999999 * fVec24[((IOTA - 8) & 127)]) + ((0.00022105899999999999 * fVec24[((IOTA - 6) & 127)]) + ((0.00024554399999999999 * fVec24[((IOTA - 5) & 127)]) + ((0.00061196600000000003 * fVec24[((IOTA - 4) & 127)]) + ((0.00014579800000000002 * fVec24[((IOTA - 2) & 127)]) + ((3.2093500000000007e-05 * fVec24[((IOTA - 102) & 127)]) + ((0.00036137300000000001 * fVec24[((IOTA - 96) & 127)]) + ((0.0010790400000000001 * fVec24[((IOTA - 88) & 127)]) + ((0.00061885399999999995 * fVec24[((IOTA - 95) & 127)]) + ((0.00066768000000000003 * fVec24[((IOTA - 94) & 127)]) + ((0.00017124500000000002 * fVec24[((IOTA - 93) & 127)]) + ((0.00025192200000000002 * fVec24[((IOTA - 92) & 127)]) + ((0.00091703800000000001 * fVec24[((IOTA - 91) & 127)]) + ((1.2403399999999998e-06 * fVec26[((IOTA - 126) & 127)]) + ((6.5523199999999996e-06 * fVec26[((IOTA - 125) & 127)]) + ((7.103729999999999e-06 * fVec26[((IOTA - 124) & 127)]) + ((4.8057499999999997e-06 * fVec26[((IOTA - 123) & 127)]) + ((1.4907900000000002e-05 * fVec26[((IOTA - 122) & 127)]) + ((5.6678000000000002e-05 * fVec26[((IOTA - 121) & 127)]) + ((3.2618499999999999e-05 * fVec26[((IOTA - 120) & 127)]) + ((4.2858599999999997e-05 * fVec26[((IOTA - 116) & 127)]) + ((1.2154900000000001e-05 * fVec26[((IOTA - 115) & 127)]) + ((8.1906300000000006e-05 * fVec26[((IOTA - 101) & 127)]) + ((0.0015949800000000002 * fVec24[((IOTA - 87) & 127)]) + ((0.00050917300000000003 * fVec26[((IOTA - 100) & 127)]) + ((3.9907800000000004e-05 * fVec26[((IOTA - 92) & 127)]) + ((0.00063396999999999998 * fVec26[((IOTA - 91) & 127)]) + ((0.00126468 * fVec26[((IOTA - 90) & 127)]) + ((0.0016863 * fVec26[((IOTA - 89) & 127)]) + ((0.0009600120000000001 * fVec26[((IOTA - 86) & 127)]) + ((0.012640400000000001 * fVec26[((IOTA - 17) & 127)]) + ((0.00686843 * fVec26[((IOTA - 15) & 127)]) + ((0.0014359399999999999 * fVec26[((IOTA - 13) & 127)]) + ((0.00021416200000000003 * fVec26[((IOTA - 9) & 127)]) + ((0.00044645700000000004 * fVec26[((IOTA - 8) & 127)]) + ((0.00064300400000000008 * fVec26[((IOTA - 84) & 127)]) + ((0.00199081 * fVec26[((IOTA - 83) & 127)]) + ((0.0032951600000000001 * fVec26[((IOTA - 82) & 127)]) + ((0.00044377400000000002 * fVec26[((IOTA - 81) & 127)]) + ((0.0011996999999999999 * fVec26[((IOTA - 78) & 127)]) + ((0.0027583899999999999 * fVec26[((IOTA - 77) & 127)]) + ((0.00029621600000000002 * fVec26[((IOTA - 76) & 127)]) + ((0.00042185499999999995 * fVec26[((IOTA - 85) & 127)]) + ((0.00032057000000000006 * fVec26[((IOTA - 74) & 127)]) + ((0.00011427200000000001 * fVec26[((IOTA - 70) & 127)]) + ((0.0023553899999999997 * fVec26[((IOTA - 69) & 127)]) + ((0.00121634 * fVec26[((IOTA - 61) & 127)]) + ((0.0031460699999999999 * fVec26[((IOTA - 60) & 127)]) + ((0.0028280900000000001 * fVec26[((IOTA - 59) & 127)]) + ((0.0041894900000000006 * fVec26[((IOTA - 58) & 127)]) + ((0.0050431600000000005 * fVec26[((IOTA - 57) & 127)]) + ((0.00070018900000000004 * fVec26[((IOTA - 56) & 127)]) + ((0.00079562299999999997 * fVec26[((IOTA - 55) & 127)]) + ((0.0022291200000000002 * fVec26[((IOTA - 54) & 127)]) + ((0.0010627800000000001 * fVec26[((IOTA - 53) & 127)]) + ((0.0025782299999999999 * fVec26[((IOTA - 52) & 127)]) + ((0.0010116599999999999 * fVec26[((IOTA - 51) & 127)]) + ((0.0030807500000000002 * fVec26[((IOTA - 45) & 127)]) + ((0.0044340900000000008 * fVec26[((IOTA - 44) & 127)]) + ((0.0014659899999999999 * fVec26[((IOTA - 39) & 127)]) + ((0.0075921599999999997 * fVec26[((IOTA - 38) & 127)]) + ((0.0013163199999999999 * fVec26[((IOTA - 36) & 127)]) + ((0.00139712 * fVec26[((IOTA - 35) & 127)]) + ((0.020927999999999999 * fVec26[((IOTA - 31) & 127)]) + ((0.0030580300000000002 * fVec26[((IOTA - 30) & 127)]) + ((0.0031714500000000001 * fVec26[((IOTA - 27) & 127)]) + ((0.0298252 * fVec26[((IOTA - 26) & 127)]) + ((0.0033139300000000001 * fVec26[((IOTA - 23) & 127)]) + ((0.0065595499999999999 * fVec26[((IOTA - 21) & 127)]) + ((0.0090886700000000001 * fVec26[((IOTA - 20) & 127)]) + ((0.0062460900000000001 * fVec26[((IOTA - 18) & 127)]) + ((7.7107099999999996e-07 * fVec6[((IOTA - 126) & 127)]) + ((5.8016599999999996e-06 * fVec6[((IOTA - 125) & 127)]) + ((1.0293200000000002e-05 * fVec6[((IOTA - 124) & 127)]) + ((0.00023944000000000002 * fVec26[((IOTA - 4) & 127)]) + ((1.26402e-05 * fVec6[((IOTA - 123) & 127)]) + ((1.2875300000000002e-05 * fVec6[((IOTA - 120) & 127)]) + ((3.0919700000000001e-05 * fVec6[((IOTA - 119) & 127)]) + ((1.3730199999999999e-05 * fVec6[((IOTA - 118) & 127)]) + ((0.00010595300000000001 * fVec6[((IOTA - 117) & 127)]) + ((6.2319599999999999e-05 * fVec6[((IOTA - 116) & 127)]) + ((2.2893700000000001e-05 * fVec6[((IOTA - 114) & 127)]) + ((3.6990800000000005e-05 * fVec6[((IOTA - 113) & 127)]) + ((3.3055699999999998e-06 * fTemp26) + ((0.0014893700000000001 * fVec6[((IOTA - 94) & 127)]) + ((4.13336e-05 * fVec26[((IOTA - 2) & 127)]) + ((0.00075849800000000003 * fVec6[((IOTA - 93) & 127)]) + ((1.7939800000000001e-05 * fVec6[((IOTA - 89) & 127)]) + ((0.00022978000000000001 * fVec6[((IOTA - 88) & 127)]) + ((0.00040871000000000006 * fVec6[((IOTA - 87) & 127)]) + ((0.00042454500000000002 * fVec6[((IOTA - 86) & 127)]) + ((0.00052778200000000008 * fVec6[((IOTA - 85) & 127)]) + ((0.00239894 * fVec6[((IOTA - 84) & 127)]) + ((0.0029262899999999998 * fVec6[((IOTA - 83) & 127)]) + ((0.0016715800000000002 * fVec6[((IOTA - 82) & 127)]) + ((0.0011202900000000001 * fVec6[((IOTA - 81) & 127)]) + ((7.5395799999999992e-06 * fVec6[((IOTA - 80) & 127)]) + ((0.00041440900000000002 * fVec6[((IOTA - 79) & 127)]) + ((3.0152300000000003e-05 * fVec6[((IOTA - 78) & 127)]) + ((0.00022437700000000002 * fVec6[((IOTA - 2) & 127)]) + ((1.9893300000000001e-05 * fVec6[((IOTA - 1) & 127)]) + ((0.0034218899999999999 * fVec6[((IOTA - 17) & 127)]) + ((0.016782399999999999 * fVec6[((IOTA - 14) & 127)]) + ((2.9919300000000003e-05 * fVec6[((IOTA - 11) & 127)]) + ((3.3796500000000001e-05 * fVec6[((IOTA - 9) & 127)]) + ((0.00054442100000000001 * fVec6[((IOTA - 8) & 127)]) + ((0.00071683100000000002 * fVec6[((IOTA - 76) & 127)]) + ((3.8916400000000006e-05 * fVec6[((IOTA - 75) & 127)]) + ((0.0012073799999999999 * fVec6[((IOTA - 74) & 127)]) + ((0.0031728900000000003 * fVec6[((IOTA - 73) & 127)]) + ((0.0018727100000000001 * fVec6[((IOTA - 72) & 127)]) + ((0.00091280400000000013 * fVec6[((IOTA - 63) & 127)]) + ((0.0016841900000000001 * fVec6[((IOTA - 57) & 127)]) + ((0.0014167300000000002 * fVec6[((IOTA - 56) & 127)]) + ((8.9493100000000012e-05 * fVec6[((IOTA - 53) & 127)]) + ((0.00032871800000000003 * fVec6[((IOTA - 52) & 127)]) + ((0.00168373 * fVec6[((IOTA - 51) & 127)]) + ((0.0039323600000000002 * fVec6[((IOTA - 50) & 127)]) + ((0.00094270700000000009 * fVec6[((IOTA - 49) & 127)]) + ((0.0014762200000000001 * fVec6[((IOTA - 45) & 127)]) + ((0.0053497099999999997 * fVec6[((IOTA - 44) & 127)]) + ((0.0013171900000000002 * fVec6[((IOTA - 43) & 127)]) + ((0.0034829700000000002 * fVec6[((IOTA - 41) & 127)]) + ((0.0043833000000000006 * fVec6[((IOTA - 40) & 127)]) + ((0.0085886299999999999 * fVec6[((IOTA - 37) & 127)]) + ((0.0098696699999999988 * fVec6[((IOTA - 36) & 127)]) + ((0.0081568500000000002 * fVec6[((IOTA - 33) & 127)]) + ((0.0055860800000000002 * fVec6[((IOTA - 32) & 127)]) + ((0.0076456700000000002 * fVec6[((IOTA - 31) & 127)]) + ((0.0047620600000000003 * fVec6[((IOTA - 30) & 127)]) + ((0.00244034 * fVec6[((IOTA - 26) & 127)]) + ((0.0027159100000000002 * fVec6[((IOTA - 25) & 127)]) + ((0.0355257 * fVec6[((IOTA - 24) & 127)]) + ((0.013501399999999998 * fVec6[((IOTA - 21) & 127)]) + ((0.010106800000000001 * fVec6[((IOTA - 20) & 127)]) + ((0.016007400000000001 * fVec6[((IOTA - 19) & 127)]) + ((0.020679400000000001 * fVec6[((IOTA - 18) & 127)]) + ((7.4901799999999991e-07 * fVec27[((IOTA - 126) & 127)]) + ((5.2121499999999997e-06 * fVec27[((IOTA - 125) & 127)]) + ((0.00043977500000000005 * fVec6[((IOTA - 6) & 127)]) + ((1.5791000000000002e-05 * fVec27[((IOTA - 124) & 127)]) + ((0.00054478099999999993 * fVec6[((IOTA - 5) & 127)]) + ((2.1421500000000001e-05 * fVec27[((IOTA - 123) & 127)]) + ((2.2224499999999998e-06 * fVec27[((IOTA - 122) & 127)]) + ((2.15894e-05 * fVec27[((IOTA - 121) & 127)]) + ((4.67294e-05 * fVec27[((IOTA - 120) & 127)]) + ((1.9006100000000001e-05 * fVec27[((IOTA - 119) & 127)]) + ((0.00029154800000000003 * fVec27[((IOTA - 104) & 127)]) + ((0.000281437 * fVec27[((IOTA - 102) & 127)]) + ((0.000737136 * fVec27[((IOTA - 101) & 127)]) + ((0.00013028900000000001 * fVec27[((IOTA - 100) & 127)]) + ((0.00065116800000000004 * fVec27[((IOTA - 97) & 127)]) + ((0.00087714900000000003 * fVec27[((IOTA - 96) & 127)]) + ((0.00059851200000000005 * fVec27[((IOTA - 95) & 127)]) + ((0.00058117100000000001 * fVec27[((IOTA - 94) & 127)]) + ((7.4501400000000011e-05 * fVec27[((IOTA - 93) & 127)]) + ((0.00070493400000000005 * fVec27[((IOTA - 92) & 127)]) + ((0.0016990600000000001 * fVec27[((IOTA - 91) & 127)]) + ((0.00105839 * fVec27[((IOTA - 90) & 127)]) + ((0.00064867600000000005 * fVec27[((IOTA - 89) & 127)]) + ((0.00045359999999999997 * fVec27[((IOTA - 84) & 127)]) + ((0.00105405 * fVec27[((IOTA - 83) & 127)]) + ((0.00066430600000000003 * fVec27[((IOTA - 82) & 127)]) + ((1.0579500000000001e-05 * fVec27[((IOTA - 79) & 127)]) + ((0.00085561100000000005 * fVec27[((IOTA - 78) & 127)]) + ((0.00048425300000000003 * fVec27[((IOTA - 77) & 127)]) + ((0.00017929400000000001 * fVec27[((IOTA - 70) & 127)]) + ((0.0012052899999999999 * fVec27[((IOTA - 69) & 127)]) + ((9.0909400000000007e-05 * fVec27[((IOTA - 63) & 127)]) + ((7.1183600000000001e-05 * fVec27[((IOTA - 62) & 127)]) + ((0.0316397 * fVec27[((IOTA - 20) & 127)]) + ((0.0629913 * fVec27[((IOTA - 19) & 127)]) + ((0.00082095500000000006 * fVec27[((IOTA - 18) & 127)]) + ((0.027291599999999999 * fVec27[((IOTA - 17) & 127)]) + ((0.037210699999999999 * fVec27[((IOTA - 16) & 127)]) + ((0.00091706600000000002 * fVec27[((IOTA - 15) & 127)]) + ((0.00067622200000000009 * fVec27[((IOTA - 10) & 127)]) + ((0.00071360300000000005 * fVec27[((IOTA - 8) & 127)]) + ((0.000243654 * fVec27[((IOTA - 7) & 127)]) + ((0.00032285800000000003 * fVec27[((IOTA - 6) & 127)]) + ((0.000171535 * fVec27[((IOTA - 5) & 127)]) + ((9.1102699999999994e-07 * fVec27[((IOTA - 3) & 127)]) + ((0.000151989 * fVec27[((IOTA - 2) & 127)]) + ((7.3887899999999996e-06 * fVec27[((IOTA - 1) & 127)]) + ((0.0133066 * fVec27[((IOTA - 27) & 127)]) + ((0.00144718 * fVec27[((IOTA - 60) & 127)]) + ((0.0011860799999999999 * fVec27[((IOTA - 59) & 127)]) + ((0.0020690300000000003 * fVec27[((IOTA - 57) & 127)]) + ((0.0015602599999999999 * fVec27[((IOTA - 56) & 127)]) + ((0.0016904800000000001 * fVec27[((IOTA - 53) & 127)]) + ((0.00271579 * fVec27[((IOTA - 52) & 127)]) + ((0.0088627000000000011 * fVec27[((IOTA - 51) & 127)]) + ((0.00769069 * fVec27[((IOTA - 50) & 127)]) + ((0.0025811200000000001 * fVec27[((IOTA - 49) & 127)]) + ((0.0020010100000000001 * fVec27[((IOTA - 47) & 127)]) + ((0.0056659300000000004 * fVec27[((IOTA - 46) & 127)]) + ((0.0029520400000000004 * fVec27[((IOTA - 45) & 127)]) + ((0.0094207800000000001 * fVec27[((IOTA - 44) & 127)]) + ((0.0089927300000000009 * fVec27[((IOTA - 43) & 127)]) + ((0.0031344599999999999 * fVec27[((IOTA - 40) & 127)]) + ((0.0020825100000000001 * fVec27[((IOTA - 39) & 127)]) + ((0.010519000000000001 * fVec27[((IOTA - 30) & 127)]) + ((6.2717999999999998e-07 * fVec28[((IOTA - 126) & 127)]) + ((3.2364399999999999e-06 * fVec28[((IOTA - 125) & 127)]) + ((8.259009999999999e-06 * fVec28[((IOTA - 123) & 127)]) + ((0.024085600000000002 * fVec27[((IOTA - 22) & 127)]) + ((8.9749599999999985e-06 * fVec28[((IOTA - 122) & 127)]) + ((1.8158200000000002e-05 * fVec28[((IOTA - 121) & 127)]) + ((5.1987600000000003e-05 * fVec28[((IOTA - 120) & 127)]) + ((0.0087774500000000009 * fVec27[((IOTA - 21) & 127)]) + ((3.15558e-05 * fVec28[((IOTA - 119) & 127)]) + ((5.2186399999999999e-05 * fVec28[((IOTA - 117) & 127)]) + ((0.00018432800000000001 * fVec28[((IOTA - 116) & 127)]) + ((5.6034300000000007e-05 * fVec28[((IOTA - 115) & 127)]) + ((6.3985300000000012e-05 * fVec28[((IOTA - 111) & 127)]) + ((9.3386400000000004e-05 * fVec28[((IOTA - 110) & 127)]) + ((0.000174119 * fVec28[((IOTA - 109) & 127)]) + ((0.00035722100000000001 * fVec28[((IOTA - 106) & 127)]) + ((0.00040952500000000005 * fVec28[((IOTA - 105) & 127)]) + ((0.00017427299999999999 * fVec28[((IOTA - 104) & 127)]) + ((0.00071199800000000004 * fVec28[((IOTA - 97) & 127)]) + ((0.0017188800000000001 * fVec28[((IOTA - 96) & 127)]) + ((0.00054225400000000004 * fVec28[((IOTA - 95) & 127)]) + ((0.000197515 * fVec28[((IOTA - 86) & 127)]) + ((0.0015781700000000001 * fVec28[((IOTA - 85) & 127)]) + ((0.0013863900000000001 * fVec28[((IOTA - 84) & 127)]) + ((1.9453499999999999e-05 * fVec28[((IOTA - 80) & 127)]) + ((0.00084547300000000001 * fVec28[((IOTA - 78) & 127)]) + ((0.00076569700000000008 * fVec28[((IOTA - 76) & 127)]) + ((0.0010572699999999999 * fVec28[((IOTA - 75) & 127)]) + ((7.5785200000000008e-05 * fVec28[((IOTA - 74) & 127)]) + ((0.0013651400000000001 * fVec28[((IOTA - 73) & 127)]) + ((2.74129e-05 * fVec28[((IOTA - 72) & 127)]) + ((0.00022492500000000001 * fVec28[((IOTA - 71) & 127)]) + ((0.0012562599999999999 * fVec28[((IOTA - 68) & 127)]) + ((0.0010871100000000001 * fVec28[((IOTA - 66) & 127)]) + ((0.0020311800000000001 * fVec28[((IOTA - 65) & 127)]) + ((0.0011967099999999999 * fVec28[((IOTA - 64) & 127)]) + ((6.0100200000000004e-05 * fVec28[((IOTA - 63) & 127)]) + ((0.0034691399999999999 * fVec28[((IOTA - 36) & 127)]) + ((0.0053706500000000003 * fVec28[((IOTA - 31) & 127)]) + ((0.00080878800000000006 * fVec28[((IOTA - 29) & 127)]) + ((0.0049867499999999999 * fVec28[((IOTA - 28) & 127)]) + ((0.0289144 * fVec28[((IOTA - 26) & 127)]) + ((0.0069377800000000002 * fVec28[((IOTA - 23) & 127)]) + ((0.015224500000000002 * fVec28[((IOTA - 20) & 127)]) + ((0.022025899999999998 * fVec28[((IOTA - 19) & 127)]) + ((0.0022348099999999998 * fVec28[((IOTA - 15) & 127)]) + ((0.00084613300000000011 * fVec28[((IOTA - 10) & 127)]) + ((0.00031658400000000002 * fVec28[((IOTA - 8) & 127)]) + ((4.6817000000000003e-05 * fVec28[((IOTA - 7) & 127)]) + ((0.00030049700000000005 * fVec28[((IOTA - 6) & 127)]) + ((0.00030608399999999998 * fVec28[((IOTA - 4) & 127)]) + ((4.2592100000000005e-06 * fVec28[((IOTA - 3) & 127)]) + ((5.0763200000000002e-05 * fVec28[((IOTA - 2) & 127)]) + ((6.9052499999999997e-06 * fTemp28) + ((0.0080632699999999991 * fVec28[((IOTA - 42) & 127)]) + ((0.0029713500000000002 * fVec28[((IOTA - 39) & 127)]) + ((0.0025393899999999999 * fVec28[((IOTA - 57) & 127)]) + ((0.0044228100000000001 * fVec28[((IOTA - 56) & 127)]) + ((0.0033445299999999996 * fVec28[((IOTA - 55) & 127)]) + ((0.0038119900000000003 * fVec28[((IOTA - 52) & 127)]) + ((0.00126195 * fVec28[((IOTA - 47) & 127)]) + ((0.00358275 * fVec28[((IOTA - 46) & 127)]) + ((0.0054975199999999997 * fVec28[((IOTA - 45) & 127)]) + ((0.0039510000000000005 * fVec28[((IOTA - 43) & 127)]) + ((9.1296399999999994e-07 * fVec29[((IOTA - 126) & 127)]) + ((3.51464e-06 * fVec29[((IOTA - 125) & 127)]) + ((2.3408799999999998e-06 * fVec29[((IOTA - 124) & 127)]) + ((1.2859600000000001e-05 * fVec29[((IOTA - 122) & 127)]) + ((6.8135399999999998e-05 * fVec29[((IOTA - 121) & 127)]) + ((7.0622400000000003e-05 * fVec29[((IOTA - 120) & 127)]) + ((4.4616900000000003e-05 * fVec29[((IOTA - 117) & 127)]) + ((0.0045339300000000003 * fVec28[((IOTA - 38) & 127)]) + ((0.00015610500000000002 * fVec29[((IOTA - 109) & 127)]) + ((9.1847800000000005e-05 * fVec29[((IOTA - 106) & 127)]) + ((0.00040533400000000003 * fVec29[((IOTA - 105) & 127)]) + ((8.3187099999999995e-05 * fVec29[((IOTA - 100) & 127)]) + ((7.3548200000000008e-05 * fVec29[((IOTA - 99) & 127)]) + ((0.00037095800000000001 * fVec29[((IOTA - 98) & 127)]) + ((0.0010441100000000002 * fVec29[((IOTA - 97) & 127)]) + ((0.00075582300000000009 * fVec29[((IOTA - 96) & 127)]) + ((0.00068145800000000002 * fVec29[((IOTA - 95) & 127)]) + ((0.0017419500000000001 * fVec29[((IOTA - 94) & 127)]) + ((0.0020959099999999999 * fVec29[((IOTA - 93) & 127)]) + ((0.00075253699999999995 * fVec29[((IOTA - 89) & 127)]) + ((0.00076358900000000006 * fVec29[((IOTA - 88) & 127)]) + ((0.00093791200000000006 * fVec29[((IOTA - 87) & 127)]) + ((0.00066410799999999995 * fVec29[((IOTA - 86) & 127)]) + ((2.1531600000000002e-05 * fVec29[((IOTA - 83) & 127)]) + ((0.00025595899999999999 * fVec29[((IOTA - 78) & 127)]) + ((0.0026293000000000002 * fVec29[((IOTA - 77) & 127)]) + ((0.00269454 * fVec29[((IOTA - 76) & 127)]) + ((0.00143391 * fVec29[((IOTA - 75) & 127)]) + ((0.00067648000000000003 * fVec29[((IOTA - 74) & 127)]) + ((0.000121165 * fVec29[((IOTA - 73) & 127)]) + ((0.00082825600000000009 * fVec29[((IOTA - 66) & 127)]) + ((0.00018963900000000002 * fVec29[((IOTA - 65) & 127)]) + ((0.00039613000000000002 * fVec29[((IOTA - 62) & 127)]) + ((0.0029183799999999999 * fVec29[((IOTA - 61) & 127)]) + ((0.0020411800000000001 * fVec29[((IOTA - 60) & 127)]) + ((0.0017256800000000001 * fVec29[((IOTA - 31) & 127)]) + ((0.027913199999999999 * fVec29[((IOTA - 24) & 127)]) + ((0.025743499999999999 * fVec29[((IOTA - 23) & 127)]) + ((0.0068529799999999998 * fVec29[((IOTA - 21) & 127)]) + ((0.063915300000000008 * fVec29[((IOTA - 20) & 127)]) + ((0.0661857 * fVec29[((IOTA - 19) & 127)]) + ((0.022665999999999999 * fVec29[((IOTA - 18) & 127)]) + ((0.00195357 * fVec29[((IOTA - 17) & 127)]) + ((0.0555369 * fVec29[((IOTA - 16) & 127)]) + ((0.027306 * fVec29[((IOTA - 15) & 127)]) + ((0.00054477599999999996 * fVec29[((IOTA - 10) & 127)]) + ((0.00092023100000000009 * fVec29[((IOTA - 7) & 127)]) + ((0.00095649800000000007 * fVec29[((IOTA - 6) & 127)]) + ((0.00031540600000000001 * fVec29[((IOTA - 2) & 127)]) + ((0.0036288100000000001 * fVec29[((IOTA - 42) & 127)]) + ((0.0078956300000000007 * fVec29[((IOTA - 40) & 127)]) + ((0.0035877300000000003 * fVec29[((IOTA - 57) & 127)]) + ((0.0028681000000000002 * fVec29[((IOTA - 56) & 127)]) + ((0.0047187499999999999 * fVec29[((IOTA - 52) & 127)]) + ((0.0066370199999999996 * fVec29[((IOTA - 51) & 127)]) + ((0.0045751999999999998 * fVec29[((IOTA - 50) & 127)]) + ((0.0044307699999999997 * fVec29[((IOTA - 49) & 127)]) + ((0.0081759099999999998 * fVec29[((IOTA - 48) & 127)]) + ((0.0042540899999999994 * fVec29[((IOTA - 47) & 127)]) + ((0.0031707900000000002 * fVec29[((IOTA - 46) & 127)]) + ((0.0049894200000000005 * fVec29[((IOTA - 45) & 127)]) + ((0.0097648300000000004 * fVec29[((IOTA - 44) & 127)]) + ((0.0162506 * fVec29[((IOTA - 43) & 127)]) + ((9.8664600000000001e-07 * fVec30[((IOTA - 125) & 127)]) + ((6.1935700000000003e-07 * fVec30[((IOTA - 122) & 127)]) + ((4.9322600000000008e-05 * fVec30[((IOTA - 119) & 127)]) + ((6.2934400000000005e-05 * fVec30[((IOTA - 118) & 127)]) + ((4.2778300000000003e-05 * fVec30[((IOTA - 117) & 127)]) + ((0.000106835 * fVec30[((IOTA - 116) & 127)]) + ((0.00018018099999999999 * fVec30[((IOTA - 115) & 127)]) + ((0.00022798800000000001 * fVec30[((IOTA - 114) & 127)]) + ((0.000195522 * fVec30[((IOTA - 113) & 127)]) + ((0.00011808300000000001 * fVec30[((IOTA - 112) & 127)]) + ((3.4608100000000005e-05 * fVec30[((IOTA - 111) & 127)]) + ((5.723480000000001e-05 * fVec30[((IOTA - 110) & 127)]) + ((0.00010142800000000001 * fVec30[((IOTA - 109) & 127)]) + ((0.000712925 * fVec30[((IOTA - 75) & 127)]) + ((0.00090846500000000001 * fVec30[((IOTA - 74) & 127)]) + ((0.000274135 * fVec30[((IOTA - 73) & 127)]) + ((0.000158107 * fVec30[((IOTA - 107) & 127)]) + ((0.00070563799999999997 * fVec30[((IOTA - 106) & 127)]) + ((0.00048340500000000007 * fVec30[((IOTA - 105) & 127)]) + ((0.00023814000000000002 * fVec30[((IOTA - 102) & 127)]) + ((0.00015213499999999999 * fVec30[((IOTA - 100) & 127)]) + ((9.4569700000000004e-05 * fVec30[((IOTA - 108) & 127)]) + ((0.0010091500000000001 * fVec30[((IOTA - 99) & 127)]) + ((0.0015510600000000002 * fVec30[((IOTA - 98) & 127)]) + ((0.00028692799999999999 * fVec30[((IOTA - 97) & 127)]) + ((0.00133293 * fVec30[((IOTA - 94) & 127)]) + ((0.0028975800000000003 * fVec30[((IOTA - 93) & 127)]) + ((0.00088707100000000013 * fVec30[((IOTA - 92) & 127)]) + ((0.00187875 * fVec30[((IOTA - 90) & 127)]) + ((0.0031641300000000002 * fVec30[((IOTA - 89) & 127)]) + ((0.0018413699999999999 * fVec30[((IOTA - 88) & 127)]) + ((0.00031068799999999999 * fVec30[((IOTA - 86) & 127)]) + ((0.00097602600000000006 * fVec30[((IOTA - 85) & 127)]) + ((0.0015255399999999999 * fVec30[((IOTA - 84) & 127)]) + ((0.00237411 * fVec30[((IOTA - 83) & 127)]) + ((0.00112458 * fVec30[((IOTA - 82) & 127)]) + ((0.000380057 * fVec30[((IOTA - 81) & 127)]) + ((0.00020890300000000003 * fVec30[((IOTA - 78) & 127)]) + ((0.00063438600000000002 * fVec30[((IOTA - 5) & 127)]) + ((0.00012589200000000001 * fVec30[((IOTA - 4) & 127)]) + ((0.00040925999999999999 * fVec30[((IOTA - 3) & 127)]) + ((6.4495100000000005e-05 * fVec30[((IOTA - 1) & 127)]) + ((1.3287400000000001e-05 * fTemp30) + ((0.00090694700000000018 * fVec30[((IOTA - 64) & 127)]) + ((0.0024532300000000003 * fVec30[((IOTA - 63) & 127)]) + ((0.00327984 * fVec30[((IOTA - 62) & 127)]) + ((0.0016773199999999999 * fVec30[((IOTA - 61) & 127)]) + ((0.00044967800000000007 * fVec30[((IOTA - 60) & 127)]) + ((0.00165106 * fVec30[((IOTA - 59) & 127)]) + ((0.0048987900000000001 * fVec30[((IOTA - 58) & 127)]) + ((0.0034805299999999999 * fVec30[((IOTA - 57) & 127)]) + ((0.0023563100000000003 * fVec30[((IOTA - 56) & 127)]) + ((0.0045976600000000008 * fVec30[((IOTA - 55) & 127)]) + ((0.00626758 * fVec30[((IOTA - 54) & 127)]) + ((0.0026557099999999999 * fVec30[((IOTA - 53) & 127)]) + ((0.0043297500000000003 * fVec30[((IOTA - 52) & 127)]) + ((0.009209740000000001 * fVec30[((IOTA - 51) & 127)]) + ((0.0029224400000000001 * fVec30[((IOTA - 50) & 127)]) + ((0.0033351100000000001 * fVec30[((IOTA - 49) & 127)]) + ((0.010395300000000001 * fVec30[((IOTA - 48) & 127)]) + ((0.0093701299999999991 * fVec30[((IOTA - 47) & 127)]) + ((0.0063169100000000002 * fVec30[((IOTA - 46) & 127)]) + ((0.013098200000000001 * fVec30[((IOTA - 45) & 127)]) + ((0.014119 * fVec30[((IOTA - 44) & 127)]) + ((0.0021459299999999999 * fVec30[((IOTA - 43) & 127)]) + ((0.0105223 * fVec30[((IOTA - 42) & 127)]) + ((0.022465099999999998 * fVec30[((IOTA - 41) & 127)]) + ((0.0080828600000000007 * fVec30[((IOTA - 40) & 127)]) + ((0.0026383800000000001 * fVec30[((IOTA - 39) & 127)]) + ((0.0090530699999999999 * fVec30[((IOTA - 38) & 127)]) + ((0.0048908699999999994 * fVec30[((IOTA - 37) & 127)]) + ((0.0060908100000000003 * fVec30[((IOTA - 35) & 127)]) + ((0.0095365099999999998 * fVec30[((IOTA - 32) & 127)]) + ((0.00093046600000000002 * fVec30[((IOTA - 22) & 127)]) + ((0.015390200000000001 * fVec30[((IOTA - 18) & 127)]) + ((0.045964499999999998 * fVec30[((IOTA - 17) & 127)]) + ((0.028787799999999999 * fVec30[((IOTA - 15) & 127)]) + ((0.048319200000000007 * fVec30[((IOTA - 14) & 127)]) + ((0.076845299999999991 * fVec30[((IOTA - 13) & 127)]) + ((0.074437400000000001 * fVec30[((IOTA - 12) & 127)]) + ((0.0013813599999999999 * fVec30[((IOTA - 11) & 127)]) + ((9.4869000000000016e-05 * fVec30[((IOTA - 10) & 127)]) + ((0.00097653599999999996 * fVec30[((IOTA - 9) & 127)]) + ((0.00011001600000000001 * fVec30[((IOTA - 8) & 127)]) + ((7.7027e-06 * fVec31[((IOTA - 124) & 127)]) + ((1.6838600000000002e-05 * fVec31[((IOTA - 123) & 127)]) + ((4.9636399999999996e-06 * fVec31[((IOTA - 122) & 127)]) + ((1.9403399999999997e-06 * fVec31[((IOTA - 121) & 127)]) + ((5.28142e-05 * fVec31[((IOTA - 120) & 127)]) + ((0.00011763 * fVec31[((IOTA - 119) & 127)]) + ((0.00016574 * fVec31[((IOTA - 118) & 127)]) + ((0.00013637100000000001 * fVec31[((IOTA - 117) & 127)]) + ((9.7487500000000005e-05 * fVec31[((IOTA - 116) & 127)]) + ((2.2899500000000003e-05 * fVec31[((IOTA - 115) & 127)]) + ((1.3387100000000001e-05 * fVec31[((IOTA - 114) & 127)]) + ((8.3318600000000019e-05 * fVec31[((IOTA - 113) & 127)]) + ((0.00025527000000000004 * fVec31[((IOTA - 112) & 127)]) + ((0.00034909600000000002 * fVec31[((IOTA - 111) & 127)]) + ((0.00019374600000000001 * fVec31[((IOTA - 107) & 127)]) + ((0.00019838400000000002 * fVec31[((IOTA - 103) & 127)]) + ((0.000168486 * fVec31[((IOTA - 96) & 127)]) + ((0.0012272400000000001 * fVec31[((IOTA - 95) & 127)]) + ((0.00020233 * fVec31[((IOTA - 94) & 127)]) + ((0.00017177199999999999 * fVec31[((IOTA - 90) & 127)]) + ((0.00020847000000000004 * fVec31[((IOTA - 88) & 127)]) + ((0.0011732700000000001 * fVec31[((IOTA - 87) & 127)]) + ((0.00090841200000000004 * fVec31[((IOTA - 86) & 127)]) + ((0.0016132899999999999 * fVec31[((IOTA - 85) & 127)]) + ((0.00035920700000000001 * fVec31[((IOTA - 84) & 127)]) + ((0.00031580000000000003 * fVec31[((IOTA - 82) & 127)]) + ((0.0010732299999999999 * fVec31[((IOTA - 81) & 127)]) + ((0.00257691 * fVec31[((IOTA - 80) & 127)]) + ((0.0017717799999999999 * fVec31[((IOTA - 79) & 127)]) + ((0.000561862 * fVec31[((IOTA - 78) & 127)]) + ((0.000172719 * fVec31[((IOTA - 77) & 127)]) + ((0.0028482099999999999 * fVec31[((IOTA - 75) & 127)]) + ((0.00218125 * fVec31[((IOTA - 74) & 127)]) + ((0.00024288000000000001 * fVec31[((IOTA - 71) & 127)]) + ((0.00186575 * fVec31[((IOTA - 70) & 127)]) + ((0.000588187 * fVec31[((IOTA - 66) & 127)]) + ((0.00080033999999999997 * fVec31[((IOTA - 58) & 127)]) + ((2.5690700000000001e-05 * fVec31[((IOTA - 55) & 127)]) + ((0.00113243 * fVec31[((IOTA - 54) & 127)]) + ((0.0016462200000000001 * fVec31[((IOTA - 53) & 127)]) + ((0.00086436100000000012 * fVec31[((IOTA - 51) & 127)]) + ((0.0055766799999999997 * fVec31[((IOTA - 50) & 127)]) + ((0.00392757 * fVec31[((IOTA - 49) & 127)]) + ((0.0028865100000000001 * fVec31[((IOTA - 48) & 127)]) + ((0.0056144999999999997 * fVec31[((IOTA - 47) & 127)]) + ((0.0026402700000000001 * fVec31[((IOTA - 46) & 127)]) + ((0.0042838500000000005 * fVec31[((IOTA - 44) & 127)]) + ((0.0034927700000000001 * fVec31[((IOTA - 43) & 127)]) + ((0.0014542699999999999 * fVec31[((IOTA - 13) & 127)]) + ((0.00036303800000000004 * fVec31[((IOTA - 12) & 127)]) + ((0.00064008700000000001 * fVec31[((IOTA - 9) & 127)]) + ((6.501340000000001e-05 * fVec31[((IOTA - 6) & 127)]) + ((0.00011503900000000001 * fVec31[((IOTA - 5) & 127)]) + ((7.4982900000000003e-05 * fVec31[((IOTA - 3) & 127)]) + ((0.0144406 * fVec31[((IOTA - 22) & 127)]) + ((0.013951100000000001 * fVec31[((IOTA - 21) & 127)]) + ((0.0084374500000000009 * fVec31[((IOTA - 18) & 127)]) + ((0.00038527200000000003 * fVec31[((IOTA - 42) & 127)]) + ((0.0065811400000000009 * fVec31[((IOTA - 41) & 127)]) + ((0.0015727 * fVec31[((IOTA - 40) & 127)]) + ((0.0158301 * fVec31[((IOTA - 37) & 127)]) + ((0.027060000000000001 * fVec31[((IOTA - 34) & 127)]) + ((0.0063968899999999997 * fVec31[((IOTA - 31) & 127)]) + ((0.011650000000000001 * fVec31[((IOTA - 30) & 127)]) + ((0.0092220099999999992 * fVec31[((IOTA - 28) & 127)]) + ((0.0078633899999999996 * fVec31[((IOTA - 27) & 127)]) + ((0.029293300000000001 * fVec31[((IOTA - 25) & 127)]) + ((0.0096560400000000012 * fVec31[((IOTA - 24) & 127)]) + ((5.3978799999999999e-06 * fVec4[((IOTA - 125) & 127)]) + ((7.9125199999999989e-06 * fVec4[((IOTA - 124) & 127)]) + ((0.0039648399999999999 * fVec31[((IOTA - 16) & 127)]) + ((8.4929499999999997e-06 * fVec4[((IOTA - 123) & 127)]) + ((1.1654000000000001e-05 * fVec4[((IOTA - 122) & 127)]) + ((5.1085100000000003e-05 * fVec4[((IOTA - 121) & 127)]) + ((6.8685100000000004e-05 * fVec4[((IOTA - 120) & 127)]) + ((3.2896299999999998e-06 * fVec4[((IOTA - 119) & 127)]) + ((1.41509e-05 * fVec4[((IOTA - 118) & 127)]) + ((1.6980200000000004e-05 * fVec4[((IOTA - 117) & 127)]) + ((3.2223700000000001e-05 * fVec4[((IOTA - 116) & 127)]) + ((5.8471100000000003e-05 * fVec4[((IOTA - 115) & 127)]) + ((0.00010523700000000001 * fVec4[((IOTA - 114) & 127)]) + ((0.00013697000000000001 * fVec4[((IOTA - 113) & 127)]) + ((0.00010184400000000001 * fVec4[((IOTA - 112) & 127)]) + ((3.2479200000000006e-05 * fVec4[((IOTA - 104) & 127)]) + ((7.9775300000000009e-05 * fVec4[((IOTA - 103) & 127)]) + ((0.000178013 * fVec4[((IOTA - 97) & 127)]) + ((0.00096584900000000007 * fVec4[((IOTA - 96) & 127)]) + ((0.00013887600000000002 * fVec4[((IOTA - 95) & 127)]) + ((0.00019982600000000001 * fVec4[((IOTA - 92) & 127)]) + ((0.00031649800000000002 * fVec4[((IOTA - 89) & 127)]) + ((0.00037059799999999998 * fVec4[((IOTA - 88) & 127)]) + ((0.0012454300000000001 * fVec4[((IOTA - 87) & 127)]) + ((0.00084652999999999996 * fVec4[((IOTA - 86) & 127)]) + ((0.00049063800000000005 * fVec4[((IOTA - 82) & 127)]) + ((0.0013326899999999999 * fVec4[((IOTA - 79) & 127)]) + ((0.00140716 * fVec4[((IOTA - 78) & 127)]) + ((0.00067232300000000006 * fVec4[((IOTA - 73) & 127)]) + ((0.000145224 * fVec4[((IOTA - 72) & 127)]) + ((0.00118198 * fVec4[((IOTA - 69) & 127)]) + ((0.0029169900000000004 * fVec4[((IOTA - 68) & 127)]) + ((0.000641773 * fVec4[((IOTA - 63) & 127)]) + ((0.0019041500000000001 * fVec4[((IOTA - 62) & 127)]) + ((0.0020271300000000003 * fVec4[((IOTA - 58) & 127)]) + ((0.0037510500000000001 * fVec4[((IOTA - 57) & 127)]) + ((0.0046006600000000003 * fVec4[((IOTA - 56) & 127)]) + ((0.0050914999999999997 * fVec4[((IOTA - 55) & 127)]) + ((0.0044053800000000004 * fVec4[((IOTA - 54) & 127)]) + ((0.0011063700000000002 * fVec4[((IOTA - 53) & 127)]) + ((0.0019731900000000001 * fVec4[((IOTA - 52) & 127)]) + ((0.0069039700000000006 * fVec4[((IOTA - 51) & 127)]) + ((0.0058685200000000003 * fVec4[((IOTA - 50) & 127)]) + ((0.0061875000000000003 * fVec4[((IOTA - 49) & 127)]) + ((0.0086182900000000007 * fVec4[((IOTA - 48) & 127)]) + ((0.0051318099999999997 * fVec4[((IOTA - 47) & 127)]) + ((0.00066500800000000003 * fVec4[((IOTA - 46) & 127)]) + ((0.0054012200000000008 * fVec4[((IOTA - 45) & 127)]) + ((0.0077257100000000002 * fVec4[((IOTA - 44) & 127)]) + ((0.0049702700000000006 * fVec4[((IOTA - 43) & 127)]) + ((0.0075730000000000007 * fVec4[((IOTA - 42) & 127)]) + ((0.0060422599999999998 * fVec4[((IOTA - 41) & 127)]) + ((0.0027149600000000002 * fVec4[((IOTA - 39) & 127)]) + ((0.00081970899999999995 * fVec4[((IOTA - 38) & 127)]) + ((5.1858400000000005e-05 * fVec4[((IOTA - 36) & 127)]) + ((0.0045739400000000003 * fVec4[((IOTA - 35) & 127)]) + ((0.00060354400000000002 * fVec4[((IOTA - 31) & 127)]) + ((0.0126207 * fVec4[((IOTA - 18) & 127)]) + ((0.015590100000000001 * fVec4[((IOTA - 17) & 127)]) + ((0.027497799999999999 * fVec4[((IOTA - 15) & 127)]) + ((0.019302299999999998 * fVec4[((IOTA - 14) & 127)]) + ((0.044481599999999996 * fVec4[((IOTA - 13) & 127)]) + ((0.042276800000000003 * fVec4[((IOTA - 12) & 127)]) + ((0.0021177600000000002 * fVec4[((IOTA - 11) & 127)]) + ((0.00027291300000000001 * fVec4[((IOTA - 9) & 127)]) + ((6.1550000000000005e-05 * fVec4[((IOTA - 8) & 127)]) + ((0.000175224 * fVec4[((IOTA - 5) & 127)]) + ((0.00022650199999999998 * fVec4[((IOTA - 4) & 127)]) + ((5.7022700000000005e-05 * fVec4[((IOTA - 3) & 127)]) + ((2.0383200000000002e-05 * fVec4[((IOTA - 1) & 127)]) + ((4.9413399999999999e-06 * fTemp4) + ((0.001299 * fVec4[((IOTA - 75) & 127)]) + ((0.00036433400000000001 * fVec4[((IOTA - 77) & 127)]) + ((5.7104899999999999e-06 * fVec0[((IOTA - 125) & 127)]) + ((1.32724e-05 * fVec0[((IOTA - 124) & 127)]) + ((0.0033552399999999998 * fVec4[((IOTA - 74) & 127)]) + ((2.9137400000000003e-05 * fVec0[((IOTA - 119) & 127)]) + ((0.00015924 * fVec0[((IOTA - 116) & 127)]) + ((7.6537400000000003e-05 * fVec0[((IOTA - 115) & 127)]) + ((6.5009300000000008e-05 * fVec0[((IOTA - 114) & 127)]) + ((3.6292700000000006e-05 * fVec0[((IOTA - 113) & 127)]) + ((2.5843400000000004e-05 * fVec0[((IOTA - 112) & 127)]) + ((0.00024267500000000003 * fVec0[((IOTA - 111) & 127)]) + ((0.00031903100000000006 * fVec0[((IOTA - 109) & 127)]) + ((0.00039582199999999999 * fVec0[((IOTA - 108) & 127)]) + ((0.00027277099999999999 * fVec0[((IOTA - 107) & 127)]) + ((0.00092367899999999995 * fVec0[((IOTA - 106) & 127)]) + ((0.0007145500000000001 * fVec0[((IOTA - 105) & 127)]) + ((0.000964846 * fVec0[((IOTA - 104) & 127)]) + ((0.0012146699999999999 * fVec0[((IOTA - 103) & 127)]) + ((0.00057145600000000003 * fVec0[((IOTA - 102) & 127)]) + ((0.00054242299999999999 * fVec0[((IOTA - 101) & 127)]) + ((0.00061493000000000008 * fVec0[((IOTA - 100) & 127)]) + ((0.0012203400000000001 * fVec0[((IOTA - 99) & 127)]) + ((0.0011941500000000002 * fVec0[((IOTA - 98) & 127)]) + ((0.00106711 * fVec0[((IOTA - 97) & 127)]) + ((0.00308618 * fVec0[((IOTA - 96) & 127)]) + ((0.0032894199999999999 * fVec0[((IOTA - 95) & 127)]) + ((0.00149796 * fVec0[((IOTA - 94) & 127)]) + ((0.00068249900000000004 * fVec0[((IOTA - 93) & 127)]) + ((0.00078510099999999996 * fVec0[((IOTA - 91) & 127)]) + ((0.00096550100000000012 * fVec0[((IOTA - 90) & 127)]) + ((0.00058387599999999999 * fVec0[((IOTA - 89) & 127)]) + ((0.0013118799999999999 * fVec0[((IOTA - 88) & 127)]) + ((0.0027314400000000003 * fVec0[((IOTA - 87) & 127)]) + ((0.0031734000000000003 * fVec0[((IOTA - 86) & 127)]) + ((0.0023903100000000001 * fVec0[((IOTA - 85) & 127)]) + ((0.0025833200000000001 * fVec0[((IOTA - 84) & 127)]) + ((0.00058356200000000003 * fVec0[((IOTA - 83) & 127)]) + ((1.7606500000000002e-05 * fVec0[((IOTA - 77) & 127)]) + ((0.0017979000000000001 * fVec0[((IOTA - 75) & 127)]) + ((0.00191797 * fVec0[((IOTA - 74) & 127)]) + ((0.00034747700000000001 * fVec0[((IOTA - 73) & 127)]) + ((0.000544179 * fVec0[((IOTA - 67) & 127)]) + ((5.63033e-05 * fVec0[((IOTA - 65) & 127)]) + ((0.0011524899999999999 * fVec0[((IOTA - 62) & 127)]) + ((0.00156606 * fVec0[((IOTA - 55) & 127)]) + ((0.0015830800000000002 * fVec0[((IOTA - 54) & 127)]) + ((0.0017704200000000002 * fVec0[((IOTA - 50) & 127)]) + ((0.0019330199999999999 * fVec0[((IOTA - 49) & 127)]) + ((0.00266146 * fVec0[((IOTA - 46) & 127)]) + ((0.0011897800000000001 * fVec0[((IOTA - 45) & 127)]) + ((0.00307881 * fVec0[((IOTA - 42) & 127)]) + ((0.0024114100000000001 * fVec0[((IOTA - 41) & 127)]) + ((0.0026392099999999999 * fVec0[((IOTA - 40) & 127)]) + ((0.0110397 * fVec0[((IOTA - 29) & 127)]) + ((0.0010152000000000002 * fVec0[((IOTA - 28) & 127)]) + ((0.00287375 * fVec0[((IOTA - 26) & 127)]) + ((0.0161706 * fVec0[((IOTA - 22) & 127)]) + ((0.026332300000000003 * fVec0[((IOTA - 21) & 127)]) + ((0.0079993000000000009 * fVec0[((IOTA - 20) & 127)]) + ((0.00082163500000000003 * fVec0[((IOTA - 18) & 127)]) + ((0.035125400000000001 * fVec0[((IOTA - 17) & 127)]) + ((0.0032833199999999997 * fVec0[((IOTA - 14) & 127)]) + ((0.00033950300000000006 * fVec0[((IOTA - 11) & 127)]) + ((0.00046365600000000006 * fVec0[((IOTA - 9) & 127)]) + ((0.0019217200000000002 * fVec0[((IOTA - 8) & 127)]) + ((0.00055710700000000004 * fVec0[((IOTA - 6) & 127)]) + ((0.00078591400000000008 * fVec0[((IOTA - 5) & 127)]) + ((0.00067488200000000002 * fVec0[((IOTA - 4) & 127)]) + ((0.00020588500000000003 * fVec0[((IOTA - 2) & 127)]) + ((3.4700500000000004e-05 * fVec0[((IOTA - 1) & 127)]) + ((1.2413700000000001e-05 * fTemp0) + ((0.00380796 * fVec0[((IOTA - 39) & 127)]) + ((0.000320157 * fVec0[((IOTA - 38) & 127)]) + ((0.00022045699999999999 * fVec0[((IOTA - 37) & 127)]) + ((0.0020659800000000002 * fVec0[((IOTA - 36) & 127)]) + ((0.0049689600000000006 * fVec0[((IOTA - 34) & 127)]) + ((0.0075314300000000004 * fVec0[((IOTA - 33) & 127)]) + ((4.8744899999999996e-07 * fVec32[((IOTA - 126) & 127)]) + ((3.5255099999999998e-06 * fVec32[((IOTA - 125) & 127)]) + ((3.2621699999999995e-06 * fVec32[((IOTA - 124) & 127)]) + ((0.0022648999999999998 * fVec0[((IOTA - 31) & 127)]) + ((4.06072e-05 * fVec32[((IOTA - 121) & 127)]) + ((6.3317800000000006e-05 * fVec32[((IOTA - 120) & 127)]) + ((3.5918100000000004e-05 * fVec32[((IOTA - 119) & 127)]) + ((2.5941400000000002e-05 * fVec32[((IOTA - 117) & 127)]) + ((8.6548500000000007e-05 * fVec32[((IOTA - 116) & 127)]) + ((5.5551700000000006e-05 * fVec32[((IOTA - 115) & 127)]) + ((3.6866300000000003e-05 * fVec32[((IOTA - 114) & 127)]) + ((4.2405400000000006e-05 * fVec32[((IOTA - 113) & 127)]) + ((8.1096800000000013e-05 * fVec32[((IOTA - 112) & 127)]) + ((4.85157e-05 * fVec32[((IOTA - 111) & 127)]) + ((7.4248300000000005e-05 * fVec32[((IOTA - 110) & 127)]) + ((6.1852800000000005e-05 * fVec32[((IOTA - 107) & 127)]) + ((0.00033669 * fVec32[((IOTA - 106) & 127)]) + ((0.00035192300000000003 * fVec32[((IOTA - 105) & 127)]) + ((0.000181368 * fVec32[((IOTA - 102) & 127)]) + ((5.5010100000000004e-05 * fVec32[((IOTA - 99) & 127)]) + ((0.000181872 * fVec32[((IOTA - 95) & 127)]) + ((0.0012472700000000002 * fVec32[((IOTA - 94) & 127)]) + (((0.0012369000000000002 * fVec32[((IOTA - 93) & 127)]) + ((0.00084541900000000014 * fVec32[((IOTA - 88) & 127)]) + ((0.00030825999999999998 * fVec32[((IOTA - 87) & 127)]) + ((0.000991956 * fVec32[((IOTA - 86) & 127)]) + ((0.00039449500000000002 * fVec32[((IOTA - 83) & 127)]) + ((0.00042647700000000008 * fVec32[((IOTA - 78) & 127)]) + ((0.00098188600000000017 * fVec32[((IOTA - 76) & 127)]) + ((0.00076287399999999997 * fVec32[((IOTA - 75) & 127)]) + ((0.00019696800000000003 * fVec32[((IOTA - 73) & 127)]) + ((0.00026003500000000004 * fVec32[((IOTA - 72) & 127)]) + ((0.000162845 * fVec32[((IOTA - 68) & 127)]) + ((0.000175864 * fVec32[((IOTA - 65) & 127)]) + ((0.00122741 * fVec32[((IOTA - 62) & 127)]) + ((0.00051085000000000008 * fVec32[((IOTA - 60) & 127)]) + ((0.0042857099999999999 * fVec32[((IOTA - 59) & 127)]) + ((0.0037509800000000001 * fVec32[((IOTA - 58) & 127)]) + ((0.0013037700000000001 * fVec32[((IOTA - 57) & 127)]) + ((0.000469171 * fVec32[((IOTA - 52) & 127)]) + ((0.0048162999999999999 * fVec32[((IOTA - 50) & 127)]) + ((0.0040944599999999994 * fVec32[((IOTA - 49) & 127)]) + ((0.0041798500000000006 * fVec32[((IOTA - 46) & 127)]) + ((0.0073487099999999996 * fVec32[((IOTA - 45) & 127)]) + ((0.0047594300000000003 * fVec32[((IOTA - 44) & 127)]) + ((0.00164357 * fVec32[((IOTA - 41) & 127)]) + ((0.0066234300000000005 * fVec32[((IOTA - 40) & 127)]) + ((0.0107364 * fVec32[((IOTA - 39) & 127)]) + ((0.0021625699999999999 * fVec32[((IOTA - 38) & 127)]) + ((0.00078494800000000005 * fVec32[((IOTA - 37) & 127)]) + ((0.008554550000000001 * fVec32[((IOTA - 36) & 127)]) + ((0.0087573399999999989 * fVec32[((IOTA - 35) & 127)]) + ((0.0022028300000000002 * fVec32[((IOTA - 32) & 127)]) + ((0.026865800000000002 * fVec32[((IOTA - 31) & 127)]) + ((0.0066563000000000004 * fVec32[((IOTA - 27) & 127)]) + ((0.0173968 * fVec32[((IOTA - 26) & 127)]) + ((0.0065755600000000003 * fVec32[((IOTA - 22) & 127)]) + ((0.044476699999999994 * fVec32[((IOTA - 18) & 127)]) + ((0.019425600000000001 * fVec32[((IOTA - 17) & 127)]) + ((0.0258357 * fVec32[((IOTA - 15) & 127)]) + ((0.00505303 * fVec32[((IOTA - 13) & 127)]) + ((0.00065851199999999999 * fVec32[((IOTA - 10) & 127)]) + ((6.4017400000000008e-05 * fVec32[((IOTA - 9) & 127)]) + ((0.00033249800000000003 * fVec32[((IOTA - 8) & 127)]) + ((0.00114682 * fVec32[((IOTA - 6) & 127)]) + ((0.00043610699999999998 * fVec32[((IOTA - 4) & 127)]) + ((0.000204336 * fVec32[((IOTA - 2) & 127)]) + ((2.2571e-06 * fVec32[((IOTA - 1) & 127)]) + (((7.4329200000000013e-05 * fVec33[((IOTA - 115) & 127)]) + ((0.00029377599999999999 * fVec33[((IOTA - 114) & 127)]) + ((0.000280439 * fVec33[((IOTA - 113) & 127)]) + ((0.00052814500000000005 * fVec33[((IOTA - 110) & 127)]) + ((0.00070229999999999999 * fVec33[((IOTA - 109) & 127)]) + ((0.00080632699999999991 * fVec33[((IOTA - 108) & 127)]) + ((0.000643591 * fVec33[((IOTA - 107) & 127)]) + ((0.00081294000000000006 * fVec33[((IOTA - 106) & 127)]) + ((0.00082950500000000002 * fVec33[((IOTA - 105) & 127)]) + ((0.00023107600000000004 * fVec33[((IOTA - 104) & 127)]) + ((0.00064061300000000005 * fVec33[((IOTA - 103) & 127)]) + ((0.00091664000000000003 * fVec33[((IOTA - 102) & 127)]) + ((0.00073955600000000005 * fVec33[((IOTA - 101) & 127)]) + ((0.00059890600000000007 * fVec33[((IOTA - 100) & 127)]) + ((0.0013073099999999999 * fVec33[((IOTA - 99) & 127)]) + ((0.0027768799999999998 * fVec33[((IOTA - 98) & 127)]) + ((0.00040949500000000001 * fVec33[((IOTA - 97) & 127)]) + ((0.00145302 * fVec33[((IOTA - 94) & 127)]) + ((0.0022861500000000002 * fVec33[((IOTA - 93) & 127)]) + ((0.001377 * fVec33[((IOTA - 90) & 127)]) + ((0.0017080400000000001 * fVec33[((IOTA - 89) & 127)]) + ((0.00016274 * fVec33[((IOTA - 83) & 127)]) + ((0.0027307400000000002 * fVec33[((IOTA - 82) & 127)]) + ((0.0028667500000000004 * fVec33[((IOTA - 81) & 127)]) + ((0.0011399600000000002 * fVec33[((IOTA - 80) & 127)]) + ((0.00110995 * fVec33[((IOTA - 79) & 127)]) + ((0.00124602 * fVec33[((IOTA - 78) & 127)]) + ((0.00129805 * fVec33[((IOTA - 77) & 127)]) + ((0.00100318 * fVec33[((IOTA - 76) & 127)]) + ((0.0022987899999999998 * fVec33[((IOTA - 75) & 127)]) + ((0.0019049100000000001 * fVec33[((IOTA - 74) & 127)]) + ((0.00059075000000000002 * fVec33[((IOTA - 73) & 127)]) + ((0.00103864 * fVec33[((IOTA - 72) & 127)]) + ((0.0013787300000000001 * fVec33[((IOTA - 71) & 127)]) + ((0.00181733 * fVec33[((IOTA - 70) & 127)]) + ((0.00293582 * fVec33[((IOTA - 69) & 127)]) + ((0.0023355800000000003 * fVec33[((IOTA - 68) & 127)]) + ((0.0011070699999999999 * fVec33[((IOTA - 67) & 127)]) + ((0.00050953999999999995 * fVec33[((IOTA - 66) & 127)]) + ((0.00044511000000000003 * fVec33[((IOTA - 65) & 127)]) + ((0.0038312400000000001 * fVec33[((IOTA - 61) & 127)]) + ((0.0016638 * fVec33[((IOTA - 60) & 127)]) + ((0.0043739400000000006 * fVec33[((IOTA - 48) & 127)]) + ((0.0013932899999999999 * fVec33[((IOTA - 45) & 127)]) + ((0.0106382 * fVec33[((IOTA - 41) & 127)]) + ((0.0043469900000000002 * fVec33[((IOTA - 40) & 127)]) + ((0.0015759000000000001 * fVec33[((IOTA - 37) & 127)]) + ((0.0073185999999999998 * fVec33[((IOTA - 36) & 127)]) + ((0.0045973800000000007 * fVec33[((IOTA - 35) & 127)]) + ((0.013183400000000001 * fVec33[((IOTA - 33) & 127)]) + ((0.028645500000000001 * fVec33[((IOTA - 32) & 127)]) + ((0.0092487699999999999 * fVec33[((IOTA - 29) & 127)]) + ((0.0073680199999999994 * fVec33[((IOTA - 16) & 127)]) + ((0.00058021900000000009 * fVec33[((IOTA - 14) & 127)]) + ((0.0037306700000000002 * fVec33[((IOTA - 12) & 127)]) + ((0.000216524 * fVec33[((IOTA - 11) & 127)]) + ((0.00050577300000000005 * fVec33[((IOTA - 7) & 127)]) + ((0.00019702400000000002 * fVec33[((IOTA - 5) & 127)]) + ((6.4290300000000003e-05 * fVec33[((IOTA - 3) & 127)]) + ((0.039121700000000002 * fVec33[((IOTA - 28) & 127)]) + ((0.00144425 * fVec33[((IOTA - 27) & 127)]) + ((0.0060285 * fVec33[((IOTA - 25) & 127)]) + ((0.057524800000000001 * fVec33[((IOTA - 24) & 127)]) + ((0.0014793400000000002 * fVec33[((IOTA - 20) & 127)]) + ((0.021570599999999999 * fVec33[((IOTA - 21) & 127)]) + ((7.8904099999999995e-07 * fVec34[((IOTA - 118) & 127)]) + ((5.1851200000000009e-05 * fVec34[((IOTA - 117) & 127)]) + ((3.48346e-05 * fVec34[((IOTA - 116) & 127)]) + (((0.000263489 * fVec34[((IOTA - 113) & 127)]) + ((0.00048678400000000003 * fVec34[((IOTA - 112) & 127)]) + ((0.00066577900000000002 * fVec34[((IOTA - 111) & 127)]) + ((0.00072508600000000011 * fVec34[((IOTA - 110) & 127)]) + ((0.00094771800000000006 * fVec34[((IOTA - 109) & 127)]) + ((0.00085589900000000003 * fVec34[((IOTA - 108) & 127)]) + ((0.00097958799999999999 * fVec34[((IOTA - 107) & 127)]) + ((0.00110553 * fVec34[((IOTA - 106) & 127)]) + ((0.00082826600000000003 * fVec34[((IOTA - 105) & 127)]) + ((0.0013655500000000001 * fVec34[((IOTA - 104) & 127)]) + ((0.0018638400000000001 * fVec34[((IOTA - 103) & 127)]) + ((0.0016748900000000001 * fVec34[((IOTA - 102) & 127)]) + ((0.0013615999999999999 * fVec34[((IOTA - 101) & 127)]) + ((0.00120272 * fVec34[((IOTA - 100) & 127)]) + ((0.00103053 * fVec34[((IOTA - 99) & 127)]) + ((0.00040302800000000005 * fVec34[((IOTA - 98) & 127)]) + ((0.0012814900000000001 * fVec34[((IOTA - 97) & 127)]) + ((0.0015273399999999999 * fVec34[((IOTA - 96) & 127)]) + ((0.00046550599999999997 * fVec34[((IOTA - 95) & 127)]) + ((0.00038473700000000001 * fVec34[((IOTA - 94) & 127)]) + ((0.0010250300000000001 * fVec34[((IOTA - 93) & 127)]) + ((0.0011346700000000002 * fVec34[((IOTA - 92) & 127)]) + ((0.00043984100000000006 * fVec34[((IOTA - 85) & 127)]) + ((0.00021673800000000001 * fVec34[((IOTA - 84) & 127)]) + ((2.74177e-05 * fVec34[((IOTA - 82) & 127)]) + ((0.0010960700000000002 * fVec34[((IOTA - 77) & 127)]) + ((0.0013700399999999999 * fVec34[((IOTA - 73) & 127)]) + ((0.0030635300000000001 * fVec34[((IOTA - 72) & 127)]) + ((0.0019637600000000002 * fVec34[((IOTA - 71) & 127)]) + ((0.0018260300000000002 * fVec34[((IOTA - 70) & 127)]) + ((0.00238017 * fVec34[((IOTA - 69) & 127)]) + ((0.0031654200000000004 * fVec34[((IOTA - 68) & 127)]) + ((0.00275033 * fVec34[((IOTA - 67) & 127)]) + ((0.0016457800000000001 * fVec34[((IOTA - 66) & 127)]) + ((0.0025982900000000001 * fVec34[((IOTA - 65) & 127)]) + ((0.0013408299999999999 * fVec34[((IOTA - 64) & 127)]) + ((0.00068048499999999999 * fVec34[((IOTA - 60) & 127)]) + ((0.00122218 * fVec34[((IOTA - 59) & 127)]) + ((0.00152893 * fVec34[((IOTA - 58) & 127)]) + ((0.0022063899999999999 * fVec34[((IOTA - 57) & 127)]) + ((0.00078379700000000003 * fVec34[((IOTA - 56) & 127)]) + ((0.00022987799999999998 * fVec34[((IOTA - 52) & 127)]) + ((0.00078511300000000004 * fVec34[((IOTA - 51) & 127)]) + ((0.0026344099999999998 * fVec34[((IOTA - 44) & 127)]) + ((0.0012260999999999999 * fVec34[((IOTA - 45) & 127)]) + ((0.0038961999999999998 * fVec34[((IOTA - 39) & 127)]) + ((0.011467400000000001 * fVec34[((IOTA - 38) & 127)]) + ((0.0078678299999999993 * fVec34[((IOTA - 37) & 127)]) + ((0.0013363100000000001 * fVec34[((IOTA - 34) & 127)]) + ((0.0089890100000000004 * fVec34[((IOTA - 32) & 127)]) + ((0.0143689 * fVec34[((IOTA - 31) & 127)]) + ((0.0049334100000000001 * fVec34[((IOTA - 30) & 127)]) + ((0.019686699999999998 * fVec34[((IOTA - 27) & 127)]) + ((0.0086390499999999988 * fVec34[((IOTA - 25) & 127)]) + ((0.043355600000000001 * fVec34[((IOTA - 19) & 127)]) + ((0.00249322 * fVec34[((IOTA - 18) & 127)]) + ((0.0141169 * fVec34[((IOTA - 16) & 127)]) + ((0.0111431 * fVec34[((IOTA - 15) & 127)]) + ((0.0018486100000000001 * fVec34[((IOTA - 14) & 127)]) + ((0.000976993 * fVec34[((IOTA - 13) & 127)]) + ((0.0056459800000000001 * fVec34[((IOTA - 12) & 127)]) + ((0.00021246900000000004 * fVec34[((IOTA - 11) & 127)]) + ((0.00095016999999999996 * fVec34[((IOTA - 10) & 127)]) + ((0.0010622000000000001 * fVec34[((IOTA - 7) & 127)]) + ((0.00024919200000000002 * fVec34[((IOTA - 6) & 127)]) + ((0.00027049600000000001 * fVec34[((IOTA - 3) & 127)]) + ((5.1123399999999996e-06 * fVec34[((IOTA - 2) & 127)]) + ((3.7580000000000003e-05 * fVec34[((IOTA - 1) & 127)]) + (((2.5019199999999998e-06 * fVec23[((IOTA - 120) & 127)]) + ((0.00015476800000000001 * fVec23[((IOTA - 107) & 127)]) + ((2.3801800000000003e-05 * fVec23[((IOTA - 106) & 127)]) + ((0.00041578400000000004 * fVec23[((IOTA - 105) & 127)]) + ((0.00040693400000000007 * fVec23[((IOTA - 104) & 127)]) + ((0.00042180200000000004 * fVec23[((IOTA - 103) & 127)]) + ((0.00064933700000000005 * fVec23[((IOTA - 102) & 127)]) + ((0.0010572399999999999 * fVec23[((IOTA - 101) & 127)]) + ((0.00096599000000000012 * fVec23[((IOTA - 100) & 127)]) + ((0.00077855999999999997 * fVec23[((IOTA - 99) & 127)]) + ((0.00073777800000000002 * fVec23[((IOTA - 98) & 127)]) + ((0.00065036 * fVec23[((IOTA - 97) & 127)]) + ((0.00069698000000000004 * fVec23[((IOTA - 96) & 127)]) + ((0.0013956400000000001 * fVec23[((IOTA - 95) & 127)]) + ((0.0020596199999999999 * fVec23[((IOTA - 94) & 127)]) + ((0.0017169000000000002 * fVec23[((IOTA - 93) & 127)]) + ((0.0012716300000000002 * fVec23[((IOTA - 92) & 127)]) + ((0.00130908 * fVec23[((IOTA - 91) & 127)]) + ((0.00161012 * fVec23[((IOTA - 88) & 127)]) + ((0.0016711600000000001 * fVec23[((IOTA - 87) & 127)]) + ((0.00075290600000000002 * fVec23[((IOTA - 86) & 127)]) + ((0.00144013 * fVec23[((IOTA - 85) & 127)]) + ((0.0021273399999999997 * fVec23[((IOTA - 84) & 127)]) + ((0.00061597300000000002 * fVec23[((IOTA - 83) & 127)]) + ((0.00011313 * fVec23[((IOTA - 81) & 127)]) + ((0.0017438199999999999 * fVec23[((IOTA - 80) & 127)]) + ((0.0024799100000000001 * fVec23[((IOTA - 79) & 127)]) + ((0.00256507 * fVec23[((IOTA - 78) & 127)]) + ((0.0011552999999999999 * fVec23[((IOTA - 75) & 127)]) + ((0.00098456699999999999 * fVec23[((IOTA - 74) & 127)]) + ((0.000597807 * fVec23[((IOTA - 73) & 127)]) + ((0.0018893200000000001 * fVec23[((IOTA - 72) & 127)]) + ((0.00092920600000000002 * fVec23[((IOTA - 23) & 127)]) + ((0.080136100000000002 * fVec23[((IOTA - 22) & 127)]) + ((0.041393800000000001 * fVec23[((IOTA - 21) & 127)]) + ((0.042661300000000006 * fVec23[((IOTA - 20) & 127)]) + ((0.0088175100000000006 * fVec23[((IOTA - 19) & 127)]) + ((0.053196100000000003 * fVec23[((IOTA - 18) & 127)]) + ((0.097787600000000002 * fVec23[((IOTA - 17) & 127)]) + ((0.040092800000000005 * fVec23[((IOTA - 16) & 127)]) + ((0.077296500000000004 * fVec23[((IOTA - 15) & 127)]) + ((0.064767000000000005 * fVec23[((IOTA - 14) & 127)]) + ((0.082935599999999998 * fVec23[((IOTA - 13) & 127)]) + ((0.078489900000000001 * fVec23[((IOTA - 12) & 127)]) + ((0.00067357800000000009 * fVec23[((IOTA - 11) & 127)]) + ((0.00149621 * fVec23[((IOTA - 10) & 127)]) + ((0.00042969900000000002 * fVec23[((IOTA - 6) & 127)]) + ((0.0010723199999999999 * fVec23[((IOTA - 5) & 127)]) + ((0.00084950300000000004 * fVec23[((IOTA - 4) & 127)]) + ((0.00085153200000000001 * fVec23[((IOTA - 3) & 127)]) + ((0.00015027000000000001 * fVec23[((IOTA - 1) & 127)]) + ((2.4709800000000002e-05 * fTemp23) + ((0.00072128000000000003 * fVec23[((IOTA - 9) & 127)]) + ((1.47262e-06 * fVec35[((IOTA - 122) & 127)]) + ((0.00101019 * fVec23[((IOTA - 8) & 127)]) + ((0.00048385000000000002 * fVec35[((IOTA - 98) & 127)]) + ((0.00047365100000000001 * fVec35[((IOTA - 97) & 127)]) + ((9.940880000000001e-05 * fVec35[((IOTA - 94) & 127)]) + ((0.0023706000000000001 * fVec35[((IOTA - 93) & 127)]) + ((0.00196204 * fVec35[((IOTA - 92) & 127)]) + ((1.7742000000000001e-05 * fVec35[((IOTA - 91) & 127)]) + ((0.000611186 * fVec35[((IOTA - 90) & 127)]) + ((0.00087519700000000008 * fVec35[((IOTA - 89) & 127)]) + ((0.000687957 * fVec35[((IOTA - 82) & 127)]) + ((0.00036222200000000004 * fVec35[((IOTA - 69) & 127)]) + ((0.00063317100000000008 * fVec35[((IOTA - 57) & 127)]) + ((0.00092078700000000006 * fVec35[((IOTA - 44) & 127)]) + ((0.0029395300000000001 * fVec35[((IOTA - 32) & 127)]) + (((0.00016075400000000001 * fVec35[((IOTA - 2) & 127)]) + (0.021295600000000001 * fVec35[((IOTA - 24) & 127)])) + (0.000453602 * fVec23[((IOTA - 7) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.0426200000000002e-05 * fTemp34)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0043988899999999999 * fVec33[((IOTA - 19) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (1.2883700000000002e-05 * fTemp32)))))))))))))))))))))))))))))))))))))))))))))))) + (0.00801492 * fVec0[((IOTA - 30) & 127)])))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.0028022999999999998 * fVec12[((IOTA - 43) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00054976200000000008 * fVec11[((IOTA - 73) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (4.1789300000000003e-05 * fVec5[((IOTA - 1) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (0.00068792700000000007 * fVec1[((IOTA - 104) & 127)])) + (1.5164000000000001e-05 * fTemp8)) + (7.7678700000000006e-05 * fVec8[((IOTA - 3) & 127)])) + (0.00090468899999999997 * fVec8[((IOTA - 4) & 127)])) + (0.000187639 * fVec8[((IOTA - 7) & 127)])) + (0.0011105499999999999 * fVec8[((IOTA - 8) & 127)])) + (0.00082252200000000001 * fVec8[((IOTA - 10) & 127)])) + (0.017012799999999998 * fVec8[((IOTA - 12) & 127)])) + (0.0015720700000000001 * fVec8[((IOTA - 13) & 127)])) + (0.0279797 * fVec8[((IOTA - 16) & 127)])) + (0.035551199999999998 * fVec8[((IOTA - 17) & 127)])) + (0.020256099999999999 * fVec8[((IOTA - 22) & 127)])) + (0.051921400000000006 * fVec8[((IOTA - 23) & 127)])) + (0.0015102899999999999 * fVec8[((IOTA - 27) & 127)])) + (0.022164000000000003 * fVec8[((IOTA - 28) & 127)])) + (0.0091192499999999989 * fVec8[((IOTA - 29) & 127)])) + (0.0086269100000000015 * fVec8[((IOTA - 30) & 127)])) + (0.0013155900000000002 * fVec8[((IOTA - 33) & 127)])) + (0.010338400000000001 * fVec8[((IOTA - 34) & 127)])) + (0.00148828 * fVec8[((IOTA - 35) & 127)])) + (0.0027003000000000001 * fVec8[((IOTA - 37) & 127)])) + (0.0051550500000000004 * fVec8[((IOTA - 40) & 127)])) + (0.0041224 * fVec8[((IOTA - 41) & 127)])) + (0.0065710400000000002 * fVec8[((IOTA - 42) & 127)])) + (0.0043966300000000003 * fVec8[((IOTA - 46) & 127)])) + (0.0056671100000000004 * fVec8[((IOTA - 47) & 127)])) + (0.0016789400000000001 * fVec8[((IOTA - 49) & 127)])) + (0.0031687199999999999 * fVec8[((IOTA - 53) & 127)])) + (0.0042774800000000002 * fVec8[((IOTA - 54) & 127)])) + (0.0011170899999999998 * fVec8[((IOTA - 59) & 127)])) + (0.0035176000000000001 * fVec8[((IOTA - 60) & 127)])) + (0.0031331699999999998 * fVec8[((IOTA - 61) & 127)])) + (0.0017230000000000001 * fVec8[((IOTA - 62) & 127)])) + (0.00086360499999999993 * fVec8[((IOTA - 63) & 127)])) + (0.00065914000000000001 * fVec8[((IOTA - 68) & 127)])) + (0.00017622000000000002 * fVec8[((IOTA - 69) & 127)])) + (0.0021645100000000001 * fVec8[((IOTA - 73) & 127)])) + (0.0017008700000000002 * fVec8[((IOTA - 74) & 127)])) + (0.00099123000000000006 * fVec8[((IOTA - 79) & 127)])) + (0.0015633400000000001 * fVec8[((IOTA - 80) & 127)])) + (0.0016834100000000002 * fVec8[((IOTA - 81) & 127)])) + (0.0019089600000000001 * fVec8[((IOTA - 85) & 127)])) + (0.0026431700000000002 * fVec8[((IOTA - 86) & 127)])) + (0.00055522299999999998 * fVec8[((IOTA - 89) & 127)])) + (0.00096544800000000004 * fVec8[((IOTA - 90) & 127)])) + (0.0008723750000000001 * fVec8[((IOTA - 91) & 127)])) + (0.0014547099999999999 * fVec8[((IOTA - 92) & 127)])) + (0.0022558699999999997 * fVec8[((IOTA - 93) & 127)])) + (0.00103743 * fVec8[((IOTA - 94) & 127)])) + (2.5623399999999999e-05 * fVec8[((IOTA - 101) & 127)])) + (0.00023747600000000003 * fVec8[((IOTA - 102) & 127)])) + (0.00024076900000000003 * fVec8[((IOTA - 106) & 127)])) + (0.000123724 * fVec8[((IOTA - 107) & 127)]))) + (0.00014623200000000002 * fVec8[((IOTA - 111) & 127)]))) + (7.6359300000000013e-05 * fVec8[((IOTA - 117) & 127)])) + (6.9852400000000009e-05 * fVec8[((IOTA - 118) & 127)])) + (8.6907400000000001e-05 * fVec8[((IOTA - 119) & 127)])) + (2.7445000000000002e-05 * fVec8[((IOTA - 120) & 127)])) + (6.72085e-07 * fVec8[((IOTA - 126) & 127)]))))) + (0.00054595800000000003 * fVec1[((IOTA - 105) & 127)])) + (1.32916e-05 * fVec1[((IOTA - 108) & 127)])) + (0.00045154600000000004 * fVec1[((IOTA - 109) & 127)])) + (2.3009600000000001e-05 * fVec1[((IOTA - 114) & 127)])) + (2.4779700000000003e-05 * fVec1[((IOTA - 116) & 127)]))) + (2.4981100000000004e-05 * fVec1[((IOTA - 1) & 127)])) + (0.00022937200000000001 * fVec1[((IOTA - 3) & 127)])) + (6.8870100000000003e-05 * fVec1[((IOTA - 4) & 127)])) + (0.00039071400000000001 * fVec1[((IOTA - 5) & 127)])) + (0.00010729800000000002 * fVec1[((IOTA - 6) & 127)])) + (0.00036562800000000006 * fVec1[((IOTA - 7) & 127)])) + (0.0008645949999999999 * fVec1[((IOTA - 10) & 127)])) + (0.00051593500000000003 * fVec1[((IOTA - 11) & 127)])) + (0.00030434100000000002 * fVec1[((IOTA - 12) & 127)])) + (0.00417119 * fVec1[((IOTA - 14) & 127)])) + (0.0010287299999999998 * fVec1[((IOTA - 18) & 127)])) + (0.046834800000000003 * fVec1[((IOTA - 19) & 127)])) + (0.0094234200000000001 * fVec1[((IOTA - 22) & 127)])) + (0.0229176 * fVec1[((IOTA - 23) & 127)])) + (0.031733500000000005 * fVec1[((IOTA - 27) & 127)])) + (0.016254900000000003 * fVec1[((IOTA - 28) & 127)])) + (0.018438099999999999 * fVec1[((IOTA - 30) & 127)])) + (0.0039525800000000007 * fVec1[((IOTA - 35) & 127)])) + (0.0034817900000000002 * fVec1[((IOTA - 40) & 127)])) + (0.00261772 * fVec1[((IOTA - 41) & 127)])) + (0.0055836599999999998 * fVec1[((IOTA - 42) & 127)])) + (0.0047687700000000003 * fVec1[((IOTA - 43) & 127)])) + (0.0033062999999999999 * fVec1[((IOTA - 47) & 127)])) + (8.1561000000000014e-05 * fVec1[((IOTA - 48) & 127)])) + (0.00010383899999999999 * fVec1[((IOTA - 49) & 127)])) + (0.00231329 * fVec1[((IOTA - 54) & 127)])) + (0.00380022 * fVec1[((IOTA - 55) & 127)])) + (0.00145005 * fVec1[((IOTA - 56) & 127)])) + (0.0049128000000000002 * fVec1[((IOTA - 60) & 127)])) + (0.0051586600000000007 * fVec1[((IOTA - 61) & 127)])) + (0.00135669 * fVec1[((IOTA - 62) & 127)])) + (0.00100629 * fVec1[((IOTA - 68) & 127)])) + (0.00095442699999999999 * fVec1[((IOTA - 75) & 127)])) + (0.00135578 * fVec1[((IOTA - 80) & 127)])) + (0.0010853799999999999 * fVec1[((IOTA - 81) & 127)])) + (0.0017822599999999999 * fVec1[((IOTA - 83) & 127)])) + (0.0031738700000000001 * fVec1[((IOTA - 84) & 127)])) + (0.00179845 * fVec1[((IOTA - 85) & 127)])) + (2.9923200000000002e-05 * fVec1[((IOTA - 87) & 127)])) + (0.0010355099999999999 * fVec1[((IOTA - 88) & 127)])))) + (0.0019918900000000001 * fVec1[((IOTA - 93) & 127)])) + (0.00024809000000000002 * fVec1[((IOTA - 94) & 127)]))) + (0.00040513600000000001 * fVec1[((IOTA - 97) & 127)])) + (0.00030835500000000001 * fVec1[((IOTA - 100) & 127)])) + (0.00035096200000000002 * fVec1[((IOTA - 101) & 127)])) + (4.2307499999999993e-06 * fTemp2))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) + (3.6591100000000003e-05 * fVec3[((IOTA - 1) & 127)]))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fHbargraph1 = FAUSTFLOAT(fRec39[0]); + output1[i] = FAUSTFLOAT(fTemp37); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + IOTA = (IOTA + 1); + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec0[1] = fRec0[0]; + fRec39[1] = fRec39[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev061.cpp b/source/HOAUGens/HOADecLebedev061.cpp new file mode 100644 index 0000000000..7d6bde67d0 --- /dev/null +++ b/source/HOAUGens/HOADecLebedev061.cpp @@ -0,0 +1,1414 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev061" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fRec0[2]; + FAUSTFLOAT fVbargraph2; + double fConst4; + double fConst5; + double fRec10[2]; + double fRec9[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph3; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fRec14[2]; + double fRec13[2]; + double fRec12[2]; + FAUSTFLOAT fVbargraph5; + double fRec11[2]; + FAUSTFLOAT fVbargraph6; + double fConst6; + double fRec15[2]; + FAUSTFLOAT fVbargraph7; + double fRec16[2]; + FAUSTFLOAT fVbargraph8; + double fRec17[2]; + FAUSTFLOAT fVbargraph9; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev061"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 6; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (double(tgamma(1.5)) * sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0)))))); + fConst5 = (0.26596152026762176 * fConst4); + fConst6 = (0.0 - (1.5957691216057308 * fConst4)); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec0[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec14[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec11[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev061"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af6c80", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b20c20", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b01da0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b12a80", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-6"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b06c60", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b17730", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b25630", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph7, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b2b180", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph8, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b30680", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph9, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b358a0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (1.0 / ((fConst2 / fSlow2) + 1.0)); + double fSlow8 = (fConst3 / fSlow2); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.16666666666666666 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow7 * ((fSlow3 * fTemp2) - (fSlow8 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.28867513459481287 * fTemp3); + double fTemp5 = (fRec1[0] * (fTemp1 + fTemp4)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fRec3[0] * double(input3[i])); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec9[0] = (fSlow7 * ((fSlow3 * fTemp6) - (fSlow8 * fRec10[0]))); + double fTemp7 = (fRec9[0] + (fSlow4 * fTemp6)); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph3 = FAUSTFLOAT(fRec8[0]); + double fTemp8 = (fRec1[0] * (fTemp1 + (fConst5 * fTemp7))); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (fRec3[0] * double(input1[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec13[0] = (fSlow7 * ((fSlow3 * fTemp9) - (fSlow8 * fRec14[0]))); + double fTemp10 = (fRec13[0] + (fSlow4 * fTemp9)); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = (fRec1[0] * (fTemp1 + (fConst5 * fTemp10))); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec11[0]); + output2[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.16666666666666666 * (fRec1[0] * (fTemp0 + (fConst6 * fTemp7)))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec15[0]); + output3[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.16666666666666666 * (fRec1[0] * (fTemp0 + (fConst6 * fTemp10)))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec16[0]); + output4[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (fRec1[0] * (fTemp1 - fTemp4)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph9 = FAUSTFLOAT(fRec17[0]); + output5[i] = FAUSTFLOAT(fTemp14); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec0[1] = fRec0[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev261.cpp b/source/HOAUGens/HOADecLebedev261.cpp new file mode 100644 index 0000000000..c0400492ef --- /dev/null +++ b/source/HOAUGens/HOADecLebedev261.cpp @@ -0,0 +1,1870 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev261" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fRec0[2]; + FAUSTFLOAT fVbargraph2; + double fConst4; + double fConst5; + double fRec10[2]; + double fRec9[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph3; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fRec14[2]; + double fRec13[2]; + double fRec12[2]; + FAUSTFLOAT fVbargraph5; + double fRec11[2]; + FAUSTFLOAT fVbargraph6; + double fConst6; + double fRec15[2]; + FAUSTFLOAT fVbargraph7; + double fRec16[2]; + FAUSTFLOAT fVbargraph8; + double fRec17[2]; + FAUSTFLOAT fVbargraph9; + double fConst7; + double fRec18[2]; + FAUSTFLOAT fVbargraph10; + double fRec19[2]; + FAUSTFLOAT fVbargraph11; + double fConst8; + double fRec20[2]; + FAUSTFLOAT fVbargraph12; + double fRec21[2]; + FAUSTFLOAT fVbargraph13; + double fRec22[2]; + FAUSTFLOAT fVbargraph14; + double fConst9; + double fRec23[2]; + FAUSTFLOAT fVbargraph15; + double fConst10; + double fRec24[2]; + FAUSTFLOAT fVbargraph16; + double fConst11; + double fRec25[2]; + FAUSTFLOAT fVbargraph17; + double fRec26[2]; + FAUSTFLOAT fVbargraph18; + double fRec27[2]; + FAUSTFLOAT fVbargraph19; + double fRec28[2]; + FAUSTFLOAT fVbargraph20; + double fRec29[2]; + FAUSTFLOAT fVbargraph21; + double fRec30[2]; + FAUSTFLOAT fVbargraph22; + double fConst12; + double fConst13; + double fRec31[2]; + FAUSTFLOAT fVbargraph23; + double fConst14; + double fRec32[2]; + FAUSTFLOAT fVbargraph24; + double fConst15; + double fRec33[2]; + FAUSTFLOAT fVbargraph25; + double fRec34[2]; + FAUSTFLOAT fVbargraph26; + double fRec35[2]; + FAUSTFLOAT fVbargraph27; + double fRec36[2]; + FAUSTFLOAT fVbargraph28; + double fRec37[2]; + FAUSTFLOAT fVbargraph29; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev261"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 26; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (double(tgamma(1.5)) * sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0)))))); + fConst5 = (0.07598900579074909 * fConst4); + fConst6 = (0.0 - (1.5957691216057308 * fConst4)); + fConst7 = (0.042985873032210013 * fConst4); + fConst8 = (0.0 - (1.1283791670955128 * fConst4)); + fConst9 = (0.0 - (1.1283791670955126 * fConst4)); + fConst10 = (0.0 - (1.128379167095513 * fConst4)); + fConst11 = (0.042985873032209999 * fConst4); + fConst12 = (0.02961378424040018 * fConst4); + fConst13 = (0.0 - (0.92131773192356115 * fConst4)); + fConst14 = (0.0 - (0.92131773192356148 * fConst4)); + fConst15 = (0.029613784240400173 * fConst4); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec0[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec14[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec11[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec18[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec19[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec20[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev261"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20e0fa0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x210af40", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20ec0c0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20fcda0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-outs/2"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20f0f80", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2101a50", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x210f950", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph7, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x21154a0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph8, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x211a9a0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph9, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x211fbc0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph10, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x21268d0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph11, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x212c0a0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph12, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2132600", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph13, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2138350", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph14, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x213e320", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph15, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2144910", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph16, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x214b1c0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 14-26"); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph17, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2151910", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph18, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2156b50", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph19, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x215bd90", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph20, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2160ed0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph21, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x21660f0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph22, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x216c8c0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph23, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2173610", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph24, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x217a140", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph25, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2180b10", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph26, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2186760", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph27, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x218c280", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph28, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2191e80", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph29, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2197b60", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (1.0 / ((fConst2 / fSlow2) + 1.0)); + double fSlow8 = (fConst3 / fSlow2); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.047619047619047623 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow7 * ((fSlow3 * fTemp2) - (fSlow8 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.082478609884232251 * fTemp3); + double fTemp5 = (fRec1[0] * (fTemp1 + fTemp4)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fRec3[0] * double(input3[i])); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec9[0] = (fSlow7 * ((fSlow3 * fTemp6) - (fSlow8 * fRec10[0]))); + double fTemp7 = (fRec9[0] + (fSlow4 * fTemp6)); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph3 = FAUSTFLOAT(fRec8[0]); + double fTemp8 = (fRec1[0] * (fTemp1 + (fConst5 * fTemp7))); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (fRec3[0] * double(input1[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec13[0] = (fSlow7 * ((fSlow3 * fTemp9) - (fSlow8 * fRec14[0]))); + double fTemp10 = (fRec13[0] + (fSlow4 * fTemp9)); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = (fRec1[0] * (fTemp1 + (fConst5 * fTemp10))); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec11[0]); + output2[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.047619047619047623 * (fRec1[0] * (fTemp0 + (fConst6 * fTemp7)))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec15[0]); + output3[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.047619047619047623 * (fRec1[0] * (fTemp0 + (fConst6 * fTemp10)))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec16[0]); + output4[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (fRec1[0] * (fTemp1 - fTemp4)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph9 = FAUSTFLOAT(fRec17[0]); + output5[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.038095238095238099 * fTemp0); + double fTemp16 = (0.046656947481584346 * fTemp3); + double fTemp17 = (fTemp15 + fTemp16); + double fTemp18 = (fConst7 * fTemp7); + double fTemp19 = (fRec1[0] * (fTemp17 + fTemp18)); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph10 = FAUSTFLOAT(fRec18[0]); + output6[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fConst7 * fTemp10); + double fTemp21 = (fRec1[0] * (fTemp17 + fTemp20)); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph11 = FAUSTFLOAT(fRec19[0]); + output7[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.038095238095238099 * (fTemp0 + (fConst8 * fTemp7))); + double fTemp23 = (fRec1[0] * (fTemp16 + fTemp22)); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph12 = FAUSTFLOAT(fRec20[0]); + output8[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.038095238095238099 * (fTemp0 + (fConst8 * fTemp10))); + double fTemp25 = (fRec1[0] * (fTemp16 + fTemp24)); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph13 = FAUSTFLOAT(fRec21[0]); + output9[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (fRec1[0] * (fTemp15 + (fConst4 * ((0.042985873032210013 * fTemp7) + (0.042985873032210006 * fTemp10))))); + fRec22[0] = max((fRec22[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph14 = FAUSTFLOAT(fRec22[0]); + output10[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (fRec1[0] * (fTemp20 + (0.038095238095238099 * (fTemp0 + (fConst9 * fTemp7))))); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph15 = FAUSTFLOAT(fRec23[0]); + output11[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.038095238095238099 * (fRec1[0] * ((fTemp0 + (fConst9 * fTemp10)) + (fConst10 * fTemp7)))); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph16 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (fRec1[0] * ((0.038095238095238099 * (fTemp0 + (fConst10 * fTemp10))) + (fConst11 * fTemp7))); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph17 = FAUSTFLOAT(fRec25[0]); + output13[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fRec1[0] * ((fTemp15 + fTemp18) - fTemp16)); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph18 = FAUSTFLOAT(fRec26[0]); + output14[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fRec1[0] * ((fTemp15 + fTemp20) - fTemp16)); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph19 = FAUSTFLOAT(fRec27[0]); + output15[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fRec1[0] * (fTemp22 - fTemp16)); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph20 = FAUSTFLOAT(fRec28[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fRec1[0] * (fTemp24 - fTemp16)); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph21 = FAUSTFLOAT(fRec29[0]); + output17[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fTemp0 + fTemp3); + double fTemp35 = (fConst4 * ((0.02961378424040018 * fTemp7) + (0.029613784240400176 * fTemp10))); + double fTemp36 = (fRec1[0] * ((0.03214285714285714 * fTemp34) + fTemp35)); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph22 = FAUSTFLOAT(fRec30[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (fConst12 * fTemp10); + double fTemp38 = (fConst13 * fTemp7); + double fTemp39 = (fRec1[0] * (fTemp37 + (0.03214285714285714 * (fTemp34 + fTemp38)))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph23 = FAUSTFLOAT(fRec31[0]); + output19[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fTemp0 + (fConst13 * fTemp10)); + double fTemp41 = (fConst14 * fTemp7); + double fTemp42 = (0.03214285714285714 * (fRec1[0] * ((fTemp3 + fTemp40) + fTemp41))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph24 = FAUSTFLOAT(fRec32[0]); + output20[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (fTemp0 + (fConst14 * fTemp10)); + double fTemp44 = (fConst15 * fTemp7); + double fTemp45 = (fRec1[0] * ((0.03214285714285714 * (fTemp3 + fTemp43)) + fTemp44)); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph25 = FAUSTFLOAT(fRec33[0]); + output21[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (fTemp0 - fTemp3); + double fTemp47 = (fRec1[0] * (fTemp35 + (0.03214285714285714 * fTemp46))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph26 = FAUSTFLOAT(fRec34[0]); + output22[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (fRec1[0] * (fTemp37 + (0.03214285714285714 * (fTemp38 + fTemp46)))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph27 = FAUSTFLOAT(fRec35[0]); + output23[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.03214285714285714 * (fRec1[0] * (fTemp41 - (fTemp3 - fTemp40)))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph28 = FAUSTFLOAT(fRec36[0]); + output24[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (fRec1[0] * (fTemp44 - (0.03214285714285714 * (fTemp3 - fTemp43)))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph29 = FAUSTFLOAT(fRec37[0]); + output25[i] = FAUSTFLOAT(fTemp50); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec0[1] = fRec0[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev262.cpp b/source/HOAUGens/HOADecLebedev262.cpp new file mode 100644 index 0000000000..976b59f635 --- /dev/null +++ b/source/HOAUGens/HOADecLebedev262.cpp @@ -0,0 +1,2169 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev262" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + FAUSTFLOAT fVbargraph2; + double fRec0[2]; + FAUSTFLOAT fVbargraph3; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fRec14[2]; + double fRec13[2]; + double fRec12[2]; + FAUSTFLOAT fVbargraph4; + double fConst11; + double fConst12; + double fRec17[2]; + double fRec18[2]; + double fRec16[2]; + double fRec15[2]; + FAUSTFLOAT fVbargraph5; + double fRec11[2]; + FAUSTFLOAT fVbargraph6; + double fRec22[2]; + double fRec21[2]; + double fRec20[2]; + FAUSTFLOAT fVbargraph7; + double fConst13; + double fRec19[2]; + FAUSTFLOAT fVbargraph8; + double fConst14; + double fRec23[2]; + FAUSTFLOAT fVbargraph9; + double fRec24[2]; + FAUSTFLOAT fVbargraph10; + double fRec25[2]; + FAUSTFLOAT fVbargraph11; + double fConst15; + double fConst16; + double fConst17; + double fRec29[2]; + double fRec30[2]; + double fRec28[2]; + double fRec27[2]; + FAUSTFLOAT fVbargraph12; + double fConst18; + double fRec26[2]; + FAUSTFLOAT fVbargraph13; + double fConst19; + double fRec34[2]; + double fRec35[2]; + double fRec33[2]; + double fRec32[2]; + FAUSTFLOAT fVbargraph14; + double fRec31[2]; + FAUSTFLOAT fVbargraph15; + double fConst20; + double fConst21; + double fConst22; + double fRec36[2]; + FAUSTFLOAT fVbargraph16; + double fRec37[2]; + FAUSTFLOAT fVbargraph17; + double fRec41[2]; + double fRec42[2]; + double fRec40[2]; + double fRec39[2]; + FAUSTFLOAT fVbargraph18; + double fRec38[2]; + FAUSTFLOAT fVbargraph19; + double fConst23; + double fConst24; + double fConst25; + double fRec43[2]; + FAUSTFLOAT fVbargraph20; + double fConst26; + double fRec44[2]; + FAUSTFLOAT fVbargraph21; + double fConst27; + double fConst28; + double fRec45[2]; + FAUSTFLOAT fVbargraph22; + double fConst29; + double fConst30; + double fRec46[2]; + FAUSTFLOAT fVbargraph23; + double fRec47[2]; + FAUSTFLOAT fVbargraph24; + double fConst31; + double fRec48[2]; + FAUSTFLOAT fVbargraph25; + double fRec49[2]; + FAUSTFLOAT fVbargraph26; + double fConst32; + double fConst33; + double fRec50[2]; + FAUSTFLOAT fVbargraph27; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fRec51[2]; + FAUSTFLOAT fVbargraph28; + double fConst39; + double fConst40; + double fRec52[2]; + FAUSTFLOAT fVbargraph29; + double fConst41; + double fConst42; + double fConst43; + double fRec53[2]; + FAUSTFLOAT fVbargraph30; + double fConst44; + double fConst45; + double fRec54[2]; + FAUSTFLOAT fVbargraph31; + double fConst46; + double fConst47; + double fRec55[2]; + FAUSTFLOAT fVbargraph32; + double fConst48; + double fRec56[2]; + FAUSTFLOAT fVbargraph33; + double fConst49; + double fConst50; + double fRec57[2]; + FAUSTFLOAT fVbargraph34; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev262"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 26; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + fConst6 = double(tgamma(1.5)); + fConst7 = double(tgamma(1.0)); + fConst8 = sqrt((3.0 * (fConst7 / double(tgamma(3.0))))); + fConst9 = (fConst6 * fConst8); + fConst10 = (0.07598900579074909 * fConst9); + fConst11 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst7 / double(tgamma(5.0)))))); + fConst12 = (0.15197801158149818 * fConst11); + fConst13 = (0.0 - (3.1915382432114616 * fConst11)); + fConst14 = (0.0 - (1.5957691216057308 * fConst9)); + fConst15 = (0.042985873032210013 * fConst8); + fConst16 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst17 = (0.091186806948898899 * fConst16); + fConst18 = (0.06079120463259928 * fConst11); + fConst19 = (0.0 - (1.595769121605731 * fConst11)); + fConst20 = (0.0 - (1.1283791670955128 * fConst9)); + fConst21 = (fConst6 * fConst16); + fConst22 = (0.0 - (2.3936536824085959 * fConst21)); + fConst23 = (0.042985873032210013 * fConst9); + fConst24 = (0.0 - (1.1283791670955126 * fConst9)); + fConst25 = (0.0 - (7.0866384831701748e-16 * fConst11)); + fConst26 = (0.0 - (1.128379167095513 * fConst9)); + fConst27 = (0.042985873032209999 * fConst9); + fConst28 = (0.0 - (1.417327696634035e-15 * fConst11)); + fConst29 = (fConst16 * (0.0 - (1.6925687506432687 * fConst6))); + fConst30 = (0.053874802376117914 * fConst29); + fConst31 = (0.0 - (1.4142135623730951 * fConst29)); + fConst32 = (0.051292578908755625 * fConst16); + fConst33 = (0.051292578908755639 * fConst16); + fConst34 = (0.02961378424040018 * fConst8); + fConst35 = (0.0 - (0.92131773192356115 * fConst9)); + fConst36 = (0.0 - (2.1276921621409737 * fConst11)); + fConst37 = (0.0 - (1.5957691216057308 * fConst21)); + fConst38 = (0.0 - (4.7244256554467816e-16 * fConst11)); + fConst39 = (0.0 - (0.92131773192356148 * fConst9)); + fConst40 = (0.0 - (1.5957691216057313 * fConst21)); + fConst41 = (0.0 - (9.4488513108935631e-16 * fConst11)); + fConst42 = (0.029613784240400173 * fConst8); + fConst43 = (0.051292578908755618 * fConst16); + fConst44 = (fConst16 * (0.0 - (1.5957691216057308 * fConst6))); + fConst45 = (0.032142857142857147 * fConst44); + fConst46 = (0.02961378424040018 * fConst9); + fConst47 = (0.0 - fConst44); + fConst48 = (0.0 - (1.0000000000000002 * fConst44)); + fConst49 = (0.029613784240400173 * fConst9); + fConst50 = (0.032142857142857133 * fConst44); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec14[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec17[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec18[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec15[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec11[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec19[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec29[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec30[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec27[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec26[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec34[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec35[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec31[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec41[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec42[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec39[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec38[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec43[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec44[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec45[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec46[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec47[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec48[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec49[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec50[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec51[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec52[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec56[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec57[l57] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev262"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x276db00", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27b4b40", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2778e30", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2798bc0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x280c4a0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27ecbb0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27876d0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27d8ee0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27a5f10", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-outs/2"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x278c670", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27ab650", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph8, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27ba7d0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27c06e0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27c5fa0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph11, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27cb3a0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph13, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27e01c0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph15, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27f2030", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph16, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27f9740", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph17, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x27ffa30", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph19, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2811af0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph20, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2819e10", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph21, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28215a0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 14-26"); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph22, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2828d60", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph23, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x282fa80", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph24, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2835260", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph25, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x283b5f0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph26, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2841170", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph27, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x284a6b0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph28, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28541d0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph29, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x285ce60", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph30, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28658b0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph31, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x286d1d0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph32, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2874610", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph33, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x287b640", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph34, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2882db0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (fConst2 / fSlow2); + double fSlow8 = (1.0 / (fSlow7 + 1.0)); + double fSlow9 = (fConst3 / fSlow2); + double fSlow10 = mydsp_faustpower2_f(fSlow7); + double fSlow11 = (1.0 / (((fConst4 / fSlow2) + (3.0 * fSlow10)) + 1.0)); + double fSlow12 = (12.0 * fSlow10); + double fSlow13 = (fSlow12 + (fConst5 / fSlow2)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.047619047619047623 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow8 * ((fSlow3 * fTemp2) - (fSlow9 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.082478609884232251 * fTemp3); + double fTemp5 = (fRec3[0] * double(input6[i])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow11 * ((fSlow3 * fTemp5) - ((fSlow13 * fRec9[0]) + (fSlow12 * fRec10[0])))); + double fTemp6 = (fRec8[0] + (fSlow4 * fTemp5)); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph2 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.10647942749999 * fTemp6); + double fTemp8 = (fRec1[0] * ((fTemp1 + fTemp4) + fTemp7)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph3 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (fRec3[0] * double(input3[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec13[0] = (fSlow8 * ((fSlow3 * fTemp9) - (fSlow9 * fRec14[0]))); + double fTemp10 = (fRec13[0] + (fSlow4 * fTemp9)); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph4 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = (fRec3[0] * double(input8[i])); + fRec17[0] = (fRec17[1] + fRec16[1]); + fRec18[0] = (fRec18[1] + fRec17[1]); + fRec16[0] = (fSlow11 * ((fSlow3 * fTemp11) - ((fSlow13 * fRec17[0]) + (fSlow12 * fRec18[0])))); + double fTemp12 = (fRec16[0] + (fSlow4 * fTemp11)); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph5 = FAUSTFLOAT(fRec15[0]); + double fTemp13 = (fConst12 * fTemp12); + double fTemp14 = (0.053239713749994998 * fTemp6); + double fTemp15 = (fRec1[0] * (((fTemp1 + (fConst10 * fTemp10)) + fTemp13) - fTemp14)); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph6 = FAUSTFLOAT(fRec11[0]); + output1[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (fRec3[0] * double(input1[i])); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec21[0] = (fSlow8 * ((fSlow3 * fTemp16) - (fSlow9 * fRec22[0]))); + double fTemp17 = (fRec21[0] + (fSlow4 * fTemp16)); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph7 = FAUSTFLOAT(fRec20[0]); + double fTemp18 = (fConst13 * fTemp12); + double fTemp19 = (fRec1[0] * (((fConst10 * fTemp17) + (0.047619047619047623 * (fTemp0 + fTemp18))) - fTemp14)); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph8 = FAUSTFLOAT(fRec19[0]); + output2[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fRec1[0] * ((fTemp13 + (0.047619047619047623 * (fTemp0 + (fConst14 * fTemp10)))) - fTemp14)); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph9 = FAUSTFLOAT(fRec23[0]); + output3[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (fRec1[0] * ((0.047619047619047623 * (fTemp18 + (fTemp0 + (fConst14 * fTemp17)))) - fTemp14)); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph10 = FAUSTFLOAT(fRec24[0]); + output4[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (fRec1[0] * ((fTemp1 + fTemp7) - fTemp4)); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph11 = FAUSTFLOAT(fRec25[0]); + output5[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (fRec3[0] * double(input7[i])); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec30[0] = (fRec30[1] + fRec29[1]); + fRec28[0] = (fSlow11 * ((fSlow3 * fTemp23) - ((fSlow13 * fRec29[0]) + (fSlow12 * fRec30[0])))); + double fTemp24 = (fRec28[0] + (fSlow4 * fTemp23)); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph12 = FAUSTFLOAT(fRec27[0]); + double fTemp25 = (0.038095238095238099 * fTemp0); + double fTemp26 = (0.046656947481584346 * fTemp3); + double fTemp27 = (0.021295885499997991 * fTemp6); + double fTemp28 = (fConst18 * fTemp12); + double fTemp29 = (fRec1[0] * ((fConst6 * ((fConst15 * fTemp10) + (fConst17 * fTemp24))) + (((fTemp25 + fTemp26) + fTemp27) + fTemp28))); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph13 = FAUSTFLOAT(fRec26[0]); + output6[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fConst19 * fTemp12); + double fTemp31 = (0.038095238095238099 * (fTemp0 + fTemp30)); + double fTemp32 = (fRec3[0] * double(input5[i])); + fRec34[0] = (fRec34[1] + fRec33[1]); + fRec35[0] = (fRec35[1] + fRec34[1]); + fRec33[0] = (fSlow11 * ((fSlow3 * fTemp32) - ((fSlow13 * fRec34[0]) + (fSlow12 * fRec35[0])))); + double fTemp33 = (fRec33[0] + (fSlow4 * fTemp32)); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph14 = FAUSTFLOAT(fRec32[0]); + double fTemp34 = (fTemp26 + fTemp27); + double fTemp35 = (fRec1[0] * (fTemp31 + ((fConst6 * ((fConst15 * fTemp17) + (fConst17 * fTemp33))) + fTemp34))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph15 = FAUSTFLOAT(fRec31[0]); + output7[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (fTemp0 + (fConst20 * fTemp10)); + double fTemp37 = (fRec1[0] * ((0.038095238095238099 * (fTemp36 + (fConst22 * fTemp24))) + (fTemp28 + fTemp34))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph16 = FAUSTFLOAT(fRec36[0]); + output8[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (fTemp0 + (fConst20 * fTemp17)); + double fTemp39 = (fRec1[0] * (fTemp34 + (0.038095238095238099 * (fTemp30 + (fTemp38 + (fConst22 * fTemp33)))))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph17 = FAUSTFLOAT(fRec37[0]); + output9[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fRec3[0] * double(input4[i])); + fRec41[0] = (fRec41[1] + fRec40[1]); + fRec42[0] = (fRec42[1] + fRec41[1]); + fRec40[0] = (fSlow11 * ((fSlow3 * fTemp40) - ((fSlow13 * fRec41[0]) + (fSlow12 * fRec42[0])))); + double fTemp41 = (fRec40[0] + (fSlow4 * fTemp40)); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph18 = FAUSTFLOAT(fRec39[0]); + double fTemp42 = (0.042591770999995997 * fTemp6); + double fTemp43 = (fRec1[0] * (((fTemp25 + (fConst9 * ((0.042985873032210013 * fTemp10) + (0.042985873032210006 * fTemp17)))) + (fConst11 * ((2.6996718031124477e-17 * fTemp12) + (0.12158240926519855 * fTemp41)))) - fTemp42)); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph19 = FAUSTFLOAT(fRec38[0]); + output10[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (fConst23 * fTemp17); + double fTemp45 = (fConst13 * fTemp41); + double fTemp46 = (fRec1[0] * ((fTemp44 + (0.038095238095238099 * (((fTemp0 + (fConst24 * fTemp10)) + fTemp45) + (fConst25 * fTemp12)))) - fTemp42)); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph20 = FAUSTFLOAT(fRec43[0]); + output11[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (fRec1[0] * (((0.038095238095238099 * ((fTemp0 + (fConst24 * fTemp17)) + (fConst26 * fTemp10))) + (fConst11 * ((5.3993436062248954e-17 * fTemp12) + (0.12158240926519859 * fTemp41)))) - fTemp42)); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph21 = FAUSTFLOAT(fRec44[0]); + output12[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (fRec1[0] * (((fConst27 * fTemp10) + (0.038095238095238099 * ((fTemp45 + (fTemp0 + (fConst26 * fTemp17))) + (fConst28 * fTemp12)))) - fTemp42)); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph22 = FAUSTFLOAT(fRec45[0]); + output13[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (fRec1[0] * (((fConst30 * fTemp24) + (fTemp28 + ((fConst23 * fTemp10) + (fTemp25 + fTemp27)))) - fTemp26)); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph23 = FAUSTFLOAT(fRec46[0]); + output14[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (fRec1[0] * (((fConst30 * fTemp33) + (fTemp31 + (fTemp27 + fTemp44))) - fTemp26)); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph24 = FAUSTFLOAT(fRec47[0]); + output15[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (fRec1[0] * (((0.038095238095238099 * (fTemp36 + (fConst31 * fTemp24))) + (fTemp27 + fTemp28)) - fTemp26)); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph25 = FAUSTFLOAT(fRec48[0]); + output16[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (fRec1[0] * ((fTemp27 + (0.038095238095238099 * (fTemp30 + (fTemp38 + (fConst31 * fTemp33))))) - fTemp26)); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph26 = FAUSTFLOAT(fRec49[0]); + output17[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (fConst11 * ((1.518565389250751e-17 * fTemp12) + (0.068390105211674143 * fTemp41))); + double fTemp54 = ((0.02961378424040018 * fTemp10) + (0.029613784240400176 * fTemp17)); + double fTemp55 = (fTemp0 + fTemp3); + double fTemp56 = (7.9795740640090912e-18 * fTemp6); + double fTemp57 = (fRec1[0] * (fTemp53 + ((fConst6 * (((fConst8 * fTemp54) + (fConst32 * fTemp33)) + (fConst33 * fTemp24))) + ((0.03214285714285714 * fTemp55) + fTemp56)))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph27 = FAUSTFLOAT(fRec50[0]); + output18[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (fConst35 * fTemp10); + double fTemp59 = (fConst36 * fTemp41); + double fTemp60 = (fConst38 * fTemp12); + double fTemp61 = (fRec1[0] * ((fTemp56 + (fConst6 * ((fConst34 * fTemp17) + (fConst33 * fTemp33)))) + (0.03214285714285714 * ((((fTemp55 + fTemp58) + fTemp59) + (fConst37 * fTemp24)) + fTemp60)))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph28 = FAUSTFLOAT(fRec51[0]); + output19[i] = FAUSTFLOAT(fTemp61); + double fTemp62 = (fConst11 * ((3.037130778501502e-17 * fTemp12) + (0.068390105211674157 * fTemp41))); + double fTemp63 = (fTemp0 + (fConst35 * fTemp17)); + double fTemp64 = (fConst39 * fTemp10); + double fTemp65 = (fRec1[0] * (fTemp62 + (fTemp56 + (0.03214285714285714 * ((((fTemp3 + fTemp63) + fTemp64) + (fConst37 * fTemp33)) + (fConst40 * fTemp24)))))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph29 = FAUSTFLOAT(fRec52[0]); + output20[i] = FAUSTFLOAT(fTemp65); + double fTemp66 = (fTemp0 + (fConst39 * fTemp17)); + double fTemp67 = (fConst41 * fTemp12); + double fTemp68 = (fRec1[0] * ((0.03214285714285714 * (((fTemp59 + (fTemp3 + fTemp66)) + (fConst40 * fTemp33)) + fTemp67)) + (fTemp56 + (fConst6 * ((fConst42 * fTemp10) + (fConst43 * fTemp24)))))); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph30 = FAUSTFLOAT(fRec53[0]); + output21[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = (fTemp0 - fTemp3); + double fTemp70 = (fRec1[0] * ((fConst45 * fTemp24) + ((0.03214285714285714 * (fTemp69 + (fConst44 * fTemp33))) + (fTemp53 + ((fConst9 * fTemp54) + fTemp56))))); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph31 = FAUSTFLOAT(fRec54[0]); + output22[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = (fRec1[0] * (((fConst45 * fTemp33) + (fTemp56 + (fConst46 * fTemp17))) + (0.03214285714285714 * (fTemp60 + ((fTemp59 + (fTemp58 + fTemp69)) + (fConst47 * fTemp24)))))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph32 = FAUSTFLOAT(fRec55[0]); + output23[i] = FAUSTFLOAT(fTemp71); + double fTemp72 = (fRec1[0] * ((0.03214285714285714 * (((fTemp64 - (fTemp3 - fTemp63)) + (fConst47 * fTemp33)) + (fConst48 * fTemp24))) + (fTemp56 + fTemp62))); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph33 = FAUSTFLOAT(fRec56[0]); + output24[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = (fRec1[0] * (((fTemp56 + (fConst49 * fTemp10)) + (fConst50 * fTemp24)) + (0.03214285714285714 * (fTemp67 + ((fTemp59 - (fTemp3 - fTemp66)) + (fConst48 * fTemp33)))))); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph34 = FAUSTFLOAT(fRec57[0]); + output25[i] = FAUSTFLOAT(fTemp73); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec0[1] = fRec0[0]; + fRec14[1] = fRec14[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec16[1] = fRec16[0]; + fRec15[1] = fRec15[0]; + fRec11[1] = fRec11[0]; + fRec22[1] = fRec22[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec28[1] = fRec28[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec31[1] = fRec31[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec40[1] = fRec40[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev263.cpp b/source/HOAUGens/HOADecLebedev263.cpp new file mode 100644 index 0000000000..eaad18ce5f --- /dev/null +++ b/source/HOAUGens/HOADecLebedev263.cpp @@ -0,0 +1,2723 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev263" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + FAUSTFLOAT fVbargraph2; + double fConst6; + double fConst7; + double fConst8; + double fRec14[2]; + double fRec15[2]; + double fRec13[2]; + double fConst9; + double fRec16[2]; + double fRec12[2]; + double fRec11[2]; + FAUSTFLOAT fVbargraph3; + double fRec0[2]; + FAUSTFLOAT fVbargraph4; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fRec20[2]; + double fRec19[2]; + double fRec18[2]; + FAUSTFLOAT fVbargraph5; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fRec23[2]; + double fRec24[2]; + double fRec22[2]; + double fRec21[2]; + FAUSTFLOAT fVbargraph6; + double fConst21; + double fConst22; + double fConst23; + double fRec28[2]; + double fRec29[2]; + double fRec27[2]; + double fRec30[2]; + double fRec26[2]; + double fRec25[2]; + FAUSTFLOAT fVbargraph7; + double fConst24; + double fConst25; + double fRec34[2]; + double fRec35[2]; + double fRec33[2]; + double fRec36[2]; + double fRec32[2]; + double fRec31[2]; + FAUSTFLOAT fVbargraph8; + double fRec17[2]; + FAUSTFLOAT fVbargraph9; + double fRec40[2]; + double fRec39[2]; + double fRec38[2]; + FAUSTFLOAT fVbargraph10; + double fConst26; + double fConst27; + double fRec44[2]; + double fRec45[2]; + double fRec43[2]; + double fRec46[2]; + double fRec42[2]; + double fRec41[2]; + FAUSTFLOAT fVbargraph11; + double fRec50[2]; + double fRec51[2]; + double fRec49[2]; + double fRec52[2]; + double fRec48[2]; + double fRec47[2]; + FAUSTFLOAT fVbargraph12; + double fRec37[2]; + FAUSTFLOAT fVbargraph13; + double fConst28; + double fConst29; + double fRec53[2]; + FAUSTFLOAT fVbargraph14; + double fRec54[2]; + FAUSTFLOAT fVbargraph15; + double fRec55[2]; + FAUSTFLOAT fVbargraph16; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fRec60[2]; + double fRec61[2]; + double fRec59[2]; + double fRec62[2]; + double fRec58[2]; + double fRec57[2]; + FAUSTFLOAT fVbargraph17; + double fConst34; + double fConst35; + double fConst36; + double fRec65[2]; + double fRec66[2]; + double fRec64[2]; + double fRec63[2]; + FAUSTFLOAT fVbargraph18; + double fConst37; + double fConst38; + double fRec56[2]; + FAUSTFLOAT fVbargraph19; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fRec70[2]; + double fRec71[2]; + double fRec69[2]; + double fRec68[2]; + FAUSTFLOAT fVbargraph20; + double fRec67[2]; + FAUSTFLOAT fVbargraph21; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fRec72[2]; + FAUSTFLOAT fVbargraph22; + double fRec73[2]; + FAUSTFLOAT fVbargraph23; + double fConst48; + double fRec77[2]; + double fRec78[2]; + double fRec76[2]; + double fRec75[2]; + FAUSTFLOAT fVbargraph24; + double fConst49; + double fRec74[2]; + FAUSTFLOAT fVbargraph25; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fRec79[2]; + FAUSTFLOAT fVbargraph26; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fRec80[2]; + FAUSTFLOAT fVbargraph27; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fRec81[2]; + FAUSTFLOAT fVbargraph28; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fRec82[2]; + FAUSTFLOAT fVbargraph29; + double fConst70; + double fConst71; + double fRec83[2]; + FAUSTFLOAT fVbargraph30; + double fConst72; + double fConst73; + double fConst74; + double fRec84[2]; + FAUSTFLOAT fVbargraph31; + double fRec85[2]; + FAUSTFLOAT fVbargraph32; + double fConst75; + double fConst76; + double fRec90[2]; + double fRec91[2]; + double fRec89[2]; + double fRec92[2]; + double fRec88[2]; + double fRec87[2]; + FAUSTFLOAT fVbargraph33; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fRec86[2]; + FAUSTFLOAT fVbargraph34; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fRec93[2]; + FAUSTFLOAT fVbargraph35; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fRec94[2]; + FAUSTFLOAT fVbargraph36; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fRec95[2]; + FAUSTFLOAT fVbargraph37; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fRec96[2]; + FAUSTFLOAT fVbargraph38; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fRec97[2]; + FAUSTFLOAT fVbargraph39; + double fConst116; + double fConst117; + double fRec98[2]; + FAUSTFLOAT fVbargraph40; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fRec99[2]; + FAUSTFLOAT fVbargraph41; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev263"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 26; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + fConst6 = (394.77151028643527 / fConst0); + fConst7 = (625.22848971356643 / fConst0); + fConst8 = (1250.4569794271329 / fConst0); + fConst9 = (789.54302057287055 / fConst0); + fConst10 = double(tgamma(1.5)); + fConst11 = double(tgamma(1.0)); + fConst12 = double(tgamma(3.0)); + fConst13 = sqrt((3.0 * (fConst11 / fConst12))); + fConst14 = (fConst10 * fConst13); + fConst15 = (0.07598900579074909 * fConst14); + fConst16 = double(tgamma(2.5)); + fConst17 = double(tgamma(5.0)); + fConst18 = sqrt((5.0 * (fConst11 / fConst17))); + fConst19 = (fConst16 * fConst18); + fConst20 = (0.15197801158149818 * fConst19); + fConst21 = sqrt((7.0 * (fConst12 / fConst17))); + fConst22 = (fConst21 * (0.0 - (3.3851375012865379 * fConst10))); + fConst23 = (0.033671751485073696 * fConst22); + fConst24 = (double(tgamma(3.5)) * sqrt((7.0 * (fConst11 / double(tgamma(7.0)))))); + fConst25 = (0.30395602316299636 * fConst24); + fConst26 = (0.0 - (3.1915382432114616 * fConst19)); + fConst27 = (0.0 - (6.3830764864229232 * fConst24)); + fConst28 = (0.0 - (1.5957691216057308 * fConst14)); + fConst29 = (0.0 - (0.70710678118654757 * fConst22)); + fConst30 = (0.06079120463259928 * fConst18); + fConst31 = double(tgamma(2.0)); + fConst32 = sqrt((7.0 * (fConst31 / double(tgamma(6.0))))); + fConst33 = (0.2149293651610501 * fConst32); + fConst34 = (0.042985873032210013 * fConst13); + fConst35 = sqrt((5.0 * (fConst31 / double(tgamma(4.0))))); + fConst36 = (0.091186806948898899 * fConst35); + fConst37 = (0.09671821432247249 * fConst21); + fConst38 = (0.08597174606442004 * fConst24); + fConst39 = (0.0 - (1.595769121605731 * fConst19)); + fConst40 = (0.0 - (2.256758334191026 * fConst24)); + fConst41 = (fConst16 * fConst32); + fConst42 = (0.0 - (5.6418958354775643 * fConst41)); + fConst43 = (0.0 - (1.1283791670955128 * fConst14)); + fConst44 = (fConst10 * fConst35); + fConst45 = (0.0 - (2.3936536824085959 * fConst44)); + fConst46 = (fConst10 * fConst21); + fConst47 = (0.0 - (2.5388531259649025 * fConst46)); + fConst48 = (0.0 - (4.5135166683820485 * fConst24)); + fConst49 = (0.17194349212884008 * fConst24); + fConst50 = (0.042985873032210013 * fConst14); + fConst51 = (0.019047619047619053 * fConst22); + fConst52 = (0.0 - (1.1283791670955126 * fConst14)); + fConst53 = (0.0 - (7.0866384831701748e-16 * fConst19)); + fConst54 = (0.0 - (0.5 * fConst22)); + fConst55 = (0.0 - (1.128379167095513 * fConst14)); + fConst56 = (0.0 - (4.5135166683820547 * fConst24)); + fConst57 = (0.0 - (0.50000000000000011 * fConst22)); + fConst58 = (0.17194349212883991 * fConst24); + fConst59 = (0.042985873032209999 * fConst14); + fConst60 = (0.019047619047619046 * fConst22); + fConst61 = (0.0 - (1.417327696634035e-15 * fConst19)); + fConst62 = (0.0 - (4.5135166683820476 * fConst24)); + fConst63 = (0.0 - (4.5135166683820538 * fConst24)); + fConst64 = (0.0 - (1.6925687506432687 * fConst10)); + fConst65 = (fConst35 * fConst64); + fConst66 = (fConst32 * (0.0 - (3.9894228040143274 * fConst16))); + fConst67 = (fConst21 * (0.0 - ((3.5355339059327373 * fConst64) + (2.3936536824085963 * fConst10)))); + fConst68 = (0.026937401188058957 * fConst67); + fConst69 = (0.06079120463259928 * fConst19); + fConst70 = (0.0 - (1.4142135623730951 * fConst66)); + fConst71 = (0.053874802376117914 * fConst65); + fConst72 = (0.053874802376117914 * fConst66); + fConst73 = (0.0 - (1.4142135623730951 * fConst65)); + fConst74 = (0.0 - (0.70710678118654757 * fConst67)); + fConst75 = (0.0 - (2.4568472851294949 * fConst24)); + fConst76 = (0.19742522826933454 * fConst32); + fConst77 = (4.3837206813298509e-17 * fConst32); + fConst78 = (0.078970091307733831 * fConst24); + fConst79 = (0.051292578908755625 * fConst35); + fConst80 = (0.051292578908755639 * fConst35); + fConst81 = (0.02961378424040019 * fConst21); + fConst82 = (0.029613784240400197 * fConst21); + fConst83 = (0.0 - (0.92131773192356115 * fConst14)); + fConst84 = (0.0 - (2.1276921621409737 * fConst19)); + fConst85 = (0.0 - (1.5957691216057308 * fConst44)); + fConst86 = (0.0 - (4.7244256554467816e-16 * fConst19)); + fConst87 = (0.0 - (6.1421182128237417 * fConst41)); + fConst88 = (0.0 - (0.92131773192356159 * fConst46)); + fConst89 = (0.0 - (1.3638242119692871e-15 * fConst41)); + fConst90 = (0.02961378424040018 * fConst13); + fConst91 = (0.19742522826933459 * fConst32); + fConst92 = (8.7674413626597019e-17 * fConst32); + fConst93 = (0.0 - (0.92131773192356148 * fConst14)); + fConst94 = (0.0 - (1.5957691216057313 * fConst44)); + fConst95 = (0.0 - (2.456847285129498 * fConst24)); + fConst96 = (0.0 - (0.92131773192356192 * fConst46)); + fConst97 = (0.078970091307733734 * fConst24); + fConst98 = (0.029613784240400173 * fConst13); + fConst99 = (0.051292578908755618 * fConst35); + fConst100 = (0.029613784240400187 * fConst21); + fConst101 = (0.0 - (9.4488513108935631e-16 * fConst19)); + fConst102 = (0.0 - (2.456847285129494 * fConst24)); + fConst103 = (0.0 - (2.7276484239385742e-15 * fConst41)); + fConst104 = (0.0 - (2.4568472851294976 * fConst24)); + fConst105 = (0.0 - (1.5957691216057308 * fConst10)); + fConst106 = (fConst105 * fConst35); + fConst107 = (fConst32 * (0.0 - (4.3431334391370653 * fConst16))); + fConst108 = (fConst21 * (0.0 - ((2.8867513459481291 * fConst105) + (2.7639531957706835 * fConst10)))); + fConst109 = (0.032142857142857147 * fConst106); + fConst110 = (0.0 - fConst106); + fConst111 = (0.0 - (1.4142135623730951 * fConst107)); + fConst112 = (0.0 - (0.5 * fConst108)); + fConst113 = (0.0 - (3.1401849173675503e-16 * fConst107)); + fConst114 = (0.016071428571428573 * fConst108); + fConst115 = (0.02961378424040018 * fConst14); + fConst116 = (0.0 - (1.0000000000000002 * fConst106)); + fConst117 = (0.0 - (0.50000000000000011 * fConst108)); + fConst118 = (0.032142857142857133 * fConst106); + fConst119 = (0.029613784240400173 * fConst14); + fConst120 = (0.016071428571428566 * fConst108); + fConst121 = (0.0 - (6.2803698347351007e-16 * fConst107)); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec14[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec15[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec16[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec12[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec11[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec0[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec20[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec24[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec21[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec28[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec29[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec30[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec26[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec25[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec34[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec35[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec36[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec31[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec17[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec40[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec44[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec45[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec46[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec42[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec41[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec50[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec51[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec52[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec48[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec47[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec37[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec60[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec61[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec62[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec58[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec57[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec65[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec66[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec64[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec63[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec56[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec70[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec71[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec69[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec68[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec67[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec72[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec73[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec77[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec78[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec76[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec75[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec74[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec79[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec80[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec81[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec82[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec83[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec84[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec85[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec90[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec91[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec92[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec88[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec87[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec86[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec93[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec94[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec95[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec96[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec97[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec98[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec99[l99] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev263"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a7fb90", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2afb2c0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a8aec0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2abdb10", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b89c50", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b66e60", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a99760", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b4f970", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2acb760", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b0ac20", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bdea90", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b196f0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2aac240", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2adbf40", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b41db0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2aec6e0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-outs/2"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ab12c0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph9, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2af1dd0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph13, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b1e740", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph14, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b256c0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph15, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b2b700", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph16, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b30ce0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph19, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b58030", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph21, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b6c490", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph22, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b754e0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph23, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b7c360", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph25, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b90a20", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph26, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b9ac00", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ba4960", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 14-26"); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bae6f0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph29, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bb8840", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph30, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bbfb90", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph31, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bc72b0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph32, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bcd5b0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph34, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2be9be0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph35, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bf7200", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph36, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c042e0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph37, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c10950", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph38, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c1c430", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph39, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c26770", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph40, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c2f8e0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph41, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c390d0", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (fConst2 / fSlow2); + double fSlow8 = (1.0 / (fSlow7 + 1.0)); + double fSlow9 = (fConst3 / fSlow2); + double fSlow10 = mydsp_faustpower2_f(fSlow7); + double fSlow11 = (1.0 / (((fConst4 / fSlow2) + (3.0 * fSlow10)) + 1.0)); + double fSlow12 = (12.0 * fSlow10); + double fSlow13 = (fSlow12 + (fConst5 / fSlow2)); + double fSlow14 = (1.0 / ((fConst6 / fSlow2) + 1.0)); + double fSlow15 = (1.0 / (((fConst7 / fSlow2) + (6.4594326934833797 * fSlow10)) + 1.0)); + double fSlow16 = (25.837730773933519 * fSlow10); + double fSlow17 = (fSlow16 + (fConst8 / fSlow2)); + double fSlow18 = (fConst9 / fSlow2); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.047619047619047623 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow8 * ((fSlow3 * fTemp2) - (fSlow9 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.082478609884232251 * fTemp3); + double fTemp5 = (fRec3[0] * double(input6[i])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow11 * ((fSlow3 * fTemp5) - ((fSlow13 * fRec9[0]) + (fSlow12 * fRec10[0])))); + double fTemp6 = (fRec8[0] + (fSlow4 * fTemp5)); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph2 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.10647942749999 * fTemp6); + double fTemp8 = (fRec3[0] * double(input12[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec15[0] = (fRec15[1] + fRec14[1]); + fRec13[0] = (fSlow15 * ((fSlow3 * fTemp8) - ((fSlow17 * fRec14[0]) + (fSlow16 * fRec15[0])))); + fRec16[0] = (fRec16[1] + fRec12[1]); + fRec12[0] = (fSlow14 * (fRec13[0] - (fSlow18 * fRec16[0]))); + double fTemp9 = (fRec12[0] + (fSlow4 * fTemp8)); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph3 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.12598815766974242 * fTemp9); + double fTemp11 = (fRec1[0] * (((fTemp1 + fTemp4) + fTemp7) + fTemp10)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph4 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (fRec3[0] * double(input3[i])); + fRec20[0] = (fRec20[1] + fRec19[1]); + fRec19[0] = (fSlow8 * ((fSlow3 * fTemp12) - (fSlow9 * fRec20[0]))); + double fTemp13 = (fRec19[0] + (fSlow4 * fTemp12)); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph5 = FAUSTFLOAT(fRec18[0]); + double fTemp14 = (fRec3[0] * double(input8[i])); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec24[0] = (fRec24[1] + fRec23[1]); + fRec22[0] = (fSlow11 * ((fSlow3 * fTemp14) - ((fSlow13 * fRec23[0]) + (fSlow12 * fRec24[0])))); + double fTemp15 = (fRec22[0] + (fSlow4 * fTemp14)); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph6 = FAUSTFLOAT(fRec21[0]); + double fTemp16 = (fConst20 * fTemp15); + double fTemp17 = (fRec3[0] * double(input13[i])); + fRec28[0] = (fRec28[1] + fRec27[1]); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec27[0] = (fSlow15 * ((fSlow3 * fTemp17) - ((fSlow17 * fRec28[0]) + (fSlow16 * fRec29[0])))); + fRec30[0] = (fRec30[1] + fRec26[1]); + fRec26[0] = (fSlow14 * (fRec27[0] - (fSlow18 * fRec30[0]))); + double fTemp18 = (fRec26[0] + (fSlow4 * fTemp17)); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph7 = FAUSTFLOAT(fRec25[0]); + double fTemp19 = (fRec3[0] * double(input15[i])); + fRec34[0] = (fRec34[1] + fRec33[1]); + fRec35[0] = (fRec35[1] + fRec34[1]); + fRec33[0] = (fSlow15 * ((fSlow3 * fTemp19) - ((fSlow17 * fRec34[0]) + (fSlow16 * fRec35[0])))); + fRec36[0] = (fRec36[1] + fRec32[1]); + fRec32[0] = (fSlow14 * (fRec33[0] - (fSlow18 * fRec36[0]))); + double fTemp20 = (fRec32[0] + (fSlow4 * fTemp19)); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph8 = FAUSTFLOAT(fRec31[0]); + double fTemp21 = (0.053239713749994998 * fTemp6); + double fTemp22 = (fRec1[0] * (((((fTemp1 + (fConst15 * fTemp13)) + fTemp16) + (fConst23 * fTemp18)) + (fConst25 * fTemp20)) - fTemp21)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph9 = FAUSTFLOAT(fRec17[0]); + output1[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (fRec3[0] * double(input1[i])); + fRec40[0] = (fRec40[1] + fRec39[1]); + fRec39[0] = (fSlow8 * ((fSlow3 * fTemp23) - (fSlow9 * fRec40[0]))); + double fTemp24 = (fRec39[0] + (fSlow4 * fTemp23)); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph10 = FAUSTFLOAT(fRec38[0]); + double fTemp25 = (fConst26 * fTemp15); + double fTemp26 = (fRec3[0] * double(input9[i])); + fRec44[0] = (fRec44[1] + fRec43[1]); + fRec45[0] = (fRec45[1] + fRec44[1]); + fRec43[0] = (fSlow15 * ((fSlow3 * fTemp26) - ((fSlow17 * fRec44[0]) + (fSlow16 * fRec45[0])))); + fRec46[0] = (fRec46[1] + fRec42[1]); + fRec42[0] = (fSlow14 * (fRec43[0] - (fSlow18 * fRec46[0]))); + double fTemp27 = (fRec42[0] + (fSlow4 * fTemp26)); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph11 = FAUSTFLOAT(fRec41[0]); + double fTemp28 = (fRec3[0] * double(input11[i])); + fRec50[0] = (fRec50[1] + fRec49[1]); + fRec51[0] = (fRec51[1] + fRec50[1]); + fRec49[0] = (fSlow15 * ((fSlow3 * fTemp28) - ((fSlow17 * fRec50[0]) + (fSlow16 * fRec51[0])))); + fRec52[0] = (fRec52[1] + fRec48[1]); + fRec48[0] = (fSlow14 * (fRec49[0] - (fSlow18 * fRec52[0]))); + double fTemp29 = (fRec48[0] + (fSlow4 * fTemp28)); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph12 = FAUSTFLOAT(fRec47[0]); + double fTemp30 = (fRec1[0] * ((((fConst15 * fTemp24) + (0.047619047619047623 * ((fTemp0 + fTemp25) + (fConst27 * fTemp27)))) + (fConst23 * fTemp29)) - fTemp21)); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph13 = FAUSTFLOAT(fRec37[0]); + output2[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fRec1[0] * ((fTemp16 + (0.047619047619047623 * (((fTemp0 + (fConst28 * fTemp13)) + (fConst29 * fTemp18)) + (fConst27 * fTemp20)))) - fTemp21)); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph14 = FAUSTFLOAT(fRec53[0]); + output3[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fRec1[0] * (((fConst25 * fTemp27) + (0.047619047619047623 * ((fTemp25 + (fTemp0 + (fConst28 * fTemp24))) + (fConst29 * fTemp29)))) - fTemp21)); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph15 = FAUSTFLOAT(fRec54[0]); + output4[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fRec1[0] * ((fTemp1 + fTemp7) - (fTemp4 + fTemp10))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph16 = FAUSTFLOAT(fRec55[0]); + output5[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fRec3[0] * double(input14[i])); + fRec60[0] = (fRec60[1] + fRec59[1]); + fRec61[0] = (fRec61[1] + fRec60[1]); + fRec59[0] = (fSlow15 * ((fSlow3 * fTemp34) - ((fSlow17 * fRec60[0]) + (fSlow16 * fRec61[0])))); + fRec62[0] = (fRec62[1] + fRec58[1]); + fRec58[0] = (fSlow14 * (fRec59[0] - (fSlow18 * fRec62[0]))); + double fTemp35 = (fRec58[0] + (fSlow4 * fTemp34)); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph17 = FAUSTFLOAT(fRec57[0]); + double fTemp36 = (fConst16 * ((fConst30 * fTemp15) + (fConst33 * fTemp35))); + double fTemp37 = (fRec3[0] * double(input7[i])); + fRec65[0] = (fRec65[1] + fRec64[1]); + fRec66[0] = (fRec66[1] + fRec65[1]); + fRec64[0] = (fSlow11 * ((fSlow3 * fTemp37) - ((fSlow13 * fRec65[0]) + (fSlow12 * fRec66[0])))); + double fTemp38 = (fRec64[0] + (fSlow4 * fTemp37)); + fRec63[0] = max((fRec63[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph18 = FAUSTFLOAT(fRec63[0]); + double fTemp39 = (0.038095238095238099 * fTemp0); + double fTemp40 = (0.046656947481584346 * fTemp3); + double fTemp41 = (0.021295885499997991 * fTemp6); + double fTemp42 = (fConst38 * fTemp20); + double fTemp43 = (0.017817416127494972 * fTemp9); + double fTemp44 = (fRec1[0] * ((fTemp36 + ((fConst10 * (((fConst34 * fTemp13) + (fConst36 * fTemp38)) + (fConst37 * fTemp18))) + (((fTemp39 + fTemp40) + fTemp41) + fTemp42))) - fTemp43)); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph19 = FAUSTFLOAT(fRec56[0]); + output6[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (fConst39 * fTemp15); + double fTemp46 = ((fTemp0 + fTemp45) + (fConst40 * fTemp27)); + double fTemp47 = (fConst42 * fTemp35); + double fTemp48 = (fTemp40 + fTemp41); + double fTemp49 = (fRec3[0] * double(input5[i])); + fRec70[0] = (fRec70[1] + fRec69[1]); + fRec71[0] = (fRec71[1] + fRec70[1]); + fRec69[0] = (fSlow11 * ((fSlow3 * fTemp49) - ((fSlow13 * fRec70[0]) + (fSlow12 * fRec71[0])))); + double fTemp50 = (fRec69[0] + (fSlow4 * fTemp49)); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph20 = FAUSTFLOAT(fRec68[0]); + double fTemp51 = (fRec1[0] * (((0.038095238095238099 * (fTemp46 + fTemp47)) + (fTemp48 + (fConst10 * (((fConst34 * fTemp24) + (fConst36 * fTemp50)) + (fConst37 * fTemp29))))) - fTemp43)); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph21 = FAUSTFLOAT(fRec67[0]); + output7[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (fTemp0 + (fConst43 * fTemp13)); + double fTemp53 = (fConst40 * fTemp20); + double fTemp54 = (fRec1[0] * (((fTemp36 + fTemp48) + (0.038095238095238099 * (((fTemp52 + (fConst45 * fTemp38)) + (fConst47 * fTemp18)) + fTemp53))) - fTemp43)); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph22 = FAUSTFLOAT(fRec72[0]); + output8[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (fConst38 * fTemp27); + double fTemp56 = (fTemp0 + (fConst43 * fTemp24)); + double fTemp57 = (fRec1[0] * (((fTemp48 + fTemp55) + (0.038095238095238099 * (fTemp47 + ((fTemp45 + (fTemp56 + (fConst45 * fTemp50))) + (fConst47 * fTemp29))))) - fTemp43)); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph23 = FAUSTFLOAT(fRec73[0]); + output9[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (fRec3[0] * double(input4[i])); + fRec77[0] = (fRec77[1] + fRec76[1]); + fRec78[0] = (fRec78[1] + fRec77[1]); + fRec76[0] = (fSlow11 * ((fSlow3 * fTemp58) - ((fSlow13 * fRec77[0]) + (fSlow12 * fRec78[0])))); + double fTemp59 = (fRec76[0] + (fSlow4 * fTemp58)); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph24 = FAUSTFLOAT(fRec75[0]); + double fTemp60 = (0.042591770999995997 * fTemp6); + double fTemp61 = (fRec1[0] * (((0.038095238095238099 * (fTemp0 + (fConst48 * fTemp20))) + ((fConst22 * ((0.019047619047619053 * fTemp18) + (0.019047619047619049 * fTemp29))) + ((fConst19 * ((2.6996718031124477e-17 * fTemp15) + (0.12158240926519855 * fTemp59))) + ((fConst14 * ((0.042985873032210013 * fTemp13) + (0.042985873032210006 * fTemp24))) + (fConst49 * fTemp27))))) - fTemp60)); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph25 = FAUSTFLOAT(fRec74[0]); + output10[i] = FAUSTFLOAT(fTemp61); + double fTemp62 = (fConst50 * fTemp24); + double fTemp63 = (fConst26 * fTemp59); + double fTemp64 = (fRec1[0] * (((fConst24 * ((0.17194349212884008 * fTemp20) + (0.17194349212883997 * fTemp27))) + ((fTemp62 + (fConst51 * fTemp29)) + (0.038095238095238099 * ((((fTemp0 + (fConst52 * fTemp13)) + fTemp63) + (fConst53 * fTemp15)) + (fConst54 * fTemp18))))) - fTemp60)); + fRec79[0] = max((fRec79[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph26 = FAUSTFLOAT(fRec79[0]); + output11[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fRec1[0] * (((0.038095238095238099 * (((((fTemp0 + (fConst52 * fTemp24)) + (fConst55 * fTemp13)) + (fConst56 * fTemp27)) + (fConst54 * fTemp29)) + (fConst57 * fTemp18))) + ((fConst19 * ((5.3993436062248954e-17 * fTemp15) + (0.12158240926519859 * fTemp59))) + (fConst58 * fTemp20))) - fTemp60)); + fRec80[0] = max((fRec80[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph27 = FAUSTFLOAT(fRec80[0]); + output12[i] = FAUSTFLOAT(fTemp65); + double fTemp66 = (fRec1[0] * ((((fConst59 * fTemp13) + (fConst60 * fTemp18)) + (0.038095238095238099 * (((((fTemp63 + (fTemp0 + (fConst55 * fTemp24))) + (fConst61 * fTemp15)) + (fConst62 * fTemp27)) + (fConst57 * fTemp29)) + (fConst63 * fTemp20)))) - fTemp60)); + fRec81[0] = max((fRec81[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph28 = FAUSTFLOAT(fRec81[0]); + output13[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = (fConst69 * fTemp15); + double fTemp68 = (fRec1[0] * (((0.053874802376117914 * ((fConst65 * fTemp38) + (fConst66 * fTemp35))) + ((fConst68 * fTemp18) + (fTemp42 + (fTemp67 + ((fConst50 * fTemp13) + (fTemp43 + (fTemp39 + fTemp41))))))) - fTemp40)); + fRec82[0] = max((fRec82[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph29 = FAUSTFLOAT(fRec82[0]); + output14[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = (fConst70 * fTemp35); + double fTemp70 = (fTemp41 + fTemp43); + double fTemp71 = (fRec1[0] * (((0.038095238095238099 * (fTemp46 + fTemp69)) + ((fConst68 * fTemp29) + ((fConst71 * fTemp50) + (fTemp62 + fTemp70)))) - fTemp40)); + fRec83[0] = max((fRec83[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph30 = FAUSTFLOAT(fRec83[0]); + output15[i] = FAUSTFLOAT(fTemp71); + double fTemp72 = (fRec1[0] * ((((fConst72 * fTemp35) + (fTemp67 + fTemp70)) + (0.038095238095238099 * (fTemp53 + ((fTemp52 + (fConst73 * fTemp38)) + (fConst74 * fTemp18))))) - fTemp40)); + fRec84[0] = max((fRec84[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph31 = FAUSTFLOAT(fRec84[0]); + output16[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = (fRec1[0] * (((fTemp55 + fTemp70) + (0.038095238095238099 * (fTemp69 + ((fTemp45 + (fTemp56 + (fConst73 * fTemp50))) + (fConst74 * fTemp29))))) - fTemp40)); + fRec85[0] = max((fRec85[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph32 = FAUSTFLOAT(fRec85[0]); + output17[i] = FAUSTFLOAT(fTemp73); + double fTemp74 = (fTemp0 + fTemp3); + double fTemp75 = (fConst75 * fTemp20); + double fTemp76 = ((1.518565389250751e-17 * fTemp15) + (0.068390105211674143 * fTemp59)); + double fTemp77 = (fRec3[0] * double(input10[i])); + fRec90[0] = (fRec90[1] + fRec89[1]); + fRec91[0] = (fRec91[1] + fRec90[1]); + fRec89[0] = (fSlow15 * ((fSlow3 * fTemp77) - ((fSlow17 * fRec90[0]) + (fSlow16 * fRec91[0])))); + fRec92[0] = (fRec92[1] + fRec88[1]); + fRec88[0] = (fSlow14 * (fRec89[0] - (fSlow18 * fRec92[0]))); + double fTemp78 = (fRec88[0] + (fSlow4 * fTemp77)); + fRec87[0] = max((fRec87[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph33 = FAUSTFLOAT(fRec87[0]); + double fTemp79 = (7.9795740640090912e-18 * fTemp6); + double fTemp80 = (fConst78 * fTemp27); + double fTemp81 = ((0.02961378424040018 * fTemp13) + (0.029613784240400176 * fTemp24)); + double fTemp82 = (0.032732683535398849 * fTemp9); + double fTemp83 = (fRec1[0] * (((0.03214285714285714 * (fTemp74 + fTemp75)) + ((fConst16 * (((fConst18 * fTemp76) + (fConst76 * fTemp78)) + (fConst77 * fTemp35))) + ((fTemp79 + fTemp80) + (fConst10 * (((((fConst13 * fTemp81) + (fConst79 * fTemp50)) + (fConst80 * fTemp38)) + (fConst81 * fTemp29)) + (fConst82 * fTemp18)))))) - fTemp82)); + fRec86[0] = max((fRec86[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph34 = FAUSTFLOAT(fRec86[0]); + output18[i] = FAUSTFLOAT(fTemp83); + double fTemp84 = (fConst24 * ((0.078970091307733831 * fTemp20) + (0.078970091307733761 * fTemp27))); + double fTemp85 = (fConst83 * fTemp13); + double fTemp86 = (fConst84 * fTemp59); + double fTemp87 = (fConst86 * fTemp15); + double fTemp88 = (fConst87 * fTemp78); + double fTemp89 = (fRec1[0] * ((fTemp84 + ((0.03214285714285714 * (((((((fTemp74 + fTemp85) + fTemp86) + (fConst85 * fTemp38)) + fTemp87) + fTemp88) + (fConst88 * fTemp18)) + (fConst89 * fTemp35))) + (fTemp79 + (fConst10 * (((fConst90 * fTemp24) + (fConst80 * fTemp50)) + (fConst82 * fTemp29)))))) - fTemp82)); + fRec93[0] = max((fRec93[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph35 = FAUSTFLOAT(fRec93[0]); + output19[i] = FAUSTFLOAT(fTemp89); + double fTemp90 = ((3.037130778501502e-17 * fTemp15) + (0.068390105211674157 * fTemp59)); + double fTemp91 = (fTemp0 + (fConst83 * fTemp24)); + double fTemp92 = (fConst93 * fTemp13); + double fTemp93 = (fConst95 * fTemp27); + double fTemp94 = (fConst97 * fTemp20); + double fTemp95 = (fRec1[0] * (((fConst16 * (((fConst18 * fTemp90) + (fConst91 * fTemp78)) + (fConst92 * fTemp35))) + ((0.03214285714285714 * (((((((fTemp3 + fTemp91) + fTemp92) + (fConst85 * fTemp50)) + (fConst94 * fTemp38)) + fTemp93) + (fConst88 * fTemp29)) + (fConst96 * fTemp18))) + (fTemp79 + fTemp94))) - fTemp82)); + fRec94[0] = max((fRec94[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph36 = FAUSTFLOAT(fRec94[0]); + output20[i] = FAUSTFLOAT(fTemp95); + double fTemp96 = (fTemp0 + (fConst93 * fTemp24)); + double fTemp97 = (fConst101 * fTemp15); + double fTemp98 = (fConst102 * fTemp27); + double fTemp99 = (fConst104 * fTemp20); + double fTemp100 = (fRec1[0] * (((fTemp79 + (fConst10 * (((fConst98 * fTemp13) + (fConst99 * fTemp38)) + (fConst100 * fTemp18)))) + (0.03214285714285714 * ((((fTemp88 + ((((fTemp86 + (fTemp3 + fTemp96)) + (fConst94 * fTemp50)) + fTemp97) + fTemp98)) + (fConst96 * fTemp29)) + (fConst103 * fTemp35)) + fTemp99))) - fTemp82)); + fRec95[0] = max((fRec95[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph37 = FAUSTFLOAT(fRec95[0]); + output21[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = (fTemp0 - fTemp3); + double fTemp102 = (fTemp79 + fTemp82); + double fTemp103 = (fRec1[0] * ((0.03214285714285714 * (fTemp75 + (fTemp101 + (fConst106 * fTemp50)))) + ((fConst107 * ((1.0093451520109982e-17 * fTemp35) + (0.045456864504849481 * fTemp78))) + ((fConst108 * ((0.016071428571428573 * fTemp18) + (0.01607142857142857 * fTemp29))) + ((fConst109 * fTemp38) + ((fConst19 * fTemp76) + ((fConst14 * fTemp81) + (fTemp80 + fTemp102)))))))); + fRec96[0] = max((fRec96[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph38 = FAUSTFLOAT(fRec96[0]); + output22[i] = FAUSTFLOAT(fTemp103); + double fTemp104 = (fConst111 * fTemp78); + double fTemp105 = (fRec1[0] * ((0.03214285714285714 * ((((fTemp87 + ((fTemp86 + (fTemp85 + fTemp101)) + (fConst110 * fTemp38))) + fTemp104) + (fConst112 * fTemp18)) + (fConst113 * fTemp35))) + ((fConst114 * fTemp29) + ((fConst109 * fTemp50) + (fTemp84 + ((fConst115 * fTemp24) + fTemp102)))))); + fRec97[0] = max((fRec97[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph39 = FAUSTFLOAT(fRec97[0]); + output23[i] = FAUSTFLOAT(fTemp105); + double fTemp106 = (fRec1[0] * ((fConst107 * ((2.0186903040219964e-17 * fTemp35) + (0.045456864504849488 * fTemp78))) + ((0.03214285714285714 * (((fTemp93 + (((fTemp92 - (fTemp3 - fTemp91)) + (fConst110 * fTemp50)) + (fConst116 * fTemp38))) + (fConst112 * fTemp29)) + (fConst117 * fTemp18))) + ((fConst19 * fTemp90) + (fTemp94 + fTemp102))))); + fRec98[0] = max((fRec98[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph40 = FAUSTFLOAT(fRec98[0]); + output24[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = (fRec1[0] * ((((fConst118 * fTemp38) + ((fConst119 * fTemp13) + fTemp102)) + (fConst120 * fTemp18)) + (0.03214285714285714 * (fTemp99 + (((fTemp104 + (fTemp98 + (fTemp97 + ((fTemp86 - (fTemp3 - fTemp96)) + (fConst116 * fTemp50))))) + (fConst117 * fTemp29)) + (fConst121 * fTemp35)))))); + fRec99[0] = max((fRec99[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph41 = FAUSTFLOAT(fRec99[0]); + output25[i] = FAUSTFLOAT(fTemp107); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec13[1] = fRec13[0]; + fRec16[1] = fRec16[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec0[1] = fRec0[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec22[1] = fRec22[0]; + fRec21[1] = fRec21[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec27[1] = fRec27[0]; + fRec30[1] = fRec30[0]; + fRec26[1] = fRec26[0]; + fRec25[1] = fRec25[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec33[1] = fRec33[0]; + fRec36[1] = fRec36[0]; + fRec32[1] = fRec32[0]; + fRec31[1] = fRec31[0]; + fRec17[1] = fRec17[0]; + fRec40[1] = fRec40[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec43[1] = fRec43[0]; + fRec46[1] = fRec46[0]; + fRec42[1] = fRec42[0]; + fRec41[1] = fRec41[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec49[1] = fRec49[0]; + fRec52[1] = fRec52[0]; + fRec48[1] = fRec48[0]; + fRec47[1] = fRec47[0]; + fRec37[1] = fRec37[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec59[1] = fRec59[0]; + fRec62[1] = fRec62[0]; + fRec58[1] = fRec58[0]; + fRec57[1] = fRec57[0]; + fRec65[1] = fRec65[0]; + fRec66[1] = fRec66[0]; + fRec64[1] = fRec64[0]; + fRec63[1] = fRec63[0]; + fRec56[1] = fRec56[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec67[1] = fRec67[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec77[1] = fRec77[0]; + fRec78[1] = fRec78[0]; + fRec76[1] = fRec76[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec79[1] = fRec79[0]; + fRec80[1] = fRec80[0]; + fRec81[1] = fRec81[0]; + fRec82[1] = fRec82[0]; + fRec83[1] = fRec83[0]; + fRec84[1] = fRec84[0]; + fRec85[1] = fRec85[0]; + fRec90[1] = fRec90[0]; + fRec91[1] = fRec91[0]; + fRec89[1] = fRec89[0]; + fRec92[1] = fRec92[0]; + fRec88[1] = fRec88[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec93[1] = fRec93[0]; + fRec94[1] = fRec94[0]; + fRec95[1] = fRec95[0]; + fRec96[1] = fRec96[0]; + fRec97[1] = fRec97[0]; + fRec98[1] = fRec98[0]; + fRec99[1] = fRec99[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev501.cpp b/source/HOAUGens/HOADecLebedev501.cpp new file mode 100644 index 0000000000..bf399ca356 --- /dev/null +++ b/source/HOAUGens/HOADecLebedev501.cpp @@ -0,0 +1,2426 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev501" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fRec0[2]; + FAUSTFLOAT fVbargraph2; + double fConst4; + double fConst5; + double fRec10[2]; + double fRec9[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph3; + double fRec7[2]; + FAUSTFLOAT fVbargraph4; + double fRec14[2]; + double fRec13[2]; + double fRec12[2]; + FAUSTFLOAT fVbargraph5; + double fRec11[2]; + FAUSTFLOAT fVbargraph6; + double fConst6; + double fRec15[2]; + FAUSTFLOAT fVbargraph7; + double fRec16[2]; + FAUSTFLOAT fVbargraph8; + double fRec17[2]; + FAUSTFLOAT fVbargraph9; + double fConst7; + double fRec18[2]; + FAUSTFLOAT fVbargraph10; + double fRec19[2]; + FAUSTFLOAT fVbargraph11; + double fConst8; + double fRec20[2]; + FAUSTFLOAT fVbargraph12; + double fRec21[2]; + FAUSTFLOAT fVbargraph13; + double fRec22[2]; + FAUSTFLOAT fVbargraph14; + double fConst9; + double fRec23[2]; + FAUSTFLOAT fVbargraph15; + double fConst10; + double fRec24[2]; + FAUSTFLOAT fVbargraph16; + double fConst11; + double fRec25[2]; + FAUSTFLOAT fVbargraph17; + double fRec26[2]; + FAUSTFLOAT fVbargraph18; + double fRec27[2]; + FAUSTFLOAT fVbargraph19; + double fRec28[2]; + FAUSTFLOAT fVbargraph20; + double fRec29[2]; + FAUSTFLOAT fVbargraph21; + double fRec30[2]; + FAUSTFLOAT fVbargraph22; + double fConst12; + double fConst13; + double fRec31[2]; + FAUSTFLOAT fVbargraph23; + double fConst14; + double fRec32[2]; + FAUSTFLOAT fVbargraph24; + double fConst15; + double fRec33[2]; + FAUSTFLOAT fVbargraph25; + double fRec34[2]; + FAUSTFLOAT fVbargraph26; + double fRec35[2]; + FAUSTFLOAT fVbargraph27; + double fRec36[2]; + FAUSTFLOAT fVbargraph28; + double fRec37[2]; + FAUSTFLOAT fVbargraph29; + double fRec38[2]; + FAUSTFLOAT fVbargraph30; + double fConst16; + double fConst17; + double fRec39[2]; + FAUSTFLOAT fVbargraph31; + double fConst18; + double fRec40[2]; + FAUSTFLOAT fVbargraph32; + double fConst19; + double fRec41[2]; + FAUSTFLOAT fVbargraph33; + double fRec42[2]; + FAUSTFLOAT fVbargraph34; + double fRec43[2]; + FAUSTFLOAT fVbargraph35; + double fConst20; + double fConst21; + double fRec44[2]; + FAUSTFLOAT fVbargraph36; + double fConst22; + double fConst23; + double fRec45[2]; + FAUSTFLOAT fVbargraph37; + double fConst24; + double fConst25; + double fRec46[2]; + FAUSTFLOAT fVbargraph38; + double fConst26; + double fRec47[2]; + FAUSTFLOAT fVbargraph39; + double fConst27; + double fConst28; + double fRec48[2]; + FAUSTFLOAT fVbargraph40; + double fConst29; + double fConst30; + double fRec49[2]; + FAUSTFLOAT fVbargraph41; + double fRec50[2]; + FAUSTFLOAT fVbargraph42; + double fRec51[2]; + FAUSTFLOAT fVbargraph43; + double fRec52[2]; + FAUSTFLOAT fVbargraph44; + double fRec53[2]; + FAUSTFLOAT fVbargraph45; + double fRec54[2]; + FAUSTFLOAT fVbargraph46; + double fRec55[2]; + FAUSTFLOAT fVbargraph47; + double fRec56[2]; + FAUSTFLOAT fVbargraph48; + double fRec57[2]; + FAUSTFLOAT fVbargraph49; + double fRec58[2]; + FAUSTFLOAT fVbargraph50; + double fRec59[2]; + FAUSTFLOAT fVbargraph51; + double fRec60[2]; + FAUSTFLOAT fVbargraph52; + double fRec61[2]; + FAUSTFLOAT fVbargraph53; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev501"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (double(tgamma(1.5)) * sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0)))))); + fConst5 = (0.02026373487753309 * fConst4); + fConst6 = (0.0 - (1.5957691216057308 * fConst4)); + fConst7 = (0.025473109945013343 * fConst4); + fConst8 = (0.0 - (1.1283791670955128 * fConst4)); + fConst9 = (0.0 - (1.1283791670955126 * fConst4)); + fConst10 = (0.0 - (1.128379167095513 * fConst4)); + fConst11 = (0.025473109945013332 * fConst4); + fConst12 = (0.019434045907762623 * fConst4); + fConst13 = (0.0 - (0.92131773192356115 * fConst4)); + fConst14 = (0.0 - (0.92131773192356148 * fConst4)); + fConst15 = (0.019434045907762616 * fConst4); + fConst16 = (0.0 - (0.48114249349102017 * fConst4)); + fConst17 = (0.0097062489627452973 * fConst4); + fConst18 = (0.0 - (0.48114249349102034 * fConst4)); + fConst19 = (0.0097062489627452939 * fConst4); + fConst20 = (0.0 - (0.48114249349102062 * fConst4)); + fConst21 = (0.029118746888235927 * fConst4); + fConst22 = (0.0 - (1.443427480473062 * fConst4)); + fConst23 = (0.0097062489627453216 * fConst4); + fConst24 = (0.0 - (0.48114249349102112 * fConst4)); + fConst25 = (0.0 - (1.4434274804730622 * fConst4)); + fConst26 = (0.0 - (0.48114249349102095 * fConst4)); + fConst27 = (0.0 - (1.4434274804730625 * fConst4)); + fConst28 = (0.0097062489627453008 * fConst4); + fConst29 = (0.0 - (0.48114249349102228 * fConst4)); + fConst30 = (0.029118746888235913 * fConst4); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec0[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec8[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec7[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec14[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec11[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec18[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec19[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec20[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec38[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec39[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec41[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec42[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec43[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec44[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec45[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec46[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec47[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec48[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec49[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec50[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec51[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec52[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec56[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec57[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec58[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec59[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec60[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec61[l61] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev501"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39641e0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398e180", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x396f300", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x397ffe0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph2, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39741c0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph4, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3984c90", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph6, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3992b90", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph7, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39986e0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph8, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x399dbe0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph9, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39a2e00", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph10, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39a9b10", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph11, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39af2e0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph12, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39b5840", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph13, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39bb590", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph14, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c1560", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph15, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c7b50", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph16, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ce400", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph17, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d4b50", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph18, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39da740", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph19, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e0400", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph20, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e5fc0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph21, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39ebc60", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph22, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f2eb0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph23, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39fa680", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph24, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a01c30", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph25, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a09080", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph26, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a0f750", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph27, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a15cf0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph28, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a1c370", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph29, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a22ad0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph30, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a295c0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph31, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a30170", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph32, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a36710", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph33, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a3cd60", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph34, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a43740", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph35, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a49850", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph36, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a50a30", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph37, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a57cf0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph38, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a5f0c0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph39, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a65c80", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph40, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a6d1e0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph41, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a74820", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph42, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a7a400", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph43, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a800c0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph44, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a85e60", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph45, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a8bce0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph46, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a91a60", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph47, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a978c0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph48, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a9d9e0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph49, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa3be0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph50, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa9ec0", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph51, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab0280", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph52, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ab6540", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph53, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3abcac0", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (1.0 / ((fConst2 / fSlow2) + 1.0)); + double fSlow8 = (fConst3 / fSlow2); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.012698412698412698 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow7 * ((fSlow3 * fTemp2) - (fSlow8 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.021994295969128601 * fTemp3); + double fTemp5 = (fRec1[0] * (fTemp1 + fTemp4)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fRec3[0] * double(input3[i])); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec9[0] = (fSlow7 * ((fSlow3 * fTemp6) - (fSlow8 * fRec10[0]))); + double fTemp7 = (fRec9[0] + (fSlow4 * fTemp6)); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph3 = FAUSTFLOAT(fRec8[0]); + double fTemp8 = (fRec1[0] * (fTemp1 + (fConst5 * fTemp7))); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph4 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (fRec3[0] * double(input1[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec13[0] = (fSlow7 * ((fSlow3 * fTemp9) - (fSlow8 * fRec14[0]))); + double fTemp10 = (fRec13[0] + (fSlow4 * fTemp9)); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = (fRec1[0] * (fTemp1 + (fConst5 * fTemp10))); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec11[0]); + output2[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.012698412698412698 * (fRec1[0] * (fTemp0 + (fConst6 * fTemp7)))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec15[0]); + output3[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.012698412698412698 * (fRec1[0] * (fTemp0 + (fConst6 * fTemp10)))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec16[0]); + output4[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (fRec1[0] * (fTemp1 - fTemp4)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph9 = FAUSTFLOAT(fRec17[0]); + output5[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.022574955908289243 * fTemp0); + double fTemp16 = (0.027648561470568499 * fTemp3); + double fTemp17 = (fTemp15 + fTemp16); + double fTemp18 = (fConst7 * fTemp7); + double fTemp19 = (fRec1[0] * (fTemp17 + fTemp18)); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph10 = FAUSTFLOAT(fRec18[0]); + output6[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fConst7 * fTemp10); + double fTemp21 = (fRec1[0] * (fTemp17 + fTemp20)); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph11 = FAUSTFLOAT(fRec19[0]); + output7[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.022574955908289243 * (fTemp0 + (fConst8 * fTemp7))); + double fTemp23 = (fRec1[0] * (fTemp16 + fTemp22)); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph12 = FAUSTFLOAT(fRec20[0]); + output8[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.022574955908289243 * (fTemp0 + (fConst8 * fTemp10))); + double fTemp25 = (fRec1[0] * (fTemp16 + fTemp24)); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph13 = FAUSTFLOAT(fRec21[0]); + output9[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (fRec1[0] * (fTemp15 + (fConst4 * ((0.025473109945013343 * fTemp7) + (0.025473109945013336 * fTemp10))))); + fRec22[0] = max((fRec22[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph14 = FAUSTFLOAT(fRec22[0]); + output10[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (fRec1[0] * (fTemp20 + (0.022574955908289243 * (fTemp0 + (fConst9 * fTemp7))))); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph15 = FAUSTFLOAT(fRec23[0]); + output11[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.022574955908289243 * (fRec1[0] * ((fTemp0 + (fConst9 * fTemp10)) + (fConst10 * fTemp7)))); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph16 = FAUSTFLOAT(fRec24[0]); + output12[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (fRec1[0] * ((0.022574955908289243 * (fTemp0 + (fConst10 * fTemp10))) + (fConst11 * fTemp7))); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph17 = FAUSTFLOAT(fRec25[0]); + output13[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fRec1[0] * ((fTemp15 + fTemp18) - fTemp16)); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph18 = FAUSTFLOAT(fRec26[0]); + output14[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fRec1[0] * ((fTemp15 + fTemp20) - fTemp16)); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph19 = FAUSTFLOAT(fRec27[0]); + output15[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fRec1[0] * (fTemp22 - fTemp16)); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph20 = FAUSTFLOAT(fRec28[0]); + output16[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fRec1[0] * (fTemp24 - fTemp16)); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph21 = FAUSTFLOAT(fRec29[0]); + output17[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fTemp0 + fTemp3); + double fTemp35 = (fConst4 * ((0.019434045907762623 * fTemp7) + (0.019434045907762619 * fTemp10))); + double fTemp36 = (fRec1[0] * ((0.021093750000000001 * fTemp34) + fTemp35)); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph22 = FAUSTFLOAT(fRec30[0]); + output18[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (fConst12 * fTemp10); + double fTemp38 = (fConst13 * fTemp7); + double fTemp39 = (fRec1[0] * (fTemp37 + (0.021093750000000001 * (fTemp34 + fTemp38)))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph23 = FAUSTFLOAT(fRec31[0]); + output19[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fTemp0 + (fConst13 * fTemp10)); + double fTemp41 = (fConst14 * fTemp7); + double fTemp42 = (0.021093750000000001 * (fRec1[0] * ((fTemp3 + fTemp40) + fTemp41))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph24 = FAUSTFLOAT(fRec32[0]); + output20[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (fTemp0 + (fConst14 * fTemp10)); + double fTemp44 = (fConst15 * fTemp7); + double fTemp45 = (fRec1[0] * ((0.021093750000000001 * (fTemp3 + fTemp43)) + fTemp44)); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph25 = FAUSTFLOAT(fRec33[0]); + output21[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (fTemp0 - fTemp3); + double fTemp47 = (fRec1[0] * (fTemp35 + (0.021093750000000001 * fTemp46))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph26 = FAUSTFLOAT(fRec34[0]); + output22[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (fRec1[0] * (fTemp37 + (0.021093750000000001 * (fTemp38 + fTemp46)))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph27 = FAUSTFLOAT(fRec35[0]); + output23[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.021093750000000001 * (fRec1[0] * (fTemp41 - (fTemp3 - fTemp40)))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph28 = FAUSTFLOAT(fRec36[0]); + output24[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (fRec1[0] * (fTemp44 - (0.021093750000000001 * (fTemp3 - fTemp43)))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph29 = FAUSTFLOAT(fRec37[0]); + output25[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (0.02017333553791887 * fTemp0); + double fTemp52 = (0.031605542669238249 * fTemp3); + double fTemp53 = (fConst4 * ((0.0097062489627452956 * fTemp7) + (0.0097062489627452973 * fTemp10))); + double fTemp54 = (fRec1[0] * ((fTemp51 + fTemp52) + fTemp53)); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph30 = FAUSTFLOAT(fRec38[0]); + output26[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (0.02017333553791887 * (fTemp0 + (fConst16 * fTemp7))); + double fTemp56 = (fConst17 * fTemp10); + double fTemp57 = (fRec1[0] * (fTemp55 + (fTemp56 + fTemp52))); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph31 = FAUSTFLOAT(fRec39[0]); + output27[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (0.02017333553791887 * ((fTemp0 + (fConst16 * fTemp10)) + (fConst18 * fTemp7))); + double fTemp59 = (fRec1[0] * (fTemp52 + fTemp58)); + fRec40[0] = max((fRec40[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph32 = FAUSTFLOAT(fRec40[0]); + output28[i] = FAUSTFLOAT(fTemp59); + double fTemp60 = (0.02017333553791887 * (fTemp0 + (fConst18 * fTemp10))); + double fTemp61 = (fConst19 * fTemp7); + double fTemp62 = (fRec1[0] * (fTemp60 + (fTemp52 + fTemp61))); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph33 = FAUSTFLOAT(fRec41[0]); + output29[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = (0.010535180889746075 * fTemp3); + double fTemp64 = (fTemp51 + fTemp63); + double fTemp65 = (fConst4 * ((0.029118746888235916 * fTemp7) + (0.0097062489627453199 * fTemp10))); + double fTemp66 = (fRec1[0] * (fTemp64 + fTemp65)); + fRec42[0] = max((fRec42[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph34 = FAUSTFLOAT(fRec42[0]); + output30[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = (fConst4 * ((0.0097062489627453077 * fTemp7) + (0.029118746888235923 * fTemp10))); + double fTemp68 = (fRec1[0] * (fTemp64 + fTemp67)); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph35 = FAUSTFLOAT(fRec43[0]); + output31[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = (0.02017333553791887 * (fTemp0 + (fConst20 * fTemp7))); + double fTemp70 = (fConst21 * fTemp10); + double fTemp71 = (fRec1[0] * (fTemp69 + (fTemp63 + fTemp70))); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph36 = FAUSTFLOAT(fRec44[0]); + output32[i] = FAUSTFLOAT(fTemp71); + double fTemp72 = (0.02017333553791887 * (fTemp0 + (fConst22 * fTemp7))); + double fTemp73 = (fConst23 * fTemp10); + double fTemp74 = (fRec1[0] * (fTemp72 + (fTemp63 + fTemp73))); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph37 = FAUSTFLOAT(fRec45[0]); + output33[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = (0.02017333553791887 * ((fTemp0 + (fConst24 * fTemp10)) + (fConst25 * fTemp7))); + double fTemp76 = (fRec1[0] * (fTemp63 + fTemp75)); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph38 = FAUSTFLOAT(fRec46[0]); + output34[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = (0.02017333553791887 * ((fTemp0 + (fConst25 * fTemp10)) + (fConst26 * fTemp7))); + double fTemp78 = (fRec1[0] * (fTemp63 + fTemp77)); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph39 = FAUSTFLOAT(fRec47[0]); + output35[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = (0.02017333553791887 * (fTemp0 + (fConst27 * fTemp10))); + double fTemp80 = (fConst28 * fTemp7); + double fTemp81 = (fRec1[0] * (fTemp79 + (fTemp63 + fTemp80))); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp81)))))); + fVbargraph40 = FAUSTFLOAT(fRec48[0]); + output36[i] = FAUSTFLOAT(fTemp81); + double fTemp82 = (0.02017333553791887 * (fTemp0 + (fConst29 * fTemp10))); + double fTemp83 = (fConst30 * fTemp7); + double fTemp84 = (fRec1[0] * (fTemp82 + (fTemp63 + fTemp83))); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph41 = FAUSTFLOAT(fRec49[0]); + output37[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = (fRec1[0] * ((fTemp51 + fTemp65) - fTemp63)); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph42 = FAUSTFLOAT(fRec50[0]); + output38[i] = FAUSTFLOAT(fTemp85); + double fTemp86 = (fRec1[0] * ((fTemp51 + fTemp67) - fTemp63)); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph43 = FAUSTFLOAT(fRec51[0]); + output39[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = (fRec1[0] * ((fTemp70 + fTemp69) - fTemp63)); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph44 = FAUSTFLOAT(fRec52[0]); + output40[i] = FAUSTFLOAT(fTemp87); + double fTemp88 = (fRec1[0] * ((fTemp73 + fTemp72) - fTemp63)); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph45 = FAUSTFLOAT(fRec53[0]); + output41[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = (fRec1[0] * (fTemp75 - fTemp63)); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph46 = FAUSTFLOAT(fRec54[0]); + output42[i] = FAUSTFLOAT(fTemp89); + double fTemp90 = (fRec1[0] * (fTemp77 - fTemp63)); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph47 = FAUSTFLOAT(fRec55[0]); + output43[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = (fRec1[0] * ((fTemp79 + fTemp80) - fTemp63)); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph48 = FAUSTFLOAT(fRec56[0]); + output44[i] = FAUSTFLOAT(fTemp91); + double fTemp92 = (fRec1[0] * ((fTemp82 + fTemp83) - fTemp63)); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph49 = FAUSTFLOAT(fRec57[0]); + output45[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = (fRec1[0] * ((fTemp51 + fTemp53) - fTemp52)); + fRec58[0] = max((fRec58[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph50 = FAUSTFLOAT(fRec58[0]); + output46[i] = FAUSTFLOAT(fTemp93); + double fTemp94 = (fRec1[0] * ((fTemp56 + fTemp55) - fTemp52)); + fRec59[0] = max((fRec59[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph51 = FAUSTFLOAT(fRec59[0]); + output47[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = (fRec1[0] * (fTemp58 - fTemp52)); + fRec60[0] = max((fRec60[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph52 = FAUSTFLOAT(fRec60[0]); + output48[i] = FAUSTFLOAT(fTemp95); + double fTemp96 = (fRec1[0] * ((fTemp60 + fTemp61) - fTemp52)); + fRec61[0] = max((fRec61[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph53 = FAUSTFLOAT(fRec61[0]); + output49[i] = FAUSTFLOAT(fTemp96); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec0[1] = fRec0[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec58[1] = fRec58[0]; + fRec59[1] = fRec59[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev502.cpp b/source/HOAUGens/HOADecLebedev502.cpp new file mode 100644 index 0000000000..94cbd48eb8 --- /dev/null +++ b/source/HOAUGens/HOADecLebedev502.cpp @@ -0,0 +1,2856 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev502" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + FAUSTFLOAT fVbargraph2; + double fRec0[2]; + FAUSTFLOAT fVbargraph3; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fRec14[2]; + double fRec13[2]; + double fRec12[2]; + FAUSTFLOAT fVbargraph4; + double fConst11; + double fConst12; + double fRec17[2]; + double fRec18[2]; + double fRec16[2]; + double fRec15[2]; + FAUSTFLOAT fVbargraph5; + double fRec11[2]; + FAUSTFLOAT fVbargraph6; + double fRec22[2]; + double fRec21[2]; + double fRec20[2]; + FAUSTFLOAT fVbargraph7; + double fConst13; + double fRec19[2]; + FAUSTFLOAT fVbargraph8; + double fConst14; + double fRec23[2]; + FAUSTFLOAT fVbargraph9; + double fRec24[2]; + FAUSTFLOAT fVbargraph10; + double fRec25[2]; + FAUSTFLOAT fVbargraph11; + double fConst15; + double fConst16; + double fConst17; + double fRec29[2]; + double fRec30[2]; + double fRec28[2]; + double fRec27[2]; + FAUSTFLOAT fVbargraph12; + double fConst18; + double fRec26[2]; + FAUSTFLOAT fVbargraph13; + double fConst19; + double fRec34[2]; + double fRec35[2]; + double fRec33[2]; + double fRec32[2]; + FAUSTFLOAT fVbargraph14; + double fRec31[2]; + FAUSTFLOAT fVbargraph15; + double fConst20; + double fConst21; + double fConst22; + double fRec36[2]; + FAUSTFLOAT fVbargraph16; + double fRec37[2]; + FAUSTFLOAT fVbargraph17; + double fRec41[2]; + double fRec42[2]; + double fRec40[2]; + double fRec39[2]; + FAUSTFLOAT fVbargraph18; + double fRec38[2]; + FAUSTFLOAT fVbargraph19; + double fConst23; + double fConst24; + double fConst25; + double fRec43[2]; + FAUSTFLOAT fVbargraph20; + double fConst26; + double fRec44[2]; + FAUSTFLOAT fVbargraph21; + double fConst27; + double fConst28; + double fRec45[2]; + FAUSTFLOAT fVbargraph22; + double fConst29; + double fConst30; + double fRec46[2]; + FAUSTFLOAT fVbargraph23; + double fRec47[2]; + FAUSTFLOAT fVbargraph24; + double fConst31; + double fRec48[2]; + FAUSTFLOAT fVbargraph25; + double fRec49[2]; + FAUSTFLOAT fVbargraph26; + double fConst32; + double fRec50[2]; + FAUSTFLOAT fVbargraph27; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fRec51[2]; + FAUSTFLOAT fVbargraph28; + double fConst38; + double fConst39; + double fRec52[2]; + FAUSTFLOAT fVbargraph29; + double fConst40; + double fConst41; + double fConst42; + double fRec53[2]; + FAUSTFLOAT fVbargraph30; + double fConst43; + double fConst44; + double fRec54[2]; + FAUSTFLOAT fVbargraph31; + double fConst45; + double fConst46; + double fRec55[2]; + FAUSTFLOAT fVbargraph32; + double fConst47; + double fRec56[2]; + FAUSTFLOAT fVbargraph33; + double fConst48; + double fConst49; + double fRec57[2]; + FAUSTFLOAT fVbargraph34; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fRec58[2]; + FAUSTFLOAT fVbargraph35; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fRec59[2]; + FAUSTFLOAT fVbargraph36; + double fConst58; + double fConst59; + double fRec60[2]; + FAUSTFLOAT fVbargraph37; + double fConst60; + double fConst61; + double fConst62; + double fRec61[2]; + FAUSTFLOAT fVbargraph38; + double fConst63; + double fConst64; + double fRec62[2]; + FAUSTFLOAT fVbargraph39; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fRec63[2]; + FAUSTFLOAT fVbargraph40; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fRec64[2]; + FAUSTFLOAT fVbargraph41; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fRec65[2]; + FAUSTFLOAT fVbargraph42; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fRec66[2]; + FAUSTFLOAT fVbargraph43; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fRec67[2]; + FAUSTFLOAT fVbargraph44; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fRec68[2]; + FAUSTFLOAT fVbargraph45; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fRec69[2]; + FAUSTFLOAT fVbargraph46; + double fConst101; + double fRec70[2]; + FAUSTFLOAT fVbargraph47; + double fRec71[2]; + FAUSTFLOAT fVbargraph48; + double fConst102; + double fConst103; + double fConst104; + double fRec72[2]; + FAUSTFLOAT fVbargraph49; + double fConst105; + double fConst106; + double fConst107; + double fRec73[2]; + FAUSTFLOAT fVbargraph50; + double fConst108; + double fConst109; + double fRec74[2]; + FAUSTFLOAT fVbargraph51; + double fConst110; + double fRec75[2]; + FAUSTFLOAT fVbargraph52; + double fConst111; + double fConst112; + double fConst113; + double fRec76[2]; + FAUSTFLOAT fVbargraph53; + double fConst114; + double fConst115; + double fConst116; + double fRec77[2]; + FAUSTFLOAT fVbargraph54; + double fConst117; + double fRec78[2]; + FAUSTFLOAT fVbargraph55; + double fConst118; + double fConst119; + double fConst120; + double fRec79[2]; + FAUSTFLOAT fVbargraph56; + double fConst121; + double fRec80[2]; + FAUSTFLOAT fVbargraph57; + double fConst122; + double fConst123; + double fRec81[2]; + FAUSTFLOAT fVbargraph58; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev502"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + fConst6 = double(tgamma(1.5)); + fConst7 = double(tgamma(1.0)); + fConst8 = sqrt((3.0 * (fConst7 / double(tgamma(3.0))))); + fConst9 = (fConst6 * fConst8); + fConst10 = (0.02026373487753309 * fConst9); + fConst11 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst7 / double(tgamma(5.0)))))); + fConst12 = (0.04052746975506618 * fConst11); + fConst13 = (0.0 - (3.1915382432114616 * fConst11)); + fConst14 = (0.0 - (1.5957691216057308 * fConst9)); + fConst15 = (0.025473109945013343 * fConst8); + fConst16 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst17 = (0.054036626340088233 * fConst16); + fConst18 = (0.036024417560058836 * fConst11); + fConst19 = (0.0 - (1.595769121605731 * fConst11)); + fConst20 = (0.0 - (1.1283791670955128 * fConst9)); + fConst21 = (fConst6 * fConst16); + fConst22 = (0.0 - (2.3936536824085959 * fConst21)); + fConst23 = (0.025473109945013343 * fConst9); + fConst24 = (0.0 - (1.1283791670955126 * fConst9)); + fConst25 = (0.0 - (7.0866384831701748e-16 * fConst11)); + fConst26 = (0.0 - (1.128379167095513 * fConst9)); + fConst27 = (0.025473109945013332 * fConst9); + fConst28 = (0.0 - (1.417327696634035e-15 * fConst11)); + fConst29 = (fConst16 * (0.0 - (1.6925687506432687 * fConst6))); + fConst30 = (0.031925808815477283 * fConst29); + fConst31 = (0.0 - (1.4142135623730951 * fConst29)); + fConst32 = (0.033660754908870889 * fConst16); + fConst33 = (0.019434045907762623 * fConst8); + fConst34 = (0.0 - (0.92131773192356115 * fConst9)); + fConst35 = (0.0 - (2.1276921621409737 * fConst11)); + fConst36 = (0.0 - (1.5957691216057308 * fConst21)); + fConst37 = (0.0 - (4.7244256554467816e-16 * fConst11)); + fConst38 = (0.0 - (0.92131773192356148 * fConst9)); + fConst39 = (0.0 - (1.5957691216057313 * fConst21)); + fConst40 = (0.0 - (9.4488513108935631e-16 * fConst11)); + fConst41 = (0.033660754908870882 * fConst16); + fConst42 = (0.019434045907762616 * fConst8); + fConst43 = (fConst16 * (0.0 - (1.5957691216057308 * fConst6))); + fConst44 = (0.021093750000000005 * fConst43); + fConst45 = (0.019434045907762623 * fConst9); + fConst46 = (0.0 - fConst43); + fConst47 = (0.0 - (1.0000000000000002 * fConst43)); + fConst48 = (0.019434045907762616 * fConst9); + fConst49 = (0.021093749999999998 * fConst43); + fConst50 = (0.0 - (1.2884797242127563e-16 * fConst11)); + fConst51 = (0.026338897580074728 * fConst16); + fConst52 = (0.026338897580074724 * fConst16); + fConst53 = (0.011706176702255417 * fConst11); + fConst54 = (0.0097062489627452973 * fConst8); + fConst55 = (0.0 - (0.48114249349102017 * fConst9)); + fConst56 = (0.0 - (0.58027968058390089 * fConst11)); + fConst57 = (0.0 - (1.3056292813137786 * fConst21)); + fConst58 = (0.0 - (0.48114249349102034 * fConst9)); + fConst59 = (0.0 - (1.3056292813137791 * fConst21)); + fConst60 = (0.0 - (2.5769594484255127e-16 * fConst11)); + fConst61 = (0.0097062489627452939 * fConst8); + fConst62 = (0.026338897580074721 * fConst16); + fConst63 = (0.0087796325266915921 * fConst16); + fConst64 = (0.026338897580074738 * fConst16); + fConst65 = (0.0 - (2.3211187223356089 * fConst11)); + fConst66 = (0.026338897580074742 * fConst16); + fConst67 = (0.0087796325266915817 * fConst16); + fConst68 = (0.035118530106766334 * fConst11); + fConst69 = (0.029118746888235927 * fConst8); + fConst70 = (0.026338897580074745 * fConst16); + fConst71 = (0.0 - (0.48114249349102062 * fConst9)); + fConst72 = (0.0 - (1.7408390417517061 * fConst11)); + fConst73 = (0.0 - (0.43520976043792636 * fConst21)); + fConst74 = (0.0 - (2.3211187223356093 * fConst11)); + fConst75 = (0.0 - (1.443427480473062 * fConst9)); + fConst76 = (0.0 - (1.7408390417517088 * fConst11)); + fConst77 = (0.0 - (1.3056292813137793 * fConst21)); + fConst78 = (0.0097062489627453216 * fConst8); + fConst79 = (0.0087796325266915939 * fConst16); + fConst80 = (0.046824706809021746 * fConst11); + fConst81 = (0.0 - (0.48114249349102112 * fConst9)); + fConst82 = (0.0 - (1.4434274804730622 * fConst9)); + fConst83 = (0.0 - (0.43520976043792686 * fConst21)); + fConst84 = (0.0 - (1.3056292813137795 * fConst21)); + fConst85 = (0.035118530106766348 * fConst11); + fConst86 = (0.0 - (0.48114249349102095 * fConst9)); + fConst87 = (0.0 - (0.4352097604379267 * fConst21)); + fConst88 = (0.0 - (2.3211187223356085 * fConst11)); + fConst89 = (0.0 - (1.4434274804730625 * fConst9)); + fConst90 = (0.0 - (1.7408390417517057 * fConst11)); + fConst91 = (0.0 - (1.3056292813137798 * fConst21)); + fConst92 = (0.0 - (2.3211187223356098 * fConst11)); + fConst93 = (0.0097062489627453008 * fConst8); + fConst94 = (0.0087796325266915748 * fConst16); + fConst95 = (0.029118746888235913 * fConst8); + fConst96 = (0.026338897580074731 * fConst16); + fConst97 = (0.0 - (0.48114249349102228 * fConst9)); + fConst98 = (0.0 - (1.7408390417517114 * fConst11)); + fConst99 = (0.0 - (0.43520976043792792 * fConst21)); + fConst100 = (0.046824706809021698 * fConst11); + fConst101 = (fConst16 * (0.0 - (0.97315860881060223 * fConst6))); + fConst102 = (0.029118746888235927 * fConst9); + fConst103 = (0.027065369757419331 * fConst101); + fConst104 = (0.0 - (0.44721359549995782 * fConst101)); + fConst105 = (0.0 - (1.3416407864998736 * fConst101)); + fConst106 = (0.0090217899191397891 * fConst101); + fConst107 = (0.0097062489627453216 * fConst9); + fConst108 = (0.0 - (0.44721359549995832 * fConst101)); + fConst109 = (0.0 - (1.3416407864998738 * fConst101)); + fConst110 = (0.0 - (0.44721359549995815 * fConst101)); + fConst111 = (0.0097062489627453008 * fConst9); + fConst112 = (0.00902178991913977 * fConst101); + fConst113 = (0.0 - (1.3416407864998741 * fConst101)); + fConst114 = (0.0 - (0.44721359549995937 * fConst101)); + fConst115 = (0.027065369757419321 * fConst101); + fConst116 = (0.029118746888235913 * fConst9); + fConst117 = (fConst16 * (0.0 - (1.3056292813137786 * fConst6))); + fConst118 = (0.020173335537918873 * fConst117); + fConst119 = (0.0097062489627452973 * fConst9); + fConst120 = (0.0 - fConst117); + fConst121 = (0.0 - (1.0000000000000002 * fConst117)); + fConst122 = (0.0097062489627452939 * fConst9); + fConst123 = (0.020173335537918866 * fConst117); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec14[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec12[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec17[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec18[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec15[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec11[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec19[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec29[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec30[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec27[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec26[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec34[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec35[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec31[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec41[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec42[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec39[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec38[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec43[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec44[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec45[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec46[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec47[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec48[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec49[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec50[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec51[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec52[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec56[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec57[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec58[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec59[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec60[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec61[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec62[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec63[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec64[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec65[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec66[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec67[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec68[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec69[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec70[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec71[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec72[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec73[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec74[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec75[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec76[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec77[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec78[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec79[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec80[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec81[l81] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev502"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f3d870", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f848b0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f48ba0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f68930", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fdc210", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fbc910", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f57440", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fa8c50", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f75c80", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph3, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f5c3e0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph6, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f7b3c0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph8, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f8a540", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph9, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f90450", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph10, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f95d10", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph11, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1f9b110", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph13, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1faff20", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph15, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fc1d90", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph16, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fc94a0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph17, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fcf7a0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph19, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fe1860", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph20, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1fe9b80", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph21, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ff1310", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph22, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x1ff8ad0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph23, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2000190", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph24, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20063f0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph25, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x200d200", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph26, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2013800", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph27, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x201d320", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph28, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20276e0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph29, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2030df0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph30, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x203a2c0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph31, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2042660", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph32, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x204a520", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph33, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2051fd0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph34, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x205a1c0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph35, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2064a70", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph36, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x206d520", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph37, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2075a40", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph38, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x207df30", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph39, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2087860", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph40, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2091110", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph41, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x209b730", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph42, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20a5a20", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph43, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20af840", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph44, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20b9190", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph45, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20c3b30", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph46, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20ce370", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph47, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20d5ee0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph48, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20dcc60", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph49, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20e4ba0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph50, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20ecbc0", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph51, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20f4660", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph52, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x20fbad0", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph53, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2103d90", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph54, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x210c130", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph55, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2113de0", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph56, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x211bfa0", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph57, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x21236a0", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph58, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x212b6b0", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (fConst2 / fSlow2); + double fSlow8 = (1.0 / (fSlow7 + 1.0)); + double fSlow9 = (fConst3 / fSlow2); + double fSlow10 = mydsp_faustpower2_f(fSlow7); + double fSlow11 = (1.0 / (((fConst4 / fSlow2) + (3.0 * fSlow10)) + 1.0)); + double fSlow12 = (12.0 * fSlow10); + double fSlow13 = (fSlow12 + (fConst5 / fSlow2)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.012698412698412698 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow8 * ((fSlow3 * fTemp2) - (fSlow9 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.021994295969128601 * fTemp3); + double fTemp5 = (fRec3[0] * double(input6[i])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow11 * ((fSlow3 * fTemp5) - ((fSlow13 * fRec9[0]) + (fSlow12 * fRec10[0])))); + double fTemp6 = (fRec8[0] + (fSlow4 * fTemp5)); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph2 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.028394513999997331 * fTemp6); + double fTemp8 = (fRec1[0] * ((fTemp1 + fTemp4) + fTemp7)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph3 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (fRec3[0] * double(input3[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec13[0] = (fSlow8 * ((fSlow3 * fTemp9) - (fSlow9 * fRec14[0]))); + double fTemp10 = (fRec13[0] + (fSlow4 * fTemp9)); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph4 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = (fRec3[0] * double(input8[i])); + fRec17[0] = (fRec17[1] + fRec16[1]); + fRec18[0] = (fRec18[1] + fRec17[1]); + fRec16[0] = (fSlow11 * ((fSlow3 * fTemp11) - ((fSlow13 * fRec17[0]) + (fSlow12 * fRec18[0])))); + double fTemp12 = (fRec16[0] + (fSlow4 * fTemp11)); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph5 = FAUSTFLOAT(fRec15[0]); + double fTemp13 = (fConst12 * fTemp12); + double fTemp14 = (0.014197256999998666 * fTemp6); + double fTemp15 = (fRec1[0] * (((fTemp1 + (fConst10 * fTemp10)) + fTemp13) - fTemp14)); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph6 = FAUSTFLOAT(fRec11[0]); + output1[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (fRec3[0] * double(input1[i])); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec21[0] = (fSlow8 * ((fSlow3 * fTemp16) - (fSlow9 * fRec22[0]))); + double fTemp17 = (fRec21[0] + (fSlow4 * fTemp16)); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph7 = FAUSTFLOAT(fRec20[0]); + double fTemp18 = (fConst13 * fTemp12); + double fTemp19 = (fRec1[0] * (((fConst10 * fTemp17) + (0.012698412698412698 * (fTemp0 + fTemp18))) - fTemp14)); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph8 = FAUSTFLOAT(fRec19[0]); + output2[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fRec1[0] * ((fTemp13 + (0.012698412698412698 * (fTemp0 + (fConst14 * fTemp10)))) - fTemp14)); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph9 = FAUSTFLOAT(fRec23[0]); + output3[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (fRec1[0] * ((0.012698412698412698 * (fTemp18 + (fTemp0 + (fConst14 * fTemp17)))) - fTemp14)); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph10 = FAUSTFLOAT(fRec24[0]); + output4[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (fRec1[0] * ((fTemp1 + fTemp7) - fTemp4)); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph11 = FAUSTFLOAT(fRec25[0]); + output5[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (fRec3[0] * double(input7[i])); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec30[0] = (fRec30[1] + fRec29[1]); + fRec28[0] = (fSlow11 * ((fSlow3 * fTemp23) - ((fSlow13 * fRec29[0]) + (fSlow12 * fRec30[0])))); + double fTemp24 = (fRec28[0] + (fSlow4 * fTemp23)); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph12 = FAUSTFLOAT(fRec27[0]); + double fTemp25 = (0.022574955908289243 * fTemp0); + double fTemp26 = (0.027648561470568499 * fTemp3); + double fTemp27 = (0.01261978399999881 * fTemp6); + double fTemp28 = (fConst18 * fTemp12); + double fTemp29 = (fRec1[0] * ((fConst6 * ((fConst15 * fTemp10) + (fConst17 * fTemp24))) + (((fTemp25 + fTemp26) + fTemp27) + fTemp28))); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph13 = FAUSTFLOAT(fRec26[0]); + output6[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fConst19 * fTemp12); + double fTemp31 = (0.022574955908289243 * (fTemp0 + fTemp30)); + double fTemp32 = (fRec3[0] * double(input5[i])); + fRec34[0] = (fRec34[1] + fRec33[1]); + fRec35[0] = (fRec35[1] + fRec34[1]); + fRec33[0] = (fSlow11 * ((fSlow3 * fTemp32) - ((fSlow13 * fRec34[0]) + (fSlow12 * fRec35[0])))); + double fTemp33 = (fRec33[0] + (fSlow4 * fTemp32)); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph14 = FAUSTFLOAT(fRec32[0]); + double fTemp34 = (fTemp26 + fTemp27); + double fTemp35 = (fRec1[0] * (fTemp31 + ((fConst6 * ((fConst15 * fTemp17) + (fConst17 * fTemp33))) + fTemp34))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph15 = FAUSTFLOAT(fRec31[0]); + output7[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (fTemp0 + (fConst20 * fTemp10)); + double fTemp37 = (fRec1[0] * ((0.022574955908289243 * (fTemp36 + (fConst22 * fTemp24))) + (fTemp28 + fTemp34))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph16 = FAUSTFLOAT(fRec36[0]); + output8[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (fTemp0 + (fConst20 * fTemp17)); + double fTemp39 = (fRec1[0] * (fTemp34 + (0.022574955908289243 * (fTemp30 + (fTemp38 + (fConst22 * fTemp33)))))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph17 = FAUSTFLOAT(fRec37[0]); + output9[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fRec3[0] * double(input4[i])); + fRec41[0] = (fRec41[1] + fRec40[1]); + fRec42[0] = (fRec42[1] + fRec41[1]); + fRec40[0] = (fSlow11 * ((fSlow3 * fTemp40) - ((fSlow13 * fRec41[0]) + (fSlow12 * fRec42[0])))); + double fTemp41 = (fRec40[0] + (fSlow4 * fTemp40)); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph18 = FAUSTFLOAT(fRec39[0]); + double fTemp42 = (0.025239567999997631 * fTemp6); + double fTemp43 = (fRec1[0] * (((fTemp25 + (fConst9 * ((0.025473109945013343 * fTemp10) + (0.025473109945013336 * fTemp17)))) + (fConst11 * ((1.5998055129555246e-17 * fTemp12) + (0.072048835120117657 * fTemp41)))) - fTemp42)); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph19 = FAUSTFLOAT(fRec38[0]); + output10[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (fConst23 * fTemp17); + double fTemp45 = (fConst13 * fTemp41); + double fTemp46 = (fRec1[0] * ((fTemp44 + (0.022574955908289243 * (((fTemp0 + (fConst24 * fTemp10)) + fTemp45) + (fConst25 * fTemp12)))) - fTemp42)); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph20 = FAUSTFLOAT(fRec43[0]); + output11[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (fRec1[0] * (((0.022574955908289243 * ((fTemp0 + (fConst24 * fTemp17)) + (fConst26 * fTemp10))) + (fConst11 * ((3.1996110259110492e-17 * fTemp12) + (0.072048835120117671 * fTemp41)))) - fTemp42)); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph21 = FAUSTFLOAT(fRec44[0]); + output12[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (fRec1[0] * (((fConst27 * fTemp10) + (0.022574955908289243 * ((fTemp45 + (fTemp0 + (fConst26 * fTemp17))) + (fConst28 * fTemp12)))) - fTemp42)); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph22 = FAUSTFLOAT(fRec45[0]); + output13[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (fRec1[0] * (((fConst30 * fTemp24) + (fTemp28 + ((fConst23 * fTemp10) + (fTemp25 + fTemp27)))) - fTemp26)); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph23 = FAUSTFLOAT(fRec46[0]); + output14[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (fRec1[0] * (((fConst30 * fTemp33) + (fTemp31 + (fTemp27 + fTemp44))) - fTemp26)); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph24 = FAUSTFLOAT(fRec47[0]); + output15[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (fRec1[0] * (((0.022574955908289243 * (fTemp36 + (fConst31 * fTemp24))) + (fTemp27 + fTemp28)) - fTemp26)); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph25 = FAUSTFLOAT(fRec48[0]); + output16[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (fRec1[0] * ((fTemp27 + (0.022574955908289243 * (fTemp30 + (fTemp38 + (fConst31 * fTemp33))))) - fTemp26)); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph26 = FAUSTFLOAT(fRec49[0]); + output17[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (fConst11 * ((9.9655853669580557e-18 * fTemp12) + (0.044881006545161167 * fTemp41))); + double fTemp54 = ((0.019434045907762623 * fTemp10) + (0.019434045907762619 * fTemp17)); + double fTemp55 = (fConst32 * fTemp33); + double fTemp56 = (fTemp0 + fTemp3); + double fTemp57 = (5.236595479505967e-18 * fTemp6); + double fTemp58 = (fRec1[0] * (fTemp53 + ((fConst6 * (((fConst8 * fTemp54) + fTemp55) + (fConst32 * fTemp24))) + ((0.021093750000000001 * fTemp56) + fTemp57)))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph27 = FAUSTFLOAT(fRec50[0]); + output18[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = (fConst34 * fTemp10); + double fTemp60 = (fConst35 * fTemp41); + double fTemp61 = (fConst37 * fTemp12); + double fTemp62 = (fRec1[0] * ((fTemp57 + (fConst6 * (fTemp55 + (fConst33 * fTemp17)))) + (0.021093750000000001 * ((((fTemp56 + fTemp59) + fTemp60) + (fConst36 * fTemp24)) + fTemp61)))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph28 = FAUSTFLOAT(fRec51[0]); + output19[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = (fConst11 * ((1.9931170733916111e-17 * fTemp12) + (0.044881006545161174 * fTemp41))); + double fTemp64 = (fTemp0 + (fConst34 * fTemp17)); + double fTemp65 = (fConst38 * fTemp10); + double fTemp66 = (fRec1[0] * (fTemp63 + (fTemp57 + (0.021093750000000001 * ((((fTemp3 + fTemp64) + fTemp65) + (fConst36 * fTemp33)) + (fConst39 * fTemp24)))))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph29 = FAUSTFLOAT(fRec52[0]); + output20[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = (fTemp0 + (fConst38 * fTemp17)); + double fTemp68 = (fConst40 * fTemp12); + double fTemp69 = (fRec1[0] * ((0.021093750000000001 * (((fTemp60 + (fTemp3 + fTemp67)) + (fConst39 * fTemp33)) + fTemp68)) + (fTemp57 + (fConst6 * ((fConst41 * fTemp24) + (fConst42 * fTemp10)))))); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph30 = FAUSTFLOAT(fRec53[0]); + output21[i] = FAUSTFLOAT(fTemp69); + double fTemp70 = (fTemp0 - fTemp3); + double fTemp71 = (fRec1[0] * ((fConst44 * fTemp24) + ((0.021093750000000001 * (fTemp70 + (fConst43 * fTemp33))) + (fTemp53 + ((fConst9 * fTemp54) + fTemp57))))); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph31 = FAUSTFLOAT(fRec54[0]); + output22[i] = FAUSTFLOAT(fTemp71); + double fTemp72 = (fRec1[0] * (((fConst44 * fTemp33) + (fTemp57 + (fConst45 * fTemp17))) + (0.021093750000000001 * (fTemp61 + ((fTemp60 + (fTemp59 + fTemp70)) + (fConst46 * fTemp24)))))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph32 = FAUSTFLOAT(fRec55[0]); + output23[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = (fRec1[0] * ((0.021093750000000001 * (((fTemp65 - (fTemp3 - fTemp64)) + (fConst46 * fTemp33)) + (fConst47 * fTemp24))) + (fTemp57 + fTemp63))); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph33 = FAUSTFLOAT(fRec56[0]); + output24[i] = FAUSTFLOAT(fTemp73); + double fTemp74 = (fRec1[0] * (((fTemp57 + (fConst48 * fTemp10)) + (fConst49 * fTemp24)) + (0.021093750000000001 * (fTemp68 + ((fTemp60 - (fTemp3 - fTemp67)) + (fConst47 * fTemp33)))))); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph34 = FAUSTFLOAT(fRec57[0]); + output25[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = (fConst50 * fTemp12); + double fTemp76 = (0.02017333553791887 * (fTemp0 + fTemp75)); + double fTemp77 = ((0.0097062489627452956 * fTemp10) + (0.0097062489627452973 * fTemp17)); + double fTemp78 = (fConst51 * fTemp33); + double fTemp79 = (fConst53 * fTemp41); + double fTemp80 = (0.031605542669238249 * fTemp3); + double fTemp81 = (0.032806508796871948 * fTemp6); + double fTemp82 = (fTemp80 + fTemp81); + double fTemp83 = (fRec1[0] * (fTemp76 + ((fConst6 * (((fConst8 * fTemp77) + fTemp78) + (fConst52 * fTemp24))) + (fTemp79 + fTemp82)))); + fRec58[0] = max((fRec58[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph35 = FAUSTFLOAT(fRec58[0]); + output26[i] = FAUSTFLOAT(fTemp83); + double fTemp84 = (fConst56 * fTemp41); + double fTemp85 = ((fTemp0 + (fConst55 * fTemp10)) + fTemp84); + double fTemp86 = (fRec1[0] * ((fTemp82 + (fConst6 * (fTemp78 + (fConst54 * fTemp17)))) + (0.02017333553791887 * (fTemp75 + (fTemp85 + (fConst57 * fTemp24)))))); + fRec59[0] = max((fRec59[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph36 = FAUSTFLOAT(fRec59[0]); + output27[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = (fConst11 * ((5.19858676206982e-18 * fTemp12) + (0.011706176702255421 * fTemp41))); + double fTemp88 = ((fTemp0 + (fConst55 * fTemp17)) + (fConst58 * fTemp10)); + double fTemp89 = (fRec1[0] * (fTemp87 + (fTemp82 + (0.02017333553791887 * ((fTemp88 + (fConst57 * fTemp33)) + (fConst59 * fTemp24)))))); + fRec60[0] = max((fRec60[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph37 = FAUSTFLOAT(fRec60[0]); + output28[i] = FAUSTFLOAT(fTemp89); + double fTemp90 = (fTemp84 + (fTemp0 + (fConst58 * fTemp17))); + double fTemp91 = (fConst60 * fTemp12); + double fTemp92 = (fRec1[0] * ((0.02017333553791887 * ((fTemp90 + (fConst59 * fTemp33)) + fTemp91)) + (fTemp82 + (fConst6 * ((fConst61 * fTemp10) + (fConst62 * fTemp24)))))); + fRec61[0] = max((fRec61[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph38 = FAUSTFLOAT(fRec61[0]); + output29[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = (fConst11 * ((0.046824706809021746 * fTemp12) + (0.035118530106766375 * fTemp41))); + double fTemp94 = (0.02017333553791887 * fTemp0); + double fTemp95 = (0.010535180889746075 * fTemp3); + double fTemp96 = ((0.029118746888235916 * fTemp10) + (0.0097062489627453199 * fTemp17)); + double fTemp97 = (0.01640325439843596 * fTemp6); + double fTemp98 = (fRec1[0] * ((fTemp93 + ((fTemp94 + fTemp95) + (fConst6 * (((fConst8 * fTemp96) + (fConst63 * fTemp33)) + (fConst64 * fTemp24))))) - fTemp97)); + fRec62[0] = max((fRec62[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph39 = FAUSTFLOAT(fRec62[0]); + output30[i] = FAUSTFLOAT(fTemp98); + double fTemp99 = (0.02017333553791887 * (fTemp0 + (fConst65 * fTemp12))); + double fTemp100 = ((0.0097062489627453077 * fTemp10) + (0.029118746888235923 * fTemp17)); + double fTemp101 = (fConst68 * fTemp41); + double fTemp102 = (fRec1[0] * ((fTemp99 + ((fConst6 * (((fConst8 * fTemp100) + (fConst66 * fTemp33)) + (fConst67 * fTemp24))) + (fTemp95 + fTemp101))) - fTemp97)); + fRec63[0] = max((fRec63[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph40 = FAUSTFLOAT(fRec63[0]); + output31[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = ((fTemp0 + (fConst71 * fTemp10)) + (fConst72 * fTemp41)); + double fTemp104 = (fConst74 * fTemp12); + double fTemp105 = (fRec1[0] * (((fTemp95 + (fConst6 * ((fConst69 * fTemp17) + (fConst70 * fTemp33)))) + (0.02017333553791887 * ((fTemp103 + (fConst73 * fTemp24)) + fTemp104))) - fTemp97)); + fRec64[0] = max((fRec64[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph41 = FAUSTFLOAT(fRec64[0]); + output32[i] = FAUSTFLOAT(fTemp105); + double fTemp106 = ((fTemp0 + (fConst75 * fTemp10)) + (fConst76 * fTemp41)); + double fTemp107 = (fConst80 * fTemp12); + double fTemp108 = (fRec1[0] * (((0.02017333553791887 * (fTemp106 + (fConst77 * fTemp24))) + ((fConst6 * ((fConst78 * fTemp17) + (fConst79 * fTemp33))) + (fTemp95 + fTemp107))) - fTemp97)); + fRec65[0] = max((fRec65[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph42 = FAUSTFLOAT(fRec65[0]); + output33[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = (fConst11 * ((0.046824706809021774 * fTemp12) + (0.035118530106766362 * fTemp41))); + double fTemp110 = ((fTemp0 + (fConst81 * fTemp17)) + (fConst82 * fTemp10)); + double fTemp111 = (fRec1[0] * ((fTemp109 + (fTemp95 + (0.02017333553791887 * ((fTemp110 + (fConst83 * fTemp33)) + (fConst84 * fTemp24))))) - fTemp97)); + fRec66[0] = max((fRec66[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp111)))))); + fVbargraph43 = FAUSTFLOAT(fRec66[0]); + output34[i] = FAUSTFLOAT(fTemp111); + double fTemp112 = (fConst85 * fTemp41); + double fTemp113 = ((fTemp0 + (fConst82 * fTemp17)) + (fConst86 * fTemp10)); + double fTemp114 = (fConst88 * fTemp12); + double fTemp115 = (fRec1[0] * (((fTemp95 + fTemp112) + (0.02017333553791887 * (((fTemp113 + (fConst84 * fTemp33)) + (fConst87 * fTemp24)) + fTemp114))) - fTemp97)); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp115)))))); + fVbargraph44 = FAUSTFLOAT(fRec67[0]); + output35[i] = FAUSTFLOAT(fTemp115); + double fTemp116 = ((fTemp0 + (fConst89 * fTemp17)) + (fConst90 * fTemp41)); + double fTemp117 = (fConst92 * fTemp12); + double fTemp118 = (fRec1[0] * (((0.02017333553791887 * ((fTemp116 + (fConst91 * fTemp33)) + fTemp117)) + (fTemp95 + (fConst6 * ((fConst93 * fTemp10) + (fConst94 * fTemp24))))) - fTemp97)); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp118)))))); + fVbargraph45 = FAUSTFLOAT(fRec68[0]); + output36[i] = FAUSTFLOAT(fTemp118); + double fTemp119 = ((fTemp0 + (fConst97 * fTemp17)) + (fConst98 * fTemp41)); + double fTemp120 = (fConst100 * fTemp12); + double fTemp121 = (fRec1[0] * (((fConst6 * ((fConst95 * fTemp10) + (fConst96 * fTemp24))) + ((0.02017333553791887 * (fTemp119 + (fConst99 * fTemp33))) + (fTemp95 + fTemp120))) - fTemp97)); + fRec69[0] = max((fRec69[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp121)))))); + fVbargraph46 = FAUSTFLOAT(fRec69[0]); + output37[i] = FAUSTFLOAT(fTemp121); + double fTemp122 = (fTemp95 + fTemp97); + double fTemp123 = (fRec1[0] * (((fConst101 * ((0.027065369757419324 * fTemp24) + (0.0090217899191397874 * fTemp33))) + (fTemp93 + (fTemp94 + (fConst9 * fTemp96)))) - fTemp122)); + fRec70[0] = max((fRec70[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp123)))))); + fVbargraph47 = FAUSTFLOAT(fRec70[0]); + output38[i] = FAUSTFLOAT(fTemp123); + double fTemp124 = (fRec1[0] * (((fConst101 * ((0.009021789919139777 * fTemp24) + (0.027065369757419327 * fTemp33))) + (fTemp99 + ((fConst9 * fTemp100) + fTemp101))) - fTemp122)); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp124)))))); + fVbargraph48 = FAUSTFLOAT(fRec71[0]); + output39[i] = FAUSTFLOAT(fTemp124); + double fTemp125 = (fRec1[0] * ((((fConst102 * fTemp17) + (fConst103 * fTemp33)) + (0.02017333553791887 * (fTemp104 + (fTemp103 + (fConst104 * fTemp24))))) - fTemp122)); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp125)))))); + fVbargraph49 = FAUSTFLOAT(fRec72[0]); + output40[i] = FAUSTFLOAT(fTemp125); + double fTemp126 = (fRec1[0] * (((0.02017333553791887 * (fTemp106 + (fConst105 * fTemp24))) + ((fConst106 * fTemp33) + (fTemp107 + (fConst107 * fTemp17)))) - fTemp122)); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp126)))))); + fVbargraph50 = FAUSTFLOAT(fRec73[0]); + output41[i] = FAUSTFLOAT(fTemp126); + double fTemp127 = (fRec1[0] * ((fTemp109 + (0.02017333553791887 * ((fTemp110 + (fConst108 * fTemp33)) + (fConst109 * fTemp24)))) - fTemp122)); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp127)))))); + fVbargraph51 = FAUSTFLOAT(fRec74[0]); + output42[i] = FAUSTFLOAT(fTemp127); + double fTemp128 = (fRec1[0] * ((fTemp112 + (0.02017333553791887 * (fTemp114 + ((fTemp113 + (fConst109 * fTemp33)) + (fConst110 * fTemp24))))) - fTemp122)); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp128)))))); + fVbargraph52 = FAUSTFLOAT(fRec75[0]); + output43[i] = FAUSTFLOAT(fTemp128); + double fTemp129 = (fRec1[0] * ((((fConst111 * fTemp10) + (fConst112 * fTemp24)) + (0.02017333553791887 * (fTemp117 + (fTemp116 + (fConst113 * fTemp33))))) - fTemp122)); + fRec76[0] = max((fRec76[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp129)))))); + fVbargraph53 = FAUSTFLOAT(fRec76[0]); + output44[i] = FAUSTFLOAT(fTemp129); + double fTemp130 = (fRec1[0] * (((0.02017333553791887 * (fTemp119 + (fConst114 * fTemp33))) + ((fConst115 * fTemp24) + ((fConst116 * fTemp10) + fTemp120))) - fTemp122)); + fRec77[0] = max((fRec77[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp130)))))); + fVbargraph54 = FAUSTFLOAT(fRec77[0]); + output45[i] = FAUSTFLOAT(fTemp130); + double fTemp131 = (fRec1[0] * (((fConst117 * ((0.02017333553791887 * fTemp24) + (0.020173335537918873 * fTemp33))) + (fTemp76 + ((fConst9 * fTemp77) + (fTemp79 + fTemp81)))) - fTemp80)); + fRec78[0] = max((fRec78[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp131)))))); + fVbargraph55 = FAUSTFLOAT(fRec78[0]); + output46[i] = FAUSTFLOAT(fTemp131); + double fTemp132 = (fRec1[0] * ((((fConst118 * fTemp33) + ((fConst119 * fTemp17) + fTemp81)) + (0.02017333553791887 * (fTemp75 + (fTemp85 + (fConst120 * fTemp24))))) - fTemp80)); + fRec79[0] = max((fRec79[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp132)))))); + fVbargraph56 = FAUSTFLOAT(fRec79[0]); + output47[i] = FAUSTFLOAT(fTemp132); + double fTemp133 = (fRec1[0] * (((0.02017333553791887 * ((fTemp88 + (fConst120 * fTemp33)) + (fConst121 * fTemp24))) + (fTemp81 + fTemp87)) - fTemp80)); + fRec80[0] = max((fRec80[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp133)))))); + fVbargraph57 = FAUSTFLOAT(fRec80[0]); + output48[i] = FAUSTFLOAT(fTemp133); + double fTemp134 = (fRec1[0] * ((((fTemp81 + (fConst122 * fTemp10)) + (fConst123 * fTemp24)) + (0.02017333553791887 * (fTemp91 + (fTemp90 + (fConst121 * fTemp33))))) - fTemp80)); + fRec81[0] = max((fRec81[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp134)))))); + fVbargraph58 = FAUSTFLOAT(fRec81[0]); + output49[i] = FAUSTFLOAT(fTemp134); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec0[1] = fRec0[0]; + fRec14[1] = fRec14[0]; + fRec13[1] = fRec13[0]; + fRec12[1] = fRec12[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec16[1] = fRec16[0]; + fRec15[1] = fRec15[0]; + fRec11[1] = fRec11[0]; + fRec22[1] = fRec22[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec28[1] = fRec28[0]; + fRec27[1] = fRec27[0]; + fRec26[1] = fRec26[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec33[1] = fRec33[0]; + fRec32[1] = fRec32[0]; + fRec31[1] = fRec31[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec40[1] = fRec40[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec58[1] = fRec58[0]; + fRec59[1] = fRec59[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec62[1] = fRec62[0]; + fRec63[1] = fRec63[0]; + fRec64[1] = fRec64[0]; + fRec65[1] = fRec65[0]; + fRec66[1] = fRec66[0]; + fRec67[1] = fRec67[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec74[1] = fRec74[0]; + fRec75[1] = fRec75[0]; + fRec76[1] = fRec76[0]; + fRec77[1] = fRec77[0]; + fRec78[1] = fRec78[0]; + fRec79[1] = fRec79[0]; + fRec80[1] = fRec80[0]; + fRec81[1] = fRec81[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev503.cpp b/source/HOAUGens/HOADecLebedev503.cpp new file mode 100644 index 0000000000..f49d287abb --- /dev/null +++ b/source/HOAUGens/HOADecLebedev503.cpp @@ -0,0 +1,3632 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev503" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + FAUSTFLOAT fVbargraph2; + double fConst6; + double fConst7; + double fConst8; + double fRec14[2]; + double fRec15[2]; + double fRec13[2]; + double fConst9; + double fRec16[2]; + double fRec12[2]; + double fRec11[2]; + FAUSTFLOAT fVbargraph3; + double fRec0[2]; + FAUSTFLOAT fVbargraph4; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fRec20[2]; + double fRec19[2]; + double fRec18[2]; + FAUSTFLOAT fVbargraph5; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fRec23[2]; + double fRec24[2]; + double fRec22[2]; + double fRec21[2]; + FAUSTFLOAT fVbargraph6; + double fConst21; + double fConst22; + double fConst23; + double fRec28[2]; + double fRec29[2]; + double fRec27[2]; + double fRec30[2]; + double fRec26[2]; + double fRec25[2]; + FAUSTFLOAT fVbargraph7; + double fConst24; + double fConst25; + double fRec34[2]; + double fRec35[2]; + double fRec33[2]; + double fRec36[2]; + double fRec32[2]; + double fRec31[2]; + FAUSTFLOAT fVbargraph8; + double fRec17[2]; + FAUSTFLOAT fVbargraph9; + double fRec40[2]; + double fRec39[2]; + double fRec38[2]; + FAUSTFLOAT fVbargraph10; + double fConst26; + double fConst27; + double fRec44[2]; + double fRec45[2]; + double fRec43[2]; + double fRec46[2]; + double fRec42[2]; + double fRec41[2]; + FAUSTFLOAT fVbargraph11; + double fRec50[2]; + double fRec51[2]; + double fRec49[2]; + double fRec52[2]; + double fRec48[2]; + double fRec47[2]; + FAUSTFLOAT fVbargraph12; + double fRec37[2]; + FAUSTFLOAT fVbargraph13; + double fConst28; + double fConst29; + double fRec53[2]; + FAUSTFLOAT fVbargraph14; + double fRec54[2]; + FAUSTFLOAT fVbargraph15; + double fRec55[2]; + FAUSTFLOAT fVbargraph16; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fRec60[2]; + double fRec61[2]; + double fRec59[2]; + double fRec62[2]; + double fRec58[2]; + double fRec57[2]; + FAUSTFLOAT fVbargraph17; + double fConst34; + double fConst35; + double fConst36; + double fRec65[2]; + double fRec66[2]; + double fRec64[2]; + double fRec63[2]; + FAUSTFLOAT fVbargraph18; + double fConst37; + double fConst38; + double fRec56[2]; + FAUSTFLOAT fVbargraph19; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fRec70[2]; + double fRec71[2]; + double fRec69[2]; + double fRec68[2]; + FAUSTFLOAT fVbargraph20; + double fRec67[2]; + FAUSTFLOAT fVbargraph21; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fRec72[2]; + FAUSTFLOAT fVbargraph22; + double fRec73[2]; + FAUSTFLOAT fVbargraph23; + double fConst48; + double fRec77[2]; + double fRec78[2]; + double fRec76[2]; + double fRec75[2]; + FAUSTFLOAT fVbargraph24; + double fConst49; + double fRec74[2]; + FAUSTFLOAT fVbargraph25; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fRec79[2]; + FAUSTFLOAT fVbargraph26; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fRec80[2]; + FAUSTFLOAT fVbargraph27; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fRec81[2]; + FAUSTFLOAT fVbargraph28; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fRec82[2]; + FAUSTFLOAT fVbargraph29; + double fConst70; + double fConst71; + double fRec83[2]; + FAUSTFLOAT fVbargraph30; + double fConst72; + double fConst73; + double fConst74; + double fRec84[2]; + FAUSTFLOAT fVbargraph31; + double fRec85[2]; + FAUSTFLOAT fVbargraph32; + double fConst75; + double fConst76; + double fRec90[2]; + double fRec91[2]; + double fRec89[2]; + double fRec92[2]; + double fRec88[2]; + double fRec87[2]; + FAUSTFLOAT fVbargraph33; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fRec86[2]; + FAUSTFLOAT fVbargraph34; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fRec93[2]; + FAUSTFLOAT fVbargraph35; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fRec94[2]; + FAUSTFLOAT fVbargraph36; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fRec95[2]; + FAUSTFLOAT fVbargraph37; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fRec96[2]; + FAUSTFLOAT fVbargraph38; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fRec97[2]; + FAUSTFLOAT fVbargraph39; + double fConst115; + double fConst116; + double fRec98[2]; + FAUSTFLOAT fVbargraph40; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fRec99[2]; + FAUSTFLOAT fVbargraph41; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fRec100[2]; + FAUSTFLOAT fVbargraph42; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fRec101[2]; + FAUSTFLOAT fVbargraph43; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fRec102[2]; + FAUSTFLOAT fVbargraph44; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fRec103[2]; + FAUSTFLOAT fVbargraph45; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fRec104[2]; + FAUSTFLOAT fVbargraph46; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fRec105[2]; + FAUSTFLOAT fVbargraph47; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fRec106[2]; + FAUSTFLOAT fVbargraph48; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fRec107[2]; + FAUSTFLOAT fVbargraph49; + double fConst187; + double fConst188; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fRec108[2]; + FAUSTFLOAT fVbargraph50; + double fConst197; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fRec109[2]; + FAUSTFLOAT fVbargraph51; + double fConst204; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fRec110[2]; + FAUSTFLOAT fVbargraph52; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fRec111[2]; + FAUSTFLOAT fVbargraph53; + double fConst228; + double fConst229; + double fConst230; + double fConst231; + double fRec112[2]; + FAUSTFLOAT fVbargraph54; + double fConst232; + double fConst233; + double fConst234; + double fRec113[2]; + FAUSTFLOAT fVbargraph55; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fConst239; + double fConst240; + double fRec114[2]; + FAUSTFLOAT fVbargraph56; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fRec115[2]; + FAUSTFLOAT fVbargraph57; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fRec116[2]; + FAUSTFLOAT fVbargraph58; + double fConst253; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fRec117[2]; + FAUSTFLOAT fVbargraph59; + double fConst258; + double fConst259; + double fConst260; + double fConst261; + double fConst262; + double fConst263; + double fConst264; + double fRec118[2]; + FAUSTFLOAT fVbargraph60; + double fConst265; + double fConst266; + double fConst267; + double fConst268; + double fConst269; + double fConst270; + double fConst271; + double fConst272; + double fRec119[2]; + FAUSTFLOAT fVbargraph61; + double fConst273; + double fConst274; + double fConst275; + double fConst276; + double fConst277; + double fConst278; + double fConst279; + double fRec120[2]; + FAUSTFLOAT fVbargraph62; + double fConst280; + double fConst281; + double fConst282; + double fConst283; + double fConst284; + double fConst285; + double fRec121[2]; + FAUSTFLOAT fVbargraph63; + double fConst286; + double fConst287; + double fRec122[2]; + FAUSTFLOAT fVbargraph64; + double fConst288; + double fConst289; + double fConst290; + double fConst291; + double fRec123[2]; + FAUSTFLOAT fVbargraph65; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev503"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + fConst6 = (394.77151028643527 / fConst0); + fConst7 = (625.22848971356643 / fConst0); + fConst8 = (1250.4569794271329 / fConst0); + fConst9 = (789.54302057287055 / fConst0); + fConst10 = double(tgamma(1.5)); + fConst11 = double(tgamma(1.0)); + fConst12 = double(tgamma(3.0)); + fConst13 = sqrt((3.0 * (fConst11 / fConst12))); + fConst14 = (fConst10 * fConst13); + fConst15 = (0.02026373487753309 * fConst14); + fConst16 = double(tgamma(2.5)); + fConst17 = double(tgamma(5.0)); + fConst18 = sqrt((5.0 * (fConst11 / fConst17))); + fConst19 = (fConst16 * fConst18); + fConst20 = (0.04052746975506618 * fConst19); + fConst21 = sqrt((7.0 * (fConst12 / fConst17))); + fConst22 = ((0.0 - (3.3851375012865379 * fConst10)) * fConst21); + fConst23 = (0.0089791337293529845 * fConst22); + fConst24 = (double(tgamma(3.5)) * sqrt((7.0 * (fConst11 / double(tgamma(7.0)))))); + fConst25 = (0.081054939510132359 * fConst24); + fConst26 = (0.0 - (3.1915382432114616 * fConst19)); + fConst27 = (0.0 - (6.3830764864229232 * fConst24)); + fConst28 = (0.0 - (1.5957691216057308 * fConst14)); + fConst29 = (0.0 - (0.70710678118654757 * fConst22)); + fConst30 = (0.036024417560058836 * fConst18); + fConst31 = double(tgamma(2.0)); + fConst32 = sqrt((7.0 * (fConst31 / double(tgamma(6.0))))); + fConst33 = (0.12736554972506672 * fConst32); + fConst34 = (0.025473109945013343 * fConst13); + fConst35 = sqrt((5.0 * (fConst31 / double(tgamma(4.0))))); + fConst36 = (0.054036626340088233 * fConst35); + fConst37 = (0.057314497376279992 * fConst21); + fConst38 = (0.050946219890026692 * fConst24); + fConst39 = (0.0 - (1.595769121605731 * fConst19)); + fConst40 = (0.0 - (2.256758334191026 * fConst24)); + fConst41 = (fConst16 * fConst32); + fConst42 = (0.0 - (5.6418958354775643 * fConst41)); + fConst43 = (0.0 - (1.1283791670955128 * fConst14)); + fConst44 = (fConst10 * fConst35); + fConst45 = (0.0 - (2.3936536824085959 * fConst44)); + fConst46 = (fConst10 * fConst21); + fConst47 = (0.0 - (2.5388531259649025 * fConst46)); + fConst48 = (0.0 - (4.5135166683820485 * fConst24)); + fConst49 = (0.10189243978005338 * fConst24); + fConst50 = (0.025473109945013343 * fConst14); + fConst51 = (0.011287477954144623 * fConst22); + fConst52 = (0.0 - (1.1283791670955126 * fConst14)); + fConst53 = (0.0 - (7.0866384831701748e-16 * fConst19)); + fConst54 = (0.0 - (0.5 * fConst22)); + fConst55 = (0.0 - (1.128379167095513 * fConst14)); + fConst56 = (0.0 - (4.5135166683820547 * fConst24)); + fConst57 = (0.0 - (0.50000000000000011 * fConst22)); + fConst58 = (0.10189243978005329 * fConst24); + fConst59 = (0.025473109945013332 * fConst14); + fConst60 = (0.01128747795414462 * fConst22); + fConst61 = (0.0 - (1.417327696634035e-15 * fConst19)); + fConst62 = (0.0 - (4.5135166683820476 * fConst24)); + fConst63 = (0.0 - (4.5135166683820538 * fConst24)); + fConst64 = (0.0 - (1.6925687506432687 * fConst10)); + fConst65 = (fConst64 * fConst35); + fConst66 = ((0.0 - (3.9894228040143274 * fConst16)) * fConst32); + fConst67 = ((0.0 - ((3.5355339059327373 * fConst64) + (2.3936536824085963 * fConst10))) * fConst21); + fConst68 = (0.015962904407738641 * fConst67); + fConst69 = (0.036024417560058836 * fConst19); + fConst70 = (0.0 - (1.4142135623730951 * fConst66)); + fConst71 = (0.031925808815477283 * fConst65); + fConst72 = (0.031925808815477283 * fConst66); + fConst73 = (0.0 - (1.4142135623730951 * fConst65)); + fConst74 = (0.0 - (0.70710678118654757 * fConst67)); + fConst75 = (0.0 - (2.4568472851294949 * fConst24)); + fConst76 = (0.12956030605175081 * fConst32); + fConst77 = (2.8768166971227152e-17 * fConst32); + fConst78 = (0.051824122420700336 * fConst24); + fConst79 = (0.033660754908870889 * fConst35); + fConst80 = (0.019434045907762629 * fConst21); + fConst81 = (0.019434045907762633 * fConst21); + fConst82 = (0.0 - (0.92131773192356115 * fConst14)); + fConst83 = (0.0 - (2.1276921621409737 * fConst19)); + fConst84 = (0.0 - (1.5957691216057308 * fConst44)); + fConst85 = (0.0 - (4.7244256554467816e-16 * fConst19)); + fConst86 = (0.0 - (6.1421182128237417 * fConst41)); + fConst87 = (0.0 - (0.92131773192356159 * fConst46)); + fConst88 = (0.0 - (1.3638242119692871e-15 * fConst41)); + fConst89 = (0.019434045907762623 * fConst13); + fConst90 = (0.12956030605175084 * fConst32); + fConst91 = (5.7536333942454304e-17 * fConst32); + fConst92 = (0.0 - (0.92131773192356148 * fConst14)); + fConst93 = (0.0 - (1.5957691216057313 * fConst44)); + fConst94 = (0.0 - (2.456847285129498 * fConst24)); + fConst95 = (0.0 - (0.92131773192356192 * fConst46)); + fConst96 = (0.051824122420700267 * fConst24); + fConst97 = (0.019434045907762616 * fConst13); + fConst98 = (0.033660754908870882 * fConst35); + fConst99 = (0.019434045907762626 * fConst21); + fConst100 = (0.0 - (9.4488513108935631e-16 * fConst19)); + fConst101 = (0.0 - (2.456847285129494 * fConst24)); + fConst102 = (0.0 - (2.7276484239385742e-15 * fConst41)); + fConst103 = (0.0 - (2.4568472851294976 * fConst24)); + fConst104 = (0.0 - (1.5957691216057308 * fConst10)); + fConst105 = (fConst104 * fConst35); + fConst106 = ((0.0 - (4.3431334391370653 * fConst16)) * fConst32); + fConst107 = ((0.0 - ((2.8867513459481291 * fConst104) + (2.7639531957706835 * fConst10))) * fConst21); + fConst108 = (0.021093750000000005 * fConst105); + fConst109 = (0.0 - fConst105); + fConst110 = (0.0 - (1.4142135623730951 * fConst106)); + fConst111 = (0.0 - (0.5 * fConst107)); + fConst112 = (0.0 - (3.1401849173675503e-16 * fConst106)); + fConst113 = (0.010546875000000002 * fConst107); + fConst114 = (0.019434045907762623 * fConst14); + fConst115 = (0.0 - (1.0000000000000002 * fConst105)); + fConst116 = (0.0 - (0.50000000000000011 * fConst107)); + fConst117 = (0.021093749999999998 * fConst105); + fConst118 = (0.019434045907762616 * fConst14); + fConst119 = (0.010546874999999999 * fConst107); + fConst120 = (0.0 - (6.2803698347351007e-16 * fConst106)); + fConst121 = (0.026338897580074728 * fConst35); + fConst122 = (0.026338897580074724 * fConst35); + fConst123 = (0.045001699736364593 * fConst21); + fConst124 = (0.045001699736364587 * fConst21); + fConst125 = (0.052943176160428845 * fConst32); + fConst126 = (0.011706176702255417 * fConst18); + fConst127 = (0.0070590901547238332 * fConst24); + fConst128 = (0.0 - (1.2884797242127563e-16 * fConst19)); + fConst129 = (0.0 - (5.8273688116286149e-16 * fConst41)); + fConst130 = (0.0 - (0.34992181344801404 * fConst24)); + fConst131 = (0.0 - (0.48114249349102017 * fConst14)); + fConst132 = (0.0 - (0.58027968058390089 * fConst19)); + fConst133 = (0.0 - (1.3056292813137786 * fConst44)); + fConst134 = (0.0 - (2.624413600860108 * fConst41)); + fConst135 = (0.0 - (2.230751560731095 * fConst46)); + fConst136 = (0.0097062489627452973 * fConst13); + fConst137 = (0.052943176160428852 * fConst32); + fConst138 = (2.3511493268037518e-17 * fConst32); + fConst139 = (0.0 - (0.48114249349102034 * fConst14)); + fConst140 = (0.0 - (1.3056292813137791 * fConst44)); + fConst141 = (0.0 - (0.34992181344801421 * fConst24)); + fConst142 = (0.0 - (2.2307515607310959 * fConst46)); + fConst143 = (0.0070590901547238306 * fConst24); + fConst144 = (0.0097062489627452939 * fConst13); + fConst145 = (0.026338897580074721 * fConst35); + fConst146 = (0.045001699736364573 * fConst21); + fConst147 = (0.0 - (2.5769594484255127e-16 * fConst19)); + fConst148 = (0.0 - (0.34992181344801365 * fConst24)); + fConst149 = (0.0 - (1.165473762325723e-15 * fConst41)); + fConst150 = (0.0 - (0.34992181344801415 * fConst24)); + fConst151 = (0.052943176160428991 * fConst32); + fConst152 = (0.070590901547238516 * fConst32); + fConst153 = (0.0087796325266915921 * fConst35); + fConst154 = (0.026338897580074738 * fConst35); + fConst155 = (fConst21 * (0.0 - (1.7605101637794649 * fConst10))); + fConst156 = (0.052943176160428929 * fConst32); + fConst157 = (0.035118530106766334 * fConst18); + fConst158 = (0.026338897580074742 * fConst35); + fConst159 = (0.0087796325266915817 * fConst35); + fConst160 = (0.0 - (2.3211187223356089 * fConst19)); + fConst161 = (0.0 - (3.1492963210321352 * fConst24)); + fConst162 = (0.0 - (3.4992181344801496 * fConst41)); + fConst163 = (0.0 - (4.548983574824196 * fConst24)); + fConst164 = (0.0 - (0.48114249349102062 * fConst14)); + fConst165 = (0.0 - (1.7408390417517061 * fConst19)); + fConst166 = (0.0 - (0.43520976043792636 * fConst44)); + fConst167 = (0.0 - (2.3211187223356093 * fConst19)); + fConst168 = (0.0 - (3.1492963210321379 * fConst24)); + fConst169 = (0.0 - (2.6244136008601116 * fConst41)); + fConst170 = (0.0 - (0.22360679774997891 * fConst155)); + fConst171 = (0.0 - (3.4992181344801501 * fConst41)); + fConst172 = (0.029118746888235927 * fConst13); + fConst173 = (0.026338897580074745 * fConst35); + fConst174 = (0.013532684878709665 * fConst155); + fConst175 = (0.09176817201141016 * fConst24); + fConst176 = (0.0 - (1.443427480473062 * fConst14)); + fConst177 = (0.0 - (1.7408390417517088 * fConst19)); + fConst178 = (0.0 - (1.3056292813137793 * fConst44)); + fConst179 = (0.0 - (2.6244136008601155 * fConst41)); + fConst180 = (0.0 - (0.67082039324993681 * fConst155)); + fConst181 = (0.0 - (3.1492963210321285 * fConst24)); + fConst182 = (0.046824706809021746 * fConst18); + fConst183 = (0.0097062489627453216 * fConst13); + fConst184 = (0.0087796325266915939 * fConst35); + fConst185 = (0.0045108949595698946 * fConst155); + fConst186 = (0.091768172011410271 * fConst24); + fConst187 = (0.0 - (0.48114249349102112 * fConst14)); + fConst188 = (0.0 - (1.4434274804730622 * fConst14)); + fConst189 = (0.0 - (0.43520976043792686 * fConst44)); + fConst190 = (0.0 - (1.3056292813137795 * fConst44)); + fConst191 = (0.0 - (4.5489835748241987 * fConst24)); + fConst192 = (0.0 - (0.22360679774997916 * fConst155)); + fConst193 = (0.0 - (0.67082039324993692 * fConst155)); + fConst194 = (0.0 - (3.1492963210321339 * fConst24)); + fConst195 = (0.052943176160428963 * fConst32); + fConst196 = (0.070590901547238558 * fConst32); + fConst197 = (0.0 - (0.48114249349102095 * fConst14)); + fConst198 = (0.0 - (0.4352097604379267 * fConst44)); + fConst199 = (0.0 - (2.3211187223356085 * fConst19)); + fConst200 = (0.0 - (0.22360679774997907 * fConst155)); + fConst201 = (0.0 - (3.4992181344801487 * fConst41)); + fConst202 = (0.052943176160428942 * fConst32); + fConst203 = (0.035118530106766348 * fConst18); + fConst204 = (0.0097062489627453008 * fConst13); + fConst205 = (0.0087796325266915748 * fConst35); + fConst206 = (0.063531811392514792 * fConst24); + fConst207 = (0.004510894959569885 * fConst155); + fConst208 = (0.0 - (1.4434274804730625 * fConst14)); + fConst209 = (0.0 - (1.7408390417517057 * fConst19)); + fConst210 = (0.0 - (1.3056292813137798 * fConst44)); + fConst211 = (0.0 - (2.3211187223356098 * fConst19)); + fConst212 = (0.0 - (2.6244136008601107 * fConst41)); + fConst213 = (0.0 - (0.67082039324993703 * fConst155)); + fConst214 = (0.0 - (3.4992181344801505 * fConst41)); + fConst215 = (0.0 - (4.5489835748241934 * fConst24)); + fConst216 = (0.046824706809021698 * fConst18); + fConst217 = (0.07059090154723846 * fConst32); + fConst218 = (0.0 - (0.48114249349102228 * fConst14)); + fConst219 = (0.0 - (1.7408390417517114 * fConst19)); + fConst220 = (0.0 - (0.43520976043792792 * fConst44)); + fConst221 = (0.0 - (4.5489835748242058 * fConst24)); + fConst222 = (0.0 - (2.6244136008601191 * fConst41)); + fConst223 = (0.0 - (0.22360679774997969 * fConst155)); + fConst224 = (0.029118746888235913 * fConst13); + fConst225 = (0.026338897580074731 * fConst35); + fConst226 = (0.01353268487870966 * fConst155); + fConst227 = (0.063531811392514445 * fConst24); + fConst228 = (fConst32 * (0.0 - (3.0929010896773175 * fConst16))); + fConst229 = (0.0 - (0.97315860881060223 * fConst10)); + fConst230 = (fConst21 * (0.0 - ((1.5075567228888176 * fConst229) + (3.2276019669290172 * fConst10)))); + fConst231 = (fConst35 * fConst229); + fConst232 = (0.017117642829616801 * fConst228); + fConst233 = (0.035118530106766334 * fConst19); + fConst234 = (0.0 - (1.1313708498984762 * fConst228)); + fConst235 = (0.0 - (0.44721359549995782 * fConst231)); + fConst236 = (0.0 - (0.84852813742385691 * fConst228)); + fConst237 = (0.0 - (0.22360679774997891 * fConst230)); + fConst238 = (0.013532684878709665 * fConst230); + fConst239 = (0.027065369757419331 * fConst231); + fConst240 = (0.029118746888235927 * fConst14); + fConst241 = (0.022823523772822384 * fConst228); + fConst242 = (0.0045108949595698946 * fConst230); + fConst243 = (0.0090217899191397891 * fConst231); + fConst244 = (0.0097062489627453216 * fConst14); + fConst245 = (0.046824706809021746 * fConst19); + fConst246 = (0.0 - (1.3416407864998736 * fConst231)); + fConst247 = (0.0 - (0.84852813742385813 * fConst228)); + fConst248 = (0.0 - (0.67082039324993681 * fConst230)); + fConst249 = (0.0 - (0.44721359549995832 * fConst231)); + fConst250 = (0.0 - (1.3416407864998738 * fConst231)); + fConst251 = (0.0 - (0.22360679774997916 * fConst230)); + fConst252 = (0.0 - (0.67082039324993692 * fConst230)); + fConst253 = (0.0 - (0.44721359549995815 * fConst231)); + fConst254 = (0.0 - (0.22360679774997907 * fConst230)); + fConst255 = (0.0 - (1.1313708498984758 * fConst228)); + fConst256 = (0.017117642829616808 * fConst228); + fConst257 = (0.035118530106766348 * fConst19); + fConst258 = (0.00902178991913977 * fConst231); + fConst259 = (0.0097062489627453008 * fConst14); + fConst260 = (0.004510894959569885 * fConst230); + fConst261 = (0.0 - (1.3416407864998741 * fConst231)); + fConst262 = (0.0 - (0.84852813742385658 * fConst228)); + fConst263 = (0.0 - (0.67082039324993703 * fConst230)); + fConst264 = (0.0 - (1.1313708498984765 * fConst228)); + fConst265 = (0.0 - (0.44721359549995937 * fConst231)); + fConst266 = (0.0 - (0.84852813742385946 * fConst228)); + fConst267 = (0.0 - (0.22360679774997969 * fConst230)); + fConst268 = (0.022823523772822367 * fConst228); + fConst269 = (0.01353268487870966 * fConst230); + fConst270 = (0.027065369757419321 * fConst231); + fConst271 = (0.046824706809021698 * fConst19); + fConst272 = (0.029118746888235913 * fConst14); + fConst273 = (0.0 - (1.3056292813137786 * fConst10)); + fConst274 = (fConst21 * (0.0 - ((4.5226701686664557 * fConst273) + (1.4434274804730605 * fConst10)))); + fConst275 = (fConst32 * (0.0 - (1.8557406538063874 * fConst16))); + fConst276 = (0.028529404716028006 * fConst275); + fConst277 = (fConst273 * fConst35); + fConst278 = (0.011706176702255417 * fConst19); + fConst279 = (0.0 - (3.1401849173675503e-16 * fConst275)); + fConst280 = (0.0 - fConst277); + fConst281 = (0.0 - (1.4142135623730951 * fConst275)); + fConst282 = (0.0 - (0.5 * fConst274)); + fConst283 = (0.010086667768959437 * fConst274); + fConst284 = (0.020173335537918873 * fConst277); + fConst285 = (0.0097062489627452973 * fConst14); + fConst286 = (0.0 - (1.0000000000000002 * fConst277)); + fConst287 = (0.0 - (0.50000000000000011 * fConst274)); + fConst288 = (0.0097062489627452939 * fConst14); + fConst289 = (0.020173335537918866 * fConst277); + fConst290 = (0.010086667768959433 * fConst274); + fConst291 = (0.0 - (6.2803698347351007e-16 * fConst275)); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec14[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec15[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec16[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec12[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec11[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec0[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec20[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec24[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec21[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec28[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec29[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec30[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec26[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec25[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec34[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec35[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec36[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec31[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec17[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec40[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec44[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec45[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec43[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec46[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec42[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec41[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec50[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec51[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec52[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec48[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec47[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec37[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec60[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec61[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec59[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec62[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec58[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec57[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec65[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec66[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec64[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec63[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec56[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec70[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec71[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec69[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec68[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec67[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec72[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec73[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec77[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec78[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec76[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec75[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec74[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec79[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec80[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec81[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec82[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec83[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec84[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec85[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec90[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec91[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec89[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec92[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec88[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec87[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec86[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec93[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec94[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec95[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec96[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec97[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec98[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec99[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec100[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec101[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec102[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec103[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec104[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec105[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec106[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec107[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec108[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec109[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec110[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec111[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec112[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec113[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec114[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec115[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec116[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec117[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec118[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec119[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec120[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec121[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec122[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec123[l123] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev503"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22a9a70", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23251a0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22b4da0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22e79f0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23b3b30", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2390d40", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22c3640", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2379850", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22f5640", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2334b00", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x240bd10", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23435d0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22d6120", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2305e20", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x236bc90", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23165c0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x22db1a0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph9, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x231bcb0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph13, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2348620", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph14, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x234f5a0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph15, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23555e0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph16, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x235abc0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph19, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2381f10", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph21, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2396370", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph22, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x239f3c0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph23, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23a6240", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph25, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23ba900", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph26, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23c4ae0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph27, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23ce840", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph28, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23d85d0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph29, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23e30c0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph30, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23eae90", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph31, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23f3030", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph32, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23f9db0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph34, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24169c0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph35, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2424880", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph36, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24323e0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph37, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x243f4d0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph38, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x244ba30", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph39, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24567f0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph40, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24603e0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph41, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x246a650", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph42, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x247a1d0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph43, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24858f0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph44, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2492080", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph45, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x249dfb0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph46, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24ac450", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph47, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24b9e70", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph48, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24c9050", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph49, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24d7400", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph50, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24e5fc0", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph51, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24f2f80", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph52, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25024e0", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph53, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2511670", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph54, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x251c660", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph55, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2525d30", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph56, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2530420", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph57, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x253b970", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph58, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2545e50", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph59, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2550300", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph60, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x255b840", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph61, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25672e0", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph62, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2574270", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph63, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x257e860", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph64, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25880a0", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph65, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2591f60", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (fConst2 / fSlow2); + double fSlow8 = (1.0 / (fSlow7 + 1.0)); + double fSlow9 = (fConst3 / fSlow2); + double fSlow10 = mydsp_faustpower2_f(fSlow7); + double fSlow11 = (1.0 / (((fConst4 / fSlow2) + (3.0 * fSlow10)) + 1.0)); + double fSlow12 = (12.0 * fSlow10); + double fSlow13 = (fSlow12 + (fConst5 / fSlow2)); + double fSlow14 = (1.0 / ((fConst6 / fSlow2) + 1.0)); + double fSlow15 = (1.0 / (((fConst7 / fSlow2) + (6.4594326934833797 * fSlow10)) + 1.0)); + double fSlow16 = (25.837730773933519 * fSlow10); + double fSlow17 = (fSlow16 + (fConst8 / fSlow2)); + double fSlow18 = (fConst9 / fSlow2); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.012698412698412698 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow8 * ((fSlow3 * fTemp2) - (fSlow9 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.021994295969128601 * fTemp3); + double fTemp5 = (fRec3[0] * double(input6[i])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow11 * ((fSlow3 * fTemp5) - ((fSlow13 * fRec9[0]) + (fSlow12 * fRec10[0])))); + double fTemp6 = (fRec8[0] + (fSlow4 * fTemp5)); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph2 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.028394513999997331 * fTemp6); + double fTemp8 = (fRec3[0] * double(input12[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec15[0] = (fRec15[1] + fRec14[1]); + fRec13[0] = (fSlow15 * ((fSlow3 * fTemp8) - ((fSlow17 * fRec14[0]) + (fSlow16 * fRec15[0])))); + fRec16[0] = (fRec16[1] + fRec12[1]); + fRec12[0] = (fSlow14 * (fRec13[0] - (fSlow18 * fRec16[0]))); + double fTemp9 = (fRec12[0] + (fSlow4 * fTemp8)); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph3 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.033596842045264641 * fTemp9); + double fTemp11 = (fRec1[0] * (((fTemp1 + fTemp4) + fTemp7) + fTemp10)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph4 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (fRec3[0] * double(input3[i])); + fRec20[0] = (fRec20[1] + fRec19[1]); + fRec19[0] = (fSlow8 * ((fSlow3 * fTemp12) - (fSlow9 * fRec20[0]))); + double fTemp13 = (fRec19[0] + (fSlow4 * fTemp12)); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph5 = FAUSTFLOAT(fRec18[0]); + double fTemp14 = (fRec3[0] * double(input8[i])); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec24[0] = (fRec24[1] + fRec23[1]); + fRec22[0] = (fSlow11 * ((fSlow3 * fTemp14) - ((fSlow13 * fRec23[0]) + (fSlow12 * fRec24[0])))); + double fTemp15 = (fRec22[0] + (fSlow4 * fTemp14)); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph6 = FAUSTFLOAT(fRec21[0]); + double fTemp16 = (fConst20 * fTemp15); + double fTemp17 = (fRec3[0] * double(input13[i])); + fRec28[0] = (fRec28[1] + fRec27[1]); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec27[0] = (fSlow15 * ((fSlow3 * fTemp17) - ((fSlow17 * fRec28[0]) + (fSlow16 * fRec29[0])))); + fRec30[0] = (fRec30[1] + fRec26[1]); + fRec26[0] = (fSlow14 * (fRec27[0] - (fSlow18 * fRec30[0]))); + double fTemp18 = (fRec26[0] + (fSlow4 * fTemp17)); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph7 = FAUSTFLOAT(fRec25[0]); + double fTemp19 = (fRec3[0] * double(input15[i])); + fRec34[0] = (fRec34[1] + fRec33[1]); + fRec35[0] = (fRec35[1] + fRec34[1]); + fRec33[0] = (fSlow15 * ((fSlow3 * fTemp19) - ((fSlow17 * fRec34[0]) + (fSlow16 * fRec35[0])))); + fRec36[0] = (fRec36[1] + fRec32[1]); + fRec32[0] = (fSlow14 * (fRec33[0] - (fSlow18 * fRec36[0]))); + double fTemp20 = (fRec32[0] + (fSlow4 * fTemp19)); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph8 = FAUSTFLOAT(fRec31[0]); + double fTemp21 = (0.014197256999998666 * fTemp6); + double fTemp22 = (fRec1[0] * (((((fTemp1 + (fConst15 * fTemp13)) + fTemp16) + (fConst23 * fTemp18)) + (fConst25 * fTemp20)) - fTemp21)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph9 = FAUSTFLOAT(fRec17[0]); + output1[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (fRec3[0] * double(input1[i])); + fRec40[0] = (fRec40[1] + fRec39[1]); + fRec39[0] = (fSlow8 * ((fSlow3 * fTemp23) - (fSlow9 * fRec40[0]))); + double fTemp24 = (fRec39[0] + (fSlow4 * fTemp23)); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph10 = FAUSTFLOAT(fRec38[0]); + double fTemp25 = (fConst26 * fTemp15); + double fTemp26 = (fRec3[0] * double(input9[i])); + fRec44[0] = (fRec44[1] + fRec43[1]); + fRec45[0] = (fRec45[1] + fRec44[1]); + fRec43[0] = (fSlow15 * ((fSlow3 * fTemp26) - ((fSlow17 * fRec44[0]) + (fSlow16 * fRec45[0])))); + fRec46[0] = (fRec46[1] + fRec42[1]); + fRec42[0] = (fSlow14 * (fRec43[0] - (fSlow18 * fRec46[0]))); + double fTemp27 = (fRec42[0] + (fSlow4 * fTemp26)); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph11 = FAUSTFLOAT(fRec41[0]); + double fTemp28 = (fRec3[0] * double(input11[i])); + fRec50[0] = (fRec50[1] + fRec49[1]); + fRec51[0] = (fRec51[1] + fRec50[1]); + fRec49[0] = (fSlow15 * ((fSlow3 * fTemp28) - ((fSlow17 * fRec50[0]) + (fSlow16 * fRec51[0])))); + fRec52[0] = (fRec52[1] + fRec48[1]); + fRec48[0] = (fSlow14 * (fRec49[0] - (fSlow18 * fRec52[0]))); + double fTemp29 = (fRec48[0] + (fSlow4 * fTemp28)); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph12 = FAUSTFLOAT(fRec47[0]); + double fTemp30 = (fRec1[0] * ((((fConst15 * fTemp24) + (0.012698412698412698 * ((fTemp0 + fTemp25) + (fConst27 * fTemp27)))) + (fConst23 * fTemp29)) - fTemp21)); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph13 = FAUSTFLOAT(fRec37[0]); + output2[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fRec1[0] * ((fTemp16 + (0.012698412698412698 * (((fTemp0 + (fConst28 * fTemp13)) + (fConst29 * fTemp18)) + (fConst27 * fTemp20)))) - fTemp21)); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph14 = FAUSTFLOAT(fRec53[0]); + output3[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fRec1[0] * (((fConst25 * fTemp27) + (0.012698412698412698 * ((fTemp25 + (fTemp0 + (fConst28 * fTemp24))) + (fConst29 * fTemp29)))) - fTemp21)); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph15 = FAUSTFLOAT(fRec54[0]); + output4[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fRec1[0] * ((fTemp1 + fTemp7) - (fTemp4 + fTemp10))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph16 = FAUSTFLOAT(fRec55[0]); + output5[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fRec3[0] * double(input14[i])); + fRec60[0] = (fRec60[1] + fRec59[1]); + fRec61[0] = (fRec61[1] + fRec60[1]); + fRec59[0] = (fSlow15 * ((fSlow3 * fTemp34) - ((fSlow17 * fRec60[0]) + (fSlow16 * fRec61[0])))); + fRec62[0] = (fRec62[1] + fRec58[1]); + fRec58[0] = (fSlow14 * (fRec59[0] - (fSlow18 * fRec62[0]))); + double fTemp35 = (fRec58[0] + (fSlow4 * fTemp34)); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph17 = FAUSTFLOAT(fRec57[0]); + double fTemp36 = (fConst16 * ((fConst30 * fTemp15) + (fConst33 * fTemp35))); + double fTemp37 = (fRec3[0] * double(input7[i])); + fRec65[0] = (fRec65[1] + fRec64[1]); + fRec66[0] = (fRec66[1] + fRec65[1]); + fRec64[0] = (fSlow11 * ((fSlow3 * fTemp37) - ((fSlow13 * fRec65[0]) + (fSlow12 * fRec66[0])))); + double fTemp38 = (fRec64[0] + (fSlow4 * fTemp37)); + fRec63[0] = max((fRec63[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph18 = FAUSTFLOAT(fRec63[0]); + double fTemp39 = (0.022574955908289243 * fTemp0); + double fTemp40 = (0.027648561470568499 * fTemp3); + double fTemp41 = (0.01261978399999881 * fTemp6); + double fTemp42 = (fConst38 * fTemp20); + double fTemp43 = (0.010558468816293317 * fTemp9); + double fTemp44 = (fRec1[0] * ((fTemp36 + ((fConst10 * (((fConst34 * fTemp13) + (fConst36 * fTemp38)) + (fConst37 * fTemp18))) + (((fTemp39 + fTemp40) + fTemp41) + fTemp42))) - fTemp43)); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph19 = FAUSTFLOAT(fRec56[0]); + output6[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (fConst39 * fTemp15); + double fTemp46 = ((fTemp0 + fTemp45) + (fConst40 * fTemp27)); + double fTemp47 = (fConst42 * fTemp35); + double fTemp48 = (fTemp40 + fTemp41); + double fTemp49 = (fRec3[0] * double(input5[i])); + fRec70[0] = (fRec70[1] + fRec69[1]); + fRec71[0] = (fRec71[1] + fRec70[1]); + fRec69[0] = (fSlow11 * ((fSlow3 * fTemp49) - ((fSlow13 * fRec70[0]) + (fSlow12 * fRec71[0])))); + double fTemp50 = (fRec69[0] + (fSlow4 * fTemp49)); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph20 = FAUSTFLOAT(fRec68[0]); + double fTemp51 = (fRec1[0] * (((0.022574955908289243 * (fTemp46 + fTemp47)) + (fTemp48 + (fConst10 * (((fConst34 * fTemp24) + (fConst36 * fTemp50)) + (fConst37 * fTemp29))))) - fTemp43)); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph21 = FAUSTFLOAT(fRec67[0]); + output7[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (fTemp0 + (fConst43 * fTemp13)); + double fTemp53 = (fConst40 * fTemp20); + double fTemp54 = (fRec1[0] * (((fTemp36 + fTemp48) + (0.022574955908289243 * (((fTemp52 + (fConst45 * fTemp38)) + (fConst47 * fTemp18)) + fTemp53))) - fTemp43)); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph22 = FAUSTFLOAT(fRec72[0]); + output8[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (fConst38 * fTemp27); + double fTemp56 = (fTemp0 + (fConst43 * fTemp24)); + double fTemp57 = (fRec1[0] * (((fTemp48 + fTemp55) + (0.022574955908289243 * (fTemp47 + ((fTemp45 + (fTemp56 + (fConst45 * fTemp50))) + (fConst47 * fTemp29))))) - fTemp43)); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph23 = FAUSTFLOAT(fRec73[0]); + output9[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (fRec3[0] * double(input4[i])); + fRec77[0] = (fRec77[1] + fRec76[1]); + fRec78[0] = (fRec78[1] + fRec77[1]); + fRec76[0] = (fSlow11 * ((fSlow3 * fTemp58) - ((fSlow13 * fRec77[0]) + (fSlow12 * fRec78[0])))); + double fTemp59 = (fRec76[0] + (fSlow4 * fTemp58)); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph24 = FAUSTFLOAT(fRec75[0]); + double fTemp60 = (0.025239567999997631 * fTemp6); + double fTemp61 = (fRec1[0] * (((0.022574955908289243 * (fTemp0 + (fConst48 * fTemp20))) + ((fConst22 * ((0.011287477954144623 * fTemp18) + (0.011287477954144622 * fTemp29))) + ((fConst19 * ((1.5998055129555246e-17 * fTemp15) + (0.072048835120117657 * fTemp59))) + ((fConst14 * ((0.025473109945013343 * fTemp13) + (0.025473109945013336 * fTemp24))) + (fConst49 * fTemp27))))) - fTemp60)); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph25 = FAUSTFLOAT(fRec74[0]); + output10[i] = FAUSTFLOAT(fTemp61); + double fTemp62 = (fConst50 * fTemp24); + double fTemp63 = (fConst26 * fTemp59); + double fTemp64 = (fRec1[0] * (((fConst24 * ((0.10189243978005338 * fTemp20) + (0.1018924397800533 * fTemp27))) + ((fTemp62 + (fConst51 * fTemp29)) + (0.022574955908289243 * ((((fTemp0 + (fConst52 * fTemp13)) + fTemp63) + (fConst53 * fTemp15)) + (fConst54 * fTemp18))))) - fTemp60)); + fRec79[0] = max((fRec79[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph26 = FAUSTFLOAT(fRec79[0]); + output11[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fRec1[0] * (((0.022574955908289243 * (((((fTemp0 + (fConst52 * fTemp24)) + (fConst55 * fTemp13)) + (fConst56 * fTemp27)) + (fConst54 * fTemp29)) + (fConst57 * fTemp18))) + ((fConst19 * ((3.1996110259110492e-17 * fTemp15) + (0.072048835120117671 * fTemp59))) + (fConst58 * fTemp20))) - fTemp60)); + fRec80[0] = max((fRec80[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph27 = FAUSTFLOAT(fRec80[0]); + output12[i] = FAUSTFLOAT(fTemp65); + double fTemp66 = (fRec1[0] * ((((fConst59 * fTemp13) + (fConst60 * fTemp18)) + (0.022574955908289243 * (((((fTemp63 + (fTemp0 + (fConst55 * fTemp24))) + (fConst61 * fTemp15)) + (fConst62 * fTemp27)) + (fConst57 * fTemp29)) + (fConst63 * fTemp20)))) - fTemp60)); + fRec81[0] = max((fRec81[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph28 = FAUSTFLOAT(fRec81[0]); + output13[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = (fConst69 * fTemp15); + double fTemp68 = (fRec1[0] * (((0.031925808815477283 * ((fConst65 * fTemp38) + (fConst66 * fTemp35))) + ((fConst68 * fTemp18) + (fTemp42 + (fTemp67 + ((fConst50 * fTemp13) + (fTemp43 + (fTemp39 + fTemp41))))))) - fTemp40)); + fRec82[0] = max((fRec82[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph29 = FAUSTFLOAT(fRec82[0]); + output14[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = (fConst70 * fTemp35); + double fTemp70 = (fTemp41 + fTemp43); + double fTemp71 = (fRec1[0] * (((0.022574955908289243 * (fTemp46 + fTemp69)) + ((fConst68 * fTemp29) + ((fConst71 * fTemp50) + (fTemp62 + fTemp70)))) - fTemp40)); + fRec83[0] = max((fRec83[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph30 = FAUSTFLOAT(fRec83[0]); + output15[i] = FAUSTFLOAT(fTemp71); + double fTemp72 = (fRec1[0] * ((((fConst72 * fTemp35) + (fTemp67 + fTemp70)) + (0.022574955908289243 * (fTemp53 + ((fTemp52 + (fConst73 * fTemp38)) + (fConst74 * fTemp18))))) - fTemp40)); + fRec84[0] = max((fRec84[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp72)))))); + fVbargraph31 = FAUSTFLOAT(fRec84[0]); + output16[i] = FAUSTFLOAT(fTemp72); + double fTemp73 = (fRec1[0] * (((fTemp55 + fTemp70) + (0.022574955908289243 * (fTemp69 + ((fTemp45 + (fTemp56 + (fConst73 * fTemp50))) + (fConst74 * fTemp29))))) - fTemp40)); + fRec85[0] = max((fRec85[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph32 = FAUSTFLOAT(fRec85[0]); + output17[i] = FAUSTFLOAT(fTemp73); + double fTemp74 = (fTemp0 + fTemp3); + double fTemp75 = (fConst75 * fTemp20); + double fTemp76 = ((9.9655853669580557e-18 * fTemp15) + (0.044881006545161167 * fTemp59)); + double fTemp77 = (fRec3[0] * double(input10[i])); + fRec90[0] = (fRec90[1] + fRec89[1]); + fRec91[0] = (fRec91[1] + fRec90[1]); + fRec89[0] = (fSlow15 * ((fSlow3 * fTemp77) - ((fSlow17 * fRec90[0]) + (fSlow16 * fRec91[0])))); + fRec92[0] = (fRec92[1] + fRec88[1]); + fRec88[0] = (fSlow14 * (fRec89[0] - (fSlow18 * fRec92[0]))); + double fTemp78 = (fRec88[0] + (fSlow4 * fTemp77)); + fRec87[0] = max((fRec87[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph33 = FAUSTFLOAT(fRec87[0]); + double fTemp79 = (5.236595479505967e-18 * fTemp6); + double fTemp80 = (fConst78 * fTemp27); + double fTemp81 = ((0.019434045907762623 * fTemp13) + (0.019434045907762619 * fTemp24)); + double fTemp82 = (fConst79 * fTemp50); + double fTemp83 = (0.021480823570105497 * fTemp9); + double fTemp84 = (fRec1[0] * (((0.021093750000000001 * (fTemp74 + fTemp75)) + ((fConst16 * (((fConst18 * fTemp76) + (fConst76 * fTemp78)) + (fConst77 * fTemp35))) + ((fTemp79 + fTemp80) + (fConst10 * (((((fConst13 * fTemp81) + fTemp82) + (fConst79 * fTemp38)) + (fConst80 * fTemp29)) + (fConst81 * fTemp18)))))) - fTemp83)); + fRec86[0] = max((fRec86[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph34 = FAUSTFLOAT(fRec86[0]); + output18[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = (fConst24 * ((0.051824122420700336 * fTemp20) + (0.051824122420700287 * fTemp27))); + double fTemp86 = (fConst82 * fTemp13); + double fTemp87 = (fConst83 * fTemp59); + double fTemp88 = (fConst85 * fTemp15); + double fTemp89 = (fConst86 * fTemp78); + double fTemp90 = (fRec1[0] * ((fTemp85 + ((0.021093750000000001 * (((((((fTemp74 + fTemp86) + fTemp87) + (fConst84 * fTemp38)) + fTemp88) + fTemp89) + (fConst87 * fTemp18)) + (fConst88 * fTemp35))) + (fTemp79 + (fConst10 * ((fTemp82 + (fConst89 * fTemp24)) + (fConst81 * fTemp29)))))) - fTemp83)); + fRec93[0] = max((fRec93[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph35 = FAUSTFLOAT(fRec93[0]); + output19[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = ((1.9931170733916111e-17 * fTemp15) + (0.044881006545161174 * fTemp59)); + double fTemp92 = (fTemp0 + (fConst82 * fTemp24)); + double fTemp93 = (fConst92 * fTemp13); + double fTemp94 = (fConst94 * fTemp27); + double fTemp95 = (fConst96 * fTemp20); + double fTemp96 = (fRec1[0] * (((fConst16 * (((fConst18 * fTemp91) + (fConst90 * fTemp78)) + (fConst91 * fTemp35))) + ((0.021093750000000001 * (((((((fTemp3 + fTemp92) + fTemp93) + (fConst84 * fTemp50)) + (fConst93 * fTemp38)) + fTemp94) + (fConst87 * fTemp29)) + (fConst95 * fTemp18))) + (fTemp79 + fTemp95))) - fTemp83)); + fRec94[0] = max((fRec94[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph36 = FAUSTFLOAT(fRec94[0]); + output20[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = (fTemp0 + (fConst92 * fTemp24)); + double fTemp98 = (fConst100 * fTemp15); + double fTemp99 = (fConst101 * fTemp27); + double fTemp100 = (fConst103 * fTemp20); + double fTemp101 = (fRec1[0] * (((fTemp79 + (fConst10 * (((fConst97 * fTemp13) + (fConst98 * fTemp38)) + (fConst99 * fTemp18)))) + (0.021093750000000001 * ((((fTemp89 + ((((fTemp87 + (fTemp3 + fTemp97)) + (fConst93 * fTemp50)) + fTemp98) + fTemp99)) + (fConst95 * fTemp29)) + (fConst102 * fTemp35)) + fTemp100))) - fTemp83)); + fRec95[0] = max((fRec95[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp101)))))); + fVbargraph37 = FAUSTFLOAT(fRec95[0]); + output21[i] = FAUSTFLOAT(fTemp101); + double fTemp102 = (fTemp0 - fTemp3); + double fTemp103 = (fTemp79 + fTemp83); + double fTemp104 = (fRec1[0] * ((0.021093750000000001 * (fTemp75 + (fTemp102 + (fConst105 * fTemp50)))) + ((fConst106 * ((6.6238275600721768e-18 * fTemp35) + (0.029831067331307477 * fTemp78))) + ((fConst107 * ((0.010546875000000002 * fTemp18) + (0.010546875000000001 * fTemp29))) + ((fConst108 * fTemp38) + ((fConst19 * fTemp76) + ((fConst14 * fTemp81) + (fTemp80 + fTemp103)))))))); + fRec96[0] = max((fRec96[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph38 = FAUSTFLOAT(fRec96[0]); + output22[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = (fConst110 * fTemp78); + double fTemp106 = (fRec1[0] * ((0.021093750000000001 * ((((fTemp88 + ((fTemp87 + (fTemp86 + fTemp102)) + (fConst109 * fTemp38))) + fTemp105) + (fConst111 * fTemp18)) + (fConst112 * fTemp35))) + ((fConst113 * fTemp29) + ((fConst108 * fTemp50) + (fTemp85 + ((fConst114 * fTemp24) + fTemp103)))))); + fRec97[0] = max((fRec97[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph39 = FAUSTFLOAT(fRec97[0]); + output23[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = (fRec1[0] * ((fConst106 * ((1.3247655120144354e-17 * fTemp35) + (0.029831067331307481 * fTemp78))) + ((0.021093750000000001 * (((fTemp94 + (((fTemp93 - (fTemp3 - fTemp92)) + (fConst109 * fTemp50)) + (fConst115 * fTemp38))) + (fConst111 * fTemp29)) + (fConst116 * fTemp18))) + ((fConst19 * fTemp91) + (fTemp95 + fTemp103))))); + fRec98[0] = max((fRec98[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph40 = FAUSTFLOAT(fRec98[0]); + output24[i] = FAUSTFLOAT(fTemp107); + double fTemp108 = (fRec1[0] * ((((fConst117 * fTemp38) + ((fConst118 * fTemp13) + fTemp103)) + (fConst119 * fTemp18)) + (0.021093750000000001 * (fTemp100 + (((fTemp105 + (fTemp99 + (fTemp98 + ((fTemp87 - (fTemp3 - fTemp97)) + (fConst115 * fTemp50))))) + (fConst116 * fTemp29)) + (fConst120 * fTemp35)))))); + fRec99[0] = max((fRec99[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph41 = FAUSTFLOAT(fRec99[0]); + output25[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = ((0.0097062489627452956 * fTemp13) + (0.0097062489627452973 * fTemp24)); + double fTemp110 = (fConst121 * fTemp50); + double fTemp111 = (fConst123 * fTemp29); + double fTemp112 = (fConst127 * fTemp27); + double fTemp113 = (0.031605542669238249 * fTemp3); + double fTemp114 = (0.032806508796871948 * fTemp6); + double fTemp115 = (0.026333598483989317 * fTemp9); + double fTemp116 = ((fTemp113 + fTemp114) + fTemp115); + double fTemp117 = (fConst128 * fTemp15); + double fTemp118 = (fTemp0 + fTemp117); + double fTemp119 = (fConst129 * fTemp35); + double fTemp120 = (fConst130 * fTemp20); + double fTemp121 = (fRec1[0] * (((fConst10 * (((((fConst13 * fTemp109) + fTemp110) + (fConst122 * fTemp38)) + fTemp111) + (fConst124 * fTemp18))) + ((fConst16 * ((fConst125 * fTemp78) + (fConst126 * fTemp59))) + (fTemp112 + fTemp116))) + (0.02017333553791887 * ((fTemp118 + fTemp119) + fTemp120)))); + fRec100[0] = max((fRec100[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp121)))))); + fVbargraph42 = FAUSTFLOAT(fRec100[0]); + output26[i] = FAUSTFLOAT(fTemp121); + double fTemp122 = (fConst24 * ((0.0070590901547238384 * fTemp20) + (0.0070590901547238332 * fTemp27))); + double fTemp123 = (fConst132 * fTemp59); + double fTemp124 = ((fTemp0 + (fConst131 * fTemp13)) + fTemp123); + double fTemp125 = (fConst134 * fTemp78); + double fTemp126 = (fRec1[0] * (fTemp122 + ((0.02017333553791887 * (fTemp119 + (((fTemp117 + (fTemp124 + (fConst133 * fTemp38))) + fTemp125) + (fConst135 * fTemp18)))) + (fTemp116 + (fConst10 * (fTemp111 + (fTemp110 + (fConst136 * fTemp24)))))))); + fRec101[0] = max((fRec101[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp126)))))); + fVbargraph43 = FAUSTFLOAT(fRec101[0]); + output27[i] = FAUSTFLOAT(fTemp126); + double fTemp127 = ((5.19858676206982e-18 * fTemp15) + (0.011706176702255421 * fTemp59)); + double fTemp128 = ((fTemp0 + (fConst131 * fTemp24)) + (fConst139 * fTemp13)); + double fTemp129 = (fConst141 * fTemp27); + double fTemp130 = (fConst143 * fTemp20); + double fTemp131 = (fRec1[0] * ((fConst16 * (((fConst18 * fTemp127) + (fConst137 * fTemp78)) + (fConst138 * fTemp35))) + ((0.02017333553791887 * (((((fTemp128 + (fConst133 * fTemp50)) + (fConst140 * fTemp38)) + fTemp129) + (fConst135 * fTemp29)) + (fConst142 * fTemp18))) + (fTemp116 + fTemp130)))); + fRec102[0] = max((fRec102[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp131)))))); + fVbargraph44 = FAUSTFLOAT(fRec102[0]); + output28[i] = FAUSTFLOAT(fTemp131); + double fTemp132 = (fTemp123 + (fTemp0 + (fConst139 * fTemp24))); + double fTemp133 = (fConst147 * fTemp15); + double fTemp134 = (fConst148 * fTemp27); + double fTemp135 = (fConst150 * fTemp20); + double fTemp136 = (fRec1[0] * ((fTemp116 + (fConst10 * (((fConst144 * fTemp13) + (fConst145 * fTemp38)) + (fConst146 * fTemp18)))) + (0.02017333553791887 * ((((fTemp125 + (((fTemp132 + (fConst140 * fTemp50)) + fTemp133) + fTemp134)) + (fConst142 * fTemp29)) + (fConst149 * fTemp35)) + fTemp135)))); + fRec103[0] = max((fRec103[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp136)))))); + fVbargraph45 = FAUSTFLOAT(fRec103[0]); + output29[i] = FAUSTFLOAT(fTemp136); + double fTemp137 = (fConst24 * ((0.063531811392514598 * fTemp20) + (0.091768172011410243 * fTemp27))); + double fTemp138 = ((0.046824706809021746 * fTemp15) + (0.035118530106766375 * fTemp59)); + double fTemp139 = (fConst152 * fTemp35); + double fTemp140 = (0.02017333553791887 * fTemp0); + double fTemp141 = (0.010535180889746075 * fTemp3); + double fTemp142 = ((0.029118746888235916 * fTemp13) + (0.0097062489627453199 * fTemp24)); + double fTemp143 = ((0.013532684878709662 * fTemp18) + (0.0045108949595698937 * fTemp29)); + double fTemp144 = (0.01640325439843596 * fTemp6); + double fTemp145 = (0.020481687709769415 * fTemp9); + double fTemp146 = (fTemp144 + fTemp145); + double fTemp147 = (fRec1[0] * ((fTemp137 + ((fConst16 * (((fConst18 * fTemp138) + (fConst151 * fTemp78)) + fTemp139)) + (((fTemp140 + fTemp141) + (fConst10 * (((fConst13 * fTemp142) + (fConst153 * fTemp50)) + (fConst154 * fTemp38)))) + (fConst155 * fTemp143)))) - fTemp146)); + fRec104[0] = max((fRec104[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp147)))))); + fVbargraph46 = FAUSTFLOAT(fRec104[0]); + output30[i] = FAUSTFLOAT(fTemp147); + double fTemp148 = ((0.0045108949595698885 * fTemp18) + (0.013532684878709664 * fTemp29)); + double fTemp149 = ((0.0097062489627453077 * fTemp13) + (0.029118746888235923 * fTemp24)); + double fTemp150 = ((fTemp0 + (fConst160 * fTemp15)) + (fConst161 * fTemp27)); + double fTemp151 = (fConst163 * fTemp20); + double fTemp152 = (fRec1[0] * ((((fConst155 * fTemp148) + ((fConst16 * ((fConst156 * fTemp78) + (fConst157 * fTemp59))) + (fTemp141 + (fConst10 * (((fConst13 * fTemp149) + (fConst158 * fTemp50)) + (fConst159 * fTemp38)))))) + (0.02017333553791887 * ((fTemp150 + (fConst162 * fTemp35)) + fTemp151))) - fTemp146)); + fRec105[0] = max((fRec105[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp152)))))); + fVbargraph47 = FAUSTFLOAT(fRec105[0]); + output31[i] = FAUSTFLOAT(fTemp152); + double fTemp153 = ((fTemp0 + (fConst164 * fTemp13)) + (fConst165 * fTemp59)); + double fTemp154 = (fConst167 * fTemp15); + double fTemp155 = (fConst168 * fTemp27); + double fTemp156 = (fConst175 * fTemp20); + double fTemp157 = (fRec1[0] * (((0.02017333553791887 * ((((((fTemp153 + (fConst166 * fTemp38)) + fTemp154) + fTemp155) + (fConst169 * fTemp78)) + (fConst170 * fTemp18)) + (fConst171 * fTemp35))) + ((fConst10 * ((fConst172 * fTemp24) + (fConst173 * fTemp50))) + ((fConst174 * fTemp29) + (fTemp141 + fTemp156)))) - fTemp146)); + fRec106[0] = max((fRec106[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp157)))))); + fVbargraph48 = FAUSTFLOAT(fRec106[0]); + output32[i] = FAUSTFLOAT(fTemp157); + double fTemp158 = ((fTemp0 + (fConst176 * fTemp13)) + (fConst177 * fTemp59)); + double fTemp159 = (fConst181 * fTemp20); + double fTemp160 = (fConst186 * fTemp27); + double fTemp161 = (fRec1[0] * (((0.02017333553791887 * ((((fTemp158 + (fConst178 * fTemp38)) + (fConst179 * fTemp78)) + (fConst180 * fTemp18)) + fTemp159)) + ((fConst16 * (fTemp139 + (fConst182 * fTemp15))) + ((fConst10 * ((fConst183 * fTemp24) + (fConst184 * fTemp50))) + ((fConst185 * fTemp29) + (fTemp141 + fTemp160))))) - fTemp146)); + fRec107[0] = max((fRec107[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp161)))))); + fVbargraph49 = FAUSTFLOAT(fRec107[0]); + output33[i] = FAUSTFLOAT(fTemp161); + double fTemp162 = ((fTemp0 + (fConst187 * fTemp24)) + (fConst188 * fTemp13)); + double fTemp163 = (fConst191 * fTemp27); + double fTemp164 = (fConst194 * fTemp20); + double fTemp165 = ((0.046824706809021774 * fTemp15) + (0.035118530106766362 * fTemp59)); + double fTemp166 = (fRec1[0] * (((0.02017333553791887 * ((((((fTemp162 + (fConst189 * fTemp50)) + (fConst190 * fTemp38)) + fTemp163) + (fConst192 * fTemp29)) + (fConst193 * fTemp18)) + fTemp164)) + (fTemp141 + (fConst16 * (((fConst18 * fTemp165) + (fConst195 * fTemp78)) + (fConst196 * fTemp35))))) - fTemp146)); + fRec108[0] = max((fRec108[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp166)))))); + fVbargraph50 = FAUSTFLOAT(fRec108[0]); + output34[i] = FAUSTFLOAT(fTemp166); + double fTemp167 = (fConst24 * ((0.091768172011410187 * fTemp20) + (0.063531811392514695 * fTemp27))); + double fTemp168 = ((fTemp0 + (fConst188 * fTemp24)) + (fConst197 * fTemp13)); + double fTemp169 = (fConst199 * fTemp15); + double fTemp170 = (fRec1[0] * ((fTemp167 + ((0.02017333553791887 * ((((((fTemp168 + (fConst190 * fTemp50)) + (fConst198 * fTemp38)) + fTemp169) + (fConst193 * fTemp29)) + (fConst200 * fTemp18)) + (fConst201 * fTemp35))) + (fTemp141 + (fConst16 * ((fConst202 * fTemp78) + (fConst203 * fTemp59)))))) - fTemp146)); + fRec109[0] = max((fRec109[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp170)))))); + fVbargraph51 = FAUSTFLOAT(fRec109[0]); + output35[i] = FAUSTFLOAT(fTemp170); + double fTemp171 = (fConst206 * fTemp27); + double fTemp172 = ((fTemp0 + (fConst208 * fTemp24)) + (fConst209 * fTemp59)); + double fTemp173 = (fConst211 * fTemp15); + double fTemp174 = (fConst215 * fTemp20); + double fTemp175 = (fRec1[0] * ((((fConst10 * ((fConst204 * fTemp13) + (fConst205 * fTemp38))) + ((fTemp141 + fTemp171) + (fConst207 * fTemp18))) + (0.02017333553791887 * ((((((fTemp172 + (fConst210 * fTemp50)) + fTemp173) + (fConst212 * fTemp78)) + (fConst213 * fTemp29)) + (fConst214 * fTemp35)) + fTemp174))) - fTemp146)); + fRec110[0] = max((fRec110[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp175)))))); + fVbargraph52 = FAUSTFLOAT(fRec110[0]); + output36[i] = FAUSTFLOAT(fTemp175); + double fTemp176 = ((fTemp0 + (fConst218 * fTemp24)) + (fConst219 * fTemp59)); + double fTemp177 = (fConst221 * fTemp27); + double fTemp178 = (fConst227 * fTemp20); + double fTemp179 = (fRec1[0] * (((fConst16 * ((fConst216 * fTemp15) + (fConst217 * fTemp35))) + ((0.02017333553791887 * ((((fTemp176 + (fConst220 * fTemp50)) + fTemp177) + (fConst222 * fTemp78)) + (fConst223 * fTemp29))) + ((fConst10 * ((fConst224 * fTemp13) + (fConst225 * fTemp38))) + ((fConst226 * fTemp18) + (fTemp141 + fTemp178))))) - fTemp146)); + fRec111[0] = max((fRec111[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp179)))))); + fVbargraph53 = FAUSTFLOAT(fRec111[0]); + output37[i] = FAUSTFLOAT(fTemp179); + double fTemp180 = (fTemp141 + fTemp144); + double fTemp181 = (fRec1[0] * (((fConst228 * ((0.022823523772822384 * fTemp35) + (0.017117642829616822 * fTemp78))) + ((fConst230 * fTemp143) + ((fConst231 * ((0.027065369757419324 * fTemp38) + (0.0090217899191397874 * fTemp50))) + (fTemp137 + ((fConst19 * fTemp138) + ((fConst14 * fTemp142) + (fTemp140 + fTemp145))))))) - fTemp180)); + fRec112[0] = max((fRec112[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp181)))))); + fVbargraph54 = FAUSTFLOAT(fRec112[0]); + output38[i] = FAUSTFLOAT(fTemp181); + double fTemp182 = (fConst234 * fTemp35); + double fTemp183 = (fRec1[0] * ((((fConst230 * fTemp148) + ((fConst231 * ((0.009021789919139777 * fTemp38) + (0.027065369757419327 * fTemp50))) + ((fConst232 * fTemp78) + ((fConst14 * fTemp149) + (fTemp145 + (fConst233 * fTemp59)))))) + (0.02017333553791887 * (fTemp151 + (fTemp150 + fTemp182)))) - fTemp180)); + fRec113[0] = max((fRec113[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp183)))))); + fVbargraph55 = FAUSTFLOAT(fRec113[0]); + output39[i] = FAUSTFLOAT(fTemp183); + double fTemp184 = (fRec1[0] * (((0.02017333553791887 * (fTemp182 + (((fTemp155 + (fTemp154 + (fTemp153 + (fConst235 * fTemp38)))) + (fConst236 * fTemp78)) + (fConst237 * fTemp18)))) + ((fConst238 * fTemp29) + ((fConst239 * fTemp50) + ((fConst240 * fTemp24) + (fTemp145 + fTemp156))))) - fTemp180)); + fRec114[0] = max((fRec114[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp184)))))); + fVbargraph56 = FAUSTFLOAT(fRec114[0]); + output40[i] = FAUSTFLOAT(fTemp184); + double fTemp185 = (fRec1[0] * ((((fConst241 * fTemp35) + ((fConst242 * fTemp29) + ((fConst243 * fTemp50) + (fTemp160 + ((fConst244 * fTemp24) + ((fConst245 * fTemp15) + fTemp145)))))) + (0.02017333553791887 * (fTemp159 + (((fTemp158 + (fConst246 * fTemp38)) + (fConst247 * fTemp78)) + (fConst248 * fTemp18))))) - fTemp180)); + fRec115[0] = max((fRec115[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp185)))))); + fVbargraph57 = FAUSTFLOAT(fRec115[0]); + output41[i] = FAUSTFLOAT(fTemp185); + double fTemp186 = (fRec1[0] * (((0.02017333553791887 * (fTemp164 + (((fTemp163 + ((fTemp162 + (fConst249 * fTemp50)) + (fConst250 * fTemp38))) + (fConst251 * fTemp29)) + (fConst252 * fTemp18)))) + ((fTemp145 + (fConst19 * fTemp165)) + (fConst228 * ((0.022823523772822398 * fTemp35) + (0.017117642829616815 * fTemp78))))) - fTemp180)); + fRec116[0] = max((fRec116[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp186)))))); + fVbargraph58 = FAUSTFLOAT(fRec116[0]); + output42[i] = FAUSTFLOAT(fTemp186); + double fTemp187 = (fRec1[0] * (((0.02017333553791887 * ((((fTemp169 + ((fTemp168 + (fConst250 * fTemp50)) + (fConst253 * fTemp38))) + (fConst252 * fTemp29)) + (fConst254 * fTemp18)) + (fConst255 * fTemp35))) + ((fConst256 * fTemp78) + (fTemp167 + (fTemp145 + (fConst257 * fTemp59))))) - fTemp180)); + fRec117[0] = max((fRec117[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp187)))))); + fVbargraph59 = FAUSTFLOAT(fRec117[0]); + output43[i] = FAUSTFLOAT(fTemp187); + double fTemp188 = (fRec1[0] * (((((fConst258 * fTemp38) + (fTemp171 + (fTemp145 + (fConst259 * fTemp13)))) + (fConst260 * fTemp18)) + (0.02017333553791887 * (fTemp174 + ((((fTemp173 + (fTemp172 + (fConst261 * fTemp50))) + (fConst262 * fTemp78)) + (fConst263 * fTemp29)) + (fConst264 * fTemp35))))) - fTemp180)); + fRec118[0] = max((fRec118[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp188)))))); + fVbargraph60 = FAUSTFLOAT(fRec118[0]); + output44[i] = FAUSTFLOAT(fTemp188); + double fTemp189 = (fRec1[0] * (((0.02017333553791887 * (((fTemp177 + (fTemp176 + (fConst265 * fTemp50))) + (fConst266 * fTemp78)) + (fConst267 * fTemp29))) + ((fConst268 * fTemp35) + ((fConst269 * fTemp18) + ((fConst270 * fTemp38) + (fTemp178 + ((fConst271 * fTemp15) + (fTemp145 + (fConst272 * fTemp13)))))))) - fTemp180)); + fRec119[0] = max((fRec119[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp189)))))); + fVbargraph61 = FAUSTFLOAT(fRec119[0]); + output45[i] = FAUSTFLOAT(fTemp189); + double fTemp190 = (fConst279 * fTemp35); + double fTemp191 = (fTemp113 + fTemp115); + double fTemp192 = (fRec1[0] * ((((fConst274 * ((0.010086667768959435 * fTemp18) + (0.010086667768959437 * fTemp29))) + ((fConst276 * fTemp78) + ((fConst277 * ((0.02017333553791887 * fTemp38) + (0.020173335537918873 * fTemp50))) + ((fConst14 * fTemp109) + ((fConst278 * fTemp59) + (fTemp114 + fTemp112)))))) + (0.02017333553791887 * (fTemp120 + (fTemp118 + fTemp190)))) - fTemp191)); + fRec120[0] = max((fRec120[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp192)))))); + fVbargraph62 = FAUSTFLOAT(fRec120[0]); + output46[i] = FAUSTFLOAT(fTemp192); + double fTemp193 = (fConst281 * fTemp78); + double fTemp194 = (fRec1[0] * (((0.02017333553791887 * (fTemp190 + (((fTemp117 + (fTemp124 + (fConst280 * fTemp38))) + fTemp193) + (fConst282 * fTemp18)))) + ((fConst283 * fTemp29) + ((fConst284 * fTemp50) + (fTemp122 + ((fConst285 * fTemp24) + fTemp114))))) - fTemp191)); + fRec121[0] = max((fRec121[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp194)))))); + fVbargraph63 = FAUSTFLOAT(fRec121[0]); + output47[i] = FAUSTFLOAT(fTemp194); + double fTemp195 = (fRec1[0] * (((fConst275 * ((1.2669600797833527e-17 * fTemp35) + (0.028529404716028009 * fTemp78))) + ((0.02017333553791887 * (((fTemp129 + ((fTemp128 + (fConst280 * fTemp50)) + (fConst286 * fTemp38))) + (fConst282 * fTemp29)) + (fConst287 * fTemp18))) + ((fConst19 * fTemp127) + (fTemp114 + fTemp130)))) - fTemp191)); + fRec122[0] = max((fRec122[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp195)))))); + fVbargraph64 = FAUSTFLOAT(fRec122[0]); + output48[i] = FAUSTFLOAT(fTemp195); + double fTemp196 = (fRec1[0] * (((((fTemp114 + (fConst288 * fTemp13)) + (fConst289 * fTemp38)) + (fConst290 * fTemp18)) + (0.02017333553791887 * (fTemp135 + (((fTemp193 + (fTemp134 + (fTemp133 + (fTemp132 + (fConst286 * fTemp50))))) + (fConst287 * fTemp29)) + (fConst291 * fTemp35))))) - fTemp191)); + fRec123[0] = max((fRec123[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp196)))))); + fVbargraph65 = FAUSTFLOAT(fRec123[0]); + output49[i] = FAUSTFLOAT(fTemp196); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec13[1] = fRec13[0]; + fRec16[1] = fRec16[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec0[1] = fRec0[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec22[1] = fRec22[0]; + fRec21[1] = fRec21[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec27[1] = fRec27[0]; + fRec30[1] = fRec30[0]; + fRec26[1] = fRec26[0]; + fRec25[1] = fRec25[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec33[1] = fRec33[0]; + fRec36[1] = fRec36[0]; + fRec32[1] = fRec32[0]; + fRec31[1] = fRec31[0]; + fRec17[1] = fRec17[0]; + fRec40[1] = fRec40[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec43[1] = fRec43[0]; + fRec46[1] = fRec46[0]; + fRec42[1] = fRec42[0]; + fRec41[1] = fRec41[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec49[1] = fRec49[0]; + fRec52[1] = fRec52[0]; + fRec48[1] = fRec48[0]; + fRec47[1] = fRec47[0]; + fRec37[1] = fRec37[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec59[1] = fRec59[0]; + fRec62[1] = fRec62[0]; + fRec58[1] = fRec58[0]; + fRec57[1] = fRec57[0]; + fRec65[1] = fRec65[0]; + fRec66[1] = fRec66[0]; + fRec64[1] = fRec64[0]; + fRec63[1] = fRec63[0]; + fRec56[1] = fRec56[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec69[1] = fRec69[0]; + fRec68[1] = fRec68[0]; + fRec67[1] = fRec67[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec77[1] = fRec77[0]; + fRec78[1] = fRec78[0]; + fRec76[1] = fRec76[0]; + fRec75[1] = fRec75[0]; + fRec74[1] = fRec74[0]; + fRec79[1] = fRec79[0]; + fRec80[1] = fRec80[0]; + fRec81[1] = fRec81[0]; + fRec82[1] = fRec82[0]; + fRec83[1] = fRec83[0]; + fRec84[1] = fRec84[0]; + fRec85[1] = fRec85[0]; + fRec90[1] = fRec90[0]; + fRec91[1] = fRec91[0]; + fRec89[1] = fRec89[0]; + fRec92[1] = fRec92[0]; + fRec88[1] = fRec88[0]; + fRec87[1] = fRec87[0]; + fRec86[1] = fRec86[0]; + fRec93[1] = fRec93[0]; + fRec94[1] = fRec94[0]; + fRec95[1] = fRec95[0]; + fRec96[1] = fRec96[0]; + fRec97[1] = fRec97[0]; + fRec98[1] = fRec98[0]; + fRec99[1] = fRec99[0]; + fRec100[1] = fRec100[0]; + fRec101[1] = fRec101[0]; + fRec102[1] = fRec102[0]; + fRec103[1] = fRec103[0]; + fRec104[1] = fRec104[0]; + fRec105[1] = fRec105[0]; + fRec106[1] = fRec106[0]; + fRec107[1] = fRec107[0]; + fRec108[1] = fRec108[0]; + fRec109[1] = fRec109[0]; + fRec110[1] = fRec110[0]; + fRec111[1] = fRec111[0]; + fRec112[1] = fRec112[0]; + fRec113[1] = fRec113[0]; + fRec114[1] = fRec114[0]; + fRec115[1] = fRec115[0]; + fRec116[1] = fRec116[0]; + fRec117[1] = fRec117[0]; + fRec118[1] = fRec118[0]; + fRec119[1] = fRec119[0]; + fRec120[1] = fRec120[0]; + fRec121[1] = fRec121[0]; + fRec122[1] = fRec122[0]; + fRec123[1] = fRec123[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev504.cpp b/source/HOAUGens/HOADecLebedev504.cpp new file mode 100644 index 0000000000..3e3a757e3c --- /dev/null +++ b/source/HOAUGens/HOADecLebedev504.cpp @@ -0,0 +1,4705 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev504" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + FAUSTFLOAT fVbargraph2; + double fConst6; + double fConst7; + double fConst8; + double fRec14[2]; + double fRec15[2]; + double fRec13[2]; + double fConst9; + double fRec16[2]; + double fRec12[2]; + double fRec11[2]; + FAUSTFLOAT fVbargraph3; + double fConst10; + double fConst11; + double fConst12; + double fRec20[2]; + double fRec21[2]; + double fRec19[2]; + double fConst13; + double fRec22[2]; + double fRec23[2]; + double fRec18[2]; + double fRec17[2]; + FAUSTFLOAT fVbargraph4; + double fRec0[2]; + FAUSTFLOAT fVbargraph5; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fRec28[2]; + double fRec29[2]; + double fRec27[2]; + double fRec30[2]; + double fRec26[2]; + double fRec25[2]; + FAUSTFLOAT fVbargraph6; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fRec34[2]; + double fRec35[2]; + double fRec33[2]; + double fRec36[2]; + double fRec37[2]; + double fRec32[2]; + double fRec31[2]; + FAUSTFLOAT fVbargraph7; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fRec41[2]; + double fRec42[2]; + double fRec40[2]; + double fRec43[2]; + double fRec39[2]; + double fRec38[2]; + FAUSTFLOAT fVbargraph8; + double fConst28; + double fConst29; + double fConst30; + double fRec46[2]; + double fRec47[2]; + double fRec45[2]; + double fRec44[2]; + FAUSTFLOAT fVbargraph9; + double fConst31; + double fConst32; + double fConst33; + double fRec50[2]; + double fRec49[2]; + double fRec48[2]; + FAUSTFLOAT fVbargraph10; + double fConst34; + double fConst35; + double fRec54[2]; + double fRec55[2]; + double fRec53[2]; + double fRec56[2]; + double fRec57[2]; + double fRec52[2]; + double fRec51[2]; + FAUSTFLOAT fVbargraph11; + double fRec24[2]; + FAUSTFLOAT fVbargraph12; + double fConst36; + double fConst37; + double fRec62[2]; + double fRec63[2]; + double fRec61[2]; + double fRec64[2]; + double fRec60[2]; + double fRec59[2]; + FAUSTFLOAT fVbargraph13; + double fConst38; + double fConst39; + double fRec68[2]; + double fRec69[2]; + double fRec67[2]; + double fRec70[2]; + double fRec66[2]; + double fRec65[2]; + FAUSTFLOAT fVbargraph14; + double fRec73[2]; + double fRec72[2]; + double fRec71[2]; + FAUSTFLOAT fVbargraph15; + double fRec58[2]; + FAUSTFLOAT fVbargraph16; + double fConst40; + double fConst41; + double fConst42; + double fRec74[2]; + FAUSTFLOAT fVbargraph17; + double fRec75[2]; + FAUSTFLOAT fVbargraph18; + double fRec76[2]; + FAUSTFLOAT fVbargraph19; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fRec81[2]; + double fRec82[2]; + double fRec80[2]; + double fRec83[2]; + double fRec84[2]; + double fRec79[2]; + double fRec78[2]; + FAUSTFLOAT fVbargraph20; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fRec88[2]; + double fRec89[2]; + double fRec87[2]; + double fRec90[2]; + double fRec86[2]; + double fRec85[2]; + FAUSTFLOAT fVbargraph21; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fRec93[2]; + double fRec94[2]; + double fRec92[2]; + double fRec91[2]; + FAUSTFLOAT fVbargraph22; + double fConst56; + double fConst57; + double fConst58; + double fRec98[2]; + double fRec99[2]; + double fRec97[2]; + double fRec100[2]; + double fRec101[2]; + double fRec96[2]; + double fRec95[2]; + FAUSTFLOAT fVbargraph23; + double fConst59; + double fRec77[2]; + FAUSTFLOAT fVbargraph24; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fRec106[2]; + double fRec107[2]; + double fRec105[2]; + double fRec108[2]; + double fRec109[2]; + double fRec104[2]; + double fRec103[2]; + FAUSTFLOAT fVbargraph25; + double fConst66; + double fConst67; + double fRec112[2]; + double fRec113[2]; + double fRec111[2]; + double fRec110[2]; + FAUSTFLOAT fVbargraph26; + double fRec117[2]; + double fRec118[2]; + double fRec116[2]; + double fRec119[2]; + double fRec120[2]; + double fRec115[2]; + double fRec114[2]; + FAUSTFLOAT fVbargraph27; + double fRec102[2]; + FAUSTFLOAT fVbargraph28; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fRec121[2]; + FAUSTFLOAT fVbargraph29; + double fRec122[2]; + FAUSTFLOAT fVbargraph30; + double fConst75; + double fConst76; + double fRec127[2]; + double fRec128[2]; + double fRec126[2]; + double fRec129[2]; + double fRec130[2]; + double fRec125[2]; + double fRec124[2]; + FAUSTFLOAT fVbargraph31; + double fConst77; + double fRec134[2]; + double fRec135[2]; + double fRec133[2]; + double fRec136[2]; + double fRec137[2]; + double fRec132[2]; + double fRec131[2]; + FAUSTFLOAT fVbargraph32; + double fRec140[2]; + double fRec141[2]; + double fRec139[2]; + double fRec138[2]; + FAUSTFLOAT fVbargraph33; + double fConst78; + double fRec123[2]; + FAUSTFLOAT fVbargraph34; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fRec142[2]; + FAUSTFLOAT fVbargraph35; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fRec143[2]; + FAUSTFLOAT fVbargraph36; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fRec144[2]; + FAUSTFLOAT fVbargraph37; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fRec145[2]; + FAUSTFLOAT fVbargraph38; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fRec146[2]; + FAUSTFLOAT fVbargraph39; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fRec147[2]; + FAUSTFLOAT fVbargraph40; + double fConst121; + double fRec148[2]; + FAUSTFLOAT fVbargraph41; + double fConst122; + double fRec153[2]; + double fRec154[2]; + double fRec152[2]; + double fRec155[2]; + double fRec151[2]; + double fRec150[2]; + FAUSTFLOAT fVbargraph42; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fRec149[2]; + FAUSTFLOAT fVbargraph43; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fRec156[2]; + FAUSTFLOAT fVbargraph44; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fRec157[2]; + FAUSTFLOAT fVbargraph45; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fRec158[2]; + FAUSTFLOAT fVbargraph46; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fRec159[2]; + FAUSTFLOAT fVbargraph47; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fConst197; + double fConst198; + double fRec160[2]; + FAUSTFLOAT fVbargraph48; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fRec161[2]; + FAUSTFLOAT fVbargraph49; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fConst210; + double fConst211; + double fConst212; + double fRec162[2]; + FAUSTFLOAT fVbargraph50; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fRec163[2]; + FAUSTFLOAT fVbargraph51; + double fConst231; + double fConst232; + double fConst233; + double fConst234; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fConst239; + double fConst240; + double fRec164[2]; + FAUSTFLOAT fVbargraph52; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fConst253; + double fRec165[2]; + FAUSTFLOAT fVbargraph53; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fConst258; + double fConst259; + double fConst260; + double fConst261; + double fConst262; + double fConst263; + double fConst264; + double fConst265; + double fRec166[2]; + FAUSTFLOAT fVbargraph54; + double fConst266; + double fConst267; + double fConst268; + double fConst269; + double fConst270; + double fConst271; + double fConst272; + double fConst273; + double fConst274; + double fConst275; + double fRec167[2]; + FAUSTFLOAT fVbargraph55; + double fConst276; + double fConst277; + double fConst278; + double fConst279; + double fConst280; + double fConst281; + double fConst282; + double fConst283; + double fConst284; + double fConst285; + double fConst286; + double fConst287; + double fConst288; + double fConst289; + double fRec168[2]; + FAUSTFLOAT fVbargraph56; + double fConst290; + double fConst291; + double fConst292; + double fConst293; + double fConst294; + double fConst295; + double fConst296; + double fConst297; + double fConst298; + double fConst299; + double fConst300; + double fConst301; + double fConst302; + double fConst303; + double fConst304; + double fConst305; + double fConst306; + double fRec169[2]; + FAUSTFLOAT fVbargraph57; + double fConst307; + double fConst308; + double fConst309; + double fConst310; + double fConst311; + double fConst312; + double fConst313; + double fConst314; + double fConst315; + double fConst316; + double fConst317; + double fConst318; + double fConst319; + double fConst320; + double fConst321; + double fConst322; + double fConst323; + double fConst324; + double fConst325; + double fRec170[2]; + FAUSTFLOAT fVbargraph58; + double fConst326; + double fConst327; + double fConst328; + double fConst329; + double fConst330; + double fConst331; + double fConst332; + double fConst333; + double fConst334; + double fConst335; + double fConst336; + double fConst337; + double fConst338; + double fConst339; + double fRec171[2]; + FAUSTFLOAT fVbargraph59; + double fConst340; + double fConst341; + double fConst342; + double fConst343; + double fConst344; + double fConst345; + double fConst346; + double fConst347; + double fConst348; + double fConst349; + double fConst350; + double fConst351; + double fConst352; + double fConst353; + double fRec172[2]; + FAUSTFLOAT fVbargraph60; + double fConst354; + double fConst355; + double fConst356; + double fConst357; + double fConst358; + double fConst359; + double fConst360; + double fConst361; + double fConst362; + double fConst363; + double fConst364; + double fConst365; + double fConst366; + double fConst367; + double fConst368; + double fConst369; + double fConst370; + double fConst371; + double fRec173[2]; + FAUSTFLOAT fVbargraph61; + double fConst372; + double fConst373; + double fConst374; + double fConst375; + double fConst376; + double fConst377; + double fConst378; + double fConst379; + double fConst380; + double fConst381; + double fConst382; + double fConst383; + double fConst384; + double fConst385; + double fConst386; + double fConst387; + double fConst388; + double fConst389; + double fConst390; + double fConst391; + double fRec174[2]; + FAUSTFLOAT fVbargraph62; + double fConst392; + double fConst393; + double fConst394; + double fConst395; + double fConst396; + double fConst397; + double fConst398; + double fConst399; + double fConst400; + double fRec175[2]; + FAUSTFLOAT fVbargraph63; + double fConst401; + double fConst402; + double fConst403; + double fConst404; + double fConst405; + double fConst406; + double fConst407; + double fRec176[2]; + FAUSTFLOAT fVbargraph64; + double fConst408; + double fConst409; + double fConst410; + double fConst411; + double fConst412; + double fConst413; + double fConst414; + double fConst415; + double fConst416; + double fConst417; + double fConst418; + double fConst419; + double fRec177[2]; + FAUSTFLOAT fVbargraph65; + double fConst420; + double fConst421; + double fConst422; + double fConst423; + double fConst424; + double fConst425; + double fConst426; + double fConst427; + double fConst428; + double fConst429; + double fConst430; + double fConst431; + double fConst432; + double fConst433; + double fConst434; + double fRec178[2]; + FAUSTFLOAT fVbargraph66; + double fConst435; + double fConst436; + double fConst437; + double fConst438; + double fConst439; + double fConst440; + double fConst441; + double fConst442; + double fRec179[2]; + FAUSTFLOAT fVbargraph67; + double fConst443; + double fConst444; + double fConst445; + double fConst446; + double fConst447; + double fConst448; + double fConst449; + double fConst450; + double fRec180[2]; + FAUSTFLOAT fVbargraph68; + double fConst451; + double fConst452; + double fConst453; + double fConst454; + double fConst455; + double fConst456; + double fConst457; + double fConst458; + double fConst459; + double fConst460; + double fConst461; + double fConst462; + double fConst463; + double fConst464; + double fRec181[2]; + FAUSTFLOAT fVbargraph69; + double fConst465; + double fConst466; + double fConst467; + double fConst468; + double fConst469; + double fConst470; + double fConst471; + double fConst472; + double fConst473; + double fConst474; + double fConst475; + double fConst476; + double fConst477; + double fConst478; + double fConst479; + double fRec182[2]; + FAUSTFLOAT fVbargraph70; + double fConst480; + double fConst481; + double fConst482; + double fConst483; + double fConst484; + double fConst485; + double fConst486; + double fConst487; + double fConst488; + double fConst489; + double fConst490; + double fConst491; + double fConst492; + double fConst493; + double fConst494; + double fConst495; + double fConst496; + double fRec183[2]; + FAUSTFLOAT fVbargraph71; + double fConst497; + double fConst498; + double fConst499; + double fConst500; + double fConst501; + double fConst502; + double fConst503; + double fConst504; + double fConst505; + double fRec184[2]; + FAUSTFLOAT fVbargraph72; + double fConst506; + double fConst507; + double fConst508; + double fConst509; + double fConst510; + double fConst511; + double fRec185[2]; + FAUSTFLOAT fVbargraph73; + double fConst512; + double fConst513; + double fConst514; + double fConst515; + double fConst516; + double fConst517; + double fConst518; + double fConst519; + double fRec186[2]; + FAUSTFLOAT fVbargraph74; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev504"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + fConst6 = (394.77151028643527 / fConst0); + fConst7 = (625.22848971356643 / fConst0); + fConst8 = (1250.4569794271329 / fConst0); + fConst9 = (789.54302057287055 / fConst0); + fConst10 = (984.71160495892411 / fConst0); + fConst11 = (715.28839504107589 / fConst0); + fConst12 = (1430.5767900821518 / fConst0); + fConst13 = (1969.4232099178482 / fConst0); + fConst14 = double(tgamma(1.5)); + fConst15 = double(tgamma(3.0)); + fConst16 = double(tgamma(5.0)); + fConst17 = sqrt((7.0 * (fConst15 / fConst16))); + fConst18 = ((0.0 - (3.3851375012865379 * fConst14)) * fConst17); + fConst19 = double(tgamma(2.5)); + fConst20 = double(tgamma(7.0)); + fConst21 = sqrt((9.0 * (fConst15 / fConst20))); + fConst22 = ((0.0 - (11.283791670955125 * fConst19)) * fConst21); + fConst23 = double(tgamma(3.5)); + fConst24 = double(tgamma(1.0)); + fConst25 = sqrt((7.0 * (fConst24 / fConst20))); + fConst26 = (fConst23 * fConst25); + fConst27 = (0.081054939510132359 * fConst26); + fConst28 = sqrt((5.0 * (fConst24 / fConst16))); + fConst29 = (fConst19 * fConst28); + fConst30 = (0.04052746975506618 * fConst29); + fConst31 = sqrt((3.0 * (fConst24 / fConst15))); + fConst32 = (fConst14 * fConst31); + fConst33 = (0.02026373487753309 * fConst32); + fConst34 = (double(tgamma(4.5)) * sqrt((9.0 * (fConst24 / double(tgamma(9.0)))))); + fConst35 = (0.16210987902026472 * fConst34); + fConst36 = (0.0 - (3.1915382432114616 * fConst29)); + fConst37 = (0.0 - (6.3830764864229232 * fConst26)); + fConst38 = (0.0 - (0.70710678118654757 * fConst22)); + fConst39 = (0.0089791337293529845 * fConst18); + fConst40 = (0.0 - (1.5957691216057308 * fConst32)); + fConst41 = (0.0 - (0.70710678118654757 * fConst18)); + fConst42 = (0.0089791337293529845 * fConst22); + fConst43 = (0.050946219890026692 * fConst25); + fConst44 = double(tgamma(2.0)); + fConst45 = sqrt((9.0 * (fConst44 / double(tgamma(8.0))))); + fConst46 = (0.25217092292041182 * fConst45); + fConst47 = (0.036024417560058836 * fConst28); + fConst48 = double(tgamma(6.0)); + fConst49 = sqrt((7.0 * (fConst44 / fConst48))); + fConst50 = (0.12736554972506672 * fConst49); + fConst51 = (0.22515260975036763 * fConst21); + fConst52 = (0.025473109945013343 * fConst31); + fConst53 = double(tgamma(4.0)); + fConst54 = sqrt((5.0 * (fConst44 / fConst53))); + fConst55 = (0.054036626340088233 * fConst54); + fConst56 = (0.057314497376279992 * fConst17); + fConst57 = sqrt((9.0 * (fConst53 / fConst48))); + fConst58 = (0.02251526097503671 * fConst57); + fConst59 = (0.072048835120117685 * fConst34); + fConst60 = (0.0 - (1.595769121605731 * fConst29)); + fConst61 = (0.0 - (2.256758334191026 * fConst26)); + fConst62 = (fConst19 * fConst49); + fConst63 = (0.0 - (5.6418958354775643 * fConst62)); + fConst64 = (fConst23 * fConst45); + fConst65 = (0.0 - (11.170383851240118 * fConst64)); + fConst66 = (fConst19 * fConst21); + fConst67 = (0.0 - (9.9735570100358153 * fConst66)); + fConst68 = (0.0 - (1.1283791670955128 * fConst32)); + fConst69 = (fConst14 * fConst54); + fConst70 = (0.0 - (2.3936536824085959 * fConst69)); + fConst71 = (fConst14 * fConst17); + fConst72 = (0.0 - (2.5388531259649025 * fConst71)); + fConst73 = (fConst14 * fConst57); + fConst74 = (0.0 - (0.99735570100357918 * fConst73)); + fConst75 = (0.0 - (4.5135166683820485 * fConst26)); + fConst76 = (0.0 - (12.766152972845845 * fConst34)); + fConst77 = (1.3574799921485692e-16 * fConst34); + fConst78 = (0.10189243978005338 * fConst26); + fConst79 = (1.3574799921485695e-16 * fConst34); + fConst80 = (0.011287477954144623 * fConst18); + fConst81 = (0.025473109945013343 * fConst32); + fConst82 = (0.0 - (1.1283791670955126 * fConst32)); + fConst83 = (0.0 - (7.0866384831701748e-16 * fConst29)); + fConst84 = (0.0 - (0.5 * fConst18)); + fConst85 = (0.0 - (1.5700924586837752e-16 * fConst22)); + fConst86 = (0.0 - (12.766152972845846 * fConst34)); + fConst87 = (0.0 - (1.128379167095513 * fConst32)); + fConst88 = (0.0 - (4.5135166683820547 * fConst26)); + fConst89 = (0.0 - (0.50000000000000011 * fConst18)); + fConst90 = (2.7149599842971385e-16 * fConst34); + fConst91 = (0.10189243978005329 * fConst26); + fConst92 = (2.714959984297139e-16 * fConst34); + fConst93 = (0.01128747795414462 * fConst18); + fConst94 = (0.025473109945013332 * fConst32); + fConst95 = (0.0 - (1.417327696634035e-15 * fConst29)); + fConst96 = (0.0 - (4.5135166683820476 * fConst26)); + fConst97 = (0.0 - (4.5135166683820538 * fConst26)); + fConst98 = (0.0 - (3.1401849173675503e-16 * fConst22)); + fConst99 = (0.0 - (1.6925687506432687 * fConst14)); + fConst100 = (fConst99 * fConst54); + fConst101 = (0.0 - (3.9894228040143274 * fConst19)); + fConst102 = (fConst101 * fConst49); + fConst103 = ((0.0 - (7.898654169668589 * fConst23)) * fConst45); + fConst104 = (0.0 - ((3.5355339059327373 * fConst99) + (2.3936536824085963 * fConst14))); + fConst105 = (fConst104 * fConst17); + fConst106 = ((0.0 - ((4.9497474683058318 * fConst101) + (5.6418958354775643 * fConst19))) * fConst21); + fConst107 = ((0.0 - ((2.4748737341529159 * fConst104) + (4.0 * fConst99))) * fConst57); + fConst108 = (0.010641936271825759 * fConst107); + fConst109 = (0.050946219890026692 * fConst26); + fConst110 = (0.036024417560058836 * fConst29); + fConst111 = (0.0 - (1.4142135623730951 * fConst102)); + fConst112 = (0.0 - (1.4142135623730951 * fConst103)); + fConst113 = (0.0 - (0.70710678118654757 * fConst106)); + fConst114 = (0.015962904407738641 * fConst105); + fConst115 = (0.031925808815477283 * fConst100); + fConst116 = (0.0 - (1.4142135623730951 * fConst100)); + fConst117 = (0.0 - (0.70710678118654757 * fConst105)); + fConst118 = (0.0 - (0.47140452079103168 * fConst107)); + fConst119 = (0.015962904407738641 * fConst106); + fConst120 = (0.031925808815477283 * fConst102); + fConst121 = (0.031925808815477283 * fConst103); + fConst122 = (0.12956030605175081 * fConst49); + fConst123 = (2.8768166971227152e-17 * fConst49); + fConst124 = (0.14960335515053727 * fConst21); + fConst125 = (3.3218617889860196e-17 * fConst21); + fConst126 = ((0.0 - (2.6596152026762163 * fConst14)) * fConst57); + fConst127 = (0.051824122420700336 * fConst25); + fConst128 = (0.20944469721075218 * fConst45); + fConst129 = (0.033660754908870889 * fConst54); + fConst130 = (0.019434045907762629 * fConst17); + fConst131 = (0.019434045907762633 * fConst17); + fConst132 = (5.6373863931755746e-17 * fConst34); + fConst133 = (0.0 - (2.4568472851294949 * fConst26)); + fConst134 = (0.0 - (9.929230089991206 * fConst64)); + fConst135 = (0.0 - (5.6738457657092614 * fConst34)); + fConst136 = (0.0 - (0.92131773192356115 * fConst32)); + fConst137 = (0.0 - (2.1276921621409737 * fConst29)); + fConst138 = (0.0 - (1.5957691216057308 * fConst69)); + fConst139 = (0.0 - (4.7244256554467816e-16 * fConst29)); + fConst140 = (0.0 - (6.1421182128237417 * fConst62)); + fConst141 = (0.0 - (0.92131773192356159 * fConst71)); + fConst142 = (0.0 - (1.3638242119692871e-15 * fConst62)); + fConst143 = (0.0 - (7.0923072071365816 * fConst66)); + fConst144 = (0.0 - (0.33333333333333331 * fConst126)); + fConst145 = (0.0 - (1.5748085518155944e-15 * fConst66)); + fConst146 = (0.0 - (5.6738457657092622 * fConst34)); + fConst147 = (0.019434045907762623 * fConst31); + fConst148 = (5.6373863931755758e-17 * fConst34); + fConst149 = (0.007031250000000001 * fConst126); + fConst150 = (0.20944469721075201 * fConst45); + fConst151 = (0.0 - (0.92131773192356148 * fConst32)); + fConst152 = (0.0 - (1.5957691216057313 * fConst69)); + fConst153 = (0.0 - (2.456847285129498 * fConst26)); + fConst154 = (0.0 - (0.92131773192356192 * fConst71)); + fConst155 = (0.0 - (9.9292300899912185 * fConst64)); + fConst156 = (0.0 - (0.33333333333333343 * fConst126)); + fConst157 = (0.051824122420700267 * fConst25); + fConst158 = (0.20944469721075193 * fConst45); + fConst159 = (0.12956030605175084 * fConst49); + fConst160 = (5.7536333942454304e-17 * fConst49); + fConst161 = (0.14960335515053733 * fConst21); + fConst162 = (6.6437235779720392e-17 * fConst21); + fConst163 = (1.1274772786351149e-16 * fConst34); + fConst164 = (0.019434045907762616 * fConst31); + fConst165 = (0.033660754908870882 * fConst54); + fConst166 = (0.019434045907762626 * fConst17); + fConst167 = (1.1274772786351152e-16 * fConst34); + fConst168 = (0.0070312499999999993 * fConst126); + fConst169 = (0.0 - (9.4488513108935631e-16 * fConst29)); + fConst170 = (0.0 - (2.456847285129494 * fConst26)); + fConst171 = (0.0 - (2.7276484239385742e-15 * fConst62)); + fConst172 = (0.0 - (2.4568472851294976 * fConst26)); + fConst173 = (0.0 - (9.9292300899912025 * fConst64)); + fConst174 = (0.0 - (3.1496171036311889e-15 * fConst66)); + fConst175 = (0.0 - (9.9292300899912167 * fConst64)); + fConst176 = (0.0 - (4.3431334391370653 * fConst19)); + fConst177 = ((0.0 - ((4.0414518843273806 * fConst176) + (7.5225277806367483 * fConst19))) * fConst21); + fConst178 = (0.0 - (1.5957691216057308 * fConst14)); + fConst179 = (0.0 - ((2.8867513459481291 * fConst178) + (2.7639531957706835 * fConst14))); + fConst180 = ((0.0 - ((2.0207259421636903 * fConst179) + (4.0 * fConst178))) * fConst57); + fConst181 = (fConst176 * fConst49); + fConst182 = (fConst179 * fConst17); + fConst183 = (fConst178 * fConst54); + fConst184 = (0.021093750000000005 * fConst183); + fConst185 = (0.051824122420700336 * fConst26); + fConst186 = ((0.0 - (9.9292300899912096 * fConst23)) * fConst45); + fConst187 = (0.021093750000000012 * fConst186); + fConst188 = (0.0 - (0.99999999999999967 * fConst186)); + fConst189 = (0.0 - fConst183); + fConst190 = (0.0 - (1.4142135623730951 * fConst181)); + fConst191 = (0.0 - (0.5 * fConst182)); + fConst192 = (0.0 - (3.1401849173675503e-16 * fConst181)); + fConst193 = (0.0 - (0.70710678118654757 * fConst177)); + fConst194 = (0.0 - (0.33333333333333331 * fConst180)); + fConst195 = (0.0 - (1.5700924586837752e-16 * fConst177)); + fConst196 = (0.010546875000000002 * fConst182); + fConst197 = (0.019434045907762623 * fConst32); + fConst198 = (0.007031250000000001 * fConst180); + fConst199 = (0.0 - (1.0000000000000002 * fConst183)); + fConst200 = (0.0 - (0.50000000000000011 * fConst182)); + fConst201 = (0.0 - (1.0000000000000009 * fConst186)); + fConst202 = (0.0 - (0.33333333333333343 * fConst180)); + fConst203 = (0.051824122420700267 * fConst26); + fConst204 = (0.021093749999999988 * fConst186); + fConst205 = (0.010546874999999999 * fConst182); + fConst206 = (0.021093749999999998 * fConst183); + fConst207 = (0.019434045907762616 * fConst32); + fConst208 = (0.0070312499999999993 * fConst180); + fConst209 = (0.0 - (6.2803698347351007e-16 * fConst181)); + fConst210 = (0.0 - (0.99999999999999933 * fConst186)); + fConst211 = (0.0 - (3.1401849173675503e-16 * fConst177)); + fConst212 = (0.0 - (1.0000000000000007 * fConst186)); + fConst213 = (0.026338897580074728 * fConst54); + fConst214 = (0.026338897580074724 * fConst54); + fConst215 = (0.045001699736364593 * fConst17); + fConst216 = (0.045001699736364587 * fConst17); + fConst217 = (0.059861130863806261 * fConst57); + fConst218 = (0.059861130863806254 * fConst57); + fConst219 = (0.052943176160428845 * fConst49); + fConst220 = (0.011706176702255417 * fConst28); + fConst221 = (0.13834572466301867 * fConst21); + fConst222 = (0.0070590901547238332 * fConst25); + fConst223 = (0.044696311044975172 * fConst45); + fConst224 = (0.0 - (1.2884797242127563e-16 * fConst29)); + fConst225 = (0.0 - (5.8273688116286149e-16 * fConst62)); + fConst226 = (0.0 - (0.34992181344801404 * fConst26)); + fConst227 = (0.0 - (1.9878387281720961e-16 * fConst34)); + fConst228 = (0.0 - (1.522748764978713e-15 * fConst66)); + fConst229 = (0.0 - (2.2156133258658022 * fConst64)); + fConst230 = (0.0 - (0.42202158587919975 * fConst34)); + fConst231 = (0.0 - (0.48114249349102017 * fConst32)); + fConst232 = (0.0 - (0.58027968058390089 * fConst29)); + fConst233 = (0.0 - (1.3056292813137786 * fConst69)); + fConst234 = (0.0 - (2.624413600860108 * fConst62)); + fConst235 = (0.0 - (2.230751560731095 * fConst71)); + fConst236 = (0.0 - (6.8578507705370146 * fConst66)); + fConst237 = (0.0 - (2.9673392757131363 * fConst73)); + fConst238 = (0.044696311044975207 * fConst45); + fConst239 = (0.0097062489627452973 * fConst31); + fConst240 = (4.0101337658685596e-18 * fConst34); + fConst241 = (0.0 - (0.48114249349102034 * fConst32)); + fConst242 = (0.0 - (1.3056292813137791 * fConst69)); + fConst243 = (0.0 - (0.34992181344801421 * fConst26)); + fConst244 = (0.0 - (2.2307515607310959 * fConst71)); + fConst245 = (0.0 - (2.2156133258658035 * fConst64)); + fConst246 = (0.0 - (2.9673392757131376 * fConst73)); + fConst247 = (0.0070590901547238306 * fConst25); + fConst248 = (0.044696311044975165 * fConst45); + fConst249 = (0.052943176160428852 * fConst49); + fConst250 = (2.3511493268037518e-17 * fConst49); + fConst251 = (0.1383457246630187 * fConst21); + fConst252 = (6.1437843551734282e-17 * fConst21); + fConst253 = (8.0202675317371177e-18 * fConst34); + fConst254 = (8.0202675317371192e-18 * fConst34); + fConst255 = (0.0097062489627452939 * fConst31); + fConst256 = (0.026338897580074721 * fConst54); + fConst257 = (0.045001699736364573 * fConst17); + fConst258 = (0.05986113086380624 * fConst57); + fConst259 = (0.0 - (2.5769594484255127e-16 * fConst29)); + fConst260 = (0.0 - (0.34992181344801365 * fConst26)); + fConst261 = (0.0 - (1.165473762325723e-15 * fConst62)); + fConst262 = (0.0 - (0.34992181344801415 * fConst26)); + fConst263 = (0.0 - (2.2156133258658 * fConst64)); + fConst264 = (0.0 - (3.0454975299574259e-15 * fConst66)); + fConst265 = (0.0 - (2.2156133258658031 * fConst64)); + fConst266 = (0.19368401452822653 * fConst45); + fConst267 = (0.13408893313492565 * fConst45); + fConst268 = ((0.0 - (3.7301790647785582 * fConst19)) * fConst21); + fConst269 = (0.0 - (1.7605101637794649 * fConst14)); + fConst270 = (((1.0552897060221724 * fConst269) - (3.8926344352424089 * fConst14)) * fConst57); + fConst271 = (0.052943176160428991 * fConst49); + fConst272 = (0.070590901547238516 * fConst49); + fConst273 = (fConst269 * fConst17); + fConst274 = (0.0087796325266915921 * fConst54); + fConst275 = (0.026338897580074738 * fConst54); + fConst276 = (0.0 - (2.3211187223356089 * fConst29)); + fConst277 = (0.0 - (3.1492963210321352 * fConst26)); + fConst278 = (0.0 - (3.4992181344801496 * fConst62)); + fConst279 = (0.0 - (4.548983574824196 * fConst26)); + fConst280 = (0.0 - (10.128518061100836 * fConst34)); + fConst281 = (0.0 - (6.6468399775974225 * fConst64)); + fConst282 = (0.0 - (0.56568542494923812 * fConst268)); + fConst283 = (0.0 - (9.600991078751834 * fConst64)); + fConst284 = (0.052943176160428929 * fConst49); + fConst285 = (0.035118530106766334 * fConst28); + fConst286 = (0.026338897580074742 * fConst54); + fConst287 = (0.0087796325266915817 * fConst54); + fConst288 = (0.0085588214148084006 * fConst268); + fConst289 = (0.059595081393300449 * fConst34); + fConst290 = (0.09176817201141016 * fConst25); + fConst291 = (0.19368401452822634 * fConst45); + fConst292 = (0.0 - (0.48114249349102062 * fConst32)); + fConst293 = (0.0 - (1.7408390417517061 * fConst29)); + fConst294 = (0.0 - (0.43520976043792636 * fConst69)); + fConst295 = (0.0 - (2.3211187223356093 * fConst29)); + fConst296 = (0.0 - (3.1492963210321379 * fConst26)); + fConst297 = (0.0 - (2.6244136008601116 * fConst62)); + fConst298 = (0.0 - (0.22360679774997891 * fConst273)); + fConst299 = (0.0 - (3.4992181344801501 * fConst62)); + fConst300 = (0.0 - (6.6468399775974278 * fConst64)); + fConst301 = (0.0 - (0.42426406871192845 * fConst268)); + fConst302 = (0.0 - (0.14907119849998593 * fConst270)); + fConst303 = (0.029118746888235927 * fConst31); + fConst304 = (0.026338897580074745 * fConst54); + fConst305 = (0.009021789919139777 * fConst270); + fConst306 = (0.013532684878709665 * fConst273); + fConst307 = (0.0 - (6.6468399775974083 * fConst64)); + fConst308 = (0.0 - (1.443427480473062 * fConst32)); + fConst309 = (0.0 - (1.7408390417517088 * fConst29)); + fConst310 = (0.0 - (1.3056292813137793 * fConst69)); + fConst311 = (0.0 - (2.6244136008601155 * fConst62)); + fConst312 = (0.0 - (0.67082039324993681 * fConst273)); + fConst313 = (0.0 - (3.1492963210321285 * fConst26)); + fConst314 = (0.0 - (10.128518061100845 * fConst34)); + fConst315 = (0.0 - (0.42426406871192907 * fConst268)); + fConst316 = (0.0 - (0.44721359549995787 * fConst270)); + fConst317 = (0.091768172011410271 * fConst25); + fConst318 = (0.19368401452822659 * fConst45); + fConst319 = (0.046824706809021746 * fConst28); + fConst320 = (0.0097062489627453216 * fConst31); + fConst321 = (0.0087796325266915939 * fConst54); + fConst322 = (0.011411761886411192 * fConst268); + fConst323 = (0.0030072633063799293 * fConst270); + fConst324 = (0.0045108949595698946 * fConst273); + fConst325 = (0.059595081393300019 * fConst34); + fConst326 = (0.0 - (0.48114249349102112 * fConst32)); + fConst327 = (0.0 - (1.4434274804730622 * fConst32)); + fConst328 = (0.0 - (0.43520976043792686 * fConst69)); + fConst329 = (0.0 - (1.3056292813137795 * fConst69)); + fConst330 = (0.0 - (4.5489835748241987 * fConst26)); + fConst331 = (0.0 - (0.22360679774997916 * fConst273)); + fConst332 = (0.0 - (0.67082039324993692 * fConst273)); + fConst333 = (0.0 - (3.1492963210321339 * fConst26)); + fConst334 = (0.0 - (9.6009910787518393 * fConst64)); + fConst335 = (0.0 - (0.1490711984999861 * fConst270)); + fConst336 = (0.0 - (0.44721359549995793 * fConst270)); + fConst337 = (0.0 - (6.6468399775974198 * fConst64)); + fConst338 = (0.052943176160428963 * fConst49); + fConst339 = (0.070590901547238558 * fConst49); + fConst340 = (0.13408893313492587 * fConst45); + fConst341 = (0.19368401452822642 * fConst45); + fConst342 = (0.0 - (0.48114249349102095 * fConst32)); + fConst343 = (0.0 - (0.4352097604379267 * fConst69)); + fConst344 = (0.0 - (2.3211187223356085 * fConst29)); + fConst345 = (0.0 - (0.22360679774997907 * fConst273)); + fConst346 = (0.0 - (3.4992181344801487 * fConst62)); + fConst347 = (0.0 - (10.12851806110084 * fConst34)); + fConst348 = (0.0 - (0.14907119849998604 * fConst270)); + fConst349 = (0.0 - (0.5656854249492379 * fConst268)); + fConst350 = (0.052943176160428942 * fConst49); + fConst351 = (0.035118530106766348 * fConst28); + fConst352 = (0.0085588214148084041 * fConst268); + fConst353 = (0.059595081393300338 * fConst34); + fConst354 = (0.0 - (3.4992181344801505 * fConst62)); + fConst355 = (0.0 - (1.4434274804730625 * fConst32)); + fConst356 = (0.0 - (1.7408390417517057 * fConst29)); + fConst357 = (0.0 - (1.3056292813137798 * fConst69)); + fConst358 = (0.0 - (2.3211187223356098 * fConst29)); + fConst359 = (0.0 - (2.6244136008601107 * fConst62)); + fConst360 = (0.0 - (0.67082039324993703 * fConst273)); + fConst361 = (0.0 - (4.5489835748241934 * fConst26)); + fConst362 = (0.0 - (0.42426406871192829 * fConst268)); + fConst363 = (0.0 - (0.44721359549995798 * fConst270)); + fConst364 = (0.0 - (0.56568542494923824 * fConst268)); + fConst365 = (0.0 - (9.6009910787518287 * fConst64)); + fConst366 = (0.063531811392514792 * fConst25); + fConst367 = (0.13408893313492612 * fConst45); + fConst368 = (0.0097062489627453008 * fConst31); + fConst369 = (0.0087796325266915748 * fConst54); + fConst370 = (0.0030072633063799232 * fConst270); + fConst371 = (0.004510894959569885 * fConst273); + fConst372 = (0.063531811392514445 * fConst25); + fConst373 = (0.13408893313492534 * fConst45); + fConst374 = (0.0 - (0.48114249349102228 * fConst32)); + fConst375 = (0.0 - (1.7408390417517114 * fConst29)); + fConst376 = (0.0 - (0.43520976043792792 * fConst69)); + fConst377 = (0.0 - (4.5489835748242058 * fConst26)); + fConst378 = (0.0 - (2.6244136008601191 * fConst62)); + fConst379 = (0.0 - (0.22360679774997969 * fConst273)); + fConst380 = (0.0 - (10.12851806110085 * fConst34)); + fConst381 = (0.0 - (9.6009910787518553 * fConst64)); + fConst382 = (0.0 - (0.42426406871192973 * fConst268)); + fConst383 = (0.0 - (0.14907119849998646 * fConst270)); + fConst384 = (0.046824706809021698 * fConst28); + fConst385 = (0.07059090154723846 * fConst49); + fConst386 = (0.029118746888235913 * fConst31); + fConst387 = (0.026338897580074731 * fConst54); + fConst388 = (0.011411761886411183 * fConst268); + fConst389 = (0.0090217899191397718 * fConst270); + fConst390 = (0.01353268487870966 * fConst273); + fConst391 = (0.059595081393299554 * fConst34); + fConst392 = (fConst45 * (0.0 - (8.2571033474838984 * fConst23))); + fConst393 = (0.0 - (3.0929010896773175 * fConst19)); + fConst394 = (fConst21 * (0.0 - ((2.1105794120443448 * fConst393) + (10.257992428141025 * fConst19)))); + fConst395 = (0.0 - (0.97315860881060223 * fConst14)); + fConst396 = (0.0 - ((1.5075567228888176 * fConst395) + (3.2276019669290172 * fConst14))); + fConst397 = (fConst57 * (0.0 - ((1.0552897060221724 * fConst396) + (4.0 * fConst395)))); + fConst398 = (fConst49 * fConst393); + fConst399 = (fConst17 * fConst396); + fConst400 = (fConst54 * fConst395); + fConst401 = (0.0 - (1.1313708498984762 * fConst398)); + fConst402 = (0.0 - (0.80498447189992428 * fConst392)); + fConst403 = (0.0 - (0.56568542494923812 * fConst394)); + fConst404 = (0.0 - (1.1627553482998907 * fConst392)); + fConst405 = (0.0085588214148084006 * fConst394); + fConst406 = (0.017117642829616801 * fConst398); + fConst407 = (0.035118530106766334 * fConst29); + fConst408 = (0.0 - (0.44721359549995782 * fConst400)); + fConst409 = (0.0 - (0.84852813742385691 * fConst398)); + fConst410 = (0.0 - (0.22360679774997891 * fConst399)); + fConst411 = (0.0 - (0.80498447189992484 * fConst392)); + fConst412 = (0.0 - (0.42426406871192845 * fConst394)); + fConst413 = (0.0 - (0.14907119849998593 * fConst397)); + fConst414 = (0.023456653789763415 * fConst392); + fConst415 = (0.009021789919139777 * fConst397); + fConst416 = (0.013532684878709665 * fConst399); + fConst417 = (0.027065369757419331 * fConst400); + fConst418 = (0.029118746888235927 * fConst32); + fConst419 = (0.09176817201141016 * fConst26); + fConst420 = (0.0 - (1.3416407864998736 * fConst400)); + fConst421 = (0.0 - (0.84852813742385813 * fConst398)); + fConst422 = (0.0 - (0.67082039324993681 * fConst399)); + fConst423 = (0.0 - (0.42426406871192907 * fConst394)); + fConst424 = (0.0 - (0.44721359549995787 * fConst397)); + fConst425 = (0.0 - (0.8049844718999225 * fConst392)); + fConst426 = (0.011411761886411192 * fConst394); + fConst427 = (0.0030072633063799293 * fConst397); + fConst428 = (0.02345665378976344 * fConst392); + fConst429 = (0.022823523772822384 * fConst398); + fConst430 = (0.0045108949595698946 * fConst399); + fConst431 = (0.0090217899191397891 * fConst400); + fConst432 = (0.091768172011410271 * fConst26); + fConst433 = (0.0097062489627453216 * fConst32); + fConst434 = (0.046824706809021746 * fConst29); + fConst435 = (0.0 - (0.22360679774997916 * fConst399)); + fConst436 = (0.0 - (0.44721359549995832 * fConst400)); + fConst437 = (0.0 - (1.3416407864998738 * fConst400)); + fConst438 = (0.0 - (0.67082039324993692 * fConst399)); + fConst439 = (0.0 - (1.1627553482998914 * fConst392)); + fConst440 = (0.0 - (0.1490711984999861 * fConst397)); + fConst441 = (0.0 - (0.44721359549995793 * fConst397)); + fConst442 = (0.0 - (0.80498447189992395 * fConst392)); + fConst443 = (0.0 - (0.44721359549995815 * fConst400)); + fConst444 = (0.0 - (0.22360679774997907 * fConst399)); + fConst445 = (0.0 - (1.1313708498984758 * fConst398)); + fConst446 = (0.0 - (0.14907119849998604 * fConst397)); + fConst447 = (0.0 - (0.5656854249492379 * fConst394)); + fConst448 = (0.0085588214148084041 * fConst394); + fConst449 = (0.017117642829616808 * fConst398); + fConst450 = (0.035118530106766348 * fConst29); + fConst451 = (0.0 - (1.3416407864998741 * fConst400)); + fConst452 = (0.0 - (0.84852813742385658 * fConst398)); + fConst453 = (0.0 - (0.67082039324993703 * fConst399)); + fConst454 = (0.0 - (1.1313708498984765 * fConst398)); + fConst455 = (0.0 - (0.42426406871192829 * fConst394)); + fConst456 = (0.0 - (0.44721359549995798 * fConst397)); + fConst457 = (0.0 - (0.56568542494923824 * fConst394)); + fConst458 = (0.0 - (1.1627553482998902 * fConst392)); + fConst459 = (0.0030072633063799232 * fConst397); + fConst460 = (0.016239221854451615 * fConst392); + fConst461 = (0.004510894959569885 * fConst399); + fConst462 = (0.00902178991913977 * fConst400); + fConst463 = (0.063531811392514792 * fConst26); + fConst464 = (0.0097062489627453008 * fConst32); + fConst465 = (0.0 - (0.44721359549995937 * fConst400)); + fConst466 = (0.0 - (0.84852813742385946 * fConst398)); + fConst467 = (0.0 - (0.22360679774997969 * fConst399)); + fConst468 = (0.0 - (1.1627553482998934 * fConst392)); + fConst469 = (0.0 - (0.42426406871192973 * fConst394)); + fConst470 = (0.0 - (0.14907119849998646 * fConst397)); + fConst471 = (0.016239221854451522 * fConst392); + fConst472 = (0.011411761886411183 * fConst394); + fConst473 = (0.0090217899191397718 * fConst397); + fConst474 = (0.022823523772822367 * fConst398); + fConst475 = (0.01353268487870966 * fConst399); + fConst476 = (0.027065369757419321 * fConst400); + fConst477 = (0.063531811392514445 * fConst26); + fConst478 = (0.046824706809021698 * fConst29); + fConst479 = (0.029118746888235913 * fConst32); + fConst480 = (0.0 - (1.3056292813137786 * fConst14)); + fConst481 = (0.0 - ((4.5226701686664557 * fConst480) + (1.4434274804730605 * fConst14))); + fConst482 = (fConst57 * (0.0 - ((3.1658691180665191 * fConst481) + (4.0 * fConst480)))); + fConst483 = (0.0 - (1.8557406538063874 * fConst19)); + fConst484 = (fConst21 * (0.0 - ((6.3317382361330381 * fConst483) + (2.0515984856282001 * fConst19)))); + fConst485 = (0.014264702358014003 * fConst484); + fConst486 = (fConst45 * (0.0 - (2.2156133258658013 * fConst23))); + fConst487 = (0.020173335537918863 * fConst486); + fConst488 = (fConst481 * fConst17); + fConst489 = (fConst483 * fConst49); + fConst490 = (0.028529404716028006 * fConst489); + fConst491 = (fConst480 * fConst54); + fConst492 = (0.011706176702255417 * fConst29); + fConst493 = (0.0070590901547238332 * fConst26); + fConst494 = (0.0 - (3.1401849173675503e-16 * fConst489)); + fConst495 = (0.0 - (1.5700924586837752e-16 * fConst484)); + fConst496 = (0.0 - (1.0000000000000004 * fConst486)); + fConst497 = (0.0 - fConst491); + fConst498 = (0.0 - (1.4142135623730951 * fConst489)); + fConst499 = (0.0 - (0.5 * fConst488)); + fConst500 = (0.0 - (0.70710678118654757 * fConst484)); + fConst501 = (0.0 - (0.33333333333333331 * fConst482)); + fConst502 = (0.0067244451793062911 * fConst482); + fConst503 = (0.010086667768959437 * fConst488); + fConst504 = (0.020173335537918873 * fConst491); + fConst505 = (0.0097062489627452973 * fConst32); + fConst506 = (0.0 - (1.0000000000000002 * fConst491)); + fConst507 = (0.0 - (0.50000000000000011 * fConst488)); + fConst508 = (0.0 - (1.0000000000000009 * fConst486)); + fConst509 = (0.0 - (0.33333333333333343 * fConst482)); + fConst510 = (0.0070590901547238306 * fConst26); + fConst511 = (0.020173335537918856 * fConst486); + fConst512 = (0.010086667768959433 * fConst488); + fConst513 = (0.020173335537918866 * fConst491); + fConst514 = (0.0097062489627452939 * fConst32); + fConst515 = (0.0067244451793062885 * fConst482); + fConst516 = (0.0 - (6.2803698347351007e-16 * fConst489)); + fConst517 = (0.0 - (0.99999999999999933 * fConst486)); + fConst518 = (0.0 - (3.1401849173675503e-16 * fConst484)); + fConst519 = (0.0 - (1.0000000000000007 * fConst486)); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec14[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec15[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec16[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec12[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec11[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec20[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec21[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec18[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec17[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec0[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec28[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec29[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec30[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec26[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec25[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec34[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec35[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec36[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec37[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec32[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec31[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec41[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec42[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec40[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec43[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec39[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec38[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec46[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec47[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec45[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec44[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec50[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec49[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec54[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec55[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec53[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec56[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec57[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec52[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec51[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec24[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec62[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec63[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec61[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec64[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec60[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec59[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec68[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec69[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec70[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec66[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec65[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec73[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec72[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec71[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec58[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec74[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec75[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec76[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec81[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec82[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec80[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec83[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec84[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec79[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec78[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec88[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec89[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec87[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec90[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec86[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec85[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec93[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec94[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec92[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec91[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec98[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec99[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec100[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec101[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec96[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec95[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec77[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec106[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec107[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec105[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec108[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec109[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec104[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec103[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec112[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec113[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec111[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec110[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec117[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec118[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec116[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec119[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec120[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec115[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec114[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec102[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec121[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec122[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec127[l123] = 0.0; + + } + for (int l124 = 0; (l124 < 2); l124 = (l124 + 1)) { + fRec128[l124] = 0.0; + + } + for (int l125 = 0; (l125 < 2); l125 = (l125 + 1)) { + fRec126[l125] = 0.0; + + } + for (int l126 = 0; (l126 < 2); l126 = (l126 + 1)) { + fRec129[l126] = 0.0; + + } + for (int l127 = 0; (l127 < 2); l127 = (l127 + 1)) { + fRec130[l127] = 0.0; + + } + for (int l128 = 0; (l128 < 2); l128 = (l128 + 1)) { + fRec125[l128] = 0.0; + + } + for (int l129 = 0; (l129 < 2); l129 = (l129 + 1)) { + fRec124[l129] = 0.0; + + } + for (int l130 = 0; (l130 < 2); l130 = (l130 + 1)) { + fRec134[l130] = 0.0; + + } + for (int l131 = 0; (l131 < 2); l131 = (l131 + 1)) { + fRec135[l131] = 0.0; + + } + for (int l132 = 0; (l132 < 2); l132 = (l132 + 1)) { + fRec133[l132] = 0.0; + + } + for (int l133 = 0; (l133 < 2); l133 = (l133 + 1)) { + fRec136[l133] = 0.0; + + } + for (int l134 = 0; (l134 < 2); l134 = (l134 + 1)) { + fRec137[l134] = 0.0; + + } + for (int l135 = 0; (l135 < 2); l135 = (l135 + 1)) { + fRec132[l135] = 0.0; + + } + for (int l136 = 0; (l136 < 2); l136 = (l136 + 1)) { + fRec131[l136] = 0.0; + + } + for (int l137 = 0; (l137 < 2); l137 = (l137 + 1)) { + fRec140[l137] = 0.0; + + } + for (int l138 = 0; (l138 < 2); l138 = (l138 + 1)) { + fRec141[l138] = 0.0; + + } + for (int l139 = 0; (l139 < 2); l139 = (l139 + 1)) { + fRec139[l139] = 0.0; + + } + for (int l140 = 0; (l140 < 2); l140 = (l140 + 1)) { + fRec138[l140] = 0.0; + + } + for (int l141 = 0; (l141 < 2); l141 = (l141 + 1)) { + fRec123[l141] = 0.0; + + } + for (int l142 = 0; (l142 < 2); l142 = (l142 + 1)) { + fRec142[l142] = 0.0; + + } + for (int l143 = 0; (l143 < 2); l143 = (l143 + 1)) { + fRec143[l143] = 0.0; + + } + for (int l144 = 0; (l144 < 2); l144 = (l144 + 1)) { + fRec144[l144] = 0.0; + + } + for (int l145 = 0; (l145 < 2); l145 = (l145 + 1)) { + fRec145[l145] = 0.0; + + } + for (int l146 = 0; (l146 < 2); l146 = (l146 + 1)) { + fRec146[l146] = 0.0; + + } + for (int l147 = 0; (l147 < 2); l147 = (l147 + 1)) { + fRec147[l147] = 0.0; + + } + for (int l148 = 0; (l148 < 2); l148 = (l148 + 1)) { + fRec148[l148] = 0.0; + + } + for (int l149 = 0; (l149 < 2); l149 = (l149 + 1)) { + fRec153[l149] = 0.0; + + } + for (int l150 = 0; (l150 < 2); l150 = (l150 + 1)) { + fRec154[l150] = 0.0; + + } + for (int l151 = 0; (l151 < 2); l151 = (l151 + 1)) { + fRec152[l151] = 0.0; + + } + for (int l152 = 0; (l152 < 2); l152 = (l152 + 1)) { + fRec155[l152] = 0.0; + + } + for (int l153 = 0; (l153 < 2); l153 = (l153 + 1)) { + fRec151[l153] = 0.0; + + } + for (int l154 = 0; (l154 < 2); l154 = (l154 + 1)) { + fRec150[l154] = 0.0; + + } + for (int l155 = 0; (l155 < 2); l155 = (l155 + 1)) { + fRec149[l155] = 0.0; + + } + for (int l156 = 0; (l156 < 2); l156 = (l156 + 1)) { + fRec156[l156] = 0.0; + + } + for (int l157 = 0; (l157 < 2); l157 = (l157 + 1)) { + fRec157[l157] = 0.0; + + } + for (int l158 = 0; (l158 < 2); l158 = (l158 + 1)) { + fRec158[l158] = 0.0; + + } + for (int l159 = 0; (l159 < 2); l159 = (l159 + 1)) { + fRec159[l159] = 0.0; + + } + for (int l160 = 0; (l160 < 2); l160 = (l160 + 1)) { + fRec160[l160] = 0.0; + + } + for (int l161 = 0; (l161 < 2); l161 = (l161 + 1)) { + fRec161[l161] = 0.0; + + } + for (int l162 = 0; (l162 < 2); l162 = (l162 + 1)) { + fRec162[l162] = 0.0; + + } + for (int l163 = 0; (l163 < 2); l163 = (l163 + 1)) { + fRec163[l163] = 0.0; + + } + for (int l164 = 0; (l164 < 2); l164 = (l164 + 1)) { + fRec164[l164] = 0.0; + + } + for (int l165 = 0; (l165 < 2); l165 = (l165 + 1)) { + fRec165[l165] = 0.0; + + } + for (int l166 = 0; (l166 < 2); l166 = (l166 + 1)) { + fRec166[l166] = 0.0; + + } + for (int l167 = 0; (l167 < 2); l167 = (l167 + 1)) { + fRec167[l167] = 0.0; + + } + for (int l168 = 0; (l168 < 2); l168 = (l168 + 1)) { + fRec168[l168] = 0.0; + + } + for (int l169 = 0; (l169 < 2); l169 = (l169 + 1)) { + fRec169[l169] = 0.0; + + } + for (int l170 = 0; (l170 < 2); l170 = (l170 + 1)) { + fRec170[l170] = 0.0; + + } + for (int l171 = 0; (l171 < 2); l171 = (l171 + 1)) { + fRec171[l171] = 0.0; + + } + for (int l172 = 0; (l172 < 2); l172 = (l172 + 1)) { + fRec172[l172] = 0.0; + + } + for (int l173 = 0; (l173 < 2); l173 = (l173 + 1)) { + fRec173[l173] = 0.0; + + } + for (int l174 = 0; (l174 < 2); l174 = (l174 + 1)) { + fRec174[l174] = 0.0; + + } + for (int l175 = 0; (l175 < 2); l175 = (l175 + 1)) { + fRec175[l175] = 0.0; + + } + for (int l176 = 0; (l176 < 2); l176 = (l176 + 1)) { + fRec176[l176] = 0.0; + + } + for (int l177 = 0; (l177 < 2); l177 = (l177 + 1)) { + fRec177[l177] = 0.0; + + } + for (int l178 = 0; (l178 < 2); l178 = (l178 + 1)) { + fRec178[l178] = 0.0; + + } + for (int l179 = 0; (l179 < 2); l179 = (l179 + 1)) { + fRec179[l179] = 0.0; + + } + for (int l180 = 0; (l180 < 2); l180 = (l180 + 1)) { + fRec180[l180] = 0.0; + + } + for (int l181 = 0; (l181 < 2); l181 = (l181 + 1)) { + fRec181[l181] = 0.0; + + } + for (int l182 = 0; (l182 < 2); l182 = (l182 + 1)) { + fRec182[l182] = 0.0; + + } + for (int l183 = 0; (l183 < 2); l183 = (l183 + 1)) { + fRec183[l183] = 0.0; + + } + for (int l184 = 0; (l184 < 2); l184 = (l184 + 1)) { + fRec184[l184] = 0.0; + + } + for (int l185 = 0; (l185 < 2); l185 = (l185 + 1)) { + fRec185[l185] = 0.0; + + } + for (int l186 = 0; (l186 < 2); l186 = (l186 + 1)) { + fRec186[l186] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev504"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3770610", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3845f80", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x377b940", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3804730", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3924110", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38cc830", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x378a1e0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3890f30", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37f9960", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x382cd50", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x398afa0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x383c9e0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x379ccc0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37c9090", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3882600", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37ecfd0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3917ec0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38bfd40", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3907150", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38dcc70", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37b21c0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38a2ee0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37dbc70", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38717a0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3817660", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph5, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37b7320", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph12, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x381d040", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph16, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x384b320", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph17, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3852d30", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph18, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3859130", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph19, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x385e8f0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph24, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38ab880", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph28, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38e2910", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph29, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38eceb0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph30, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f4660", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph34, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x392ba40", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph35, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39389b0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph36, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3944240", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph37, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x394fc90", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph38, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x395ef80", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph39, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39691b0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph40, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3972c80", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph41, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x397a860", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph43, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x399dd50", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph44, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39b1660", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph45, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39c3aa0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph46, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39d4e50", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph47, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39e7650", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph48, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x39f5e80", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph49, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a03600", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph50, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a11090", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph51, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a27a50", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph52, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a36d30", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph53, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a47f60", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph54, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a58310", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph55, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a6d140", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph56, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a80a60", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph57, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3a947f0", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph58, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aa8870", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph59, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3abc160", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph60, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3aceab0", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph61, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3ae3690", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph62, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3af8890", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph63, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b080f0", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph64, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b15050", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph65, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b23740", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph66, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b33530", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph67, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b40ee0", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph68, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b4e850", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph69, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b5e690", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph70, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b6e9d0", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph71, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b83380", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph72, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b90c90", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph73, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3b9e040", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph74, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3bab370", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (fConst2 / fSlow2); + double fSlow8 = (1.0 / (fSlow7 + 1.0)); + double fSlow9 = (fConst3 / fSlow2); + double fSlow10 = mydsp_faustpower2_f(fSlow7); + double fSlow11 = (1.0 / (((fConst4 / fSlow2) + (3.0 * fSlow10)) + 1.0)); + double fSlow12 = (12.0 * fSlow10); + double fSlow13 = (fSlow12 + (fConst5 / fSlow2)); + double fSlow14 = (1.0 / ((fConst6 / fSlow2) + 1.0)); + double fSlow15 = (1.0 / (((fConst7 / fSlow2) + (6.4594326934833797 * fSlow10)) + 1.0)); + double fSlow16 = (25.837730773933519 * fSlow10); + double fSlow17 = (fSlow16 + (fConst8 / fSlow2)); + double fSlow18 = (fConst9 / fSlow2); + double fSlow19 = (1.0 / (((fConst10 / fSlow2) + (9.1401308902779004 * fSlow10)) + 1.0)); + double fSlow20 = (1.0 / (((fConst11 / fSlow2) + (11.4878004768713 * fSlow10)) + 1.0)); + double fSlow21 = (45.951201907485199 * fSlow10); + double fSlow22 = (fSlow21 + (fConst12 / fSlow2)); + double fSlow23 = (36.560523561111602 * fSlow10); + double fSlow24 = (fSlow23 + (fConst13 / fSlow2)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.012698412698412698 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow8 * ((fSlow3 * fTemp2) - (fSlow9 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.021994295969128601 * fTemp3); + double fTemp5 = (fRec3[0] * double(input6[i])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow11 * ((fSlow3 * fTemp5) - ((fSlow13 * fRec9[0]) + (fSlow12 * fRec10[0])))); + double fTemp6 = (fRec8[0] + (fSlow4 * fTemp5)); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph2 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.028394513999997331 * fTemp6); + double fTemp8 = (fRec3[0] * double(input12[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec15[0] = (fRec15[1] + fRec14[1]); + fRec13[0] = (fSlow15 * ((fSlow3 * fTemp8) - ((fSlow17 * fRec14[0]) + (fSlow16 * fRec15[0])))); + fRec16[0] = (fRec16[1] + fRec12[1]); + fRec12[0] = (fSlow14 * (fRec13[0] - (fSlow18 * fRec16[0]))); + double fTemp9 = (fRec12[0] + (fSlow4 * fTemp8)); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph3 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.033596842045264641 * fTemp9); + double fTemp11 = (fRec3[0] * double(input20[i])); + fRec20[0] = (fRec20[1] + fRec19[1]); + fRec21[0] = (fRec21[1] + fRec20[1]); + fRec19[0] = (fSlow20 * ((fSlow3 * fTemp11) - ((fSlow22 * fRec20[0]) + (fSlow21 * fRec21[0])))); + fRec22[0] = (fRec22[1] + fRec18[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec18[0] = (fSlow19 * (fRec19[0] - ((fSlow24 * fRec22[0]) + (fSlow23 * fRec23[0])))); + double fTemp12 = (fRec18[0] + (fSlow4 * fTemp11)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph4 = FAUSTFLOAT(fRec17[0]); + double fTemp13 = (0.038095238095238099 * fTemp12); + double fTemp14 = (fRec1[0] * ((((fTemp1 + fTemp4) + fTemp7) + fTemp10) + fTemp13)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph5 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (fRec3[0] * double(input13[i])); + fRec28[0] = (fRec28[1] + fRec27[1]); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec27[0] = (fSlow15 * ((fSlow3 * fTemp15) - ((fSlow17 * fRec28[0]) + (fSlow16 * fRec29[0])))); + fRec30[0] = (fRec30[1] + fRec26[1]); + fRec26[0] = (fSlow14 * (fRec27[0] - (fSlow18 * fRec30[0]))); + double fTemp16 = (fRec26[0] + (fSlow4 * fTemp15)); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph6 = FAUSTFLOAT(fRec25[0]); + double fTemp17 = (fRec3[0] * double(input22[i])); + fRec34[0] = (fRec34[1] + fRec33[1]); + fRec35[0] = (fRec35[1] + fRec34[1]); + fRec33[0] = (fSlow20 * ((fSlow3 * fTemp17) - ((fSlow22 * fRec34[0]) + (fSlow21 * fRec35[0])))); + fRec36[0] = (fRec32[1] + fRec36[1]); + fRec37[0] = (fRec37[1] + fRec36[1]); + fRec32[0] = (fSlow19 * (fRec33[0] - ((fSlow24 * fRec36[0]) + (fSlow23 * fRec37[0])))); + double fTemp18 = (fRec32[0] + (fSlow4 * fTemp17)); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph7 = FAUSTFLOAT(fRec31[0]); + double fTemp19 = (fRec3[0] * double(input15[i])); + fRec41[0] = (fRec41[1] + fRec40[1]); + fRec42[0] = (fRec42[1] + fRec41[1]); + fRec40[0] = (fSlow15 * ((fSlow3 * fTemp19) - ((fSlow17 * fRec41[0]) + (fSlow16 * fRec42[0])))); + fRec43[0] = (fRec43[1] + fRec39[1]); + fRec39[0] = (fSlow14 * (fRec40[0] - (fSlow18 * fRec43[0]))); + double fTemp20 = (fRec39[0] + (fSlow4 * fTemp19)); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph8 = FAUSTFLOAT(fRec38[0]); + double fTemp21 = (fRec3[0] * double(input8[i])); + fRec46[0] = (fRec46[1] + fRec45[1]); + fRec47[0] = (fRec47[1] + fRec46[1]); + fRec45[0] = (fSlow11 * ((fSlow3 * fTemp21) - ((fSlow13 * fRec46[0]) + (fSlow12 * fRec47[0])))); + double fTemp22 = (fRec45[0] + (fSlow4 * fTemp21)); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph9 = FAUSTFLOAT(fRec44[0]); + double fTemp23 = (fConst30 * fTemp22); + double fTemp24 = (fRec3[0] * double(input3[i])); + fRec50[0] = (fRec50[1] + fRec49[1]); + fRec49[0] = (fSlow8 * ((fSlow3 * fTemp24) - (fSlow9 * fRec50[0]))); + double fTemp25 = (fRec49[0] + (fSlow4 * fTemp24)); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph10 = FAUSTFLOAT(fRec48[0]); + double fTemp26 = (0.014285714285714285 * fTemp12); + double fTemp27 = (fRec3[0] * double(input24[i])); + fRec54[0] = (fRec54[1] + fRec53[1]); + fRec55[0] = (fRec55[1] + fRec54[1]); + fRec53[0] = (fSlow20 * ((fSlow3 * fTemp27) - ((fSlow22 * fRec54[0]) + (fSlow21 * fRec55[0])))); + fRec56[0] = (fRec56[1] + fRec52[1]); + fRec57[0] = (fRec57[1] + fRec56[1]); + fRec52[0] = (fSlow19 * (fRec53[0] - ((fSlow24 * fRec56[0]) + (fSlow23 * fRec57[0])))); + double fTemp28 = (fRec52[0] + (fSlow4 * fTemp27)); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph11 = FAUSTFLOAT(fRec51[0]); + double fTemp29 = (fConst35 * fTemp28); + double fTemp30 = (0.014197256999998666 * fTemp6); + double fTemp31 = (fRec1[0] * ((((0.0089791337293529845 * ((fConst18 * fTemp16) + (fConst22 * fTemp18))) + ((fConst27 * fTemp20) + (fTemp23 + ((fConst33 * fTemp25) + (fTemp1 + fTemp26))))) + fTemp29) - fTemp30)); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph12 = FAUSTFLOAT(fRec24[0]); + output1[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fConst36 * fTemp22); + double fTemp33 = (fRec3[0] * double(input9[i])); + fRec62[0] = (fRec62[1] + fRec61[1]); + fRec63[0] = (fRec63[1] + fRec62[1]); + fRec61[0] = (fSlow15 * ((fSlow3 * fTemp33) - ((fSlow17 * fRec62[0]) + (fSlow16 * fRec63[0])))); + fRec64[0] = (fRec64[1] + fRec60[1]); + fRec60[0] = (fSlow14 * (fRec61[0] - (fSlow18 * fRec64[0]))); + double fTemp34 = (fRec60[0] + (fSlow4 * fTemp33)); + fRec59[0] = max((fRec59[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph13 = FAUSTFLOAT(fRec59[0]); + double fTemp35 = (fConst38 * fTemp18); + double fTemp36 = (fRec3[0] * double(input11[i])); + fRec68[0] = (fRec68[1] + fRec67[1]); + fRec69[0] = (fRec69[1] + fRec68[1]); + fRec67[0] = (fSlow15 * ((fSlow3 * fTemp36) - ((fSlow17 * fRec68[0]) + (fSlow16 * fRec69[0])))); + fRec70[0] = (fRec70[1] + fRec66[1]); + fRec66[0] = (fSlow14 * (fRec67[0] - (fSlow18 * fRec70[0]))); + double fTemp37 = (fRec66[0] + (fSlow4 * fTemp36)); + fRec65[0] = max((fRec65[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph14 = FAUSTFLOAT(fRec65[0]); + double fTemp38 = (fRec3[0] * double(input1[i])); + fRec73[0] = (fRec73[1] + fRec72[1]); + fRec72[0] = (fSlow8 * ((fSlow3 * fTemp38) - (fSlow9 * fRec73[0]))); + double fTemp39 = (fRec72[0] + (fSlow4 * fTemp38)); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph15 = FAUSTFLOAT(fRec71[0]); + double fTemp40 = (fTemp26 + fTemp29); + double fTemp41 = (fRec1[0] * (((0.012698412698412698 * (((fTemp0 + fTemp32) + (fConst37 * fTemp34)) + fTemp35)) + ((fConst39 * fTemp37) + ((fConst33 * fTemp39) + fTemp40))) - fTemp30)); + fRec58[0] = max((fRec58[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph16 = FAUSTFLOAT(fRec58[0]); + output2[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (fRec1[0] * (((0.012698412698412698 * (((fTemp0 + (fConst40 * fTemp25)) + (fConst41 * fTemp16)) + (fConst37 * fTemp20))) + (fTemp29 + ((fConst42 * fTemp18) + (fTemp23 + fTemp26)))) - fTemp30)); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph17 = FAUSTFLOAT(fRec74[0]); + output3[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (fRec1[0] * (((0.012698412698412698 * (fTemp35 + ((fTemp32 + (fTemp0 + (fConst40 * fTemp39))) + (fConst41 * fTemp37)))) + (fTemp40 + (fConst27 * fTemp34))) - fTemp30)); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph18 = FAUSTFLOAT(fRec75[0]); + output4[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (fRec1[0] * ((fTemp13 + (fTemp1 + fTemp7)) - (fTemp4 + fTemp10))); + fRec76[0] = max((fRec76[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph19 = FAUSTFLOAT(fRec76[0]); + output5[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (fRec3[0] * double(input23[i])); + fRec81[0] = (fRec81[1] + fRec80[1]); + fRec82[0] = (fRec82[1] + fRec81[1]); + fRec80[0] = (fSlow20 * ((fSlow3 * fTemp45) - ((fSlow22 * fRec81[0]) + (fSlow21 * fRec82[0])))); + fRec83[0] = (fRec83[1] + fRec79[1]); + fRec84[0] = (fRec84[1] + fRec83[1]); + fRec79[0] = (fSlow19 * (fRec80[0] - ((fSlow24 * fRec83[0]) + (fSlow23 * fRec84[0])))); + double fTemp46 = (fRec79[0] + (fSlow4 * fTemp45)); + fRec78[0] = max((fRec78[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph20 = FAUSTFLOAT(fRec78[0]); + double fTemp47 = (fRec3[0] * double(input14[i])); + fRec88[0] = (fRec88[1] + fRec87[1]); + fRec89[0] = (fRec89[1] + fRec88[1]); + fRec87[0] = (fSlow15 * ((fSlow3 * fTemp47) - ((fSlow17 * fRec88[0]) + (fSlow16 * fRec89[0])))); + fRec90[0] = (fRec90[1] + fRec86[1]); + fRec86[0] = (fSlow14 * (fRec87[0] - (fSlow18 * fRec90[0]))); + double fTemp48 = (fRec86[0] + (fSlow4 * fTemp47)); + fRec85[0] = max((fRec85[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph21 = FAUSTFLOAT(fRec85[0]); + double fTemp49 = (fConst19 * (((fConst47 * fTemp22) + (fConst50 * fTemp48)) + (fConst51 * fTemp18))); + double fTemp50 = (fRec3[0] * double(input7[i])); + fRec93[0] = (fRec93[1] + fRec92[1]); + fRec94[0] = (fRec94[1] + fRec93[1]); + fRec92[0] = (fSlow11 * ((fSlow3 * fTemp50) - ((fSlow13 * fRec93[0]) + (fSlow12 * fRec94[0])))); + double fTemp51 = (fRec92[0] + (fSlow4 * fTemp50)); + fRec91[0] = max((fRec91[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph22 = FAUSTFLOAT(fRec91[0]); + double fTemp52 = (fRec3[0] * double(input21[i])); + fRec98[0] = (fRec98[1] + fRec97[1]); + fRec99[0] = (fRec99[1] + fRec98[1]); + fRec97[0] = (fSlow20 * ((fSlow3 * fTemp52) - ((fSlow22 * fRec98[0]) + (fSlow21 * fRec99[0])))); + fRec100[0] = (fRec100[1] + fRec96[1]); + fRec101[0] = (fRec101[1] + fRec100[1]); + fRec96[0] = (fSlow19 * (fRec97[0] - ((fSlow24 * fRec100[0]) + (fSlow23 * fRec101[0])))); + double fTemp53 = (fRec96[0] + (fSlow4 * fTemp52)); + fRec95[0] = max((fRec95[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph23 = FAUSTFLOAT(fRec95[0]); + double fTemp54 = (0.022574955908289243 * fTemp0); + double fTemp55 = (0.027648561470568499 * fTemp3); + double fTemp56 = (0.01261978399999881 * fTemp6); + double fTemp57 = (fConst59 * fTemp28); + double fTemp58 = (0.010558468816293317 * fTemp9); + double fTemp59 = (0.027513227513227514 * fTemp12); + double fTemp60 = (fTemp58 + fTemp59); + double fTemp61 = (fRec1[0] * (((fConst23 * ((fConst43 * fTemp20) + (fConst46 * fTemp46))) + (fTemp49 + ((fConst14 * ((((fConst52 * fTemp25) + (fConst55 * fTemp51)) + (fConst56 * fTemp16)) + (fConst58 * fTemp53))) + (((fTemp54 + fTemp55) + fTemp56) + fTemp57)))) - fTemp60)); + fRec77[0] = max((fRec77[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph24 = FAUSTFLOAT(fRec77[0]); + output6[i] = FAUSTFLOAT(fTemp61); + double fTemp62 = (fConst60 * fTemp22); + double fTemp63 = ((fTemp0 + fTemp62) + (fConst61 * fTemp34)); + double fTemp64 = (fConst63 * fTemp48); + double fTemp65 = (fRec3[0] * double(input17[i])); + fRec106[0] = (fRec106[1] + fRec105[1]); + fRec107[0] = (fRec107[1] + fRec106[1]); + fRec105[0] = (fSlow20 * ((fSlow3 * fTemp65) - ((fSlow22 * fRec106[0]) + (fSlow21 * fRec107[0])))); + fRec108[0] = (fRec108[1] + fRec104[1]); + fRec109[0] = (fRec109[1] + fRec108[1]); + fRec104[0] = (fSlow19 * (fRec105[0] - ((fSlow24 * fRec108[0]) + (fSlow23 * fRec109[0])))); + double fTemp66 = (fRec104[0] + (fSlow4 * fTemp65)); + fRec103[0] = max((fRec103[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph25 = FAUSTFLOAT(fRec103[0]); + double fTemp67 = (fConst67 * fTemp18); + double fTemp68 = (fRec3[0] * double(input5[i])); + fRec112[0] = (fRec112[1] + fRec111[1]); + fRec113[0] = (fRec113[1] + fRec112[1]); + fRec111[0] = (fSlow11 * ((fSlow3 * fTemp68) - ((fSlow13 * fRec112[0]) + (fSlow12 * fRec113[0])))); + double fTemp69 = (fRec111[0] + (fSlow4 * fTemp68)); + fRec110[0] = max((fRec110[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph26 = FAUSTFLOAT(fRec110[0]); + double fTemp70 = (fRec3[0] * double(input19[i])); + fRec117[0] = (fRec117[1] + fRec116[1]); + fRec118[0] = (fRec118[1] + fRec117[1]); + fRec116[0] = (fSlow20 * ((fSlow3 * fTemp70) - ((fSlow22 * fRec117[0]) + (fSlow21 * fRec118[0])))); + fRec119[0] = (fRec119[1] + fRec115[1]); + fRec120[0] = (fRec120[1] + fRec119[1]); + fRec115[0] = (fSlow19 * (fRec116[0] - ((fSlow24 * fRec119[0]) + (fSlow23 * fRec120[0])))); + double fTemp71 = (fRec115[0] + (fSlow4 * fTemp70)); + fRec114[0] = max((fRec114[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph27 = FAUSTFLOAT(fRec114[0]); + double fTemp72 = (fTemp57 + (fTemp55 + fTemp56)); + double fTemp73 = (fRec1[0] * (((0.022574955908289243 * (((fTemp63 + fTemp64) + (fConst65 * fTemp66)) + fTemp67)) + ((fConst14 * ((((fConst52 * fTemp39) + (fConst55 * fTemp69)) + (fConst56 * fTemp37)) + (fConst58 * fTemp71))) + fTemp72)) - fTemp60)); + fRec102[0] = max((fRec102[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph28 = FAUSTFLOAT(fRec102[0]); + output7[i] = FAUSTFLOAT(fTemp73); + double fTemp74 = (fTemp0 + (fConst68 * fTemp25)); + double fTemp75 = (fConst61 * fTemp20); + double fTemp76 = (fRec1[0] * (((0.022574955908289243 * (((((fTemp74 + (fConst70 * fTemp51)) + (fConst72 * fTemp16)) + fTemp75) + (fConst74 * fTemp53)) + (fConst65 * fTemp46))) + (fTemp49 + fTemp72)) - fTemp60)); + fRec121[0] = max((fRec121[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph29 = FAUSTFLOAT(fRec121[0]); + output8[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = (fTemp0 + (fConst68 * fTemp39)); + double fTemp78 = (fRec1[0] * (((0.022574955908289243 * (fTemp67 + ((fTemp64 + ((fTemp62 + (fTemp77 + (fConst70 * fTemp69))) + (fConst72 * fTemp37))) + (fConst74 * fTemp71)))) + (fTemp72 + (fConst23 * ((fConst43 * fTemp34) + (fConst46 * fTemp66))))) - fTemp60)); + fRec122[0] = max((fRec122[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph30 = FAUSTFLOAT(fRec122[0]); + output9[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = (fRec3[0] * double(input18[i])); + fRec127[0] = (fRec127[1] + fRec126[1]); + fRec128[0] = (fRec128[1] + fRec127[1]); + fRec126[0] = (fSlow20 * ((fSlow3 * fTemp79) - ((fSlow22 * fRec127[0]) + (fSlow21 * fRec128[0])))); + fRec129[0] = (fRec129[1] + fRec125[1]); + fRec130[0] = (fRec130[1] + fRec129[1]); + fRec125[0] = (fSlow19 * (fRec126[0] - ((fSlow24 * fRec129[0]) + (fSlow23 * fRec130[0])))); + double fTemp80 = (fRec125[0] + (fSlow4 * fTemp79)); + fRec124[0] = max((fRec124[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph31 = FAUSTFLOAT(fRec124[0]); + double fTemp81 = (fRec3[0] * double(input16[i])); + fRec134[0] = (fRec134[1] + fRec133[1]); + fRec135[0] = (fRec135[1] + fRec134[1]); + fRec133[0] = (fSlow20 * ((fSlow3 * fTemp81) - ((fSlow22 * fRec134[0]) + (fSlow21 * fRec135[0])))); + fRec136[0] = (fRec136[1] + fRec132[1]); + fRec137[0] = (fRec137[1] + fRec136[1]); + fRec132[0] = (fSlow19 * (fRec133[0] - ((fSlow24 * fRec136[0]) + (fSlow23 * fRec137[0])))); + double fTemp82 = (fRec132[0] + (fSlow4 * fTemp81)); + fRec131[0] = max((fRec131[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph32 = FAUSTFLOAT(fRec131[0]); + double fTemp83 = (fRec3[0] * double(input4[i])); + fRec140[0] = (fRec140[1] + fRec139[1]); + fRec141[0] = (fRec141[1] + fRec140[1]); + fRec139[0] = (fSlow11 * ((fSlow3 * fTemp83) - ((fSlow13 * fRec140[0]) + (fSlow12 * fRec141[0])))); + double fTemp84 = (fRec139[0] + (fSlow4 * fTemp83)); + fRec138[0] = max((fRec138[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph33 = FAUSTFLOAT(fRec138[0]); + double fTemp85 = (0.025396825396825397 * fTemp12); + double fTemp86 = (0.025239567999997631 * fTemp6); + double fTemp87 = (fRec1[0] * (((0.022574955908289243 * ((fTemp0 + (fConst75 * fTemp20)) + (fConst76 * fTemp28))) + ((fConst22 * ((3.5444768026723675e-18 * fTemp18) + (0.015962904407738641 * fTemp80))) + ((fConst77 * fTemp82) + ((fConst18 * ((0.011287477954144623 * fTemp16) + (0.011287477954144622 * fTemp37))) + ((fConst29 * ((1.5998055129555246e-17 * fTemp22) + (0.072048835120117657 * fTemp84))) + ((fConst32 * ((0.025473109945013343 * fTemp25) + (0.025473109945013336 * fTemp39))) + ((fConst78 * fTemp34) + fTemp85))))))) - fTemp86)); + fRec123[0] = max((fRec123[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph34 = FAUSTFLOAT(fRec123[0]); + output10[i] = FAUSTFLOAT(fTemp87); + double fTemp88 = (fConst81 * fTemp39); + double fTemp89 = (fConst36 * fTemp84); + double fTemp90 = (fConst38 * fTemp80); + double fTemp91 = (fConst86 * fTemp28); + double fTemp92 = (fRec1[0] * ((((fConst26 * ((0.10189243978005338 * fTemp20) + (0.1018924397800533 * fTemp34))) + ((fConst79 * fTemp82) + ((fConst80 * fTemp37) + (fTemp88 + fTemp85)))) + (0.022574955908289243 * (((((((fTemp0 + (fConst82 * fTemp25)) + fTemp89) + (fConst83 * fTemp22)) + (fConst84 * fTemp16)) + fTemp90) + (fConst85 * fTemp18)) + fTemp91))) - fTemp86)); + fRec142[0] = max((fRec142[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph35 = FAUSTFLOAT(fRec142[0]); + output11[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = (fRec1[0] * (((0.022574955908289243 * (fTemp91 + (((((fTemp0 + (fConst82 * fTemp39)) + (fConst87 * fTemp25)) + (fConst88 * fTemp34)) + (fConst84 * fTemp37)) + (fConst89 * fTemp16)))) + ((fConst22 * ((7.088953605344735e-18 * fTemp18) + (0.015962904407738645 * fTemp80))) + ((fConst29 * ((3.1996110259110492e-17 * fTemp22) + (0.072048835120117671 * fTemp84))) + ((fConst90 * fTemp82) + (fTemp85 + (fConst91 * fTemp20)))))) - fTemp86)); + fRec143[0] = max((fRec143[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph36 = FAUSTFLOAT(fRec143[0]); + output12[i] = FAUSTFLOAT(fTemp93); + double fTemp94 = (fRec1[0] * ((((fConst92 * fTemp82) + ((fConst93 * fTemp16) + (fTemp85 + (fConst94 * fTemp25)))) + (0.022574955908289243 * (fTemp91 + ((fTemp90 + (((((fTemp89 + (fTemp0 + (fConst87 * fTemp39))) + (fConst95 * fTemp22)) + (fConst96 * fTemp34)) + (fConst89 * fTemp37)) + (fConst97 * fTemp20))) + (fConst98 * fTemp18))))) - fTemp86)); + fRec144[0] = max((fRec144[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph37 = FAUSTFLOAT(fRec144[0]); + output13[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = (fConst110 * fTemp22); + double fTemp96 = (fTemp55 + fTemp59); + double fTemp97 = (fRec1[0] * (((0.031925808815477283 * (((fConst100 * fTemp51) + (fConst102 * fTemp48)) + (fConst103 * fTemp46))) + ((0.015962904407738641 * ((fConst105 * fTemp16) + (fConst106 * fTemp18))) + ((fConst108 * fTemp53) + (fTemp57 + ((fConst109 * fTemp20) + (fTemp95 + ((fConst81 * fTemp25) + (fTemp58 + (fTemp54 + fTemp56))))))))) - fTemp96)); + fRec145[0] = max((fRec145[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph38 = FAUSTFLOAT(fRec145[0]); + output14[i] = FAUSTFLOAT(fTemp97); + double fTemp98 = (fConst111 * fTemp48); + double fTemp99 = (fConst113 * fTemp18); + double fTemp100 = (fTemp56 + fTemp58); + double fTemp101 = (fTemp57 + fTemp100); + double fTemp102 = (fRec1[0] * (((0.022574955908289243 * (((fTemp63 + fTemp98) + (fConst112 * fTemp66)) + fTemp99)) + ((fConst108 * fTemp71) + ((fConst114 * fTemp37) + ((fConst115 * fTemp69) + (fTemp88 + fTemp101))))) - fTemp96)); + fRec146[0] = max((fRec146[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph39 = FAUSTFLOAT(fRec146[0]); + output15[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = (fRec1[0] * (((0.022574955908289243 * (((fTemp75 + ((fTemp74 + (fConst116 * fTemp51)) + (fConst117 * fTemp16))) + (fConst118 * fTemp53)) + (fConst112 * fTemp46))) + ((fConst119 * fTemp18) + ((fConst120 * fTemp48) + (fTemp57 + (fTemp95 + fTemp100))))) - fTemp96)); + fRec147[0] = max((fRec147[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph40 = FAUSTFLOAT(fRec147[0]); + output16[i] = FAUSTFLOAT(fTemp103); + double fTemp104 = (fRec1[0] * (((0.022574955908289243 * (fTemp99 + ((fTemp98 + ((fTemp62 + (fTemp77 + (fConst116 * fTemp69))) + (fConst117 * fTemp37))) + (fConst118 * fTemp71)))) + ((fConst121 * fTemp66) + ((fConst109 * fTemp34) + fTemp101))) - fTemp96)); + fRec148[0] = max((fRec148[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph41 = FAUSTFLOAT(fRec148[0]); + output17[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = ((9.9655853669580557e-18 * fTemp22) + (0.044881006545161167 * fTemp84)); + double fTemp106 = (fRec3[0] * double(input10[i])); + fRec153[0] = (fRec153[1] + fRec152[1]); + fRec154[0] = (fRec154[1] + fRec153[1]); + fRec152[0] = (fSlow15 * ((fSlow3 * fTemp106) - ((fSlow17 * fRec153[0]) + (fSlow16 * fRec154[0])))); + fRec155[0] = (fRec155[1] + fRec151[1]); + fRec151[0] = (fSlow14 * (fRec152[0] - (fSlow18 * fRec155[0]))); + double fTemp107 = (fRec151[0] + (fSlow4 * fTemp106)); + fRec150[0] = max((fRec150[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph42 = FAUSTFLOAT(fRec150[0]); + double fTemp108 = ((0.007031250000000001 * fTemp53) + (0.0070312500000000002 * fTemp71)); + double fTemp109 = ((0.019434045907762623 * fTemp25) + (0.019434045907762619 * fTemp39)); + double fTemp110 = (fConst129 * fTemp69); + double fTemp111 = (5.236595479505967e-18 * fTemp6); + double fTemp112 = (fConst132 * fTemp82); + double fTemp113 = (fTemp0 + fTemp3); + double fTemp114 = (fConst133 * fTemp20); + double fTemp115 = (fConst135 * fTemp28); + double fTemp116 = (0.021480823570105497 * fTemp9); + double fTemp117 = (0.024609375000000006 * fTemp12); + double fTemp118 = (fTemp116 + fTemp117); + double fTemp119 = (fRec1[0] * ((((fConst19 * (((((fConst28 * fTemp105) + (fConst122 * fTemp107)) + (fConst123 * fTemp48)) + (fConst124 * fTemp80)) + (fConst125 * fTemp18))) + ((fConst126 * fTemp108) + ((fConst23 * ((fConst127 * fTemp34) + (fConst128 * fTemp66))) + ((fConst14 * (((((fConst31 * fTemp109) + fTemp110) + (fConst129 * fTemp51)) + (fConst130 * fTemp37)) + (fConst131 * fTemp16))) + (fTemp111 + fTemp112))))) + (0.021093750000000001 * (((fTemp113 + fTemp114) + (fConst134 * fTemp46)) + fTemp115))) - fTemp118)); + fRec149[0] = max((fRec149[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp119)))))); + fVbargraph43 = FAUSTFLOAT(fRec149[0]); + output18[i] = FAUSTFLOAT(fTemp119); + double fTemp120 = (fConst136 * fTemp25); + double fTemp121 = (fConst137 * fTemp84); + double fTemp122 = (fConst139 * fTemp22); + double fTemp123 = (fConst140 * fTemp107); + double fTemp124 = (fConst143 * fTemp80); + double fTemp125 = (fConst146 * fTemp28); + double fTemp126 = (fConst148 * fTemp82); + double fTemp127 = ((0.051824122420700336 * fTemp20) + (0.051824122420700287 * fTemp34)); + double fTemp128 = (fRec1[0] * (((0.021093750000000001 * (((((((((((fTemp113 + fTemp120) + fTemp121) + (fConst138 * fTemp51)) + fTemp122) + fTemp123) + (fConst141 * fTemp16)) + (fConst142 * fTemp48)) + fTemp124) + (fConst144 * fTemp53)) + (fConst145 * fTemp18)) + fTemp125)) + (((fConst14 * ((fTemp110 + (fConst147 * fTemp39)) + (fConst131 * fTemp37))) + ((fTemp111 + fTemp126) + (fConst149 * fTemp71))) + (fConst23 * (((fConst25 * fTemp127) + (fConst150 * fTemp66)) + (fConst128 * fTemp46))))) - fTemp118)); + fRec156[0] = max((fRec156[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp128)))))); + fVbargraph44 = FAUSTFLOAT(fRec156[0]); + output19[i] = FAUSTFLOAT(fTemp128); + double fTemp129 = (fTemp0 + (fConst136 * fTemp39)); + double fTemp130 = (fConst151 * fTemp25); + double fTemp131 = (fConst153 * fTemp34); + double fTemp132 = ((1.9931170733916111e-17 * fTemp22) + (0.044881006545161174 * fTemp84)); + double fTemp133 = (fConst163 * fTemp82); + double fTemp134 = (fRec1[0] * (((0.021093750000000001 * (fTemp125 + ((((((((((fTemp3 + fTemp129) + fTemp130) + (fConst138 * fTemp69)) + (fConst152 * fTemp51)) + fTemp131) + (fConst141 * fTemp37)) + (fConst154 * fTemp16)) + (fConst155 * fTemp66)) + (fConst144 * fTemp71)) + (fConst156 * fTemp53)))) + ((fConst23 * ((fConst157 * fTemp20) + (fConst158 * fTemp46))) + ((fConst19 * (((((fConst28 * fTemp132) + (fConst159 * fTemp107)) + (fConst160 * fTemp48)) + (fConst161 * fTemp80)) + (fConst162 * fTemp18))) + (fTemp111 + fTemp133)))) - fTemp118)); + fRec157[0] = max((fRec157[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp134)))))); + fVbargraph45 = FAUSTFLOAT(fRec157[0]); + output20[i] = FAUSTFLOAT(fTemp134); + double fTemp135 = (fConst167 * fTemp82); + double fTemp136 = (fTemp0 + (fConst151 * fTemp39)); + double fTemp137 = (fConst169 * fTemp22); + double fTemp138 = (fConst170 * fTemp34); + double fTemp139 = (fConst172 * fTemp20); + double fTemp140 = (fRec1[0] * ((((fConst14 * (((fConst164 * fTemp25) + (fConst165 * fTemp51)) + (fConst166 * fTemp16))) + ((fTemp111 + fTemp135) + (fConst168 * fTemp53))) + (0.021093750000000001 * (fTemp125 + ((((fTemp124 + (((((fTemp123 + ((((fTemp121 + (fTemp3 + fTemp136)) + (fConst152 * fTemp69)) + fTemp137) + fTemp138)) + (fConst154 * fTemp37)) + (fConst171 * fTemp48)) + fTemp139) + (fConst173 * fTemp66))) + (fConst156 * fTemp71)) + (fConst174 * fTemp18)) + (fConst175 * fTemp46))))) - fTemp118)); + fRec158[0] = max((fRec158[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp140)))))); + fVbargraph46 = FAUSTFLOAT(fRec158[0]); + output21[i] = FAUSTFLOAT(fTemp140); + double fTemp141 = (fTemp111 + fTemp116); + double fTemp142 = (fTemp0 - fTemp3); + double fTemp143 = (fRec1[0] * ((((fConst177 * ((3.3119137800360884e-18 * fTemp18) + (0.014915533665653739 * fTemp80))) + ((fConst180 * fTemp108) + (((fConst181 * ((6.6238275600721768e-18 * fTemp48) + (0.029831067331307477 * fTemp107))) + ((fConst182 * ((0.010546875000000002 * fTemp16) + (0.010546875000000001 * fTemp37))) + ((fConst184 * fTemp51) + ((fConst29 * fTemp105) + ((fConst32 * fTemp109) + (fTemp112 + ((fConst185 * fTemp34) + fTemp141))))))) + (fConst187 * fTemp66)))) + (0.021093750000000001 * (fTemp115 + ((fTemp114 + (fTemp142 + (fConst183 * fTemp69))) + (fConst188 * fTemp46))))) - fTemp117)); + fRec159[0] = max((fRec159[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp143)))))); + fVbargraph47 = FAUSTFLOAT(fRec159[0]); + output22[i] = FAUSTFLOAT(fTemp143); + double fTemp144 = (fConst190 * fTemp107); + double fTemp145 = (fConst193 * fTemp80); + double fTemp146 = (fRec1[0] * (((0.021093750000000001 * (fTemp125 + (((((((fTemp122 + ((fTemp121 + (fTemp120 + fTemp142)) + (fConst189 * fTemp51))) + fTemp144) + (fConst191 * fTemp16)) + (fConst192 * fTemp48)) + fTemp145) + (fConst194 * fTemp53)) + (fConst195 * fTemp18)))) + ((fConst186 * ((0.021093749999999994 * fTemp66) + (0.021093750000000012 * fTemp46))) + (((fConst196 * fTemp37) + ((fConst184 * fTemp69) + ((fConst26 * fTemp127) + (fTemp126 + ((fConst197 * fTemp39) + fTemp141))))) + (fConst198 * fTemp71)))) - fTemp117)); + fRec160[0] = max((fRec160[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp146)))))); + fVbargraph48 = FAUSTFLOAT(fRec160[0]); + output23[i] = FAUSTFLOAT(fTemp146); + double fTemp147 = (fRec1[0] * (((0.021093750000000001 * (fTemp125 + ((((((fTemp131 + (((fTemp130 - (fTemp3 - fTemp129)) + (fConst189 * fTemp69)) + (fConst199 * fTemp51))) + (fConst191 * fTemp37)) + (fConst200 * fTemp16)) + (fConst201 * fTemp66)) + (fConst194 * fTemp71)) + (fConst202 * fTemp53)))) + ((fConst177 * ((6.6238275600721768e-18 * fTemp18) + (0.01491553366565374 * fTemp80))) + ((fConst181 * ((1.3247655120144354e-17 * fTemp48) + (0.029831067331307481 * fTemp107))) + (((fConst29 * fTemp132) + (fTemp133 + ((fConst203 * fTemp20) + fTemp141))) + (fConst204 * fTemp46))))) - fTemp117)); + fRec161[0] = max((fRec161[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp147)))))); + fVbargraph49 = FAUSTFLOAT(fRec161[0]); + output24[i] = FAUSTFLOAT(fTemp147); + double fTemp148 = (fRec1[0] * (((((fConst205 * fTemp16) + ((fConst206 * fTemp51) + (fTemp135 + ((fConst207 * fTemp25) + fTemp141)))) + (fConst208 * fTemp53)) + (0.021093750000000001 * (fTemp125 + ((((fTemp145 + ((fTemp139 + (((fTemp144 + (fTemp138 + (fTemp137 + ((fTemp121 - (fTemp3 - fTemp136)) + (fConst199 * fTemp69))))) + (fConst200 * fTemp37)) + (fConst209 * fTemp48))) + (fConst210 * fTemp66))) + (fConst202 * fTemp71)) + (fConst211 * fTemp18)) + (fConst212 * fTemp46))))) - fTemp117)); + fRec162[0] = max((fRec162[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp148)))))); + fVbargraph50 = FAUSTFLOAT(fRec162[0]); + output25[i] = FAUSTFLOAT(fTemp148); + double fTemp149 = ((0.0097062489627452956 * fTemp25) + (0.0097062489627452973 * fTemp39)); + double fTemp150 = (fConst213 * fTemp69); + double fTemp151 = (fConst215 * fTemp37); + double fTemp152 = (fConst217 * fTemp71); + double fTemp153 = (fConst223 * fTemp66); + double fTemp154 = (0.031605542669238249 * fTemp3); + double fTemp155 = (0.032806508796871948 * fTemp6); + double fTemp156 = (0.026333598483989317 * fTemp9); + double fTemp157 = (0.0142547123015874 * fTemp12); + double fTemp158 = (((fTemp154 + fTemp155) + fTemp156) + fTemp157); + double fTemp159 = (fConst224 * fTemp22); + double fTemp160 = (fTemp0 + fTemp159); + double fTemp161 = (fConst225 * fTemp48); + double fTemp162 = (fConst226 * fTemp20); + double fTemp163 = (fConst227 * fTemp82); + double fTemp164 = (fConst228 * fTemp18); + double fTemp165 = (fConst230 * fTemp28); + double fTemp166 = (fRec1[0] * (((fConst14 * (((((((fConst31 * fTemp149) + fTemp150) + (fConst214 * fTemp51)) + fTemp151) + (fConst216 * fTemp16)) + fTemp152) + (fConst218 * fTemp53))) + ((fConst19 * (((fConst219 * fTemp107) + (fConst220 * fTemp84)) + (fConst221 * fTemp80))) + ((fConst23 * ((fConst222 * fTemp34) + fTemp153)) + fTemp158))) + (0.02017333553791887 * ((((((fTemp160 + fTemp161) + fTemp162) + fTemp163) + fTemp164) + (fConst229 * fTemp46)) + fTemp165)))); + fRec163[0] = max((fRec163[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp166)))))); + fVbargraph51 = FAUSTFLOAT(fRec163[0]); + output26[i] = FAUSTFLOAT(fTemp166); + double fTemp167 = (fConst232 * fTemp84); + double fTemp168 = ((fTemp0 + (fConst231 * fTemp25)) + fTemp167); + double fTemp169 = (fConst234 * fTemp107); + double fTemp170 = (fConst236 * fTemp80); + double fTemp171 = ((0.0070590901547238384 * fTemp20) + (0.0070590901547238332 * fTemp34)); + double fTemp172 = (fConst240 * fTemp82); + double fTemp173 = (fRec1[0] * ((0.02017333553791887 * (fTemp165 + (fTemp164 + (((fTemp161 + (((fTemp159 + (fTemp168 + (fConst233 * fTemp51))) + fTemp169) + (fConst235 * fTemp16))) + fTemp170) + (fConst237 * fTemp53))))) + ((fConst23 * ((fTemp153 + (fConst25 * fTemp171)) + (fConst238 * fTemp46))) + ((fConst14 * (fTemp152 + (fTemp151 + (fTemp150 + (fConst239 * fTemp39))))) + (fTemp158 + fTemp172))))); + fRec164[0] = max((fRec164[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp173)))))); + fVbargraph52 = FAUSTFLOAT(fRec164[0]); + output27[i] = FAUSTFLOAT(fTemp173); + double fTemp174 = ((fTemp0 + (fConst231 * fTemp39)) + (fConst241 * fTemp25)); + double fTemp175 = (fConst243 * fTemp34); + double fTemp176 = ((5.19858676206982e-18 * fTemp22) + (0.011706176702255421 * fTemp84)); + double fTemp177 = (fConst253 * fTemp82); + double fTemp178 = (fRec1[0] * ((0.02017333553791887 * (fTemp165 + ((((((((fTemp174 + (fConst233 * fTemp69)) + (fConst242 * fTemp51)) + fTemp175) + (fConst235 * fTemp37)) + (fConst244 * fTemp16)) + (fConst245 * fTemp66)) + (fConst237 * fTemp71)) + (fConst246 * fTemp53)))) + ((fConst23 * ((fConst247 * fTemp20) + (fConst248 * fTemp46))) + ((fConst19 * (((((fConst28 * fTemp176) + (fConst249 * fTemp107)) + (fConst250 * fTemp48)) + (fConst251 * fTemp80)) + (fConst252 * fTemp18))) + (fTemp158 + fTemp177))))); + fRec165[0] = max((fRec165[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp178)))))); + fVbargraph53 = FAUSTFLOAT(fRec165[0]); + output28[i] = FAUSTFLOAT(fTemp178); + double fTemp179 = (fConst254 * fTemp82); + double fTemp180 = (fTemp167 + (fTemp0 + (fConst241 * fTemp39))); + double fTemp181 = (fConst259 * fTemp22); + double fTemp182 = (fConst260 * fTemp34); + double fTemp183 = (fConst262 * fTemp20); + double fTemp184 = (fRec1[0] * (((fTemp158 + fTemp179) + (fConst14 * ((((fConst255 * fTemp25) + (fConst256 * fTemp51)) + (fConst257 * fTemp16)) + (fConst258 * fTemp53)))) + (0.02017333553791887 * (fTemp165 + ((((fTemp170 + (((((fTemp169 + (((fTemp180 + (fConst242 * fTemp69)) + fTemp181) + fTemp182)) + (fConst244 * fTemp37)) + (fConst261 * fTemp48)) + fTemp183) + (fConst263 * fTemp66))) + (fConst246 * fTemp71)) + (fConst264 * fTemp18)) + (fConst265 * fTemp46)))))); + fRec166[0] = max((fRec166[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp184)))))); + fVbargraph54 = FAUSTFLOAT(fRec166[0]); + output29[i] = FAUSTFLOAT(fTemp184); + double fTemp185 = (0.20432599334845877 * fTemp82); + double fTemp186 = (fConst34 * ((0.059595081393300019 * fTemp28) + fTemp185)); + double fTemp187 = ((0.063531811392514598 * fTemp20) + (0.091768172011410243 * fTemp34)); + double fTemp188 = ((0.011411761886411192 * fTemp18) + (0.008558821414808411 * fTemp80)); + double fTemp189 = ((0.0090217899191397753 * fTemp53) + (0.0030072633063799288 * fTemp71)); + double fTemp190 = ((0.046824706809021746 * fTemp22) + (0.035118530106766375 * fTemp84)); + double fTemp191 = (fConst272 * fTemp48); + double fTemp192 = ((0.013532684878709662 * fTemp16) + (0.0045108949595698937 * fTemp37)); + double fTemp193 = ((0.029118746888235916 * fTemp25) + (0.0097062489627453199 * fTemp39)); + double fTemp194 = (0.02017333553791887 * fTemp0); + double fTemp195 = (0.010535180889746075 * fTemp3); + double fTemp196 = (0.0042514054232804339 * fTemp12); + double fTemp197 = (0.01640325439843596 * fTemp6); + double fTemp198 = (0.020481687709769415 * fTemp9); + double fTemp199 = (fTemp197 + fTemp198); + double fTemp200 = (fRec1[0] * ((fTemp186 + ((fConst23 * (((fConst25 * fTemp187) + (fConst266 * fTemp66)) + (fConst267 * fTemp46))) + ((fConst268 * fTemp188) + ((fConst270 * fTemp189) + ((fConst19 * (((fConst28 * fTemp190) + (fConst271 * fTemp107)) + fTemp191)) + ((fConst273 * fTemp192) + ((fConst14 * (((fConst31 * fTemp193) + (fConst274 * fTemp69)) + (fConst275 * fTemp51))) + ((fTemp194 + fTemp195) + fTemp196)))))))) - fTemp199)); + fRec167[0] = max((fRec167[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp200)))))); + fVbargraph55 = FAUSTFLOAT(fRec167[0]); + output30[i] = FAUSTFLOAT(fTemp200); + double fTemp201 = ((fTemp0 + (fConst276 * fTemp22)) + (fConst277 * fTemp34)); + double fTemp202 = (fConst279 * fTemp20); + double fTemp203 = (fConst280 * fTemp82); + double fTemp204 = (fConst282 * fTemp18); + double fTemp205 = ((0.0030072633063799254 * fTemp53) + (0.0090217899191397753 * fTemp71)); + double fTemp206 = ((0.0045108949595698885 * fTemp16) + (0.013532684878709664 * fTemp37)); + double fTemp207 = ((0.0097062489627453077 * fTemp25) + (0.029118746888235923 * fTemp39)); + double fTemp208 = (fTemp195 + fTemp196); + double fTemp209 = (fConst289 * fTemp28); + double fTemp210 = (fRec1[0] * (((0.02017333553791887 * ((((((fTemp201 + (fConst278 * fTemp48)) + fTemp202) + fTemp203) + (fConst281 * fTemp66)) + fTemp204) + (fConst283 * fTemp46))) + ((fConst270 * fTemp205) + ((fConst273 * fTemp206) + ((fConst19 * ((fConst284 * fTemp107) + (fConst285 * fTemp84))) + ((fConst14 * (((fConst31 * fTemp207) + (fConst286 * fTemp69)) + (fConst287 * fTemp51))) + ((fConst288 * fTemp80) + (fTemp208 + fTemp209))))))) - fTemp199)); + fRec168[0] = max((fRec168[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp210)))))); + fVbargraph56 = FAUSTFLOAT(fRec168[0]); + output31[i] = FAUSTFLOAT(fTemp210); + double fTemp211 = (fConst34 * ((0.059595081393300539 * fTemp28) + (0.20432599334845869 * fTemp82))); + double fTemp212 = ((fTemp0 + (fConst292 * fTemp25)) + (fConst293 * fTemp84)); + double fTemp213 = (fConst295 * fTemp22); + double fTemp214 = (fConst296 * fTemp34); + double fTemp215 = (fRec1[0] * ((fTemp211 + ((fConst23 * ((fConst290 * fTemp20) + (fConst291 * fTemp46))) + ((0.02017333553791887 * (fTemp204 + (((((((((fTemp212 + (fConst294 * fTemp51)) + fTemp213) + fTemp214) + (fConst297 * fTemp107)) + (fConst298 * fTemp16)) + (fConst299 * fTemp48)) + (fConst300 * fTemp66)) + (fConst301 * fTemp80)) + (fConst302 * fTemp53)))) + ((fConst14 * ((fConst303 * fTemp39) + (fConst304 * fTemp69))) + ((fConst305 * fTemp71) + (fTemp208 + (fConst306 * fTemp37))))))) - fTemp199)); + fRec169[0] = max((fRec169[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp215)))))); + fVbargraph57 = FAUSTFLOAT(fRec169[0]); + output32[i] = FAUSTFLOAT(fTemp215); + double fTemp216 = ((fTemp0 + (fConst308 * fTemp25)) + (fConst309 * fTemp84)); + double fTemp217 = (fConst313 * fTemp20); + double fTemp218 = (fConst314 * fTemp82); + double fTemp219 = (fConst325 * fTemp28); + double fTemp220 = (fRec1[0] * (((0.02017333553791887 * ((fConst307 * fTemp46) + (((((((fTemp216 + (fConst310 * fTemp51)) + (fConst311 * fTemp107)) + (fConst312 * fTemp16)) + fTemp217) + fTemp218) + (fConst315 * fTemp80)) + (fConst316 * fTemp53)))) + ((fConst23 * ((fConst317 * fTemp34) + (fConst318 * fTemp66))) + ((fConst19 * (fTemp191 + (fConst319 * fTemp22))) + ((fConst14 * ((fConst320 * fTemp39) + (fConst321 * fTemp69))) + ((fConst322 * fTemp18) + ((fConst323 * fTemp71) + ((fConst324 * fTemp37) + (fTemp219 + fTemp208)))))))) - fTemp199)); + fRec170[0] = max((fRec170[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp220)))))); + fVbargraph58 = FAUSTFLOAT(fRec170[0]); + output33[i] = FAUSTFLOAT(fTemp220); + double fTemp221 = (fConst34 * (fTemp185 + (0.059595081393300352 * fTemp28))); + double fTemp222 = ((fTemp0 + (fConst326 * fTemp39)) + (fConst327 * fTemp25)); + double fTemp223 = (fConst330 * fTemp34); + double fTemp224 = (fConst333 * fTemp20); + double fTemp225 = ((0.011411761886411199 * fTemp18) + (0.0085588214148084076 * fTemp80)); + double fTemp226 = ((0.046824706809021774 * fTemp22) + (0.035118530106766362 * fTemp84)); + double fTemp227 = (fRec1[0] * ((fTemp221 + ((0.02017333553791887 * ((((((((((fTemp222 + (fConst328 * fTemp69)) + (fConst329 * fTemp51)) + fTemp223) + (fConst331 * fTemp37)) + (fConst332 * fTemp16)) + fTemp224) + (fConst334 * fTemp66)) + (fConst335 * fTemp71)) + (fConst336 * fTemp53)) + (fConst337 * fTemp46))) + ((fConst268 * fTemp225) + (fTemp208 + (fConst19 * (((fConst28 * fTemp226) + (fConst338 * fTemp107)) + (fConst339 * fTemp48))))))) - fTemp199)); + fRec171[0] = max((fRec171[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp227)))))); + fVbargraph59 = FAUSTFLOAT(fRec171[0]); + output34[i] = FAUSTFLOAT(fTemp227); + double fTemp228 = ((0.091768172011410187 * fTemp20) + (0.063531811392514695 * fTemp34)); + double fTemp229 = ((fTemp0 + (fConst327 * fTemp39)) + (fConst342 * fTemp25)); + double fTemp230 = (fConst344 * fTemp22); + double fTemp231 = (fConst347 * fTemp82); + double fTemp232 = (fConst353 * fTemp28); + double fTemp233 = (fRec1[0] * (((fConst23 * (((fConst25 * fTemp228) + (fConst340 * fTemp66)) + (fConst341 * fTemp46))) + ((0.02017333553791887 * ((((((((((fTemp229 + (fConst329 * fTemp69)) + (fConst343 * fTemp51)) + fTemp230) + (fConst332 * fTemp37)) + (fConst345 * fTemp16)) + (fConst346 * fTemp48)) + fTemp231) + (fConst336 * fTemp71)) + (fConst348 * fTemp53)) + (fConst349 * fTemp18))) + ((fConst19 * ((fConst350 * fTemp107) + (fConst351 * fTemp84))) + ((fConst352 * fTemp80) + (fTemp208 + fTemp232))))) - fTemp199)); + fRec172[0] = max((fRec172[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp233)))))); + fVbargraph60 = FAUSTFLOAT(fRec172[0]); + output35[i] = FAUSTFLOAT(fTemp233); + double fTemp234 = (fConst34 * ((0.059595081393300636 * fTemp28) + (0.20432599334845863 * fTemp82))); + double fTemp235 = ((fTemp0 + (fConst355 * fTemp39)) + (fConst356 * fTemp84)); + double fTemp236 = (fConst358 * fTemp22); + double fTemp237 = (fConst361 * fTemp20); + double fTemp238 = (fRec1[0] * ((fTemp234 + ((0.02017333553791887 * (((((((fConst354 * fTemp48) + ((((fTemp235 + (fConst357 * fTemp69)) + fTemp236) + (fConst359 * fTemp107)) + (fConst360 * fTemp37))) + fTemp237) + (fConst362 * fTemp80)) + (fConst363 * fTemp71)) + (fConst364 * fTemp18)) + (fConst365 * fTemp46))) + ((fConst23 * ((fConst366 * fTemp34) + (fConst367 * fTemp66))) + ((fConst14 * ((fConst368 * fTemp25) + (fConst369 * fTemp51))) + ((fConst370 * fTemp53) + (fTemp208 + (fConst371 * fTemp16))))))) - fTemp199)); + fRec173[0] = max((fRec173[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp238)))))); + fVbargraph61 = FAUSTFLOAT(fRec173[0]); + output36[i] = FAUSTFLOAT(fTemp238); + double fTemp239 = ((fTemp0 + (fConst374 * fTemp39)) + (fConst375 * fTemp84)); + double fTemp240 = (fConst377 * fTemp34); + double fTemp241 = (fConst380 * fTemp82); + double fTemp242 = (fConst391 * fTemp28); + double fTemp243 = (fRec1[0] * (((fConst23 * ((fConst372 * fTemp20) + (fConst373 * fTemp46))) + ((0.02017333553791887 * ((((((((fTemp239 + (fConst376 * fTemp69)) + fTemp240) + (fConst378 * fTemp107)) + (fConst379 * fTemp37)) + fTemp241) + (fConst381 * fTemp66)) + (fConst382 * fTemp80)) + (fConst383 * fTemp71))) + ((fConst19 * ((fConst384 * fTemp22) + (fConst385 * fTemp48))) + ((fConst14 * ((fConst386 * fTemp25) + (fConst387 * fTemp51))) + ((fConst388 * fTemp18) + ((fConst389 * fTemp53) + ((fConst390 * fTemp16) + (fTemp208 + fTemp242)))))))) - fTemp199)); + fRec174[0] = max((fRec174[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp243)))))); + fVbargraph62 = FAUSTFLOAT(fRec174[0]); + output37[i] = FAUSTFLOAT(fTemp243); + double fTemp244 = (fTemp195 + fTemp197); + double fTemp245 = (fRec1[0] * (((fConst392 * ((0.023456653789763436 * fTemp66) + (0.01623922185445156 * fTemp46))) + ((fConst394 * fTemp188) + ((fConst397 * fTemp189) + ((fConst398 * ((0.022823523772822384 * fTemp48) + (0.017117642829616822 * fTemp107))) + ((fConst399 * fTemp192) + ((fConst400 * ((0.027065369757419324 * fTemp51) + (0.0090217899191397874 * fTemp69))) + (fTemp186 + ((fConst26 * fTemp187) + ((fConst29 * fTemp190) + ((fConst32 * fTemp193) + (fTemp196 + (fTemp194 + fTemp198)))))))))))) - fTemp244)); + fRec175[0] = max((fRec175[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp245)))))); + fVbargraph63 = FAUSTFLOAT(fRec175[0]); + output38[i] = FAUSTFLOAT(fTemp245); + double fTemp246 = (fConst401 * fTemp48); + double fTemp247 = (fConst403 * fTemp18); + double fTemp248 = (fTemp198 + fTemp196); + double fTemp249 = (fRec1[0] * (((0.02017333553791887 * ((((fTemp203 + (fTemp202 + (fTemp201 + fTemp246))) + (fConst402 * fTemp66)) + fTemp247) + (fConst404 * fTemp46))) + ((fConst397 * fTemp205) + ((fConst399 * fTemp206) + ((fConst400 * ((0.009021789919139777 * fTemp51) + (0.027065369757419327 * fTemp69))) + ((fConst405 * fTemp80) + ((fConst406 * fTemp107) + ((fConst32 * fTemp207) + ((fConst407 * fTemp84) + (fTemp209 + fTemp248))))))))) - fTemp244)); + fRec176[0] = max((fRec176[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp249)))))); + fVbargraph64 = FAUSTFLOAT(fRec176[0]); + output39[i] = FAUSTFLOAT(fTemp249); + double fTemp250 = (fRec1[0] * (((0.02017333553791887 * (fTemp247 + ((((fTemp246 + (((fTemp214 + (fTemp213 + (fTemp212 + (fConst408 * fTemp51)))) + (fConst409 * fTemp107)) + (fConst410 * fTemp16))) + (fConst411 * fTemp66)) + (fConst412 * fTemp80)) + (fConst413 * fTemp53)))) + ((fConst414 * fTemp46) + ((fConst415 * fTemp71) + ((fConst416 * fTemp37) + ((fConst417 * fTemp69) + (fTemp211 + ((fConst418 * fTemp39) + ((fConst419 * fTemp20) + fTemp248)))))))) - fTemp244)); + fRec177[0] = max((fRec177[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp250)))))); + fVbargraph65 = FAUSTFLOAT(fRec177[0]); + output40[i] = FAUSTFLOAT(fTemp250); + double fTemp251 = (fRec1[0] * (((0.02017333553791887 * ((((fTemp218 + (fTemp217 + (((fTemp216 + (fConst420 * fTemp51)) + (fConst421 * fTemp107)) + (fConst422 * fTemp16)))) + (fConst423 * fTemp80)) + (fConst424 * fTemp53)) + (fConst425 * fTemp46))) + ((fConst426 * fTemp18) + ((fConst427 * fTemp71) + ((fConst428 * fTemp66) + ((fConst429 * fTemp48) + ((fConst430 * fTemp37) + ((fConst431 * fTemp69) + ((fConst432 * fTemp34) + ((fConst433 * fTemp39) + (fTemp219 + ((fConst434 * fTemp22) + fTemp248))))))))))) - fTemp244)); + fRec178[0] = max((fRec178[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp251)))))); + fVbargraph66 = FAUSTFLOAT(fRec178[0]); + output41[i] = FAUSTFLOAT(fTemp251); + double fTemp252 = (fRec1[0] * (((0.02017333553791887 * (((((fTemp224 + (((fConst435 * fTemp37) + (fTemp223 + ((fTemp222 + (fConst436 * fTemp69)) + (fConst437 * fTemp51)))) + (fConst438 * fTemp16))) + (fConst439 * fTemp66)) + (fConst440 * fTemp71)) + (fConst441 * fTemp53)) + (fConst442 * fTemp46))) + ((fConst394 * fTemp225) + ((fConst398 * ((0.022823523772822398 * fTemp48) + (0.017117642829616815 * fTemp107))) + (fTemp221 + ((fConst29 * fTemp226) + fTemp248))))) - fTemp244)); + fRec179[0] = max((fRec179[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp252)))))); + fVbargraph67 = FAUSTFLOAT(fRec179[0]); + output42[i] = FAUSTFLOAT(fTemp252); + double fTemp253 = (fRec1[0] * (((fConst392 * ((0.016239221854451587 * fTemp66) + (0.023456653789763426 * fTemp46))) + ((0.02017333553791887 * ((((fTemp231 + ((((fTemp230 + ((fTemp229 + (fConst437 * fTemp69)) + (fConst443 * fTemp51))) + (fConst438 * fTemp37)) + (fConst444 * fTemp16)) + (fConst445 * fTemp48))) + (fConst441 * fTemp71)) + (fConst446 * fTemp53)) + (fConst447 * fTemp18))) + ((fConst448 * fTemp80) + ((fConst449 * fTemp107) + ((fConst26 * fTemp228) + ((fConst450 * fTemp84) + (fTemp232 + fTemp248))))))) - fTemp244)); + fRec180[0] = max((fRec180[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp253)))))); + fVbargraph68 = FAUSTFLOAT(fRec180[0]); + output43[i] = FAUSTFLOAT(fTemp253); + double fTemp254 = (fRec1[0] * (((0.02017333553791887 * (((((fTemp237 + ((((fTemp236 + (fTemp235 + (fConst451 * fTemp69))) + (fConst452 * fTemp107)) + (fConst453 * fTemp37)) + (fConst454 * fTemp48))) + (fConst455 * fTemp80)) + (fConst456 * fTemp71)) + (fConst457 * fTemp18)) + (fConst458 * fTemp46))) + ((fConst459 * fTemp53) + ((fConst460 * fTemp66) + ((fConst461 * fTemp16) + ((fConst462 * fTemp51) + (fTemp234 + ((fConst463 * fTemp34) + ((fConst464 * fTemp25) + fTemp248)))))))) - fTemp244)); + fRec181[0] = max((fRec181[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp254)))))); + fVbargraph69 = FAUSTFLOAT(fRec181[0]); + output44[i] = FAUSTFLOAT(fTemp254); + double fTemp255 = (fRec1[0] * (((0.02017333553791887 * ((((fTemp241 + (((fTemp240 + (fTemp239 + (fConst465 * fTemp69))) + (fConst466 * fTemp107)) + (fConst467 * fTemp37))) + (fConst468 * fTemp66)) + (fConst469 * fTemp80)) + (fConst470 * fTemp71))) + ((fConst471 * fTemp46) + ((fConst472 * fTemp18) + ((fConst473 * fTemp53) + ((fConst474 * fTemp48) + ((fConst475 * fTemp16) + ((fConst476 * fTemp51) + (fTemp242 + ((fConst477 * fTemp20) + ((fConst478 * fTemp22) + ((fConst479 * fTemp25) + fTemp248))))))))))) - fTemp244)); + fRec182[0] = max((fRec182[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp255)))))); + fVbargraph70 = FAUSTFLOAT(fRec182[0]); + output45[i] = FAUSTFLOAT(fTemp255); + double fTemp256 = (fTemp155 + fTemp157); + double fTemp257 = (fConst494 * fTemp48); + double fTemp258 = (fConst495 * fTemp18); + double fTemp259 = (fTemp154 + fTemp156); + double fTemp260 = (fRec1[0] * ((((fConst482 * ((0.0067244451793062893 * fTemp53) + (0.0067244451793062911 * fTemp71))) + ((fConst485 * fTemp80) + ((fConst487 * fTemp66) + ((fConst488 * ((0.010086667768959435 * fTemp16) + (0.010086667768959437 * fTemp37))) + ((fConst490 * fTemp107) + ((fConst491 * ((0.02017333553791887 * fTemp51) + (0.020173335537918873 * fTemp69))) + ((fConst32 * fTemp149) + ((fConst492 * fTemp84) + ((fConst493 * fTemp34) + fTemp256))))))))) + (0.02017333553791887 * (fTemp165 + (((fTemp163 + (fTemp162 + (fTemp160 + fTemp257))) + fTemp258) + (fConst496 * fTemp46))))) - fTemp259)); + fRec183[0] = max((fRec183[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp260)))))); + fVbargraph71 = FAUSTFLOAT(fRec183[0]); + output46[i] = FAUSTFLOAT(fTemp260); + double fTemp261 = (fConst498 * fTemp107); + double fTemp262 = (fConst500 * fTemp80); + double fTemp263 = (fRec1[0] * (((0.02017333553791887 * (fTemp165 + (fTemp258 + (((fTemp257 + (((fTemp159 + (fTemp168 + (fConst497 * fTemp51))) + fTemp261) + (fConst499 * fTemp16))) + fTemp262) + (fConst501 * fTemp53))))) + ((fConst486 * ((0.020173335537918863 * fTemp66) + (0.02017333553791888 * fTemp46))) + ((fConst502 * fTemp71) + ((fConst503 * fTemp37) + ((fConst504 * fTemp69) + ((fConst26 * fTemp171) + (fTemp172 + ((fConst505 * fTemp39) + fTemp256)))))))) - fTemp259)); + fRec184[0] = max((fRec184[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp263)))))); + fVbargraph72 = FAUSTFLOAT(fRec184[0]); + output47[i] = FAUSTFLOAT(fTemp263); + double fTemp264 = (fRec1[0] * (((0.02017333553791887 * (fTemp165 + ((((((fTemp175 + ((fTemp174 + (fConst497 * fTemp69)) + (fConst506 * fTemp51))) + (fConst499 * fTemp37)) + (fConst507 * fTemp16)) + (fConst508 * fTemp66)) + (fConst501 * fTemp71)) + (fConst509 * fTemp53)))) + ((fConst484 * ((6.3348003989167635e-18 * fTemp18) + (0.014264702358014004 * fTemp80))) + ((fConst489 * ((1.2669600797833527e-17 * fTemp48) + (0.028529404716028009 * fTemp107))) + (((fConst29 * fTemp176) + (fTemp177 + ((fConst510 * fTemp20) + fTemp256))) + (fConst511 * fTemp46))))) - fTemp259)); + fRec185[0] = max((fRec185[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp264)))))); + fVbargraph73 = FAUSTFLOAT(fRec185[0]); + output48[i] = FAUSTFLOAT(fTemp264); + double fTemp265 = (fRec1[0] * (((((fConst512 * fTemp16) + ((fConst513 * fTemp51) + (fTemp179 + ((fConst514 * fTemp25) + fTemp256)))) + (fConst515 * fTemp53)) + (0.02017333553791887 * (fTemp165 + ((((fTemp262 + ((fTemp183 + (((fTemp261 + (fTemp182 + (fTemp181 + (fTemp180 + (fConst506 * fTemp69))))) + (fConst507 * fTemp37)) + (fConst516 * fTemp48))) + (fConst517 * fTemp66))) + (fConst509 * fTemp71)) + (fConst518 * fTemp18)) + (fConst519 * fTemp46))))) - fTemp259)); + fRec186[0] = max((fRec186[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp265)))))); + fVbargraph74 = FAUSTFLOAT(fRec186[0]); + output49[i] = FAUSTFLOAT(fTemp265); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec13[1] = fRec13[0]; + fRec16[1] = fRec16[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec19[1] = fRec19[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec18[1] = fRec18[0]; + fRec17[1] = fRec17[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec27[1] = fRec27[0]; + fRec30[1] = fRec30[0]; + fRec26[1] = fRec26[0]; + fRec25[1] = fRec25[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec33[1] = fRec33[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec32[1] = fRec32[0]; + fRec31[1] = fRec31[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec40[1] = fRec40[0]; + fRec43[1] = fRec43[0]; + fRec39[1] = fRec39[0]; + fRec38[1] = fRec38[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec45[1] = fRec45[0]; + fRec44[1] = fRec44[0]; + fRec50[1] = fRec50[0]; + fRec49[1] = fRec49[0]; + fRec48[1] = fRec48[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec53[1] = fRec53[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec52[1] = fRec52[0]; + fRec51[1] = fRec51[0]; + fRec24[1] = fRec24[0]; + fRec62[1] = fRec62[0]; + fRec63[1] = fRec63[0]; + fRec61[1] = fRec61[0]; + fRec64[1] = fRec64[0]; + fRec60[1] = fRec60[0]; + fRec59[1] = fRec59[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec67[1] = fRec67[0]; + fRec70[1] = fRec70[0]; + fRec66[1] = fRec66[0]; + fRec65[1] = fRec65[0]; + fRec73[1] = fRec73[0]; + fRec72[1] = fRec72[0]; + fRec71[1] = fRec71[0]; + fRec58[1] = fRec58[0]; + fRec74[1] = fRec74[0]; + fRec75[1] = fRec75[0]; + fRec76[1] = fRec76[0]; + fRec81[1] = fRec81[0]; + fRec82[1] = fRec82[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec84[1] = fRec84[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec88[1] = fRec88[0]; + fRec89[1] = fRec89[0]; + fRec87[1] = fRec87[0]; + fRec90[1] = fRec90[0]; + fRec86[1] = fRec86[0]; + fRec85[1] = fRec85[0]; + fRec93[1] = fRec93[0]; + fRec94[1] = fRec94[0]; + fRec92[1] = fRec92[0]; + fRec91[1] = fRec91[0]; + fRec98[1] = fRec98[0]; + fRec99[1] = fRec99[0]; + fRec97[1] = fRec97[0]; + fRec100[1] = fRec100[0]; + fRec101[1] = fRec101[0]; + fRec96[1] = fRec96[0]; + fRec95[1] = fRec95[0]; + fRec77[1] = fRec77[0]; + fRec106[1] = fRec106[0]; + fRec107[1] = fRec107[0]; + fRec105[1] = fRec105[0]; + fRec108[1] = fRec108[0]; + fRec109[1] = fRec109[0]; + fRec104[1] = fRec104[0]; + fRec103[1] = fRec103[0]; + fRec112[1] = fRec112[0]; + fRec113[1] = fRec113[0]; + fRec111[1] = fRec111[0]; + fRec110[1] = fRec110[0]; + fRec117[1] = fRec117[0]; + fRec118[1] = fRec118[0]; + fRec116[1] = fRec116[0]; + fRec119[1] = fRec119[0]; + fRec120[1] = fRec120[0]; + fRec115[1] = fRec115[0]; + fRec114[1] = fRec114[0]; + fRec102[1] = fRec102[0]; + fRec121[1] = fRec121[0]; + fRec122[1] = fRec122[0]; + fRec127[1] = fRec127[0]; + fRec128[1] = fRec128[0]; + fRec126[1] = fRec126[0]; + fRec129[1] = fRec129[0]; + fRec130[1] = fRec130[0]; + fRec125[1] = fRec125[0]; + fRec124[1] = fRec124[0]; + fRec134[1] = fRec134[0]; + fRec135[1] = fRec135[0]; + fRec133[1] = fRec133[0]; + fRec136[1] = fRec136[0]; + fRec137[1] = fRec137[0]; + fRec132[1] = fRec132[0]; + fRec131[1] = fRec131[0]; + fRec140[1] = fRec140[0]; + fRec141[1] = fRec141[0]; + fRec139[1] = fRec139[0]; + fRec138[1] = fRec138[0]; + fRec123[1] = fRec123[0]; + fRec142[1] = fRec142[0]; + fRec143[1] = fRec143[0]; + fRec144[1] = fRec144[0]; + fRec145[1] = fRec145[0]; + fRec146[1] = fRec146[0]; + fRec147[1] = fRec147[0]; + fRec148[1] = fRec148[0]; + fRec153[1] = fRec153[0]; + fRec154[1] = fRec154[0]; + fRec152[1] = fRec152[0]; + fRec155[1] = fRec155[0]; + fRec151[1] = fRec151[0]; + fRec150[1] = fRec150[0]; + fRec149[1] = fRec149[0]; + fRec156[1] = fRec156[0]; + fRec157[1] = fRec157[0]; + fRec158[1] = fRec158[0]; + fRec159[1] = fRec159[0]; + fRec160[1] = fRec160[0]; + fRec161[1] = fRec161[0]; + fRec162[1] = fRec162[0]; + fRec163[1] = fRec163[0]; + fRec164[1] = fRec164[0]; + fRec165[1] = fRec165[0]; + fRec166[1] = fRec166[0]; + fRec167[1] = fRec167[0]; + fRec168[1] = fRec168[0]; + fRec169[1] = fRec169[0]; + fRec170[1] = fRec170[0]; + fRec171[1] = fRec171[0]; + fRec172[1] = fRec172[0]; + fRec173[1] = fRec173[0]; + fRec174[1] = fRec174[0]; + fRec175[1] = fRec175[0]; + fRec176[1] = fRec176[0]; + fRec177[1] = fRec177[0]; + fRec178[1] = fRec178[0]; + fRec179[1] = fRec179[0]; + fRec180[1] = fRec180[0]; + fRec181[1] = fRec181[0]; + fRec182[1] = fRec182[0]; + fRec183[1] = fRec183[0]; + fRec184[1] = fRec184[0]; + fRec185[1] = fRec185[0]; + fRec186[1] = fRec186[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOADecLebedev505.cpp b/source/HOAUGens/HOADecLebedev505.cpp new file mode 100644 index 0000000000..8026aff74a --- /dev/null +++ b/source/HOAUGens/HOADecLebedev505.cpp @@ -0,0 +1,6204 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOADecLebedev505" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fVslider0; + double fRec1[2]; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fVslider1; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fRec6[2]; + double fRec5[2]; + double fRec4[2]; + FAUSTFLOAT fVbargraph1; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + FAUSTFLOAT fVbargraph2; + double fConst6; + double fConst7; + double fConst8; + double fRec14[2]; + double fRec15[2]; + double fRec13[2]; + double fConst9; + double fRec16[2]; + double fRec12[2]; + double fRec11[2]; + FAUSTFLOAT fVbargraph3; + double fConst10; + double fConst11; + double fConst12; + double fRec20[2]; + double fRec21[2]; + double fRec19[2]; + double fConst13; + double fRec22[2]; + double fRec23[2]; + double fRec18[2]; + double fRec17[2]; + FAUSTFLOAT fVbargraph4; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fRec28[2]; + double fRec29[2]; + double fRec27[2]; + double fConst18; + double fRec30[2]; + double fRec31[2]; + double fRec26[2]; + double fConst19; + double fRec32[2]; + double fRec25[2]; + double fRec24[2]; + FAUSTFLOAT fVbargraph5; + double fRec0[2]; + FAUSTFLOAT fVbargraph6; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fRec37[2]; + double fRec38[2]; + double fRec36[2]; + double fRec39[2]; + double fRec35[2]; + double fRec34[2]; + FAUSTFLOAT fVbargraph7; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fRec43[2]; + double fRec44[2]; + double fRec42[2]; + double fRec45[2]; + double fRec46[2]; + double fRec41[2]; + double fRec40[2]; + FAUSTFLOAT fVbargraph8; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fRec51[2]; + double fRec52[2]; + double fRec50[2]; + double fRec53[2]; + double fRec54[2]; + double fRec49[2]; + double fRec55[2]; + double fRec48[2]; + double fRec47[2]; + FAUSTFLOAT fVbargraph9; + double fConst34; + double fConst35; + double fConst36; + double fRec60[2]; + double fRec61[2]; + double fRec59[2]; + double fRec62[2]; + double fRec63[2]; + double fRec58[2]; + double fRec64[2]; + double fRec57[2]; + double fRec56[2]; + FAUSTFLOAT fVbargraph10; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fRec68[2]; + double fRec69[2]; + double fRec67[2]; + double fRec70[2]; + double fRec66[2]; + double fRec65[2]; + FAUSTFLOAT fVbargraph11; + double fConst41; + double fConst42; + double fConst43; + double fRec73[2]; + double fRec74[2]; + double fRec72[2]; + double fRec71[2]; + FAUSTFLOAT fVbargraph12; + double fConst44; + double fConst45; + double fConst46; + double fRec77[2]; + double fRec76[2]; + double fRec75[2]; + FAUSTFLOAT fVbargraph13; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fRec81[2]; + double fRec82[2]; + double fRec80[2]; + double fRec83[2]; + double fRec84[2]; + double fRec79[2]; + double fRec78[2]; + FAUSTFLOAT fVbargraph14; + double fConst51; + double fConst52; + double fRec89[2]; + double fRec90[2]; + double fRec88[2]; + double fRec91[2]; + double fRec92[2]; + double fRec87[2]; + double fRec93[2]; + double fRec86[2]; + double fRec85[2]; + FAUSTFLOAT fVbargraph15; + double fRec33[2]; + FAUSTFLOAT fVbargraph16; + double fConst53; + double fConst54; + double fRec98[2]; + double fRec99[2]; + double fRec97[2]; + double fRec100[2]; + double fRec96[2]; + double fRec95[2]; + FAUSTFLOAT fVbargraph17; + double fConst55; + double fConst56; + double fRec105[2]; + double fRec106[2]; + double fRec104[2]; + double fRec107[2]; + double fRec108[2]; + double fRec103[2]; + double fRec109[2]; + double fRec102[2]; + double fRec101[2]; + FAUSTFLOAT fVbargraph18; + double fConst57; + double fRec113[2]; + double fRec114[2]; + double fRec112[2]; + double fRec115[2]; + double fRec111[2]; + double fRec110[2]; + FAUSTFLOAT fVbargraph19; + double fRec118[2]; + double fRec117[2]; + double fRec116[2]; + FAUSTFLOAT fVbargraph20; + double fRec123[2]; + double fRec124[2]; + double fRec122[2]; + double fRec125[2]; + double fRec126[2]; + double fRec121[2]; + double fRec127[2]; + double fRec120[2]; + double fRec119[2]; + FAUSTFLOAT fVbargraph21; + double fRec132[2]; + double fRec133[2]; + double fRec131[2]; + double fRec134[2]; + double fRec135[2]; + double fRec130[2]; + double fRec136[2]; + double fRec129[2]; + double fRec128[2]; + FAUSTFLOAT fVbargraph22; + double fRec94[2]; + FAUSTFLOAT fVbargraph23; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fRec137[2]; + FAUSTFLOAT fVbargraph24; + double fConst63; + double fRec138[2]; + FAUSTFLOAT fVbargraph25; + double fRec139[2]; + FAUSTFLOAT fVbargraph26; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fRec145[2]; + double fRec146[2]; + double fRec144[2]; + double fRec147[2]; + double fRec148[2]; + double fRec143[2]; + double fRec149[2]; + double fRec142[2]; + double fRec141[2]; + FAUSTFLOAT fVbargraph27; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fRec153[2]; + double fRec154[2]; + double fRec152[2]; + double fRec155[2]; + double fRec156[2]; + double fRec151[2]; + double fRec150[2]; + FAUSTFLOAT fVbargraph28; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fRec160[2]; + double fRec161[2]; + double fRec159[2]; + double fRec162[2]; + double fRec158[2]; + double fRec157[2]; + FAUSTFLOAT fVbargraph29; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fRec167[2]; + double fRec168[2]; + double fRec166[2]; + double fRec169[2]; + double fRec170[2]; + double fRec165[2]; + double fRec171[2]; + double fRec164[2]; + double fRec163[2]; + FAUSTFLOAT fVbargraph30; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fRec174[2]; + double fRec175[2]; + double fRec173[2]; + double fRec172[2]; + FAUSTFLOAT fVbargraph31; + double fConst86; + double fConst87; + double fConst88; + double fRec179[2]; + double fRec180[2]; + double fRec178[2]; + double fRec181[2]; + double fRec182[2]; + double fRec177[2]; + double fRec176[2]; + FAUSTFLOAT fVbargraph32; + double fConst89; + double fRec140[2]; + FAUSTFLOAT fVbargraph33; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fRec187[2]; + double fRec188[2]; + double fRec186[2]; + double fRec189[2]; + double fRec190[2]; + double fRec185[2]; + double fRec184[2]; + FAUSTFLOAT fVbargraph34; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fRec193[2]; + double fRec194[2]; + double fRec192[2]; + double fRec191[2]; + FAUSTFLOAT fVbargraph35; + double fRec198[2]; + double fRec199[2]; + double fRec197[2]; + double fRec200[2]; + double fRec201[2]; + double fRec196[2]; + double fRec195[2]; + FAUSTFLOAT fVbargraph36; + double fRec183[2]; + FAUSTFLOAT fVbargraph37; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fRec202[2]; + FAUSTFLOAT fVbargraph38; + double fRec203[2]; + FAUSTFLOAT fVbargraph39; + double fRec208[2]; + double fRec209[2]; + double fRec207[2]; + double fRec210[2]; + double fRec211[2]; + double fRec206[2]; + double fRec205[2]; + FAUSTFLOAT fVbargraph40; + double fConst111; + double fRec215[2]; + double fRec216[2]; + double fRec214[2]; + double fRec217[2]; + double fRec218[2]; + double fRec213[2]; + double fRec212[2]; + FAUSTFLOAT fVbargraph41; + double fRec221[2]; + double fRec222[2]; + double fRec220[2]; + double fRec219[2]; + FAUSTFLOAT fVbargraph42; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fRec204[2]; + FAUSTFLOAT fVbargraph43; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fRec223[2]; + FAUSTFLOAT fVbargraph44; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fRec224[2]; + FAUSTFLOAT fVbargraph45; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fRec225[2]; + FAUSTFLOAT fVbargraph46; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fRec226[2]; + FAUSTFLOAT fVbargraph47; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fRec227[2]; + FAUSTFLOAT fVbargraph48; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fRec228[2]; + FAUSTFLOAT fVbargraph49; + double fConst184; + double fRec229[2]; + FAUSTFLOAT fVbargraph50; + double fConst185; + double fRec234[2]; + double fRec235[2]; + double fRec233[2]; + double fRec236[2]; + double fRec232[2]; + double fRec231[2]; + FAUSTFLOAT fVbargraph51; + double fConst186; + double fConst187; + double fConst188; + double fConst189; + double fRec241[2]; + double fRec242[2]; + double fRec240[2]; + double fRec243[2]; + double fRec244[2]; + double fRec239[2]; + double fRec245[2]; + double fRec238[2]; + double fRec237[2]; + FAUSTFLOAT fVbargraph52; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fConst197; + double fRec250[2]; + double fRec251[2]; + double fRec249[2]; + double fRec252[2]; + double fRec253[2]; + double fRec248[2]; + double fRec254[2]; + double fRec247[2]; + double fRec246[2]; + FAUSTFLOAT fVbargraph53; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fRec230[2]; + FAUSTFLOAT fVbargraph54; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fConst231; + double fConst232; + double fConst233; + double fRec255[2]; + FAUSTFLOAT fVbargraph55; + double fConst234; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fConst239; + double fConst240; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fRec256[2]; + FAUSTFLOAT fVbargraph56; + double fConst253; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fConst258; + double fConst259; + double fConst260; + double fConst261; + double fConst262; + double fConst263; + double fConst264; + double fConst265; + double fConst266; + double fConst267; + double fConst268; + double fConst269; + double fConst270; + double fConst271; + double fRec257[2]; + FAUSTFLOAT fVbargraph57; + double fConst272; + double fConst273; + double fConst274; + double fConst275; + double fConst276; + double fConst277; + double fConst278; + double fConst279; + double fConst280; + double fConst281; + double fConst282; + double fConst283; + double fConst284; + double fConst285; + double fConst286; + double fConst287; + double fConst288; + double fConst289; + double fConst290; + double fConst291; + double fConst292; + double fConst293; + double fConst294; + double fConst295; + double fConst296; + double fRec258[2]; + FAUSTFLOAT fVbargraph58; + double fConst297; + double fConst298; + double fConst299; + double fConst300; + double fConst301; + double fConst302; + double fConst303; + double fConst304; + double fConst305; + double fConst306; + double fConst307; + double fConst308; + double fConst309; + double fConst310; + double fConst311; + double fConst312; + double fRec259[2]; + FAUSTFLOAT fVbargraph59; + double fConst313; + double fConst314; + double fConst315; + double fConst316; + double fConst317; + double fConst318; + double fConst319; + double fConst320; + double fConst321; + double fConst322; + double fConst323; + double fRec260[2]; + FAUSTFLOAT fVbargraph60; + double fConst324; + double fConst325; + double fConst326; + double fConst327; + double fConst328; + double fConst329; + double fConst330; + double fConst331; + double fConst332; + double fConst333; + double fConst334; + double fConst335; + double fConst336; + double fRec261[2]; + FAUSTFLOAT fVbargraph61; + double fConst337; + double fConst338; + double fConst339; + double fConst340; + double fConst341; + double fConst342; + double fConst343; + double fConst344; + double fConst345; + double fConst346; + double fConst347; + double fConst348; + double fConst349; + double fConst350; + double fConst351; + double fConst352; + double fConst353; + double fConst354; + double fConst355; + double fConst356; + double fConst357; + double fConst358; + double fConst359; + double fConst360; + double fConst361; + double fConst362; + double fConst363; + double fConst364; + double fRec262[2]; + FAUSTFLOAT fVbargraph62; + double fConst365; + double fConst366; + double fConst367; + double fConst368; + double fConst369; + double fConst370; + double fConst371; + double fConst372; + double fConst373; + double fConst374; + double fConst375; + double fConst376; + double fConst377; + double fConst378; + double fConst379; + double fConst380; + double fRec263[2]; + FAUSTFLOAT fVbargraph63; + double fConst381; + double fConst382; + double fConst383; + double fConst384; + double fConst385; + double fConst386; + double fConst387; + double fConst388; + double fConst389; + double fConst390; + double fConst391; + double fConst392; + double fConst393; + double fConst394; + double fConst395; + double fConst396; + double fConst397; + double fConst398; + double fConst399; + double fRec264[2]; + FAUSTFLOAT fVbargraph64; + double fConst400; + double fConst401; + double fConst402; + double fConst403; + double fConst404; + double fConst405; + double fConst406; + double fConst407; + double fConst408; + double fConst409; + double fConst410; + double fConst411; + double fConst412; + double fConst413; + double fConst414; + double fConst415; + double fConst416; + double fConst417; + double fRec265[2]; + FAUSTFLOAT fVbargraph65; + double fConst418; + double fConst419; + double fConst420; + double fConst421; + double fConst422; + double fConst423; + double fConst424; + double fConst425; + double fConst426; + double fConst427; + double fConst428; + double fConst429; + double fConst430; + double fConst431; + double fConst432; + double fConst433; + double fConst434; + double fConst435; + double fConst436; + double fRec266[2]; + FAUSTFLOAT fVbargraph66; + double fConst437; + double fConst438; + double fConst439; + double fConst440; + double fConst441; + double fConst442; + double fConst443; + double fConst444; + double fConst445; + double fConst446; + double fConst447; + double fConst448; + double fConst449; + double fConst450; + double fConst451; + double fConst452; + double fConst453; + double fConst454; + double fConst455; + double fConst456; + double fConst457; + double fConst458; + double fRec267[2]; + FAUSTFLOAT fVbargraph67; + double fConst459; + double fConst460; + double fConst461; + double fConst462; + double fConst463; + double fConst464; + double fConst465; + double fConst466; + double fConst467; + double fConst468; + double fConst469; + double fConst470; + double fConst471; + double fConst472; + double fConst473; + double fConst474; + double fConst475; + double fConst476; + double fConst477; + double fConst478; + double fConst479; + double fConst480; + double fConst481; + double fConst482; + double fConst483; + double fConst484; + double fConst485; + double fRec268[2]; + FAUSTFLOAT fVbargraph68; + double fConst486; + double fConst487; + double fConst488; + double fConst489; + double fConst490; + double fConst491; + double fConst492; + double fConst493; + double fConst494; + double fConst495; + double fConst496; + double fConst497; + double fConst498; + double fConst499; + double fConst500; + double fConst501; + double fConst502; + double fConst503; + double fConst504; + double fConst505; + double fConst506; + double fConst507; + double fConst508; + double fConst509; + double fConst510; + double fConst511; + double fRec269[2]; + FAUSTFLOAT fVbargraph69; + double fConst512; + double fConst513; + double fConst514; + double fConst515; + double fConst516; + double fConst517; + double fConst518; + double fConst519; + double fConst520; + double fConst521; + double fConst522; + double fConst523; + double fConst524; + double fConst525; + double fConst526; + double fConst527; + double fConst528; + double fConst529; + double fConst530; + double fConst531; + double fConst532; + double fRec270[2]; + FAUSTFLOAT fVbargraph70; + double fConst533; + double fConst534; + double fConst535; + double fConst536; + double fConst537; + double fConst538; + double fConst539; + double fConst540; + double fConst541; + double fConst542; + double fConst543; + double fConst544; + double fConst545; + double fConst546; + double fConst547; + double fConst548; + double fConst549; + double fConst550; + double fConst551; + double fConst552; + double fRec271[2]; + FAUSTFLOAT fVbargraph71; + double fConst553; + double fConst554; + double fConst555; + double fConst556; + double fConst557; + double fConst558; + double fConst559; + double fConst560; + double fConst561; + double fConst562; + double fConst563; + double fConst564; + double fConst565; + double fConst566; + double fConst567; + double fConst568; + double fConst569; + double fConst570; + double fConst571; + double fConst572; + double fConst573; + double fConst574; + double fConst575; + double fConst576; + double fConst577; + double fConst578; + double fRec272[2]; + FAUSTFLOAT fVbargraph72; + double fConst579; + double fConst580; + double fConst581; + double fConst582; + double fConst583; + double fConst584; + double fConst585; + double fConst586; + double fConst587; + double fConst588; + double fConst589; + double fConst590; + double fConst591; + double fConst592; + double fConst593; + double fConst594; + double fConst595; + double fConst596; + double fConst597; + double fConst598; + double fConst599; + double fConst600; + double fConst601; + double fConst602; + double fConst603; + double fConst604; + double fConst605; + double fConst606; + double fConst607; + double fConst608; + double fRec273[2]; + FAUSTFLOAT fVbargraph73; + double fConst609; + double fConst610; + double fConst611; + double fConst612; + double fConst613; + double fConst614; + double fConst615; + double fConst616; + double fConst617; + double fConst618; + double fConst619; + double fConst620; + double fConst621; + double fConst622; + double fConst623; + double fConst624; + double fRec274[2]; + FAUSTFLOAT fVbargraph74; + double fConst625; + double fConst626; + double fConst627; + double fConst628; + double fConst629; + double fConst630; + double fConst631; + double fConst632; + double fConst633; + double fConst634; + double fConst635; + double fConst636; + double fConst637; + double fConst638; + double fRec275[2]; + FAUSTFLOAT fVbargraph75; + double fConst639; + double fConst640; + double fConst641; + double fConst642; + double fConst643; + double fConst644; + double fConst645; + double fConst646; + double fConst647; + double fConst648; + double fConst649; + double fConst650; + double fConst651; + double fConst652; + double fConst653; + double fConst654; + double fConst655; + double fConst656; + double fRec276[2]; + FAUSTFLOAT fVbargraph76; + double fConst657; + double fConst658; + double fConst659; + double fConst660; + double fConst661; + double fConst662; + double fConst663; + double fConst664; + double fConst665; + double fConst666; + double fConst667; + double fConst668; + double fConst669; + double fConst670; + double fConst671; + double fConst672; + double fConst673; + double fConst674; + double fConst675; + double fConst676; + double fConst677; + double fConst678; + double fConst679; + double fConst680; + double fRec277[2]; + FAUSTFLOAT fVbargraph77; + double fConst681; + double fConst682; + double fConst683; + double fConst684; + double fConst685; + double fConst686; + double fConst687; + double fConst688; + double fConst689; + double fConst690; + double fConst691; + double fConst692; + double fRec278[2]; + FAUSTFLOAT fVbargraph78; + double fConst693; + double fConst694; + double fConst695; + double fConst696; + double fConst697; + double fConst698; + double fConst699; + double fConst700; + double fConst701; + double fConst702; + double fConst703; + double fConst704; + double fConst705; + double fConst706; + double fRec279[2]; + FAUSTFLOAT fVbargraph79; + double fConst707; + double fConst708; + double fConst709; + double fConst710; + double fConst711; + double fConst712; + double fConst713; + double fConst714; + double fConst715; + double fConst716; + double fConst717; + double fConst718; + double fConst719; + double fConst720; + double fConst721; + double fConst722; + double fConst723; + double fConst724; + double fConst725; + double fConst726; + double fRec280[2]; + FAUSTFLOAT fVbargraph80; + double fConst727; + double fConst728; + double fConst729; + double fConst730; + double fConst731; + double fConst732; + double fConst733; + double fConst734; + double fConst735; + double fConst736; + double fConst737; + double fConst738; + double fConst739; + double fConst740; + double fConst741; + double fConst742; + double fConst743; + double fConst744; + double fConst745; + double fConst746; + double fConst747; + double fConst748; + double fConst749; + double fConst750; + double fRec281[2]; + FAUSTFLOAT fVbargraph81; + double fConst751; + double fConst752; + double fConst753; + double fConst754; + double fConst755; + double fConst756; + double fConst757; + double fConst758; + double fConst759; + double fConst760; + double fConst761; + double fConst762; + double fConst763; + double fConst764; + double fConst765; + double fConst766; + double fConst767; + double fConst768; + double fConst769; + double fConst770; + double fConst771; + double fConst772; + double fConst773; + double fConst774; + double fConst775; + double fConst776; + double fConst777; + double fConst778; + double fConst779; + double fConst780; + double fRec282[2]; + FAUSTFLOAT fVbargraph82; + double fConst781; + double fConst782; + double fConst783; + double fConst784; + double fConst785; + double fConst786; + double fConst787; + double fConst788; + double fConst789; + double fConst790; + double fConst791; + double fConst792; + double fConst793; + double fConst794; + double fRec283[2]; + FAUSTFLOAT fVbargraph83; + double fConst795; + double fConst796; + double fConst797; + double fConst798; + double fConst799; + double fConst800; + double fConst801; + double fConst802; + double fConst803; + double fConst804; + double fConst805; + double fRec284[2]; + FAUSTFLOAT fVbargraph84; + double fConst806; + double fConst807; + double fConst808; + double fConst809; + double fConst810; + double fConst811; + double fConst812; + double fConst813; + double fConst814; + double fConst815; + double fConst816; + double fConst817; + double fConst818; + double fConst819; + double fRec285[2]; + FAUSTFLOAT fVbargraph85; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOADecLebedev505"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 36; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (170.0 / fConst0); + fConst3 = (340.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + fConst6 = (394.77151028643527 / fConst0); + fConst7 = (625.22848971356643 / fConst0); + fConst8 = (1250.4569794271329 / fConst0); + fConst9 = (789.54302057287055 / fConst0); + fConst10 = (984.71160495892411 / fConst0); + fConst11 = (715.28839504107589 / fConst0); + fConst12 = (1430.5767900821518 / fConst0); + fConst13 = (1969.4232099178482 / fConst0); + fConst14 = (619.94556120603033 / fConst0); + fConst15 = (1139.6651757122002 / fConst0); + fConst16 = (790.3892630817644 / fConst0); + fConst17 = (1580.7785261635288 / fConst0); + fConst18 = (2279.3303514244003 / fConst0); + fConst19 = (1239.8911224120607 / fConst0); + fConst20 = double(tgamma(1.5)); + fConst21 = (0.0 - (3.3851375012865379 * fConst20)); + fConst22 = double(tgamma(3.0)); + fConst23 = double(tgamma(5.0)); + fConst24 = sqrt((7.0 * (fConst22 / fConst23))); + fConst25 = (fConst21 * fConst24); + fConst26 = double(tgamma(2.5)); + fConst27 = double(tgamma(7.0)); + fConst28 = sqrt((9.0 * (fConst22 / fConst27))); + fConst29 = ((0.0 - (11.283791670955125 * fConst26)) * fConst28); + fConst30 = double(tgamma(3.5)); + fConst31 = double(tgamma(9.0)); + fConst32 = sqrt((11.0 * (fConst22 / fConst31))); + fConst33 = ((0.0 - (31.594616678674353 * fConst30)) * fConst32); + fConst34 = sqrt((11.0 * (fConst23 / fConst27))); + fConst35 = ((0.0 - (2.5 * fConst21)) * fConst34); + fConst36 = (0.0044895668646764923 * fConst35); + fConst37 = double(tgamma(1.0)); + fConst38 = sqrt((7.0 * (fConst37 / fConst27))); + fConst39 = (fConst30 * fConst38); + fConst40 = (0.081054939510132359 * fConst39); + fConst41 = sqrt((5.0 * (fConst37 / fConst23))); + fConst42 = (fConst26 * fConst41); + fConst43 = (0.04052746975506618 * fConst42); + fConst44 = sqrt((3.0 * (fConst37 / fConst22))); + fConst45 = (fConst20 * fConst44); + fConst46 = (0.02026373487753309 * fConst45); + fConst47 = double(tgamma(4.5)); + fConst48 = sqrt((9.0 * (fConst37 / fConst31))); + fConst49 = (fConst47 * fConst48); + fConst50 = (0.16210987902026472 * fConst49); + fConst51 = (double(tgamma(5.5)) * sqrt((11.0 * (fConst37 / double(tgamma(11.0)))))); + fConst52 = (0.32421975804052944 * fConst51); + fConst53 = (0.0 - (3.1915382432114616 * fConst42)); + fConst54 = (0.0 - (6.3830764864229232 * fConst39)); + fConst55 = (0.0 - (0.70710678118654757 * fConst29)); + fConst56 = (0.0 - (0.70710678118654757 * fConst33)); + fConst57 = (0.0089791337293529845 * fConst25); + fConst58 = (0.0089791337293529845 * fConst29); + fConst59 = (0.0 - (1.5957691216057308 * fConst45)); + fConst60 = (0.0 - (0.70710678118654757 * fConst25)); + fConst61 = (0.0 - (0.35355339059327379 * fConst35)); + fConst62 = (0.0 - (25.532305945691693 * fConst51)); + fConst63 = (0.0089791337293529845 * fConst33); + fConst64 = (0.072048835120117685 * fConst48); + fConst65 = double(tgamma(2.0)); + fConst66 = sqrt((11.0 * (fConst65 / double(tgamma(10.0))))); + fConst67 = (0.45851597901024027 * fConst66); + fConst68 = (0.050946219890026692 * fConst38); + fConst69 = double(tgamma(8.0)); + fConst70 = sqrt((9.0 * (fConst65 / fConst69))); + fConst71 = (0.25217092292041182 * fConst70); + fConst72 = (0.62409119365282684 * fConst32); + fConst73 = (0.036024417560058836 * fConst41); + fConst74 = double(tgamma(6.0)); + fConst75 = sqrt((7.0 * (fConst65 / fConst74))); + fConst76 = (0.12736554972506672 * fConst75); + fConst77 = (0.22515260975036763 * fConst28); + fConst78 = double(tgamma(4.0)); + fConst79 = sqrt((11.0 * (fConst78 / fConst69))); + fConst80 = (0.22288971201886659 * fConst79); + fConst81 = ((0.0 - (4.4881006545161242 * fConst20)) * fConst34); + fConst82 = (0.0079814522038693207 * fConst81); + fConst83 = (0.025473109945013343 * fConst44); + fConst84 = sqrt((5.0 * (fConst65 / fConst78))); + fConst85 = (0.054036626340088233 * fConst84); + fConst86 = (0.057314497376279992 * fConst24); + fConst87 = sqrt((9.0 * (fConst78 / fConst74))); + fConst88 = (0.02251526097503671 * fConst87); + fConst89 = (0.10189243978005341 * fConst51); + fConst90 = (0.0 - (1.595769121605731 * fConst42)); + fConst91 = (0.0 - (2.256758334191026 * fConst39)); + fConst92 = (fConst26 * fConst75); + fConst93 = (0.0 - (5.6418958354775643 * fConst92)); + fConst94 = (fConst30 * fConst70); + fConst95 = (0.0 - (11.170383851240118 * fConst94)); + fConst96 = (fConst26 * fConst28); + fConst97 = (0.0 - (9.9735570100358153 * fConst96)); + fConst98 = (fConst30 * fConst32); + fConst99 = (0.0 - (27.645289593840062 * fConst98)); + fConst100 = (fConst26 * fConst79); + fConst101 = (0.0 - (9.8733177120857309 * fConst100)); + fConst102 = (0.0 - (1.1283791670955128 * fConst45)); + fConst103 = (fConst20 * fConst84); + fConst104 = (0.0 - (2.3936536824085959 * fConst103)); + fConst105 = (fConst20 * fConst24); + fConst106 = (0.0 - (2.5388531259649025 * fConst105)); + fConst107 = (fConst20 * fConst87); + fConst108 = (0.0 - (0.99735570100357918 * fConst107)); + fConst109 = (0.0 - (0.35355339059327379 * fConst81)); + fConst110 = (0.0 - (4.5135166683820529 * fConst51)); + fConst111 = (1.3574799921485692e-16 * fConst49); + fConst112 = (0.10189243978005338 * fConst39); + fConst113 = (0.011287477954144627 * fConst33); + fConst114 = (0.0 - (4.5135166683820485 * fConst39)); + fConst115 = (0.0 - (12.766152972845845 * fConst49)); + fConst116 = (0.0 - (18.054066673528194 * fConst51)); + fConst117 = (0.0 - (0.49999999999999983 * fConst33)); + fConst118 = (0.0 - (18.054066673528208 * fConst51)); + fConst119 = (0.0 - (1.1283791670955126 * fConst45)); + fConst120 = (0.0 - (7.0866384831701748e-16 * fConst42)); + fConst121 = (0.0 - (0.5 * fConst25)); + fConst122 = (0.0 - (1.5700924586837752e-16 * fConst29)); + fConst123 = (0.0 - (12.766152972845846 * fConst49)); + fConst124 = (0.0 - (18.054066673528212 * fConst51)); + fConst125 = (0.0 - (0.25 * fConst35)); + fConst126 = (1.3574799921485695e-16 * fConst49); + fConst127 = (0.0056437389770723117 * fConst35); + fConst128 = (0.011287477954144623 * fConst25); + fConst129 = (0.025473109945013343 * fConst45); + fConst130 = (0.4075697591202132 * fConst51); + fConst131 = (0.0 - (1.128379167095513 * fConst45)); + fConst132 = (0.0 - (4.5135166683820547 * fConst39)); + fConst133 = (0.0 - (0.50000000000000011 * fConst25)); + fConst134 = (0.0 - (0.50000000000000044 * fConst33)); + fConst135 = (0.0 - (0.25000000000000006 * fConst35)); + fConst136 = (2.7149599842971385e-16 * fConst49); + fConst137 = (0.10189243978005329 * fConst39); + fConst138 = (0.011287477954144615 * fConst33); + fConst139 = (2.714959984297139e-16 * fConst49); + fConst140 = (0.40756975912021387 * fConst51); + fConst141 = (0.01128747795414462 * fConst25); + fConst142 = (0.025473109945013332 * fConst45); + fConst143 = (0.0056437389770723099 * fConst35); + fConst144 = (0.0 - (1.417327696634035e-15 * fConst42)); + fConst145 = (0.0 - (4.5135166683820476 * fConst39)); + fConst146 = (0.0 - (4.5135166683820538 * fConst39)); + fConst147 = (0.0 - (3.1401849173675503e-16 * fConst29)); + fConst148 = (0.0 - (0.49999999999999967 * fConst33)); + fConst149 = (0.0 - (0.50000000000000033 * fConst33)); + fConst150 = (0.0 - (18.05406667352818 * fConst51)); + fConst151 = (0.0 - (1.6925687506432687 * fConst20)); + fConst152 = (fConst151 * fConst84); + fConst153 = (0.0 - (3.9894228040143274 * fConst26)); + fConst154 = (fConst153 * fConst75); + fConst155 = (0.0 - (7.898654169668589 * fConst30)); + fConst156 = (fConst155 * fConst70); + fConst157 = ((0.0 - (14.361922094451582 * fConst47)) * fConst66); + fConst158 = (0.0 - ((3.5355339059327373 * fConst151) + (2.3936536824085963 * fConst20))); + fConst159 = (fConst158 * fConst24); + fConst160 = (0.0 - ((4.9497474683058318 * fConst153) + (5.6418958354775643 * fConst26))); + fConst161 = (fConst160 * fConst28); + fConst162 = ((0.0 - ((6.3639610306789276 * fConst155) + (11.170383851240119 * fConst30))) * fConst32); + fConst163 = (0.0 - ((2.4748737341529159 * fConst158) + (4.0 * fConst151))); + fConst164 = (fConst163 * fConst87); + fConst165 = ((0.0 - ((3.1819805153394638 * fConst160) + (6.0 * fConst153))) * fConst79); + fConst166 = ((0.0 - ((2.1213203435596424 * fConst163) + (2.5 * fConst158))) * fConst34); + fConst167 = (0.0079814522038693207 * fConst166); + fConst168 = (0.072048835120117685 * fConst49); + fConst169 = (0.050946219890026692 * fConst39); + fConst170 = (0.036024417560058836 * fConst42); + fConst171 = (0.0 - (1.4142135623730951 * fConst154)); + fConst172 = (0.0 - (1.4142135623730951 * fConst156)); + fConst173 = (0.0 - (0.70710678118654757 * fConst161)); + fConst174 = (0.0 - (0.70710678118654757 * fConst162)); + fConst175 = (0.0 - (0.47140452079103168 * fConst165)); + fConst176 = (0.010641936271825759 * fConst164); + fConst177 = (0.015962904407738641 * fConst159); + fConst178 = (0.0 - (1.4142135623730951 * fConst152)); + fConst179 = (0.0 - (0.70710678118654757 * fConst159)); + fConst180 = (0.0 - (0.47140452079103168 * fConst164)); + fConst181 = (0.0 - (0.35355339059327379 * fConst166)); + fConst182 = (0.010641936271825759 * fConst165); + fConst183 = (0.015962904407738641 * fConst161); + fConst184 = (0.015962904407738641 * fConst162); + fConst185 = (0.12956030605175081 * fConst75); + fConst186 = (2.8768166971227152e-17 * fConst75); + fConst187 = (0.14960335515053727 * fConst28); + fConst188 = (3.3218617889860196e-17 * fConst28); + fConst189 = (1.0598124096115483e-16 * fConst79); + fConst190 = (2.3532562778684169e-32 * fConst79); + fConst191 = (0.0 - (2.6596152026762163 * fConst20)); + fConst192 = (((1.7320508075688776 * fConst191) - (4.6065886596178087 * fConst20)) * fConst34); + fConst193 = (0.051824122420700336 * fConst38); + fConst194 = (0.20944469721075218 * fConst70); + fConst195 = (0.36276885694490241 * fConst32); + fConst196 = (5.6373863931755746e-17 * fConst48); + fConst197 = (2.9292718964632671e-16 * fConst66); + fConst198 = (fConst191 * fConst87); + fConst199 = (0.033660754908870889 * fConst84); + fConst200 = (0.019434045907762629 * fConst24); + fConst201 = (0.019434045907762633 * fConst24); + fConst202 = (0.0 - (2.4568472851294949 * fConst39)); + fConst203 = (0.0 - (9.929230089991206 * fConst94)); + fConst204 = (0.0 - (5.6738457657092614 * fConst49)); + fConst205 = (0.0 - (6.5515927603453177 * fConst51)); + fConst206 = (0.0 - (17.197930995906468 * fConst98)); + fConst207 = (fConst47 * fConst66); + fConst208 = (0.0 - (29.482167421553953 * fConst207)); + fConst209 = (0.0 - (6.551592760345323 * fConst51)); + fConst210 = (0.0 - (0.92131773192356115 * fConst45)); + fConst211 = (0.0 - (2.1276921621409737 * fConst42)); + fConst212 = (0.0 - (1.5957691216057308 * fConst103)); + fConst213 = (0.0 - (4.7244256554467816e-16 * fConst42)); + fConst214 = (0.0 - (6.1421182128237417 * fConst92)); + fConst215 = (0.0 - (0.92131773192356159 * fConst105)); + fConst216 = (0.0 - (1.3638242119692871e-15 * fConst92)); + fConst217 = (0.0 - (7.0923072071365816 * fConst96)); + fConst218 = (0.0 - (0.33333333333333331 * fConst198)); + fConst219 = (0.0 - (1.5748085518155944e-15 * fConst96)); + fConst220 = (0.0 - (5.6738457657092622 * fConst49)); + fConst221 = (0.0 - (6.5515927603453248 * fConst51)); + fConst222 = (0.0 - (5.0242958677880805e-15 * fConst100)); + fConst223 = (0.0 - (0.25 * fConst192)); + fConst224 = (0.0 - (1.1156177909894717e-30 * fConst100)); + fConst225 = (0.0 - (29.482167421553957 * fConst207)); + fConst226 = (0.20944469721075201 * fConst70); + fConst227 = (0.36276885694490207 * fConst32); + fConst228 = (5.6373863931755758e-17 * fConst48); + fConst229 = (2.9292718964632676e-16 * fConst66); + fConst230 = (0.019434045907762623 * fConst44); + fConst231 = (0.0052734375000000012 * fConst192); + fConst232 = (0.007031250000000001 * fConst198); + fConst233 = (0.13819765978853404 * fConst51); + fConst234 = (0.0 - (0.92131773192356148 * fConst45)); + fConst235 = (0.0 - (1.5957691216057313 * fConst103)); + fConst236 = (0.0 - (2.456847285129498 * fConst39)); + fConst237 = (0.0 - (0.92131773192356192 * fConst105)); + fConst238 = (0.0 - (9.9292300899912185 * fConst94)); + fConst239 = (0.0 - (0.33333333333333343 * fConst198)); + fConst240 = (0.0 - (17.197930995906489 * fConst98)); + fConst241 = (0.0 - (0.25000000000000006 * fConst192)); + fConst242 = (0.051824122420700267 * fConst38); + fConst243 = (0.20944469721075193 * fConst70); + fConst244 = (0.36276885694490202 * fConst32); + fConst245 = (0.12956030605175084 * fConst75); + fConst246 = (5.7536333942454304e-17 * fConst75); + fConst247 = (0.14960335515053733 * fConst28); + fConst248 = (6.6437235779720392e-17 * fConst28); + fConst249 = (1.0598124096115484e-16 * fConst79); + fConst250 = (4.7065125557368339e-32 * fConst79); + fConst251 = (1.1274772786351149e-16 * fConst48); + fConst252 = (5.8585437929265342e-16 * fConst66); + fConst253 = (1.1274772786351152e-16 * fConst48); + fConst254 = (5.8585437929265352e-16 * fConst66); + fConst255 = (0.019434045907762616 * fConst44); + fConst256 = (0.033660754908870882 * fConst84); + fConst257 = (0.019434045907762626 * fConst24); + fConst258 = (0.0070312499999999993 * fConst198); + fConst259 = (0.13819765978853429 * fConst51); + fConst260 = (0.0052734374999999995 * fConst192); + fConst261 = (0.0 - (9.4488513108935631e-16 * fConst42)); + fConst262 = (0.0 - (2.456847285129494 * fConst39)); + fConst263 = (0.0 - (2.7276484239385742e-15 * fConst92)); + fConst264 = (0.0 - (2.4568472851294976 * fConst39)); + fConst265 = (0.0 - (9.9292300899912025 * fConst94)); + fConst266 = (0.0 - (3.1496171036311889e-15 * fConst96)); + fConst267 = (0.0 - (9.9292300899912167 * fConst94)); + fConst268 = (0.0 - (17.197930995906464 * fConst98)); + fConst269 = (0.0 - (2.2312355819789434e-30 * fConst100)); + fConst270 = (0.0 - (17.197930995906486 * fConst98)); + fConst271 = (0.0 - (6.5515927603453132 * fConst51)); + fConst272 = (0.0 - (4.3431334391370653 * fConst26)); + fConst273 = (0.0 - ((4.0414518843273806 * fConst272) + (7.5225277806367483 * fConst26))); + fConst274 = ((0.0 - ((2.5980762113533165 * fConst273) + (6.0 * fConst272))) * fConst79); + fConst275 = (0.0 - (1.5957691216057308 * fConst20)); + fConst276 = (0.0 - ((2.8867513459481291 * fConst275) + (2.7639531957706835 * fConst20))); + fConst277 = (0.0 - ((2.0207259421636903 * fConst276) + (4.0 * fConst275))); + fConst278 = ((0.0 - ((1.7320508075688776 * fConst277) + (2.5 * fConst276))) * fConst34); + fConst279 = (0.0 - (9.9292300899912096 * fConst30)); + fConst280 = ((0.0 - ((5.1961524227066329 * fConst279) + (17.197930995906471 * fConst30))) * fConst32); + fConst281 = (0.010546875000000006 * fConst280); + fConst282 = ((0.0 - (20.847040507857912 * fConst47)) * fConst66); + fConst283 = (1.405126015541214e-17 * fConst282); + fConst284 = (fConst273 * fConst28); + fConst285 = (fConst277 * fConst87); + fConst286 = (fConst279 * fConst70); + fConst287 = (0.021093750000000012 * fConst286); + fConst288 = (fConst272 * fConst75); + fConst289 = (fConst276 * fConst24); + fConst290 = (fConst275 * fConst84); + fConst291 = (0.021093750000000005 * fConst290); + fConst292 = (5.6373863931755746e-17 * fConst49); + fConst293 = (0.051824122420700336 * fConst39); + fConst294 = (0.0 - (0.99999999999999967 * fConst286)); + fConst295 = (0.0 - (0.49999999999999983 * fConst280)); + fConst296 = (0.0 - (1.4142135623730949 * fConst282)); + fConst297 = (0.0 - fConst290); + fConst298 = (0.0 - (1.4142135623730951 * fConst288)); + fConst299 = (0.0 - (0.5 * fConst289)); + fConst300 = (0.0 - (3.1401849173675503e-16 * fConst288)); + fConst301 = (0.0 - (0.70710678118654757 * fConst284)); + fConst302 = (0.0 - (0.33333333333333331 * fConst285)); + fConst303 = (0.0 - (1.5700924586837752e-16 * fConst284)); + fConst304 = (0.0 - (0.47140452079103168 * fConst274)); + fConst305 = (0.0 - (0.25 * fConst278)); + fConst306 = (0.0 - (1.0467283057891834e-16 * fConst274)); + fConst307 = (0.0 - (1.4142135623730951 * fConst282)); + fConst308 = (0.0052734375000000012 * fConst278); + fConst309 = (0.007031250000000001 * fConst285); + fConst310 = (0.010546875000000002 * fConst289); + fConst311 = (5.6373863931755758e-17 * fConst49); + fConst312 = (0.019434045907762623 * fConst45); + fConst313 = (0.0 - (1.0000000000000002 * fConst290)); + fConst314 = (0.0 - (0.50000000000000011 * fConst289)); + fConst315 = (0.0 - (1.0000000000000009 * fConst286)); + fConst316 = (0.0 - (0.33333333333333343 * fConst285)); + fConst317 = (0.0 - (0.50000000000000044 * fConst280)); + fConst318 = (0.0 - (0.25000000000000006 * fConst278)); + fConst319 = (0.010546874999999994 * fConst280); + fConst320 = (0.021093749999999988 * fConst286); + fConst321 = (2.810252031082428e-17 * fConst282); + fConst322 = (1.1274772786351149e-16 * fConst49); + fConst323 = (0.051824122420700267 * fConst39); + fConst324 = (0.0070312499999999993 * fConst285); + fConst325 = (0.010546874999999999 * fConst289); + fConst326 = (0.021093749999999998 * fConst290); + fConst327 = (1.1274772786351152e-16 * fConst49); + fConst328 = (0.019434045907762616 * fConst45); + fConst329 = (0.0052734374999999995 * fConst278); + fConst330 = (0.0 - (6.2803698347351007e-16 * fConst288)); + fConst331 = (0.0 - (0.99999999999999933 * fConst286)); + fConst332 = (0.0 - (3.1401849173675503e-16 * fConst284)); + fConst333 = (0.0 - (1.0000000000000007 * fConst286)); + fConst334 = (0.0 - (0.49999999999999967 * fConst280)); + fConst335 = (0.0 - (2.0934566115783667e-16 * fConst274)); + fConst336 = (0.0 - (0.50000000000000033 * fConst280)); + fConst337 = (0.026338897580074728 * fConst84); + fConst338 = (0.026338897580074724 * fConst84); + fConst339 = (0.045001699736364593 * fConst24); + fConst340 = (0.045001699736364587 * fConst24); + fConst341 = (0.059861130863806261 * fConst87); + fConst342 = (0.059861130863806254 * fConst87); + fConst343 = (0.065577343198713223 * fConst34); + fConst344 = (0.065577343198713209 * fConst34); + fConst345 = (0.052943176160428845 * fConst75); + fConst346 = (0.011706176702255417 * fConst41); + fConst347 = (0.13834572466301867 * fConst28); + fConst348 = (0.26952889681672887 * fConst79); + fConst349 = (0.0070590901547238332 * fConst38); + fConst350 = (0.044696311044975172 * fConst70); + fConst351 = (0.15722518980975816 * fConst32); + fConst352 = (0.0 - (1.2884797242127563e-16 * fConst42)); + fConst353 = (0.0 - (5.8273688116286149e-16 * fConst92)); + fConst354 = (0.0 - (0.34992181344801404 * fConst39)); + fConst355 = (0.0 - (1.9878387281720961e-16 * fConst49)); + fConst356 = (0.0 - (1.522748764978713e-15 * fConst96)); + fConst357 = (0.0 - (2.2156133258658022 * fConst94)); + fConst358 = (0.0 - (0.42202158587919975 * fConst49)); + fConst359 = (0.0 - (0.25448859159855519 * fConst51)); + fConst360 = (0.0 - (1.6182610048842852e-15 * fConst207)); + fConst361 = (0.0 - (2.9666604859200243e-15 * fConst100)); + fConst362 = (0.0 - (7.7937131177057708 * fConst98)); + fConst363 = (0.0 - (3.4355959865804975 * fConst207)); + fConst364 = (0.0 - (0.25448859159855491 * fConst51)); + fConst365 = (0.0 - (0.48114249349102017 * fConst45)); + fConst366 = (0.0 - (0.58027968058390089 * fConst42)); + fConst367 = (0.0 - (1.3056292813137786 * fConst103)); + fConst368 = (0.0 - (2.624413600860108 * fConst92)); + fConst369 = (0.0 - (2.230751560731095 * fConst105)); + fConst370 = (0.0 - (6.8578507705370146 * fConst96)); + fConst371 = (0.0 - (2.9673392757131363 * fConst107)); + fConst372 = (0.0 - (13.360651058924196 * fConst100)); + fConst373 = (fConst20 * fConst34); + fConst374 = (0.0 - (3.2506941192471897 * fConst373)); + fConst375 = (0.044696311044975207 * fConst70); + fConst376 = (0.1572251898097583 * fConst32); + fConst377 = (0.0097062489627452973 * fConst44); + fConst378 = (4.0101337658685596e-18 * fConst48); + fConst379 = (3.2645722239460454e-17 * fConst66); + fConst380 = (0.0051338837488900495 * fConst51); + fConst381 = (0.0 - (0.48114249349102034 * fConst45)); + fConst382 = (0.0 - (1.3056292813137791 * fConst103)); + fConst383 = (0.0 - (0.34992181344801421 * fConst39)); + fConst384 = (0.0 - (2.2307515607310959 * fConst105)); + fConst385 = (0.0 - (2.2156133258658035 * fConst94)); + fConst386 = (0.0 - (2.9673392757131376 * fConst107)); + fConst387 = (0.0 - (7.7937131177057752 * fConst98)); + fConst388 = (0.0 - (3.2506941192471905 * fConst373)); + fConst389 = (0.0070590901547238306 * fConst38); + fConst390 = (0.044696311044975165 * fConst70); + fConst391 = (0.15722518980975814 * fConst32); + fConst392 = (0.052943176160428852 * fConst75); + fConst393 = (2.3511493268037518e-17 * fConst75); + fConst394 = (0.1383457246630187 * fConst28); + fConst395 = (6.1437843551734282e-17 * fConst28); + fConst396 = (0.26952889681672892 * fConst79); + fConst397 = (1.1969487481910018e-16 * fConst79); + fConst398 = (8.0202675317371177e-18 * fConst48); + fConst399 = (6.5291444478920883e-17 * fConst66); + fConst400 = (0.0097062489627452939 * fConst44); + fConst401 = (0.026338897580074721 * fConst84); + fConst402 = (0.045001699736364573 * fConst24); + fConst403 = (0.05986113086380624 * fConst87); + fConst404 = (0.0051338837488900581 * fConst51); + fConst405 = (8.0202675317371192e-18 * fConst48); + fConst406 = (6.5291444478920908e-17 * fConst66); + fConst407 = (0.0 - (2.5769594484255127e-16 * fConst42)); + fConst408 = (0.0 - (0.34992181344801365 * fConst39)); + fConst409 = (0.0 - (1.165473762325723e-15 * fConst92)); + fConst410 = (0.0 - (0.34992181344801415 * fConst39)); + fConst411 = (0.0 - (2.2156133258658 * fConst94)); + fConst412 = (0.0 - (3.0454975299574259e-15 * fConst96)); + fConst413 = (0.0 - (2.2156133258658031 * fConst94)); + fConst414 = (0.0 - (7.7937131177057628 * fConst98)); + fConst415 = (0.0 - (5.9333209718400486e-15 * fConst100)); + fConst416 = (0.0 - (7.7937131177057735 * fConst98)); + fConst417 = (0.0 - (0.25448859159855475 * fConst51)); + fConst418 = (0.0 - (0.76346577479571942 * fConst51)); + fConst419 = (0.55445944488012866 * fConst66); + fConst420 = (0.1617173380900363 * fConst66); + fConst421 = ((0.0 - (4.979220665234859 * fConst30)) * fConst32); + fConst422 = (0.0 - (3.7301790647785582 * fConst26)); + fConst423 = (((1.3568010505999357 * fConst422) - (18.557406538063905 * fConst26)) * fConst79); + fConst424 = (0.0 - (1.7605101637794649 * fConst20)); + fConst425 = ((1.0552897060221724 * fConst424) - (3.8926344352424089 * fConst20)); + fConst426 = (((0.90453403373329044 * fConst425) - (2.5 * fConst424)) * fConst34); + fConst427 = (0.19368401452822653 * fConst70); + fConst428 = (0.13408893313492565 * fConst70); + fConst429 = (fConst422 * fConst28); + fConst430 = (fConst425 * fConst87); + fConst431 = (0.052943176160428991 * fConst75); + fConst432 = (0.070590901547238516 * fConst75); + fConst433 = (fConst424 * fConst24); + fConst434 = (0.0087796325266915921 * fConst84); + fConst435 = (0.026338897580074738 * fConst84); + fConst436 = (0.40557681616231633 * fConst51); + fConst437 = (0.059595081393300449 * fConst48); + fConst438 = (0.16171733809003749 * fConst66); + fConst439 = (0.0 - (2.3211187223356089 * fConst42)); + fConst440 = (0.0 - (3.1492963210321352 * fConst39)); + fConst441 = (0.0 - (3.4992181344801496 * fConst92)); + fConst442 = (0.0 - (4.548983574824196 * fConst39)); + fConst443 = (0.0 - (10.128518061100836 * fConst49)); + fConst444 = (0.0 - (6.6468399775974225 * fConst94)); + fConst445 = (0.0 - (0.56568542494923812 * fConst429)); + fConst446 = (0.0 - (9.600991078751834 * fConst94)); + fConst447 = (0.0 - (0.76346577479567002 * fConst51)); + fConst448 = (0.0 - (27.484767892644079 * fConst207)); + fConst449 = (0.0 - (0.40249223594996214 * fConst421)); + fConst450 = (0.0 - (0.37712361663282534 * fConst423)); + fConst451 = (0.0 - (0.58137767414994534 * fConst421)); + fConst452 = (0.052943176160428929 * fConst75); + fConst453 = (0.035118530106766334 * fConst41); + fConst454 = (0.026338897580074742 * fConst84); + fConst455 = (0.0087796325266915817 * fConst84); + fConst456 = (0.0057058809432056004 * fConst423); + fConst457 = (0.0085588214148084006 * fConst429); + fConst458 = (0.40557681616231639 * fConst51); + fConst459 = (0.0 - (0.48114249349102062 * fConst45)); + fConst460 = (0.0 - (1.7408390417517061 * fConst42)); + fConst461 = (0.0 - (0.43520976043792636 * fConst103)); + fConst462 = (0.0 - (2.3211187223356093 * fConst42)); + fConst463 = (0.0 - (3.1492963210321379 * fConst39)); + fConst464 = (0.0 - (2.6244136008601116 * fConst92)); + fConst465 = (0.0 - (0.22360679774997891 * fConst433)); + fConst466 = (0.0 - (3.4992181344801501 * fConst92)); + fConst467 = (0.0 - (6.6468399775974278 * fConst94)); + fConst468 = (0.0 - (0.42426406871192845 * fConst429)); + fConst469 = (0.0 - (0.14907119849998593 * fConst430)); + fConst470 = (0.0 - (0.76346577479565958 * fConst51)); + fConst471 = (0.0 - (0.40249223594996242 * fConst421)); + fConst472 = (0.0 - (0.28284271247461895 * fConst423)); + fConst473 = (0.0 - (0.11180339887498945 * fConst426)); + fConst474 = (0.0 - (0.3771236166328254 * fConst423)); + fConst475 = (0.0 - (20.104598736285961 * fConst51)); + fConst476 = (0.09176817201141016 * fConst38); + fConst477 = (0.19368401452822634 * fConst70); + fConst478 = (0.029118746888235927 * fConst44); + fConst479 = (0.026338897580074745 * fConst84); + fConst480 = (0.0067663424393548327 * fConst426); + fConst481 = (0.009021789919139777 * fConst430); + fConst482 = (0.013532684878709665 * fConst433); + fConst483 = (0.011728326894881708 * fConst421); + fConst484 = (0.55445944488012844 * fConst66); + fConst485 = (0.16171733809003774 * fConst66); + fConst486 = (0.059595081393300019 * fConst48); + fConst487 = (0.0 - (1.443427480473062 * fConst45)); + fConst488 = (0.0 - (1.7408390417517088 * fConst42)); + fConst489 = (0.0 - (1.3056292813137793 * fConst103)); + fConst490 = (0.0 - (2.6244136008601155 * fConst92)); + fConst491 = (0.0 - (0.67082039324993681 * fConst433)); + fConst492 = (0.0 - (3.1492963210321285 * fConst39)); + fConst493 = (0.0 - (10.128518061100845 * fConst49)); + fConst494 = (0.0 - (0.42426406871192907 * fConst429)); + fConst495 = (0.0 - (0.44721359549995787 * fConst430)); + fConst496 = (0.0 - (6.6468399775974083 * fConst94)); + fConst497 = (0.0 - (27.484767892644101 * fConst207)); + fConst498 = (0.0 - (0.28284271247461934 * fConst423)); + fConst499 = (0.0 - (0.3354101966249684 * fConst426)); + fConst500 = (0.0 - (0.40249223594996125 * fConst421)); + fConst501 = (0.091768172011410271 * fConst38); + fConst502 = (0.19368401452822659 * fConst70); + fConst503 = (0.046824706809021746 * fConst41); + fConst504 = (0.0097062489627453216 * fConst44); + fConst505 = (0.0087796325266915939 * fConst84); + fConst506 = (0.007607841257607462 * fConst423); + fConst507 = (0.0022554474797849473 * fConst426); + fConst508 = (0.01172832689488172 * fConst421); + fConst509 = (0.011411761886411192 * fConst429); + fConst510 = (0.0030072633063799293 * fConst430); + fConst511 = (0.0045108949595698946 * fConst433); + fConst512 = (0.16171733809003719 * fConst66); + fConst513 = (0.0 - (0.48114249349102112 * fConst45)); + fConst514 = (0.0 - (1.4434274804730622 * fConst45)); + fConst515 = (0.0 - (0.43520976043792686 * fConst103)); + fConst516 = (0.0 - (1.3056292813137795 * fConst103)); + fConst517 = (0.0 - (4.5489835748241987 * fConst39)); + fConst518 = (0.0 - (0.22360679774997916 * fConst433)); + fConst519 = (0.0 - (0.67082039324993692 * fConst433)); + fConst520 = (0.0 - (3.1492963210321339 * fConst39)); + fConst521 = (0.0 - (9.6009910787518393 * fConst94)); + fConst522 = (0.0 - (0.1490711984999861 * fConst430)); + fConst523 = (0.0 - (0.44721359549995793 * fConst430)); + fConst524 = (0.0 - (6.6468399775974198 * fConst94)); + fConst525 = (0.0 - (20.104598736285965 * fConst51)); + fConst526 = (0.0 - (0.58137767414994568 * fConst421)); + fConst527 = (0.0 - (0.11180339887498958 * fConst426)); + fConst528 = (0.0 - (0.33541019662496846 * fConst426)); + fConst529 = (0.0 - (0.40249223594996197 * fConst421)); + fConst530 = (0.052943176160428963 * fConst75); + fConst531 = (0.070590901547238558 * fConst75); + fConst532 = (0.01540165124667044 * fConst51); + fConst533 = (0.0 - (0.48114249349102095 * fConst45)); + fConst534 = (0.0 - (0.4352097604379267 * fConst103)); + fConst535 = (0.0 - (2.3211187223356085 * fConst42)); + fConst536 = (0.0 - (0.22360679774997907 * fConst433)); + fConst537 = (0.0 - (3.4992181344801487 * fConst92)); + fConst538 = (0.0 - (10.12851806110084 * fConst49)); + fConst539 = (0.0 - (0.14907119849998604 * fConst430)); + fConst540 = (0.0 - (0.5656854249492379 * fConst429)); + fConst541 = (0.0 - (27.484767892644086 * fConst207)); + fConst542 = (0.0 - (0.11180339887498954 * fConst426)); + fConst543 = (0.0 - (0.37712361663282523 * fConst423)); + fConst544 = (0.059595081393300338 * fConst48); + fConst545 = (0.16171733809003716 * fConst66); + fConst546 = (0.052943176160428942 * fConst75); + fConst547 = (0.035118530106766348 * fConst41); + fConst548 = (0.19368401452822642 * fConst70); + fConst549 = (0.13408893313492587 * fConst70); + fConst550 = (0.005705880943205603 * fConst423); + fConst551 = (0.0085588214148084041 * fConst429); + fConst552 = (0.015401651246670513 * fConst51); + fConst553 = (0.55445944488012833 * fConst66); + fConst554 = (0.16171733809003799 * fConst66); + fConst555 = (0.0 - (1.4434274804730625 * fConst45)); + fConst556 = (0.0 - (1.7408390417517057 * fConst42)); + fConst557 = (0.0 - (1.3056292813137798 * fConst103)); + fConst558 = (0.0 - (2.3211187223356098 * fConst42)); + fConst559 = (0.0 - (2.6244136008601107 * fConst92)); + fConst560 = (0.0 - (0.67082039324993703 * fConst433)); + fConst561 = (0.0 - (3.4992181344801505 * fConst92)); + fConst562 = (0.0 - (4.5489835748241934 * fConst39)); + fConst563 = (0.0 - (0.42426406871192829 * fConst429)); + fConst564 = (0.0 - (0.44721359549995798 * fConst430)); + fConst565 = (0.0 - (0.56568542494923824 * fConst429)); + fConst566 = (0.0 - (9.6009910787518287 * fConst94)); + fConst567 = (0.0 - (0.28284271247461884 * fConst423)); + fConst568 = (0.0 - (0.33541019662496852 * fConst426)); + fConst569 = (0.0 - (0.37712361663282545 * fConst423)); + fConst570 = (0.0 - (0.58137767414994512 * fConst421)); + fConst571 = (0.063531811392514792 * fConst38); + fConst572 = (0.13408893313492612 * fConst70); + fConst573 = (0.0097062489627453008 * fConst44); + fConst574 = (0.0087796325266915748 * fConst84); + fConst575 = (0.0022554474797849425 * fConst426); + fConst576 = (0.0081196109272258076 * fConst421); + fConst577 = (0.0030072633063799232 * fConst430); + fConst578 = (0.004510894959569885 * fConst433); + fConst579 = (0.0 - (0.48114249349102228 * fConst45)); + fConst580 = (0.0 - (1.7408390417517114 * fConst42)); + fConst581 = (0.0 - (0.43520976043792792 * fConst103)); + fConst582 = (0.0 - (4.5489835748242058 * fConst39)); + fConst583 = (0.0 - (2.6244136008601191 * fConst92)); + fConst584 = (0.0 - (0.22360679774997969 * fConst433)); + fConst585 = (0.0 - (10.12851806110085 * fConst49)); + fConst586 = (0.0 - (9.6009910787518553 * fConst94)); + fConst587 = (0.0 - (0.42426406871192973 * fConst429)); + fConst588 = (0.0 - (0.14907119849998646 * fConst430)); + fConst589 = (0.0 - (20.104598736285954 * fConst51)); + fConst590 = (0.0 - (27.484767892644118 * fConst207)); + fConst591 = (0.0 - (0.58137767414994668 * fConst421)); + fConst592 = (0.0 - (0.28284271247461978 * fConst423)); + fConst593 = (0.0 - (0.11180339887498984 * fConst426)); + fConst594 = (0.0 - (0.76346577479577982 * fConst51)); + fConst595 = (0.059595081393299554 * fConst48); + fConst596 = (0.16171733809003505 * fConst66); + fConst597 = (0.063531811392514445 * fConst38); + fConst598 = (0.13408893313492534 * fConst70); + fConst599 = (0.046824706809021698 * fConst41); + fConst600 = (0.07059090154723846 * fConst75); + fConst601 = (0.029118746888235913 * fConst44); + fConst602 = (0.026338897580074731 * fConst84); + fConst603 = (0.0081196109272257608 * fConst421); + fConst604 = (0.0076078412576074551 * fConst423); + fConst605 = (0.0067663424393548301 * fConst426); + fConst606 = (0.011411761886411183 * fConst429); + fConst607 = (0.0090217899191397718 * fConst430); + fConst608 = (0.01353268487870966 * fConst433); + fConst609 = (0.0 - (8.2571033474838984 * fConst30)); + fConst610 = (fConst32 * (0.0 - ((2.7136021011998714 * fConst609) + (27.385713658791659 * fConst30)))); + fConst611 = (0.0 - (3.0929010896773175 * fConst26)); + fConst612 = (0.0 - ((2.1105794120443448 * fConst611) + (10.257992428141025 * fConst26))); + fConst613 = (fConst79 * (0.0 - ((1.3568010505999357 * fConst612) + (6.0 * fConst611)))); + fConst614 = (0.0 - (0.97315860881060223 * fConst20)); + fConst615 = (0.0 - ((1.5075567228888176 * fConst614) + (3.2276019669290172 * fConst20))); + fConst616 = (0.0 - ((1.0552897060221724 * fConst615) + (4.0 * fConst614))); + fConst617 = (fConst34 * (0.0 - ((0.90453403373329044 * fConst616) + (2.5 * fConst615)))); + fConst618 = (fConst70 * fConst609); + fConst619 = (fConst28 * fConst612); + fConst620 = (fConst87 * fConst616); + fConst621 = (fConst75 * fConst611); + fConst622 = (fConst24 * fConst615); + fConst623 = (fConst84 * fConst614); + fConst624 = (fConst66 * (0.0 - (20.244443496069714 * fConst47))); + fConst625 = (0.0 - (1.1313708498984762 * fConst621)); + fConst626 = (0.0 - (0.80498447189992428 * fConst618)); + fConst627 = (0.0 - (0.56568542494923812 * fConst619)); + fConst628 = (0.0 - (1.1627553482998907 * fConst618)); + fConst629 = (0.0 - (1.3576450198781711 * fConst624)); + fConst630 = (0.0 - (0.40249223594996214 * fConst610)); + fConst631 = (0.0 - (0.37712361663282534 * fConst613)); + fConst632 = (0.0 - (0.58137767414994534 * fConst610)); + fConst633 = (0.007988233320487842 * fConst624); + fConst634 = (0.0057058809432056004 * fConst613); + fConst635 = (0.0085588214148084006 * fConst619); + fConst636 = (0.017117642829616801 * fConst621); + fConst637 = (0.035118530106766334 * fConst42); + fConst638 = (0.059595081393300449 * fConst49); + fConst639 = (0.0 - (0.44721359549995782 * fConst623)); + fConst640 = (0.0 - (0.84852813742385691 * fConst621)); + fConst641 = (0.0 - (0.22360679774997891 * fConst622)); + fConst642 = (0.0 - (0.80498447189992484 * fConst618)); + fConst643 = (0.0 - (0.42426406871192845 * fConst619)); + fConst644 = (0.0 - (0.14907119849998593 * fConst620)); + fConst645 = (0.0 - (0.40249223594996242 * fConst610)); + fConst646 = (0.0 - (0.28284271247461895 * fConst613)); + fConst647 = (0.0 - (0.11180339887498945 * fConst617)); + fConst648 = (0.0 - (0.3771236166328254 * fConst613)); + fConst649 = (0.011728326894881708 * fConst610); + fConst650 = (0.023456653789763415 * fConst618); + fConst651 = (0.009021789919139777 * fConst620); + fConst652 = (0.013532684878709665 * fConst622); + fConst653 = (0.027065369757419331 * fConst623); + fConst654 = (0.029118746888235927 * fConst45); + fConst655 = (0.09176817201141016 * fConst39); + fConst656 = (0.0067663424393548327 * fConst617); + fConst657 = (0.0 - (1.3416407864998736 * fConst623)); + fConst658 = (0.0 - (0.84852813742385813 * fConst621)); + fConst659 = (0.0 - (0.67082039324993681 * fConst622)); + fConst660 = (0.0 - (0.42426406871192907 * fConst619)); + fConst661 = (0.0 - (0.44721359549995787 * fConst620)); + fConst662 = (0.0 - (0.8049844718999225 * fConst618)); + fConst663 = (0.0 - (1.3576450198781722 * fConst624)); + fConst664 = (0.0 - (0.28284271247461934 * fConst613)); + fConst665 = (0.0 - (0.3354101966249684 * fConst617)); + fConst666 = (0.0 - (0.40249223594996125 * fConst610)); + fConst667 = (0.0079882333204877847 * fConst624); + fConst668 = (0.007607841257607462 * fConst613); + fConst669 = (0.0022554474797849473 * fConst617); + fConst670 = (0.01172832689488172 * fConst610); + fConst671 = (0.011411761886411192 * fConst619); + fConst672 = (0.0030072633063799293 * fConst620); + fConst673 = (0.02345665378976344 * fConst618); + fConst674 = (0.022823523772822384 * fConst621); + fConst675 = (0.0045108949595698946 * fConst622); + fConst676 = (0.0090217899191397891 * fConst623); + fConst677 = (0.091768172011410271 * fConst39); + fConst678 = (0.0097062489627453216 * fConst45); + fConst679 = (0.059595081393300019 * fConst49); + fConst680 = (0.046824706809021746 * fConst42); + fConst681 = (0.0 - (0.44721359549995832 * fConst623)); + fConst682 = (0.0 - (1.3416407864998738 * fConst623)); + fConst683 = (0.0 - (0.22360679774997916 * fConst622)); + fConst684 = (0.0 - (0.67082039324993692 * fConst622)); + fConst685 = (0.0 - (1.1627553482998914 * fConst618)); + fConst686 = (0.0 - (0.1490711984999861 * fConst620)); + fConst687 = (0.0 - (0.44721359549995793 * fConst620)); + fConst688 = (0.0 - (0.80498447189992395 * fConst618)); + fConst689 = (0.0 - (0.58137767414994568 * fConst610)); + fConst690 = (0.0 - (0.11180339887498958 * fConst617)); + fConst691 = (0.0 - (0.33541019662496846 * fConst617)); + fConst692 = (0.0 - (0.40249223594996197 * fConst610)); + fConst693 = (0.0 - (0.44721359549995815 * fConst623)); + fConst694 = (0.0 - (0.22360679774997907 * fConst622)); + fConst695 = (0.0 - (1.1313708498984758 * fConst621)); + fConst696 = (0.0 - (0.14907119849998604 * fConst620)); + fConst697 = (0.0 - (0.5656854249492379 * fConst619)); + fConst698 = (0.0 - (1.3576450198781715 * fConst624)); + fConst699 = (0.0 - (0.11180339887498954 * fConst617)); + fConst700 = (0.0 - (0.37712361663282523 * fConst613)); + fConst701 = (0.0085588214148084041 * fConst619); + fConst702 = (0.017117642829616808 * fConst621); + fConst703 = (0.035118530106766348 * fConst42); + fConst704 = (0.059595081393300338 * fConst49); + fConst705 = (0.005705880943205603 * fConst613); + fConst706 = (0.0079882333204878263 * fConst624); + fConst707 = (0.0 - (1.3416407864998741 * fConst623)); + fConst708 = (0.0 - (0.84852813742385658 * fConst621)); + fConst709 = (0.0 - (0.67082039324993703 * fConst622)); + fConst710 = (0.0 - (1.1313708498984765 * fConst621)); + fConst711 = (0.0 - (0.42426406871192829 * fConst619)); + fConst712 = (0.0 - (0.44721359549995798 * fConst620)); + fConst713 = (0.0 - (0.56568542494923824 * fConst619)); + fConst714 = (0.0 - (1.1627553482998902 * fConst618)); + fConst715 = (0.0 - (0.28284271247461884 * fConst613)); + fConst716 = (0.0 - (0.33541019662496852 * fConst617)); + fConst717 = (0.0 - (0.37712361663282545 * fConst613)); + fConst718 = (0.0 - (0.58137767414994512 * fConst610)); + fConst719 = (0.0022554474797849425 * fConst617); + fConst720 = (0.0081196109272258076 * fConst610); + fConst721 = (0.0030072633063799232 * fConst620); + fConst722 = (0.016239221854451615 * fConst618); + fConst723 = (0.004510894959569885 * fConst622); + fConst724 = (0.00902178991913977 * fConst623); + fConst725 = (0.063531811392514792 * fConst39); + fConst726 = (0.0097062489627453008 * fConst45); + fConst727 = (0.016239221854451522 * fConst618); + fConst728 = (0.011411761886411183 * fConst619); + fConst729 = (0.0090217899191397718 * fConst620); + fConst730 = (0.022823523772822367 * fConst621); + fConst731 = (0.01353268487870966 * fConst622); + fConst732 = (0.027065369757419321 * fConst623); + fConst733 = (0.059595081393299554 * fConst49); + fConst734 = (0.063531811392514445 * fConst39); + fConst735 = (0.046824706809021698 * fConst42); + fConst736 = (0.029118746888235913 * fConst45); + fConst737 = (0.0067663424393548301 * fConst617); + fConst738 = (0.0076078412576074551 * fConst613); + fConst739 = (0.0081196109272257608 * fConst610); + fConst740 = (0.0079882333204877223 * fConst624); + fConst741 = (0.0 - (0.44721359549995937 * fConst623)); + fConst742 = (0.0 - (0.84852813742385946 * fConst621)); + fConst743 = (0.0 - (0.22360679774997969 * fConst622)); + fConst744 = (0.0 - (1.1627553482998934 * fConst618)); + fConst745 = (0.0 - (0.42426406871192973 * fConst619)); + fConst746 = (0.0 - (0.14907119849998646 * fConst620)); + fConst747 = (0.0 - (1.3576450198781731 * fConst624)); + fConst748 = (0.0 - (0.58137767414994668 * fConst610)); + fConst749 = (0.0 - (0.28284271247461978 * fConst613)); + fConst750 = (0.0 - (0.11180339887498984 * fConst617)); + fConst751 = (0.0 - (1.3056292813137786 * fConst20)); + fConst752 = (0.0 - ((4.5226701686664557 * fConst751) + (1.4434274804730605 * fConst20))); + fConst753 = (0.0 - ((3.1658691180665191 * fConst752) + (4.0 * fConst751))); + fConst754 = (fConst34 * (0.0 - ((2.7136021011998732 * fConst753) + (2.5 * fConst752)))); + fConst755 = (0.0 - (1.8557406538063874 * fConst26)); + fConst756 = (0.0 - ((6.3317382361330381 * fConst755) + (2.0515984856282001 * fConst26))); + fConst757 = (fConst79 * (0.0 - ((4.0704031517998098 * fConst756) + (6.0 * fConst755)))); + fConst758 = (0.009509801572009334 * fConst757); + fConst759 = (0.0 - (2.2156133258658013 * fConst30)); + fConst760 = (fConst32 * (0.0 - ((8.1408063035996197 * fConst759) + (2.449452694136097 * fConst30)))); + fConst761 = (0.010086667768959431 * fConst760); + fConst762 = (fConst753 * fConst87); + fConst763 = (fConst756 * fConst28); + fConst764 = (0.014264702358014003 * fConst763); + fConst765 = (fConst759 * fConst70); + fConst766 = (0.020173335537918863 * fConst765); + fConst767 = (fConst752 * fConst24); + fConst768 = (fConst755 * fConst75); + fConst769 = (0.028529404716028006 * fConst768); + fConst770 = (fConst751 * fConst84); + fConst771 = (0.011706176702255417 * fConst42); + fConst772 = (0.0070590901547238332 * fConst39); + fConst773 = (0.0 - (3.1401849173675503e-16 * fConst768)); + fConst774 = (0.0 - (1.5700924586837752e-16 * fConst763)); + fConst775 = (0.0 - (1.0000000000000004 * fConst765)); + fConst776 = (fConst66 * (0.0 - (2.4293332195283566 * fConst47))); + fConst777 = (0.0 - (6.6613381477509402e-16 * fConst776)); + fConst778 = (0.0 - (1.0467283057891834e-16 * fConst757)); + fConst779 = (0.0 - (0.50000000000000022 * fConst760)); + fConst780 = (0.0 - (1.4142135623730951 * fConst776)); + fConst781 = (0.0 - fConst770); + fConst782 = (0.0 - (1.4142135623730951 * fConst768)); + fConst783 = (0.0 - (0.5 * fConst767)); + fConst784 = (0.0 - (0.70710678118654757 * fConst763)); + fConst785 = (0.0 - (0.33333333333333331 * fConst762)); + fConst786 = (0.0 - (0.47140452079103168 * fConst757)); + fConst787 = (0.0 - (0.25 * fConst754)); + fConst788 = (1.343814095861187e-17 * fConst776); + fConst789 = (0.0050433338844797183 * fConst754); + fConst790 = (0.0067244451793062911 * fConst762); + fConst791 = (0.010086667768959437 * fConst767); + fConst792 = (0.020173335537918873 * fConst770); + fConst793 = (4.0101337658685596e-18 * fConst49); + fConst794 = (0.0097062489627452973 * fConst45); + fConst795 = (0.0 - (1.0000000000000002 * fConst770)); + fConst796 = (0.0 - (0.50000000000000011 * fConst767)); + fConst797 = (0.0 - (1.0000000000000009 * fConst765)); + fConst798 = (0.0 - (0.33333333333333343 * fConst762)); + fConst799 = (0.0 - (0.50000000000000044 * fConst760)); + fConst800 = (0.0 - (0.25000000000000006 * fConst754)); + fConst801 = (0.010086667768959428 * fConst760); + fConst802 = (2.6876281917223736e-17 * fConst776); + fConst803 = (0.020173335537918856 * fConst765); + fConst804 = (8.0202675317371177e-18 * fConst49); + fConst805 = (0.0070590901547238306 * fConst39); + fConst806 = (2.6876281917223739e-17 * fConst776); + fConst807 = (0.0067244451793062885 * fConst762); + fConst808 = (0.010086667768959433 * fConst767); + fConst809 = (0.020173335537918866 * fConst770); + fConst810 = (8.0202675317371192e-18 * fConst49); + fConst811 = (0.0097062489627452939 * fConst45); + fConst812 = (0.0050433338844797166 * fConst754); + fConst813 = (0.0 - (6.2803698347351007e-16 * fConst768)); + fConst814 = (0.0 - (0.99999999999999933 * fConst765)); + fConst815 = (0.0 - (3.1401849173675503e-16 * fConst763)); + fConst816 = (0.0 - (1.0000000000000007 * fConst765)); + fConst817 = (0.0 - (0.49999999999999967 * fConst760)); + fConst818 = (0.0 - (2.0934566115783667e-16 * fConst757)); + fConst819 = (0.0 - (0.50000000000000033 * fConst760)); + + } + + virtual void instanceResetUserInterface() { + fVslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fVslider1 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec3[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec6[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec4[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec14[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec15[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec16[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec12[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec11[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec20[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec21[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec18[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec17[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec28[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec29[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec27[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec30[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec31[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec26[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec32[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec25[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec24[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec0[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec37[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec38[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec36[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec39[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec35[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec34[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec43[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec44[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec42[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec45[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec46[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec41[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec40[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec51[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec52[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec50[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec53[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec54[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec49[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec55[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec48[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec47[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec60[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec61[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec59[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec62[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec63[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec58[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec64[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec57[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec56[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec68[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec69[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec67[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec70[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec66[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec65[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec73[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec74[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec72[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec71[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec77[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec76[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec75[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec81[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec82[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec80[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec83[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec84[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec79[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec78[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec89[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec90[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec88[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec91[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec92[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec87[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec93[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec86[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec85[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec33[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec98[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec99[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec97[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec100[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec96[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec95[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec105[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec106[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec104[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec107[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec108[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec103[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec109[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec102[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec101[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec113[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec114[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec112[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec115[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec111[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec110[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec118[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec117[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec116[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec123[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec124[l119] = 0.0; + + } + for (int l120 = 0; (l120 < 2); l120 = (l120 + 1)) { + fRec122[l120] = 0.0; + + } + for (int l121 = 0; (l121 < 2); l121 = (l121 + 1)) { + fRec125[l121] = 0.0; + + } + for (int l122 = 0; (l122 < 2); l122 = (l122 + 1)) { + fRec126[l122] = 0.0; + + } + for (int l123 = 0; (l123 < 2); l123 = (l123 + 1)) { + fRec121[l123] = 0.0; + + } + for (int l124 = 0; (l124 < 2); l124 = (l124 + 1)) { + fRec127[l124] = 0.0; + + } + for (int l125 = 0; (l125 < 2); l125 = (l125 + 1)) { + fRec120[l125] = 0.0; + + } + for (int l126 = 0; (l126 < 2); l126 = (l126 + 1)) { + fRec119[l126] = 0.0; + + } + for (int l127 = 0; (l127 < 2); l127 = (l127 + 1)) { + fRec132[l127] = 0.0; + + } + for (int l128 = 0; (l128 < 2); l128 = (l128 + 1)) { + fRec133[l128] = 0.0; + + } + for (int l129 = 0; (l129 < 2); l129 = (l129 + 1)) { + fRec131[l129] = 0.0; + + } + for (int l130 = 0; (l130 < 2); l130 = (l130 + 1)) { + fRec134[l130] = 0.0; + + } + for (int l131 = 0; (l131 < 2); l131 = (l131 + 1)) { + fRec135[l131] = 0.0; + + } + for (int l132 = 0; (l132 < 2); l132 = (l132 + 1)) { + fRec130[l132] = 0.0; + + } + for (int l133 = 0; (l133 < 2); l133 = (l133 + 1)) { + fRec136[l133] = 0.0; + + } + for (int l134 = 0; (l134 < 2); l134 = (l134 + 1)) { + fRec129[l134] = 0.0; + + } + for (int l135 = 0; (l135 < 2); l135 = (l135 + 1)) { + fRec128[l135] = 0.0; + + } + for (int l136 = 0; (l136 < 2); l136 = (l136 + 1)) { + fRec94[l136] = 0.0; + + } + for (int l137 = 0; (l137 < 2); l137 = (l137 + 1)) { + fRec137[l137] = 0.0; + + } + for (int l138 = 0; (l138 < 2); l138 = (l138 + 1)) { + fRec138[l138] = 0.0; + + } + for (int l139 = 0; (l139 < 2); l139 = (l139 + 1)) { + fRec139[l139] = 0.0; + + } + for (int l140 = 0; (l140 < 2); l140 = (l140 + 1)) { + fRec145[l140] = 0.0; + + } + for (int l141 = 0; (l141 < 2); l141 = (l141 + 1)) { + fRec146[l141] = 0.0; + + } + for (int l142 = 0; (l142 < 2); l142 = (l142 + 1)) { + fRec144[l142] = 0.0; + + } + for (int l143 = 0; (l143 < 2); l143 = (l143 + 1)) { + fRec147[l143] = 0.0; + + } + for (int l144 = 0; (l144 < 2); l144 = (l144 + 1)) { + fRec148[l144] = 0.0; + + } + for (int l145 = 0; (l145 < 2); l145 = (l145 + 1)) { + fRec143[l145] = 0.0; + + } + for (int l146 = 0; (l146 < 2); l146 = (l146 + 1)) { + fRec149[l146] = 0.0; + + } + for (int l147 = 0; (l147 < 2); l147 = (l147 + 1)) { + fRec142[l147] = 0.0; + + } + for (int l148 = 0; (l148 < 2); l148 = (l148 + 1)) { + fRec141[l148] = 0.0; + + } + for (int l149 = 0; (l149 < 2); l149 = (l149 + 1)) { + fRec153[l149] = 0.0; + + } + for (int l150 = 0; (l150 < 2); l150 = (l150 + 1)) { + fRec154[l150] = 0.0; + + } + for (int l151 = 0; (l151 < 2); l151 = (l151 + 1)) { + fRec152[l151] = 0.0; + + } + for (int l152 = 0; (l152 < 2); l152 = (l152 + 1)) { + fRec155[l152] = 0.0; + + } + for (int l153 = 0; (l153 < 2); l153 = (l153 + 1)) { + fRec156[l153] = 0.0; + + } + for (int l154 = 0; (l154 < 2); l154 = (l154 + 1)) { + fRec151[l154] = 0.0; + + } + for (int l155 = 0; (l155 < 2); l155 = (l155 + 1)) { + fRec150[l155] = 0.0; + + } + for (int l156 = 0; (l156 < 2); l156 = (l156 + 1)) { + fRec160[l156] = 0.0; + + } + for (int l157 = 0; (l157 < 2); l157 = (l157 + 1)) { + fRec161[l157] = 0.0; + + } + for (int l158 = 0; (l158 < 2); l158 = (l158 + 1)) { + fRec159[l158] = 0.0; + + } + for (int l159 = 0; (l159 < 2); l159 = (l159 + 1)) { + fRec162[l159] = 0.0; + + } + for (int l160 = 0; (l160 < 2); l160 = (l160 + 1)) { + fRec158[l160] = 0.0; + + } + for (int l161 = 0; (l161 < 2); l161 = (l161 + 1)) { + fRec157[l161] = 0.0; + + } + for (int l162 = 0; (l162 < 2); l162 = (l162 + 1)) { + fRec167[l162] = 0.0; + + } + for (int l163 = 0; (l163 < 2); l163 = (l163 + 1)) { + fRec168[l163] = 0.0; + + } + for (int l164 = 0; (l164 < 2); l164 = (l164 + 1)) { + fRec166[l164] = 0.0; + + } + for (int l165 = 0; (l165 < 2); l165 = (l165 + 1)) { + fRec169[l165] = 0.0; + + } + for (int l166 = 0; (l166 < 2); l166 = (l166 + 1)) { + fRec170[l166] = 0.0; + + } + for (int l167 = 0; (l167 < 2); l167 = (l167 + 1)) { + fRec165[l167] = 0.0; + + } + for (int l168 = 0; (l168 < 2); l168 = (l168 + 1)) { + fRec171[l168] = 0.0; + + } + for (int l169 = 0; (l169 < 2); l169 = (l169 + 1)) { + fRec164[l169] = 0.0; + + } + for (int l170 = 0; (l170 < 2); l170 = (l170 + 1)) { + fRec163[l170] = 0.0; + + } + for (int l171 = 0; (l171 < 2); l171 = (l171 + 1)) { + fRec174[l171] = 0.0; + + } + for (int l172 = 0; (l172 < 2); l172 = (l172 + 1)) { + fRec175[l172] = 0.0; + + } + for (int l173 = 0; (l173 < 2); l173 = (l173 + 1)) { + fRec173[l173] = 0.0; + + } + for (int l174 = 0; (l174 < 2); l174 = (l174 + 1)) { + fRec172[l174] = 0.0; + + } + for (int l175 = 0; (l175 < 2); l175 = (l175 + 1)) { + fRec179[l175] = 0.0; + + } + for (int l176 = 0; (l176 < 2); l176 = (l176 + 1)) { + fRec180[l176] = 0.0; + + } + for (int l177 = 0; (l177 < 2); l177 = (l177 + 1)) { + fRec178[l177] = 0.0; + + } + for (int l178 = 0; (l178 < 2); l178 = (l178 + 1)) { + fRec181[l178] = 0.0; + + } + for (int l179 = 0; (l179 < 2); l179 = (l179 + 1)) { + fRec182[l179] = 0.0; + + } + for (int l180 = 0; (l180 < 2); l180 = (l180 + 1)) { + fRec177[l180] = 0.0; + + } + for (int l181 = 0; (l181 < 2); l181 = (l181 + 1)) { + fRec176[l181] = 0.0; + + } + for (int l182 = 0; (l182 < 2); l182 = (l182 + 1)) { + fRec140[l182] = 0.0; + + } + for (int l183 = 0; (l183 < 2); l183 = (l183 + 1)) { + fRec187[l183] = 0.0; + + } + for (int l184 = 0; (l184 < 2); l184 = (l184 + 1)) { + fRec188[l184] = 0.0; + + } + for (int l185 = 0; (l185 < 2); l185 = (l185 + 1)) { + fRec186[l185] = 0.0; + + } + for (int l186 = 0; (l186 < 2); l186 = (l186 + 1)) { + fRec189[l186] = 0.0; + + } + for (int l187 = 0; (l187 < 2); l187 = (l187 + 1)) { + fRec190[l187] = 0.0; + + } + for (int l188 = 0; (l188 < 2); l188 = (l188 + 1)) { + fRec185[l188] = 0.0; + + } + for (int l189 = 0; (l189 < 2); l189 = (l189 + 1)) { + fRec184[l189] = 0.0; + + } + for (int l190 = 0; (l190 < 2); l190 = (l190 + 1)) { + fRec193[l190] = 0.0; + + } + for (int l191 = 0; (l191 < 2); l191 = (l191 + 1)) { + fRec194[l191] = 0.0; + + } + for (int l192 = 0; (l192 < 2); l192 = (l192 + 1)) { + fRec192[l192] = 0.0; + + } + for (int l193 = 0; (l193 < 2); l193 = (l193 + 1)) { + fRec191[l193] = 0.0; + + } + for (int l194 = 0; (l194 < 2); l194 = (l194 + 1)) { + fRec198[l194] = 0.0; + + } + for (int l195 = 0; (l195 < 2); l195 = (l195 + 1)) { + fRec199[l195] = 0.0; + + } + for (int l196 = 0; (l196 < 2); l196 = (l196 + 1)) { + fRec197[l196] = 0.0; + + } + for (int l197 = 0; (l197 < 2); l197 = (l197 + 1)) { + fRec200[l197] = 0.0; + + } + for (int l198 = 0; (l198 < 2); l198 = (l198 + 1)) { + fRec201[l198] = 0.0; + + } + for (int l199 = 0; (l199 < 2); l199 = (l199 + 1)) { + fRec196[l199] = 0.0; + + } + for (int l200 = 0; (l200 < 2); l200 = (l200 + 1)) { + fRec195[l200] = 0.0; + + } + for (int l201 = 0; (l201 < 2); l201 = (l201 + 1)) { + fRec183[l201] = 0.0; + + } + for (int l202 = 0; (l202 < 2); l202 = (l202 + 1)) { + fRec202[l202] = 0.0; + + } + for (int l203 = 0; (l203 < 2); l203 = (l203 + 1)) { + fRec203[l203] = 0.0; + + } + for (int l204 = 0; (l204 < 2); l204 = (l204 + 1)) { + fRec208[l204] = 0.0; + + } + for (int l205 = 0; (l205 < 2); l205 = (l205 + 1)) { + fRec209[l205] = 0.0; + + } + for (int l206 = 0; (l206 < 2); l206 = (l206 + 1)) { + fRec207[l206] = 0.0; + + } + for (int l207 = 0; (l207 < 2); l207 = (l207 + 1)) { + fRec210[l207] = 0.0; + + } + for (int l208 = 0; (l208 < 2); l208 = (l208 + 1)) { + fRec211[l208] = 0.0; + + } + for (int l209 = 0; (l209 < 2); l209 = (l209 + 1)) { + fRec206[l209] = 0.0; + + } + for (int l210 = 0; (l210 < 2); l210 = (l210 + 1)) { + fRec205[l210] = 0.0; + + } + for (int l211 = 0; (l211 < 2); l211 = (l211 + 1)) { + fRec215[l211] = 0.0; + + } + for (int l212 = 0; (l212 < 2); l212 = (l212 + 1)) { + fRec216[l212] = 0.0; + + } + for (int l213 = 0; (l213 < 2); l213 = (l213 + 1)) { + fRec214[l213] = 0.0; + + } + for (int l214 = 0; (l214 < 2); l214 = (l214 + 1)) { + fRec217[l214] = 0.0; + + } + for (int l215 = 0; (l215 < 2); l215 = (l215 + 1)) { + fRec218[l215] = 0.0; + + } + for (int l216 = 0; (l216 < 2); l216 = (l216 + 1)) { + fRec213[l216] = 0.0; + + } + for (int l217 = 0; (l217 < 2); l217 = (l217 + 1)) { + fRec212[l217] = 0.0; + + } + for (int l218 = 0; (l218 < 2); l218 = (l218 + 1)) { + fRec221[l218] = 0.0; + + } + for (int l219 = 0; (l219 < 2); l219 = (l219 + 1)) { + fRec222[l219] = 0.0; + + } + for (int l220 = 0; (l220 < 2); l220 = (l220 + 1)) { + fRec220[l220] = 0.0; + + } + for (int l221 = 0; (l221 < 2); l221 = (l221 + 1)) { + fRec219[l221] = 0.0; + + } + for (int l222 = 0; (l222 < 2); l222 = (l222 + 1)) { + fRec204[l222] = 0.0; + + } + for (int l223 = 0; (l223 < 2); l223 = (l223 + 1)) { + fRec223[l223] = 0.0; + + } + for (int l224 = 0; (l224 < 2); l224 = (l224 + 1)) { + fRec224[l224] = 0.0; + + } + for (int l225 = 0; (l225 < 2); l225 = (l225 + 1)) { + fRec225[l225] = 0.0; + + } + for (int l226 = 0; (l226 < 2); l226 = (l226 + 1)) { + fRec226[l226] = 0.0; + + } + for (int l227 = 0; (l227 < 2); l227 = (l227 + 1)) { + fRec227[l227] = 0.0; + + } + for (int l228 = 0; (l228 < 2); l228 = (l228 + 1)) { + fRec228[l228] = 0.0; + + } + for (int l229 = 0; (l229 < 2); l229 = (l229 + 1)) { + fRec229[l229] = 0.0; + + } + for (int l230 = 0; (l230 < 2); l230 = (l230 + 1)) { + fRec234[l230] = 0.0; + + } + for (int l231 = 0; (l231 < 2); l231 = (l231 + 1)) { + fRec235[l231] = 0.0; + + } + for (int l232 = 0; (l232 < 2); l232 = (l232 + 1)) { + fRec233[l232] = 0.0; + + } + for (int l233 = 0; (l233 < 2); l233 = (l233 + 1)) { + fRec236[l233] = 0.0; + + } + for (int l234 = 0; (l234 < 2); l234 = (l234 + 1)) { + fRec232[l234] = 0.0; + + } + for (int l235 = 0; (l235 < 2); l235 = (l235 + 1)) { + fRec231[l235] = 0.0; + + } + for (int l236 = 0; (l236 < 2); l236 = (l236 + 1)) { + fRec241[l236] = 0.0; + + } + for (int l237 = 0; (l237 < 2); l237 = (l237 + 1)) { + fRec242[l237] = 0.0; + + } + for (int l238 = 0; (l238 < 2); l238 = (l238 + 1)) { + fRec240[l238] = 0.0; + + } + for (int l239 = 0; (l239 < 2); l239 = (l239 + 1)) { + fRec243[l239] = 0.0; + + } + for (int l240 = 0; (l240 < 2); l240 = (l240 + 1)) { + fRec244[l240] = 0.0; + + } + for (int l241 = 0; (l241 < 2); l241 = (l241 + 1)) { + fRec239[l241] = 0.0; + + } + for (int l242 = 0; (l242 < 2); l242 = (l242 + 1)) { + fRec245[l242] = 0.0; + + } + for (int l243 = 0; (l243 < 2); l243 = (l243 + 1)) { + fRec238[l243] = 0.0; + + } + for (int l244 = 0; (l244 < 2); l244 = (l244 + 1)) { + fRec237[l244] = 0.0; + + } + for (int l245 = 0; (l245 < 2); l245 = (l245 + 1)) { + fRec250[l245] = 0.0; + + } + for (int l246 = 0; (l246 < 2); l246 = (l246 + 1)) { + fRec251[l246] = 0.0; + + } + for (int l247 = 0; (l247 < 2); l247 = (l247 + 1)) { + fRec249[l247] = 0.0; + + } + for (int l248 = 0; (l248 < 2); l248 = (l248 + 1)) { + fRec252[l248] = 0.0; + + } + for (int l249 = 0; (l249 < 2); l249 = (l249 + 1)) { + fRec253[l249] = 0.0; + + } + for (int l250 = 0; (l250 < 2); l250 = (l250 + 1)) { + fRec248[l250] = 0.0; + + } + for (int l251 = 0; (l251 < 2); l251 = (l251 + 1)) { + fRec254[l251] = 0.0; + + } + for (int l252 = 0; (l252 < 2); l252 = (l252 + 1)) { + fRec247[l252] = 0.0; + + } + for (int l253 = 0; (l253 < 2); l253 = (l253 + 1)) { + fRec246[l253] = 0.0; + + } + for (int l254 = 0; (l254 < 2); l254 = (l254 + 1)) { + fRec230[l254] = 0.0; + + } + for (int l255 = 0; (l255 < 2); l255 = (l255 + 1)) { + fRec255[l255] = 0.0; + + } + for (int l256 = 0; (l256 < 2); l256 = (l256 + 1)) { + fRec256[l256] = 0.0; + + } + for (int l257 = 0; (l257 < 2); l257 = (l257 + 1)) { + fRec257[l257] = 0.0; + + } + for (int l258 = 0; (l258 < 2); l258 = (l258 + 1)) { + fRec258[l258] = 0.0; + + } + for (int l259 = 0; (l259 < 2); l259 = (l259 + 1)) { + fRec259[l259] = 0.0; + + } + for (int l260 = 0; (l260 < 2); l260 = (l260 + 1)) { + fRec260[l260] = 0.0; + + } + for (int l261 = 0; (l261 < 2); l261 = (l261 + 1)) { + fRec261[l261] = 0.0; + + } + for (int l262 = 0; (l262 < 2); l262 = (l262 + 1)) { + fRec262[l262] = 0.0; + + } + for (int l263 = 0; (l263 < 2); l263 = (l263 + 1)) { + fRec263[l263] = 0.0; + + } + for (int l264 = 0; (l264 < 2); l264 = (l264 + 1)) { + fRec264[l264] = 0.0; + + } + for (int l265 = 0; (l265 < 2); l265 = (l265 + 1)) { + fRec265[l265] = 0.0; + + } + for (int l266 = 0; (l266 < 2); l266 = (l266 + 1)) { + fRec266[l266] = 0.0; + + } + for (int l267 = 0; (l267 < 2); l267 = (l267 + 1)) { + fRec267[l267] = 0.0; + + } + for (int l268 = 0; (l268 < 2); l268 = (l268 + 1)) { + fRec268[l268] = 0.0; + + } + for (int l269 = 0; (l269 < 2); l269 = (l269 + 1)) { + fRec269[l269] = 0.0; + + } + for (int l270 = 0; (l270 < 2); l270 = (l270 + 1)) { + fRec270[l270] = 0.0; + + } + for (int l271 = 0; (l271 < 2); l271 = (l271 + 1)) { + fRec271[l271] = 0.0; + + } + for (int l272 = 0; (l272 < 2); l272 = (l272 + 1)) { + fRec272[l272] = 0.0; + + } + for (int l273 = 0; (l273 < 2); l273 = (l273 + 1)) { + fRec273[l273] = 0.0; + + } + for (int l274 = 0; (l274 < 2); l274 = (l274 + 1)) { + fRec274[l274] = 0.0; + + } + for (int l275 = 0; (l275 < 2); l275 = (l275 + 1)) { + fRec275[l275] = 0.0; + + } + for (int l276 = 0; (l276 < 2); l276 = (l276 + 1)) { + fRec276[l276] = 0.0; + + } + for (int l277 = 0; (l277 < 2); l277 = (l277 + 1)) { + fRec277[l277] = 0.0; + + } + for (int l278 = 0; (l278 < 2); l278 = (l278 + 1)) { + fRec278[l278] = 0.0; + + } + for (int l279 = 0; (l279 < 2); l279 = (l279 + 1)) { + fRec279[l279] = 0.0; + + } + for (int l280 = 0; (l280 < 2); l280 = (l280 + 1)) { + fRec280[l280] = 0.0; + + } + for (int l281 = 0; (l281 < 2); l281 = (l281 + 1)) { + fRec281[l281] = 0.0; + + } + for (int l282 = 0; (l282 < 2); l282 = (l282 + 1)) { + fRec282[l282] = 0.0; + + } + for (int l283 = 0; (l283 < 2); l283 = (l283 + 1)) { + fRec283[l283] = 0.0; + + } + for (int l284 = 0; (l284 < 2); l284 = (l284 + 1)) { + fRec284[l284] = 0.0; + + } + for (int l285 = 0; (l285 < 2); l285 = (l285 + 1)) { + fRec285[l285] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOADecLebedev505"); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openHorizontalBox("B-Format"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28d0380", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a150e0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28db6b0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29a99e0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b4f7d0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2af6230", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28e9f50", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ab76c0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x299ec10", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29e7e50", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bd13a0", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a0bb40", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28fca30", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2943580", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a92a70", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2992280", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b43580", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ae7030", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b32810", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b06670", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2911f30", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ac9670", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2956160", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a811a0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29bc810", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a28ab0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c00a60", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29fcbb0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2be7040", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a3c5d0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x292c2d0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2981b80", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2aa8bf0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x296c460", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a6def0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29d27b0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fVslider1, "1", ""); + ui_interface->declare(&fVslider1, "osc", "/levelin -10 60"); + ui_interface->declare(&fVslider1, "unit", "dB"); + ui_interface->addVerticalSlider("Inputs Gain", &fVslider1, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(&fVslider0, "2", ""); + ui_interface->declare(&fVslider0, "osc", "/levelout -10 60"); + ui_interface->declare(&fVslider0, "unit", "dB"); + ui_interface->addVerticalSlider("Outputs Gain", &fVslider0, 0.0, -10.0, 60.0, 0.10000000000000001); + ui_interface->declare(0, "3", ""); + ui_interface->openVerticalBox("NFC"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "4", ""); + ui_interface->addNumEntry("Speakers Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph6, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2931510", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph16, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29d8140", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph23, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a418c0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph24, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a4aff0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph25, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a52410", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph26, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a57db0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph33, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ad2b70", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph37, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b0cac0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph38, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b18fa0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph39, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b21860", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph43, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b5c9c0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph44, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b6d0d0", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph45, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b7bdf0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph46, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b8b520", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph47, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ba0b50", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph48, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bad260", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph49, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bb8180", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph50, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bc0c60", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph54, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c13c10", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph55, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c2e680", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph56, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c46090", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph57, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph57, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c5cff0", &fVbargraph57, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph58, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph58, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c78370", &fVbargraph58, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph59, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph59, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c8bd40", &fVbargraph59, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph60, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph60, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c9dcb0", &fVbargraph60, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("Outputs 26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph61, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph61, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2caf470", &fVbargraph61, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph62, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph62, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cce860", &fVbargraph62, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph63, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph63, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ce2640", &fVbargraph63, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph64, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph64, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cf9030", &fVbargraph64, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph65, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph65, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d0e720", &fVbargraph65, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph66, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph66, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d2c9c0", &fVbargraph66, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph67, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph67, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d46ef0", &fVbargraph67, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph68, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph68, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d626a0", &fVbargraph68, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph69, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph69, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d7c490", &fVbargraph69, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph70, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph70, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d96700", &fVbargraph70, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph71, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph71, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2daea80", &fVbargraph71, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph72, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph72, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dca200", &fVbargraph72, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph73, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph73, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2de6dd0", &fVbargraph73, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph74, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph74, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dfc640", &fVbargraph74, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph75, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph75, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e0e050", &fVbargraph75, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph76, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph76, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e216a0", &fVbargraph76, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph77, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph77, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e36d00", &fVbargraph77, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph78, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph78, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e484d0", &fVbargraph78, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph79, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph79, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e5a5c0", &fVbargraph79, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph80, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph80, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e6f180", &fVbargraph80, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph81, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph81, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e850e0", &fVbargraph81, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph82, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph82, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ea36f0", &fVbargraph82, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph83, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph83, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2eb5450", &fVbargraph83, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph84, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph84, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ec6de0", &fVbargraph84, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph85, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph85, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ed8890", &fVbargraph85, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider0)))); + double fSlow1 = double(fCheckbox0); + double fSlow2 = double(fEntry0); + double fSlow3 = (fSlow1 * fSlow2); + double fSlow4 = (1.0 - fSlow1); + double fSlow5 = (fSlow3 + fSlow4); + double fSlow6 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fVslider1)))); + double fSlow7 = (fConst2 / fSlow2); + double fSlow8 = (1.0 / (fSlow7 + 1.0)); + double fSlow9 = (fConst3 / fSlow2); + double fSlow10 = mydsp_faustpower2_f(fSlow7); + double fSlow11 = (1.0 / (((fConst4 / fSlow2) + (3.0 * fSlow10)) + 1.0)); + double fSlow12 = (12.0 * fSlow10); + double fSlow13 = (fSlow12 + (fConst5 / fSlow2)); + double fSlow14 = (1.0 / ((fConst6 / fSlow2) + 1.0)); + double fSlow15 = (1.0 / (((fConst7 / fSlow2) + (6.4594326934833797 * fSlow10)) + 1.0)); + double fSlow16 = (25.837730773933519 * fSlow10); + double fSlow17 = (fSlow16 + (fConst8 / fSlow2)); + double fSlow18 = (fConst9 / fSlow2); + double fSlow19 = (1.0 / (((fConst10 / fSlow2) + (9.1401308902779004 * fSlow10)) + 1.0)); + double fSlow20 = (1.0 / (((fConst11 / fSlow2) + (11.4878004768713 * fSlow10)) + 1.0)); + double fSlow21 = (45.951201907485199 * fSlow10); + double fSlow22 = (fSlow21 + (fConst12 / fSlow2)); + double fSlow23 = (36.560523561111602 * fSlow10); + double fSlow24 = (fSlow23 + (fConst13 / fSlow2)); + double fSlow25 = (1.0 / ((fConst14 / fSlow2) + 1.0)); + double fSlow26 = (1.0 / (((fConst15 / fSlow2) + (14.272480513280099 * fSlow10)) + 1.0)); + double fSlow27 = (1.0 / (((fConst16 / fSlow2) + (18.1563153134523 * fSlow10)) + 1.0)); + double fSlow28 = (72.6252612538092 * fSlow10); + double fSlow29 = (fSlow28 + (fConst17 / fSlow2)); + double fSlow30 = (57.089922053120397 * fSlow10); + double fSlow31 = (fSlow30 + (fConst18 / fSlow2)); + double fSlow32 = (fConst19 / fSlow2); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + fRec3[0] = (fSlow6 + (0.999 * fRec3[1])); + double fTemp0 = (fSlow5 * (fRec3[0] * double(input0[i]))); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = (0.012698412698412698 * fTemp0); + double fTemp2 = (fRec3[0] * double(input2[i])); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow8 * ((fSlow3 * fTemp2) - (fSlow9 * fRec6[0]))); + double fTemp3 = (fRec5[0] + (fSlow4 * fTemp2)); + fRec4[0] = max((fRec4[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec4[0]); + double fTemp4 = (0.021994295969128601 * fTemp3); + double fTemp5 = (fRec3[0] * double(input6[i])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow11 * ((fSlow3 * fTemp5) - ((fSlow13 * fRec9[0]) + (fSlow12 * fRec10[0])))); + double fTemp6 = (fRec8[0] + (fSlow4 * fTemp5)); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph2 = FAUSTFLOAT(fRec7[0]); + double fTemp7 = (0.028394513999997331 * fTemp6); + double fTemp8 = (fRec3[0] * double(input12[i])); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec15[0] = (fRec15[1] + fRec14[1]); + fRec13[0] = (fSlow15 * ((fSlow3 * fTemp8) - ((fSlow17 * fRec14[0]) + (fSlow16 * fRec15[0])))); + fRec16[0] = (fRec16[1] + fRec12[1]); + fRec12[0] = (fSlow14 * (fRec13[0] - (fSlow18 * fRec16[0]))); + double fTemp9 = (fRec12[0] + (fSlow4 * fTemp8)); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph3 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = (0.033596842045264641 * fTemp9); + double fTemp11 = (fRec3[0] * double(input20[i])); + fRec20[0] = (fRec20[1] + fRec19[1]); + fRec21[0] = (fRec21[1] + fRec20[1]); + fRec19[0] = (fSlow20 * ((fSlow3 * fTemp11) - ((fSlow22 * fRec20[0]) + (fSlow21 * fRec21[0])))); + fRec22[0] = (fRec22[1] + fRec18[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec18[0] = (fSlow19 * (fRec19[0] - ((fSlow24 * fRec22[0]) + (fSlow23 * fRec23[0])))); + double fTemp12 = (fRec18[0] + (fSlow4 * fTemp11)); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph4 = FAUSTFLOAT(fRec17[0]); + double fTemp13 = (0.038095238095238099 * fTemp12); + double fTemp14 = (fRec3[0] * double(input30[i])); + fRec28[0] = (fRec28[1] + fRec27[1]); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec27[0] = (fSlow27 * ((fSlow3 * fTemp14) - ((fSlow29 * fRec28[0]) + (fSlow28 * fRec29[0])))); + fRec30[0] = (fRec30[1] + fRec26[1]); + fRec31[0] = (fRec31[1] + fRec30[1]); + fRec26[0] = (fSlow26 * (fRec27[0] - ((fSlow31 * fRec30[0]) + (fSlow30 * fRec31[0])))); + fRec32[0] = (fRec32[1] + fRec25[1]); + fRec25[0] = (fSlow25 * (fRec26[0] - (fSlow32 * fRec32[0]))); + double fTemp15 = (fRec25[0] + (fSlow4 * fTemp14)); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph5 = FAUSTFLOAT(fRec24[0]); + double fTemp16 = (0.042115870353719366 * fTemp15); + double fTemp17 = (fRec1[0] * (((((fTemp1 + fTemp4) + fTemp7) + fTemp10) + fTemp13) + fTemp16)); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph6 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (fRec3[0] * double(input13[i])); + fRec37[0] = (fRec37[1] + fRec36[1]); + fRec38[0] = (fRec38[1] + fRec37[1]); + fRec36[0] = (fSlow15 * ((fSlow3 * fTemp18) - ((fSlow17 * fRec37[0]) + (fSlow16 * fRec38[0])))); + fRec39[0] = (fRec39[1] + fRec35[1]); + fRec35[0] = (fSlow14 * (fRec36[0] - (fSlow18 * fRec39[0]))); + double fTemp19 = (fRec35[0] + (fSlow4 * fTemp18)); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph7 = FAUSTFLOAT(fRec34[0]); + double fTemp20 = (fRec3[0] * double(input22[i])); + fRec43[0] = (fRec43[1] + fRec42[1]); + fRec44[0] = (fRec44[1] + fRec43[1]); + fRec42[0] = (fSlow20 * ((fSlow3 * fTemp20) - ((fSlow22 * fRec43[0]) + (fSlow21 * fRec44[0])))); + fRec45[0] = (fRec45[1] + fRec41[1]); + fRec46[0] = (fRec46[1] + fRec45[1]); + fRec41[0] = (fSlow19 * (fRec42[0] - ((fSlow24 * fRec45[0]) + (fSlow23 * fRec46[0])))); + double fTemp21 = (fRec41[0] + (fSlow4 * fTemp20)); + fRec40[0] = max((fRec40[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph8 = FAUSTFLOAT(fRec40[0]); + double fTemp22 = (fRec3[0] * double(input33[i])); + fRec51[0] = (fRec51[1] + fRec50[1]); + fRec52[0] = (fRec52[1] + fRec51[1]); + fRec50[0] = (fSlow27 * ((fSlow3 * fTemp22) - ((fSlow29 * fRec51[0]) + (fSlow28 * fRec52[0])))); + fRec53[0] = (fRec53[1] + fRec49[1]); + fRec54[0] = (fRec54[1] + fRec53[1]); + fRec49[0] = (fSlow26 * (fRec50[0] - ((fSlow31 * fRec53[0]) + (fSlow30 * fRec54[0])))); + fRec55[0] = (fRec55[1] + fRec48[1]); + fRec48[0] = (fSlow25 * (fRec49[0] - (fSlow32 * fRec55[0]))); + double fTemp23 = (fRec48[0] + (fSlow4 * fTemp22)); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph9 = FAUSTFLOAT(fRec47[0]); + double fTemp24 = (fRec3[0] * double(input31[i])); + fRec60[0] = (fRec60[1] + fRec59[1]); + fRec61[0] = (fRec61[1] + fRec60[1]); + fRec59[0] = (fSlow27 * ((fSlow3 * fTemp24) - ((fSlow29 * fRec60[0]) + (fSlow28 * fRec61[0])))); + fRec62[0] = (fRec62[1] + fRec58[1]); + fRec63[0] = (fRec63[1] + fRec62[1]); + fRec58[0] = (fSlow26 * (fRec59[0] - ((fSlow31 * fRec62[0]) + (fSlow30 * fRec63[0])))); + fRec64[0] = (fRec64[1] + fRec57[1]); + fRec57[0] = (fSlow25 * (fRec58[0] - (fSlow32 * fRec64[0]))); + double fTemp25 = (fRec57[0] + (fSlow4 * fTemp24)); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph10 = FAUSTFLOAT(fRec56[0]); + double fTemp26 = (fRec3[0] * double(input15[i])); + fRec68[0] = (fRec68[1] + fRec67[1]); + fRec69[0] = (fRec69[1] + fRec68[1]); + fRec67[0] = (fSlow15 * ((fSlow3 * fTemp26) - ((fSlow17 * fRec68[0]) + (fSlow16 * fRec69[0])))); + fRec70[0] = (fRec70[1] + fRec66[1]); + fRec66[0] = (fSlow14 * (fRec67[0] - (fSlow18 * fRec70[0]))); + double fTemp27 = (fRec66[0] + (fSlow4 * fTemp26)); + fRec65[0] = max((fRec65[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph11 = FAUSTFLOAT(fRec65[0]); + double fTemp28 = (fRec3[0] * double(input8[i])); + fRec73[0] = (fRec73[1] + fRec72[1]); + fRec74[0] = (fRec74[1] + fRec73[1]); + fRec72[0] = (fSlow11 * ((fSlow3 * fTemp28) - ((fSlow13 * fRec73[0]) + (fSlow12 * fRec74[0])))); + double fTemp29 = (fRec72[0] + (fSlow4 * fTemp28)); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph12 = FAUSTFLOAT(fRec71[0]); + double fTemp30 = (fConst43 * fTemp29); + double fTemp31 = (fRec3[0] * double(input3[i])); + fRec77[0] = (fRec77[1] + fRec76[1]); + fRec76[0] = (fSlow8 * ((fSlow3 * fTemp31) - (fSlow9 * fRec77[0]))); + double fTemp32 = (fRec76[0] + (fSlow4 * fTemp31)); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph13 = FAUSTFLOAT(fRec75[0]); + double fTemp33 = (0.014285714285714285 * fTemp12); + double fTemp34 = (fRec3[0] * double(input24[i])); + fRec81[0] = (fRec81[1] + fRec80[1]); + fRec82[0] = (fRec82[1] + fRec81[1]); + fRec80[0] = (fSlow20 * ((fSlow3 * fTemp34) - ((fSlow22 * fRec81[0]) + (fSlow21 * fRec82[0])))); + fRec83[0] = (fRec83[1] + fRec79[1]); + fRec84[0] = (fRec84[1] + fRec83[1]); + fRec79[0] = (fSlow19 * (fRec80[0] - ((fSlow24 * fRec83[0]) + (fSlow23 * fRec84[0])))); + double fTemp35 = (fRec79[0] + (fSlow4 * fTemp34)); + fRec78[0] = max((fRec78[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph14 = FAUSTFLOAT(fRec78[0]); + double fTemp36 = (fConst50 * fTemp35); + double fTemp37 = (fRec3[0] * double(input35[i])); + fRec89[0] = (fRec89[1] + fRec88[1]); + fRec90[0] = (fRec90[1] + fRec89[1]); + fRec88[0] = (fSlow27 * ((fSlow3 * fTemp37) - ((fSlow29 * fRec89[0]) + (fSlow28 * fRec90[0])))); + fRec91[0] = (fRec91[1] + fRec87[1]); + fRec92[0] = (fRec92[1] + fRec91[1]); + fRec87[0] = (fSlow26 * (fRec88[0] - ((fSlow31 * fRec91[0]) + (fSlow30 * fRec92[0])))); + fRec93[0] = (fRec93[1] + fRec86[1]); + fRec86[0] = (fSlow25 * (fRec87[0] - (fSlow32 * fRec93[0]))); + double fTemp38 = (fRec86[0] + (fSlow4 * fTemp37)); + fRec85[0] = max((fRec85[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph15 = FAUSTFLOAT(fRec85[0]); + double fTemp39 = (0.014197256999998666 * fTemp6); + double fTemp40 = (fRec1[0] * ((((0.0089791337293529845 * (((fConst25 * fTemp19) + (fConst29 * fTemp21)) + (fConst33 * fTemp23))) + ((fConst36 * fTemp25) + (((fConst40 * fTemp27) + (fTemp30 + ((fConst46 * fTemp32) + (fTemp1 + fTemp33)))) + fTemp36))) + (fConst52 * fTemp38)) - fTemp39)); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph16 = FAUSTFLOAT(fRec33[0]); + output1[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (fConst53 * fTemp29); + double fTemp42 = (fRec3[0] * double(input9[i])); + fRec98[0] = (fRec98[1] + fRec97[1]); + fRec99[0] = (fRec99[1] + fRec98[1]); + fRec97[0] = (fSlow15 * ((fSlow3 * fTemp42) - ((fSlow17 * fRec98[0]) + (fSlow16 * fRec99[0])))); + fRec100[0] = (fRec100[1] + fRec96[1]); + fRec96[0] = (fSlow14 * (fRec97[0] - (fSlow18 * fRec100[0]))); + double fTemp43 = (fRec96[0] + (fSlow4 * fTemp42)); + fRec95[0] = max((fRec95[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph17 = FAUSTFLOAT(fRec95[0]); + double fTemp44 = (fConst55 * fTemp21); + double fTemp45 = (fRec3[0] * double(input27[i])); + fRec105[0] = (fRec105[1] + fRec104[1]); + fRec106[0] = (fRec106[1] + fRec105[1]); + fRec104[0] = (fSlow27 * ((fSlow3 * fTemp45) - ((fSlow29 * fRec105[0]) + (fSlow28 * fRec106[0])))); + fRec107[0] = (fRec107[1] + fRec103[1]); + fRec108[0] = (fRec108[1] + fRec107[1]); + fRec103[0] = (fSlow26 * (fRec104[0] - ((fSlow31 * fRec107[0]) + (fSlow30 * fRec108[0])))); + fRec109[0] = (fRec109[1] + fRec102[1]); + fRec102[0] = (fSlow25 * (fRec103[0] - (fSlow32 * fRec109[0]))); + double fTemp46 = (fRec102[0] + (fSlow4 * fTemp45)); + fRec101[0] = max((fRec101[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph18 = FAUSTFLOAT(fRec101[0]); + double fTemp47 = (fRec3[0] * double(input11[i])); + fRec113[0] = (fRec113[1] + fRec112[1]); + fRec114[0] = (fRec114[1] + fRec113[1]); + fRec112[0] = (fSlow15 * ((fSlow3 * fTemp47) - ((fSlow17 * fRec113[0]) + (fSlow16 * fRec114[0])))); + fRec115[0] = (fRec115[1] + fRec111[1]); + fRec111[0] = (fSlow14 * (fRec112[0] - (fSlow18 * fRec115[0]))); + double fTemp48 = (fRec111[0] + (fSlow4 * fTemp47)); + fRec110[0] = max((fRec110[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph19 = FAUSTFLOAT(fRec110[0]); + double fTemp49 = (fRec3[0] * double(input1[i])); + fRec118[0] = (fRec118[1] + fRec117[1]); + fRec117[0] = (fSlow8 * ((fSlow3 * fTemp49) - (fSlow9 * fRec118[0]))); + double fTemp50 = (fRec117[0] + (fSlow4 * fTemp49)); + fRec116[0] = max((fRec116[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph20 = FAUSTFLOAT(fRec116[0]); + double fTemp51 = (fTemp33 + fTemp36); + double fTemp52 = (fRec3[0] * double(input25[i])); + fRec123[0] = (fRec123[1] + fRec122[1]); + fRec124[0] = (fRec124[1] + fRec123[1]); + fRec122[0] = (fSlow27 * ((fSlow3 * fTemp52) - ((fSlow29 * fRec123[0]) + (fSlow28 * fRec124[0])))); + fRec125[0] = (fRec125[1] + fRec121[1]); + fRec126[0] = (fRec126[1] + fRec125[1]); + fRec121[0] = (fSlow26 * (fRec122[0] - ((fSlow31 * fRec125[0]) + (fSlow30 * fRec126[0])))); + fRec127[0] = (fRec127[1] + fRec120[1]); + fRec120[0] = (fSlow25 * (fRec121[0] - (fSlow32 * fRec127[0]))); + double fTemp53 = (fRec120[0] + (fSlow4 * fTemp52)); + fRec119[0] = max((fRec119[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph21 = FAUSTFLOAT(fRec119[0]); + double fTemp54 = (fRec3[0] * double(input29[i])); + fRec132[0] = (fRec132[1] + fRec131[1]); + fRec133[0] = (fRec133[1] + fRec132[1]); + fRec131[0] = (fSlow27 * ((fSlow3 * fTemp54) - ((fSlow29 * fRec132[0]) + (fSlow28 * fRec133[0])))); + fRec134[0] = (fRec134[1] + fRec130[1]); + fRec135[0] = (fRec135[1] + fRec134[1]); + fRec130[0] = (fSlow26 * (fRec131[0] - ((fSlow31 * fRec134[0]) + (fSlow30 * fRec135[0])))); + fRec136[0] = (fRec136[1] + fRec129[1]); + fRec129[0] = (fSlow25 * (fRec130[0] - (fSlow32 * fRec136[0]))); + double fTemp55 = (fRec129[0] + (fSlow4 * fTemp54)); + fRec128[0] = max((fRec128[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph22 = FAUSTFLOAT(fRec128[0]); + double fTemp56 = (fRec1[0] * ((((0.012698412698412698 * ((((fTemp0 + fTemp41) + (fConst54 * fTemp43)) + fTemp44) + (fConst56 * fTemp46))) + (((fConst57 * fTemp48) + ((fConst46 * fTemp50) + fTemp51)) + (fConst52 * fTemp53))) + (fConst36 * fTemp55)) - fTemp39)); + fRec94[0] = max((fRec94[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph23 = FAUSTFLOAT(fRec94[0]); + output2[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (fRec1[0] * (((fTemp36 + ((fConst58 * fTemp21) + (fTemp30 + fTemp33))) + (0.012698412698412698 * ((((((fTemp0 + (fConst59 * fTemp32)) + (fConst60 * fTemp19)) + (fConst54 * fTemp27)) + (fConst61 * fTemp25)) + (fConst56 * fTemp23)) + (fConst62 * fTemp38)))) - fTemp39)); + fRec137[0] = max((fRec137[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph24 = FAUSTFLOAT(fRec137[0]); + output3[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (fRec1[0] * (((0.012698412698412698 * (((fTemp44 + ((fTemp41 + (fTemp0 + (fConst59 * fTemp50))) + (fConst60 * fTemp48))) + (fConst62 * fTemp53)) + (fConst61 * fTemp55))) + ((fTemp51 + (fConst40 * fTemp43)) + (fConst63 * fTemp46))) - fTemp39)); + fRec138[0] = max((fRec138[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph25 = FAUSTFLOAT(fRec138[0]); + output4[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = (fRec1[0] * ((fTemp13 + (fTemp1 + fTemp7)) - (fTemp16 + (fTemp4 + fTemp10)))); + fRec139[0] = max((fRec139[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph26 = FAUSTFLOAT(fRec139[0]); + output5[i] = FAUSTFLOAT(fTemp59); + double fTemp60 = (fRec3[0] * double(input34[i])); + fRec145[0] = (fRec145[1] + fRec144[1]); + fRec146[0] = (fRec146[1] + fRec145[1]); + fRec144[0] = (fSlow27 * ((fSlow3 * fTemp60) - ((fSlow29 * fRec145[0]) + (fSlow28 * fRec146[0])))); + fRec147[0] = (fRec147[1] + fRec143[1]); + fRec148[0] = (fRec148[1] + fRec147[1]); + fRec143[0] = (fSlow26 * (fRec144[0] - ((fSlow31 * fRec147[0]) + (fSlow30 * fRec148[0])))); + fRec149[0] = (fRec149[1] + fRec142[1]); + fRec142[0] = (fSlow25 * (fRec143[0] - (fSlow32 * fRec149[0]))); + double fTemp61 = (fRec142[0] + (fSlow4 * fTemp60)); + fRec141[0] = max((fRec141[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph27 = FAUSTFLOAT(fRec141[0]); + double fTemp62 = (fConst47 * ((fConst64 * fTemp35) + (fConst67 * fTemp61))); + double fTemp63 = (fRec3[0] * double(input23[i])); + fRec153[0] = (fRec153[1] + fRec152[1]); + fRec154[0] = (fRec154[1] + fRec153[1]); + fRec152[0] = (fSlow20 * ((fSlow3 * fTemp63) - ((fSlow22 * fRec153[0]) + (fSlow21 * fRec154[0])))); + fRec155[0] = (fRec155[1] + fRec151[1]); + fRec156[0] = (fRec156[1] + fRec155[1]); + fRec151[0] = (fSlow19 * (fRec152[0] - ((fSlow24 * fRec155[0]) + (fSlow23 * fRec156[0])))); + double fTemp64 = (fRec151[0] + (fSlow4 * fTemp63)); + fRec150[0] = max((fRec150[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph28 = FAUSTFLOAT(fRec150[0]); + double fTemp65 = (fRec3[0] * double(input14[i])); + fRec160[0] = (fRec160[1] + fRec159[1]); + fRec161[0] = (fRec161[1] + fRec160[1]); + fRec159[0] = (fSlow15 * ((fSlow3 * fTemp65) - ((fSlow17 * fRec160[0]) + (fSlow16 * fRec161[0])))); + fRec162[0] = (fRec162[1] + fRec158[1]); + fRec158[0] = (fSlow14 * (fRec159[0] - (fSlow18 * fRec162[0]))); + double fTemp66 = (fRec158[0] + (fSlow4 * fTemp65)); + fRec157[0] = max((fRec157[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph29 = FAUSTFLOAT(fRec157[0]); + double fTemp67 = (fRec3[0] * double(input32[i])); + fRec167[0] = (fRec167[1] + fRec166[1]); + fRec168[0] = (fRec168[1] + fRec167[1]); + fRec166[0] = (fSlow27 * ((fSlow3 * fTemp67) - ((fSlow29 * fRec167[0]) + (fSlow28 * fRec168[0])))); + fRec169[0] = (fRec169[1] + fRec165[1]); + fRec170[0] = (fRec170[1] + fRec169[1]); + fRec165[0] = (fSlow26 * (fRec166[0] - ((fSlow31 * fRec169[0]) + (fSlow30 * fRec170[0])))); + fRec171[0] = (fRec171[1] + fRec164[1]); + fRec164[0] = (fSlow25 * (fRec165[0] - (fSlow32 * fRec171[0]))); + double fTemp68 = (fRec164[0] + (fSlow4 * fTemp67)); + fRec163[0] = max((fRec163[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph30 = FAUSTFLOAT(fRec163[0]); + double fTemp69 = (fConst26 * ((((fConst73 * fTemp29) + (fConst76 * fTemp66)) + (fConst77 * fTemp21)) + (fConst80 * fTemp68))); + double fTemp70 = (fRec3[0] * double(input7[i])); + fRec174[0] = (fRec174[1] + fRec173[1]); + fRec175[0] = (fRec175[1] + fRec174[1]); + fRec173[0] = (fSlow11 * ((fSlow3 * fTemp70) - ((fSlow13 * fRec174[0]) + (fSlow12 * fRec175[0])))); + double fTemp71 = (fRec173[0] + (fSlow4 * fTemp70)); + fRec172[0] = max((fRec172[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph31 = FAUSTFLOAT(fRec172[0]); + double fTemp72 = (fRec3[0] * double(input21[i])); + fRec179[0] = (fRec179[1] + fRec178[1]); + fRec180[0] = (fRec180[1] + fRec179[1]); + fRec178[0] = (fSlow20 * ((fSlow3 * fTemp72) - ((fSlow22 * fRec179[0]) + (fSlow21 * fRec180[0])))); + fRec181[0] = (fRec181[1] + fRec177[1]); + fRec182[0] = (fRec182[1] + fRec181[1]); + fRec177[0] = (fSlow19 * (fRec178[0] - ((fSlow24 * fRec181[0]) + (fSlow23 * fRec182[0])))); + double fTemp73 = (fRec177[0] + (fSlow4 * fTemp72)); + fRec176[0] = max((fRec176[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph32 = FAUSTFLOAT(fRec176[0]); + double fTemp74 = (0.022574955908289243 * fTemp0); + double fTemp75 = (0.027648561470568499 * fTemp3); + double fTemp76 = (0.01261978399999881 * fTemp6); + double fTemp77 = (fConst89 * fTemp38); + double fTemp78 = (0.010558468816293317 * fTemp9); + double fTemp79 = (0.027513227513227514 * fTemp12); + double fTemp80 = (0.028125949882539081 * fTemp15); + double fTemp81 = ((fTemp78 + fTemp79) + fTemp80); + double fTemp82 = (fRec1[0] * ((fTemp62 + ((fConst30 * (((fConst68 * fTemp27) + (fConst71 * fTemp64)) + (fConst72 * fTemp23))) + (fTemp69 + ((fConst82 * fTemp25) + ((fConst20 * ((((fConst83 * fTemp32) + (fConst85 * fTemp71)) + (fConst86 * fTemp19)) + (fConst88 * fTemp73))) + (((fTemp74 + fTemp75) + fTemp76) + fTemp77)))))) - fTemp81)); + fRec140[0] = max((fRec140[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph33 = FAUSTFLOAT(fRec140[0]); + output6[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = (fConst90 * fTemp29); + double fTemp84 = ((fTemp0 + fTemp83) + (fConst91 * fTemp43)); + double fTemp85 = (fConst93 * fTemp66); + double fTemp86 = (fRec3[0] * double(input17[i])); + fRec187[0] = (fRec187[1] + fRec186[1]); + fRec188[0] = (fRec188[1] + fRec187[1]); + fRec186[0] = (fSlow20 * ((fSlow3 * fTemp86) - ((fSlow22 * fRec187[0]) + (fSlow21 * fRec188[0])))); + fRec189[0] = (fRec189[1] + fRec185[1]); + fRec190[0] = (fRec190[1] + fRec189[1]); + fRec185[0] = (fSlow19 * (fRec186[0] - ((fSlow24 * fRec189[0]) + (fSlow23 * fRec190[0])))); + double fTemp87 = (fRec185[0] + (fSlow4 * fTemp86)); + fRec184[0] = max((fRec184[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph34 = FAUSTFLOAT(fRec184[0]); + double fTemp88 = (fConst97 * fTemp21); + double fTemp89 = (fConst101 * fTemp68); + double fTemp90 = (fRec3[0] * double(input5[i])); + fRec193[0] = (fRec193[1] + fRec192[1]); + fRec194[0] = (fRec194[1] + fRec193[1]); + fRec192[0] = (fSlow11 * ((fSlow3 * fTemp90) - ((fSlow13 * fRec193[0]) + (fSlow12 * fRec194[0])))); + double fTemp91 = (fRec192[0] + (fSlow4 * fTemp90)); + fRec191[0] = max((fRec191[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph35 = FAUSTFLOAT(fRec191[0]); + double fTemp92 = (fRec3[0] * double(input19[i])); + fRec198[0] = (fRec198[1] + fRec197[1]); + fRec199[0] = (fRec199[1] + fRec198[1]); + fRec197[0] = (fSlow20 * ((fSlow3 * fTemp92) - ((fSlow22 * fRec198[0]) + (fSlow21 * fRec199[0])))); + fRec200[0] = (fRec200[1] + fRec196[1]); + fRec201[0] = (fRec201[1] + fRec200[1]); + fRec196[0] = (fSlow19 * (fRec197[0] - ((fSlow24 * fRec200[0]) + (fSlow23 * fRec201[0])))); + double fTemp93 = (fRec196[0] + (fSlow4 * fTemp92)); + fRec195[0] = max((fRec195[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph36 = FAUSTFLOAT(fRec195[0]); + double fTemp94 = (fTemp75 + fTemp76); + double fTemp95 = (fConst89 * fTemp53); + double fTemp96 = (fRec1[0] * (((0.022574955908289243 * (((((fTemp84 + fTemp85) + (fConst95 * fTemp87)) + fTemp88) + (fConst99 * fTemp46)) + fTemp89)) + ((fConst82 * fTemp55) + ((fConst20 * ((((fConst83 * fTemp50) + (fConst85 * fTemp91)) + (fConst86 * fTemp48)) + (fConst88 * fTemp93))) + (fTemp62 + (fTemp94 + fTemp95))))) - fTemp81)); + fRec183[0] = max((fRec183[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph37 = FAUSTFLOAT(fRec183[0]); + output7[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = (fTemp0 + (fConst102 * fTemp32)); + double fTemp98 = (fConst91 * fTemp27); + double fTemp99 = (fConst110 * fTemp38); + double fTemp100 = (fRec1[0] * (((fTemp62 + (fTemp69 + fTemp94)) + (0.022574955908289243 * ((((((((fTemp97 + (fConst104 * fTemp71)) + (fConst106 * fTemp19)) + fTemp98) + (fConst108 * fTemp73)) + (fConst95 * fTemp64)) + (fConst109 * fTemp25)) + (fConst99 * fTemp23)) + fTemp99))) - fTemp81)); + fRec202[0] = max((fRec202[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph38 = FAUSTFLOAT(fRec202[0]); + output8[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = (fTemp0 + (fConst102 * fTemp50)); + double fTemp102 = (fConst110 * fTemp53); + double fTemp103 = (fRec1[0] * (((0.022574955908289243 * (fTemp89 + (((fTemp88 + ((fTemp85 + ((fTemp83 + (fTemp101 + (fConst104 * fTemp91))) + (fConst106 * fTemp48))) + (fConst108 * fTemp93))) + fTemp102) + (fConst109 * fTemp55)))) + ((fConst30 * (((fConst68 * fTemp43) + (fConst71 * fTemp87)) + (fConst72 * fTemp46))) + (fTemp62 + fTemp94))) - fTemp81)); + fRec203[0] = max((fRec203[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph39 = FAUSTFLOAT(fRec203[0]); + output9[i] = FAUSTFLOAT(fTemp103); + double fTemp104 = (fRec3[0] * double(input18[i])); + fRec208[0] = (fRec208[1] + fRec207[1]); + fRec209[0] = (fRec209[1] + fRec208[1]); + fRec207[0] = (fSlow20 * ((fSlow3 * fTemp104) - ((fSlow22 * fRec208[0]) + (fSlow21 * fRec209[0])))); + fRec210[0] = (fRec210[1] + fRec206[1]); + fRec211[0] = (fRec211[1] + fRec210[1]); + fRec206[0] = (fSlow19 * (fRec207[0] - ((fSlow24 * fRec210[0]) + (fSlow23 * fRec211[0])))); + double fTemp105 = (fRec206[0] + (fSlow4 * fTemp104)); + fRec205[0] = max((fRec205[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph40 = FAUSTFLOAT(fRec205[0]); + double fTemp106 = (fRec3[0] * double(input16[i])); + fRec215[0] = (fRec215[1] + fRec214[1]); + fRec216[0] = (fRec216[1] + fRec215[1]); + fRec214[0] = (fSlow20 * ((fSlow3 * fTemp106) - ((fSlow22 * fRec215[0]) + (fSlow21 * fRec216[0])))); + fRec217[0] = (fRec217[1] + fRec213[1]); + fRec218[0] = (fRec218[1] + fRec217[1]); + fRec213[0] = (fSlow19 * (fRec214[0] - ((fSlow24 * fRec217[0]) + (fSlow23 * fRec218[0])))); + double fTemp107 = (fRec213[0] + (fSlow4 * fTemp106)); + fRec212[0] = max((fRec212[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph41 = FAUSTFLOAT(fRec212[0]); + double fTemp108 = (fRec3[0] * double(input4[i])); + fRec221[0] = (fRec221[1] + fRec220[1]); + fRec222[0] = (fRec222[1] + fRec221[1]); + fRec220[0] = (fSlow11 * ((fSlow3 * fTemp108) - ((fSlow13 * fRec221[0]) + (fSlow12 * fRec222[0])))); + double fTemp109 = (fRec220[0] + (fSlow4 * fTemp108)); + fRec219[0] = max((fRec219[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp109)))))); + fVbargraph42 = FAUSTFLOAT(fRec219[0]); + double fTemp110 = (0.025396825396825397 * fTemp12); + double fTemp111 = (0.025239567999997631 * fTemp6); + double fTemp112 = (fRec1[0] * (((((fConst29 * ((3.5444768026723675e-18 * fTemp21) + (0.015962904407738641 * fTemp105))) + ((fConst111 * fTemp107) + ((fConst25 * ((0.011287477954144623 * fTemp19) + (0.011287477954144622 * fTemp48))) + ((fConst42 * ((1.5998055129555246e-17 * fTemp29) + (0.072048835120117657 * fTemp109))) + ((fConst45 * ((0.025473109945013343 * fTemp32) + (0.025473109945013336 * fTemp50))) + (((fConst112 * fTemp43) + fTemp110) + (fConst113 * fTemp46))))))) + (fConst35 * ((0.0056437389770723117 * fTemp25) + (0.0056437389770723108 * fTemp55)))) + (0.022574955908289243 * (((((fTemp0 + (fConst114 * fTemp27)) + (fConst115 * fTemp35)) + (fConst116 * fTemp53)) + (fConst117 * fTemp23)) + (fConst118 * fTemp38)))) - fTemp111)); + fRec204[0] = max((fRec204[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp112)))))); + fVbargraph43 = FAUSTFLOAT(fRec204[0]); + output10[i] = FAUSTFLOAT(fTemp112); + double fTemp113 = (fConst53 * fTemp109); + double fTemp114 = (fConst55 * fTemp105); + double fTemp115 = (fConst123 * fTemp35); + double fTemp116 = (fConst129 * fTemp50); + double fTemp117 = (fRec1[0] * (((fConst33 * ((0.011287477954144627 * fTemp23) + (0.011287477954144618 * fTemp46))) + ((0.022574955908289243 * (((((((((fTemp0 + (fConst119 * fTemp32)) + fTemp113) + (fConst120 * fTemp29)) + (fConst121 * fTemp19)) + fTemp114) + (fConst122 * fTemp21)) + fTemp115) + (fConst124 * fTemp53)) + (fConst125 * fTemp25))) + ((fConst39 * ((0.10189243978005338 * fTemp27) + (0.1018924397800533 * fTemp43))) + ((fConst126 * fTemp107) + ((fConst127 * fTemp55) + ((fConst128 * fTemp48) + (fTemp116 + (fTemp110 + (fConst130 * fTemp38))))))))) - fTemp111)); + fRec223[0] = max((fRec223[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp117)))))); + fVbargraph44 = FAUSTFLOAT(fRec223[0]); + output11[i] = FAUSTFLOAT(fTemp117); + double fTemp118 = (fRec1[0] * (((fConst51 * ((0.40756975912021387 * fTemp38) + (0.40756975912021298 * fTemp53))) + ((0.022574955908289243 * ((((fTemp115 + (((((fTemp0 + (fConst119 * fTemp50)) + (fConst131 * fTemp32)) + (fConst132 * fTemp43)) + (fConst121 * fTemp48)) + (fConst133 * fTemp19))) + (fConst134 * fTemp46)) + (fConst125 * fTemp55)) + (fConst135 * fTemp25))) + ((fConst29 * ((7.088953605344735e-18 * fTemp21) + (0.015962904407738645 * fTemp105))) + ((fConst42 * ((3.1996110259110492e-17 * fTemp29) + (0.072048835120117671 * fTemp109))) + ((fConst136 * fTemp107) + ((fTemp110 + (fConst137 * fTemp27)) + (fConst138 * fTemp23))))))) - fTemp111)); + fRec224[0] = max((fRec224[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp118)))))); + fVbargraph45 = FAUSTFLOAT(fRec224[0]); + output12[i] = FAUSTFLOAT(fTemp118); + double fTemp119 = (fRec1[0] * ((((fConst139 * fTemp107) + ((fConst140 * fTemp53) + (((fConst141 * fTemp19) + (fTemp110 + (fConst142 * fTemp32))) + (fConst143 * fTemp25)))) + (0.022574955908289243 * (((((fTemp115 + ((fTemp114 + (((((fTemp113 + (fTemp0 + (fConst131 * fTemp50))) + (fConst144 * fTemp29)) + (fConst145 * fTemp43)) + (fConst133 * fTemp48)) + (fConst146 * fTemp27))) + (fConst147 * fTemp21))) + (fConst148 * fTemp46)) + (fConst135 * fTemp55)) + (fConst149 * fTemp23)) + (fConst150 * fTemp38)))) - fTemp111)); + fRec225[0] = max((fRec225[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp119)))))); + fVbargraph46 = FAUSTFLOAT(fRec225[0]); + output13[i] = FAUSTFLOAT(fTemp119); + double fTemp120 = (fConst154 * fTemp66); + double fTemp121 = (fConst157 * fTemp61); + double fTemp122 = (fConst168 * fTemp35); + double fTemp123 = (fConst170 * fTemp29); + double fTemp124 = (fTemp75 + fTemp79); + double fTemp125 = (fRec1[0] * (((0.031925808815477283 * ((((fConst152 * fTemp71) + fTemp120) + (fConst156 * fTemp64)) + fTemp121)) + ((0.015962904407738641 * (((fConst159 * fTemp19) + (fConst161 * fTemp21)) + (fConst162 * fTemp23))) + ((0.010641936271825759 * ((fConst164 * fTemp73) + (fConst165 * fTemp68))) + ((fConst167 * fTemp25) + (fTemp77 + (fTemp122 + ((fConst169 * fTemp27) + (fTemp123 + ((fConst129 * fTemp32) + (fTemp80 + (fTemp78 + (fTemp74 + fTemp76)))))))))))) - fTemp124)); + fRec226[0] = max((fRec226[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp125)))))); + fVbargraph47 = FAUSTFLOAT(fRec226[0]); + output14[i] = FAUSTFLOAT(fTemp125); + double fTemp126 = (fConst171 * fTemp66); + double fTemp127 = (fConst173 * fTemp21); + double fTemp128 = (fConst175 * fTemp68); + double fTemp129 = (fTemp80 + (fTemp76 + fTemp78)); + double fTemp130 = (fTemp122 + fTemp129); + double fTemp131 = (fRec1[0] * (((0.031925808815477283 * (fTemp121 + (fConst152 * fTemp91))) + ((0.022574955908289243 * (((((fTemp84 + fTemp126) + (fConst172 * fTemp87)) + fTemp127) + (fConst174 * fTemp46)) + fTemp128)) + ((fConst167 * fTemp55) + ((fConst176 * fTemp93) + ((fConst177 * fTemp48) + (fTemp95 + (fTemp116 + fTemp130))))))) - fTemp124)); + fRec227[0] = max((fRec227[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp131)))))); + fVbargraph48 = FAUSTFLOAT(fRec227[0]); + output15[i] = FAUSTFLOAT(fTemp131); + double fTemp132 = (fRec1[0] * (((0.022574955908289243 * (fTemp99 + (((((fTemp98 + ((fTemp97 + (fConst178 * fTemp71)) + (fConst179 * fTemp19))) + (fConst180 * fTemp73)) + (fConst172 * fTemp64)) + (fConst181 * fTemp25)) + (fConst174 * fTemp23)))) + ((0.031925808815477283 * (fTemp120 + fTemp121)) + ((fConst182 * fTemp68) + ((fConst183 * fTemp21) + (fTemp122 + (fTemp123 + fTemp129)))))) - fTemp124)); + fRec228[0] = max((fRec228[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp132)))))); + fVbargraph49 = FAUSTFLOAT(fRec228[0]); + output16[i] = FAUSTFLOAT(fTemp132); + double fTemp133 = (fRec1[0] * (((0.031925808815477283 * (fTemp121 + (fConst156 * fTemp87))) + ((0.022574955908289243 * (fTemp128 + ((fTemp102 + (fTemp127 + ((fTemp126 + ((fTemp83 + (fTemp101 + (fConst178 * fTemp91))) + (fConst179 * fTemp48))) + (fConst180 * fTemp93)))) + (fConst181 * fTemp55)))) + ((fConst184 * fTemp46) + ((fConst169 * fTemp43) + fTemp130)))) - fTemp124)); + fRec229[0] = max((fRec229[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp133)))))); + fVbargraph50 = FAUSTFLOAT(fRec229[0]); + output17[i] = FAUSTFLOAT(fTemp133); + double fTemp134 = ((9.9655853669580557e-18 * fTemp29) + (0.044881006545161167 * fTemp109)); + double fTemp135 = (fRec3[0] * double(input10[i])); + fRec234[0] = (fRec234[1] + fRec233[1]); + fRec235[0] = (fRec235[1] + fRec234[1]); + fRec233[0] = (fSlow15 * ((fSlow3 * fTemp135) - ((fSlow17 * fRec234[0]) + (fSlow16 * fRec235[0])))); + fRec236[0] = (fRec236[1] + fRec232[1]); + fRec232[0] = (fSlow14 * (fRec233[0] - (fSlow18 * fRec236[0]))); + double fTemp136 = (fRec232[0] + (fSlow4 * fTemp135)); + fRec231[0] = max((fRec231[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp136)))))); + fVbargraph51 = FAUSTFLOAT(fRec231[0]); + double fTemp137 = (fRec3[0] * double(input28[i])); + fRec241[0] = (fRec241[1] + fRec240[1]); + fRec242[0] = (fRec242[1] + fRec241[1]); + fRec240[0] = (fSlow27 * ((fSlow3 * fTemp137) - ((fSlow29 * fRec241[0]) + (fSlow28 * fRec242[0])))); + fRec243[0] = (fRec243[1] + fRec239[1]); + fRec244[0] = (fRec244[1] + fRec243[1]); + fRec239[0] = (fSlow26 * (fRec240[0] - ((fSlow31 * fRec243[0]) + (fSlow30 * fRec244[0])))); + fRec245[0] = (fRec245[1] + fRec238[1]); + fRec238[0] = (fSlow25 * (fRec239[0] - (fSlow32 * fRec245[0]))); + double fTemp138 = (fRec238[0] + (fSlow4 * fTemp137)); + fRec237[0] = max((fRec237[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp138)))))); + fVbargraph52 = FAUSTFLOAT(fRec237[0]); + double fTemp139 = ((0.0052734375000000012 * fTemp25) + (0.0052734375000000003 * fTemp55)); + double fTemp140 = (fRec3[0] * double(input26[i])); + fRec250[0] = (fRec250[1] + fRec249[1]); + fRec251[0] = (fRec251[1] + fRec250[1]); + fRec249[0] = (fSlow27 * ((fSlow3 * fTemp140) - ((fSlow29 * fRec250[0]) + (fSlow28 * fRec251[0])))); + fRec252[0] = (fRec252[1] + fRec248[1]); + fRec253[0] = (fRec253[1] + fRec252[1]); + fRec248[0] = (fSlow26 * (fRec249[0] - ((fSlow31 * fRec252[0]) + (fSlow30 * fRec253[0])))); + fRec254[0] = (fRec254[1] + fRec247[1]); + fRec247[0] = (fSlow25 * (fRec248[0] - (fSlow32 * fRec254[0]))); + double fTemp141 = (fRec247[0] + (fSlow4 * fTemp140)); + fRec246[0] = max((fRec246[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp141)))))); + fVbargraph53 = FAUSTFLOAT(fRec246[0]); + double fTemp142 = ((0.007031250000000001 * fTemp73) + (0.0070312500000000002 * fTemp93)); + double fTemp143 = (5.236595479505967e-18 * fTemp6); + double fTemp144 = ((0.019434045907762623 * fTemp32) + (0.019434045907762619 * fTemp50)); + double fTemp145 = (fConst199 * fTemp91); + double fTemp146 = (fTemp0 + fTemp3); + double fTemp147 = (fConst202 * fTemp27); + double fTemp148 = (fConst204 * fTemp35); + double fTemp149 = (fConst205 * fTemp53); + double fTemp150 = (fConst209 * fTemp38); + double fTemp151 = (0.021480823570105497 * fTemp9); + double fTemp152 = (0.024609375000000006 * fTemp12); + double fTemp153 = (0.006731909351411762 * fTemp15); + double fTemp154 = ((fTemp151 + fTemp152) + fTemp153); + double fTemp155 = (fRec1[0] * ((((fConst26 * (((((((fConst41 * fTemp134) + (fConst185 * fTemp136)) + (fConst186 * fTemp66)) + (fConst187 * fTemp105)) + (fConst188 * fTemp21)) + (fConst189 * fTemp138)) + (fConst190 * fTemp68))) + ((fConst192 * fTemp139) + ((fConst30 * (((fConst193 * fTemp43) + (fConst194 * fTemp87)) + (fConst195 * fTemp46))) + ((fConst47 * ((fConst196 * fTemp107) + (fConst197 * fTemp141))) + ((fConst198 * fTemp142) + (fTemp143 + (fConst20 * (((((fConst44 * fTemp144) + fTemp145) + (fConst199 * fTemp71)) + (fConst200 * fTemp48)) + (fConst201 * fTemp19))))))))) + (0.021093750000000001 * (((((((fTemp146 + fTemp147) + (fConst203 * fTemp64)) + fTemp148) + fTemp149) + (fConst206 * fTemp23)) + (fConst208 * fTemp61)) + fTemp150))) - fTemp154)); + fRec230[0] = max((fRec230[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp155)))))); + fVbargraph54 = FAUSTFLOAT(fRec230[0]); + output18[i] = FAUSTFLOAT(fTemp155); + double fTemp156 = (fConst210 * fTemp32); + double fTemp157 = (fConst211 * fTemp109); + double fTemp158 = (fConst213 * fTemp29); + double fTemp159 = (fConst214 * fTemp136); + double fTemp160 = (fConst217 * fTemp105); + double fTemp161 = (fConst220 * fTemp35); + double fTemp162 = (fConst221 * fTemp53); + double fTemp163 = (fConst222 * fTemp138); + double fTemp164 = (fConst225 * fTemp61); + double fTemp165 = ((0.051824122420700336 * fTemp27) + (0.051824122420700287 * fTemp43)); + double fTemp166 = (fConst233 * fTemp38); + double fTemp167 = (fRec1[0] * (((0.021093750000000001 * ((((((((((((((((fTemp146 + fTemp156) + fTemp157) + (fConst212 * fTemp71)) + fTemp158) + fTemp159) + (fConst215 * fTemp19)) + (fConst216 * fTemp66)) + fTemp160) + (fConst218 * fTemp73)) + (fConst219 * fTemp21)) + fTemp161) + fTemp162) + fTemp163) + (fConst223 * fTemp25)) + (fConst224 * fTemp68)) + fTemp164)) + ((fConst30 * (((((fConst38 * fTemp165) + (fConst226 * fTemp87)) + (fConst194 * fTemp64)) + (fConst227 * fTemp46)) + (fConst195 * fTemp23))) + ((fConst47 * ((fConst228 * fTemp107) + (fConst229 * fTemp141))) + ((fConst20 * ((fTemp145 + (fConst230 * fTemp50)) + (fConst201 * fTemp48))) + ((fConst231 * fTemp55) + ((fConst232 * fTemp93) + (fTemp143 + fTemp166))))))) - fTemp154)); + fRec255[0] = max((fRec255[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp167)))))); + fVbargraph55 = FAUSTFLOAT(fRec255[0]); + output19[i] = FAUSTFLOAT(fTemp167); + double fTemp168 = (fConst51 * ((0.13819765978853429 * fTemp38) + (0.13819765978853399 * fTemp53))); + double fTemp169 = (fTemp0 + (fConst210 * fTemp50)); + double fTemp170 = (fConst234 * fTemp32); + double fTemp171 = (fConst236 * fTemp43); + double fTemp172 = ((1.9931170733916111e-17 * fTemp29) + (0.044881006545161174 * fTemp109)); + double fTemp173 = (fRec1[0] * ((fTemp168 + ((0.021093750000000001 * (fTemp164 + ((((fTemp161 + ((((((((((fTemp3 + fTemp169) + fTemp170) + (fConst212 * fTemp91)) + (fConst235 * fTemp71)) + fTemp171) + (fConst215 * fTemp48)) + (fConst237 * fTemp19)) + (fConst238 * fTemp87)) + (fConst218 * fTemp93)) + (fConst239 * fTemp73))) + (fConst240 * fTemp46)) + (fConst223 * fTemp55)) + (fConst241 * fTemp25)))) + ((fConst30 * (((fConst242 * fTemp27) + (fConst243 * fTemp64)) + (fConst244 * fTemp23))) + ((fConst26 * (((((((fConst41 * fTemp172) + (fConst245 * fTemp136)) + (fConst246 * fTemp66)) + (fConst247 * fTemp105)) + (fConst248 * fTemp21)) + (fConst249 * fTemp138)) + (fConst250 * fTemp68))) + (fTemp143 + (fConst47 * ((fConst251 * fTemp107) + (fConst252 * fTemp141)))))))) - fTemp154)); + fRec256[0] = max((fRec256[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp173)))))); + fVbargraph56 = FAUSTFLOAT(fRec256[0]); + output20[i] = FAUSTFLOAT(fTemp173); + double fTemp174 = (fConst259 * fTemp53); + double fTemp175 = (fTemp0 + (fConst234 * fTemp50)); + double fTemp176 = (fConst261 * fTemp29); + double fTemp177 = (fConst262 * fTemp43); + double fTemp178 = (fConst264 * fTemp27); + double fTemp179 = (fConst271 * fTemp38); + double fTemp180 = (fRec1[0] * ((((fConst47 * ((fConst253 * fTemp107) + (fConst254 * fTemp141))) + ((fConst20 * (((fConst255 * fTemp32) + (fConst256 * fTemp71)) + (fConst257 * fTemp19))) + (((fConst258 * fTemp73) + (fTemp143 + fTemp174)) + (fConst260 * fTemp25)))) + (0.021093750000000001 * ((fTemp164 + ((((fTemp163 + ((fTemp161 + ((((fTemp160 + (((((fTemp159 + ((((fTemp157 + (fTemp3 + fTemp175)) + (fConst235 * fTemp91)) + fTemp176) + fTemp177)) + (fConst237 * fTemp48)) + (fConst263 * fTemp66)) + fTemp178) + (fConst265 * fTemp87))) + (fConst239 * fTemp93)) + (fConst266 * fTemp21)) + (fConst267 * fTemp64))) + (fConst268 * fTemp46))) + (fConst241 * fTemp55)) + (fConst269 * fTemp68)) + (fConst270 * fTemp23))) + fTemp179))) - fTemp154)); + fRec257[0] = max((fRec257[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp180)))))); + fVbargraph57 = FAUSTFLOAT(fRec257[0]); + output21[i] = FAUSTFLOAT(fTemp180); + double fTemp181 = (fConst283 * fTemp141); + double fTemp182 = (fTemp153 + (fTemp143 + fTemp151)); + double fTemp183 = (fTemp0 - fTemp3); + double fTemp184 = (fRec1[0] * ((((fConst274 * ((2.2079425200240589e-18 * fTemp68) + (0.0099436891104358258 * fTemp138))) + ((fConst278 * fTemp139) + ((fConst281 * fTemp46) + (fTemp181 + ((fConst284 * ((3.3119137800360884e-18 * fTemp21) + (0.014915533665653739 * fTemp105))) + ((fConst285 * fTemp142) + ((fConst287 * fTemp87) + ((fConst288 * ((6.6238275600721768e-18 * fTemp66) + (0.029831067331307477 * fTemp136))) + ((fConst289 * ((0.010546875000000002 * fTemp19) + (0.010546875000000001 * fTemp48))) + ((fConst291 * fTemp71) + ((fConst42 * fTemp134) + ((fConst45 * fTemp144) + ((fConst292 * fTemp107) + ((fConst293 * fTemp43) + fTemp182)))))))))))))) + (0.021093750000000001 * (fTemp150 + (((fTemp149 + (fTemp148 + ((fTemp147 + (fTemp183 + (fConst290 * fTemp91))) + (fConst294 * fTemp64)))) + (fConst295 * fTemp23)) + (fConst296 * fTemp61))))) - fTemp152)); + fRec258[0] = max((fRec258[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp184)))))); + fVbargraph58 = FAUSTFLOAT(fRec258[0]); + output22[i] = FAUSTFLOAT(fTemp184); + double fTemp185 = (fConst298 * fTemp136); + double fTemp186 = (fConst301 * fTemp105); + double fTemp187 = (fConst304 * fTemp138); + double fTemp188 = (fConst307 * fTemp61); + double fTemp189 = (fRec1[0] * (((0.021093750000000001 * (((((fTemp162 + (fTemp161 + (((((((fTemp158 + ((fTemp157 + (fTemp156 + fTemp183)) + (fConst297 * fTemp71))) + fTemp185) + (fConst299 * fTemp19)) + (fConst300 * fTemp66)) + fTemp186) + (fConst302 * fTemp73)) + (fConst303 * fTemp21)))) + fTemp187) + (fConst305 * fTemp25)) + (fConst306 * fTemp68)) + fTemp188)) + ((fConst280 * ((0.010546875000000006 * fTemp23) + (0.010546874999999997 * fTemp46))) + ((fConst286 * ((0.021093749999999994 * fTemp87) + (0.021093750000000012 * fTemp64))) + ((fConst308 * fTemp55) + (fTemp181 + ((fConst309 * fTemp93) + ((fConst310 * fTemp48) + ((fConst291 * fTemp91) + ((fConst39 * fTemp165) + ((fConst311 * fTemp107) + ((fConst312 * fTemp50) + (fTemp166 + fTemp182)))))))))))) - fTemp152)); + fRec259[0] = max((fRec259[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp189)))))); + fVbargraph59 = FAUSTFLOAT(fRec259[0]); + output23[i] = FAUSTFLOAT(fTemp189); + double fTemp190 = (fConst321 * fTemp141); + double fTemp191 = (fRec1[0] * (((0.021093750000000001 * (fTemp188 + ((((fTemp161 + ((((((fTemp171 + (((fTemp170 - (fTemp3 - fTemp169)) + (fConst297 * fTemp91)) + (fConst313 * fTemp71))) + (fConst299 * fTemp48)) + (fConst314 * fTemp19)) + (fConst315 * fTemp87)) + (fConst302 * fTemp93)) + (fConst316 * fTemp73))) + (fConst317 * fTemp46)) + (fConst305 * fTemp55)) + (fConst318 * fTemp25)))) + ((fConst274 * ((4.4158850400481179e-18 * fTemp68) + (0.0099436891104358275 * fTemp138))) + ((fConst284 * ((6.6238275600721768e-18 * fTemp21) + (0.01491553366565374 * fTemp105))) + ((fConst288 * ((1.3247655120144354e-17 * fTemp66) + (0.029831067331307481 * fTemp136))) + ((fConst319 * fTemp23) + ((fConst320 * fTemp64) + (fTemp190 + (fTemp168 + ((fConst42 * fTemp172) + ((fConst322 * fTemp107) + ((fConst323 * fTemp27) + fTemp182))))))))))) - fTemp152)); + fRec260[0] = max((fRec260[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp191)))))); + fVbargraph60 = FAUSTFLOAT(fRec260[0]); + output24[i] = FAUSTFLOAT(fTemp191); + double fTemp192 = (fRec1[0] * ((((fTemp190 + ((fConst324 * fTemp73) + ((fConst325 * fTemp19) + ((fConst326 * fTemp71) + ((fConst327 * fTemp107) + (fTemp174 + ((fConst328 * fTemp32) + fTemp182))))))) + (fConst329 * fTemp25)) + (0.021093750000000001 * (fTemp179 + (fTemp188 + ((((fTemp187 + ((fTemp161 + ((((fTemp186 + ((fTemp178 + (((fTemp185 + (fTemp177 + (fTemp176 + ((fTemp157 - (fTemp3 - fTemp175)) + (fConst313 * fTemp91))))) + (fConst314 * fTemp48)) + (fConst330 * fTemp66))) + (fConst331 * fTemp87))) + (fConst316 * fTemp93)) + (fConst332 * fTemp21)) + (fConst333 * fTemp64))) + (fConst334 * fTemp46))) + (fConst318 * fTemp55)) + (fConst335 * fTemp68)) + (fConst336 * fTemp23)))))) - fTemp152)); + fRec261[0] = max((fRec261[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp192)))))); + fVbargraph61 = FAUSTFLOAT(fRec261[0]); + output25[i] = FAUSTFLOAT(fTemp192); + double fTemp193 = ((0.0097062489627452956 * fTemp32) + (0.0097062489627452973 * fTemp50)); + double fTemp194 = (fConst337 * fTemp91); + double fTemp195 = (fConst339 * fTemp48); + double fTemp196 = (fConst341 * fTemp93); + double fTemp197 = (fConst343 * fTemp55); + double fTemp198 = (fConst344 * fTemp25); + double fTemp199 = (0.031605542669238249 * fTemp3); + double fTemp200 = (0.032806508796871948 * fTemp6); + double fTemp201 = (0.026333598483989317 * fTemp9); + double fTemp202 = (0.0142547123015874 * fTemp12); + double fTemp203 = (((fTemp199 + fTemp200) + fTemp201) + fTemp202); + double fTemp204 = (fConst350 * fTemp87); + double fTemp205 = (fConst351 * fTemp46); + double fTemp206 = (fConst352 * fTemp29); + double fTemp207 = (fTemp0 + fTemp206); + double fTemp208 = (fConst353 * fTemp66); + double fTemp209 = (fConst354 * fTemp27); + double fTemp210 = (fConst355 * fTemp107); + double fTemp211 = (fConst356 * fTemp21); + double fTemp212 = (fConst358 * fTemp35); + double fTemp213 = (fConst359 * fTemp53); + double fTemp214 = (fConst361 * fTemp68); + double fTemp215 = (fConst363 * fTemp61); + double fTemp216 = (fConst364 * fTemp38); + double fTemp217 = (0.0007502480158728946 * fTemp15); + double fTemp218 = (fRec1[0] * ((((fConst20 * (((((((((fConst44 * fTemp193) + fTemp194) + (fConst338 * fTemp71)) + fTemp195) + (fConst340 * fTemp19)) + fTemp196) + (fConst342 * fTemp73)) + fTemp197) + fTemp198)) + ((fConst26 * ((((fConst345 * fTemp136) + (fConst346 * fTemp109)) + (fConst347 * fTemp105)) + (fConst348 * fTemp138))) + (fTemp203 + (fConst30 * (((fConst349 * fTemp43) + fTemp204) + fTemp205))))) + (0.02017333553791887 * ((((((((((((fTemp207 + fTemp208) + fTemp209) + fTemp210) + fTemp211) + (fConst357 * fTemp64)) + fTemp212) + fTemp213) + (fConst360 * fTemp141)) + fTemp214) + (fConst362 * fTemp23)) + fTemp215) + fTemp216))) - fTemp217)); + fRec262[0] = max((fRec262[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp218)))))); + fVbargraph62 = FAUSTFLOAT(fRec262[0]); + output26[i] = FAUSTFLOAT(fTemp218); + double fTemp219 = (fConst366 * fTemp109); + double fTemp220 = ((fTemp0 + (fConst365 * fTemp32)) + fTemp219); + double fTemp221 = (fConst368 * fTemp136); + double fTemp222 = (fConst370 * fTemp105); + double fTemp223 = (fConst372 * fTemp138); + double fTemp224 = ((0.0070590901547238384 * fTemp27) + (0.0070590901547238332 * fTemp43)); + double fTemp225 = (fConst380 * fTemp38); + double fTemp226 = (fRec1[0] * (((0.02017333553791887 * (fTemp215 + (fTemp214 + (((fTemp213 + (fTemp212 + (fTemp211 + (((fTemp208 + (((fTemp206 + (fTemp220 + (fConst367 * fTemp71))) + fTemp221) + (fConst369 * fTemp19))) + fTemp222) + (fConst371 * fTemp73))))) + fTemp223) + (fConst374 * fTemp25))))) + ((fConst30 * ((fTemp205 + ((fTemp204 + (fConst38 * fTemp224)) + (fConst375 * fTemp64))) + (fConst376 * fTemp23))) + ((fConst20 * (fTemp197 + (fTemp196 + (fTemp195 + (fTemp194 + (fConst377 * fTemp50)))))) + ((fConst47 * ((fConst378 * fTemp107) + (fConst379 * fTemp141))) + (fTemp203 + fTemp225))))) - fTemp217)); + fRec263[0] = max((fRec263[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp226)))))); + fVbargraph63 = FAUSTFLOAT(fRec263[0]); + output27[i] = FAUSTFLOAT(fTemp226); + double fTemp227 = (fConst51 * ((0.0051338837488900581 * fTemp38) + (0.0051338837488900469 * fTemp53))); + double fTemp228 = ((fTemp0 + (fConst365 * fTemp50)) + (fConst381 * fTemp32)); + double fTemp229 = (fConst383 * fTemp43); + double fTemp230 = ((5.19858676206982e-18 * fTemp29) + (0.011706176702255421 * fTemp109)); + double fTemp231 = (fRec1[0] * ((fTemp227 + ((0.02017333553791887 * (fTemp215 + ((((fTemp212 + ((((((((fTemp228 + (fConst367 * fTemp91)) + (fConst382 * fTemp71)) + fTemp229) + (fConst369 * fTemp48)) + (fConst384 * fTemp19)) + (fConst385 * fTemp87)) + (fConst371 * fTemp93)) + (fConst386 * fTemp73))) + (fConst387 * fTemp46)) + (fConst374 * fTemp55)) + (fConst388 * fTemp25)))) + ((fConst30 * (((fConst389 * fTemp27) + (fConst390 * fTemp64)) + (fConst391 * fTemp23))) + ((fConst26 * (((((((fConst41 * fTemp230) + (fConst392 * fTemp136)) + (fConst393 * fTemp66)) + (fConst394 * fTemp105)) + (fConst395 * fTemp21)) + (fConst396 * fTemp138)) + (fConst397 * fTemp68))) + (fTemp203 + (fConst47 * ((fConst398 * fTemp107) + (fConst399 * fTemp141)))))))) - fTemp217)); + fRec264[0] = max((fRec264[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp231)))))); + fVbargraph64 = FAUSTFLOAT(fRec264[0]); + output28[i] = FAUSTFLOAT(fTemp231); + double fTemp232 = (fConst404 * fTemp53); + double fTemp233 = (fTemp219 + (fTemp0 + (fConst381 * fTemp50))); + double fTemp234 = (fConst407 * fTemp29); + double fTemp235 = (fConst408 * fTemp43); + double fTemp236 = (fConst410 * fTemp27); + double fTemp237 = (fConst417 * fTemp38); + double fTemp238 = (fRec1[0] * ((((fConst20 * (fTemp198 + ((((fConst400 * fTemp32) + (fConst401 * fTemp71)) + (fConst402 * fTemp19)) + (fConst403 * fTemp73)))) + ((fTemp203 + fTemp232) + (fConst47 * ((fConst405 * fTemp107) + (fConst406 * fTemp141))))) + (0.02017333553791887 * ((fTemp215 + ((((fTemp223 + ((fTemp212 + ((((fTemp222 + (((((fTemp221 + (((fTemp233 + (fConst382 * fTemp91)) + fTemp234) + fTemp235)) + (fConst384 * fTemp48)) + (fConst409 * fTemp66)) + fTemp236) + (fConst411 * fTemp87))) + (fConst386 * fTemp93)) + (fConst412 * fTemp21)) + (fConst413 * fTemp64))) + (fConst414 * fTemp46))) + (fConst388 * fTemp55)) + (fConst415 * fTemp68)) + (fConst416 * fTemp23))) + fTemp237))) - fTemp217)); + fRec265[0] = max((fRec265[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp238)))))); + fVbargraph65 = FAUSTFLOAT(fRec265[0]); + output29[i] = FAUSTFLOAT(fTemp238); + double fTemp239 = (0.02017333553791887 * (fTemp0 + (fConst418 * fTemp38))); + double fTemp240 = (0.20432599334845877 * fTemp107); + double fTemp241 = ((0.059595081393300019 * fTemp35) + fTemp240); + double fTemp242 = (fConst419 * fTemp141); + double fTemp243 = (fConst420 * fTemp61); + double fTemp244 = ((0.0081196109272257799 * fTemp23) + (0.011728326894881718 * fTemp46)); + double fTemp245 = ((0.007607841257607462 * fTemp68) + (0.0057058809432056056 * fTemp138)); + double fTemp246 = ((0.006766342439354831 * fTemp25) + (0.0022554474797849468 * fTemp55)); + double fTemp247 = ((0.063531811392514598 * fTemp27) + (0.091768172011410243 * fTemp43)); + double fTemp248 = ((0.011411761886411192 * fTemp21) + (0.008558821414808411 * fTemp105)); + double fTemp249 = ((0.0090217899191397753 * fTemp73) + (0.0030072633063799288 * fTemp93)); + double fTemp250 = ((0.046824706809021746 * fTemp29) + (0.035118530106766375 * fTemp109)); + double fTemp251 = (fConst432 * fTemp66); + double fTemp252 = ((0.013532684878709662 * fTemp19) + (0.0045108949595698937 * fTemp48)); + double fTemp253 = ((0.029118746888235916 * fTemp32) + (0.0097062489627453199 * fTemp50)); + double fTemp254 = (fConst436 * fTemp53); + double fTemp255 = (0.02309096671075838 * fTemp15); + double fTemp256 = (0.010535180889746075 * fTemp3); + double fTemp257 = (0.0042514054232804339 * fTemp12); + double fTemp258 = (fTemp255 + (fTemp256 + fTemp257)); + double fTemp259 = (0.01640325439843596 * fTemp6); + double fTemp260 = (0.020481687709769415 * fTemp9); + double fTemp261 = (fTemp259 + fTemp260); + double fTemp262 = (fRec1[0] * ((fTemp239 + ((fConst47 * (((fConst48 * fTemp241) + fTemp242) + fTemp243)) + ((fConst421 * fTemp244) + ((fConst423 * fTemp245) + ((fConst426 * fTemp246) + ((fConst30 * (((fConst38 * fTemp247) + (fConst427 * fTemp87)) + (fConst428 * fTemp64))) + ((fConst429 * fTemp248) + ((fConst430 * fTemp249) + ((fConst26 * (((fConst41 * fTemp250) + (fConst431 * fTemp136)) + fTemp251)) + ((fConst433 * fTemp252) + ((fConst20 * (((fConst44 * fTemp253) + (fConst434 * fTemp91)) + (fConst435 * fTemp71))) + (fTemp254 + fTemp258)))))))))))) - fTemp261)); + fRec266[0] = max((fRec266[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp262)))))); + fVbargraph66 = FAUSTFLOAT(fRec266[0]); + output30[i] = FAUSTFLOAT(fTemp262); + double fTemp263 = ((fTemp0 + (fConst439 * fTemp29)) + (fConst440 * fTemp43)); + double fTemp264 = (fConst442 * fTemp27); + double fTemp265 = (fConst443 * fTemp107); + double fTemp266 = (fConst445 * fTemp21); + double fTemp267 = (fConst447 * fTemp53); + double fTemp268 = ((0.0022554474797849442 * fTemp25) + (0.0067663424393548319 * fTemp55)); + double fTemp269 = ((0.0030072633063799254 * fTemp73) + (0.0090217899191397753 * fTemp93)); + double fTemp270 = ((0.0045108949595698885 * fTemp19) + (0.013532684878709664 * fTemp48)); + double fTemp271 = ((0.0097062489627453077 * fTemp32) + (0.029118746888235923 * fTemp50)); + double fTemp272 = (fConst458 * fTemp38); + double fTemp273 = (fRec1[0] * (((fConst47 * ((fConst437 * fTemp35) + (fConst438 * fTemp61))) + ((0.02017333553791887 * (((((((((((fTemp263 + (fConst441 * fTemp66)) + fTemp264) + fTemp265) + (fConst444 * fTemp87)) + fTemp266) + (fConst446 * fTemp64)) + fTemp267) + (fConst448 * fTemp141)) + (fConst449 * fTemp46)) + (fConst450 * fTemp68)) + (fConst451 * fTemp23))) + ((fConst426 * fTemp268) + ((fConst430 * fTemp269) + ((fConst433 * fTemp270) + ((fConst26 * ((fConst452 * fTemp136) + (fConst453 * fTemp109))) + ((fConst20 * (((fConst44 * fTemp271) + (fConst454 * fTemp91)) + (fConst455 * fTemp71))) + ((fConst456 * fTemp138) + ((fConst457 * fTemp105) + (fTemp258 + fTemp272)))))))))) - fTemp261)); + fRec267[0] = max((fRec267[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp273)))))); + fVbargraph67 = FAUSTFLOAT(fRec267[0]); + output31[i] = FAUSTFLOAT(fTemp273); + double fTemp274 = ((fTemp0 + (fConst459 * fTemp32)) + (fConst460 * fTemp109)); + double fTemp275 = (fConst462 * fTemp29); + double fTemp276 = (fConst463 * fTemp43); + double fTemp277 = (fConst470 * fTemp53); + double fTemp278 = (fConst475 * fTemp38); + double fTemp279 = ((0.059595081393300539 * fTemp35) + (0.20432599334845869 * fTemp107)); + double fTemp280 = (fRec1[0] * (((0.02017333553791887 * (((((((fTemp266 + (((((((((fTemp274 + (fConst461 * fTemp71)) + fTemp275) + fTemp276) + (fConst464 * fTemp136)) + (fConst465 * fTemp19)) + (fConst466 * fTemp66)) + (fConst467 * fTemp87)) + (fConst468 * fTemp105)) + (fConst469 * fTemp73))) + fTemp277) + (fConst471 * fTemp46)) + (fConst472 * fTemp138)) + (fConst473 * fTemp25)) + (fConst474 * fTemp68)) + fTemp278)) + (((fConst30 * ((fConst476 * fTemp27) + (fConst477 * fTemp64))) + ((fConst20 * ((fConst478 * fTemp50) + (fConst479 * fTemp91))) + (((fConst480 * fTemp55) + ((fConst481 * fTemp93) + (fTemp258 + (fConst482 * fTemp48)))) + (fConst483 * fTemp23)))) + (fConst47 * (((fConst48 * fTemp279) + (fConst484 * fTemp141)) + (fConst485 * fTemp61))))) - fTemp261)); + fRec268[0] = max((fRec268[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp280)))))); + fVbargraph68 = FAUSTFLOAT(fRec268[0]); + output32[i] = FAUSTFLOAT(fTemp280); + double fTemp281 = (fConst51 * ((0.015401651246671252 * fTemp38) + (0.40557681616231639 * fTemp53))); + double fTemp282 = ((fTemp0 + (fConst487 * fTemp32)) + (fConst488 * fTemp109)); + double fTemp283 = (fConst492 * fTemp27); + double fTemp284 = (fConst493 * fTemp107); + double fTemp285 = (fRec1[0] * ((fTemp281 + ((fConst47 * (fTemp243 + (fConst486 * fTemp35))) + ((0.02017333553791887 * ((((((((((((fTemp282 + (fConst489 * fTemp71)) + (fConst490 * fTemp136)) + (fConst491 * fTemp19)) + fTemp283) + fTemp284) + (fConst494 * fTemp105)) + (fConst495 * fTemp73)) + (fConst496 * fTemp64)) + (fConst497 * fTemp141)) + (fConst498 * fTemp138)) + (fConst499 * fTemp25)) + (fConst500 * fTemp23))) + ((fConst30 * ((fConst501 * fTemp43) + (fConst502 * fTemp87))) + ((fConst26 * (fTemp251 + (fConst503 * fTemp29))) + ((fConst20 * ((fConst504 * fTemp50) + (fConst505 * fTemp91))) + ((fConst506 * fTemp68) + ((fConst507 * fTemp55) + ((fConst508 * fTemp46) + ((fConst509 * fTemp21) + ((fConst510 * fTemp93) + (fTemp258 + (fConst511 * fTemp48))))))))))))) - fTemp261)); + fRec269[0] = max((fRec269[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp285)))))); + fVbargraph69 = FAUSTFLOAT(fRec269[0]); + output33[i] = FAUSTFLOAT(fTemp285); + double fTemp286 = (fTemp240 + (0.059595081393300352 * fTemp35)); + double fTemp287 = ((fTemp0 + (fConst513 * fTemp50)) + (fConst514 * fTemp32)); + double fTemp288 = (fConst517 * fTemp43); + double fTemp289 = (fConst520 * fTemp27); + double fTemp290 = (fConst525 * fTemp53); + double fTemp291 = ((0.0076078412576074646 * fTemp68) + (0.0057058809432056047 * fTemp138)); + double fTemp292 = ((0.011411761886411199 * fTemp21) + (0.0085588214148084076 * fTemp105)); + double fTemp293 = ((0.046824706809021774 * fTemp29) + (0.035118530106766362 * fTemp109)); + double fTemp294 = (fConst532 * fTemp38); + double fTemp295 = (fRec1[0] * (((fConst47 * ((fTemp242 + (fConst48 * fTemp286)) + (fConst512 * fTemp61))) + ((0.02017333553791887 * (((((((((((((((fTemp287 + (fConst515 * fTemp91)) + (fConst516 * fTemp71)) + fTemp288) + (fConst518 * fTemp48)) + (fConst519 * fTemp19)) + fTemp289) + (fConst521 * fTemp87)) + (fConst522 * fTemp93)) + (fConst523 * fTemp73)) + (fConst524 * fTemp64)) + fTemp290) + (fConst526 * fTemp46)) + (fConst527 * fTemp55)) + (fConst528 * fTemp25)) + (fConst529 * fTemp23))) + ((fConst423 * fTemp291) + ((fConst429 * fTemp292) + ((fConst26 * (((fConst41 * fTemp293) + (fConst530 * fTemp136)) + (fConst531 * fTemp66))) + (fTemp258 + fTemp294)))))) - fTemp261)); + fRec270[0] = max((fRec270[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp295)))))); + fVbargraph70 = FAUSTFLOAT(fRec270[0]); + output34[i] = FAUSTFLOAT(fTemp295); + double fTemp296 = ((fTemp0 + (fConst514 * fTemp50)) + (fConst533 * fTemp32)); + double fTemp297 = (fConst535 * fTemp29); + double fTemp298 = (fConst538 * fTemp107); + double fTemp299 = ((0.011728326894881713 * fTemp23) + (0.0081196109272257937 * fTemp46)); + double fTemp300 = ((0.091768172011410187 * fTemp27) + (0.063531811392514695 * fTemp43)); + double fTemp301 = (fConst552 * fTemp53); + double fTemp302 = (fRec1[0] * (((0.02017333553791887 * (fTemp278 + ((((((((((((((fTemp296 + (fConst516 * fTemp91)) + (fConst534 * fTemp71)) + fTemp297) + (fConst519 * fTemp48)) + (fConst536 * fTemp19)) + (fConst537 * fTemp66)) + fTemp298) + (fConst523 * fTemp93)) + (fConst539 * fTemp73)) + (fConst540 * fTemp21)) + (fConst541 * fTemp141)) + (fConst528 * fTemp55)) + (fConst542 * fTemp25)) + (fConst543 * fTemp68)))) + ((fConst47 * ((fConst544 * fTemp35) + (fConst545 * fTemp61))) + ((fConst421 * fTemp299) + ((fConst26 * ((fConst546 * fTemp136) + (fConst547 * fTemp109))) + ((fConst30 * ((fConst548 * fTemp64) + ((fConst38 * fTemp300) + (fConst549 * fTemp87)))) + ((fConst550 * fTemp138) + ((fConst551 * fTemp105) + (fTemp258 + fTemp301)))))))) - fTemp261)); + fRec271[0] = max((fRec271[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp302)))))); + fVbargraph71 = FAUSTFLOAT(fRec271[0]); + output35[i] = FAUSTFLOAT(fTemp302); + double fTemp303 = (fConst51 * ((0.40557681616231639 * fTemp38) + (0.015401651246669784 * fTemp53))); + double fTemp304 = ((0.059595081393300636 * fTemp35) + (0.20432599334845863 * fTemp107)); + double fTemp305 = ((fTemp0 + (fConst555 * fTemp50)) + (fConst556 * fTemp109)); + double fTemp306 = (fConst558 * fTemp29); + double fTemp307 = (fConst562 * fTemp27); + double fTemp308 = (fRec1[0] * ((fTemp303 + ((fConst47 * (((fConst48 * fTemp304) + (fConst553 * fTemp141)) + (fConst554 * fTemp61))) + ((0.02017333553791887 * ((((((((((((((fTemp305 + (fConst557 * fTemp91)) + fTemp306) + (fConst559 * fTemp136)) + (fConst560 * fTemp48)) + (fConst561 * fTemp66)) + fTemp307) + (fConst563 * fTemp105)) + (fConst564 * fTemp93)) + (fConst565 * fTemp21)) + (fConst566 * fTemp64)) + (fConst567 * fTemp138)) + (fConst568 * fTemp55)) + (fConst569 * fTemp68)) + (fConst570 * fTemp23))) + ((fConst30 * ((fConst571 * fTemp43) + (fConst572 * fTemp87))) + ((fConst20 * ((fConst573 * fTemp32) + (fConst574 * fTemp71))) + ((fConst575 * fTemp25) + ((fConst576 * fTemp46) + ((fConst577 * fTemp73) + (fTemp258 + (fConst578 * fTemp19)))))))))) - fTemp261)); + fRec272[0] = max((fRec272[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp308)))))); + fVbargraph72 = FAUSTFLOAT(fRec272[0]); + output36[i] = FAUSTFLOAT(fTemp308); + double fTemp309 = ((fTemp0 + (fConst579 * fTemp50)) + (fConst580 * fTemp109)); + double fTemp310 = (fConst582 * fTemp43); + double fTemp311 = (fConst585 * fTemp107); + double fTemp312 = (fConst589 * fTemp53); + double fTemp313 = (fConst594 * fTemp38); + double fTemp314 = (fRec1[0] * (((0.02017333553791887 * ((((((((((((((fTemp309 + (fConst581 * fTemp91)) + fTemp310) + (fConst583 * fTemp136)) + (fConst584 * fTemp48)) + fTemp311) + (fConst586 * fTemp87)) + (fConst587 * fTemp105)) + (fConst588 * fTemp93)) + fTemp312) + (fConst590 * fTemp141)) + (fConst591 * fTemp46)) + (fConst592 * fTemp138)) + (fConst593 * fTemp55)) + fTemp313)) + ((fConst47 * ((fConst595 * fTemp35) + (fConst596 * fTemp61))) + ((fConst30 * ((fConst597 * fTemp27) + (fConst598 * fTemp64))) + ((fConst26 * ((fConst599 * fTemp29) + (fConst600 * fTemp66))) + ((fConst20 * ((fConst601 * fTemp32) + (fConst602 * fTemp71))) + ((fConst603 * fTemp23) + ((fConst604 * fTemp68) + ((fConst605 * fTemp25) + ((fConst606 * fTemp21) + ((fConst607 * fTemp73) + (fTemp258 + (fConst608 * fTemp19)))))))))))) - fTemp261)); + fRec273[0] = max((fRec273[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp314)))))); + fVbargraph73 = FAUSTFLOAT(fRec273[0]); + output37[i] = FAUSTFLOAT(fTemp314); + double fTemp315 = (fTemp260 + fTemp257); + double fTemp316 = (0.027388228527386899 * fTemp141); + double fTemp317 = (fTemp255 + (fTemp256 + fTemp259)); + double fTemp318 = (fRec1[0] * ((((fConst610 * fTemp244) + ((fConst613 * fTemp245) + ((fConst617 * fTemp246) + ((fConst618 * ((0.023456653789763436 * fTemp87) + (0.01623922185445156 * fTemp64))) + ((fConst619 * fTemp248) + ((fConst620 * fTemp249) + ((fConst621 * ((0.022823523772822384 * fTemp66) + (0.017117642829616822 * fTemp136))) + ((fConst622 * fTemp252) + ((fConst623 * ((0.027065369757419324 * fTemp71) + (0.0090217899191397874 * fTemp91))) + (fTemp239 + ((fConst49 * fTemp241) + ((fConst39 * fTemp247) + ((fConst42 * fTemp250) + ((fConst45 * fTemp253) + (fTemp254 + fTemp315))))))))))))))) + (fConst624 * (fTemp316 + (0.0079882333204877847 * fTemp61)))) - fTemp317)); + fRec274[0] = max((fRec274[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp318)))))); + fVbargraph74 = FAUSTFLOAT(fRec274[0]); + output38[i] = FAUSTFLOAT(fTemp318); + double fTemp319 = (fConst625 * fTemp66); + double fTemp320 = (fConst627 * fTemp21); + double fTemp321 = (fRec1[0] * (((0.02017333553791887 * (((((fTemp267 + ((((fTemp265 + (fTemp264 + (fTemp263 + fTemp319))) + (fConst626 * fTemp87)) + fTemp320) + (fConst628 * fTemp64))) + (fConst629 * fTemp141)) + (fConst630 * fTemp46)) + (fConst631 * fTemp68)) + (fConst632 * fTemp23))) + ((fConst617 * fTemp268) + ((fConst620 * fTemp269) + ((fConst622 * fTemp270) + ((fConst623 * ((0.009021789919139777 * fTemp71) + (0.027065369757419327 * fTemp91))) + ((fConst633 * fTemp61) + ((fConst634 * fTemp138) + ((fConst635 * fTemp105) + ((fConst636 * fTemp136) + ((fConst45 * fTemp271) + ((fConst637 * fTemp109) + (fTemp272 + ((fConst638 * fTemp35) + fTemp315))))))))))))) - fTemp317)); + fRec275[0] = max((fRec275[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp321)))))); + fVbargraph75 = FAUSTFLOAT(fRec275[0]); + output39[i] = FAUSTFLOAT(fTemp321); + double fTemp322 = (fRec1[0] * (((0.02017333553791887 * (fTemp278 + (((((fTemp277 + (fTemp320 + ((((fTemp319 + (((fTemp276 + (fTemp275 + (fTemp274 + (fConst639 * fTemp71)))) + (fConst640 * fTemp136)) + (fConst641 * fTemp19))) + (fConst642 * fTemp87)) + (fConst643 * fTemp105)) + (fConst644 * fTemp73)))) + (fConst645 * fTemp46)) + (fConst646 * fTemp138)) + (fConst647 * fTemp25)) + (fConst648 * fTemp68)))) + ((fConst624 * ((0.027388228527386888 * fTemp141) + (0.0079882333204878541 * fTemp61))) + ((fConst649 * fTemp23) + (((fConst650 * fTemp64) + ((fConst651 * fTemp93) + ((fConst652 * fTemp48) + ((fConst653 * fTemp91) + ((fConst49 * fTemp279) + ((fConst654 * fTemp50) + ((fConst655 * fTemp27) + fTemp315))))))) + (fConst656 * fTemp55))))) - fTemp317)); + fRec276[0] = max((fRec276[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp322)))))); + fVbargraph76 = FAUSTFLOAT(fRec276[0]); + output40[i] = FAUSTFLOAT(fTemp322); + double fTemp323 = (fRec1[0] * (((0.02017333553791887 * ((((((((fTemp284 + (fTemp283 + (((fTemp282 + (fConst657 * fTemp71)) + (fConst658 * fTemp136)) + (fConst659 * fTemp19)))) + (fConst660 * fTemp105)) + (fConst661 * fTemp73)) + (fConst662 * fTemp64)) + (fConst663 * fTemp141)) + (fConst664 * fTemp138)) + (fConst665 * fTemp25)) + (fConst666 * fTemp23))) + ((fConst667 * fTemp61) + ((fConst668 * fTemp68) + ((fConst669 * fTemp55) + ((fConst670 * fTemp46) + ((fConst671 * fTemp21) + ((fConst672 * fTemp93) + ((fConst673 * fTemp87) + ((fConst674 * fTemp66) + ((fConst675 * fTemp48) + ((fConst676 * fTemp91) + (fTemp281 + ((fConst677 * fTemp43) + ((fConst678 * fTemp50) + ((fConst679 * fTemp35) + ((fConst680 * fTemp29) + fTemp315)))))))))))))))) - fTemp317)); + fRec277[0] = max((fRec277[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp323)))))); + fVbargraph77 = FAUSTFLOAT(fRec277[0]); + output41[i] = FAUSTFLOAT(fTemp323); + double fTemp324 = (fRec1[0] * (((fConst624 * (fTemp316 + (0.0079882333204878298 * fTemp61))) + ((0.02017333553791887 * (((((fTemp290 + (((((fTemp289 + (((fTemp288 + ((fTemp287 + (fConst681 * fTemp91)) + (fConst682 * fTemp71))) + (fConst683 * fTemp48)) + (fConst684 * fTemp19))) + (fConst685 * fTemp87)) + (fConst686 * fTemp93)) + (fConst687 * fTemp73)) + (fConst688 * fTemp64))) + (fConst689 * fTemp46)) + (fConst690 * fTemp55)) + (fConst691 * fTemp25)) + (fConst692 * fTemp23))) + ((fConst613 * fTemp291) + ((fConst619 * fTemp292) + ((fConst621 * ((0.022823523772822398 * fTemp66) + (0.017117642829616815 * fTemp136))) + ((fConst49 * fTemp286) + ((fConst42 * fTemp293) + (fTemp294 + fTemp315)))))))) - fTemp317)); + fRec278[0] = max((fRec278[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp324)))))); + fVbargraph78 = FAUSTFLOAT(fRec278[0]); + output42[i] = FAUSTFLOAT(fTemp324); + double fTemp325 = (fRec1[0] * (((0.02017333553791887 * (fTemp278 + ((((((((fTemp298 + ((((fTemp297 + ((fTemp296 + (fConst682 * fTemp91)) + (fConst693 * fTemp71))) + (fConst684 * fTemp48)) + (fConst694 * fTemp19)) + (fConst695 * fTemp66))) + (fConst687 * fTemp93)) + (fConst696 * fTemp73)) + (fConst697 * fTemp21)) + (fConst698 * fTemp141)) + (fConst691 * fTemp55)) + (fConst699 * fTemp25)) + (fConst700 * fTemp68)))) + ((fConst610 * fTemp299) + ((fConst618 * ((0.016239221854451587 * fTemp87) + (0.023456653789763426 * fTemp64))) + ((((fConst701 * fTemp105) + ((fConst702 * fTemp136) + ((fConst39 * fTemp300) + ((fConst703 * fTemp109) + (fTemp301 + ((fConst704 * fTemp35) + fTemp315)))))) + (fConst705 * fTemp138)) + (fConst706 * fTemp61))))) - fTemp317)); + fRec279[0] = max((fRec279[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp325)))))); + fVbargraph79 = FAUSTFLOAT(fRec279[0]); + output43[i] = FAUSTFLOAT(fTemp325); + double fTemp326 = (fRec1[0] * (((fConst624 * ((0.027388228527386878 * fTemp141) + (0.007988233320487868 * fTemp61))) + ((0.02017333553791887 * (((((((((fTemp307 + ((((fTemp306 + (fTemp305 + (fConst707 * fTemp91))) + (fConst708 * fTemp136)) + (fConst709 * fTemp48)) + (fConst710 * fTemp66))) + (fConst711 * fTemp105)) + (fConst712 * fTemp93)) + (fConst713 * fTemp21)) + (fConst714 * fTemp64)) + (fConst715 * fTemp138)) + (fConst716 * fTemp55)) + (fConst717 * fTemp68)) + (fConst718 * fTemp23))) + ((fConst719 * fTemp25) + ((fConst720 * fTemp46) + ((fConst721 * fTemp73) + ((fConst722 * fTemp87) + ((fConst723 * fTemp19) + ((fConst724 * fTemp71) + (fTemp303 + ((fConst49 * fTemp304) + ((fConst725 * fTemp43) + ((fConst726 * fTemp32) + fTemp315)))))))))))) - fTemp317)); + fRec280[0] = max((fRec280[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp326)))))); + fVbargraph80 = FAUSTFLOAT(fRec280[0]); + output44[i] = FAUSTFLOAT(fTemp326); + double fTemp327 = (fRec1[0] * ((((((((fConst727 * fTemp64) + ((fConst728 * fTemp21) + ((fConst729 * fTemp73) + ((fConst730 * fTemp66) + ((fConst731 * fTemp19) + ((fConst732 * fTemp71) + ((fConst733 * fTemp35) + ((fConst734 * fTemp27) + ((fConst735 * fTemp29) + ((fConst736 * fTemp32) + fTemp315)))))))))) + (fConst737 * fTemp25)) + (fConst738 * fTemp68)) + (fConst739 * fTemp23)) + (fConst740 * fTemp61)) + (0.02017333553791887 * (fTemp313 + (((((fTemp312 + ((((fTemp311 + (((fTemp310 + (fTemp309 + (fConst741 * fTemp91))) + (fConst742 * fTemp136)) + (fConst743 * fTemp48))) + (fConst744 * fTemp87)) + (fConst745 * fTemp105)) + (fConst746 * fTemp93))) + (fConst747 * fTemp141)) + (fConst748 * fTemp46)) + (fConst749 * fTemp138)) + (fConst750 * fTemp55))))) - fTemp317)); + fRec281[0] = max((fRec281[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp327)))))); + fVbargraph81 = FAUSTFLOAT(fRec281[0]); + output45[i] = FAUSTFLOAT(fTemp327); + double fTemp328 = (fTemp217 + (fTemp200 + fTemp202)); + double fTemp329 = (fConst773 * fTemp66); + double fTemp330 = (fConst774 * fTemp21); + double fTemp331 = (fConst778 * fTemp68); + double fTemp332 = (fConst780 * fTemp61); + double fTemp333 = (fTemp199 + fTemp201); + double fTemp334 = (fRec1[0] * ((((fConst754 * ((0.0050433338844797174 * fTemp25) + (0.0050433338844797183 * fTemp55))) + ((fConst758 * fTemp138) + ((fConst761 * fTemp46) + ((fConst762 * ((0.0067244451793062893 * fTemp73) + (0.0067244451793062911 * fTemp93))) + ((fConst764 * fTemp105) + ((fConst766 * fTemp87) + ((fConst767 * ((0.010086667768959435 * fTemp19) + (0.010086667768959437 * fTemp48))) + ((fConst769 * fTemp136) + ((fConst770 * ((0.02017333553791887 * fTemp71) + (0.020173335537918873 * fTemp91))) + ((fConst45 * fTemp193) + ((fConst771 * fTemp109) + ((fConst772 * fTemp43) + fTemp328)))))))))))) + (0.02017333553791887 * (fTemp216 + (((((fTemp213 + (fTemp212 + (((fTemp210 + (fTemp209 + (fTemp207 + fTemp329))) + fTemp330) + (fConst775 * fTemp64)))) + (fConst777 * fTemp141)) + fTemp331) + (fConst779 * fTemp23)) + fTemp332)))) - fTemp333)); + fRec282[0] = max((fRec282[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp334)))))); + fVbargraph82 = FAUSTFLOAT(fRec282[0]); + output46[i] = FAUSTFLOAT(fTemp334); + double fTemp335 = (fConst782 * fTemp136); + double fTemp336 = (fConst784 * fTemp105); + double fTemp337 = (fConst786 * fTemp138); + double fTemp338 = (fRec1[0] * (((0.02017333553791887 * (fTemp332 + (fTemp331 + (((fTemp213 + (fTemp212 + (fTemp330 + (((fTemp329 + (((fTemp206 + (fTemp220 + (fConst781 * fTemp71))) + fTemp335) + (fConst783 * fTemp19))) + fTemp336) + (fConst785 * fTemp73))))) + fTemp337) + (fConst787 * fTemp25))))) + ((fConst760 * ((0.01008666776895944 * fTemp23) + (0.010086667768959431 * fTemp46))) + ((fConst788 * fTemp141) + ((fConst765 * ((0.020173335537918863 * fTemp87) + (0.02017333553791888 * fTemp64))) + ((fConst789 * fTemp55) + ((fConst790 * fTemp93) + ((fConst791 * fTemp48) + ((fConst792 * fTemp91) + ((fConst39 * fTemp224) + ((fConst793 * fTemp107) + ((fConst794 * fTemp50) + (fTemp225 + fTemp328)))))))))))) - fTemp333)); + fRec283[0] = max((fRec283[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp338)))))); + fVbargraph83 = FAUSTFLOAT(fRec283[0]); + output47[i] = FAUSTFLOAT(fTemp338); + double fTemp339 = (fRec1[0] * (((0.02017333553791887 * (fTemp332 + ((((fTemp212 + ((((((fTemp229 + ((fTemp228 + (fConst781 * fTemp91)) + (fConst795 * fTemp71))) + (fConst783 * fTemp48)) + (fConst796 * fTemp19)) + (fConst797 * fTemp87)) + (fConst785 * fTemp93)) + (fConst798 * fTemp73))) + (fConst799 * fTemp46)) + (fConst787 * fTemp55)) + (fConst800 * fTemp25)))) + ((fConst757 * ((4.2232002659445085e-18 * fTemp68) + (0.0095098015720093357 * fTemp138))) + ((fConst763 * ((6.3348003989167635e-18 * fTemp21) + (0.014264702358014004 * fTemp105))) + ((fConst768 * ((1.2669600797833527e-17 * fTemp66) + (0.028529404716028009 * fTemp136))) + ((fConst801 * fTemp23) + ((fConst802 * fTemp141) + ((fConst803 * fTemp64) + (fTemp227 + ((fConst42 * fTemp230) + ((fConst804 * fTemp107) + ((fConst805 * fTemp27) + fTemp328))))))))))) - fTemp333)); + fRec284[0] = max((fRec284[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp339)))))); + fVbargraph84 = FAUSTFLOAT(fRec284[0]); + output48[i] = FAUSTFLOAT(fTemp339); + double fTemp340 = (fRec1[0] * ((((fConst806 * fTemp141) + (((fConst807 * fTemp73) + ((fConst808 * fTemp19) + ((fConst809 * fTemp71) + ((fConst810 * fTemp107) + (fTemp232 + ((fConst811 * fTemp32) + fTemp328)))))) + (fConst812 * fTemp25))) + (0.02017333553791887 * (fTemp237 + (fTemp332 + ((((fTemp337 + ((fTemp212 + ((((fTemp336 + ((fTemp236 + (((fTemp335 + (fTemp235 + (fTemp234 + (fTemp233 + (fConst795 * fTemp91))))) + (fConst796 * fTemp48)) + (fConst813 * fTemp66))) + (fConst814 * fTemp87))) + (fConst798 * fTemp93)) + (fConst815 * fTemp21)) + (fConst816 * fTemp64))) + (fConst817 * fTemp46))) + (fConst800 * fTemp55)) + (fConst818 * fTemp68)) + (fConst819 * fTemp23)))))) - fTemp333)); + fRec285[0] = max((fRec285[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp340)))))); + fVbargraph85 = FAUSTFLOAT(fRec285[0]); + output49[i] = FAUSTFLOAT(fTemp340); + fRec1[1] = fRec1[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec13[1] = fRec13[0]; + fRec16[1] = fRec16[0]; + fRec12[1] = fRec12[0]; + fRec11[1] = fRec11[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec19[1] = fRec19[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec18[1] = fRec18[0]; + fRec17[1] = fRec17[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec27[1] = fRec27[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec26[1] = fRec26[0]; + fRec32[1] = fRec32[0]; + fRec25[1] = fRec25[0]; + fRec24[1] = fRec24[0]; + fRec0[1] = fRec0[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec42[1] = fRec42[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec41[1] = fRec41[0]; + fRec40[1] = fRec40[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec50[1] = fRec50[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec49[1] = fRec49[0]; + fRec55[1] = fRec55[0]; + fRec48[1] = fRec48[0]; + fRec47[1] = fRec47[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec59[1] = fRec59[0]; + fRec62[1] = fRec62[0]; + fRec63[1] = fRec63[0]; + fRec58[1] = fRec58[0]; + fRec64[1] = fRec64[0]; + fRec57[1] = fRec57[0]; + fRec56[1] = fRec56[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec67[1] = fRec67[0]; + fRec70[1] = fRec70[0]; + fRec66[1] = fRec66[0]; + fRec65[1] = fRec65[0]; + fRec73[1] = fRec73[0]; + fRec74[1] = fRec74[0]; + fRec72[1] = fRec72[0]; + fRec71[1] = fRec71[0]; + fRec77[1] = fRec77[0]; + fRec76[1] = fRec76[0]; + fRec75[1] = fRec75[0]; + fRec81[1] = fRec81[0]; + fRec82[1] = fRec82[0]; + fRec80[1] = fRec80[0]; + fRec83[1] = fRec83[0]; + fRec84[1] = fRec84[0]; + fRec79[1] = fRec79[0]; + fRec78[1] = fRec78[0]; + fRec89[1] = fRec89[0]; + fRec90[1] = fRec90[0]; + fRec88[1] = fRec88[0]; + fRec91[1] = fRec91[0]; + fRec92[1] = fRec92[0]; + fRec87[1] = fRec87[0]; + fRec93[1] = fRec93[0]; + fRec86[1] = fRec86[0]; + fRec85[1] = fRec85[0]; + fRec33[1] = fRec33[0]; + fRec98[1] = fRec98[0]; + fRec99[1] = fRec99[0]; + fRec97[1] = fRec97[0]; + fRec100[1] = fRec100[0]; + fRec96[1] = fRec96[0]; + fRec95[1] = fRec95[0]; + fRec105[1] = fRec105[0]; + fRec106[1] = fRec106[0]; + fRec104[1] = fRec104[0]; + fRec107[1] = fRec107[0]; + fRec108[1] = fRec108[0]; + fRec103[1] = fRec103[0]; + fRec109[1] = fRec109[0]; + fRec102[1] = fRec102[0]; + fRec101[1] = fRec101[0]; + fRec113[1] = fRec113[0]; + fRec114[1] = fRec114[0]; + fRec112[1] = fRec112[0]; + fRec115[1] = fRec115[0]; + fRec111[1] = fRec111[0]; + fRec110[1] = fRec110[0]; + fRec118[1] = fRec118[0]; + fRec117[1] = fRec117[0]; + fRec116[1] = fRec116[0]; + fRec123[1] = fRec123[0]; + fRec124[1] = fRec124[0]; + fRec122[1] = fRec122[0]; + fRec125[1] = fRec125[0]; + fRec126[1] = fRec126[0]; + fRec121[1] = fRec121[0]; + fRec127[1] = fRec127[0]; + fRec120[1] = fRec120[0]; + fRec119[1] = fRec119[0]; + fRec132[1] = fRec132[0]; + fRec133[1] = fRec133[0]; + fRec131[1] = fRec131[0]; + fRec134[1] = fRec134[0]; + fRec135[1] = fRec135[0]; + fRec130[1] = fRec130[0]; + fRec136[1] = fRec136[0]; + fRec129[1] = fRec129[0]; + fRec128[1] = fRec128[0]; + fRec94[1] = fRec94[0]; + fRec137[1] = fRec137[0]; + fRec138[1] = fRec138[0]; + fRec139[1] = fRec139[0]; + fRec145[1] = fRec145[0]; + fRec146[1] = fRec146[0]; + fRec144[1] = fRec144[0]; + fRec147[1] = fRec147[0]; + fRec148[1] = fRec148[0]; + fRec143[1] = fRec143[0]; + fRec149[1] = fRec149[0]; + fRec142[1] = fRec142[0]; + fRec141[1] = fRec141[0]; + fRec153[1] = fRec153[0]; + fRec154[1] = fRec154[0]; + fRec152[1] = fRec152[0]; + fRec155[1] = fRec155[0]; + fRec156[1] = fRec156[0]; + fRec151[1] = fRec151[0]; + fRec150[1] = fRec150[0]; + fRec160[1] = fRec160[0]; + fRec161[1] = fRec161[0]; + fRec159[1] = fRec159[0]; + fRec162[1] = fRec162[0]; + fRec158[1] = fRec158[0]; + fRec157[1] = fRec157[0]; + fRec167[1] = fRec167[0]; + fRec168[1] = fRec168[0]; + fRec166[1] = fRec166[0]; + fRec169[1] = fRec169[0]; + fRec170[1] = fRec170[0]; + fRec165[1] = fRec165[0]; + fRec171[1] = fRec171[0]; + fRec164[1] = fRec164[0]; + fRec163[1] = fRec163[0]; + fRec174[1] = fRec174[0]; + fRec175[1] = fRec175[0]; + fRec173[1] = fRec173[0]; + fRec172[1] = fRec172[0]; + fRec179[1] = fRec179[0]; + fRec180[1] = fRec180[0]; + fRec178[1] = fRec178[0]; + fRec181[1] = fRec181[0]; + fRec182[1] = fRec182[0]; + fRec177[1] = fRec177[0]; + fRec176[1] = fRec176[0]; + fRec140[1] = fRec140[0]; + fRec187[1] = fRec187[0]; + fRec188[1] = fRec188[0]; + fRec186[1] = fRec186[0]; + fRec189[1] = fRec189[0]; + fRec190[1] = fRec190[0]; + fRec185[1] = fRec185[0]; + fRec184[1] = fRec184[0]; + fRec193[1] = fRec193[0]; + fRec194[1] = fRec194[0]; + fRec192[1] = fRec192[0]; + fRec191[1] = fRec191[0]; + fRec198[1] = fRec198[0]; + fRec199[1] = fRec199[0]; + fRec197[1] = fRec197[0]; + fRec200[1] = fRec200[0]; + fRec201[1] = fRec201[0]; + fRec196[1] = fRec196[0]; + fRec195[1] = fRec195[0]; + fRec183[1] = fRec183[0]; + fRec202[1] = fRec202[0]; + fRec203[1] = fRec203[0]; + fRec208[1] = fRec208[0]; + fRec209[1] = fRec209[0]; + fRec207[1] = fRec207[0]; + fRec210[1] = fRec210[0]; + fRec211[1] = fRec211[0]; + fRec206[1] = fRec206[0]; + fRec205[1] = fRec205[0]; + fRec215[1] = fRec215[0]; + fRec216[1] = fRec216[0]; + fRec214[1] = fRec214[0]; + fRec217[1] = fRec217[0]; + fRec218[1] = fRec218[0]; + fRec213[1] = fRec213[0]; + fRec212[1] = fRec212[0]; + fRec221[1] = fRec221[0]; + fRec222[1] = fRec222[0]; + fRec220[1] = fRec220[0]; + fRec219[1] = fRec219[0]; + fRec204[1] = fRec204[0]; + fRec223[1] = fRec223[0]; + fRec224[1] = fRec224[0]; + fRec225[1] = fRec225[0]; + fRec226[1] = fRec226[0]; + fRec227[1] = fRec227[0]; + fRec228[1] = fRec228[0]; + fRec229[1] = fRec229[0]; + fRec234[1] = fRec234[0]; + fRec235[1] = fRec235[0]; + fRec233[1] = fRec233[0]; + fRec236[1] = fRec236[0]; + fRec232[1] = fRec232[0]; + fRec231[1] = fRec231[0]; + fRec241[1] = fRec241[0]; + fRec242[1] = fRec242[0]; + fRec240[1] = fRec240[0]; + fRec243[1] = fRec243[0]; + fRec244[1] = fRec244[0]; + fRec239[1] = fRec239[0]; + fRec245[1] = fRec245[0]; + fRec238[1] = fRec238[0]; + fRec237[1] = fRec237[0]; + fRec250[1] = fRec250[0]; + fRec251[1] = fRec251[0]; + fRec249[1] = fRec249[0]; + fRec252[1] = fRec252[0]; + fRec253[1] = fRec253[0]; + fRec248[1] = fRec248[0]; + fRec254[1] = fRec254[0]; + fRec247[1] = fRec247[0]; + fRec246[1] = fRec246[0]; + fRec230[1] = fRec230[0]; + fRec255[1] = fRec255[0]; + fRec256[1] = fRec256[0]; + fRec257[1] = fRec257[0]; + fRec258[1] = fRec258[0]; + fRec259[1] = fRec259[0]; + fRec260[1] = fRec260[0]; + fRec261[1] = fRec261[0]; + fRec262[1] = fRec262[0]; + fRec263[1] = fRec263[0]; + fRec264[1] = fRec264[0]; + fRec265[1] = fRec265[0]; + fRec266[1] = fRec266[0]; + fRec267[1] = fRec267[0]; + fRec268[1] = fRec268[0]; + fRec269[1] = fRec269[0]; + fRec270[1] = fRec270[0]; + fRec271[1] = fRec271[0]; + fRec272[1] = fRec272[0]; + fRec273[1] = fRec273[0]; + fRec274[1] = fRec274[0]; + fRec275[1] = fRec275[0]; + fRec276[1] = fRec276[0]; + fRec277[1] = fRec277[0]; + fRec278[1] = fRec278[0]; + fRec279[1] = fRec279[0]; + fRec280[1] = fRec280[0]; + fRec281[1] = fRec281[0]; + fRec282[1] = fRec282[0]; + fRec283[1] = fRec283[0]; + fRec284[1] = fRec284[0]; + fRec285[1] = fRec285[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncEigenMike1.cpp b/source/HOAUGens/HOAEncEigenMike1.cpp new file mode 100644 index 0000000000..92b736c20a --- /dev/null +++ b/source/HOAUGens/HOAEncEigenMike1.cpp @@ -0,0 +1,1707 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncEigenMike1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + double fRec6[2]; + FAUSTFLOAT fVbargraph4; + double fRec7[2]; + FAUSTFLOAT fVbargraph5; + double fRec8[2]; + FAUSTFLOAT fVbargraph6; + double fRec9[2]; + FAUSTFLOAT fVbargraph7; + double fRec10[2]; + FAUSTFLOAT fVbargraph8; + double fRec11[2]; + FAUSTFLOAT fVbargraph9; + double fRec12[2]; + FAUSTFLOAT fVbargraph10; + double fRec13[2]; + FAUSTFLOAT fVbargraph11; + double fRec14[2]; + FAUSTFLOAT fVbargraph12; + double fRec15[2]; + FAUSTFLOAT fVbargraph13; + double fRec16[2]; + FAUSTFLOAT fVbargraph14; + double fRec17[2]; + FAUSTFLOAT fVbargraph15; + double fRec18[2]; + FAUSTFLOAT fVbargraph16; + double fRec19[2]; + FAUSTFLOAT fVbargraph17; + double fRec20[2]; + FAUSTFLOAT fVbargraph18; + double fRec21[2]; + FAUSTFLOAT fVbargraph19; + double fRec22[2]; + FAUSTFLOAT fVbargraph20; + double fRec23[2]; + FAUSTFLOAT fVbargraph21; + double fRec24[2]; + FAUSTFLOAT fVbargraph22; + double fRec25[2]; + FAUSTFLOAT fVbargraph23; + double fRec26[2]; + FAUSTFLOAT fVbargraph24; + double fRec27[2]; + FAUSTFLOAT fVbargraph25; + double fRec0[2]; + FAUSTFLOAT fVbargraph26; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fRec28[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec30[2]; + FAUSTFLOAT fVbargraph29; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncEigenMike1"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 26; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = (double(tgamma(1.5)) * sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0)))))); + fConst2 = (0.047619047619047623 * (0.0 - (1.5957691216057308 * fConst1))); + fConst3 = (0.0 - (1.1283791670955128 * fConst1)); + fConst4 = (0.0 - (1.1283791670955126 * fConst1)); + fConst5 = (0.0 - (1.128379167095513 * fConst1)); + fConst6 = (0.0 - (0.92131773192356115 * fConst1)); + fConst7 = (0.0 - (0.92131773192356148 * fConst1)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec6[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec8[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec10[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec12[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec16[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec18[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec20[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec22[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec24[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec0[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAEncEigenMike1"); + ui_interface->declare(0, "0", ""); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23f6120", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23fac70", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23f15d0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23eca80", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23e7f30", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23e3300", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2432b50", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2437be0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x242dac0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2428a30", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24239a0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x241e910", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2419880", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24147f0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x240f760", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x240a6d0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2405640", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24005b0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2460bf0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2466700", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x245b0e0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24555d0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x244fac0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2449fb0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24444a0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x243e990", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x246cac0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x247c470", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2483290", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x248cdb0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input5[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input4[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = double(input3[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = double(input0[i]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec6[0]); + double fTemp5 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = double(input17[i]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec8[0]); + double fTemp7 = double(input16[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = double(input15[i]); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec10[0]); + double fTemp9 = double(input14[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = double(input13[i]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = double(input12[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = double(input11[i]); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec14[0]); + double fTemp13 = double(input10[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = double(input9[i]); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec16[0]); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = double(input6[i]); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec18[0]); + double fTemp17 = double(input7[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (fTemp14 + (fTemp15 + (fTemp16 + fTemp17))); + double fTemp19 = double(input25[i]); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph18 = FAUSTFLOAT(fRec20[0]); + double fTemp20 = double(input24[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph19 = FAUSTFLOAT(fRec21[0]); + double fTemp21 = double(input23[i]); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph20 = FAUSTFLOAT(fRec22[0]); + double fTemp22 = double(input22[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph21 = FAUSTFLOAT(fRec23[0]); + double fTemp23 = double(input21[i]); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph22 = FAUSTFLOAT(fRec24[0]); + double fTemp24 = double(input20[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph23 = FAUSTFLOAT(fRec25[0]); + double fTemp25 = double(input18[i]); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph24 = FAUSTFLOAT(fRec26[0]); + double fTemp26 = double(input19[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph25 = FAUSTFLOAT(fRec27[0]); + double fTemp27 = (fTemp23 + (fTemp24 + (fTemp25 + fTemp26))); + double fTemp28 = (fRec1[0] * (((0.047619047619047623 * (fTemp0 + (fTemp1 + (fTemp2 + (fTemp3 + (fTemp4 + fTemp5)))))) + (0.038095238095238099 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 + (fTemp10 + (fTemp11 + (fTemp12 + (fTemp13 + fTemp18)))))))))) + (0.03214285714285714 * (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 + fTemp27))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph26 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (fRec1[0] * ((((fConst2 * fTemp1) + (0.038095238095238099 * ((((fConst3 * fTemp14) + (fConst4 * fTemp11)) + (fConst5 * fTemp10)) + (fConst3 * fTemp6)))) + (fConst1 * (((((((((0.07598900579074909 * fTemp3) + (0.042985873032210013 * fTemp17)) + (0.042985873032210006 * fTemp13)) + (0.042985873032210013 * fTemp12)) + (0.042985873032210013 * fTemp8)) + (0.029613784240400176 * fTemp25)) + (0.02961378424040018 * fTemp26)) + (0.029613784240400176 * fTemp22)) + (0.02961378424040018 * fTemp21)))) + (0.03214285714285714 * ((((fConst6 * fTemp24) + (fConst7 * fTemp23)) + (fConst6 * fTemp20)) + (fConst7 * fTemp19))))); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph27 = FAUSTFLOAT(fRec28[0]); + output1[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fRec1[0] * ((0.082478609884232251 * (fTemp4 - fTemp0)) - ((0.046656947481584346 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 - fTemp18))))) + (0.03214285714285714 * (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 - fTemp27)))))))); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + output2[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fRec1[0] * ((fConst1 * (((((((((0.07598900579074909 * fTemp5) + (0.042985873032210013 * fTemp16)) + (0.042985873032210013 * fTemp13)) + (0.042985873032209999 * fTemp10)) + (0.042985873032210013 * fTemp9)) + (0.02961378424040018 * fTemp25)) + (0.029613784240400173 * fTemp23)) + (0.02961378424040018 * fTemp22)) + (0.029613784240400173 * fTemp19))) + (((fConst2 * fTemp2) + (0.038095238095238099 * ((((fConst3 * fTemp15) + (fConst4 * fTemp12)) + (fConst5 * fTemp11)) + (fConst3 * fTemp7)))) + (0.03214285714285714 * ((((fConst6 * fTemp26) + (fConst7 * fTemp24)) + (fConst6 * fTemp21)) + (fConst7 * fTemp20)))))); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph29 = FAUSTFLOAT(fRec30[0]); + output3[i] = FAUSTFLOAT(fTemp31); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncEigenMike2.cpp b/source/HOAUGens/HOAEncEigenMike2.cpp new file mode 100644 index 0000000000..aa7d6d07ed --- /dev/null +++ b/source/HOAUGens/HOAEncEigenMike2.cpp @@ -0,0 +1,1872 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncEigenMike2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + double fRec6[2]; + FAUSTFLOAT fVbargraph4; + double fRec7[2]; + FAUSTFLOAT fVbargraph5; + double fRec8[2]; + FAUSTFLOAT fVbargraph6; + double fRec9[2]; + FAUSTFLOAT fVbargraph7; + double fRec10[2]; + FAUSTFLOAT fVbargraph8; + double fRec11[2]; + FAUSTFLOAT fVbargraph9; + double fRec12[2]; + FAUSTFLOAT fVbargraph10; + double fRec13[2]; + FAUSTFLOAT fVbargraph11; + double fRec14[2]; + FAUSTFLOAT fVbargraph12; + double fRec15[2]; + FAUSTFLOAT fVbargraph13; + double fRec16[2]; + FAUSTFLOAT fVbargraph14; + double fRec17[2]; + FAUSTFLOAT fVbargraph15; + double fRec18[2]; + FAUSTFLOAT fVbargraph16; + double fRec19[2]; + FAUSTFLOAT fVbargraph17; + double fRec20[2]; + FAUSTFLOAT fVbargraph18; + double fRec21[2]; + FAUSTFLOAT fVbargraph19; + double fRec22[2]; + FAUSTFLOAT fVbargraph20; + double fRec23[2]; + FAUSTFLOAT fVbargraph21; + double fRec24[2]; + FAUSTFLOAT fVbargraph22; + double fRec25[2]; + FAUSTFLOAT fVbargraph23; + double fRec26[2]; + FAUSTFLOAT fVbargraph24; + double fRec27[2]; + FAUSTFLOAT fVbargraph25; + double fRec0[2]; + FAUSTFLOAT fVbargraph26; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fRec28[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec30[2]; + FAUSTFLOAT fVbargraph29; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fRec32[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fConst31; + double fConst32; + double fRec34[2]; + FAUSTFLOAT fVbargraph33; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncEigenMike2"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 26; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.5)); + fConst2 = double(tgamma(1.0)); + fConst3 = (fConst1 * sqrt((3.0 * (fConst2 / double(tgamma(3.0)))))); + fConst4 = (0.047619047619047623 * (0.0 - (1.5957691216057308 * fConst3))); + fConst5 = (0.0 - (1.1283791670955128 * fConst3)); + fConst6 = (0.0 - (1.1283791670955126 * fConst3)); + fConst7 = (0.0 - (1.128379167095513 * fConst3)); + fConst8 = (0.0 - (0.92131773192356115 * fConst3)); + fConst9 = (0.0 - (0.92131773192356148 * fConst3)); + fConst10 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst2 / double(tgamma(5.0)))))); + fConst11 = (0.03214285714285714 * (0.0 - (2.1276921621409737 * fConst10))); + fConst12 = (0.0 - (3.1915382432114616 * fConst10)); + fConst13 = (0.038095238095238099 * fConst12); + fConst14 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst15 = (fConst1 * fConst14); + fConst16 = (0.0 - (2.3936536824085959 * fConst15)); + fConst17 = (0.0 - (1.6925687506432687 * fConst1)); + fConst18 = (0.0 - (1.4142135623730951 * (fConst14 * fConst17))); + fConst19 = (0.091186806948898899 * fConst1); + fConst20 = (0.053874802376117914 * fConst17); + fConst21 = (0.051292578908755625 * fConst1); + fConst22 = (0.051292578908755639 * fConst1); + fConst23 = (0.0 - (1.5957691216057308 * fConst1)); + fConst24 = (0.03214285714285714 * fConst23); + fConst25 = (0.032142857142857147 * fConst23); + fConst26 = (0.0 - (1.5957691216057308 * fConst15)); + fConst27 = (0.0 - (1.5957691216057313 * fConst15)); + fConst28 = (fConst14 * fConst23); + fConst29 = (0.0 - fConst28); + fConst30 = (0.0 - (1.0000000000000002 * fConst28)); + fConst31 = (0.051292578908755618 * fConst1); + fConst32 = (0.032142857142857133 * fConst23); + fConst33 = (0.0 - (4.7244256554467816e-16 * fConst10)); + fConst34 = (0.0 - (9.4488513108935631e-16 * fConst10)); + fConst35 = (0.047619047619047623 * fConst12); + fConst36 = (0.0 - (1.595769121605731 * fConst10)); + fConst37 = (0.0 - (7.0866384831701748e-16 * fConst10)); + fConst38 = (0.0 - (1.417327696634035e-15 * fConst10)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec6[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec8[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec10[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec12[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec16[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec18[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec20[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec22[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec24[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec0[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAEncEigenMike2"); + ui_interface->declare(0, "0", ""); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d583c0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d5cf10", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d53870", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d4ed20", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d4a1d0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d455a0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d94df0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d99e80", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d8fd60", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d8acd0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d85c40", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d80bb0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d7bb20", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d76a90", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d71a00", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d6c970", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d678e0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d62850", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dc2ea0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dc89b0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dbd380", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2db7870", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2db1d60", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dac250", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2da6740", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2da0c30", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dcef80", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ddef30", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2de5d50", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2def870", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dfa9c0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e0b710", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e136c0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e1c6e0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2e2ae50", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input5[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input4[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = double(input3[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = double(input0[i]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec6[0]); + double fTemp5 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = double(input17[i]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec8[0]); + double fTemp7 = double(input16[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = double(input15[i]); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec10[0]); + double fTemp9 = double(input14[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = double(input13[i]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = double(input12[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = double(input11[i]); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec14[0]); + double fTemp13 = double(input10[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = double(input9[i]); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec16[0]); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = double(input6[i]); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec18[0]); + double fTemp17 = double(input7[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (fTemp14 + (fTemp15 + (fTemp16 + fTemp17))); + double fTemp19 = double(input25[i]); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph18 = FAUSTFLOAT(fRec20[0]); + double fTemp20 = double(input24[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph19 = FAUSTFLOAT(fRec21[0]); + double fTemp21 = double(input23[i]); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph20 = FAUSTFLOAT(fRec22[0]); + double fTemp22 = double(input22[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph21 = FAUSTFLOAT(fRec23[0]); + double fTemp23 = double(input21[i]); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph22 = FAUSTFLOAT(fRec24[0]); + double fTemp24 = double(input20[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph23 = FAUSTFLOAT(fRec25[0]); + double fTemp25 = double(input18[i]); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph24 = FAUSTFLOAT(fRec26[0]); + double fTemp26 = double(input19[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph25 = FAUSTFLOAT(fRec27[0]); + double fTemp27 = (fTemp23 + (fTemp24 + (fTemp25 + fTemp26))); + double fTemp28 = (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 + fTemp27)))); + double fTemp29 = (fRec1[0] * (((0.047619047619047623 * (fTemp0 + (fTemp1 + (fTemp2 + (fTemp3 + (fTemp4 + fTemp5)))))) + (0.038095238095238099 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 + (fTemp10 + (fTemp11 + (fTemp12 + (fTemp13 + fTemp18)))))))))) + (0.03214285714285714 * fTemp28))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph26 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fRec1[0] * ((((fConst4 * fTemp1) + (0.038095238095238099 * ((((fConst5 * fTemp14) + (fConst6 * fTemp11)) + (fConst7 * fTemp10)) + (fConst5 * fTemp6)))) + (fConst3 * (((((((((0.07598900579074909 * fTemp3) + (0.042985873032210013 * fTemp17)) + (0.042985873032210006 * fTemp13)) + (0.042985873032210013 * fTemp12)) + (0.042985873032210013 * fTemp8)) + (0.029613784240400176 * fTemp25)) + (0.02961378424040018 * fTemp26)) + (0.029613784240400176 * fTemp22)) + (0.02961378424040018 * fTemp21)))) + (0.03214285714285714 * ((((fConst8 * fTemp24) + (fConst9 * fTemp23)) + (fConst8 * fTemp20)) + (fConst9 * fTemp19))))); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph27 = FAUSTFLOAT(fRec28[0]); + output1[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fRec1[0] * ((0.082478609884232251 * (fTemp4 - fTemp0)) - ((0.046656947481584346 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 - fTemp18))))) + (0.03214285714285714 * (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 - fTemp27)))))))); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + output2[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fRec1[0] * ((fConst3 * (((((((((0.07598900579074909 * fTemp5) + (0.042985873032210013 * fTemp16)) + (0.042985873032210013 * fTemp13)) + (0.042985873032209999 * fTemp10)) + (0.042985873032210013 * fTemp9)) + (0.02961378424040018 * fTemp25)) + (0.029613784240400173 * fTemp23)) + (0.02961378424040018 * fTemp22)) + (0.029613784240400173 * fTemp19))) + (((fConst4 * fTemp2) + (0.038095238095238099 * ((((fConst5 * fTemp15) + (fConst6 * fTemp12)) + (fConst7 * fTemp11)) + (fConst5 * fTemp7)))) + (0.03214285714285714 * ((((fConst8 * fTemp26) + (fConst9 * fTemp24)) + (fConst8 * fTemp21)) + (fConst9 * fTemp20)))))); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph29 = FAUSTFLOAT(fRec30[0]); + output3[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fRec1[0] * ((fConst11 * (fTemp19 + (fTemp21 + (fTemp26 + fTemp23)))) + ((fConst13 * (fTemp12 + fTemp10)) + (fConst10 * ((((((0.12158240926519855 * fTemp13) + (0.12158240926519859 * fTemp11)) + (0.068390105211674143 * fTemp25)) + (0.068390105211674157 * fTemp24)) + (0.068390105211674143 * fTemp22)) + (0.068390105211674157 * fTemp20)))))); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + output4[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fRec1[0] * (((0.038095238095238099 * ((fConst16 * fTemp14) + (fConst18 * fTemp6))) + (fConst14 * ((((((fConst19 * fTemp17) + (fConst20 * fTemp8)) + (fConst21 * fTemp25)) + (fConst22 * fTemp26)) + (fConst24 * fTemp22)) + (fConst25 * fTemp21)))) + (0.03214285714285714 * ((((fConst26 * fTemp24) + (fConst27 * fTemp23)) + (fConst29 * fTemp20)) + (fConst30 * fTemp19))))); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph31 = FAUSTFLOAT(fRec32[0]); + output5[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (fRec1[0] * (((0.021295885499997991 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 + fTemp18))))) + ((0.10647942749999 * (fTemp4 + fTemp0)) + (7.9795740640090912e-18 * fTemp28))) - ((0.053239713749994998 * (fTemp1 + (fTemp2 + (fTemp5 + fTemp3)))) + (0.042591770999995997 * (fTemp10 + (fTemp11 + (fTemp13 + fTemp12))))))); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + output6[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (fRec1[0] * ((fConst14 * ((((((fConst19 * fTemp16) + (fConst20 * fTemp9)) + (fConst22 * fTemp25)) + (fConst31 * fTemp23)) + (fConst25 * fTemp22)) + (fConst32 * fTemp19))) + ((0.038095238095238099 * ((fConst16 * fTemp15) + (fConst18 * fTemp7))) + (0.03214285714285714 * ((((fConst26 * fTemp26) + (fConst27 * fTemp24)) + (fConst29 * fTemp21)) + (fConst30 * fTemp20)))))); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph33 = FAUSTFLOAT(fRec34[0]); + output7[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (fRec1[0] * ((0.03214285714285714 * ((((fConst33 * fTemp26) + (fConst34 * fTemp23)) + (fConst33 * fTemp21)) + (fConst34 * fTemp19))) + (((fConst35 * (fTemp3 + fTemp1)) + (0.038095238095238099 * (((((fConst36 * (fTemp17 + fTemp14)) + (fConst37 * fTemp12)) + (fConst38 * fTemp10)) + (fConst36 * fTemp8)) + (fConst36 * fTemp6)))) + (fConst10 * (((((((((((0.06079120463259928 * fTemp16) + (0.15197801158149818 * (fTemp5 + fTemp2))) + (0.06079120463259928 * fTemp15)) + (2.6996718031124477e-17 * fTemp13)) + (5.3993436062248954e-17 * fTemp11)) + (0.06079120463259928 * fTemp9)) + (0.06079120463259928 * fTemp7)) + (1.518565389250751e-17 * fTemp25)) + (3.037130778501502e-17 * fTemp24)) + (1.518565389250751e-17 * fTemp22)) + (3.037130778501502e-17 * fTemp20)))))); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + output8[i] = FAUSTFLOAT(fTemp37); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncEigenMike3.cpp b/source/HOAUGens/HOAEncEigenMike3.cpp new file mode 100644 index 0000000000..44ada2b54c --- /dev/null +++ b/source/HOAUGens/HOAEncEigenMike3.cpp @@ -0,0 +1,2147 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncEigenMike3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + double fRec6[2]; + FAUSTFLOAT fVbargraph4; + double fRec7[2]; + FAUSTFLOAT fVbargraph5; + double fRec8[2]; + FAUSTFLOAT fVbargraph6; + double fRec9[2]; + FAUSTFLOAT fVbargraph7; + double fRec10[2]; + FAUSTFLOAT fVbargraph8; + double fRec11[2]; + FAUSTFLOAT fVbargraph9; + double fRec12[2]; + FAUSTFLOAT fVbargraph10; + double fRec13[2]; + FAUSTFLOAT fVbargraph11; + double fRec14[2]; + FAUSTFLOAT fVbargraph12; + double fRec15[2]; + FAUSTFLOAT fVbargraph13; + double fRec16[2]; + FAUSTFLOAT fVbargraph14; + double fRec17[2]; + FAUSTFLOAT fVbargraph15; + double fRec18[2]; + FAUSTFLOAT fVbargraph16; + double fRec19[2]; + FAUSTFLOAT fVbargraph17; + double fRec20[2]; + FAUSTFLOAT fVbargraph18; + double fRec21[2]; + FAUSTFLOAT fVbargraph19; + double fRec22[2]; + FAUSTFLOAT fVbargraph20; + double fRec23[2]; + FAUSTFLOAT fVbargraph21; + double fRec24[2]; + FAUSTFLOAT fVbargraph22; + double fRec25[2]; + FAUSTFLOAT fVbargraph23; + double fRec26[2]; + FAUSTFLOAT fVbargraph24; + double fRec27[2]; + FAUSTFLOAT fVbargraph25; + double fRec0[2]; + FAUSTFLOAT fVbargraph26; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fRec28[2]; + FAUSTFLOAT fVbargraph27; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fRec30[2]; + FAUSTFLOAT fVbargraph29; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fRec32[2]; + FAUSTFLOAT fVbargraph31; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fConst35; + double fConst36; + double fRec34[2]; + FAUSTFLOAT fVbargraph33; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fRec36[2]; + FAUSTFLOAT fVbargraph35; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fRec38[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fConst83; + double fConst84; + double fConst85; + double fRec40[2]; + FAUSTFLOAT fVbargraph39; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fRec42[2]; + FAUSTFLOAT fVbargraph41; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncEigenMike3"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 26; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = double(tgamma(3.0)); + fConst3 = double(tgamma(1.5)); + fConst4 = (sqrt((3.0 * (fConst1 / fConst2))) * fConst3); + fConst5 = (0.047619047619047623 * (0.0 - (1.5957691216057308 * fConst4))); + fConst6 = (0.0 - (1.1283791670955128 * fConst4)); + fConst7 = (0.0 - (1.1283791670955126 * fConst4)); + fConst8 = (0.0 - (1.128379167095513 * fConst4)); + fConst9 = (0.0 - (0.92131773192356115 * fConst4)); + fConst10 = (0.0 - (0.92131773192356148 * fConst4)); + fConst11 = double(tgamma(2.5)); + fConst12 = double(tgamma(5.0)); + fConst13 = (fConst11 * sqrt((5.0 * (fConst1 / fConst12)))); + fConst14 = (0.03214285714285714 * (0.0 - (2.1276921621409737 * fConst13))); + fConst15 = (0.0 - (3.1915382432114616 * fConst13)); + fConst16 = (0.038095238095238099 * fConst15); + fConst17 = double(tgamma(2.0)); + fConst18 = sqrt((5.0 * (fConst17 / double(tgamma(4.0))))); + fConst19 = (fConst3 * fConst18); + fConst20 = (0.0 - (2.3936536824085959 * fConst19)); + fConst21 = (0.0 - (1.6925687506432687 * fConst3)); + fConst22 = (0.0 - (1.4142135623730951 * (fConst21 * fConst18))); + fConst23 = (0.091186806948898899 * fConst3); + fConst24 = (0.053874802376117914 * fConst21); + fConst25 = (0.051292578908755625 * fConst3); + fConst26 = (0.051292578908755639 * fConst3); + fConst27 = (0.0 - (1.5957691216057308 * fConst3)); + fConst28 = (0.03214285714285714 * fConst27); + fConst29 = (0.032142857142857147 * fConst27); + fConst30 = (0.0 - (1.5957691216057308 * fConst19)); + fConst31 = (0.0 - (1.5957691216057313 * fConst19)); + fConst32 = (fConst27 * fConst18); + fConst33 = (0.0 - fConst32); + fConst34 = (0.0 - (1.0000000000000002 * fConst32)); + fConst35 = (0.051292578908755618 * fConst3); + fConst36 = (0.032142857142857133 * fConst27); + fConst37 = (0.0 - (4.7244256554467816e-16 * fConst13)); + fConst38 = (0.0 - (9.4488513108935631e-16 * fConst13)); + fConst39 = (0.047619047619047623 * fConst15); + fConst40 = (0.0 - (1.595769121605731 * fConst13)); + fConst41 = (0.0 - (7.0866384831701748e-16 * fConst13)); + fConst42 = (0.0 - (1.417327696634035e-15 * fConst13)); + fConst43 = (double(tgamma(3.5)) * sqrt((7.0 * (fConst1 / double(tgamma(7.0)))))); + fConst44 = (0.047619047619047623 * (0.0 - (6.3830764864229232 * fConst43))); + fConst45 = (0.0 - (2.256758334191026 * fConst43)); + fConst46 = (0.0 - (4.5135166683820547 * fConst43)); + fConst47 = (0.0 - (4.5135166683820476 * fConst43)); + fConst48 = (0.0 - (2.456847285129498 * fConst43)); + fConst49 = (0.0 - (2.456847285129494 * fConst43)); + fConst50 = sqrt((7.0 * (fConst17 / double(tgamma(6.0))))); + fConst51 = (0.0 - (4.3431334391370653 * fConst11)); + fConst52 = (0.045456864504849481 * fConst51); + fConst53 = (0.045456864504849488 * fConst51); + fConst54 = (fConst11 * fConst50); + fConst55 = (0.0 - (6.1421182128237417 * fConst54)); + fConst56 = (fConst50 * fConst51); + fConst57 = (0.0 - (1.4142135623730951 * fConst56)); + fConst58 = sqrt((7.0 * (fConst2 / fConst12))); + fConst59 = (0.0 - (3.3851375012865379 * fConst3)); + fConst60 = (fConst58 * fConst59); + fConst61 = (0.047619047619047623 * (0.0 - (0.70710678118654757 * fConst60))); + fConst62 = (fConst3 * fConst58); + fConst63 = (0.0 - (2.5388531259649025 * fConst62)); + fConst64 = (0.0 - (0.5 * fConst60)); + fConst65 = (0.0 - (0.50000000000000011 * fConst60)); + fConst66 = (0.0 - ((3.5355339059327373 * fConst21) + (2.3936536824085963 * fConst3))); + fConst67 = (0.0 - (0.70710678118654757 * (fConst58 * fConst66))); + fConst68 = (0.09671821432247249 * fConst3); + fConst69 = (0.033671751485073696 * fConst59); + fConst70 = (0.019047619047619049 * fConst59); + fConst71 = (0.019047619047619053 * fConst59); + fConst72 = (0.026937401188058957 * fConst66); + fConst73 = (0.02961378424040019 * fConst3); + fConst74 = (0.029613784240400197 * fConst3); + fConst75 = (0.0 - ((2.8867513459481291 * fConst27) + (2.7639531957706835 * fConst3))); + fConst76 = (0.01607142857142857 * fConst75); + fConst77 = (0.016071428571428573 * fConst75); + fConst78 = (0.0 - (0.92131773192356159 * fConst62)); + fConst79 = (0.0 - (0.92131773192356192 * fConst62)); + fConst80 = (fConst58 * fConst75); + fConst81 = (0.0 - (0.5 * fConst80)); + fConst82 = (0.0 - (0.50000000000000011 * fConst80)); + fConst83 = (0.019047619047619046 * fConst59); + fConst84 = (0.029613784240400187 * fConst3); + fConst85 = (0.016071428571428566 * fConst75); + fConst86 = (0.0 - (1.3638242119692871e-15 * fConst54)); + fConst87 = (0.0 - (2.7276484239385742e-15 * fConst54)); + fConst88 = (0.0 - (3.1401849173675503e-16 * fConst56)); + fConst89 = (0.0 - (6.2803698347351007e-16 * fConst56)); + fConst90 = (0.0 - (5.6418958354775643 * fConst54)); + fConst91 = (0.0 - (3.9894228040143274 * fConst11)); + fConst92 = (0.0 - (1.4142135623730951 * (fConst50 * fConst91))); + fConst93 = (0.2149293651610501 * fConst11); + fConst94 = (0.053874802376117914 * fConst91); + fConst95 = (4.3837206813298509e-17 * fConst11); + fConst96 = (8.7674413626597019e-17 * fConst11); + fConst97 = (1.0093451520109982e-17 * fConst51); + fConst98 = (2.0186903040219964e-17 * fConst51); + fConst99 = (0.0 - (2.4568472851294949 * fConst43)); + fConst100 = (0.0 - (2.4568472851294976 * fConst43)); + fConst101 = (0.0 - (4.5135166683820485 * fConst43)); + fConst102 = (0.0 - (4.5135166683820538 * fConst43)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec6[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec8[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec10[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec12[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec16[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec18[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec20[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec22[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec24[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec0[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec38[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec39[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec41[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec42[l42] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAEncEigenMike3"); + ui_interface->declare(0, "0", ""); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ca1cb0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ca6800", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c9d160", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c98610", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c93ac0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c8ee90", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cde6f0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ce3780", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cd9660", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cd45d0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ccf540", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cca4b0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cc5420", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cc0390", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cbb300", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cb6260", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cb11d0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cac140", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d0c790", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d122a0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d06c80", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d01170", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cfb660", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cf5b50", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cf0040", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cea530", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d18870", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d28b20", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d2ff70", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d39a90", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d453f0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d56440", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d5e3f0", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d67410", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d75d90", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d855c0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2d90a10", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2da6e40", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dacff0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2db7f00", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dc72b0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2dd36d0", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input5[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input4[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = double(input3[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp3 = double(input2[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = double(input0[i]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec6[0]); + double fTemp5 = double(input1[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = double(input17[i]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec8[0]); + double fTemp7 = double(input16[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = double(input15[i]); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec10[0]); + double fTemp9 = double(input14[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = double(input13[i]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = double(input12[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = double(input11[i]); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec14[0]); + double fTemp13 = double(input10[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = double(input9[i]); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec16[0]); + double fTemp15 = double(input8[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = double(input6[i]); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec18[0]); + double fTemp17 = double(input7[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = (fTemp14 + (fTemp15 + (fTemp16 + fTemp17))); + double fTemp19 = double(input25[i]); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph18 = FAUSTFLOAT(fRec20[0]); + double fTemp20 = double(input24[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph19 = FAUSTFLOAT(fRec21[0]); + double fTemp21 = double(input23[i]); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph20 = FAUSTFLOAT(fRec22[0]); + double fTemp22 = double(input22[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph21 = FAUSTFLOAT(fRec23[0]); + double fTemp23 = double(input21[i]); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph22 = FAUSTFLOAT(fRec24[0]); + double fTemp24 = double(input20[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph23 = FAUSTFLOAT(fRec25[0]); + double fTemp25 = double(input18[i]); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph24 = FAUSTFLOAT(fRec26[0]); + double fTemp26 = double(input19[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph25 = FAUSTFLOAT(fRec27[0]); + double fTemp27 = (fTemp23 + (fTemp24 + (fTemp25 + fTemp26))); + double fTemp28 = (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 + fTemp27)))); + double fTemp29 = (fRec1[0] * (((0.047619047619047623 * (fTemp0 + (fTemp1 + (fTemp2 + (fTemp3 + (fTemp4 + fTemp5)))))) + (0.038095238095238099 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 + (fTemp10 + (fTemp11 + (fTemp12 + (fTemp13 + fTemp18)))))))))) + (0.03214285714285714 * fTemp28))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph26 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fRec1[0] * ((((fConst5 * fTemp1) + (0.038095238095238099 * ((((fConst6 * fTemp14) + (fConst7 * fTemp11)) + (fConst8 * fTemp10)) + (fConst6 * fTemp6)))) + (fConst4 * (((((((((0.07598900579074909 * fTemp3) + (0.042985873032210013 * fTemp17)) + (0.042985873032210006 * fTemp13)) + (0.042985873032210013 * fTemp12)) + (0.042985873032210013 * fTemp8)) + (0.029613784240400176 * fTemp25)) + (0.02961378424040018 * fTemp26)) + (0.029613784240400176 * fTemp22)) + (0.02961378424040018 * fTemp21)))) + (0.03214285714285714 * ((((fConst9 * fTemp24) + (fConst10 * fTemp23)) + (fConst9 * fTemp20)) + (fConst10 * fTemp19))))); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph27 = FAUSTFLOAT(fRec28[0]); + output1[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fTemp4 - fTemp0); + double fTemp32 = (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 - fTemp18)))); + double fTemp33 = (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 - fTemp27)))); + double fTemp34 = (fRec1[0] * ((0.082478609884232251 * fTemp31) - ((0.046656947481584346 * fTemp32) + (0.03214285714285714 * fTemp33)))); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + output2[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (fRec1[0] * ((fConst4 * (((((((((0.07598900579074909 * fTemp5) + (0.042985873032210013 * fTemp16)) + (0.042985873032210013 * fTemp13)) + (0.042985873032209999 * fTemp10)) + (0.042985873032210013 * fTemp9)) + (0.02961378424040018 * fTemp25)) + (0.029613784240400173 * fTemp23)) + (0.02961378424040018 * fTemp22)) + (0.029613784240400173 * fTemp19))) + (((fConst5 * fTemp2) + (0.038095238095238099 * ((((fConst6 * fTemp15) + (fConst7 * fTemp12)) + (fConst8 * fTemp11)) + (fConst6 * fTemp7)))) + (0.03214285714285714 * ((((fConst9 * fTemp26) + (fConst10 * fTemp24)) + (fConst9 * fTemp21)) + (fConst10 * fTemp20)))))); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph29 = FAUSTFLOAT(fRec30[0]); + output3[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (fTemp26 + fTemp23); + double fTemp37 = (fRec1[0] * ((fConst14 * (fTemp19 + (fTemp21 + fTemp36))) + ((fConst16 * (fTemp12 + fTemp10)) + (fConst13 * ((((((0.12158240926519855 * fTemp13) + (0.12158240926519859 * fTemp11)) + (0.068390105211674143 * fTemp25)) + (0.068390105211674157 * fTemp24)) + (0.068390105211674143 * fTemp22)) + (0.068390105211674157 * fTemp20)))))); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + output4[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (fRec1[0] * (((0.038095238095238099 * ((fConst20 * fTemp14) + (fConst22 * fTemp6))) + (fConst18 * ((((((fConst23 * fTemp17) + (fConst24 * fTemp8)) + (fConst25 * fTemp25)) + (fConst26 * fTemp26)) + (fConst28 * fTemp22)) + (fConst29 * fTemp21)))) + (0.03214285714285714 * ((((fConst30 * fTemp24) + (fConst31 * fTemp23)) + (fConst33 * fTemp20)) + (fConst34 * fTemp19))))); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph31 = FAUSTFLOAT(fRec32[0]); + output5[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (fRec1[0] * (((0.021295885499997991 * (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 + fTemp18))))) + ((0.10647942749999 * (fTemp4 + fTemp0)) + (7.9795740640090912e-18 * fTemp28))) - ((0.053239713749994998 * (fTemp1 + (fTemp2 + (fTemp5 + fTemp3)))) + (0.042591770999995997 * (fTemp10 + (fTemp11 + (fTemp13 + fTemp12))))))); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + output6[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fRec1[0] * ((fConst18 * ((((((fConst23 * fTemp16) + (fConst24 * fTemp9)) + (fConst26 * fTemp25)) + (fConst35 * fTemp23)) + (fConst29 * fTemp22)) + (fConst36 * fTemp19))) + ((0.038095238095238099 * ((fConst20 * fTemp15) + (fConst22 * fTemp7))) + (0.03214285714285714 * ((((fConst30 * fTemp26) + (fConst31 * fTemp24)) + (fConst33 * fTemp21)) + (fConst34 * fTemp20)))))); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph33 = FAUSTFLOAT(fRec34[0]); + output7[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (fTemp17 + fTemp14); + double fTemp42 = (fRec1[0] * ((0.03214285714285714 * ((((fConst37 * fTemp26) + (fConst38 * fTemp23)) + (fConst37 * fTemp21)) + (fConst38 * fTemp19))) + (((fConst39 * (fTemp3 + fTemp1)) + (0.038095238095238099 * (((((fConst40 * fTemp41) + (fConst41 * fTemp12)) + (fConst42 * fTemp10)) + (fConst40 * fTemp8)) + (fConst40 * fTemp6)))) + (fConst13 * (((((((((((0.06079120463259928 * fTemp16) + (0.15197801158149818 * (fTemp5 + fTemp2))) + (0.06079120463259928 * fTemp15)) + (2.6996718031124477e-17 * fTemp13)) + (5.3993436062248954e-17 * fTemp11)) + (0.06079120463259928 * fTemp9)) + (0.06079120463259928 * fTemp7)) + (1.518565389250751e-17 * fTemp25)) + (3.037130778501502e-17 * fTemp24)) + (1.518565389250751e-17 * fTemp22)) + (3.037130778501502e-17 * fTemp20)))))); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + output8[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (fRec1[0] * ((((fConst44 * fTemp3) + (0.038095238095238099 * ((((fConst45 * fTemp17) + (fConst46 * fTemp11)) + (fConst47 * fTemp10)) + (fConst45 * fTemp8)))) + (fConst43 * (((((((((0.30395602316299636 * fTemp1) + (0.08597174606442004 * fTemp14)) + (0.17194349212884008 * fTemp13)) + (0.17194349212883997 * fTemp12)) + (0.08597174606442004 * fTemp6)) + (0.078970091307733831 * fTemp25)) + (0.078970091307733761 * fTemp26)) + (0.078970091307733831 * fTemp22)) + (0.078970091307733761 * fTemp21)))) + (0.03214285714285714 * ((((fConst48 * fTemp24) + (fConst49 * fTemp23)) + (fConst48 * fTemp20)) + (fConst49 * fTemp19))))); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph35 = FAUSTFLOAT(fRec36[0]); + output9[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (fRec1[0] * ((fConst50 * (((fConst11 * ((0.19742522826933454 * fTemp25) + (0.19742522826933459 * fTemp24))) + (fConst52 * fTemp22)) + (fConst53 * fTemp20))) + (0.03214285714285714 * (((fConst55 * fTemp36) + (fConst57 * fTemp21)) + (fConst57 * fTemp19))))); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + output10[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (fRec1[0] * ((((fConst61 * fTemp1) + (0.038095238095238099 * ((((fConst63 * fTemp14) + (fConst64 * fTemp11)) + (fConst65 * fTemp10)) + (fConst67 * fTemp6)))) + (fConst58 * (((((((((fConst68 * fTemp17) + (fConst69 * fTemp3)) + (fConst70 * fTemp13)) + (fConst71 * fTemp12)) + (fConst72 * fTemp8)) + (fConst73 * fTemp25)) + (fConst74 * fTemp26)) + (fConst76 * fTemp22)) + (fConst77 * fTemp21)))) + (0.03214285714285714 * ((((fConst78 * fTemp24) + (fConst79 * fTemp23)) + (fConst81 * fTemp20)) + (fConst82 * fTemp19))))); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph37 = FAUSTFLOAT(fRec38[0]); + output11[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (fRec1[0] * (((0.12598815766974242 * fTemp31) + (0.017817416127494972 * fTemp32)) + (0.032732683535398849 * fTemp33))); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + output12[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (fRec1[0] * ((fConst58 * (((((((((fConst68 * fTemp16) + (fConst69 * fTemp5)) + (fConst71 * fTemp13)) + (fConst83 * fTemp10)) + (fConst72 * fTemp9)) + (fConst74 * fTemp25)) + (fConst84 * fTemp23)) + (fConst77 * fTemp22)) + (fConst85 * fTemp19))) + (((fConst61 * fTemp2) + (0.038095238095238099 * (((fConst65 * fTemp11) + ((fConst63 * fTemp15) + (fConst64 * fTemp12))) + (fConst67 * fTemp7)))) + (0.03214285714285714 * ((((fConst78 * fTemp26) + (fConst79 * fTemp24)) + (fConst81 * fTemp21)) + (fConst82 * fTemp20)))))); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph39 = FAUSTFLOAT(fRec40[0]); + output13[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (fRec1[0] * ((0.03214285714285714 * ((((fConst86 * fTemp26) + (fConst87 * fTemp23)) + (fConst88 * fTemp21)) + (fConst89 * fTemp19))) + ((0.038095238095238099 * (((fConst90 * fTemp41) + (fConst92 * fTemp8)) + (fConst92 * fTemp6))) + (fConst50 * (((((((fConst93 * (fTemp16 + fTemp15)) + (fConst94 * fTemp9)) + (fConst94 * fTemp7)) + (fConst95 * fTemp25)) + (fConst96 * fTemp24)) + (fConst97 * fTemp22)) + (fConst98 * fTemp20)))))); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + output14[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (fRec1[0] * ((0.03214285714285714 * ((((fConst99 * fTemp25) + (fConst100 * fTemp23)) + (fConst99 * fTemp22)) + (fConst100 * fTemp19))) + (((fConst44 * fTemp2) + (0.038095238095238099 * ((((fConst45 * fTemp15) + (fConst101 * fTemp13)) + (fConst102 * fTemp10)) + (fConst45 * fTemp7)))) + (fConst43 * (((((((((0.30395602316299636 * fTemp5) + (0.08597174606442004 * fTemp16)) + (0.17194349212884008 * fTemp12)) + (0.17194349212883991 * fTemp11)) + (0.08597174606442004 * fTemp9)) + (0.078970091307733831 * fTemp26)) + (0.078970091307733734 * fTemp24)) + (0.078970091307733831 * fTemp21)) + (0.078970091307733734 * fTemp20)))))); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph41 = FAUSTFLOAT(fRec42[0]); + output15[i] = FAUSTFLOAT(fTemp49); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncEigenMike4.cpp b/source/HOAUGens/HOAEncEigenMike4.cpp new file mode 100644 index 0000000000..fbfe285fc1 --- /dev/null +++ b/source/HOAUGens/HOAEncEigenMike4.cpp @@ -0,0 +1,2895 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAEncEigenMike4" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph0; + double fRec3[2]; + FAUSTFLOAT fVbargraph1; + double fRec4[2]; + FAUSTFLOAT fVbargraph2; + double fRec5[2]; + FAUSTFLOAT fVbargraph3; + double fRec6[2]; + FAUSTFLOAT fVbargraph4; + double fRec7[2]; + FAUSTFLOAT fVbargraph5; + double fRec8[2]; + FAUSTFLOAT fVbargraph6; + double fRec9[2]; + FAUSTFLOAT fVbargraph7; + double fRec10[2]; + FAUSTFLOAT fVbargraph8; + double fRec11[2]; + FAUSTFLOAT fVbargraph9; + double fRec12[2]; + FAUSTFLOAT fVbargraph10; + double fRec13[2]; + FAUSTFLOAT fVbargraph11; + double fRec14[2]; + FAUSTFLOAT fVbargraph12; + double fRec15[2]; + FAUSTFLOAT fVbargraph13; + double fRec16[2]; + FAUSTFLOAT fVbargraph14; + double fRec17[2]; + FAUSTFLOAT fVbargraph15; + double fRec18[2]; + FAUSTFLOAT fVbargraph16; + double fRec19[2]; + FAUSTFLOAT fVbargraph17; + double fRec20[2]; + FAUSTFLOAT fVbargraph18; + double fRec21[2]; + FAUSTFLOAT fVbargraph19; + double fRec22[2]; + FAUSTFLOAT fVbargraph20; + double fRec23[2]; + FAUSTFLOAT fVbargraph21; + double fRec24[2]; + FAUSTFLOAT fVbargraph22; + double fRec25[2]; + FAUSTFLOAT fVbargraph23; + double fRec26[2]; + FAUSTFLOAT fVbargraph24; + double fRec27[2]; + FAUSTFLOAT fVbargraph25; + double fRec28[2]; + FAUSTFLOAT fVbargraph26; + double fRec29[2]; + FAUSTFLOAT fVbargraph27; + double fRec30[2]; + FAUSTFLOAT fVbargraph28; + double fRec31[2]; + FAUSTFLOAT fVbargraph29; + double fRec32[2]; + FAUSTFLOAT fVbargraph30; + double fRec33[2]; + FAUSTFLOAT fVbargraph31; + double fRec0[2]; + FAUSTFLOAT fVbargraph32; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fRec34[2]; + FAUSTFLOAT fVbargraph33; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fRec36[2]; + FAUSTFLOAT fVbargraph35; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fRec37[2]; + FAUSTFLOAT fVbargraph36; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fRec38[2]; + FAUSTFLOAT fVbargraph37; + double fRec39[2]; + FAUSTFLOAT fVbargraph38; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fRec40[2]; + FAUSTFLOAT fVbargraph39; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fRec41[2]; + FAUSTFLOAT fVbargraph40; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fRec42[2]; + FAUSTFLOAT fVbargraph41; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fRec43[2]; + FAUSTFLOAT fVbargraph42; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fRec44[2]; + FAUSTFLOAT fVbargraph43; + double fRec45[2]; + FAUSTFLOAT fVbargraph44; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fRec46[2]; + FAUSTFLOAT fVbargraph45; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fRec47[2]; + FAUSTFLOAT fVbargraph46; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fRec48[2]; + FAUSTFLOAT fVbargraph47; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fRec49[2]; + FAUSTFLOAT fVbargraph48; + double fConst197; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fRec50[2]; + FAUSTFLOAT fVbargraph49; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fConst231; + double fConst232; + double fConst233; + double fConst234; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fRec51[2]; + FAUSTFLOAT fVbargraph50; + double fConst239; + double fConst240; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fConst253; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fConst258; + double fConst259; + double fConst260; + double fConst261; + double fRec52[2]; + FAUSTFLOAT fVbargraph51; + double fRec53[2]; + FAUSTFLOAT fVbargraph52; + double fConst262; + double fConst263; + double fConst264; + double fConst265; + double fConst266; + double fConst267; + double fConst268; + double fConst269; + double fConst270; + double fConst271; + double fConst272; + double fConst273; + double fConst274; + double fConst275; + double fConst276; + double fConst277; + double fConst278; + double fRec54[2]; + FAUSTFLOAT fVbargraph53; + double fConst279; + double fConst280; + double fConst281; + double fConst282; + double fConst283; + double fConst284; + double fConst285; + double fConst286; + double fConst287; + double fConst288; + double fConst289; + double fConst290; + double fConst291; + double fConst292; + double fConst293; + double fConst294; + double fConst295; + double fConst296; + double fConst297; + double fConst298; + double fConst299; + double fConst300; + double fConst301; + double fConst302; + double fRec55[2]; + FAUSTFLOAT fVbargraph54; + double fConst303; + double fConst304; + double fConst305; + double fConst306; + double fConst307; + double fConst308; + double fConst309; + double fConst310; + double fConst311; + double fConst312; + double fConst313; + double fConst314; + double fConst315; + double fConst316; + double fConst317; + double fConst318; + double fConst319; + double fConst320; + double fRec56[2]; + FAUSTFLOAT fVbargraph55; + double fConst321; + double fConst322; + double fConst323; + double fConst324; + double fConst325; + double fConst326; + double fRec57[2]; + FAUSTFLOAT fVbargraph56; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("eigenmike32.lib/author", "Pierre Lecomte"); + m->declare("eigenmike32.lib/copyright", "(c) Pierre Lecomte 2015"); + m->declare("eigenmike32.lib/license", "GPL"); + m->declare("eigenmike32.lib/name", "Pentakis dodecahedron grid"); + m->declare("eigenmike32.lib/version", "1.0"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncEigenMike4"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 32; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = double(tgamma(3.0)); + fConst3 = double(tgamma(1.5)); + fConst4 = (sqrt((3.0 * (fConst1 / fConst2))) * fConst3); + fConst5 = (0.0 - (0.83894547537068676 * fConst4)); + fConst6 = (0.0 - (0.92131773170354936 * fConst4)); + fConst7 = (0.0 - (1.4907234049739491 * fConst4)); + fConst8 = (0.0 - (0.83894547432629885 * fConst4)); + fConst9 = (0.0 - (0.92131773191602406 * fConst4)); + fConst10 = (0.0 - (1.4907234045358599 * fConst4)); + fConst11 = (0.0 - (0.5694056722918005 * fConst4)); + fConst12 = (0.0 - (1.3574422932346608 * fConst4)); + fConst13 = (0.0 - (1.4907234046979638 * fConst4)); + fConst14 = (0.0 - (1.3574422936455703 * fConst4)); + fConst15 = (0.0 - (1.3574422934949071 * fConst4)); + fConst16 = (0.0 - (0.83894547484849291 * fConst4)); + fConst17 = (0.0 - (0.92131773189251487 * fConst4)); + fConst18 = (0.0 - (0.56940567317101876 * fConst4)); + fConst19 = (0.0 - (0.92131773172705878 * fConst4)); + fConst20 = (0.0 - (0.56940567290330546 * fConst4)); + fConst21 = double(tgamma(5.0)); + fConst22 = double(tgamma(2.5)); + fConst23 = (sqrt((5.0 * (fConst1 / fConst21))) * fConst22); + fConst24 = (0.0 - (2.8545985866509747 * fConst23)); + fConst25 = (0.0 - (2.1276921620518694 * fConst23)); + fConst26 = (0.0 - (2.127692159770834 * fConst23)); + fConst27 = (0.0 - (2.8545985849673534 * fConst23)); + fConst28 = (0.0 - (2.127692162576873 * fConst23)); + fConst29 = double(tgamma(2.0)); + fConst30 = double(tgamma(4.0)); + fConst31 = sqrt((5.0 * (fConst29 / fConst30))); + fConst32 = (0.049867785051350533 * fConst3); + fConst33 = (0.0 - (1.595769121639145 * fConst3)); + fConst34 = (0.031250000000079749 * fConst33); + fConst35 = (0.049867785014654206 * fConst3); + fConst36 = (0.066904654355926602 * fConst3); + fConst37 = (0.0 - (1.513879513216569 * fConst3)); + fConst38 = (0.044194173824159223 * fConst37); + fConst39 = (0.0 - (1.1283791662916762 * fConst3)); + fConst40 = (0.044194173824159223 * fConst39); + fConst41 = (0.031250000006010782 * fConst33); + fConst42 = (0.049867785060815094 * fConst3); + fConst43 = (fConst31 * fConst33); + fConst44 = (0.0 - (0.99999999978213805 * fConst43)); + fConst45 = (fConst31 * fConst3); + fConst46 = (0.0 - (1.5957691212914875 * fConst45)); + fConst47 = (0.0 - (1.5957691216595047 * fConst45)); + fConst48 = (0.0 - (1.0000000000127585 * fConst43)); + fConst49 = (0.0 - (1.5957691204689346 * fConst45)); + fConst50 = (0.0 - (2.1409489393896513 * fConst45)); + fConst51 = (0.0 - (1.4142135623730951 * (fConst31 * fConst37))); + fConst52 = (0.0 - (1.4142135623730951 * (fConst31 * fConst39))); + fConst53 = (0.049867785048675617 * fConst3); + fConst54 = (0.0 - (1.1283791670614929 * fConst3)); + fConst55 = (0.044194173824159223 * fConst54); + fConst56 = (0.066904654348894713 * fConst3); + fConst57 = (0.049867785051096042 * fConst3); + fConst58 = (0.031249999999920262 * fConst33); + fConst59 = (0.0 - (1.5138795130574554 * fConst3)); + fConst60 = (0.044194173824159223 * fConst59); + fConst61 = (0.031250000006808193 * fConst33); + fConst62 = (0.049867785062087583 * fConst3); + fConst63 = (0.0 - (1.5957691215576197 * fConst45)); + fConst64 = (0.0 - (1.4142135623730951 * (fConst31 * fConst54))); + fConst65 = (0.0 - (2.1409489391646308 * fConst45)); + fConst66 = (0.0 - (1.5957691216187855 * fConst45)); + fConst67 = (0.0 - (0.99999999998724154 * fConst43)); + fConst68 = (0.0 - (1.4142135623730951 * (fConst31 * fConst59))); + fConst69 = (0.0 - (0.99999999980765519 * fConst43)); + fConst70 = (0.0 - (1.5957691213322069 * fConst45)); + fConst71 = (0.0 - (1.0858147483458616e-11 * fConst23)); + fConst72 = (0.0 - (2.3788321562260699 * fConst23)); + fConst73 = (0.0 - (2.3788321569902795 * fConst23)); + fConst74 = (0.0 - (0.4063530434926958 * fConst23)); + fConst75 = (0.0 - (2.3094187680584044 * fConst23)); + fConst76 = (0.0 - (5.4292390966272419e-11 * fConst23)); + fConst77 = (0.0 - (2.378832153716274 * fConst23)); + fConst78 = (0.0 - (8.1850154790365642e-10 * fConst23)); + fConst79 = (0.0 - (2.3788321544804822 * fConst23)); + fConst80 = double(tgamma(7.0)); + fConst81 = double(tgamma(3.5)); + fConst82 = (sqrt((7.0 * (fConst1 / fConst80))) * fConst81); + fConst83 = (0.0 - (6.3572844778421267 * fConst82)); + fConst84 = (0.0 - (2.9260633694272102 * fConst82)); + fConst85 = (0.0 - (2.4568472865809237 * fConst82)); + fConst86 = (0.0 - (0.28999148408756475 * fConst82)); + fConst87 = (0.0 - (3.9290178837373331 * fConst82)); + fConst88 = (0.0 - (6.3572844791652345 * fConst82)); + fConst89 = (0.0 - (2.4568472848811247 * fConst82)); + fConst90 = (0.0 - (2.9260633624460199 * fConst82)); + fConst91 = double(tgamma(6.0)); + fConst92 = sqrt((7.0 * (fConst29 / fConst91))); + fConst93 = (0.19194119415074193 * fConst22); + fConst94 = (0.0 - (4.3431334391370644 * fConst22)); + fConst95 = (0.04419417382415923 * fConst94); + fConst96 = (0.19194119415074187 * fConst22); + fConst97 = (0.044194173824159223 * fConst94); + fConst98 = (fConst92 * fConst94); + fConst99 = (0.0 - (1.4142135623730951 * fConst98)); + fConst100 = (fConst92 * fConst22); + fConst101 = (0.0 - (6.1421182128237399 * fConst100)); + fConst102 = sqrt((7.0 * (fConst2 / fConst21))); + fConst103 = (0.028791179128110564 * fConst3); + fConst104 = (0.0 - (3.3851375012865379 * fConst3)); + fConst105 = (0.011617126076936305 * fConst104); + fConst106 = (0.020642487809373531 * fConst104); + fConst107 = (0.0 - ((2.7639531957128085 * fConst3) + (2.8867513460690217 * fConst33))); + fConst108 = (0.015625000000039874 * fConst107); + fConst109 = (0.089771875033956811 * fConst3); + fConst110 = (0.024304538356264491 * fConst3); + fConst111 = (0.0 - ((2.6286555606082351 * fConst37) + (2.8795699518469395 * fConst3))); + fConst112 = (0.022097086912079612 * fConst111); + fConst113 = (0.0 - ((4.6708617953819722 * fConst39) + (1.2078918363708513 * fConst3))); + fConst114 = (0.022097086912079612 * fConst113); + fConst115 = (0.011617126071105382 * fConst104); + fConst116 = (0.015625000003005391 * fConst107); + fConst117 = (0.020642487806139163 * fConst104); + fConst118 = (0.028791179133574932 * fConst3); + fConst119 = (fConst102 * fConst104); + fConst120 = (0.0 - (0.37174803463013312 * fConst119)); + fConst121 = (fConst102 * fConst107); + fConst122 = (0.0 - (0.49999999989106902 * fConst121)); + fConst123 = (0.0 - (0.66055960994526475 * fConst119)); + fConst124 = (fConst102 * fConst3); + fConst125 = (0.0 - (0.92131773189646693 * fConst124)); + fConst126 = (0.0 - (0.3717480341673508 * fConst119)); + fConst127 = (0.0 - (0.92131773210894174 * fConst124)); + fConst128 = (0.0 - (0.66055960975114159 * fConst119)); + fConst129 = (0.0 - (0.50000000000637923 * fConst121)); + fConst130 = (0.0 - (2.8727000010866179 * fConst124)); + fConst131 = (0.0 - (0.7777452274004637 * fConst124)); + fConst132 = (0.0 - (0.70710678118654757 * (fConst102 * fConst111))); + fConst133 = (0.0 - (0.70710678118654757 * (fConst102 * fConst113))); + fConst134 = (0.018796904843951478 * fConst104); + fConst135 = (0.0 - (1.1491488228408451 * fConst3)); + fConst136 = (0.022097086912079612 * fConst135); + fConst137 = (0.0 - ((1.7841104488024717 * fConst54) + (3.1623018850062845 * fConst3))); + fConst138 = (0.022097086912079612 * fConst137); + fConst139 = (0.018796904840703489 * fConst104); + fConst140 = (0.10295567663646205 * fConst3); + fConst141 = (0.028791179127963633 * fConst3); + fConst142 = (0.007884728723289422 * fConst104); + fConst143 = (0.015624999999960131 * fConst107); + fConst144 = (0.0 - ((4.253254042028713 * fConst59) + (1.7796721029334124 * fConst3))); + fConst145 = (0.022097086912079612 * fConst144); + fConst146 = (0.015625000003404096 * fConst107); + fConst147 = (0.0078847287195823092 * fConst104); + fConst148 = (0.028791179134309602 * fConst3); + fConst149 = (0.0 - (0.70710678118654757 * (fConst102 * fConst135))); + fConst150 = (0.0 - (0.60150095518852686 * fConst119)); + fConst151 = (0.0 - (0.70710678118654757 * (fConst102 * fConst137))); + fConst152 = (0.0 - (0.60150095512176593 * fConst119)); + fConst153 = (0.0 - (3.2945816523667855 * fConst124)); + fConst154 = (0.0 - (0.92131773208543244 * fConst124)); + fConst155 = (0.0 - (0.25231131953485497 * fConst119)); + fConst156 = (0.0 - (0.49999999999362077 * fConst121)); + fConst157 = (0.0 - (0.70710678118654757 * (fConst102 * fConst144))); + fConst158 = (0.0 - (0.4999999999038276 * fConst121)); + fConst159 = (0.0 - (0.25231131941622759 * fConst119)); + fConst160 = (0.0 - (0.92131773191997635 * fConst124)); + fConst161 = (0.1552836879846895 * fConst22); + fConst162 = (0.0 - (3.5136687610121586 * fConst22)); + fConst163 = (0.044194173824159223 * fConst162); + fConst164 = (0.11724619443659033 * fConst22); + fConst165 = (0.0 - (2.6529785329417432 * fConst22)); + fConst166 = (0.044194173824159223 * fConst165); + fConst167 = (1.9256467651072228e-11 * fConst94); + fConst168 = (8.3633408575032958e-11 * fConst22); + fConst169 = (0.0 - (3.1344771863690116e-11 * fConst100)); + fConst170 = (0.0 - (7.2170869955858409e-12 * fConst98)); + fConst171 = (0.0 - (1.8980189062872217 * fConst100)); + fConst172 = (0.0 - (6.0706664864297446 * fConst100)); + fConst173 = (0.0 - (4.2926094388763847 * fConst22)); + fConst174 = (0.0 - (1.4142135623730951 * (fConst92 * fConst173))); + fConst175 = (0.0 - (1.3421020394559686 * fConst22)); + fConst176 = (0.0 - (1.4142135623730951 * (fConst92 * fConst175))); + fConst177 = (0.0 - (1.5672863270319247e-10 * fConst100)); + fConst178 = (0.0 - (3.6086534042650283e-11 * fConst98)); + fConst179 = (0.0 - (5.4403358273051902e-10 * fConst98)); + fConst180 = (0.0 - (2.3628104451704574e-09 * fConst100)); + fConst181 = (0.0 - (0.57323598386659269 * fConst82)); + fConst182 = (0.0 - (0.57323598919882257 * fConst82)); + fConst183 = (0.0 - (2.4568472849939691 * fConst82)); + fConst184 = (0.0 - (5.6729021311513463 * fConst82)); + fConst185 = (0.0 - (2.4568472833694006 * fConst82)); + fConst186 = (0.0 - (5.6729021295749007 * fConst82)); + fConst187 = (0.0 - (5.203686055152577 * fConst82)); + fConst188 = (0.0 - (0.92751530491955814 * fConst82)); + fConst189 = (double(tgamma(4.5)) * sqrt((9.0 * (fConst1 / double(tgamma(9.0)))))); + fConst190 = (0.0 - (10.212922369619969 * fConst189)); + fConst191 = (0.0 - (5.7910350987853847e-11 * fConst189)); + fConst192 = (0.0 - (12.687104824167649 * fConst189)); + fConst193 = (0.0 - (4.9444630204394806e-09 * fConst189)); + fConst194 = (0.0 - (10.212922387690494 * fConst189)); + fConst195 = (0.0 - (2.8955977255842764e-10 * fConst189)); + fConst196 = (0.0 - (12.687104827514046 * fConst189)); + fConst197 = sqrt((9.0 * (fConst29 / double(tgamma(8.0))))); + fConst198 = (0.0 - (9.9292300897832995 * fConst81)); + fConst199 = (fConst197 * fConst198); + fConst200 = (0.0 - (1.0000000006535863 * fConst199)); + fConst201 = (fConst81 * fConst197); + fConst202 = (0.0 - (9.9292300962729083 * fConst201)); + fConst203 = (0.0 - (1.8963142016150152 * fConst201)); + fConst204 = (0.0 - (14.459248590941478 * fConst201)); + fConst205 = (0.0 - (10.22423272951675 * fConst81)); + fConst206 = (0.0 - (1.4142135623730951 * (fConst197 * fConst205))); + fConst207 = (0.0 - (1.3408966312223309 * fConst81)); + fConst208 = (0.0 - (1.4142135623730951 * (fConst197 * fConst207))); + fConst209 = (0.0 - (9.9292300894032515 * fConst201)); + fConst210 = (0.0 - (0.9999999999617244 * fConst199)); + fConst211 = (0.31028844030335295 * fConst81); + fConst212 = (0.031249999999760792 * fConst198); + fConst213 = (0.031249999981967664 * fConst198); + fConst214 = (0.31028844012668089 * fConst81); + fConst215 = (0.059259818800469224 * fConst81); + fConst216 = (0.45185151846692118 * fConst81); + fConst217 = (0.044194173824159223 * fConst205); + fConst218 = (0.044194173824159223 * fConst207); + fConst219 = sqrt((9.0 * (fConst2 / fConst80))); + fConst220 = (0.2216346002462225 * fConst22); + fConst221 = (0.0 - (11.283791670955125 * fConst22)); + fConst222 = (0.019764235376110769 * fConst221); + fConst223 = (0.014731391264225374 * fConst221); + fConst224 = (0.0 - ((7.5225277803217159 * fConst22) + (4.041451884496631 * fConst94))); + fConst225 = (0.022097086912079615 * fConst224); + fConst226 = (0.019764235366430384 * fConst221); + fConst227 = (0.22163460024622245 * fConst22); + fConst228 = (0.014731391283653389 * fConst221); + fConst229 = (0.022097086912079612 * fConst224); + fConst230 = (fConst219 * fConst221); + fConst231 = (0.0 - (0.63245553221237039 * fConst230)); + fConst232 = (fConst219 * fConst224); + fConst233 = (0.0 - (0.70710678118654757 * fConst232)); + fConst234 = (0.0 - (0.47140452026591112 * fConst230)); + fConst235 = (fConst22 * fConst219); + fConst236 = (0.0 - (7.0923072078791183 * fConst235)); + fConst237 = (0.0 - (0.63245553183935277 * fConst230)); + fConst238 = (0.0 - (0.47140452088760798 * fConst230)); + fConst239 = sqrt((9.0 * (fConst30 / fConst91))); + fConst240 = (0.12918856329855402 * fConst3); + fConst241 = (0.0 - (2.6596152019522412 * fConst3)); + fConst242 = (0.0 - ((2.0207259422483155 * fConst107) + (4.0 * fConst33))); + fConst243 = (0.0 - (4.0316412356782187 * fConst3)); + fConst244 = (0.01473139127471974 * fConst243); + fConst245 = (0.0 - ((1.8400588924257646 * fConst111) + (4.0 * fConst37))); + fConst246 = (0.01473139127471974 * fConst245); + fConst247 = (0.0 - ((3.2696032567673803 * fConst113) + (4.0 * fConst39))); + fConst248 = (0.01473139127471974 * fConst247); + fConst249 = (0.01041666666867026 * fConst242); + fConst250 = (0.01041666666867026 * fConst241); + fConst251 = (fConst239 * fConst242); + fConst252 = (0.0 - (0.33333333326071263 * fConst251)); + fConst253 = (fConst239 * fConst241); + fConst254 = (0.0 - (0.33333333326071263 * fConst253)); + fConst255 = (0.0 - (0.33333333333758614 * fConst253)); + fConst256 = (0.0 - (0.33333333333758614 * fConst251)); + fConst257 = (fConst3 * fConst239); + fConst258 = (0.0 - (4.1340340255537287 * fConst257)); + fConst259 = (0.0 - (0.47140452079103168 * (fConst239 * fConst243))); + fConst260 = (0.0 - (0.47140452079103168 * (fConst239 * fConst245))); + fConst261 = (0.0 - (0.47140452079103168 * (fConst239 * fConst247))); + fConst262 = (0.11514556317659597 * fConst3); + fConst263 = ((1.2488773141617302 * fConst135) - (4.5135166682459715 * fConst3)); + fConst264 = (0.0 - ((1.2488773141617302 * fConst137) + (4.0 * fConst54))); + fConst265 = (0.010416666666640087 * fConst241); + fConst266 = (0.010416666666640087 * fConst242); + fConst267 = (0.0 - ((2.9772778294200997 * fConst144) + (4.0 * fConst59))); + fConst268 = (0.01473139127471974 * fConst267); + fConst269 = (0.010416666668936063 * fConst242); + fConst270 = (0.010416666668936063 * fConst241); + fConst271 = (0.0 - (0.47140452079103168 * (fConst239 * fConst263))); + fConst272 = (0.0 - (0.47140452079103168 * (fConst239 * fConst264))); + fConst273 = (0.0 - (3.6846580216510709 * fConst257)); + fConst274 = (0.0 - (0.33333333332908049 * fConst253)); + fConst275 = (0.0 - (0.33333333332908049 * fConst251)); + fConst276 = (0.0 - (0.47140452079103168 * (fConst239 * fConst267))); + fConst277 = (0.0 - (0.33333333326921838 * fConst251)); + fConst278 = (0.0 - (0.33333333326921838 * fConst253)); + fConst279 = (0.0098821176879093937 * fConst221); + fConst280 = (0.022097086912079612 * (0.0 - (1.0708342953989121 * fConst22))); + fConst281 = (0.022097086912079612 * (0.0 - ((2.4977546283234604 * fConst162) + (9.8471167056125903 * fConst22)))); + fConst282 = (0.009882117676857774 * fConst221); + fConst283 = (0.28015891130704573 * fConst22); + fConst284 = (0.022097086912079612 * (0.0 - ((5.9545556588401993 * fConst165) + (3.1187633124264642 * fConst22)))); + fConst285 = (9.6282338255361139e-12 * fConst224); + fConst286 = (9.6571541918193163e-11 * fConst22); + fConst287 = (0.0098821177072701549 * fConst221); + fConst288 = (0.0098821177001713802 * fConst221); + fConst289 = (0.0 - (3.6193824950167161e-11 * fConst235)); + fConst290 = (0.0 - (0.52704627699509621 * fConst230)); + fConst291 = (0.0 - (3.6085434977929205e-12 * fConst232)); + fConst292 = (0.0 - (0.52704627716441199 * fConst230)); + fConst293 = (0.0 - (5.1898861886710215 * fConst235)); + fConst294 = (0.0 - (5.3968369311601121 * fConst235)); + fConst295 = (0.0 - (0.70710678118654757 * (fConst219 * (0.0 - ((3.6801177848515292 * fConst173) + (8.1650283574679019 * fConst22)))))); + fConst296 = (0.0 - (0.70710678118654757 * (fConst219 * (0.0 - ((6.5392065135347606 * fConst175) + (1.4366749630473863 * fConst22)))))); + fConst297 = (0.0 - (1.8097463658076773e-10 * fConst235)); + fConst298 = (0.0 - (0.52704627643903401 * fConst230)); + fConst299 = (0.0 - (1.8043267021325141e-11 * fConst232)); + fConst300 = (0.0 - (2.7201679136525951e-10 * fConst232)); + fConst301 = (0.0 - (0.52704627660834946 * fConst230)); + fConst302 = (0.0 - (2.7283384934120938e-09 * fConst235)); + fConst303 = (0.0 - (9.9292300898593062 * fConst201)); + fConst304 = (0.0 - (1.000000000007655 * fConst199)); + fConst305 = (0.0 - (0.99999999934641381 * fConst199)); + fConst306 = (0.0 - (9.9292300832936924 * fConst201)); + fConst307 = (0.0 - (12.997530928599598 * fConst201)); + fConst308 = (0.0 - (9.190642258294659 * fConst81)); + fConst309 = (0.0 - (1.4142135623730951 * (fConst197 * fConst308))); + fConst310 = (0.0 - (5.5229415075696471 * fConst201)); + fConst311 = (0.0 - (3.9053093920991513 * fConst81)); + fConst312 = (0.0 - (1.4142135623730951 * (fConst197 * fConst311))); + fConst313 = (0.40617284151873745 * fConst81); + fConst314 = (0.044194173824159223 * fConst308); + fConst315 = (0.17259192211155147 * fConst81); + fConst316 = (0.044194173824159223 * fConst311); + fConst317 = (0.31028844031760461 * fConst81); + fConst318 = (0.031250000001196113 * fConst198); + fConst319 = (0.03125000001803234 * fConst198); + fConst320 = (0.31028844048477533 * fConst81); + fConst321 = (0.0 - (7.659691783828209 * fConst189)); + fConst322 = (0.0 - (7.6596917952497838 * fConst189)); + fConst323 = (0.0 - (5.6738457652340379 * fConst189)); + fConst324 = (0.0 - (5.6738457652340371 * fConst189)); + fConst325 = (0.0 - (7.6596917638193442 * fConst189)); + fConst326 = (0.0 - (7.6596917711557539 * fConst189)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec2[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec5[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec6[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec7[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec8[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec10[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec11[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec12[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec15[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec16[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec17[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec18[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec20[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec21[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec22[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec24[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec27[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec28[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec29[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec30[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec31[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec32[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec0[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec38[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec39[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec41[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec42[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec43[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec44[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec45[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec46[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec47[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec48[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec49[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec50[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec51[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec52[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec56[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec57[l57] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAEncEigenMike4"); + ui_interface->declare(0, "0", ""); + ui_interface->openHorizontalBox("Inputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a29c0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a7510", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x319de70", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3199320", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31947d0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318fc80", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318b130", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31865e0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3181a90", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317cf40", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31783f0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31738a0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316ed50", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316a200", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31656b0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3160b60", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x315c010", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31574c0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3152970", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314de20", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31492d0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3144780", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313fc30", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313b0e0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3136590", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3131a40", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312cef0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31283a0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3123850", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311ed00", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311a1b0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3115570", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31af220", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31c1ee0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31cb700", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31db580", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31e9ce0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31fece0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3209cb0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x321b7f0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x322e1d0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3240850", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x324c970", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3268170", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x326ee40", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3287a10", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x329cc50", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32acff0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32bc6a0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32d07d0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph50, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32e3190", &fVbargraph50, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph51, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32f8290", &fVbargraph51, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph52, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32ff6b0", &fVbargraph52, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph53, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3311740", &fVbargraph53, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph54, "unit", "dB"); + ui_interface->addVerticalBargraph("0x332d620", &fVbargraph54, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph55, "unit", "dB"); + ui_interface->addVerticalBargraph("0x333f6a0", &fVbargraph55, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph56, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3350900", &fVbargraph56, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input31[i]); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp0)))))); + fVbargraph0 = FAUSTFLOAT(fRec2[0]); + double fTemp1 = double(input30[i]); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph1 = FAUSTFLOAT(fRec3[0]); + double fTemp2 = double(input29[i]); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp2)))))); + fVbargraph2 = FAUSTFLOAT(fRec4[0]); + double fTemp3 = double(input28[i]); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph3 = FAUSTFLOAT(fRec5[0]); + double fTemp4 = double(input27[i]); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph4 = FAUSTFLOAT(fRec6[0]); + double fTemp5 = double(input26[i]); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph5 = FAUSTFLOAT(fRec7[0]); + double fTemp6 = double(input25[i]); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph6 = FAUSTFLOAT(fRec8[0]); + double fTemp7 = double(input24[i]); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph7 = FAUSTFLOAT(fRec9[0]); + double fTemp8 = double(input23[i]); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph8 = FAUSTFLOAT(fRec10[0]); + double fTemp9 = double(input22[i]); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph9 = FAUSTFLOAT(fRec11[0]); + double fTemp10 = double(input21[i]); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph10 = FAUSTFLOAT(fRec12[0]); + double fTemp11 = double(input20[i]); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph11 = FAUSTFLOAT(fRec13[0]); + double fTemp12 = double(input19[i]); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph12 = FAUSTFLOAT(fRec14[0]); + double fTemp13 = double(input18[i]); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph13 = FAUSTFLOAT(fRec15[0]); + double fTemp14 = double(input17[i]); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph14 = FAUSTFLOAT(fRec16[0]); + double fTemp15 = double(input16[i]); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph15 = FAUSTFLOAT(fRec17[0]); + double fTemp16 = double(input15[i]); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph16 = FAUSTFLOAT(fRec18[0]); + double fTemp17 = double(input14[i]); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph17 = FAUSTFLOAT(fRec19[0]); + double fTemp18 = double(input13[i]); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph18 = FAUSTFLOAT(fRec20[0]); + double fTemp19 = double(input12[i]); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph19 = FAUSTFLOAT(fRec21[0]); + double fTemp20 = double(input11[i]); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph20 = FAUSTFLOAT(fRec22[0]); + double fTemp21 = double(input10[i]); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph21 = FAUSTFLOAT(fRec23[0]); + double fTemp22 = double(input9[i]); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph22 = FAUSTFLOAT(fRec24[0]); + double fTemp23 = double(input8[i]); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph23 = FAUSTFLOAT(fRec25[0]); + double fTemp24 = double(input7[i]); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph24 = FAUSTFLOAT(fRec26[0]); + double fTemp25 = double(input6[i]); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph25 = FAUSTFLOAT(fRec27[0]); + double fTemp26 = double(input5[i]); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph26 = FAUSTFLOAT(fRec28[0]); + double fTemp27 = double(input4[i]); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph27 = FAUSTFLOAT(fRec29[0]); + double fTemp28 = double(input3[i]); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph28 = FAUSTFLOAT(fRec30[0]); + double fTemp29 = double(input2[i]); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph29 = FAUSTFLOAT(fRec31[0]); + double fTemp30 = double(input0[i]); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph30 = FAUSTFLOAT(fRec32[0]); + double fTemp31 = double(input1[i]); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph31 = FAUSTFLOAT(fRec33[0]); + double fTemp32 = (0.03125 * (fRec1[0] * (fTemp0 + (fTemp1 + (fTemp2 + (fTemp3 + (fTemp4 + (fTemp5 + (fTemp6 + (fTemp7 + (fTemp8 + (fTemp9 + (fTemp10 + (fTemp11 + (fTemp12 + (fTemp13 + (fTemp14 + (fTemp15 + (fTemp16 + (fTemp17 + (fTemp18 + (fTemp19 + (fTemp20 + (fTemp21 + (fTemp22 + (fTemp23 + (fTemp24 + (fTemp25 + (fTemp26 + (fTemp27 + (fTemp28 + (fTemp29 + (fTemp30 + fTemp31))))))))))))))))))))))))))))))))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph32 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fRec1[0] * ((fConst4 * ((((((((((((0.026217046093473896 * fTemp31) + (0.02879117912208189 * fTemp26)) + (0.046585106402240353 * fTemp25)) + (0.02879117912208189 * fTemp24)) + (0.017793927259118766 * fTemp19)) + (0.04242007166358315 * fTemp18)) + (0.04242007166358315 * fTemp17)) + (0.017793927259118766 * fTemp16)) + (0.026217046080314912 * fTemp12)) + (0.028791179127546258 * fTemp6)) + (0.046585106394941164 * fTemp5)) + (0.028791179127546258 * fTemp4))) + (0.03125 * ((((((((((((fConst5 * fTemp28) + (fConst6 * fTemp22)) + (fConst7 * fTemp21)) + (fConst6 * fTemp20)) + (fConst8 * fTemp14)) + (fConst9 * fTemp10)) + (fConst10 * fTemp9)) + (fConst9 * fTemp8)) + (fConst11 * fTemp3)) + (fConst12 * fTemp2)) + (fConst12 * fTemp1)) + (fConst11 * fTemp0))))); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph33 = FAUSTFLOAT(fRec34[0]); + output1[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fTemp4 - (fTemp6 + (fTemp8 - (fTemp10 + (fTemp20 - (fTemp22 - (fTemp26 - fTemp24))))))); + double fTemp35 = (fTemp13 - (fTemp15 + (fTemp30 - fTemp29))); + double fTemp36 = (fTemp7 - (fTemp11 + (fTemp27 - fTemp23))); + double fTemp37 = (fTemp1 - (fTemp2 + (fTemp18 - fTemp17))); + double fTemp38 = (fTemp0 - (fTemp3 + (fTemp19 - fTemp16))); + double fTemp39 = (fRec1[0] * ((0.031250000001308703 * fTemp34) - ((((0.019313562147752456 * fTemp35) + (0.046042825614321402 * fTemp36)) + (0.028456031166074459 * fTemp37)) + (0.050563562154587252 * fTemp38)))); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + output2[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fRec1[0] * ((fConst4 * ((((((((((((0.04658510639681137 * fTemp30) + (0.04242007166358315 * fTemp31)) + (0.04658510639681137 * fTemp29)) + (0.042420071656253222 * fTemp28)) + (0.026217046089015403 * fTemp27)) + (0.028791179121934959 * fTemp26)) + (0.017793927259118766 * fTemp25)) + (0.028791179121934959 * fTemp24)) + (0.026217046089015403 * fTemp23)) + (0.028791179128280928 * fTemp22)) + (0.017793927250752708 * fTemp21)) + (0.028791179128280928 * fTemp20))) + (0.03125 * ((((((((((((fConst13 * fTemp15) + (fConst14 * fTemp14)) + (fConst13 * fTemp13)) + (fConst15 * fTemp12)) + (fConst16 * fTemp11)) + (fConst17 * fTemp10)) + (fConst18 * fTemp9)) + (fConst17 * fTemp8)) + (fConst16 * fTemp7)) + (fConst19 * fTemp6)) + (fConst20 * fTemp5)) + (fConst19 * fTemp4))))); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph35 = FAUSTFLOAT(fRec36[0]); + output3[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (fRec1[0] * ((fConst23 * ((((((((0.089206205807902131 * fTemp31) + (0.066490380064120932 * fTemp26)) + (0.066490380019538955 * fTemp25)) + (0.066490380064120932 * fTemp24)) + (0.089206205764209553 * fTemp14)) + (0.066490380064120919 * fTemp10)) + (0.066490380107227617 * fTemp9)) + (0.066490380064120919 * fTemp8))) + (0.03125 * ((((((((fConst24 * fTemp28) + (fConst25 * fTemp22)) + (fConst26 * fTemp21)) + (fConst25 * fTemp20)) + (fConst27 * fTemp12)) + (fConst25 * fTemp6)) + (fConst28 * fTemp5)) + (fConst25 * fTemp4))))); + fRec37[0] = max((fRec37[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph36 = FAUSTFLOAT(fRec37[0]); + output4[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (fRec1[0] * ((fConst31 * ((((((((fConst32 * fTemp26) + (fConst34 * fTemp24)) + (fConst35 * fTemp19)) + (fConst36 * fTemp18)) + (fConst38 * fTemp17)) + (fConst40 * fTemp16)) + (fConst41 * fTemp6)) + (fConst42 * fTemp4))) + (0.03125 * ((((((((fConst44 * fTemp22) + (fConst46 * fTemp20)) + (fConst47 * fTemp10)) + (fConst48 * fTemp8)) + (fConst49 * fTemp3)) + (fConst50 * fTemp2)) + (fConst51 * fTemp1)) + (fConst52 * fTemp0))))); + fRec38[0] = max((fRec38[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph37 = FAUSTFLOAT(fRec38[0]); + output5[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (fTemp7 + (fTemp11 + (fTemp27 + fTemp23))); + double fTemp44 = (fTemp4 + (fTemp6 + (fTemp8 + (fTemp10 + (fTemp20 + (fTemp22 + (fTemp26 + fTemp24))))))); + double fTemp45 = (fTemp0 + (fTemp3 + (fTemp19 + fTemp16))); + double fTemp46 = (fTemp30 + fTemp29); + double fTemp47 = (fTemp13 + (fTemp15 + fTemp46)); + double fTemp48 = (fTemp5 + (fTemp9 + (fTemp12 + (fTemp14 + (fTemp21 + (fTemp25 + (fTemp31 + fTemp28))))))); + double fTemp49 = (fTemp1 + (fTemp2 + (fTemp18 + fTemp17))); + double fTemp50 = (fRec1[0] * ((((0.040906781083793552 * fTemp43) + (2.9263569544132831e-12 * fTemp44)) + (0.056531781096479002 * fTemp45)) - (((0.021593218926725055 * fTemp47) + (0.034938562148434216 * fTemp48)) + (0.0059682189255058898 * fTemp49)))); + fRec39[0] = max((fRec39[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph38 = FAUSTFLOAT(fRec39[0]); + output6[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (fRec1[0] * ((fConst31 * ((((((((fConst53 * fTemp30) + (fConst55 * fTemp29)) + (fConst56 * fTemp27)) + (fConst57 * fTemp26)) + (fConst58 * fTemp24)) + (fConst60 * fTemp23)) + (fConst61 * fTemp22)) + (fConst62 * fTemp20))) + (0.03125 * ((((((((fConst63 * fTemp15) + (fConst64 * fTemp13)) + (fConst65 * fTemp11)) + (fConst66 * fTemp10)) + (fConst67 * fTemp8)) + (fConst68 * fTemp7)) + (fConst69 * fTemp6)) + (fConst70 * fTemp4))))); + fRec40[0] = max((fRec40[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph39 = FAUSTFLOAT(fRec40[0]); + output7[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (fRec1[0] * ((fConst23 * ((((((((((((((0.087037037470924977 * fTemp30) + (0.044603102903292141 * fTemp31)) + (0.087037037470924977 * fTemp29)) + (0.044603102853410466 * fTemp28)) + (0.027566233589157149 * fTemp27)) + (0.027566233589157149 * fTemp23)) + (2.8971462571211461e-11 * fTemp22)) + (2.8971462571211461e-11 * fTemp20)) + (0.087037037470924977 * fTemp15)) + (0.044603102990677254 * fTemp14)) + (0.087037037470924977 * fTemp13)) + (0.044603102958636814 * fTemp12)) + (0.027566233589157149 * fTemp11)) + (0.027566233589157149 * fTemp7))) + (0.03125 * ((((((((((((((((((fConst71 * fTemp26) + (fConst72 * fTemp25)) + (fConst71 * fTemp24)) + (fConst73 * fTemp21)) + (fConst74 * fTemp19)) + (fConst75 * fTemp18)) + (fConst75 * fTemp17)) + (fConst74 * fTemp16)) + (fConst76 * fTemp10)) + (fConst77 * fTemp9)) + (fConst76 * fTemp8)) + (fConst78 * fTemp6)) + (fConst79 * fTemp5)) + (fConst78 * fTemp4)) + (fConst74 * fTemp3)) + (fConst75 * fTemp2)) + (fConst75 * fTemp1)) + (fConst74 * fTemp0))))); + fRec41[0] = max((fRec41[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph40 = FAUSTFLOAT(fRec41[0]); + output8[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (fRec1[0] * ((0.03125 * ((((((((((((fConst83 * fTemp28) + (fConst84 * fTemp25)) + (fConst85 * fTemp22)) + (fConst85 * fTemp20)) + (fConst86 * fTemp19)) + (fConst87 * fTemp18)) + (fConst87 * fTemp17)) + (fConst86 * fTemp16)) + (fConst88 * fTemp14)) + (fConst89 * fTemp10)) + (fConst89 * fTemp8)) + (fConst90 * fTemp5))) + (fConst82 * ((((((((((((0.19866513994759175 * fTemp31) + (0.076776477654886113 * fTemp26)) + (0.076776477654886113 * fTemp24)) + (0.09143948039011067 * fTemp21)) + (0.19866513996426247 * fTemp12)) + (0.09143947998092801 * fTemp9)) + (0.076776477611171123 * fTemp6)) + (0.076776477611171123 * fTemp4)) + (0.0090622338777363986 * fTemp3)) + (0.12278180886679166 * fTemp2)) + (0.12278180886679166 * fTemp1)) + (0.0090622338777363986 * fTemp0))))); + fRec42[0] = max((fRec42[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph41 = FAUSTFLOAT(fRec42[0]); + output9[i] = FAUSTFLOAT(fTemp53); + double fTemp54 = (fRec1[0] * ((fConst92 * ((((fConst93 * fTemp26) + (fConst95 * fTemp24)) + (fConst96 * fTemp10)) + (fConst97 * fTemp8))) + (0.03125 * ((((fConst99 * fTemp22) + (fConst101 * fTemp20)) + (fConst99 * fTemp6)) + (fConst101 * fTemp4))))); + fRec43[0] = max((fRec43[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph42 = FAUSTFLOAT(fRec43[0]); + output10[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (fRec1[0] * ((fConst102 * ((((((((((((fConst103 * fTemp26) + (fConst105 * fTemp31)) + (fConst106 * fTemp25)) + (fConst108 * fTemp24)) + (fConst109 * fTemp19)) + (fConst110 * fTemp18)) + (fConst112 * fTemp17)) + (fConst114 * fTemp16)) + (fConst115 * fTemp12)) + (fConst116 * fTemp6)) + (fConst117 * fTemp5)) + (fConst118 * fTemp4))) + (0.03125 * ((((((((((((fConst120 * fTemp28) + (fConst122 * fTemp22)) + (fConst123 * fTemp21)) + (fConst125 * fTemp20)) + (fConst126 * fTemp14)) + (fConst127 * fTemp10)) + (fConst128 * fTemp9)) + (fConst129 * fTemp8)) + (fConst130 * fTemp3)) + (fConst131 * fTemp2)) + (fConst132 * fTemp1)) + (fConst133 * fTemp0))))); + fRec44[0] = max((fRec44[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph43 = FAUSTFLOAT(fRec44[0]); + output11[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (fRec1[0] * (((0.034862310657899916 * fTemp35) + (0.035165788928874113 * fTemp37)) - (((0.021733652816759153 * fTemp36) + (0.031823442324083143 * fTemp34)) + (0.052652155785676891 * fTemp38)))); + fRec45[0] = max((fRec45[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph44 = FAUSTFLOAT(fRec45[0]); + output12[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (fRec1[0] * ((fConst102 * ((((((((((((fConst134 * fTemp31) + (fConst136 * fTemp30)) + (fConst138 * fTemp29)) + (fConst139 * fTemp28)) + (fConst140 * fTemp27)) + (fConst141 * fTemp26)) + (fConst142 * fTemp25)) + (fConst143 * fTemp24)) + (fConst145 * fTemp23)) + (fConst146 * fTemp22)) + (fConst147 * fTemp21)) + (fConst148 * fTemp20))) + (0.03125 * ((((((((((((fConst149 * fTemp15) + (fConst150 * fTemp14)) + (fConst151 * fTemp13)) + (fConst152 * fTemp12)) + (fConst153 * fTemp11)) + (fConst154 * fTemp10)) + (fConst155 * fTemp9)) + (fConst156 * fTemp8)) + (fConst157 * fTemp7)) + (fConst158 * fTemp6)) + (fConst159 * fTemp5)) + (fConst160 * fTemp4))))); + fRec46[0] = max((fRec46[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph45 = FAUSTFLOAT(fRec46[0]); + output13[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (fRec1[0] * ((fConst92 * ((((((((((fConst161 * fTemp30) + (fConst163 * fTemp29)) + (fConst164 * fTemp27)) + (fConst166 * fTemp23)) + (fConst167 * fTemp22)) + (fConst168 * fTemp20)) + (fConst161 * fTemp15)) + (fConst163 * fTemp13)) + (fConst164 * fTemp11)) + (fConst166 * fTemp7))) + (0.03125 * ((((((((((((((fConst169 * fTemp26) + (fConst170 * fTemp24)) + (fConst171 * fTemp19)) + (fConst172 * fTemp18)) + (fConst174 * fTemp17)) + (fConst176 * fTemp16)) + (fConst177 * fTemp10)) + (fConst178 * fTemp8)) + (fConst179 * fTemp6)) + (fConst180 * fTemp4)) + (fConst171 * fTemp3)) + (fConst172 * fTemp2)) + (fConst174 * fTemp1)) + (fConst176 * fTemp0))))); + fRec47[0] = max((fRec47[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph46 = FAUSTFLOAT(fRec47[0]); + output14[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = (fRec1[0] * ((0.03125 * ((((((((((((fConst181 * fTemp31) + (fConst182 * fTemp28)) + (fConst183 * fTemp26)) + (fConst184 * fTemp25)) + (fConst183 * fTemp24)) + (fConst185 * fTemp22)) + (fConst186 * fTemp21)) + (fConst185 * fTemp20)) + (fConst187 * fTemp15)) + (fConst187 * fTemp13)) + (fConst188 * fTemp11)) + (fConst188 * fTemp7))) + (fConst82 * (((((((((((0.028984853278736192 * fTemp27) + (0.16261518922351803 * fTemp46)) + (0.028984853278736192 * fTemp23)) + (0.017913624203916748 * fTemp14)) + (0.017913624310949439 * fTemp12)) + (0.076776477658412487 * fTemp10)) + (0.17727819176027068 * fTemp9)) + (0.076776477658412487 * fTemp8)) + (0.07677647769977651 * fTemp6)) + (0.17727819171100689 * fTemp5)) + (0.07677647769977651 * fTemp4))))); + fRec48[0] = max((fRec48[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph47 = FAUSTFLOAT(fRec48[0]); + output15[i] = FAUSTFLOAT(fTemp59); + double fTemp60 = (fRec1[0] * ((0.03125 * ((((((((((fConst190 * fTemp28) + (fConst191 * fTemp26)) + (fConst192 * fTemp25)) + (fConst191 * fTemp24)) + (fConst193 * fTemp22)) + (fConst193 * fTemp20)) + (fConst194 * fTemp12)) + (fConst195 * fTemp10)) + (fConst196 * fTemp9)) + (fConst195 * fTemp8))) + (fConst189 * ((((((0.31915382431831724 * fTemp31) + (0.39647202572339707 * fTemp21)) + (0.31915382478727489 * fTemp14)) + (1.3641692798607456e-10 * fTemp6)) + (0.39647202582797197 * fTemp5)) + (1.3641692798607456e-10 * fTemp4))))); + fRec49[0] = max((fRec49[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph48 = FAUSTFLOAT(fRec49[0]); + output16[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = (fRec1[0] * ((0.03125 * ((((((((fConst200 * fTemp22) + (fConst202 * fTemp20)) + (fConst203 * fTemp19)) + (fConst204 * fTemp18)) + (fConst206 * fTemp17)) + (fConst208 * fTemp16)) + (fConst209 * fTemp10)) + (fConst210 * fTemp8))) + (fConst197 * ((((((((fConst211 * fTemp26) + (fConst212 * fTemp24)) + (fConst213 * fTemp6)) + (fConst214 * fTemp4)) + (fConst215 * fTemp3)) + (fConst216 * fTemp2)) + (fConst217 * fTemp1)) + (fConst218 * fTemp0))))); + fRec50[0] = max((fRec50[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph49 = FAUSTFLOAT(fRec50[0]); + output17[i] = FAUSTFLOAT(fTemp61); + double fTemp62 = (fRec1[0] * ((fConst219 * ((((((((fConst220 * fTemp26) + (fConst222 * fTemp31)) + (fConst223 * fTemp25)) + (fConst225 * fTemp24)) + (fConst226 * fTemp14)) + (fConst227 * fTemp10)) + (fConst228 * fTemp9)) + (fConst229 * fTemp8))) + (0.03125 * ((((((((fConst231 * fTemp28) + (fConst233 * fTemp22)) + (fConst234 * fTemp21)) + (fConst236 * fTemp20)) + (fConst237 * fTemp12)) + (fConst233 * fTemp6)) + (fConst238 * fTemp5)) + (fConst236 * fTemp4))))); + fRec51[0] = max((fRec51[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph50 = FAUSTFLOAT(fRec51[0]); + output18[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = (fRec1[0] * ((fConst239 * (((((((fConst240 * fTemp19) + (0.010416666666693247 * ((fConst241 * fTemp26) + (fConst242 * fTemp24)))) + (fConst244 * fTemp18)) + (fConst246 * fTemp17)) + (fConst248 * fTemp16)) + (fConst249 * fTemp6)) + (fConst250 * fTemp4))) + (0.03125 * ((((((((fConst252 * fTemp22) + (fConst254 * fTemp20)) + (fConst255 * fTemp10)) + (fConst256 * fTemp8)) + (fConst258 * fTemp3)) + (fConst259 * fTemp2)) + (fConst260 * fTemp1)) + (fConst261 * fTemp0))))); + fRec52[0] = max((fRec52[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph51 = FAUSTFLOAT(fRec52[0]); + output19[i] = FAUSTFLOAT(fTemp63); + double fTemp64 = (fRec1[0] * (((0.03515625 * fTemp48) + (0.040716809753480042 * fTemp45)) - (((0.036458333335514514 * fTemp44) + ((0.0029563930072167557 * fTemp47) + (0.0044761641722250133 * fTemp43))) + (0.030680085805992734 * fTemp49)))); + fRec53[0] = max((fRec53[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph52 = FAUSTFLOAT(fRec53[0]); + output20[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fRec1[0] * ((fConst239 * (((((((fConst262 * fTemp27) + (0.01473139127471974 * ((fConst263 * fTemp30) + (fConst264 * fTemp29)))) + (fConst265 * fTemp26)) + (fConst266 * fTemp24)) + (fConst268 * fTemp23)) + (fConst269 * fTemp22)) + (fConst270 * fTemp20))) + (0.03125 * ((((((((fConst271 * fTemp15) + (fConst272 * fTemp13)) + (fConst273 * fTemp11)) + (fConst274 * fTemp10)) + (fConst275 * fTemp8)) + (fConst276 * fTemp7)) + (fConst277 * fTemp6)) + (fConst278 * fTemp4))))); + fRec54[0] = max((fRec54[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph53 = FAUSTFLOAT(fRec54[0]); + output21[i] = FAUSTFLOAT(fTemp65); + double fTemp66 = (fRec1[0] * ((fConst219 * ((((((((((((((fConst279 * fTemp31) + (fConst280 * fTemp30)) + (fConst281 * fTemp29)) + (fConst282 * fTemp28)) + (fConst283 * fTemp27)) + (fConst284 * fTemp23)) + (fConst285 * fTemp22)) + (fConst286 * fTemp20)) + (fConst280 * fTemp15)) + (fConst287 * fTemp14)) + (fConst281 * fTemp13)) + (fConst288 * fTemp12)) + (fConst283 * fTemp11)) + (fConst284 * fTemp7))) + (0.03125 * ((((((((((((((((((fConst289 * fTemp26) + (fConst290 * fTemp25)) + (fConst291 * fTemp24)) + (fConst292 * fTemp21)) + (fConst293 * fTemp19)) + (fConst294 * fTemp18)) + (fConst295 * fTemp17)) + (fConst296 * fTemp16)) + (fConst297 * fTemp10)) + (fConst298 * fTemp9)) + (fConst299 * fTemp8)) + (fConst300 * fTemp6)) + (fConst301 * fTemp5)) + (fConst302 * fTemp4)) + (fConst293 * fTemp3)) + (fConst294 * fTemp2)) + (fConst295 * fTemp1)) + (fConst296 * fTemp0))))); + fRec55[0] = max((fRec55[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp66)))))); + fVbargraph54 = FAUSTFLOAT(fRec55[0]); + output22[i] = FAUSTFLOAT(fTemp66); + double fTemp67 = (fRec1[0] * ((0.03125 * ((((((((fConst303 * fTemp26) + (fConst304 * fTemp24)) + (fConst305 * fTemp22)) + (fConst306 * fTemp20)) + (fConst307 * fTemp15)) + (fConst309 * fTemp13)) + (fConst310 * fTemp11)) + (fConst312 * fTemp7))) + (fConst197 * ((((((((fConst313 * fTemp30) + (fConst314 * fTemp29)) + (fConst315 * fTemp27)) + (fConst316 * fTemp23)) + (fConst317 * fTemp10)) + (fConst318 * fTemp8)) + (fConst319 * fTemp6)) + (fConst320 * fTemp4))))); + fRec56[0] = max((fRec56[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph55 = FAUSTFLOAT(fRec56[0]); + output23[i] = FAUSTFLOAT(fTemp67); + double fTemp68 = (fRec1[0] * ((0.03125 * ((((((((((((fConst321 * fTemp31) + (fConst322 * fTemp28)) + (fConst323 * fTemp26)) + (fConst323 * fTemp24)) + (fConst324 * fTemp22)) + (fConst324 * fTemp20)) + (fConst325 * fTemp14)) + (fConst326 * fTemp12)) + (fConst323 * fTemp10)) + (fConst323 * fTemp8)) + (fConst323 * fTemp6)) + (fConst323 * fTemp4))) + (fConst189 * (((((((((((((((((((0.030476478292642641 * fTemp27) + (0.30382122984176912 * fTemp46)) + (0.044326920549846299 * fTemp25)) + (0.030476478292642641 * fTemp23)) + (0.0443269208346505 * fTemp21)) + (0.0064672104551386778 * fTemp19)) + (0.20888888992654256 * fTemp18)) + (0.20888888992654256 * fTemp17)) + (0.0064672104551386778 * fTemp16)) + (0.30382122984176912 * fTemp15)) + (0.30382122984176912 * fTemp13)) + (0.030476478292642641 * fTemp11)) + (0.044326919614500547 * fTemp9)) + (0.030476478292642641 * fTemp7)) + (0.044326919899304089 * fTemp5)) + (0.0064672104551386778 * fTemp3)) + (0.20888888992654256 * fTemp2)) + (0.20888888992654256 * fTemp1)) + (0.0064672104551386778 * fTemp0))))); + fRec57[0] = max((fRec57[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph56 = FAUSTFLOAT(fRec57[0]); + output24[i] = FAUSTFLOAT(fTemp68); + fRec1[1] = fRec1[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec0[1] = fRec0[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncLebedev501.cpp b/source/HOAUGens/HOAEncLebedev501.cpp new file mode 100644 index 0000000000..167578b2fc --- /dev/null +++ b/source/HOAUGens/HOAEncLebedev501.cpp @@ -0,0 +1,1527 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncLebedev501" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fConst14; + double fConst15; + double fConst16; + double fRec4[2]; + FAUSTFLOAT fVbargraph3; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncLebedev501"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 50; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = (double(tgamma(1.5)) * sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0)))))); + fConst2 = (0.012698412698412698 * (0.0 - (1.5957691216057308 * fConst1))); + fConst3 = (0.0 - (1.1283791670955128 * fConst1)); + fConst4 = (0.0 - (1.1283791670955126 * fConst1)); + fConst5 = (0.0 - (1.128379167095513 * fConst1)); + fConst6 = (0.0 - (0.92131773192356115 * fConst1)); + fConst7 = (0.0 - (0.92131773192356148 * fConst1)); + fConst8 = (0.0 - (0.48114249349102017 * fConst1)); + fConst9 = (0.0 - (0.48114249349102034 * fConst1)); + fConst10 = (0.0 - (0.48114249349102112 * fConst1)); + fConst11 = (0.0 - (1.4434274804730622 * fConst1)); + fConst12 = (0.0 - (1.4434274804730625 * fConst1)); + fConst13 = (0.0 - (0.48114249349102228 * fConst1)); + fConst14 = (0.0 - (0.48114249349102062 * fConst1)); + fConst15 = (0.0 - (1.443427480473062 * fConst1)); + fConst16 = (0.0 - (0.48114249349102095 * fConst1)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c9f6e0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cb8a40", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cc2800", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2cd4590", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input0[i]); + double fTemp1 = double(input1[i]); + double fTemp2 = double(input2[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = double(input4[i]); + double fTemp5 = double(input5[i]); + double fTemp6 = double(input6[i]); + double fTemp7 = double(input7[i]); + double fTemp8 = double(input8[i]); + double fTemp9 = double(input9[i]); + double fTemp10 = (((fTemp6 + fTemp7) + fTemp8) + fTemp9); + double fTemp11 = double(input10[i]); + double fTemp12 = double(input11[i]); + double fTemp13 = double(input12[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input14[i]); + double fTemp16 = double(input15[i]); + double fTemp17 = double(input16[i]); + double fTemp18 = double(input17[i]); + double fTemp19 = double(input18[i]); + double fTemp20 = double(input19[i]); + double fTemp21 = double(input20[i]); + double fTemp22 = double(input21[i]); + double fTemp23 = (((fTemp19 + fTemp20) + fTemp21) + fTemp22); + double fTemp24 = double(input22[i]); + double fTemp25 = double(input23[i]); + double fTemp26 = double(input24[i]); + double fTemp27 = double(input25[i]); + double fTemp28 = double(input26[i]); + double fTemp29 = double(input27[i]); + double fTemp30 = double(input28[i]); + double fTemp31 = double(input29[i]); + double fTemp32 = (((fTemp28 + fTemp29) + fTemp30) + fTemp31); + double fTemp33 = double(input30[i]); + double fTemp34 = double(input31[i]); + double fTemp35 = double(input32[i]); + double fTemp36 = double(input33[i]); + double fTemp37 = double(input34[i]); + double fTemp38 = double(input35[i]); + double fTemp39 = double(input36[i]); + double fTemp40 = double(input37[i]); + double fTemp41 = double(input38[i]); + double fTemp42 = double(input39[i]); + double fTemp43 = double(input40[i]); + double fTemp44 = double(input41[i]); + double fTemp45 = double(input42[i]); + double fTemp46 = double(input43[i]); + double fTemp47 = double(input44[i]); + double fTemp48 = double(input45[i]); + double fTemp49 = double(input46[i]); + double fTemp50 = double(input47[i]); + double fTemp51 = double(input48[i]); + double fTemp52 = double(input49[i]); + double fTemp53 = (fRec1[0] * ((((0.012698412698412698 * (((((fTemp0 + fTemp1) + fTemp2) + fTemp3) + fTemp4) + fTemp5)) + (0.022574955908289243 * ((((((((fTemp10 + fTemp11) + fTemp12) + fTemp13) + fTemp14) + fTemp15) + fTemp16) + fTemp17) + fTemp18))) + (0.021093750000000001 * ((((fTemp23 + fTemp24) + fTemp25) + fTemp26) + fTemp27))) + (0.02017333553791887 * ((((((((((((((((((((fTemp32 + fTemp33) + fTemp34) + fTemp35) + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42) + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50) + fTemp51) + fTemp52)))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp53); + double fTemp54 = (fRec1[0] * (((((fConst2 * fTemp4) + (0.022574955908289243 * ((((fConst3 * fTemp9) + (fConst4 * fTemp13)) + (fConst5 * fTemp14)) + (fConst3 * fTemp18)))) + (0.021093750000000001 * ((((fConst6 * fTemp21) + (fConst7 * fTemp22)) + (fConst6 * fTemp26)) + (fConst7 * fTemp27)))) + (fConst1 * (((((((((((((((((((((0.02026373487753309 * fTemp2) + (0.025473109945013343 * fTemp7)) + (0.025473109945013336 * fTemp11)) + (0.025473109945013343 * fTemp12)) + (0.025473109945013343 * fTemp16)) + (0.019434045907762619 * fTemp19)) + (0.019434045907762623 * fTemp20)) + (0.019434045907762619 * fTemp24)) + (0.019434045907762623 * fTemp25)) + (0.0097062489627452973 * fTemp28)) + (0.0097062489627452973 * fTemp29)) + (0.0097062489627453199 * fTemp33)) + (0.029118746888235923 * fTemp34)) + (0.029118746888235927 * fTemp35)) + (0.0097062489627453216 * fTemp36)) + (0.0097062489627453199 * fTemp41)) + (0.029118746888235923 * fTemp42)) + (0.029118746888235927 * fTemp43)) + (0.0097062489627453216 * fTemp44)) + (0.0097062489627452973 * fTemp49)) + (0.0097062489627452973 * fTemp50)))) + (0.02017333553791887 * ((((((((((((fConst8 * fTemp30) + (fConst9 * fTemp31)) + (fConst10 * fTemp37)) + (fConst11 * fTemp38)) + (fConst12 * fTemp39)) + (fConst13 * fTemp40)) + (fConst10 * fTemp45)) + (fConst11 * fTemp46)) + (fConst12 * fTemp47)) + (fConst13 * fTemp48)) + (fConst8 * fTemp51)) + (fConst9 * fTemp52))))); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (fRec1[0] * (((((0.021994295969128601 * (fTemp0 - fTemp5)) + (0.027648561470568499 * ((((fTemp10 - fTemp15) - fTemp16) - fTemp17) - fTemp18))) + (0.021093750000000001 * ((((fTemp23 - fTemp24) - fTemp25) - fTemp26) - fTemp27))) + (0.010535180889746075 * (((((((((((((((fTemp33 + fTemp34) + fTemp35) + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) - fTemp41) - fTemp42) - fTemp43) - fTemp44) - fTemp45) - fTemp46) - fTemp47) - fTemp48))) + (0.031605542669238249 * ((((fTemp32 - fTemp49) - fTemp50) - fTemp51) - fTemp52)))); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + output2[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (fRec1[0] * ((fConst1 * (((((((((((((((((((((0.02026373487753309 * fTemp1) + (0.025473109945013343 * fTemp6)) + (0.025473109945013343 * fTemp11)) + (0.025473109945013332 * fTemp14)) + (0.025473109945013343 * fTemp15)) + (0.019434045907762623 * fTemp19)) + (0.019434045907762616 * fTemp22)) + (0.019434045907762623 * fTemp24)) + (0.019434045907762616 * fTemp27)) + (0.0097062489627452956 * fTemp28)) + (0.0097062489627452939 * fTemp31)) + (0.029118746888235916 * fTemp33)) + (0.0097062489627453077 * fTemp34)) + (0.0097062489627453008 * fTemp39)) + (0.029118746888235913 * fTemp40)) + (0.029118746888235916 * fTemp41)) + (0.0097062489627453077 * fTemp42)) + (0.0097062489627453008 * fTemp47)) + (0.029118746888235913 * fTemp48)) + (0.0097062489627452956 * fTemp49)) + (0.0097062489627452939 * fTemp52))) + ((((fConst2 * fTemp3) + (0.022574955908289243 * ((((fConst3 * fTemp8) + (fConst4 * fTemp12)) + (fConst5 * fTemp13)) + (fConst3 * fTemp17)))) + (0.021093750000000001 * ((((fConst6 * fTemp20) + (fConst7 * fTemp21)) + (fConst6 * fTemp25)) + (fConst7 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst8 * fTemp29) + (fConst9 * fTemp30)) + (fConst14 * fTemp35)) + (fConst15 * fTemp36)) + (fConst11 * fTemp37)) + (fConst16 * fTemp38)) + (fConst14 * fTemp43)) + (fConst15 * fTemp44)) + (fConst11 * fTemp45)) + (fConst16 * fTemp46)) + (fConst8 * fTemp50)) + (fConst9 * fTemp51)))))); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph3 = FAUSTFLOAT(fRec4[0]); + output3[i] = FAUSTFLOAT(fTemp56); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncLebedev502.cpp b/source/HOAUGens/HOAEncLebedev502.cpp new file mode 100644 index 0000000000..7c3159c510 --- /dev/null +++ b/source/HOAUGens/HOAEncLebedev502.cpp @@ -0,0 +1,1803 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncLebedev502" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fConst16; + double fConst17; + double fConst18; + double fRec4[2]; + FAUSTFLOAT fVbargraph3; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fConst28; + double fConst29; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fRec6[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fRec8[2]; + FAUSTFLOAT fVbargraph7; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncLebedev502"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 50; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.5)); + fConst2 = double(tgamma(1.0)); + fConst3 = (fConst1 * sqrt((3.0 * (fConst2 / double(tgamma(3.0)))))); + fConst4 = (0.012698412698412698 * (0.0 - (1.5957691216057308 * fConst3))); + fConst5 = (0.0 - (1.1283791670955128 * fConst3)); + fConst6 = (0.0 - (1.1283791670955126 * fConst3)); + fConst7 = (0.0 - (1.128379167095513 * fConst3)); + fConst8 = (0.0 - (0.92131773192356115 * fConst3)); + fConst9 = (0.0 - (0.92131773192356148 * fConst3)); + fConst10 = (0.0 - (0.48114249349102017 * fConst3)); + fConst11 = (0.0 - (0.48114249349102034 * fConst3)); + fConst12 = (0.0 - (0.48114249349102112 * fConst3)); + fConst13 = (0.0 - (1.4434274804730622 * fConst3)); + fConst14 = (0.0 - (1.4434274804730625 * fConst3)); + fConst15 = (0.0 - (0.48114249349102228 * fConst3)); + fConst16 = (0.0 - (0.48114249349102062 * fConst3)); + fConst17 = (0.0 - (1.443427480473062 * fConst3)); + fConst18 = (0.0 - (0.48114249349102095 * fConst3)); + fConst19 = (double(tgamma(2.5)) * sqrt((5.0 * (fConst2 / double(tgamma(5.0)))))); + fConst20 = (0.0 - (0.58027968058390089 * fConst19)); + fConst21 = (0.0 - (1.7408390417517061 * fConst19)); + fConst22 = (0.0 - (1.7408390417517088 * fConst19)); + fConst23 = (0.0 - (1.7408390417517057 * fConst19)); + fConst24 = (0.0 - (1.7408390417517114 * fConst19)); + fConst25 = (0.0 - (3.1915382432114616 * fConst19)); + fConst26 = (0.022574955908289243 * fConst25); + fConst27 = (0.021093750000000001 * (0.0 - (2.1276921621409737 * fConst19))); + fConst28 = sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))); + fConst29 = (fConst1 * fConst28); + fConst30 = (0.0 - (2.3936536824085959 * fConst29)); + fConst31 = (0.0 - (1.6925687506432687 * fConst1)); + fConst32 = (0.0 - (1.4142135623730951 * (fConst28 * fConst31))); + fConst33 = (0.0 - (1.5957691216057308 * fConst29)); + fConst34 = (0.0 - (1.5957691216057313 * fConst29)); + fConst35 = (0.0 - (1.5957691216057308 * fConst1)); + fConst36 = (fConst28 * fConst35); + fConst37 = (0.0 - fConst36); + fConst38 = (0.0 - (1.0000000000000002 * fConst36)); + fConst39 = (0.054036626340088233 * fConst1); + fConst40 = (0.031925808815477283 * fConst31); + fConst41 = (0.033660754908870889 * fConst1); + fConst42 = (0.021093750000000001 * fConst35); + fConst43 = (0.021093750000000005 * fConst35); + fConst44 = (0.026338897580074728 * fConst1); + fConst45 = (0.0087796325266915921 * fConst1); + fConst46 = (0.026338897580074742 * fConst1); + fConst47 = (0.026338897580074745 * fConst1); + fConst48 = (0.0087796325266915939 * fConst1); + fConst49 = (0.0 - (0.97315860881060223 * fConst1)); + fConst50 = (0.0090217899191397874 * fConst49); + fConst51 = (0.027065369757419327 * fConst49); + fConst52 = (0.027065369757419331 * fConst49); + fConst53 = (0.0090217899191397891 * fConst49); + fConst54 = (0.0 - (1.3056292813137786 * fConst1)); + fConst55 = (0.020173335537918873 * fConst54); + fConst56 = (0.0 - (1.3056292813137786 * fConst29)); + fConst57 = (0.0 - (1.3056292813137791 * fConst29)); + fConst58 = (0.0 - (0.43520976043792686 * fConst29)); + fConst59 = (0.0 - (1.3056292813137795 * fConst29)); + fConst60 = (0.0 - (1.3056292813137798 * fConst29)); + fConst61 = (0.0 - (0.43520976043792792 * fConst29)); + fConst62 = (fConst28 * fConst49); + fConst63 = (0.0 - (0.44721359549995832 * fConst62)); + fConst64 = (0.0 - (1.3416407864998738 * fConst62)); + fConst65 = (0.0 - (1.3416407864998741 * fConst62)); + fConst66 = (0.0 - (0.44721359549995937 * fConst62)); + fConst67 = (fConst28 * fConst54); + fConst68 = (0.0 - fConst67); + fConst69 = (0.0 - (1.0000000000000002 * fConst67)); + fConst70 = (0.033660754908870882 * fConst1); + fConst71 = (0.021093749999999998 * fConst35); + fConst72 = (0.026338897580074724 * fConst1); + fConst73 = (0.026338897580074721 * fConst1); + fConst74 = (0.026338897580074738 * fConst1); + fConst75 = (0.0087796325266915817 * fConst1); + fConst76 = (0.0087796325266915748 * fConst1); + fConst77 = (0.026338897580074731 * fConst1); + fConst78 = (0.027065369757419324 * fConst49); + fConst79 = (0.009021789919139777 * fConst49); + fConst80 = (0.00902178991913977 * fConst49); + fConst81 = (0.027065369757419321 * fConst49); + fConst82 = (0.02017333553791887 * fConst54); + fConst83 = (0.020173335537918866 * fConst54); + fConst84 = (0.0 - (0.43520976043792636 * fConst29)); + fConst85 = (0.0 - (1.3056292813137793 * fConst29)); + fConst86 = (0.0 - (0.4352097604379267 * fConst29)); + fConst87 = (0.0 - (0.44721359549995782 * fConst62)); + fConst88 = (0.0 - (1.3416407864998736 * fConst62)); + fConst89 = (0.0 - (0.44721359549995815 * fConst62)); + fConst90 = (0.0 - (1.2884797242127563e-16 * fConst19)); + fConst91 = (0.0 - (2.5769594484255127e-16 * fConst19)); + fConst92 = (0.0 - (2.3211187223356089 * fConst19)); + fConst93 = (0.0 - (2.3211187223356093 * fConst19)); + fConst94 = (0.0 - (2.3211187223356085 * fConst19)); + fConst95 = (0.0 - (2.3211187223356098 * fConst19)); + fConst96 = (0.012698412698412698 * fConst25); + fConst97 = (0.0 - (1.595769121605731 * fConst19)); + fConst98 = (0.0 - (7.0866384831701748e-16 * fConst19)); + fConst99 = (0.0 - (1.417327696634035e-15 * fConst19)); + fConst100 = (0.0 - (4.7244256554467816e-16 * fConst19)); + fConst101 = (0.0 - (9.4488513108935631e-16 * fConst19)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bbcaa0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bd6400", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2be03d0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bf2160", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c06520", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c28d00", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c32f30", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c49e40", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c61b90", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input0[i]); + double fTemp1 = double(input1[i]); + double fTemp2 = double(input2[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = double(input4[i]); + double fTemp5 = double(input5[i]); + double fTemp6 = double(input6[i]); + double fTemp7 = double(input7[i]); + double fTemp8 = double(input8[i]); + double fTemp9 = double(input9[i]); + double fTemp10 = (((fTemp6 + fTemp7) + fTemp8) + fTemp9); + double fTemp11 = double(input10[i]); + double fTemp12 = double(input11[i]); + double fTemp13 = double(input12[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input14[i]); + double fTemp16 = double(input15[i]); + double fTemp17 = double(input16[i]); + double fTemp18 = double(input17[i]); + double fTemp19 = double(input18[i]); + double fTemp20 = double(input19[i]); + double fTemp21 = double(input20[i]); + double fTemp22 = double(input21[i]); + double fTemp23 = (((fTemp19 + fTemp20) + fTemp21) + fTemp22); + double fTemp24 = double(input22[i]); + double fTemp25 = double(input23[i]); + double fTemp26 = double(input24[i]); + double fTemp27 = double(input25[i]); + double fTemp28 = ((((fTemp23 + fTemp24) + fTemp25) + fTemp26) + fTemp27); + double fTemp29 = double(input26[i]); + double fTemp30 = double(input27[i]); + double fTemp31 = (fTemp29 + fTemp30); + double fTemp32 = double(input28[i]); + double fTemp33 = double(input29[i]); + double fTemp34 = ((fTemp31 + fTemp32) + fTemp33); + double fTemp35 = double(input30[i]); + double fTemp36 = double(input31[i]); + double fTemp37 = double(input32[i]); + double fTemp38 = double(input33[i]); + double fTemp39 = double(input34[i]); + double fTemp40 = double(input35[i]); + double fTemp41 = double(input36[i]); + double fTemp42 = double(input37[i]); + double fTemp43 = double(input38[i]); + double fTemp44 = double(input39[i]); + double fTemp45 = double(input40[i]); + double fTemp46 = double(input41[i]); + double fTemp47 = double(input42[i]); + double fTemp48 = double(input43[i]); + double fTemp49 = double(input44[i]); + double fTemp50 = double(input45[i]); + double fTemp51 = double(input46[i]); + double fTemp52 = double(input47[i]); + double fTemp53 = double(input48[i]); + double fTemp54 = double(input49[i]); + double fTemp55 = (fRec1[0] * ((((0.012698412698412698 * (((((fTemp0 + fTemp1) + fTemp2) + fTemp3) + fTemp4) + fTemp5)) + (0.022574955908289243 * ((((((((fTemp10 + fTemp11) + fTemp12) + fTemp13) + fTemp14) + fTemp15) + fTemp16) + fTemp17) + fTemp18))) + (0.021093750000000001 * fTemp28)) + (0.02017333553791887 * ((((((((((((((((((((fTemp34 + fTemp35) + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42) + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50) + fTemp51) + fTemp52) + fTemp53) + fTemp54)))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (fRec1[0] * (((((fConst4 * fTemp4) + (0.022574955908289243 * ((((fConst5 * fTemp9) + (fConst6 * fTemp13)) + (fConst7 * fTemp14)) + (fConst5 * fTemp18)))) + (0.021093750000000001 * ((((fConst8 * fTemp21) + (fConst9 * fTemp22)) + (fConst8 * fTemp26)) + (fConst9 * fTemp27)))) + (fConst3 * (((((((((((((((((((((0.02026373487753309 * fTemp2) + (0.025473109945013343 * fTemp7)) + (0.025473109945013336 * fTemp11)) + (0.025473109945013343 * fTemp12)) + (0.025473109945013343 * fTemp16)) + (0.019434045907762619 * fTemp19)) + (0.019434045907762623 * fTemp20)) + (0.019434045907762619 * fTemp24)) + (0.019434045907762623 * fTemp25)) + (0.0097062489627452973 * fTemp29)) + (0.0097062489627452973 * fTemp30)) + (0.0097062489627453199 * fTemp35)) + (0.029118746888235923 * fTemp36)) + (0.029118746888235927 * fTemp37)) + (0.0097062489627453216 * fTemp38)) + (0.0097062489627453199 * fTemp43)) + (0.029118746888235923 * fTemp44)) + (0.029118746888235927 * fTemp45)) + (0.0097062489627453216 * fTemp46)) + (0.0097062489627452973 * fTemp51)) + (0.0097062489627452973 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst10 * fTemp32) + (fConst11 * fTemp33)) + (fConst12 * fTemp39)) + (fConst13 * fTemp40)) + (fConst14 * fTemp41)) + (fConst15 * fTemp42)) + (fConst12 * fTemp47)) + (fConst13 * fTemp48)) + (fConst14 * fTemp49)) + (fConst15 * fTemp50)) + (fConst10 * fTemp53)) + (fConst11 * fTemp54))))); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (((((((fTemp35 + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42); + double fTemp58 = (fRec1[0] * (((((0.021994295969128601 * (fTemp0 - fTemp5)) + (0.027648561470568499 * ((((fTemp10 - fTemp15) - fTemp16) - fTemp17) - fTemp18))) + (0.021093750000000001 * ((((fTemp23 - fTemp24) - fTemp25) - fTemp26) - fTemp27))) + (0.010535180889746075 * ((((((((fTemp57 - fTemp43) - fTemp44) - fTemp45) - fTemp46) - fTemp47) - fTemp48) - fTemp49) - fTemp50))) + (0.031605542669238249 * ((((fTemp34 - fTemp51) - fTemp52) - fTemp53) - fTemp54)))); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + output2[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = (fRec1[0] * ((fConst3 * (((((((((((((((((((((0.02026373487753309 * fTemp1) + (0.025473109945013343 * fTemp6)) + (0.025473109945013343 * fTemp11)) + (0.025473109945013332 * fTemp14)) + (0.025473109945013343 * fTemp15)) + (0.019434045907762623 * fTemp19)) + (0.019434045907762616 * fTemp22)) + (0.019434045907762623 * fTemp24)) + (0.019434045907762616 * fTemp27)) + (0.0097062489627452956 * fTemp29)) + (0.0097062489627452939 * fTemp33)) + (0.029118746888235916 * fTemp35)) + (0.0097062489627453077 * fTemp36)) + (0.0097062489627453008 * fTemp41)) + (0.029118746888235913 * fTemp42)) + (0.029118746888235916 * fTemp43)) + (0.0097062489627453077 * fTemp44)) + (0.0097062489627453008 * fTemp49)) + (0.029118746888235913 * fTemp50)) + (0.0097062489627452956 * fTemp51)) + (0.0097062489627452939 * fTemp54))) + ((((fConst4 * fTemp3) + (0.022574955908289243 * ((((fConst5 * fTemp8) + (fConst6 * fTemp12)) + (fConst7 * fTemp13)) + (fConst5 * fTemp17)))) + (0.021093750000000001 * ((((fConst8 * fTemp20) + (fConst9 * fTemp21)) + (fConst8 * fTemp25)) + (fConst9 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst10 * fTemp30) + (fConst11 * fTemp32)) + (fConst16 * fTemp37)) + (fConst17 * fTemp38)) + (fConst13 * fTemp39)) + (fConst18 * fTemp40)) + (fConst16 * fTemp45)) + (fConst17 * fTemp46)) + (fConst13 * fTemp47)) + (fConst18 * fTemp48)) + (fConst10 * fTemp52)) + (fConst11 * fTemp53)))))); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph3 = FAUSTFLOAT(fRec4[0]); + output3[i] = FAUSTFLOAT(fTemp59); + double fTemp60 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst20 * (fTemp30 + fTemp33)) + (fConst21 * fTemp37)) + (fConst22 * fTemp38)) + (fConst23 * fTemp41)) + (fConst24 * fTemp42)) + (fConst21 * fTemp45)) + (fConst22 * fTemp46)) + (fConst23 * fTemp49)) + (fConst24 * fTemp50)) + (fConst20 * fTemp52)) + (fConst20 * fTemp54))) + (((fConst26 * (fTemp12 + fTemp14)) + (fConst27 * (((fTemp20 + fTemp22) + fTemp25) + fTemp27))) + (fConst19 * ((((((((((((((((((0.072048835120117657 * fTemp11) + (0.072048835120117671 * fTemp13)) + (0.044881006545161167 * fTemp19)) + (0.044881006545161174 * fTemp21)) + (0.044881006545161167 * fTemp24)) + (0.044881006545161174 * fTemp26)) + (0.011706176702255417 * fTemp29)) + (0.011706176702255421 * fTemp32)) + (0.035118530106766375 * fTemp35)) + (0.035118530106766334 * fTemp36)) + (0.035118530106766362 * fTemp39)) + (0.035118530106766348 * fTemp40)) + (0.035118530106766375 * fTemp43)) + (0.035118530106766334 * fTemp44)) + (0.035118530106766362 * fTemp47)) + (0.035118530106766348 * fTemp48)) + (0.011706176702255417 * fTemp51)) + (0.011706176702255421 * fTemp53)))))); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + output4[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = (fConst41 * fTemp19); + double fTemp62 = (fRec1[0] * ((((0.022574955908289243 * ((fConst30 * fTemp9) + (fConst32 * fTemp18))) + (0.021093750000000001 * ((((fConst33 * fTemp21) + (fConst34 * fTemp22)) + (fConst37 * fTemp26)) + (fConst38 * fTemp27)))) + (fConst28 * ((((((((((((((((((fConst39 * fTemp7) + (fConst40 * fTemp16)) + fTemp61) + (fConst41 * fTemp20)) + (fConst42 * fTemp24)) + (fConst43 * fTemp25)) + (fConst44 * fTemp29)) + (fConst44 * fTemp30)) + (fConst45 * fTemp35)) + (fConst46 * fTemp36)) + (fConst47 * fTemp37)) + (fConst48 * fTemp38)) + (fConst50 * fTemp43)) + (fConst51 * fTemp44)) + (fConst52 * fTemp45)) + (fConst53 * fTemp46)) + (fConst55 * fTemp51)) + (fConst55 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst56 * fTemp32) + (fConst57 * fTemp33)) + (fConst58 * fTemp39)) + (fConst59 * fTemp40)) + (fConst60 * fTemp41)) + (fConst61 * fTemp42)) + (fConst63 * fTemp47)) + (fConst64 * fTemp48)) + (fConst65 * fTemp49)) + (fConst66 * fTemp50)) + (fConst68 * fTemp53)) + (fConst69 * fTemp54))))); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph5 = FAUSTFLOAT(fRec6[0]); + output5[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = (fRec1[0] * ((((0.01261978399999881 * ((((fTemp10 + fTemp15) + fTemp16) + fTemp17) + fTemp18)) + ((0.028394513999997331 * (fTemp0 + fTemp5)) + (5.236595479505967e-18 * fTemp28))) + (0.032806508796871948 * ((((fTemp34 + fTemp51) + fTemp52) + fTemp53) + fTemp54))) - (((0.014197256999998666 * (((fTemp1 + fTemp2) + fTemp3) + fTemp4)) + (0.025239567999997631 * (((fTemp11 + fTemp12) + fTemp13) + fTemp14))) + (0.01640325439843596 * ((((((((fTemp57 + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50))))); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + output6[i] = FAUSTFLOAT(fTemp63); + double fTemp64 = (fRec1[0] * ((fConst28 * ((((((((((((((((fTemp61 + ((fConst39 * fTemp6) + (fConst40 * fTemp15))) + (fConst70 * fTemp22)) + (fConst43 * fTemp24)) + (fConst71 * fTemp27)) + (fConst72 * fTemp29)) + (fConst73 * fTemp33)) + (fConst74 * fTemp35)) + (fConst75 * fTemp36)) + (fConst76 * fTemp41)) + (fConst77 * fTemp42)) + (fConst78 * fTemp43)) + (fConst79 * fTemp44)) + (fConst80 * fTemp49)) + (fConst81 * fTemp50)) + (fConst82 * fTemp51)) + (fConst83 * fTemp54))) + (((0.022574955908289243 * ((fConst30 * fTemp8) + (fConst32 * fTemp17))) + (0.021093750000000001 * ((((fConst33 * fTemp20) + (fConst34 * fTemp21)) + (fConst37 * fTemp25)) + (fConst38 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst56 * fTemp30) + (fConst57 * fTemp32)) + (fConst84 * fTemp37)) + (fConst85 * fTemp38)) + (fConst59 * fTemp39)) + (fConst86 * fTemp40)) + (fConst87 * fTemp45)) + (fConst88 * fTemp46)) + (fConst64 * fTemp47)) + (fConst89 * fTemp48)) + (fConst68 * fTemp52)) + (fConst69 * fTemp53)))))); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph7 = FAUSTFLOAT(fRec8[0]); + output7[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst90 * fTemp31) + (fConst91 * fTemp33)) + (fConst92 * fTemp36)) + (fConst93 * fTemp37)) + (fConst94 * fTemp40)) + (fConst95 * fTemp41)) + (fConst92 * fTemp44)) + (fConst93 * fTemp45)) + (fConst94 * fTemp48)) + (fConst95 * fTemp49)) + (fConst90 * fTemp51)) + (fConst90 * fTemp52)) + (fConst91 * fTemp54))) + ((((fConst96 * (fTemp2 + fTemp4)) + (0.022574955908289243 * (((((fConst97 * (fTemp7 + fTemp9)) + (fConst98 * fTemp12)) + (fConst99 * fTemp14)) + (fConst97 * fTemp16)) + (fConst97 * fTemp18)))) + (0.021093750000000001 * ((((fConst100 * fTemp20) + (fConst101 * fTemp22)) + (fConst100 * fTemp25)) + (fConst101 * fTemp27)))) + (fConst19 * (((((((((((((((((((((0.04052746975506618 * (fTemp1 + fTemp3)) + (0.036024417560058836 * fTemp6)) + (0.036024417560058836 * fTemp8)) + (1.5998055129555246e-17 * fTemp11)) + (3.1996110259110492e-17 * fTemp13)) + (0.036024417560058836 * fTemp15)) + (0.036024417560058836 * fTemp17)) + (9.9655853669580557e-18 * fTemp19)) + (1.9931170733916111e-17 * fTemp21)) + (9.9655853669580557e-18 * fTemp24)) + (1.9931170733916111e-17 * fTemp26)) + (5.19858676206982e-18 * fTemp32)) + (0.046824706809021746 * fTemp35)) + (0.046824706809021746 * fTemp38)) + (0.046824706809021774 * fTemp39)) + (0.046824706809021698 * fTemp42)) + (0.046824706809021746 * fTemp43)) + (0.046824706809021746 * fTemp46)) + (0.046824706809021774 * fTemp47)) + (0.046824706809021698 * fTemp50)) + (5.19858676206982e-18 * fTemp53)))))); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp65)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + output8[i] = FAUSTFLOAT(fTemp65); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncLebedev503.cpp b/source/HOAUGens/HOAEncLebedev503.cpp new file mode 100644 index 0000000000..27ee77406a --- /dev/null +++ b/source/HOAUGens/HOAEncLebedev503.cpp @@ -0,0 +1,2287 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncLebedev503" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fConst17; + double fConst18; + double fConst19; + double fRec4[2]; + FAUSTFLOAT fVbargraph3; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fRec6[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fConst74; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fRec8[2]; + FAUSTFLOAT fVbargraph7; + double fConst94; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fConst106; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fRec10[2]; + FAUSTFLOAT fVbargraph9; + double fConst119; + double fConst120; + double fConst121; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fConst197; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fConst205; + double fRec12[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fRec14[2]; + FAUSTFLOAT fVbargraph13; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fConst231; + double fConst232; + double fConst233; + double fConst234; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fConst239; + double fConst240; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fConst253; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fConst258; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fConst259; + double fConst260; + double fConst261; + double fConst262; + double fConst263; + double fConst264; + double fConst265; + double fConst266; + double fConst267; + double fConst268; + double fRec16[2]; + FAUSTFLOAT fVbargraph15; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncLebedev503"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 50; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = double(tgamma(3.0)); + fConst3 = double(tgamma(1.5)); + fConst4 = (sqrt((3.0 * (fConst1 / fConst2))) * fConst3); + fConst5 = (0.012698412698412698 * (0.0 - (1.5957691216057308 * fConst4))); + fConst6 = (0.0 - (1.1283791670955128 * fConst4)); + fConst7 = (0.0 - (1.1283791670955126 * fConst4)); + fConst8 = (0.0 - (1.128379167095513 * fConst4)); + fConst9 = (0.0 - (0.92131773192356115 * fConst4)); + fConst10 = (0.0 - (0.92131773192356148 * fConst4)); + fConst11 = (0.0 - (0.48114249349102017 * fConst4)); + fConst12 = (0.0 - (0.48114249349102034 * fConst4)); + fConst13 = (0.0 - (0.48114249349102112 * fConst4)); + fConst14 = (0.0 - (1.4434274804730622 * fConst4)); + fConst15 = (0.0 - (1.4434274804730625 * fConst4)); + fConst16 = (0.0 - (0.48114249349102228 * fConst4)); + fConst17 = (0.0 - (0.48114249349102062 * fConst4)); + fConst18 = (0.0 - (1.443427480473062 * fConst4)); + fConst19 = (0.0 - (0.48114249349102095 * fConst4)); + fConst20 = double(tgamma(5.0)); + fConst21 = double(tgamma(2.5)); + fConst22 = (sqrt((5.0 * (fConst1 / fConst20))) * fConst21); + fConst23 = (0.0 - (0.58027968058390089 * fConst22)); + fConst24 = (0.0 - (1.7408390417517061 * fConst22)); + fConst25 = (0.0 - (1.7408390417517088 * fConst22)); + fConst26 = (0.0 - (1.7408390417517057 * fConst22)); + fConst27 = (0.0 - (1.7408390417517114 * fConst22)); + fConst28 = (0.0 - (3.1915382432114616 * fConst22)); + fConst29 = (0.022574955908289243 * fConst28); + fConst30 = (0.021093750000000001 * (0.0 - (2.1276921621409737 * fConst22))); + fConst31 = double(tgamma(2.0)); + fConst32 = sqrt((5.0 * (fConst31 / double(tgamma(4.0))))); + fConst33 = (fConst32 * fConst3); + fConst34 = (0.0 - (2.3936536824085959 * fConst33)); + fConst35 = (0.0 - (1.6925687506432687 * fConst3)); + fConst36 = (0.0 - (1.4142135623730951 * (fConst32 * fConst35))); + fConst37 = (0.0 - (1.5957691216057308 * fConst33)); + fConst38 = (0.0 - (1.5957691216057313 * fConst33)); + fConst39 = (0.0 - (1.5957691216057308 * fConst3)); + fConst40 = (fConst32 * fConst39); + fConst41 = (0.0 - fConst40); + fConst42 = (0.0 - (1.0000000000000002 * fConst40)); + fConst43 = (0.054036626340088233 * fConst3); + fConst44 = (0.031925808815477283 * fConst35); + fConst45 = (0.033660754908870889 * fConst3); + fConst46 = (0.021093750000000001 * fConst39); + fConst47 = (0.021093750000000005 * fConst39); + fConst48 = (0.026338897580074728 * fConst3); + fConst49 = (0.0087796325266915921 * fConst3); + fConst50 = (0.026338897580074742 * fConst3); + fConst51 = (0.026338897580074745 * fConst3); + fConst52 = (0.0087796325266915939 * fConst3); + fConst53 = (0.0 - (0.97315860881060223 * fConst3)); + fConst54 = (0.0090217899191397874 * fConst53); + fConst55 = (0.027065369757419327 * fConst53); + fConst56 = (0.027065369757419331 * fConst53); + fConst57 = (0.0090217899191397891 * fConst53); + fConst58 = (0.0 - (1.3056292813137786 * fConst3)); + fConst59 = (0.020173335537918873 * fConst58); + fConst60 = (0.0 - (1.3056292813137786 * fConst33)); + fConst61 = (0.0 - (1.3056292813137791 * fConst33)); + fConst62 = (0.0 - (0.43520976043792686 * fConst33)); + fConst63 = (0.0 - (1.3056292813137795 * fConst33)); + fConst64 = (0.0 - (1.3056292813137798 * fConst33)); + fConst65 = (0.0 - (0.43520976043792792 * fConst33)); + fConst66 = (fConst32 * fConst53); + fConst67 = (0.0 - (0.44721359549995832 * fConst66)); + fConst68 = (0.0 - (1.3416407864998738 * fConst66)); + fConst69 = (0.0 - (1.3416407864998741 * fConst66)); + fConst70 = (0.0 - (0.44721359549995937 * fConst66)); + fConst71 = (fConst32 * fConst58); + fConst72 = (0.0 - fConst71); + fConst73 = (0.0 - (1.0000000000000002 * fConst71)); + fConst74 = (0.033660754908870882 * fConst3); + fConst75 = (0.021093749999999998 * fConst39); + fConst76 = (0.026338897580074724 * fConst3); + fConst77 = (0.026338897580074721 * fConst3); + fConst78 = (0.026338897580074738 * fConst3); + fConst79 = (0.0087796325266915817 * fConst3); + fConst80 = (0.0087796325266915748 * fConst3); + fConst81 = (0.026338897580074731 * fConst3); + fConst82 = (0.027065369757419324 * fConst53); + fConst83 = (0.009021789919139777 * fConst53); + fConst84 = (0.00902178991913977 * fConst53); + fConst85 = (0.027065369757419321 * fConst53); + fConst86 = (0.02017333553791887 * fConst58); + fConst87 = (0.020173335537918866 * fConst58); + fConst88 = (0.0 - (0.43520976043792636 * fConst33)); + fConst89 = (0.0 - (1.3056292813137793 * fConst33)); + fConst90 = (0.0 - (0.4352097604379267 * fConst33)); + fConst91 = (0.0 - (0.44721359549995782 * fConst66)); + fConst92 = (0.0 - (1.3416407864998736 * fConst66)); + fConst93 = (0.0 - (0.44721359549995815 * fConst66)); + fConst94 = (0.0 - (2.5769594484255127e-16 * fConst22)); + fConst95 = (0.0 - (1.2884797242127563e-16 * fConst22)); + fConst96 = (0.0 - (2.3211187223356089 * fConst22)); + fConst97 = (0.0 - (2.3211187223356093 * fConst22)); + fConst98 = (0.0 - (2.3211187223356085 * fConst22)); + fConst99 = (0.0 - (2.3211187223356098 * fConst22)); + fConst100 = (0.012698412698412698 * fConst28); + fConst101 = (0.0 - (1.595769121605731 * fConst22)); + fConst102 = (0.0 - (7.0866384831701748e-16 * fConst22)); + fConst103 = (0.0 - (1.417327696634035e-15 * fConst22)); + fConst104 = (0.0 - (4.7244256554467816e-16 * fConst22)); + fConst105 = (0.0 - (9.4488513108935631e-16 * fConst22)); + fConst106 = (double(tgamma(3.5)) * sqrt((7.0 * (fConst1 / double(tgamma(7.0)))))); + fConst107 = (0.012698412698412698 * (0.0 - (6.3830764864229232 * fConst106))); + fConst108 = (0.0 - (2.256758334191026 * fConst106)); + fConst109 = (0.0 - (4.5135166683820547 * fConst106)); + fConst110 = (0.0 - (4.5135166683820476 * fConst106)); + fConst111 = (0.0 - (2.456847285129498 * fConst106)); + fConst112 = (0.0 - (2.456847285129494 * fConst106)); + fConst113 = (0.0 - (0.34992181344801421 * fConst106)); + fConst114 = (0.0 - (0.34992181344801365 * fConst106)); + fConst115 = (0.0 - (3.1492963210321352 * fConst106)); + fConst116 = (0.0 - (3.1492963210321379 * fConst106)); + fConst117 = (0.0 - (4.5489835748241987 * fConst106)); + fConst118 = (0.0 - (4.5489835748242058 * fConst106)); + fConst119 = sqrt((7.0 * (fConst31 / double(tgamma(6.0))))); + fConst120 = (fConst21 * fConst119); + fConst121 = (0.0 - (2.624413600860108 * fConst120)); + fConst122 = (0.0 - (2.6244136008601116 * fConst120)); + fConst123 = (0.0 - (2.6244136008601155 * fConst120)); + fConst124 = (0.0 - (2.6244136008601107 * fConst120)); + fConst125 = (0.0 - (2.6244136008601191 * fConst120)); + fConst126 = (0.0 - (3.0929010896773175 * fConst21)); + fConst127 = (fConst119 * fConst126); + fConst128 = (0.0 - (0.84852813742385691 * fConst127)); + fConst129 = (0.0 - (0.84852813742385813 * fConst127)); + fConst130 = (0.0 - (0.84852813742385658 * fConst127)); + fConst131 = (0.0 - (0.84852813742385946 * fConst127)); + fConst132 = (0.0 - (1.8557406538063874 * fConst21)); + fConst133 = (fConst119 * fConst132); + fConst134 = (0.0 - (1.4142135623730951 * fConst133)); + fConst135 = (0.0 - (6.1421182128237417 * fConst120)); + fConst136 = (0.0 - (4.3431334391370653 * fConst21)); + fConst137 = (fConst119 * fConst136); + fConst138 = (0.0 - (1.4142135623730951 * fConst137)); + fConst139 = (0.029831067331307477 * fConst136); + fConst140 = (0.029831067331307481 * fConst136); + fConst141 = (0.052943176160428845 * fConst21); + fConst142 = (0.052943176160428852 * fConst21); + fConst143 = (0.052943176160428991 * fConst21); + fConst144 = (0.052943176160428929 * fConst21); + fConst145 = (0.052943176160428963 * fConst21); + fConst146 = (0.052943176160428942 * fConst21); + fConst147 = (0.017117642829616822 * fConst126); + fConst148 = (0.017117642829616801 * fConst126); + fConst149 = (0.017117642829616815 * fConst126); + fConst150 = (0.017117642829616808 * fConst126); + fConst151 = (0.028529404716028006 * fConst132); + fConst152 = (0.028529404716028009 * fConst132); + fConst153 = sqrt((7.0 * (fConst2 / fConst20))); + fConst154 = (0.0 - (3.3851375012865379 * fConst3)); + fConst155 = (fConst153 * fConst154); + fConst156 = (0.012698412698412698 * (0.0 - (0.70710678118654757 * fConst155))); + fConst157 = (fConst3 * fConst153); + fConst158 = (0.0 - (2.5388531259649025 * fConst157)); + fConst159 = (0.0 - (0.5 * fConst155)); + fConst160 = (0.0 - (0.50000000000000011 * fConst155)); + fConst161 = (0.0 - ((3.5355339059327373 * fConst35) + (2.3936536824085963 * fConst3))); + fConst162 = (0.0 - (0.70710678118654757 * (fConst153 * fConst161))); + fConst163 = (0.0 - (0.92131773192356159 * fConst157)); + fConst164 = (0.0 - (0.92131773192356192 * fConst157)); + fConst165 = (0.0 - ((2.8867513459481291 * fConst39) + (2.7639531957706835 * fConst3))); + fConst166 = (fConst153 * fConst165); + fConst167 = (0.0 - (0.5 * fConst166)); + fConst168 = (0.0 - (0.50000000000000011 * fConst166)); + fConst169 = (0.057314497376279992 * fConst3); + fConst170 = (0.0089791337293529845 * fConst154); + fConst171 = (0.011287477954144622 * fConst154); + fConst172 = (0.011287477954144623 * fConst154); + fConst173 = (0.015962904407738641 * fConst161); + fConst174 = (0.019434045907762629 * fConst3); + fConst175 = (0.019434045907762633 * fConst3); + fConst176 = (0.010546875000000001 * fConst165); + fConst177 = (0.010546875000000002 * fConst165); + fConst178 = (0.045001699736364593 * fConst3); + fConst179 = (0.0 - (1.7605101637794649 * fConst3)); + fConst180 = (0.0045108949595698937 * fConst179); + fConst181 = (0.013532684878709664 * fConst179); + fConst182 = (0.013532684878709665 * fConst179); + fConst183 = (0.0045108949595698946 * fConst179); + fConst184 = (0.0 - ((1.5075567228888176 * fConst53) + (3.2276019669290172 * fConst3))); + fConst185 = (0.0045108949595698937 * fConst184); + fConst186 = (0.013532684878709664 * fConst184); + fConst187 = (0.013532684878709665 * fConst184); + fConst188 = (0.0045108949595698946 * fConst184); + fConst189 = (0.0 - ((4.5226701686664557 * fConst58) + (1.4434274804730605 * fConst3))); + fConst190 = (0.010086667768959437 * fConst189); + fConst191 = (0.0 - (2.230751560731095 * fConst157)); + fConst192 = (0.0 - (2.2307515607310959 * fConst157)); + fConst193 = (fConst153 * fConst179); + fConst194 = (0.0 - (0.22360679774997916 * fConst193)); + fConst195 = (0.0 - (0.67082039324993692 * fConst193)); + fConst196 = (0.0 - (0.67082039324993703 * fConst193)); + fConst197 = (0.0 - (0.22360679774997969 * fConst193)); + fConst198 = (fConst153 * fConst184); + fConst199 = (0.0 - (0.22360679774997916 * fConst198)); + fConst200 = (0.0 - (0.67082039324993692 * fConst198)); + fConst201 = (0.0 - (0.67082039324993703 * fConst198)); + fConst202 = (0.0 - (0.22360679774997969 * fConst198)); + fConst203 = (fConst153 * fConst189); + fConst204 = (0.0 - (0.5 * fConst203)); + fConst205 = (0.0 - (0.50000000000000011 * fConst203)); + fConst206 = (0.01128747795414462 * fConst154); + fConst207 = (0.019434045907762626 * fConst3); + fConst208 = (0.010546874999999999 * fConst165); + fConst209 = (0.045001699736364587 * fConst3); + fConst210 = (0.045001699736364573 * fConst3); + fConst211 = (0.013532684878709662 * fConst179); + fConst212 = (0.0045108949595698885 * fConst179); + fConst213 = (0.004510894959569885 * fConst179); + fConst214 = (0.01353268487870966 * fConst179); + fConst215 = (0.013532684878709662 * fConst184); + fConst216 = (0.0045108949595698885 * fConst184); + fConst217 = (0.004510894959569885 * fConst184); + fConst218 = (0.01353268487870966 * fConst184); + fConst219 = (0.010086667768959435 * fConst189); + fConst220 = (0.010086667768959433 * fConst189); + fConst221 = (0.0 - (0.22360679774997891 * fConst193)); + fConst222 = (0.0 - (0.67082039324993681 * fConst193)); + fConst223 = (0.0 - (0.22360679774997907 * fConst193)); + fConst224 = (0.0 - (0.22360679774997891 * fConst198)); + fConst225 = (0.0 - (0.67082039324993681 * fConst198)); + fConst226 = (0.0 - (0.22360679774997907 * fConst198)); + fConst227 = (0.0 - (5.8273688116286149e-16 * fConst120)); + fConst228 = (0.0 - (1.165473762325723e-15 * fConst120)); + fConst229 = (0.0 - (3.4992181344801496 * fConst120)); + fConst230 = (0.0 - (3.4992181344801501 * fConst120)); + fConst231 = (0.0 - (3.4992181344801487 * fConst120)); + fConst232 = (0.0 - (3.4992181344801505 * fConst120)); + fConst233 = (0.0 - (1.1313708498984762 * fConst127)); + fConst234 = (0.0 - (1.1313708498984758 * fConst127)); + fConst235 = (0.0 - (1.1313708498984765 * fConst127)); + fConst236 = (0.0 - (3.1401849173675503e-16 * fConst133)); + fConst237 = (0.0 - (6.2803698347351007e-16 * fConst133)); + fConst238 = (0.0 - (5.6418958354775643 * fConst120)); + fConst239 = (0.0 - (3.9894228040143274 * fConst21)); + fConst240 = (0.0 - (1.4142135623730951 * (fConst119 * fConst239))); + fConst241 = (0.0 - (1.3638242119692871e-15 * fConst120)); + fConst242 = (0.0 - (2.7276484239385742e-15 * fConst120)); + fConst243 = (0.0 - (3.1401849173675503e-16 * fConst137)); + fConst244 = (0.0 - (6.2803698347351007e-16 * fConst137)); + fConst245 = (0.12736554972506672 * fConst21); + fConst246 = (0.031925808815477283 * fConst239); + fConst247 = (2.8768166971227152e-17 * fConst21); + fConst248 = (5.7536333942454304e-17 * fConst21); + fConst249 = (6.6238275600721768e-18 * fConst136); + fConst250 = (1.3247655120144354e-17 * fConst136); + fConst251 = (2.3511493268037518e-17 * fConst21); + fConst252 = (0.070590901547238516 * fConst21); + fConst253 = (0.070590901547238558 * fConst21); + fConst254 = (0.07059090154723846 * fConst21); + fConst255 = (0.022823523772822384 * fConst126); + fConst256 = (0.022823523772822398 * fConst126); + fConst257 = (0.022823523772822367 * fConst126); + fConst258 = (1.2669600797833527e-17 * fConst132); + fConst259 = (0.0 - (0.34992181344801404 * fConst106)); + fConst260 = (0.0 - (0.34992181344801415 * fConst106)); + fConst261 = (0.0 - (4.548983574824196 * fConst106)); + fConst262 = (0.0 - (3.1492963210321285 * fConst106)); + fConst263 = (0.0 - (3.1492963210321339 * fConst106)); + fConst264 = (0.0 - (4.5489835748241934 * fConst106)); + fConst265 = (0.0 - (4.5135166683820485 * fConst106)); + fConst266 = (0.0 - (4.5135166683820538 * fConst106)); + fConst267 = (0.0 - (2.4568472851294949 * fConst106)); + fConst268 = (0.0 - (2.4568472851294976 * fConst106)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec12[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec14[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3120680", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x313a2e0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3144d00", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3156a90", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316b870", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318e350", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3198580", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31af490", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31c73f0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31e0790", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31fd850", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32269d0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x322d780", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3245c80", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3263d60", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3279ec0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input0[i]); + double fTemp1 = double(input1[i]); + double fTemp2 = double(input2[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = double(input4[i]); + double fTemp5 = double(input5[i]); + double fTemp6 = double(input6[i]); + double fTemp7 = double(input7[i]); + double fTemp8 = double(input8[i]); + double fTemp9 = double(input9[i]); + double fTemp10 = (((fTemp6 + fTemp7) + fTemp8) + fTemp9); + double fTemp11 = double(input10[i]); + double fTemp12 = double(input11[i]); + double fTemp13 = double(input12[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input14[i]); + double fTemp16 = double(input15[i]); + double fTemp17 = double(input16[i]); + double fTemp18 = double(input17[i]); + double fTemp19 = double(input18[i]); + double fTemp20 = double(input19[i]); + double fTemp21 = double(input20[i]); + double fTemp22 = double(input21[i]); + double fTemp23 = (((fTemp19 + fTemp20) + fTemp21) + fTemp22); + double fTemp24 = double(input22[i]); + double fTemp25 = double(input23[i]); + double fTemp26 = double(input24[i]); + double fTemp27 = double(input25[i]); + double fTemp28 = ((((fTemp23 + fTemp24) + fTemp25) + fTemp26) + fTemp27); + double fTemp29 = double(input26[i]); + double fTemp30 = double(input27[i]); + double fTemp31 = (fTemp29 + fTemp30); + double fTemp32 = double(input28[i]); + double fTemp33 = double(input29[i]); + double fTemp34 = ((fTemp31 + fTemp32) + fTemp33); + double fTemp35 = double(input30[i]); + double fTemp36 = double(input31[i]); + double fTemp37 = double(input32[i]); + double fTemp38 = double(input33[i]); + double fTemp39 = double(input34[i]); + double fTemp40 = double(input35[i]); + double fTemp41 = double(input36[i]); + double fTemp42 = double(input37[i]); + double fTemp43 = double(input38[i]); + double fTemp44 = double(input39[i]); + double fTemp45 = double(input40[i]); + double fTemp46 = double(input41[i]); + double fTemp47 = double(input42[i]); + double fTemp48 = double(input43[i]); + double fTemp49 = double(input44[i]); + double fTemp50 = double(input45[i]); + double fTemp51 = double(input46[i]); + double fTemp52 = double(input47[i]); + double fTemp53 = double(input48[i]); + double fTemp54 = double(input49[i]); + double fTemp55 = (fRec1[0] * ((((0.012698412698412698 * (((((fTemp0 + fTemp1) + fTemp2) + fTemp3) + fTemp4) + fTemp5)) + (0.022574955908289243 * ((((((((fTemp10 + fTemp11) + fTemp12) + fTemp13) + fTemp14) + fTemp15) + fTemp16) + fTemp17) + fTemp18))) + (0.021093750000000001 * fTemp28)) + (0.02017333553791887 * ((((((((((((((((((((fTemp34 + fTemp35) + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42) + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50) + fTemp51) + fTemp52) + fTemp53) + fTemp54)))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (fRec1[0] * (((((fConst5 * fTemp4) + (0.022574955908289243 * ((((fConst6 * fTemp9) + (fConst7 * fTemp13)) + (fConst8 * fTemp14)) + (fConst6 * fTemp18)))) + (0.021093750000000001 * ((((fConst9 * fTemp21) + (fConst10 * fTemp22)) + (fConst9 * fTemp26)) + (fConst10 * fTemp27)))) + (fConst4 * (((((((((((((((((((((0.02026373487753309 * fTemp2) + (0.025473109945013343 * fTemp7)) + (0.025473109945013336 * fTemp11)) + (0.025473109945013343 * fTemp12)) + (0.025473109945013343 * fTemp16)) + (0.019434045907762619 * fTemp19)) + (0.019434045907762623 * fTemp20)) + (0.019434045907762619 * fTemp24)) + (0.019434045907762623 * fTemp25)) + (0.0097062489627452973 * fTemp29)) + (0.0097062489627452973 * fTemp30)) + (0.0097062489627453199 * fTemp35)) + (0.029118746888235923 * fTemp36)) + (0.029118746888235927 * fTemp37)) + (0.0097062489627453216 * fTemp38)) + (0.0097062489627453199 * fTemp43)) + (0.029118746888235923 * fTemp44)) + (0.029118746888235927 * fTemp45)) + (0.0097062489627453216 * fTemp46)) + (0.0097062489627452973 * fTemp51)) + (0.0097062489627452973 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst11 * fTemp32) + (fConst12 * fTemp33)) + (fConst13 * fTemp39)) + (fConst14 * fTemp40)) + (fConst15 * fTemp41)) + (fConst16 * fTemp42)) + (fConst13 * fTemp47)) + (fConst14 * fTemp48)) + (fConst15 * fTemp49)) + (fConst16 * fTemp50)) + (fConst11 * fTemp53)) + (fConst12 * fTemp54))))); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (fTemp0 - fTemp5); + double fTemp58 = ((((fTemp10 - fTemp15) - fTemp16) - fTemp17) - fTemp18); + double fTemp59 = ((((fTemp23 - fTemp24) - fTemp25) - fTemp26) - fTemp27); + double fTemp60 = (((((((fTemp35 + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42); + double fTemp61 = ((((((((fTemp60 - fTemp43) - fTemp44) - fTemp45) - fTemp46) - fTemp47) - fTemp48) - fTemp49) - fTemp50); + double fTemp62 = ((((fTemp34 - fTemp51) - fTemp52) - fTemp53) - fTemp54); + double fTemp63 = (fRec1[0] * (((((0.021994295969128601 * fTemp57) + (0.027648561470568499 * fTemp58)) + (0.021093750000000001 * fTemp59)) + (0.010535180889746075 * fTemp61)) + (0.031605542669238249 * fTemp62))); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + output2[i] = FAUSTFLOAT(fTemp63); + double fTemp64 = (fRec1[0] * ((fConst4 * (((((((((((((((((((((0.02026373487753309 * fTemp1) + (0.025473109945013343 * fTemp6)) + (0.025473109945013343 * fTemp11)) + (0.025473109945013332 * fTemp14)) + (0.025473109945013343 * fTemp15)) + (0.019434045907762623 * fTemp19)) + (0.019434045907762616 * fTemp22)) + (0.019434045907762623 * fTemp24)) + (0.019434045907762616 * fTemp27)) + (0.0097062489627452956 * fTemp29)) + (0.0097062489627452939 * fTemp33)) + (0.029118746888235916 * fTemp35)) + (0.0097062489627453077 * fTemp36)) + (0.0097062489627453008 * fTemp41)) + (0.029118746888235913 * fTemp42)) + (0.029118746888235916 * fTemp43)) + (0.0097062489627453077 * fTemp44)) + (0.0097062489627453008 * fTemp49)) + (0.029118746888235913 * fTemp50)) + (0.0097062489627452956 * fTemp51)) + (0.0097062489627452939 * fTemp54))) + ((((fConst5 * fTemp3) + (0.022574955908289243 * ((((fConst6 * fTemp8) + (fConst7 * fTemp12)) + (fConst8 * fTemp13)) + (fConst6 * fTemp17)))) + (0.021093750000000001 * ((((fConst9 * fTemp20) + (fConst10 * fTemp21)) + (fConst9 * fTemp25)) + (fConst10 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst11 * fTemp30) + (fConst12 * fTemp32)) + (fConst17 * fTemp37)) + (fConst18 * fTemp38)) + (fConst14 * fTemp39)) + (fConst19 * fTemp40)) + (fConst17 * fTemp45)) + (fConst18 * fTemp46)) + (fConst14 * fTemp47)) + (fConst19 * fTemp48)) + (fConst11 * fTemp52)) + (fConst12 * fTemp53)))))); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph3 = FAUSTFLOAT(fRec4[0]); + output3[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fTemp30 + fTemp33); + double fTemp66 = (fTemp20 + fTemp22); + double fTemp67 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst23 * fTemp65) + (fConst24 * fTemp37)) + (fConst25 * fTemp38)) + (fConst26 * fTemp41)) + (fConst27 * fTemp42)) + (fConst24 * fTemp45)) + (fConst25 * fTemp46)) + (fConst26 * fTemp49)) + (fConst27 * fTemp50)) + (fConst23 * fTemp52)) + (fConst23 * fTemp54))) + (((fConst29 * (fTemp12 + fTemp14)) + (fConst30 * ((fTemp66 + fTemp25) + fTemp27))) + (fConst22 * ((((((((((((((((((0.072048835120117657 * fTemp11) + (0.072048835120117671 * fTemp13)) + (0.044881006545161167 * fTemp19)) + (0.044881006545161174 * fTemp21)) + (0.044881006545161167 * fTemp24)) + (0.044881006545161174 * fTemp26)) + (0.011706176702255417 * fTemp29)) + (0.011706176702255421 * fTemp32)) + (0.035118530106766375 * fTemp35)) + (0.035118530106766334 * fTemp36)) + (0.035118530106766362 * fTemp39)) + (0.035118530106766348 * fTemp40)) + (0.035118530106766375 * fTemp43)) + (0.035118530106766334 * fTemp44)) + (0.035118530106766362 * fTemp47)) + (0.035118530106766348 * fTemp48)) + (0.011706176702255417 * fTemp51)) + (0.011706176702255421 * fTemp53)))))); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp67)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + output4[i] = FAUSTFLOAT(fTemp67); + double fTemp68 = (fConst45 * fTemp19); + double fTemp69 = (fRec1[0] * ((((0.022574955908289243 * ((fConst34 * fTemp9) + (fConst36 * fTemp18))) + (0.021093750000000001 * ((((fConst37 * fTemp21) + (fConst38 * fTemp22)) + (fConst41 * fTemp26)) + (fConst42 * fTemp27)))) + (fConst32 * ((((((((((((((((((fConst43 * fTemp7) + (fConst44 * fTemp16)) + fTemp68) + (fConst45 * fTemp20)) + (fConst46 * fTemp24)) + (fConst47 * fTemp25)) + (fConst48 * fTemp29)) + (fConst48 * fTemp30)) + (fConst49 * fTemp35)) + (fConst50 * fTemp36)) + (fConst51 * fTemp37)) + (fConst52 * fTemp38)) + (fConst54 * fTemp43)) + (fConst55 * fTemp44)) + (fConst56 * fTemp45)) + (fConst57 * fTemp46)) + (fConst59 * fTemp51)) + (fConst59 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst60 * fTemp32) + (fConst61 * fTemp33)) + (fConst62 * fTemp39)) + (fConst63 * fTemp40)) + (fConst64 * fTemp41)) + (fConst65 * fTemp42)) + (fConst67 * fTemp47)) + (fConst68 * fTemp48)) + (fConst69 * fTemp49)) + (fConst70 * fTemp50)) + (fConst72 * fTemp53)) + (fConst73 * fTemp54))))); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp69)))))); + fVbargraph5 = FAUSTFLOAT(fRec6[0]); + output5[i] = FAUSTFLOAT(fTemp69); + double fTemp70 = (fRec1[0] * ((((0.01261978399999881 * ((((fTemp10 + fTemp15) + fTemp16) + fTemp17) + fTemp18)) + ((0.028394513999997331 * (fTemp0 + fTemp5)) + (5.236595479505967e-18 * fTemp28))) + (0.032806508796871948 * ((((fTemp34 + fTemp51) + fTemp52) + fTemp53) + fTemp54))) - (((0.014197256999998666 * (((fTemp1 + fTemp2) + fTemp3) + fTemp4)) + (0.025239567999997631 * (((fTemp11 + fTemp12) + fTemp13) + fTemp14))) + (0.01640325439843596 * ((((((((fTemp60 + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50))))); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + output6[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = (fRec1[0] * ((fConst32 * ((((((((((((((((fTemp68 + ((fConst43 * fTemp6) + (fConst44 * fTemp15))) + (fConst74 * fTemp22)) + (fConst47 * fTemp24)) + (fConst75 * fTemp27)) + (fConst76 * fTemp29)) + (fConst77 * fTemp33)) + (fConst78 * fTemp35)) + (fConst79 * fTemp36)) + (fConst80 * fTemp41)) + (fConst81 * fTemp42)) + (fConst82 * fTemp43)) + (fConst83 * fTemp44)) + (fConst84 * fTemp49)) + (fConst85 * fTemp50)) + (fConst86 * fTemp51)) + (fConst87 * fTemp54))) + (((0.022574955908289243 * ((fConst34 * fTemp8) + (fConst36 * fTemp17))) + (0.021093750000000001 * ((((fConst37 * fTemp20) + (fConst38 * fTemp21)) + (fConst41 * fTemp25)) + (fConst42 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst60 * fTemp30) + (fConst61 * fTemp32)) + (fConst88 * fTemp37)) + (fConst89 * fTemp38)) + (fConst63 * fTemp39)) + (fConst90 * fTemp40)) + (fConst91 * fTemp45)) + (fConst92 * fTemp46)) + (fConst68 * fTemp47)) + (fConst93 * fTemp48)) + (fConst72 * fTemp52)) + (fConst73 * fTemp53)))))); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp71)))))); + fVbargraph7 = FAUSTFLOAT(fRec8[0]); + output7[i] = FAUSTFLOAT(fTemp71); + double fTemp72 = (fTemp7 + fTemp9); + double fTemp73 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst94 * fTemp33) + (fConst95 * fTemp31)) + (fConst96 * fTemp36)) + (fConst97 * fTemp37)) + (fConst98 * fTemp40)) + (fConst99 * fTemp41)) + (fConst96 * fTemp44)) + (fConst97 * fTemp45)) + (fConst98 * fTemp48)) + (fConst99 * fTemp49)) + (fConst95 * fTemp51)) + (fConst95 * fTemp52)) + (fConst94 * fTemp54))) + ((((fConst100 * (fTemp2 + fTemp4)) + (0.022574955908289243 * (((((fConst101 * fTemp72) + (fConst102 * fTemp12)) + (fConst103 * fTemp14)) + (fConst101 * fTemp16)) + (fConst101 * fTemp18)))) + (0.021093750000000001 * ((((fConst104 * fTemp20) + (fConst105 * fTemp22)) + (fConst104 * fTemp25)) + (fConst105 * fTemp27)))) + (fConst22 * (((((((((((((((((((((0.04052746975506618 * (fTemp1 + fTemp3)) + (0.036024417560058836 * fTemp6)) + (0.036024417560058836 * fTemp8)) + (1.5998055129555246e-17 * fTemp11)) + (3.1996110259110492e-17 * fTemp13)) + (0.036024417560058836 * fTemp15)) + (0.036024417560058836 * fTemp17)) + (9.9655853669580557e-18 * fTemp19)) + (1.9931170733916111e-17 * fTemp21)) + (9.9655853669580557e-18 * fTemp24)) + (1.9931170733916111e-17 * fTemp26)) + (5.19858676206982e-18 * fTemp32)) + (0.046824706809021746 * fTemp35)) + (0.046824706809021746 * fTemp38)) + (0.046824706809021774 * fTemp39)) + (0.046824706809021698 * fTemp42)) + (0.046824706809021746 * fTemp43)) + (0.046824706809021746 * fTemp46)) + (0.046824706809021774 * fTemp47)) + (0.046824706809021698 * fTemp50)) + (5.19858676206982e-18 * fTemp53)))))); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp73)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + output8[i] = FAUSTFLOAT(fTemp73); + double fTemp74 = (fRec1[0] * (((((fConst107 * fTemp2) + (0.022574955908289243 * ((((fConst108 * fTemp7) + (fConst109 * fTemp13)) + (fConst110 * fTemp14)) + (fConst108 * fTemp16)))) + (0.021093750000000001 * ((((fConst111 * fTemp21) + (fConst112 * fTemp22)) + (fConst111 * fTemp26)) + (fConst112 * fTemp27)))) + (fConst106 * (((((((((((((((((((((0.081054939510132359 * fTemp4) + (0.050946219890026692 * fTemp9)) + (0.10189243978005338 * fTemp11)) + (0.1018924397800533 * fTemp12)) + (0.050946219890026692 * fTemp18)) + (0.051824122420700336 * fTemp19)) + (0.051824122420700287 * fTemp20)) + (0.051824122420700336 * fTemp24)) + (0.051824122420700287 * fTemp25)) + (0.0070590901547238332 * fTemp29)) + (0.0070590901547238332 * fTemp30)) + (0.091768172011410243 * fTemp35)) + (0.091768172011410271 * fTemp38)) + (0.063531811392514695 * fTemp40)) + (0.063531811392514792 * fTemp41)) + (0.091768172011410243 * fTemp43)) + (0.091768172011410271 * fTemp46)) + (0.063531811392514695 * fTemp48)) + (0.063531811392514792 * fTemp49)) + (0.0070590901547238332 * fTemp51)) + (0.0070590901547238332 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst113 * fTemp32) + (fConst114 * fTemp33)) + (fConst115 * fTemp36)) + (fConst116 * fTemp37)) + (fConst117 * fTemp39)) + (fConst118 * fTemp42)) + (fConst115 * fTemp44)) + (fConst116 * fTemp45)) + (fConst117 * fTemp47)) + (fConst118 * fTemp50)) + (fConst113 * fTemp53)) + (fConst114 * fTemp54))))); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp74)))))); + fVbargraph9 = FAUSTFLOAT(fRec10[0]); + output9[i] = FAUSTFLOAT(fTemp74); + double fTemp75 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst121 * fTemp65) + (fConst122 * fTemp37)) + (fConst123 * fTemp38)) + (fConst124 * fTemp41)) + (fConst125 * fTemp42)) + (fConst128 * fTemp45)) + (fConst129 * fTemp46)) + (fConst130 * fTemp49)) + (fConst131 * fTemp50)) + (fConst134 * fTemp52)) + (fConst134 * fTemp54))) + ((0.021093750000000001 * (((fConst135 * fTemp66) + (fConst138 * fTemp25)) + (fConst138 * fTemp27))) + (fConst119 * (((((((((((((((fConst21 * ((0.12956030605175081 * fTemp19) + (0.12956030605175084 * fTemp21))) + (fConst139 * fTemp24)) + (fConst140 * fTemp26)) + (fConst141 * fTemp29)) + (fConst142 * fTemp32)) + (fConst143 * fTemp35)) + (fConst144 * fTemp36)) + (fConst145 * fTemp39)) + (fConst146 * fTemp40)) + (fConst147 * fTemp43)) + (fConst148 * fTemp44)) + (fConst149 * fTemp47)) + (fConst150 * fTemp48)) + (fConst151 * fTemp51)) + (fConst152 * fTemp53)))))); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp75)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + output10[i] = FAUSTFLOAT(fTemp75); + double fTemp76 = (fRec1[0] * (((((fConst156 * fTemp4) + (0.022574955908289243 * ((((fConst158 * fTemp9) + (fConst159 * fTemp13)) + (fConst160 * fTemp14)) + (fConst162 * fTemp18)))) + (0.021093750000000001 * ((((fConst163 * fTemp21) + (fConst164 * fTemp22)) + (fConst167 * fTemp26)) + (fConst168 * fTemp27)))) + (fConst153 * (((((((((((((((((((((fConst169 * fTemp7) + (fConst170 * fTemp2)) + (fConst171 * fTemp11)) + (fConst172 * fTemp12)) + (fConst173 * fTemp16)) + (fConst174 * fTemp19)) + (fConst175 * fTemp20)) + (fConst176 * fTemp24)) + (fConst177 * fTemp25)) + (fConst178 * fTemp29)) + (fConst178 * fTemp30)) + (fConst180 * fTemp35)) + (fConst181 * fTemp36)) + (fConst182 * fTemp37)) + (fConst183 * fTemp38)) + (fConst185 * fTemp43)) + (fConst186 * fTemp44)) + (fConst187 * fTemp45)) + (fConst188 * fTemp46)) + (fConst190 * fTemp51)) + (fConst190 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst191 * fTemp32) + (fConst192 * fTemp33)) + (fConst194 * fTemp39)) + (fConst195 * fTemp40)) + (fConst196 * fTemp41)) + (fConst197 * fTemp42)) + (fConst199 * fTemp47)) + (fConst200 * fTemp48)) + (fConst201 * fTemp49)) + (fConst202 * fTemp50)) + (fConst204 * fTemp53)) + (fConst205 * fTemp54))))); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp76)))))); + fVbargraph11 = FAUSTFLOAT(fRec12[0]); + output11[i] = FAUSTFLOAT(fTemp76); + double fTemp77 = (fRec1[0] * (((0.033596842045264641 * fTemp57) + (0.026333598483989317 * fTemp62)) - (((0.010558468816293317 * fTemp58) + (0.021480823570105497 * fTemp59)) + (0.020481687709769415 * fTemp61)))); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + output12[i] = FAUSTFLOAT(fTemp77); + double fTemp78 = (fRec1[0] * ((fConst153 * (((((((((((((((((((((fConst169 * fTemp6) + (fConst170 * fTemp1)) + (fConst172 * fTemp11)) + (fConst206 * fTemp14)) + (fConst173 * fTemp15)) + (fConst175 * fTemp19)) + (fConst207 * fTemp22)) + (fConst177 * fTemp24)) + (fConst208 * fTemp27)) + (fConst209 * fTemp29)) + (fConst210 * fTemp33)) + (fConst211 * fTemp35)) + (fConst212 * fTemp36)) + (fConst213 * fTemp41)) + (fConst214 * fTemp42)) + (fConst215 * fTemp43)) + (fConst216 * fTemp44)) + (fConst217 * fTemp49)) + (fConst218 * fTemp50)) + (fConst219 * fTemp51)) + (fConst220 * fTemp54))) + ((((fConst156 * fTemp3) + (0.022574955908289243 * ((((fConst158 * fTemp8) + (fConst159 * fTemp12)) + (fConst160 * fTemp13)) + (fConst162 * fTemp17)))) + (0.021093750000000001 * ((((fConst163 * fTemp20) + (fConst164 * fTemp21)) + (fConst167 * fTemp25)) + (fConst168 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst191 * fTemp30) + (fConst192 * fTemp32)) + (fConst221 * fTemp37)) + (fConst222 * fTemp38)) + (fConst195 * fTemp39)) + (fConst223 * fTemp40)) + (fConst224 * fTemp45)) + (fConst225 * fTemp46)) + (fConst200 * fTemp47)) + (fConst226 * fTemp48)) + (fConst204 * fTemp52)) + (fConst205 * fTemp53)))))); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph13 = FAUSTFLOAT(fRec14[0]); + output13[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst227 * fTemp31) + (fConst228 * fTemp33)) + (fConst229 * fTemp36)) + (fConst230 * fTemp37)) + (fConst231 * fTemp40)) + (fConst232 * fTemp41)) + (fConst233 * fTemp44)) + (fConst233 * fTemp45)) + (fConst234 * fTemp48)) + (fConst235 * fTemp49)) + (fConst236 * fTemp51)) + (fConst236 * fTemp52)) + (fConst237 * fTemp54))) + (((0.022574955908289243 * (((fConst238 * fTemp72) + (fConst240 * fTemp16)) + (fConst240 * fTemp18))) + (0.021093750000000001 * ((((fConst241 * fTemp20) + (fConst242 * fTemp22)) + (fConst243 * fTemp25)) + (fConst244 * fTemp27)))) + (fConst119 * (((((((((((((((((fConst245 * (fTemp6 + fTemp8)) + (fConst246 * fTemp15)) + (fConst246 * fTemp17)) + (fConst247 * fTemp19)) + (fConst248 * fTemp21)) + (fConst249 * fTemp24)) + (fConst250 * fTemp26)) + (fConst251 * fTemp32)) + (fConst252 * fTemp35)) + (fConst252 * fTemp38)) + (fConst253 * fTemp39)) + (fConst254 * fTemp42)) + (fConst255 * fTemp43)) + (fConst255 * fTemp46)) + (fConst256 * fTemp47)) + (fConst257 * fTemp50)) + (fConst258 * fTemp53)))))); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp79)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + output14[i] = FAUSTFLOAT(fTemp79); + double fTemp80 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst259 * fTemp29) + (fConst260 * fTemp33)) + (fConst261 * fTemp36)) + (fConst262 * fTemp38)) + (fConst263 * fTemp39)) + (fConst264 * fTemp41)) + (fConst261 * fTemp44)) + (fConst262 * fTemp46)) + (fConst263 * fTemp47)) + (fConst264 * fTemp49)) + (fConst259 * fTemp51)) + (fConst260 * fTemp54))) + ((((fConst107 * fTemp3) + (0.022574955908289243 * ((((fConst108 * fTemp8) + (fConst265 * fTemp11)) + (fConst266 * fTemp14)) + (fConst108 * fTemp17)))) + (0.021093750000000001 * ((((fConst267 * fTemp19) + (fConst268 * fTemp22)) + (fConst267 * fTemp24)) + (fConst268 * fTemp27)))) + (fConst106 * (((((((((((((((((((((0.081054939510132359 * fTemp1) + (0.050946219890026692 * fTemp6)) + (0.10189243978005338 * fTemp12)) + (0.10189243978005329 * fTemp13)) + (0.050946219890026692 * fTemp15)) + (0.051824122420700336 * fTemp20)) + (0.051824122420700267 * fTemp21)) + (0.051824122420700336 * fTemp25)) + (0.051824122420700267 * fTemp26)) + (0.0070590901547238384 * fTemp30)) + (0.0070590901547238306 * fTemp32)) + (0.063531811392514598 * fTemp35)) + (0.09176817201141016 * fTemp37)) + (0.091768172011410187 * fTemp40)) + (0.063531811392514445 * fTemp42)) + (0.063531811392514598 * fTemp43)) + (0.09176817201141016 * fTemp45)) + (0.091768172011410187 * fTemp48)) + (0.063531811392514445 * fTemp50)) + (0.0070590901547238384 * fTemp52)) + (0.0070590901547238306 * fTemp53)))))); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp80)))))); + fVbargraph15 = FAUSTFLOAT(fRec16[0]); + output15[i] = FAUSTFLOAT(fTemp80); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncLebedev504.cpp b/source/HOAUGens/HOAEncLebedev504.cpp new file mode 100644 index 0000000000..b34ad9cbe4 --- /dev/null +++ b/source/HOAUGens/HOAEncLebedev504.cpp @@ -0,0 +1,2942 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncLebedev504" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fConst17; + double fConst18; + double fConst19; + double fRec4[2]; + FAUSTFLOAT fVbargraph3; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fRec6[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fRec8[2]; + FAUSTFLOAT fVbargraph7; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fRec10[2]; + FAUSTFLOAT fVbargraph9; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fConst197; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fRec12[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fRec14[2]; + FAUSTFLOAT fVbargraph13; + double fConst231; + double fConst232; + double fConst233; + double fConst234; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fConst239; + double fConst240; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fConst253; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fConst258; + double fConst259; + double fConst260; + double fConst261; + double fConst262; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fConst263; + double fConst264; + double fConst265; + double fConst266; + double fConst267; + double fConst268; + double fConst269; + double fConst270; + double fConst271; + double fConst272; + double fRec16[2]; + FAUSTFLOAT fVbargraph15; + double fConst273; + double fConst274; + double fConst275; + double fConst276; + double fConst277; + double fConst278; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fConst279; + double fConst280; + double fConst281; + double fConst282; + double fConst283; + double fConst284; + double fConst285; + double fConst286; + double fConst287; + double fConst288; + double fConst289; + double fConst290; + double fConst291; + double fConst292; + double fConst293; + double fConst294; + double fConst295; + double fConst296; + double fConst297; + double fConst298; + double fConst299; + double fConst300; + double fConst301; + double fConst302; + double fConst303; + double fConst304; + double fConst305; + double fConst306; + double fConst307; + double fConst308; + double fConst309; + double fConst310; + double fConst311; + double fConst312; + double fConst313; + double fConst314; + double fConst315; + double fConst316; + double fConst317; + double fConst318; + double fConst319; + double fConst320; + double fConst321; + double fRec18[2]; + FAUSTFLOAT fVbargraph17; + double fConst322; + double fConst323; + double fConst324; + double fConst325; + double fConst326; + double fConst327; + double fConst328; + double fConst329; + double fConst330; + double fConst331; + double fConst332; + double fConst333; + double fConst334; + double fConst335; + double fConst336; + double fConst337; + double fConst338; + double fConst339; + double fConst340; + double fConst341; + double fConst342; + double fConst343; + double fConst344; + double fConst345; + double fConst346; + double fConst347; + double fConst348; + double fConst349; + double fConst350; + double fConst351; + double fConst352; + double fConst353; + double fConst354; + double fConst355; + double fConst356; + double fConst357; + double fConst358; + double fConst359; + double fConst360; + double fConst361; + double fConst362; + double fConst363; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fConst364; + double fConst365; + double fConst366; + double fConst367; + double fConst368; + double fConst369; + double fConst370; + double fConst371; + double fConst372; + double fConst373; + double fConst374; + double fConst375; + double fConst376; + double fConst377; + double fConst378; + double fConst379; + double fConst380; + double fConst381; + double fConst382; + double fConst383; + double fConst384; + double fConst385; + double fConst386; + double fConst387; + double fConst388; + double fConst389; + double fConst390; + double fConst391; + double fConst392; + double fConst393; + double fConst394; + double fConst395; + double fConst396; + double fConst397; + double fConst398; + double fConst399; + double fConst400; + double fConst401; + double fConst402; + double fConst403; + double fConst404; + double fConst405; + double fConst406; + double fConst407; + double fConst408; + double fConst409; + double fConst410; + double fRec20[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fConst411; + double fConst412; + double fConst413; + double fConst414; + double fConst415; + double fConst416; + double fConst417; + double fConst418; + double fConst419; + double fConst420; + double fConst421; + double fConst422; + double fConst423; + double fConst424; + double fConst425; + double fConst426; + double fConst427; + double fConst428; + double fRec22[2]; + FAUSTFLOAT fVbargraph21; + double fConst429; + double fConst430; + double fConst431; + double fConst432; + double fConst433; + double fConst434; + double fConst435; + double fConst436; + double fConst437; + double fConst438; + double fConst439; + double fConst440; + double fConst441; + double fConst442; + double fConst443; + double fConst444; + double fConst445; + double fConst446; + double fConst447; + double fConst448; + double fConst449; + double fConst450; + double fConst451; + double fConst452; + double fConst453; + double fConst454; + double fConst455; + double fConst456; + double fConst457; + double fConst458; + double fConst459; + double fConst460; + double fConst461; + double fConst462; + double fConst463; + double fConst464; + double fConst465; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fConst466; + double fConst467; + double fConst468; + double fConst469; + double fConst470; + double fConst471; + double fConst472; + double fConst473; + double fConst474; + double fConst475; + double fConst476; + double fConst477; + double fConst478; + double fConst479; + double fConst480; + double fConst481; + double fConst482; + double fConst483; + double fConst484; + double fConst485; + double fConst486; + double fConst487; + double fConst488; + double fConst489; + double fConst490; + double fConst491; + double fConst492; + double fConst493; + double fConst494; + double fConst495; + double fRec24[2]; + FAUSTFLOAT fVbargraph23; + double fConst496; + double fConst497; + double fConst498; + double fConst499; + double fConst500; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncLebedev504"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 50; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = double(tgamma(3.0)); + fConst3 = double(tgamma(1.5)); + fConst4 = (sqrt((3.0 * (fConst1 / fConst2))) * fConst3); + fConst5 = (0.012698412698412698 * (0.0 - (1.5957691216057308 * fConst4))); + fConst6 = (0.0 - (1.1283791670955128 * fConst4)); + fConst7 = (0.0 - (1.1283791670955126 * fConst4)); + fConst8 = (0.0 - (1.128379167095513 * fConst4)); + fConst9 = (0.0 - (0.92131773192356115 * fConst4)); + fConst10 = (0.0 - (0.92131773192356148 * fConst4)); + fConst11 = (0.0 - (0.48114249349102017 * fConst4)); + fConst12 = (0.0 - (0.48114249349102034 * fConst4)); + fConst13 = (0.0 - (0.48114249349102112 * fConst4)); + fConst14 = (0.0 - (1.4434274804730622 * fConst4)); + fConst15 = (0.0 - (1.4434274804730625 * fConst4)); + fConst16 = (0.0 - (0.48114249349102228 * fConst4)); + fConst17 = (0.0 - (0.48114249349102062 * fConst4)); + fConst18 = (0.0 - (1.443427480473062 * fConst4)); + fConst19 = (0.0 - (0.48114249349102095 * fConst4)); + fConst20 = double(tgamma(5.0)); + fConst21 = double(tgamma(2.5)); + fConst22 = (sqrt((5.0 * (fConst1 / fConst20))) * fConst21); + fConst23 = (0.0 - (0.58027968058390089 * fConst22)); + fConst24 = (0.0 - (1.7408390417517061 * fConst22)); + fConst25 = (0.0 - (1.7408390417517088 * fConst22)); + fConst26 = (0.0 - (1.7408390417517057 * fConst22)); + fConst27 = (0.0 - (1.7408390417517114 * fConst22)); + fConst28 = (0.0 - (3.1915382432114616 * fConst22)); + fConst29 = (0.022574955908289243 * fConst28); + fConst30 = (0.021093750000000001 * (0.0 - (2.1276921621409737 * fConst22))); + fConst31 = double(tgamma(2.0)); + fConst32 = double(tgamma(4.0)); + fConst33 = sqrt((5.0 * (fConst31 / fConst32))); + fConst34 = (fConst33 * fConst3); + fConst35 = (0.0 - (2.3936536824085959 * fConst34)); + fConst36 = (0.0 - (1.6925687506432687 * fConst3)); + fConst37 = (0.0 - (1.4142135623730951 * (fConst33 * fConst36))); + fConst38 = (0.0 - (1.5957691216057308 * fConst34)); + fConst39 = (0.0 - (1.5957691216057313 * fConst34)); + fConst40 = (0.0 - (1.5957691216057308 * fConst3)); + fConst41 = (fConst33 * fConst40); + fConst42 = (0.0 - fConst41); + fConst43 = (0.0 - (1.0000000000000002 * fConst41)); + fConst44 = (0.054036626340088233 * fConst3); + fConst45 = (0.031925808815477283 * fConst36); + fConst46 = (0.033660754908870889 * fConst3); + fConst47 = (0.021093750000000001 * fConst40); + fConst48 = (0.021093750000000005 * fConst40); + fConst49 = (0.026338897580074728 * fConst3); + fConst50 = (0.0087796325266915921 * fConst3); + fConst51 = (0.026338897580074742 * fConst3); + fConst52 = (0.026338897580074745 * fConst3); + fConst53 = (0.0087796325266915939 * fConst3); + fConst54 = (0.0 - (0.97315860881060223 * fConst3)); + fConst55 = (0.0090217899191397874 * fConst54); + fConst56 = (0.027065369757419327 * fConst54); + fConst57 = (0.027065369757419331 * fConst54); + fConst58 = (0.0090217899191397891 * fConst54); + fConst59 = (0.0 - (1.3056292813137786 * fConst3)); + fConst60 = (0.020173335537918873 * fConst59); + fConst61 = (0.0 - (1.3056292813137786 * fConst34)); + fConst62 = (0.0 - (1.3056292813137791 * fConst34)); + fConst63 = (0.0 - (0.43520976043792686 * fConst34)); + fConst64 = (0.0 - (1.3056292813137795 * fConst34)); + fConst65 = (0.0 - (1.3056292813137798 * fConst34)); + fConst66 = (0.0 - (0.43520976043792792 * fConst34)); + fConst67 = (fConst33 * fConst54); + fConst68 = (0.0 - (0.44721359549995832 * fConst67)); + fConst69 = (0.0 - (1.3416407864998738 * fConst67)); + fConst70 = (0.0 - (1.3416407864998741 * fConst67)); + fConst71 = (0.0 - (0.44721359549995937 * fConst67)); + fConst72 = (fConst33 * fConst59); + fConst73 = (0.0 - fConst72); + fConst74 = (0.0 - (1.0000000000000002 * fConst72)); + fConst75 = (0.033660754908870882 * fConst3); + fConst76 = (0.021093749999999998 * fConst40); + fConst77 = (0.026338897580074724 * fConst3); + fConst78 = (0.026338897580074721 * fConst3); + fConst79 = (0.026338897580074738 * fConst3); + fConst80 = (0.0087796325266915817 * fConst3); + fConst81 = (0.0087796325266915748 * fConst3); + fConst82 = (0.026338897580074731 * fConst3); + fConst83 = (0.027065369757419324 * fConst54); + fConst84 = (0.009021789919139777 * fConst54); + fConst85 = (0.00902178991913977 * fConst54); + fConst86 = (0.027065369757419321 * fConst54); + fConst87 = (0.02017333553791887 * fConst59); + fConst88 = (0.020173335537918866 * fConst59); + fConst89 = (0.0 - (0.43520976043792636 * fConst34)); + fConst90 = (0.0 - (1.3056292813137793 * fConst34)); + fConst91 = (0.0 - (0.4352097604379267 * fConst34)); + fConst92 = (0.0 - (0.44721359549995782 * fConst67)); + fConst93 = (0.0 - (1.3416407864998736 * fConst67)); + fConst94 = (0.0 - (0.44721359549995815 * fConst67)); + fConst95 = (0.0 - (1.2884797242127563e-16 * fConst22)); + fConst96 = (0.0 - (2.5769594484255127e-16 * fConst22)); + fConst97 = (0.0 - (2.3211187223356089 * fConst22)); + fConst98 = (0.0 - (2.3211187223356093 * fConst22)); + fConst99 = (0.0 - (2.3211187223356085 * fConst22)); + fConst100 = (0.0 - (2.3211187223356098 * fConst22)); + fConst101 = (0.012698412698412698 * fConst28); + fConst102 = (0.0 - (1.595769121605731 * fConst22)); + fConst103 = (0.0 - (7.0866384831701748e-16 * fConst22)); + fConst104 = (0.0 - (1.417327696634035e-15 * fConst22)); + fConst105 = (0.0 - (4.7244256554467816e-16 * fConst22)); + fConst106 = (0.0 - (9.4488513108935631e-16 * fConst22)); + fConst107 = double(tgamma(7.0)); + fConst108 = double(tgamma(3.5)); + fConst109 = (sqrt((7.0 * (fConst1 / fConst107))) * fConst108); + fConst110 = (0.012698412698412698 * (0.0 - (6.3830764864229232 * fConst109))); + fConst111 = (0.0 - (2.256758334191026 * fConst109)); + fConst112 = (0.0 - (4.5135166683820547 * fConst109)); + fConst113 = (0.0 - (4.5135166683820476 * fConst109)); + fConst114 = (0.0 - (2.456847285129498 * fConst109)); + fConst115 = (0.0 - (2.456847285129494 * fConst109)); + fConst116 = (0.0 - (0.34992181344801421 * fConst109)); + fConst117 = (0.0 - (0.34992181344801365 * fConst109)); + fConst118 = (0.0 - (3.1492963210321352 * fConst109)); + fConst119 = (0.0 - (3.1492963210321379 * fConst109)); + fConst120 = (0.0 - (4.5489835748241987 * fConst109)); + fConst121 = (0.0 - (4.5489835748242058 * fConst109)); + fConst122 = double(tgamma(6.0)); + fConst123 = sqrt((7.0 * (fConst31 / fConst122))); + fConst124 = (fConst123 * fConst21); + fConst125 = (0.0 - (2.624413600860108 * fConst124)); + fConst126 = (0.0 - (2.6244136008601116 * fConst124)); + fConst127 = (0.0 - (2.6244136008601155 * fConst124)); + fConst128 = (0.0 - (2.6244136008601107 * fConst124)); + fConst129 = (0.0 - (2.6244136008601191 * fConst124)); + fConst130 = (0.0 - (3.0929010896773175 * fConst21)); + fConst131 = (fConst123 * fConst130); + fConst132 = (0.0 - (0.84852813742385691 * fConst131)); + fConst133 = (0.0 - (0.84852813742385813 * fConst131)); + fConst134 = (0.0 - (0.84852813742385658 * fConst131)); + fConst135 = (0.0 - (0.84852813742385946 * fConst131)); + fConst136 = (0.0 - (1.8557406538063874 * fConst21)); + fConst137 = (fConst123 * fConst136); + fConst138 = (0.0 - (1.4142135623730951 * fConst137)); + fConst139 = (0.0 - (6.1421182128237417 * fConst124)); + fConst140 = (0.0 - (4.3431334391370653 * fConst21)); + fConst141 = (fConst123 * fConst140); + fConst142 = (0.0 - (1.4142135623730951 * fConst141)); + fConst143 = (0.029831067331307477 * fConst140); + fConst144 = (0.029831067331307481 * fConst140); + fConst145 = (0.052943176160428845 * fConst21); + fConst146 = (0.052943176160428852 * fConst21); + fConst147 = (0.052943176160428991 * fConst21); + fConst148 = (0.052943176160428929 * fConst21); + fConst149 = (0.052943176160428963 * fConst21); + fConst150 = (0.052943176160428942 * fConst21); + fConst151 = (0.017117642829616822 * fConst130); + fConst152 = (0.017117642829616801 * fConst130); + fConst153 = (0.017117642829616815 * fConst130); + fConst154 = (0.017117642829616808 * fConst130); + fConst155 = (0.028529404716028006 * fConst136); + fConst156 = (0.028529404716028009 * fConst136); + fConst157 = sqrt((7.0 * (fConst2 / fConst20))); + fConst158 = (0.0 - (3.3851375012865379 * fConst3)); + fConst159 = (fConst157 * fConst158); + fConst160 = (0.012698412698412698 * (0.0 - (0.70710678118654757 * fConst159))); + fConst161 = (fConst157 * fConst3); + fConst162 = (0.0 - (2.5388531259649025 * fConst161)); + fConst163 = (0.0 - (0.5 * fConst159)); + fConst164 = (0.0 - (0.50000000000000011 * fConst159)); + fConst165 = (0.0 - ((3.5355339059327373 * fConst36) + (2.3936536824085963 * fConst3))); + fConst166 = (0.0 - (0.70710678118654757 * (fConst157 * fConst165))); + fConst167 = (0.0 - (0.92131773192356159 * fConst161)); + fConst168 = (0.0 - (0.92131773192356192 * fConst161)); + fConst169 = (0.0 - ((2.8867513459481291 * fConst40) + (2.7639531957706835 * fConst3))); + fConst170 = (fConst157 * fConst169); + fConst171 = (0.0 - (0.5 * fConst170)); + fConst172 = (0.0 - (0.50000000000000011 * fConst170)); + fConst173 = (0.057314497376279992 * fConst3); + fConst174 = (0.0089791337293529845 * fConst158); + fConst175 = (0.011287477954144622 * fConst158); + fConst176 = (0.011287477954144623 * fConst158); + fConst177 = (0.015962904407738641 * fConst165); + fConst178 = (0.019434045907762629 * fConst3); + fConst179 = (0.019434045907762633 * fConst3); + fConst180 = (0.010546875000000001 * fConst169); + fConst181 = (0.010546875000000002 * fConst169); + fConst182 = (0.045001699736364593 * fConst3); + fConst183 = (0.0 - (1.7605101637794649 * fConst3)); + fConst184 = (0.0045108949595698937 * fConst183); + fConst185 = (0.013532684878709664 * fConst183); + fConst186 = (0.013532684878709665 * fConst183); + fConst187 = (0.0045108949595698946 * fConst183); + fConst188 = (0.0 - ((1.5075567228888176 * fConst54) + (3.2276019669290172 * fConst3))); + fConst189 = (0.0045108949595698937 * fConst188); + fConst190 = (0.013532684878709664 * fConst188); + fConst191 = (0.013532684878709665 * fConst188); + fConst192 = (0.0045108949595698946 * fConst188); + fConst193 = (0.0 - ((4.5226701686664557 * fConst59) + (1.4434274804730605 * fConst3))); + fConst194 = (0.010086667768959437 * fConst193); + fConst195 = (0.0 - (2.230751560731095 * fConst161)); + fConst196 = (0.0 - (2.2307515607310959 * fConst161)); + fConst197 = (fConst157 * fConst183); + fConst198 = (0.0 - (0.22360679774997916 * fConst197)); + fConst199 = (0.0 - (0.67082039324993692 * fConst197)); + fConst200 = (0.0 - (0.67082039324993703 * fConst197)); + fConst201 = (0.0 - (0.22360679774997969 * fConst197)); + fConst202 = (fConst157 * fConst188); + fConst203 = (0.0 - (0.22360679774997916 * fConst202)); + fConst204 = (0.0 - (0.67082039324993692 * fConst202)); + fConst205 = (0.0 - (0.67082039324993703 * fConst202)); + fConst206 = (0.0 - (0.22360679774997969 * fConst202)); + fConst207 = (fConst157 * fConst193); + fConst208 = (0.0 - (0.5 * fConst207)); + fConst209 = (0.0 - (0.50000000000000011 * fConst207)); + fConst210 = (0.01128747795414462 * fConst158); + fConst211 = (0.019434045907762626 * fConst3); + fConst212 = (0.010546874999999999 * fConst169); + fConst213 = (0.045001699736364587 * fConst3); + fConst214 = (0.045001699736364573 * fConst3); + fConst215 = (0.013532684878709662 * fConst183); + fConst216 = (0.0045108949595698885 * fConst183); + fConst217 = (0.004510894959569885 * fConst183); + fConst218 = (0.01353268487870966 * fConst183); + fConst219 = (0.013532684878709662 * fConst188); + fConst220 = (0.0045108949595698885 * fConst188); + fConst221 = (0.004510894959569885 * fConst188); + fConst222 = (0.01353268487870966 * fConst188); + fConst223 = (0.010086667768959435 * fConst193); + fConst224 = (0.010086667768959433 * fConst193); + fConst225 = (0.0 - (0.22360679774997891 * fConst197)); + fConst226 = (0.0 - (0.67082039324993681 * fConst197)); + fConst227 = (0.0 - (0.22360679774997907 * fConst197)); + fConst228 = (0.0 - (0.22360679774997891 * fConst202)); + fConst229 = (0.0 - (0.67082039324993681 * fConst202)); + fConst230 = (0.0 - (0.22360679774997907 * fConst202)); + fConst231 = (0.0 - (5.8273688116286149e-16 * fConst124)); + fConst232 = (0.0 - (1.165473762325723e-15 * fConst124)); + fConst233 = (0.0 - (3.4992181344801496 * fConst124)); + fConst234 = (0.0 - (3.4992181344801501 * fConst124)); + fConst235 = (0.0 - (3.4992181344801487 * fConst124)); + fConst236 = (0.0 - (3.4992181344801505 * fConst124)); + fConst237 = (0.0 - (1.1313708498984762 * fConst131)); + fConst238 = (0.0 - (1.1313708498984758 * fConst131)); + fConst239 = (0.0 - (1.1313708498984765 * fConst131)); + fConst240 = (0.0 - (3.1401849173675503e-16 * fConst137)); + fConst241 = (0.0 - (6.2803698347351007e-16 * fConst137)); + fConst242 = (0.0 - (5.6418958354775643 * fConst124)); + fConst243 = (0.0 - (3.9894228040143274 * fConst21)); + fConst244 = (0.0 - (1.4142135623730951 * (fConst123 * fConst243))); + fConst245 = (0.0 - (1.3638242119692871e-15 * fConst124)); + fConst246 = (0.0 - (2.7276484239385742e-15 * fConst124)); + fConst247 = (0.0 - (3.1401849173675503e-16 * fConst141)); + fConst248 = (0.0 - (6.2803698347351007e-16 * fConst141)); + fConst249 = (0.12736554972506672 * fConst21); + fConst250 = (0.031925808815477283 * fConst243); + fConst251 = (2.8768166971227152e-17 * fConst21); + fConst252 = (5.7536333942454304e-17 * fConst21); + fConst253 = (6.6238275600721768e-18 * fConst140); + fConst254 = (1.3247655120144354e-17 * fConst140); + fConst255 = (2.3511493268037518e-17 * fConst21); + fConst256 = (0.070590901547238516 * fConst21); + fConst257 = (0.070590901547238558 * fConst21); + fConst258 = (0.07059090154723846 * fConst21); + fConst259 = (0.022823523772822384 * fConst130); + fConst260 = (0.022823523772822398 * fConst130); + fConst261 = (0.022823523772822367 * fConst130); + fConst262 = (1.2669600797833527e-17 * fConst136); + fConst263 = (0.0 - (0.34992181344801404 * fConst109)); + fConst264 = (0.0 - (0.34992181344801415 * fConst109)); + fConst265 = (0.0 - (4.548983574824196 * fConst109)); + fConst266 = (0.0 - (3.1492963210321285 * fConst109)); + fConst267 = (0.0 - (3.1492963210321339 * fConst109)); + fConst268 = (0.0 - (4.5489835748241934 * fConst109)); + fConst269 = (0.0 - (4.5135166683820485 * fConst109)); + fConst270 = (0.0 - (4.5135166683820538 * fConst109)); + fConst271 = (0.0 - (2.4568472851294949 * fConst109)); + fConst272 = (0.0 - (2.4568472851294976 * fConst109)); + fConst273 = (double(tgamma(4.5)) * sqrt((9.0 * (fConst1 / double(tgamma(9.0)))))); + fConst274 = (0.0 - (1.9878387281720961e-16 * fConst273)); + fConst275 = (0.0 - (10.128518061100836 * fConst273)); + fConst276 = (0.0 - (10.128518061100845 * fConst273)); + fConst277 = (0.0 - (10.12851806110084 * fConst273)); + fConst278 = (0.0 - (10.12851806110085 * fConst273)); + fConst279 = sqrt((9.0 * (fConst31 / double(tgamma(8.0))))); + fConst280 = (fConst108 * fConst279); + fConst281 = (0.0 - (11.170383851240118 * fConst280)); + fConst282 = (0.0 - (7.898654169668589 * fConst108)); + fConst283 = (0.0 - (1.4142135623730951 * (fConst279 * fConst282))); + fConst284 = (0.0 - (9.9292300899912185 * fConst280)); + fConst285 = (0.0 - (9.9292300899912025 * fConst280)); + fConst286 = (0.0 - (9.9292300899912096 * fConst108)); + fConst287 = (fConst279 * fConst286); + fConst288 = (0.0 - (1.0000000000000009 * fConst287)); + fConst289 = (0.0 - (0.99999999999999933 * fConst287)); + fConst290 = (0.25217092292041182 * fConst108); + fConst291 = (0.031925808815477283 * fConst282); + fConst292 = (0.20944469721075218 * fConst108); + fConst293 = (0.20944469721075201 * fConst108); + fConst294 = (0.021093750000000012 * fConst286); + fConst295 = (0.021093749999999994 * fConst286); + fConst296 = (0.044696311044975172 * fConst108); + fConst297 = (0.19368401452822653 * fConst108); + fConst298 = (0.19368401452822659 * fConst108); + fConst299 = (0.13408893313492587 * fConst108); + fConst300 = (0.13408893313492612 * fConst108); + fConst301 = (0.0 - (8.2571033474838984 * fConst108)); + fConst302 = (0.023456653789763436 * fConst301); + fConst303 = (0.02345665378976344 * fConst301); + fConst304 = (0.016239221854451587 * fConst301); + fConst305 = (0.016239221854451615 * fConst301); + fConst306 = (0.0 - (2.2156133258658013 * fConst108)); + fConst307 = (0.020173335537918863 * fConst306); + fConst308 = (0.0 - (2.2156133258658035 * fConst280)); + fConst309 = (0.0 - (2.2156133258658 * fConst280)); + fConst310 = (0.0 - (6.6468399775974225 * fConst280)); + fConst311 = (0.0 - (6.6468399775974278 * fConst280)); + fConst312 = (0.0 - (9.6009910787518393 * fConst280)); + fConst313 = (0.0 - (9.6009910787518553 * fConst280)); + fConst314 = (fConst279 * fConst301); + fConst315 = (0.0 - (0.80498447189992428 * fConst314)); + fConst316 = (0.0 - (0.80498447189992484 * fConst314)); + fConst317 = (0.0 - (1.1627553482998914 * fConst314)); + fConst318 = (0.0 - (1.1627553482998934 * fConst314)); + fConst319 = (fConst279 * fConst306); + fConst320 = (0.0 - (1.0000000000000009 * fConst319)); + fConst321 = (0.0 - (0.99999999999999933 * fConst319)); + fConst322 = sqrt((9.0 * (fConst2 / fConst107))); + fConst323 = (fConst21 * fConst322); + fConst324 = (0.0 - (6.8578507705370146 * fConst323)); + fConst325 = (0.0 - (3.7301790647785582 * fConst21)); + fConst326 = (fConst322 * fConst325); + fConst327 = (0.0 - (0.42426406871192845 * fConst326)); + fConst328 = (0.0 - (0.42426406871192907 * fConst326)); + fConst329 = (0.0 - (0.42426406871192829 * fConst326)); + fConst330 = (0.0 - (0.42426406871192973 * fConst326)); + fConst331 = (0.0 - ((2.1105794120443448 * fConst130) + (10.257992428141025 * fConst21))); + fConst332 = (fConst322 * fConst331); + fConst333 = (0.0 - (0.42426406871192845 * fConst332)); + fConst334 = (0.0 - (0.42426406871192907 * fConst332)); + fConst335 = (0.0 - (0.42426406871192829 * fConst332)); + fConst336 = (0.0 - (0.42426406871192973 * fConst332)); + fConst337 = (0.0 - ((6.3317382361330381 * fConst136) + (2.0515984856282001 * fConst21))); + fConst338 = (fConst322 * fConst337); + fConst339 = (0.0 - (0.70710678118654757 * fConst338)); + fConst340 = (0.0 - (11.283791670955125 * fConst21)); + fConst341 = (fConst322 * fConst340); + fConst342 = (0.0 - (0.70710678118654757 * fConst341)); + fConst343 = (0.022574955908289243 * fConst342); + fConst344 = (0.0 - (7.0923072071365816 * fConst323)); + fConst345 = (0.0 - ((4.0414518843273806 * fConst140) + (7.5225277806367483 * fConst21))); + fConst346 = (fConst322 * fConst345); + fConst347 = (0.0 - (0.70710678118654757 * fConst346)); + fConst348 = (0.14960335515053727 * fConst21); + fConst349 = (0.14960335515053733 * fConst21); + fConst350 = (0.014915533665653739 * fConst345); + fConst351 = (0.01491553366565374 * fConst345); + fConst352 = (0.13834572466301867 * fConst21); + fConst353 = (0.1383457246630187 * fConst21); + fConst354 = (0.008558821414808411 * fConst325); + fConst355 = (0.0085588214148084006 * fConst325); + fConst356 = (0.0085588214148084076 * fConst325); + fConst357 = (0.0085588214148084041 * fConst325); + fConst358 = (0.008558821414808411 * fConst331); + fConst359 = (0.0085588214148084006 * fConst331); + fConst360 = (0.0085588214148084076 * fConst331); + fConst361 = (0.0085588214148084041 * fConst331); + fConst362 = (0.014264702358014003 * fConst337); + fConst363 = (0.014264702358014004 * fConst337); + fConst364 = sqrt((9.0 * (fConst32 / fConst122))); + fConst365 = (fConst3 * fConst364); + fConst366 = (0.0 - (0.99735570100357918 * fConst365)); + fConst367 = (0.0 - ((2.4748737341529159 * fConst165) + (4.0 * fConst36))); + fConst368 = (0.0 - (0.47140452079103168 * (fConst364 * fConst367))); + fConst369 = (0.0 - (2.6596152026762163 * fConst3)); + fConst370 = (fConst364 * fConst369); + fConst371 = (0.0 - (0.33333333333333331 * fConst370)); + fConst372 = (0.0 - (0.33333333333333343 * fConst370)); + fConst373 = (0.0 - ((2.0207259421636903 * fConst169) + (4.0 * fConst40))); + fConst374 = (fConst364 * fConst373); + fConst375 = (0.0 - (0.33333333333333331 * fConst374)); + fConst376 = (0.0 - (0.33333333333333343 * fConst374)); + fConst377 = (0.02251526097503671 * fConst3); + fConst378 = (0.010641936271825759 * fConst367); + fConst379 = (0.0070312500000000002 * fConst369); + fConst380 = (0.007031250000000001 * fConst369); + fConst381 = (0.0070312500000000002 * fConst373); + fConst382 = (0.007031250000000001 * fConst373); + fConst383 = (0.059861130863806261 * fConst3); + fConst384 = ((1.0552897060221724 * fConst183) - (3.8926344352424089 * fConst3)); + fConst385 = (0.0030072633063799288 * fConst384); + fConst386 = (0.0090217899191397753 * fConst384); + fConst387 = (0.009021789919139777 * fConst384); + fConst388 = (0.0030072633063799293 * fConst384); + fConst389 = (0.0 - ((1.0552897060221724 * fConst188) + (4.0 * fConst54))); + fConst390 = (0.0030072633063799288 * fConst389); + fConst391 = (0.0090217899191397753 * fConst389); + fConst392 = (0.009021789919139777 * fConst389); + fConst393 = (0.0030072633063799293 * fConst389); + fConst394 = (0.0 - ((3.1658691180665191 * fConst193) + (4.0 * fConst59))); + fConst395 = (0.0067244451793062911 * fConst394); + fConst396 = (0.0 - (2.9673392757131363 * fConst365)); + fConst397 = (0.0 - (2.9673392757131376 * fConst365)); + fConst398 = (fConst364 * fConst384); + fConst399 = (0.0 - (0.1490711984999861 * fConst398)); + fConst400 = (0.0 - (0.44721359549995793 * fConst398)); + fConst401 = (0.0 - (0.44721359549995798 * fConst398)); + fConst402 = (0.0 - (0.14907119849998646 * fConst398)); + fConst403 = (fConst364 * fConst389); + fConst404 = (0.0 - (0.1490711984999861 * fConst403)); + fConst405 = (0.0 - (0.44721359549995793 * fConst403)); + fConst406 = (0.0 - (0.44721359549995798 * fConst403)); + fConst407 = (0.0 - (0.14907119849998646 * fConst403)); + fConst408 = (fConst364 * fConst394); + fConst409 = (0.0 - (0.33333333333333331 * fConst408)); + fConst410 = (0.0 - (0.33333333333333343 * fConst408)); + fConst411 = (0.0070312499999999993 * fConst369); + fConst412 = (0.0070312499999999993 * fConst373); + fConst413 = (0.059861130863806254 * fConst3); + fConst414 = (0.05986113086380624 * fConst3); + fConst415 = (0.0030072633063799254 * fConst384); + fConst416 = (0.0030072633063799232 * fConst384); + fConst417 = (0.0090217899191397718 * fConst384); + fConst418 = (0.0030072633063799254 * fConst389); + fConst419 = (0.0030072633063799232 * fConst389); + fConst420 = (0.0090217899191397718 * fConst389); + fConst421 = (0.0067244451793062893 * fConst394); + fConst422 = (0.0067244451793062885 * fConst394); + fConst423 = (0.0 - (0.14907119849998593 * fConst398)); + fConst424 = (0.0 - (0.44721359549995787 * fConst398)); + fConst425 = (0.0 - (0.14907119849998604 * fConst398)); + fConst426 = (0.0 - (0.14907119849998593 * fConst403)); + fConst427 = (0.0 - (0.44721359549995787 * fConst403)); + fConst428 = (0.0 - (0.14907119849998604 * fConst403)); + fConst429 = (0.0 - (1.522748764978713e-15 * fConst323)); + fConst430 = (0.0 - (3.0454975299574259e-15 * fConst323)); + fConst431 = (0.0 - (0.56568542494923812 * fConst326)); + fConst432 = (0.0 - (0.5656854249492379 * fConst326)); + fConst433 = (0.0 - (0.56568542494923824 * fConst326)); + fConst434 = (0.0 - (0.56568542494923812 * fConst332)); + fConst435 = (0.0 - (0.5656854249492379 * fConst332)); + fConst436 = (0.0 - (0.56568542494923824 * fConst332)); + fConst437 = (0.0 - (1.5700924586837752e-16 * fConst338)); + fConst438 = (0.0 - (3.1401849173675503e-16 * fConst338)); + fConst439 = (0.012698412698412698 * fConst342); + fConst440 = (0.0 - (9.9735570100358153 * fConst323)); + fConst441 = (0.0 - (1.5700924586837752e-16 * fConst341)); + fConst442 = (0.0 - (3.1401849173675503e-16 * fConst341)); + fConst443 = (0.0 - ((4.9497474683058318 * fConst243) + (5.6418958354775643 * fConst21))); + fConst444 = (0.0 - (0.70710678118654757 * (fConst322 * fConst443))); + fConst445 = (0.0 - (1.5748085518155944e-15 * fConst323)); + fConst446 = (0.0 - (3.1496171036311889e-15 * fConst323)); + fConst447 = (0.0 - (1.5700924586837752e-16 * fConst346)); + fConst448 = (0.0 - (3.1401849173675503e-16 * fConst346)); + fConst449 = (0.0089791337293529845 * fConst340); + fConst450 = (0.22515260975036763 * fConst21); + fConst451 = (3.5444768026723675e-18 * fConst340); + fConst452 = (7.088953605344735e-18 * fConst340); + fConst453 = (0.015962904407738641 * fConst443); + fConst454 = (3.3218617889860196e-17 * fConst21); + fConst455 = (6.6437235779720392e-17 * fConst21); + fConst456 = (3.3119137800360884e-18 * fConst345); + fConst457 = (6.6238275600721768e-18 * fConst345); + fConst458 = (6.1437843551734282e-17 * fConst21); + fConst459 = (0.011411761886411192 * fConst325); + fConst460 = (0.011411761886411199 * fConst325); + fConst461 = (0.011411761886411183 * fConst325); + fConst462 = (0.011411761886411192 * fConst331); + fConst463 = (0.011411761886411199 * fConst331); + fConst464 = (0.011411761886411183 * fConst331); + fConst465 = (6.3348003989167635e-18 * fConst337); + fConst466 = (0.0 - (2.2156133258658022 * fConst280)); + fConst467 = (0.0 - (2.2156133258658031 * fConst280)); + fConst468 = (0.0 - (9.600991078751834 * fConst280)); + fConst469 = (0.0 - (6.6468399775974083 * fConst280)); + fConst470 = (0.0 - (6.6468399775974198 * fConst280)); + fConst471 = (0.0 - (9.6009910787518287 * fConst280)); + fConst472 = (0.0 - (1.1627553482998907 * fConst314)); + fConst473 = (0.0 - (0.8049844718999225 * fConst314)); + fConst474 = (0.0 - (0.80498447189992395 * fConst314)); + fConst475 = (0.0 - (1.1627553482998902 * fConst314)); + fConst476 = (0.0 - (1.0000000000000004 * fConst319)); + fConst477 = (0.0 - (1.0000000000000007 * fConst319)); + fConst478 = (0.0 - (9.929230089991206 * fConst280)); + fConst479 = (0.0 - (9.9292300899912167 * fConst280)); + fConst480 = (0.0 - (0.99999999999999967 * fConst287)); + fConst481 = (0.0 - (1.0000000000000007 * fConst287)); + fConst482 = (0.20944469721075193 * fConst108); + fConst483 = (0.021093749999999988 * fConst286); + fConst484 = (0.044696311044975207 * fConst108); + fConst485 = (0.044696311044975165 * fConst108); + fConst486 = (0.13408893313492565 * fConst108); + fConst487 = (0.19368401452822634 * fConst108); + fConst488 = (0.19368401452822642 * fConst108); + fConst489 = (0.13408893313492534 * fConst108); + fConst490 = (0.01623922185445156 * fConst301); + fConst491 = (0.023456653789763415 * fConst301); + fConst492 = (0.023456653789763426 * fConst301); + fConst493 = (0.016239221854451522 * fConst301); + fConst494 = (0.02017333553791888 * fConst306); + fConst495 = (0.020173335537918856 * fConst306); + fConst496 = (0.0 - (12.766152972845845 * fConst273)); + fConst497 = (0.0 - (12.766152972845846 * fConst273)); + fConst498 = (0.0 - (5.6738457657092614 * fConst273)); + fConst499 = (0.0 - (5.6738457657092622 * fConst273)); + fConst500 = (0.02017333553791887 * (0.0 - (0.42202158587919975 * fConst273))); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec12[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec14[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec18[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec19[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec20[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36e3900", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36fd560", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3707f80", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3719d10", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x372ed00", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3751ae0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x375c970", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3773880", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x378bc00", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37a55a0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37c2960", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37ebae0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x37f2890", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x380ad90", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3828e70", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x383efd0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38530d0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3876150", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3896e70", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38bb290", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38c2d20", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38d8950", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x38f9600", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3916590", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3928fb0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input0[i]); + double fTemp1 = double(input1[i]); + double fTemp2 = double(input2[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = double(input4[i]); + double fTemp5 = double(input5[i]); + double fTemp6 = double(input6[i]); + double fTemp7 = double(input7[i]); + double fTemp8 = double(input8[i]); + double fTemp9 = double(input9[i]); + double fTemp10 = (((fTemp6 + fTemp7) + fTemp8) + fTemp9); + double fTemp11 = double(input10[i]); + double fTemp12 = double(input11[i]); + double fTemp13 = double(input12[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input14[i]); + double fTemp16 = double(input15[i]); + double fTemp17 = double(input16[i]); + double fTemp18 = double(input17[i]); + double fTemp19 = double(input18[i]); + double fTemp20 = double(input19[i]); + double fTemp21 = double(input20[i]); + double fTemp22 = double(input21[i]); + double fTemp23 = (((fTemp19 + fTemp20) + fTemp21) + fTemp22); + double fTemp24 = double(input22[i]); + double fTemp25 = double(input23[i]); + double fTemp26 = double(input24[i]); + double fTemp27 = double(input25[i]); + double fTemp28 = ((((fTemp23 + fTemp24) + fTemp25) + fTemp26) + fTemp27); + double fTemp29 = double(input26[i]); + double fTemp30 = double(input27[i]); + double fTemp31 = (fTemp29 + fTemp30); + double fTemp32 = double(input28[i]); + double fTemp33 = double(input29[i]); + double fTemp34 = ((fTemp31 + fTemp32) + fTemp33); + double fTemp35 = double(input30[i]); + double fTemp36 = double(input31[i]); + double fTemp37 = double(input32[i]); + double fTemp38 = double(input33[i]); + double fTemp39 = double(input34[i]); + double fTemp40 = double(input35[i]); + double fTemp41 = double(input36[i]); + double fTemp42 = double(input37[i]); + double fTemp43 = double(input38[i]); + double fTemp44 = double(input39[i]); + double fTemp45 = double(input40[i]); + double fTemp46 = double(input41[i]); + double fTemp47 = double(input42[i]); + double fTemp48 = double(input43[i]); + double fTemp49 = double(input44[i]); + double fTemp50 = double(input45[i]); + double fTemp51 = double(input46[i]); + double fTemp52 = double(input47[i]); + double fTemp53 = double(input48[i]); + double fTemp54 = double(input49[i]); + double fTemp55 = (fRec1[0] * ((((0.012698412698412698 * (((((fTemp0 + fTemp1) + fTemp2) + fTemp3) + fTemp4) + fTemp5)) + (0.022574955908289243 * ((((((((fTemp10 + fTemp11) + fTemp12) + fTemp13) + fTemp14) + fTemp15) + fTemp16) + fTemp17) + fTemp18))) + (0.021093750000000001 * fTemp28)) + (0.02017333553791887 * ((((((((((((((((((((fTemp34 + fTemp35) + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42) + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50) + fTemp51) + fTemp52) + fTemp53) + fTemp54)))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (fRec1[0] * (((((fConst5 * fTemp4) + (0.022574955908289243 * ((((fConst6 * fTemp9) + (fConst7 * fTemp13)) + (fConst8 * fTemp14)) + (fConst6 * fTemp18)))) + (0.021093750000000001 * ((((fConst9 * fTemp21) + (fConst10 * fTemp22)) + (fConst9 * fTemp26)) + (fConst10 * fTemp27)))) + (fConst4 * (((((((((((((((((((((0.02026373487753309 * fTemp2) + (0.025473109945013343 * fTemp7)) + (0.025473109945013336 * fTemp11)) + (0.025473109945013343 * fTemp12)) + (0.025473109945013343 * fTemp16)) + (0.019434045907762619 * fTemp19)) + (0.019434045907762623 * fTemp20)) + (0.019434045907762619 * fTemp24)) + (0.019434045907762623 * fTemp25)) + (0.0097062489627452973 * fTemp29)) + (0.0097062489627452973 * fTemp30)) + (0.0097062489627453199 * fTemp35)) + (0.029118746888235923 * fTemp36)) + (0.029118746888235927 * fTemp37)) + (0.0097062489627453216 * fTemp38)) + (0.0097062489627453199 * fTemp43)) + (0.029118746888235923 * fTemp44)) + (0.029118746888235927 * fTemp45)) + (0.0097062489627453216 * fTemp46)) + (0.0097062489627452973 * fTemp51)) + (0.0097062489627452973 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst11 * fTemp32) + (fConst12 * fTemp33)) + (fConst13 * fTemp39)) + (fConst14 * fTemp40)) + (fConst15 * fTemp41)) + (fConst16 * fTemp42)) + (fConst13 * fTemp47)) + (fConst14 * fTemp48)) + (fConst15 * fTemp49)) + (fConst16 * fTemp50)) + (fConst11 * fTemp53)) + (fConst12 * fTemp54))))); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (fTemp0 - fTemp5); + double fTemp58 = ((((fTemp10 - fTemp15) - fTemp16) - fTemp17) - fTemp18); + double fTemp59 = ((((fTemp23 - fTemp24) - fTemp25) - fTemp26) - fTemp27); + double fTemp60 = (((((((fTemp35 + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42); + double fTemp61 = ((((((((fTemp60 - fTemp43) - fTemp44) - fTemp45) - fTemp46) - fTemp47) - fTemp48) - fTemp49) - fTemp50); + double fTemp62 = ((((fTemp34 - fTemp51) - fTemp52) - fTemp53) - fTemp54); + double fTemp63 = (fRec1[0] * (((((0.021994295969128601 * fTemp57) + (0.027648561470568499 * fTemp58)) + (0.021093750000000001 * fTemp59)) + (0.010535180889746075 * fTemp61)) + (0.031605542669238249 * fTemp62))); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + output2[i] = FAUSTFLOAT(fTemp63); + double fTemp64 = (fRec1[0] * ((fConst4 * (((((((((((((((((((((0.02026373487753309 * fTemp1) + (0.025473109945013343 * fTemp6)) + (0.025473109945013343 * fTemp11)) + (0.025473109945013332 * fTemp14)) + (0.025473109945013343 * fTemp15)) + (0.019434045907762623 * fTemp19)) + (0.019434045907762616 * fTemp22)) + (0.019434045907762623 * fTemp24)) + (0.019434045907762616 * fTemp27)) + (0.0097062489627452956 * fTemp29)) + (0.0097062489627452939 * fTemp33)) + (0.029118746888235916 * fTemp35)) + (0.0097062489627453077 * fTemp36)) + (0.0097062489627453008 * fTemp41)) + (0.029118746888235913 * fTemp42)) + (0.029118746888235916 * fTemp43)) + (0.0097062489627453077 * fTemp44)) + (0.0097062489627453008 * fTemp49)) + (0.029118746888235913 * fTemp50)) + (0.0097062489627452956 * fTemp51)) + (0.0097062489627452939 * fTemp54))) + ((((fConst5 * fTemp3) + (0.022574955908289243 * ((((fConst6 * fTemp8) + (fConst7 * fTemp12)) + (fConst8 * fTemp13)) + (fConst6 * fTemp17)))) + (0.021093750000000001 * ((((fConst9 * fTemp20) + (fConst10 * fTemp21)) + (fConst9 * fTemp25)) + (fConst10 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst11 * fTemp30) + (fConst12 * fTemp32)) + (fConst17 * fTemp37)) + (fConst18 * fTemp38)) + (fConst14 * fTemp39)) + (fConst19 * fTemp40)) + (fConst17 * fTemp45)) + (fConst18 * fTemp46)) + (fConst14 * fTemp47)) + (fConst19 * fTemp48)) + (fConst11 * fTemp52)) + (fConst12 * fTemp53)))))); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph3 = FAUSTFLOAT(fRec4[0]); + output3[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fTemp30 + fTemp33); + double fTemp66 = (fTemp12 + fTemp14); + double fTemp67 = (fTemp20 + fTemp22); + double fTemp68 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst23 * fTemp65) + (fConst24 * fTemp37)) + (fConst25 * fTemp38)) + (fConst26 * fTemp41)) + (fConst27 * fTemp42)) + (fConst24 * fTemp45)) + (fConst25 * fTemp46)) + (fConst26 * fTemp49)) + (fConst27 * fTemp50)) + (fConst23 * fTemp52)) + (fConst23 * fTemp54))) + (((fConst29 * fTemp66) + (fConst30 * ((fTemp67 + fTemp25) + fTemp27))) + (fConst22 * ((((((((((((((((((0.072048835120117657 * fTemp11) + (0.072048835120117671 * fTemp13)) + (0.044881006545161167 * fTemp19)) + (0.044881006545161174 * fTemp21)) + (0.044881006545161167 * fTemp24)) + (0.044881006545161174 * fTemp26)) + (0.011706176702255417 * fTemp29)) + (0.011706176702255421 * fTemp32)) + (0.035118530106766375 * fTemp35)) + (0.035118530106766334 * fTemp36)) + (0.035118530106766362 * fTemp39)) + (0.035118530106766348 * fTemp40)) + (0.035118530106766375 * fTemp43)) + (0.035118530106766334 * fTemp44)) + (0.035118530106766362 * fTemp47)) + (0.035118530106766348 * fTemp48)) + (0.011706176702255417 * fTemp51)) + (0.011706176702255421 * fTemp53)))))); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + output4[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = (fConst46 * fTemp19); + double fTemp70 = (fRec1[0] * ((((0.022574955908289243 * ((fConst35 * fTemp9) + (fConst37 * fTemp18))) + (0.021093750000000001 * ((((fConst38 * fTemp21) + (fConst39 * fTemp22)) + (fConst42 * fTemp26)) + (fConst43 * fTemp27)))) + (fConst33 * ((((((((((((((((((fConst44 * fTemp7) + (fConst45 * fTemp16)) + fTemp69) + (fConst46 * fTemp20)) + (fConst47 * fTemp24)) + (fConst48 * fTemp25)) + (fConst49 * fTemp29)) + (fConst49 * fTemp30)) + (fConst50 * fTemp35)) + (fConst51 * fTemp36)) + (fConst52 * fTemp37)) + (fConst53 * fTemp38)) + (fConst55 * fTemp43)) + (fConst56 * fTemp44)) + (fConst57 * fTemp45)) + (fConst58 * fTemp46)) + (fConst60 * fTemp51)) + (fConst60 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst61 * fTemp32) + (fConst62 * fTemp33)) + (fConst63 * fTemp39)) + (fConst64 * fTemp40)) + (fConst65 * fTemp41)) + (fConst66 * fTemp42)) + (fConst68 * fTemp47)) + (fConst69 * fTemp48)) + (fConst70 * fTemp49)) + (fConst71 * fTemp50)) + (fConst73 * fTemp53)) + (fConst74 * fTemp54))))); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph5 = FAUSTFLOAT(fRec6[0]); + output5[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = ((((fTemp10 + fTemp15) + fTemp16) + fTemp17) + fTemp18); + double fTemp72 = (fTemp0 + fTemp5); + double fTemp73 = ((((fTemp34 + fTemp51) + fTemp52) + fTemp53) + fTemp54); + double fTemp74 = (((fTemp1 + fTemp2) + fTemp3) + fTemp4); + double fTemp75 = (((fTemp11 + fTemp12) + fTemp13) + fTemp14); + double fTemp76 = ((((((((fTemp60 + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50); + double fTemp77 = (fRec1[0] * ((((0.01261978399999881 * fTemp71) + ((0.028394513999997331 * fTemp72) + (5.236595479505967e-18 * fTemp28))) + (0.032806508796871948 * fTemp73)) - (((0.014197256999998666 * fTemp74) + (0.025239567999997631 * fTemp75)) + (0.01640325439843596 * fTemp76)))); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + output6[i] = FAUSTFLOAT(fTemp77); + double fTemp78 = (fRec1[0] * ((fConst33 * ((((((((((((((((fTemp69 + ((fConst44 * fTemp6) + (fConst45 * fTemp15))) + (fConst75 * fTemp22)) + (fConst48 * fTemp24)) + (fConst76 * fTemp27)) + (fConst77 * fTemp29)) + (fConst78 * fTemp33)) + (fConst79 * fTemp35)) + (fConst80 * fTemp36)) + (fConst81 * fTemp41)) + (fConst82 * fTemp42)) + (fConst83 * fTemp43)) + (fConst84 * fTemp44)) + (fConst85 * fTemp49)) + (fConst86 * fTemp50)) + (fConst87 * fTemp51)) + (fConst88 * fTemp54))) + (((0.022574955908289243 * ((fConst35 * fTemp8) + (fConst37 * fTemp17))) + (0.021093750000000001 * ((((fConst38 * fTemp20) + (fConst39 * fTemp21)) + (fConst42 * fTemp25)) + (fConst43 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst61 * fTemp30) + (fConst62 * fTemp32)) + (fConst89 * fTemp37)) + (fConst90 * fTemp38)) + (fConst64 * fTemp39)) + (fConst91 * fTemp40)) + (fConst92 * fTemp45)) + (fConst93 * fTemp46)) + (fConst69 * fTemp47)) + (fConst94 * fTemp48)) + (fConst73 * fTemp52)) + (fConst74 * fTemp53)))))); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph7 = FAUSTFLOAT(fRec8[0]); + output7[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = (fTemp2 + fTemp4); + double fTemp80 = (fTemp7 + fTemp9); + double fTemp81 = (fTemp1 + fTemp3); + double fTemp82 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst95 * fTemp31) + (fConst96 * fTemp33)) + (fConst97 * fTemp36)) + (fConst98 * fTemp37)) + (fConst99 * fTemp40)) + (fConst100 * fTemp41)) + (fConst97 * fTemp44)) + (fConst98 * fTemp45)) + (fConst99 * fTemp48)) + (fConst100 * fTemp49)) + (fConst95 * fTemp51)) + (fConst95 * fTemp52)) + (fConst96 * fTemp54))) + ((((fConst101 * fTemp79) + (0.022574955908289243 * ((fConst102 * fTemp18) + ((((fConst102 * fTemp80) + (fConst103 * fTemp12)) + (fConst104 * fTemp14)) + (fConst102 * fTemp16))))) + (0.021093750000000001 * ((((fConst105 * fTemp20) + (fConst106 * fTemp22)) + (fConst105 * fTemp25)) + (fConst106 * fTemp27)))) + (fConst22 * (((((((((((((((((((((0.04052746975506618 * fTemp81) + (0.036024417560058836 * fTemp6)) + (0.036024417560058836 * fTemp8)) + (1.5998055129555246e-17 * fTemp11)) + (3.1996110259110492e-17 * fTemp13)) + (0.036024417560058836 * fTemp15)) + (0.036024417560058836 * fTemp17)) + (9.9655853669580557e-18 * fTemp19)) + (1.9931170733916111e-17 * fTemp21)) + (9.9655853669580557e-18 * fTemp24)) + (1.9931170733916111e-17 * fTemp26)) + (5.19858676206982e-18 * fTemp32)) + (0.046824706809021746 * fTemp35)) + (0.046824706809021746 * fTemp38)) + (0.046824706809021774 * fTemp39)) + (0.046824706809021698 * fTemp42)) + (0.046824706809021746 * fTemp43)) + (0.046824706809021746 * fTemp46)) + (0.046824706809021774 * fTemp47)) + (0.046824706809021698 * fTemp50)) + (5.19858676206982e-18 * fTemp53)))))); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + output8[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = (fRec1[0] * (((((fConst110 * fTemp2) + (0.022574955908289243 * ((((fConst111 * fTemp7) + (fConst112 * fTemp13)) + (fConst113 * fTemp14)) + (fConst111 * fTemp16)))) + (0.021093750000000001 * ((((fConst114 * fTemp21) + (fConst115 * fTemp22)) + (fConst114 * fTemp26)) + (fConst115 * fTemp27)))) + (fConst109 * (((((((((((((((((((((0.081054939510132359 * fTemp4) + (0.050946219890026692 * fTemp9)) + (0.10189243978005338 * fTemp11)) + (0.1018924397800533 * fTemp12)) + (0.050946219890026692 * fTemp18)) + (0.051824122420700336 * fTemp19)) + (0.051824122420700287 * fTemp20)) + (0.051824122420700336 * fTemp24)) + (0.051824122420700287 * fTemp25)) + (0.0070590901547238332 * fTemp29)) + (0.0070590901547238332 * fTemp30)) + (0.091768172011410243 * fTemp35)) + (0.091768172011410271 * fTemp38)) + (0.063531811392514695 * fTemp40)) + (0.063531811392514792 * fTemp41)) + (0.091768172011410243 * fTemp43)) + (0.091768172011410271 * fTemp46)) + (0.063531811392514695 * fTemp48)) + (0.063531811392514792 * fTemp49)) + (0.0070590901547238332 * fTemp51)) + (0.0070590901547238332 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst116 * fTemp32) + (fConst117 * fTemp33)) + (fConst118 * fTemp36)) + (fConst119 * fTemp37)) + (fConst120 * fTemp39)) + (fConst121 * fTemp42)) + (fConst118 * fTemp44)) + (fConst119 * fTemp45)) + (fConst120 * fTemp47)) + (fConst121 * fTemp50)) + (fConst116 * fTemp53)) + (fConst117 * fTemp54))))); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph9 = FAUSTFLOAT(fRec10[0]); + output9[i] = FAUSTFLOAT(fTemp83); + double fTemp84 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst125 * fTemp65) + (fConst126 * fTemp37)) + (fConst127 * fTemp38)) + (fConst128 * fTemp41)) + (fConst129 * fTemp42)) + (fConst132 * fTemp45)) + (fConst133 * fTemp46)) + (fConst134 * fTemp49)) + (fConst135 * fTemp50)) + (fConst138 * fTemp52)) + (fConst138 * fTemp54))) + ((0.021093750000000001 * (((fConst139 * fTemp67) + (fConst142 * fTemp25)) + (fConst142 * fTemp27))) + (fConst123 * (((((((((((((((fConst21 * ((0.12956030605175081 * fTemp19) + (0.12956030605175084 * fTemp21))) + (fConst143 * fTemp24)) + (fConst144 * fTemp26)) + (fConst145 * fTemp29)) + (fConst146 * fTemp32)) + (fConst147 * fTemp35)) + (fConst148 * fTemp36)) + (fConst149 * fTemp39)) + (fConst150 * fTemp40)) + (fConst151 * fTemp43)) + (fConst152 * fTemp44)) + (fConst153 * fTemp47)) + (fConst154 * fTemp48)) + (fConst155 * fTemp51)) + (fConst156 * fTemp53)))))); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + output10[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = (fRec1[0] * (((((fConst160 * fTemp4) + (0.022574955908289243 * ((((fConst162 * fTemp9) + (fConst163 * fTemp13)) + (fConst164 * fTemp14)) + (fConst166 * fTemp18)))) + (0.021093750000000001 * ((((fConst167 * fTemp21) + (fConst168 * fTemp22)) + (fConst171 * fTemp26)) + (fConst172 * fTemp27)))) + (fConst157 * (((((((((((((((((((((fConst173 * fTemp7) + (fConst174 * fTemp2)) + (fConst175 * fTemp11)) + (fConst176 * fTemp12)) + (fConst177 * fTemp16)) + (fConst178 * fTemp19)) + (fConst179 * fTemp20)) + (fConst180 * fTemp24)) + (fConst181 * fTemp25)) + (fConst182 * fTemp29)) + (fConst182 * fTemp30)) + (fConst184 * fTemp35)) + (fConst185 * fTemp36)) + (fConst186 * fTemp37)) + (fConst187 * fTemp38)) + (fConst189 * fTemp43)) + (fConst190 * fTemp44)) + (fConst191 * fTemp45)) + (fConst192 * fTemp46)) + (fConst194 * fTemp51)) + (fConst194 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst195 * fTemp32) + (fConst196 * fTemp33)) + (fConst198 * fTemp39)) + (fConst199 * fTemp40)) + (fConst200 * fTemp41)) + (fConst201 * fTemp42)) + (fConst203 * fTemp47)) + (fConst204 * fTemp48)) + (fConst205 * fTemp49)) + (fConst206 * fTemp50)) + (fConst208 * fTemp53)) + (fConst209 * fTemp54))))); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph11 = FAUSTFLOAT(fRec12[0]); + output11[i] = FAUSTFLOAT(fTemp85); + double fTemp86 = (fRec1[0] * (((0.033596842045264641 * fTemp57) + (0.026333598483989317 * fTemp62)) - (((0.010558468816293317 * fTemp58) + (0.021480823570105497 * fTemp59)) + (0.020481687709769415 * fTemp61)))); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + output12[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = (fRec1[0] * ((fConst157 * (((((((((((((((((((((fConst173 * fTemp6) + (fConst174 * fTemp1)) + (fConst176 * fTemp11)) + (fConst210 * fTemp14)) + (fConst177 * fTemp15)) + (fConst179 * fTemp19)) + (fConst211 * fTemp22)) + (fConst181 * fTemp24)) + (fConst212 * fTemp27)) + (fConst213 * fTemp29)) + (fConst214 * fTemp33)) + (fConst215 * fTemp35)) + (fConst216 * fTemp36)) + (fConst217 * fTemp41)) + (fConst218 * fTemp42)) + (fConst219 * fTemp43)) + (fConst220 * fTemp44)) + (fConst221 * fTemp49)) + (fConst222 * fTemp50)) + (fConst223 * fTemp51)) + (fConst224 * fTemp54))) + ((((fConst160 * fTemp3) + (0.022574955908289243 * ((((fConst162 * fTemp8) + (fConst163 * fTemp12)) + (fConst164 * fTemp13)) + (fConst166 * fTemp17)))) + (0.021093750000000001 * ((((fConst167 * fTemp20) + (fConst168 * fTemp21)) + (fConst171 * fTemp25)) + (fConst172 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst195 * fTemp30) + (fConst196 * fTemp32)) + (fConst225 * fTemp37)) + (fConst226 * fTemp38)) + (fConst199 * fTemp39)) + (fConst227 * fTemp40)) + (fConst228 * fTemp45)) + (fConst229 * fTemp46)) + (fConst204 * fTemp47)) + (fConst230 * fTemp48)) + (fConst208 * fTemp52)) + (fConst209 * fTemp53)))))); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph13 = FAUSTFLOAT(fRec14[0]); + output13[i] = FAUSTFLOAT(fTemp87); + double fTemp88 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst231 * fTemp31) + (fConst232 * fTemp33)) + (fConst233 * fTemp36)) + (fConst234 * fTemp37)) + (fConst235 * fTemp40)) + (fConst236 * fTemp41)) + (fConst237 * fTemp44)) + (fConst237 * fTemp45)) + (fConst238 * fTemp48)) + (fConst239 * fTemp49)) + (fConst240 * fTemp51)) + (fConst240 * fTemp52)) + (fConst241 * fTemp54))) + (((0.022574955908289243 * (((fConst242 * fTemp80) + (fConst244 * fTemp16)) + (fConst244 * fTemp18))) + (0.021093750000000001 * ((((fConst245 * fTemp20) + (fConst246 * fTemp22)) + (fConst247 * fTemp25)) + (fConst248 * fTemp27)))) + (fConst123 * (((((((((((((((((fConst249 * (fTemp6 + fTemp8)) + (fConst250 * fTemp15)) + (fConst250 * fTemp17)) + (fConst251 * fTemp19)) + (fConst252 * fTemp21)) + (fConst253 * fTemp24)) + (fConst254 * fTemp26)) + (fConst255 * fTemp32)) + (fConst256 * fTemp35)) + (fConst256 * fTemp38)) + (fConst257 * fTemp39)) + (fConst258 * fTemp42)) + (fConst259 * fTemp43)) + (fConst259 * fTemp46)) + (fConst260 * fTemp47)) + (fConst261 * fTemp50)) + (fConst262 * fTemp53)))))); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp88)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + output14[i] = FAUSTFLOAT(fTemp88); + double fTemp89 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst263 * fTemp29) + (fConst264 * fTemp33)) + (fConst265 * fTemp36)) + (fConst266 * fTemp38)) + (fConst267 * fTemp39)) + (fConst268 * fTemp41)) + (fConst265 * fTemp44)) + (fConst266 * fTemp46)) + (fConst267 * fTemp47)) + (fConst268 * fTemp49)) + (fConst263 * fTemp51)) + (fConst264 * fTemp54))) + ((((fConst110 * fTemp3) + (0.022574955908289243 * ((((fConst111 * fTemp8) + (fConst269 * fTemp11)) + (fConst270 * fTemp14)) + (fConst111 * fTemp17)))) + (0.021093750000000001 * ((((fConst271 * fTemp19) + (fConst272 * fTemp22)) + (fConst271 * fTemp24)) + (fConst272 * fTemp27)))) + (fConst109 * (((((((((((((((((((((0.081054939510132359 * fTemp1) + (0.050946219890026692 * fTemp6)) + (0.10189243978005338 * fTemp12)) + (0.10189243978005329 * fTemp13)) + (0.050946219890026692 * fTemp15)) + (0.051824122420700336 * fTemp20)) + (0.051824122420700267 * fTemp21)) + (0.051824122420700336 * fTemp25)) + (0.051824122420700267 * fTemp26)) + (0.0070590901547238384 * fTemp30)) + (0.0070590901547238306 * fTemp32)) + (0.063531811392514598 * fTemp35)) + (0.09176817201141016 * fTemp37)) + (0.091768172011410187 * fTemp40)) + (0.063531811392514445 * fTemp42)) + (0.063531811392514598 * fTemp43)) + (0.09176817201141016 * fTemp45)) + (0.091768172011410187 * fTemp48)) + (0.063531811392514445 * fTemp50)) + (0.0070590901547238384 * fTemp52)) + (0.0070590901547238306 * fTemp53)))))); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph15 = FAUSTFLOAT(fRec16[0]); + output15[i] = FAUSTFLOAT(fTemp89); + double fTemp90 = (fRec1[0] * ((0.02017333553791887 * ((((((((((fConst274 * fTemp29) + (fConst275 * fTemp36)) + (fConst276 * fTemp38)) + (fConst277 * fTemp40)) + (fConst278 * fTemp42)) + (fConst275 * fTemp44)) + (fConst276 * fTemp46)) + (fConst277 * fTemp48)) + (fConst278 * fTemp50)) + (fConst274 * fTemp51))) + (fConst273 * ((((((((((((((((((((((((((1.3574799921485692e-16 * fTemp11) + (1.3574799921485695e-16 * fTemp12)) + (2.7149599842971385e-16 * fTemp13)) + (2.714959984297139e-16 * fTemp14)) + (5.6373863931755746e-17 * fTemp19)) + (5.6373863931755758e-17 * fTemp20)) + (1.1274772786351149e-16 * fTemp21)) + (1.1274772786351152e-16 * fTemp22)) + (5.6373863931755746e-17 * fTemp24)) + (5.6373863931755758e-17 * fTemp25)) + (1.1274772786351149e-16 * fTemp26)) + (1.1274772786351152e-16 * fTemp27)) + (4.0101337658685596e-18 * fTemp30)) + (8.0202675317371177e-18 * fTemp32)) + (8.0202675317371192e-18 * fTemp33)) + (0.20432599334845877 * fTemp35)) + (0.20432599334845869 * fTemp37)) + (0.20432599334845877 * fTemp39)) + (0.20432599334845863 * fTemp41)) + (0.20432599334845877 * fTemp43)) + (0.20432599334845869 * fTemp45)) + (0.20432599334845877 * fTemp47)) + (0.20432599334845863 * fTemp49)) + (4.0101337658685596e-18 * fTemp52)) + (8.0202675317371177e-18 * fTemp53)) + (8.0202675317371192e-18 * fTemp54))))); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + output16[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = (fRec1[0] * ((((0.022574955908289243 * ((fConst281 * fTemp7) + (fConst283 * fTemp16))) + (0.021093750000000001 * ((((fConst284 * fTemp21) + (fConst285 * fTemp22)) + (fConst288 * fTemp26)) + (fConst289 * fTemp27)))) + (fConst279 * ((((((((((((((((((fConst290 * fTemp9) + (fConst291 * fTemp18)) + (fConst292 * fTemp19)) + (fConst293 * fTemp20)) + (fConst294 * fTemp24)) + (fConst295 * fTemp25)) + (fConst296 * fTemp29)) + (fConst296 * fTemp30)) + (fConst297 * fTemp35)) + (fConst298 * fTemp38)) + (fConst299 * fTemp40)) + (fConst300 * fTemp41)) + (fConst302 * fTemp43)) + (fConst303 * fTemp46)) + (fConst304 * fTemp48)) + (fConst305 * fTemp49)) + (fConst307 * fTemp51)) + (fConst307 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst308 * fTemp32) + (fConst309 * fTemp33)) + (fConst310 * fTemp36)) + (fConst311 * fTemp37)) + (fConst312 * fTemp39)) + (fConst313 * fTemp42)) + (fConst315 * fTemp44)) + (fConst316 * fTemp45)) + (fConst317 * fTemp47)) + (fConst318 * fTemp50)) + (fConst320 * fTemp53)) + (fConst321 * fTemp54))))); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph17 = FAUSTFLOAT(fRec18[0]); + output17[i] = FAUSTFLOAT(fTemp91); + double fTemp92 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst324 * fTemp65) + (fConst327 * fTemp37)) + (fConst328 * fTemp38)) + (fConst329 * fTemp41)) + (fConst330 * fTemp42)) + (fConst333 * fTemp45)) + (fConst334 * fTemp46)) + (fConst335 * fTemp49)) + (fConst336 * fTemp50)) + (fConst339 * fTemp52)) + (fConst339 * fTemp54))) + (((fConst343 * fTemp66) + (0.021093750000000001 * (((fConst344 * fTemp67) + (fConst347 * fTemp25)) + (fConst347 * fTemp27)))) + (fConst322 * (((((((((((((((((fConst340 * ((0.015962904407738641 * fTemp11) + (0.015962904407738645 * fTemp13))) + (fConst348 * fTemp19)) + (fConst349 * fTemp21)) + (fConst350 * fTemp24)) + (fConst351 * fTemp26)) + (fConst352 * fTemp29)) + (fConst353 * fTemp32)) + (fConst354 * fTemp35)) + (fConst355 * fTemp36)) + (fConst356 * fTemp39)) + (fConst357 * fTemp40)) + (fConst358 * fTemp43)) + (fConst359 * fTemp44)) + (fConst360 * fTemp47)) + (fConst361 * fTemp48)) + (fConst362 * fTemp51)) + (fConst363 * fTemp53)))))); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + output18[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = (fRec1[0] * ((((0.022574955908289243 * ((fConst366 * fTemp9) + (fConst368 * fTemp18))) + (0.021093750000000001 * ((((fConst371 * fTemp21) + (fConst372 * fTemp22)) + (fConst375 * fTemp26)) + (fConst376 * fTemp27)))) + (fConst364 * ((((((((((((((((((fConst377 * fTemp7) + (fConst378 * fTemp16)) + (fConst379 * fTemp19)) + (fConst380 * fTemp20)) + (fConst381 * fTemp24)) + (fConst382 * fTemp25)) + (fConst383 * fTemp29)) + (fConst383 * fTemp30)) + (fConst385 * fTemp35)) + (fConst386 * fTemp36)) + (fConst387 * fTemp37)) + (fConst388 * fTemp38)) + (fConst390 * fTemp43)) + (fConst391 * fTemp44)) + (fConst392 * fTemp45)) + (fConst393 * fTemp46)) + (fConst395 * fTemp51)) + (fConst395 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst396 * fTemp32) + (fConst397 * fTemp33)) + (fConst399 * fTemp39)) + (fConst400 * fTemp40)) + (fConst401 * fTemp41)) + (fConst402 * fTemp42)) + (fConst404 * fTemp47)) + (fConst405 * fTemp48)) + (fConst406 * fTemp49)) + (fConst407 * fTemp50)) + (fConst409 * fTemp53)) + (fConst410 * fTemp54))))); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph19 = FAUSTFLOAT(fRec20[0]); + output19[i] = FAUSTFLOAT(fTemp93); + double fTemp94 = (fRec1[0] * ((((((0.014285714285714285 * fTemp74) + (0.038095238095238099 * fTemp72)) + (0.025396825396825397 * fTemp75)) + (0.0042514054232804339 * fTemp76)) + (0.0142547123015874 * fTemp73)) - ((0.027513227513227514 * fTemp71) + (0.024609375000000006 * fTemp28)))); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + output20[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = (fRec1[0] * ((fConst364 * ((((((((((((((((((fConst377 * fTemp6) + (fConst378 * fTemp15)) + (fConst380 * fTemp19)) + (fConst411 * fTemp22)) + (fConst382 * fTemp24)) + (fConst412 * fTemp27)) + (fConst413 * fTemp29)) + (fConst414 * fTemp33)) + (fConst386 * fTemp35)) + (fConst415 * fTemp36)) + (fConst416 * fTemp41)) + (fConst417 * fTemp42)) + (fConst391 * fTemp43)) + (fConst418 * fTemp44)) + (fConst419 * fTemp49)) + (fConst420 * fTemp50)) + (fConst421 * fTemp51)) + (fConst422 * fTemp54))) + (((0.022574955908289243 * ((fConst366 * fTemp8) + (fConst368 * fTemp17))) + (0.021093750000000001 * ((((fConst371 * fTemp20) + (fConst372 * fTemp21)) + (fConst375 * fTemp25)) + (fConst376 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst396 * fTemp30) + (fConst397 * fTemp32)) + (fConst423 * fTemp37)) + (fConst424 * fTemp38)) + (fConst400 * fTemp39)) + (fConst425 * fTemp40)) + (fConst426 * fTemp45)) + (fConst427 * fTemp46)) + (fConst405 * fTemp47)) + (fConst428 * fTemp48)) + (fConst409 * fTemp52)) + (fConst410 * fTemp53)))))); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph21 = FAUSTFLOAT(fRec22[0]); + output21[i] = FAUSTFLOAT(fTemp95); + double fTemp96 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst429 * fTemp31) + (fConst430 * fTemp33)) + (fConst431 * fTemp36)) + (fConst431 * fTemp37)) + (fConst432 * fTemp40)) + (fConst433 * fTemp41)) + (fConst434 * fTemp44)) + (fConst434 * fTemp45)) + (fConst435 * fTemp48)) + (fConst436 * fTemp49)) + (fConst437 * fTemp51)) + (fConst437 * fTemp52)) + (fConst438 * fTemp54))) + ((((fConst439 * fTemp79) + (0.022574955908289243 * (((((fConst440 * fTemp80) + (fConst441 * fTemp12)) + (fConst442 * fTemp14)) + (fConst444 * fTemp16)) + (fConst444 * fTemp18)))) + (0.021093750000000001 * ((((fConst445 * fTemp20) + (fConst446 * fTemp22)) + (fConst447 * fTemp25)) + (fConst448 * fTemp27)))) + (fConst322 * (((((((((((((((((((((fConst449 * fTemp81) + (fConst450 * fTemp6)) + (fConst450 * fTemp8)) + (fConst451 * fTemp11)) + (fConst452 * fTemp13)) + (fConst453 * fTemp15)) + (fConst453 * fTemp17)) + (fConst454 * fTemp19)) + (fConst455 * fTemp21)) + (fConst456 * fTemp24)) + (fConst457 * fTemp26)) + (fConst458 * fTemp32)) + (fConst459 * fTemp35)) + (fConst459 * fTemp38)) + (fConst460 * fTemp39)) + (fConst461 * fTemp42)) + (fConst462 * fTemp43)) + (fConst462 * fTemp46)) + (fConst463 * fTemp47)) + (fConst464 * fTemp50)) + (fConst465 * fTemp53)))))); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + output22[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst466 * fTemp29) + (fConst467 * fTemp33)) + (fConst468 * fTemp36)) + (fConst469 * fTemp38)) + (fConst470 * fTemp39)) + (fConst471 * fTemp41)) + (fConst472 * fTemp44)) + (fConst473 * fTemp46)) + (fConst474 * fTemp47)) + (fConst475 * fTemp49)) + (fConst476 * fTemp51)) + (fConst477 * fTemp54))) + (((0.022574955908289243 * ((fConst281 * fTemp8) + (fConst283 * fTemp17))) + (0.021093750000000001 * ((((fConst478 * fTemp19) + (fConst479 * fTemp22)) + (fConst480 * fTemp24)) + (fConst481 * fTemp27)))) + (fConst279 * ((((((((((((((((((fConst290 * fTemp6) + (fConst291 * fTemp15)) + (fConst292 * fTemp20)) + (fConst482 * fTemp21)) + (fConst294 * fTemp25)) + (fConst483 * fTemp26)) + (fConst484 * fTemp30)) + (fConst485 * fTemp32)) + (fConst486 * fTemp35)) + (fConst487 * fTemp37)) + (fConst488 * fTemp40)) + (fConst489 * fTemp42)) + (fConst490 * fTemp43)) + (fConst491 * fTemp45)) + (fConst492 * fTemp48)) + (fConst493 * fTemp50)) + (fConst494 * fTemp52)) + (fConst495 * fTemp53)))))); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph23 = FAUSTFLOAT(fRec24[0]); + output23[i] = FAUSTFLOAT(fTemp97); + double fTemp98 = (fRec1[0] * ((((0.022574955908289243 * ((((fConst496 * fTemp11) + (fConst497 * fTemp12)) + (fConst497 * fTemp13)) + (fConst497 * fTemp14))) + (0.021093750000000001 * ((((((((fConst498 * fTemp19) + (fConst499 * fTemp20)) + (fConst499 * fTemp21)) + (fConst499 * fTemp22)) + (fConst498 * fTemp24)) + (fConst499 * fTemp25)) + (fConst499 * fTemp26)) + (fConst499 * fTemp27)))) + (fConst273 * (((((((((((((((((((((((((0.16210987902026472 * fTemp74) + (0.072048835120117685 * fTemp6)) + (0.072048835120117685 * fTemp7)) + (0.072048835120117685 * fTemp8)) + (0.072048835120117685 * fTemp9)) + (0.072048835120117685 * fTemp15)) + (0.072048835120117685 * fTemp16)) + (0.072048835120117685 * fTemp17)) + (0.072048835120117685 * fTemp18)) + (0.059595081393300019 * fTemp35)) + (0.059595081393300449 * fTemp36)) + (0.059595081393300539 * fTemp37)) + (0.059595081393300019 * fTemp38)) + (0.059595081393300352 * fTemp39)) + (0.059595081393300338 * fTemp40)) + (0.059595081393300636 * fTemp41)) + (0.059595081393299554 * fTemp42)) + (0.059595081393300019 * fTemp43)) + (0.059595081393300449 * fTemp44)) + (0.059595081393300539 * fTemp45)) + (0.059595081393300019 * fTemp46)) + (0.059595081393300352 * fTemp47)) + (0.059595081393300338 * fTemp48)) + (0.059595081393300636 * fTemp49)) + (0.059595081393299554 * fTemp50)))) + (fConst500 * fTemp73))); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + output24[i] = FAUSTFLOAT(fTemp98); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncLebedev505.cpp b/source/HOAUGens/HOAEncLebedev505.cpp new file mode 100644 index 0000000000..2add56fa8d --- /dev/null +++ b/source/HOAUGens/HOAEncLebedev505.cpp @@ -0,0 +1,3783 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncLebedev505" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + FAUSTFLOAT fHslider0; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst1; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fConst14; + double fConst15; + double fConst16; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec3[2]; + FAUSTFLOAT fVbargraph2; + double fConst17; + double fConst18; + double fConst19; + double fRec4[2]; + FAUSTFLOAT fVbargraph3; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fConst25; + double fConst26; + double fConst27; + double fConst28; + double fConst29; + double fConst30; + double fRec5[2]; + FAUSTFLOAT fVbargraph4; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fConst38; + double fConst39; + double fConst40; + double fConst41; + double fConst42; + double fConst43; + double fConst44; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fConst51; + double fConst52; + double fConst53; + double fConst54; + double fConst55; + double fConst56; + double fConst57; + double fConst58; + double fConst59; + double fConst60; + double fConst61; + double fConst62; + double fConst63; + double fConst64; + double fConst65; + double fConst66; + double fConst67; + double fConst68; + double fConst69; + double fConst70; + double fConst71; + double fConst72; + double fConst73; + double fConst74; + double fRec6[2]; + FAUSTFLOAT fVbargraph5; + double fRec7[2]; + FAUSTFLOAT fVbargraph6; + double fConst75; + double fConst76; + double fConst77; + double fConst78; + double fConst79; + double fConst80; + double fConst81; + double fConst82; + double fConst83; + double fConst84; + double fConst85; + double fConst86; + double fConst87; + double fConst88; + double fConst89; + double fConst90; + double fConst91; + double fConst92; + double fConst93; + double fConst94; + double fRec8[2]; + FAUSTFLOAT fVbargraph7; + double fConst95; + double fConst96; + double fConst97; + double fConst98; + double fConst99; + double fConst100; + double fConst101; + double fConst102; + double fConst103; + double fConst104; + double fConst105; + double fConst106; + double fRec9[2]; + FAUSTFLOAT fVbargraph8; + double fConst107; + double fConst108; + double fConst109; + double fConst110; + double fConst111; + double fConst112; + double fConst113; + double fConst114; + double fConst115; + double fConst116; + double fConst117; + double fConst118; + double fConst119; + double fConst120; + double fConst121; + double fRec10[2]; + FAUSTFLOAT fVbargraph9; + double fConst122; + double fConst123; + double fConst124; + double fConst125; + double fConst126; + double fConst127; + double fConst128; + double fConst129; + double fConst130; + double fConst131; + double fConst132; + double fConst133; + double fConst134; + double fConst135; + double fConst136; + double fConst137; + double fConst138; + double fConst139; + double fConst140; + double fConst141; + double fConst142; + double fConst143; + double fConst144; + double fConst145; + double fConst146; + double fConst147; + double fConst148; + double fConst149; + double fConst150; + double fConst151; + double fConst152; + double fConst153; + double fConst154; + double fConst155; + double fConst156; + double fRec11[2]; + FAUSTFLOAT fVbargraph10; + double fConst157; + double fConst158; + double fConst159; + double fConst160; + double fConst161; + double fConst162; + double fConst163; + double fConst164; + double fConst165; + double fConst166; + double fConst167; + double fConst168; + double fConst169; + double fConst170; + double fConst171; + double fConst172; + double fConst173; + double fConst174; + double fConst175; + double fConst176; + double fConst177; + double fConst178; + double fConst179; + double fConst180; + double fConst181; + double fConst182; + double fConst183; + double fConst184; + double fConst185; + double fConst186; + double fConst187; + double fConst188; + double fConst189; + double fConst190; + double fConst191; + double fConst192; + double fConst193; + double fConst194; + double fConst195; + double fConst196; + double fConst197; + double fConst198; + double fConst199; + double fConst200; + double fConst201; + double fConst202; + double fConst203; + double fConst204; + double fConst205; + double fConst206; + double fConst207; + double fConst208; + double fConst209; + double fRec12[2]; + FAUSTFLOAT fVbargraph11; + double fRec13[2]; + FAUSTFLOAT fVbargraph12; + double fConst210; + double fConst211; + double fConst212; + double fConst213; + double fConst214; + double fConst215; + double fConst216; + double fConst217; + double fConst218; + double fConst219; + double fConst220; + double fConst221; + double fConst222; + double fConst223; + double fConst224; + double fConst225; + double fConst226; + double fConst227; + double fConst228; + double fConst229; + double fConst230; + double fRec14[2]; + FAUSTFLOAT fVbargraph13; + double fConst231; + double fConst232; + double fConst233; + double fConst234; + double fConst235; + double fConst236; + double fConst237; + double fConst238; + double fConst239; + double fConst240; + double fConst241; + double fConst242; + double fConst243; + double fConst244; + double fConst245; + double fConst246; + double fConst247; + double fConst248; + double fConst249; + double fConst250; + double fConst251; + double fConst252; + double fConst253; + double fConst254; + double fConst255; + double fConst256; + double fConst257; + double fConst258; + double fConst259; + double fConst260; + double fConst261; + double fConst262; + double fRec15[2]; + FAUSTFLOAT fVbargraph14; + double fConst263; + double fConst264; + double fConst265; + double fConst266; + double fConst267; + double fConst268; + double fConst269; + double fConst270; + double fConst271; + double fConst272; + double fRec16[2]; + FAUSTFLOAT fVbargraph15; + double fConst273; + double fConst274; + double fConst275; + double fConst276; + double fConst277; + double fConst278; + double fConst279; + double fConst280; + double fRec17[2]; + FAUSTFLOAT fVbargraph16; + double fConst281; + double fConst282; + double fConst283; + double fConst284; + double fConst285; + double fConst286; + double fConst287; + double fConst288; + double fConst289; + double fConst290; + double fConst291; + double fConst292; + double fConst293; + double fConst294; + double fConst295; + double fConst296; + double fConst297; + double fConst298; + double fConst299; + double fConst300; + double fConst301; + double fConst302; + double fConst303; + double fConst304; + double fConst305; + double fConst306; + double fConst307; + double fConst308; + double fConst309; + double fConst310; + double fConst311; + double fConst312; + double fConst313; + double fConst314; + double fConst315; + double fConst316; + double fConst317; + double fConst318; + double fConst319; + double fConst320; + double fConst321; + double fConst322; + double fConst323; + double fConst324; + double fRec18[2]; + FAUSTFLOAT fVbargraph17; + double fConst325; + double fConst326; + double fConst327; + double fConst328; + double fConst329; + double fConst330; + double fConst331; + double fConst332; + double fConst333; + double fConst334; + double fConst335; + double fConst336; + double fConst337; + double fConst338; + double fConst339; + double fConst340; + double fConst341; + double fConst342; + double fConst343; + double fConst344; + double fConst345; + double fConst346; + double fConst347; + double fConst348; + double fConst349; + double fConst350; + double fConst351; + double fConst352; + double fConst353; + double fConst354; + double fConst355; + double fConst356; + double fConst357; + double fConst358; + double fConst359; + double fConst360; + double fConst361; + double fConst362; + double fConst363; + double fConst364; + double fConst365; + double fConst366; + double fRec19[2]; + FAUSTFLOAT fVbargraph18; + double fConst367; + double fConst368; + double fConst369; + double fConst370; + double fConst371; + double fConst372; + double fConst373; + double fConst374; + double fConst375; + double fConst376; + double fConst377; + double fConst378; + double fConst379; + double fConst380; + double fConst381; + double fConst382; + double fConst383; + double fConst384; + double fConst385; + double fConst386; + double fConst387; + double fConst388; + double fConst389; + double fConst390; + double fConst391; + double fConst392; + double fConst393; + double fConst394; + double fConst395; + double fConst396; + double fConst397; + double fConst398; + double fConst399; + double fConst400; + double fConst401; + double fConst402; + double fConst403; + double fConst404; + double fConst405; + double fConst406; + double fConst407; + double fConst408; + double fConst409; + double fConst410; + double fConst411; + double fConst412; + double fConst413; + double fRec20[2]; + FAUSTFLOAT fVbargraph19; + double fRec21[2]; + FAUSTFLOAT fVbargraph20; + double fConst414; + double fConst415; + double fConst416; + double fConst417; + double fConst418; + double fConst419; + double fConst420; + double fConst421; + double fConst422; + double fConst423; + double fConst424; + double fConst425; + double fConst426; + double fConst427; + double fConst428; + double fConst429; + double fConst430; + double fConst431; + double fRec22[2]; + FAUSTFLOAT fVbargraph21; + double fConst432; + double fConst433; + double fConst434; + double fConst435; + double fConst436; + double fConst437; + double fConst438; + double fConst439; + double fConst440; + double fConst441; + double fConst442; + double fConst443; + double fConst444; + double fConst445; + double fConst446; + double fConst447; + double fConst448; + double fConst449; + double fConst450; + double fConst451; + double fConst452; + double fConst453; + double fConst454; + double fConst455; + double fConst456; + double fConst457; + double fConst458; + double fConst459; + double fConst460; + double fConst461; + double fConst462; + double fConst463; + double fConst464; + double fConst465; + double fConst466; + double fConst467; + double fConst468; + double fRec23[2]; + FAUSTFLOAT fVbargraph22; + double fConst469; + double fConst470; + double fConst471; + double fConst472; + double fConst473; + double fConst474; + double fConst475; + double fConst476; + double fConst477; + double fConst478; + double fConst479; + double fConst480; + double fConst481; + double fConst482; + double fConst483; + double fConst484; + double fConst485; + double fConst486; + double fConst487; + double fConst488; + double fConst489; + double fConst490; + double fConst491; + double fConst492; + double fConst493; + double fConst494; + double fConst495; + double fConst496; + double fConst497; + double fConst498; + double fRec24[2]; + FAUSTFLOAT fVbargraph23; + double fConst499; + double fConst500; + double fConst501; + double fConst502; + double fConst503; + double fRec25[2]; + FAUSTFLOAT fVbargraph24; + double fConst504; + double fConst505; + double fConst506; + double fConst507; + double fConst508; + double fConst509; + double fConst510; + double fConst511; + double fConst512; + double fConst513; + double fConst514; + double fConst515; + double fRec26[2]; + FAUSTFLOAT fVbargraph25; + double fConst516; + double fConst517; + double fConst518; + double fConst519; + double fConst520; + double fConst521; + double fConst522; + double fConst523; + double fConst524; + double fConst525; + double fConst526; + double fConst527; + double fConst528; + double fConst529; + double fConst530; + double fConst531; + double fConst532; + double fConst533; + double fConst534; + double fConst535; + double fConst536; + double fConst537; + double fConst538; + double fConst539; + double fConst540; + double fConst541; + double fConst542; + double fConst543; + double fConst544; + double fConst545; + double fConst546; + double fRec27[2]; + FAUSTFLOAT fVbargraph26; + double fConst547; + double fConst548; + double fConst549; + double fConst550; + double fConst551; + double fConst552; + double fConst553; + double fConst554; + double fConst555; + double fConst556; + double fConst557; + double fConst558; + double fConst559; + double fConst560; + double fConst561; + double fConst562; + double fConst563; + double fConst564; + double fConst565; + double fConst566; + double fConst567; + double fConst568; + double fConst569; + double fConst570; + double fConst571; + double fConst572; + double fConst573; + double fConst574; + double fConst575; + double fConst576; + double fConst577; + double fConst578; + double fConst579; + double fConst580; + double fConst581; + double fConst582; + double fConst583; + double fConst584; + double fConst585; + double fConst586; + double fConst587; + double fConst588; + double fConst589; + double fConst590; + double fConst591; + double fConst592; + double fConst593; + double fConst594; + double fConst595; + double fConst596; + double fConst597; + double fConst598; + double fConst599; + double fRec28[2]; + FAUSTFLOAT fVbargraph27; + double fConst600; + double fConst601; + double fConst602; + double fConst603; + double fConst604; + double fConst605; + double fConst606; + double fConst607; + double fConst608; + double fConst609; + double fConst610; + double fConst611; + double fConst612; + double fConst613; + double fConst614; + double fConst615; + double fConst616; + double fConst617; + double fConst618; + double fConst619; + double fConst620; + double fConst621; + double fConst622; + double fConst623; + double fConst624; + double fConst625; + double fConst626; + double fConst627; + double fConst628; + double fConst629; + double fConst630; + double fConst631; + double fConst632; + double fConst633; + double fConst634; + double fConst635; + double fRec29[2]; + FAUSTFLOAT fVbargraph28; + double fConst636; + double fConst637; + double fConst638; + double fConst639; + double fConst640; + double fConst641; + double fConst642; + double fConst643; + double fConst644; + double fConst645; + double fConst646; + double fConst647; + double fConst648; + double fConst649; + double fConst650; + double fConst651; + double fConst652; + double fConst653; + double fConst654; + double fConst655; + double fConst656; + double fConst657; + double fConst658; + double fConst659; + double fConst660; + double fConst661; + double fConst662; + double fConst663; + double fConst664; + double fConst665; + double fConst666; + double fConst667; + double fConst668; + double fConst669; + double fConst670; + double fConst671; + double fConst672; + double fConst673; + double fConst674; + double fConst675; + double fConst676; + double fConst677; + double fConst678; + double fConst679; + double fConst680; + double fConst681; + double fConst682; + double fConst683; + double fConst684; + double fConst685; + double fConst686; + double fConst687; + double fConst688; + double fConst689; + double fConst690; + double fConst691; + double fRec30[2]; + FAUSTFLOAT fVbargraph29; + double fRec31[2]; + FAUSTFLOAT fVbargraph30; + double fConst692; + double fConst693; + double fConst694; + double fConst695; + double fConst696; + double fConst697; + double fConst698; + double fConst699; + double fConst700; + double fConst701; + double fConst702; + double fConst703; + double fConst704; + double fConst705; + double fConst706; + double fConst707; + double fConst708; + double fConst709; + double fConst710; + double fConst711; + double fRec32[2]; + FAUSTFLOAT fVbargraph31; + double fConst712; + double fConst713; + double fConst714; + double fConst715; + double fConst716; + double fConst717; + double fConst718; + double fConst719; + double fConst720; + double fConst721; + double fConst722; + double fConst723; + double fConst724; + double fConst725; + double fConst726; + double fConst727; + double fConst728; + double fConst729; + double fConst730; + double fConst731; + double fConst732; + double fConst733; + double fConst734; + double fConst735; + double fConst736; + double fConst737; + double fConst738; + double fConst739; + double fConst740; + double fConst741; + double fConst742; + double fConst743; + double fConst744; + double fRec33[2]; + FAUSTFLOAT fVbargraph32; + double fConst745; + double fConst746; + double fConst747; + double fConst748; + double fConst749; + double fConst750; + double fConst751; + double fConst752; + double fConst753; + double fConst754; + double fConst755; + double fConst756; + double fConst757; + double fConst758; + double fConst759; + double fConst760; + double fConst761; + double fConst762; + double fConst763; + double fConst764; + double fConst765; + double fConst766; + double fConst767; + double fConst768; + double fConst769; + double fConst770; + double fConst771; + double fConst772; + double fConst773; + double fConst774; + double fConst775; + double fConst776; + double fConst777; + double fRec34[2]; + FAUSTFLOAT fVbargraph33; + double fConst778; + double fConst779; + double fConst780; + double fConst781; + double fConst782; + double fConst783; + double fConst784; + double fConst785; + double fConst786; + double fConst787; + double fConst788; + double fConst789; + double fConst790; + double fConst791; + double fConst792; + double fConst793; + double fConst794; + double fConst795; + double fConst796; + double fConst797; + double fConst798; + double fConst799; + double fConst800; + double fRec35[2]; + FAUSTFLOAT fVbargraph34; + double fConst801; + double fConst802; + double fConst803; + double fConst804; + double fConst805; + double fConst806; + double fConst807; + double fConst808; + double fConst809; + double fRec36[2]; + FAUSTFLOAT fVbargraph35; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncLebedev505"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 50; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = (80.0 / min(192000.0, max(1.0, double(fSamplingFreq)))); + fConst1 = double(tgamma(1.0)); + fConst2 = double(tgamma(3.0)); + fConst3 = double(tgamma(1.5)); + fConst4 = (sqrt((3.0 * (fConst1 / fConst2))) * fConst3); + fConst5 = (0.012698412698412698 * (0.0 - (1.5957691216057308 * fConst4))); + fConst6 = (0.0 - (1.1283791670955128 * fConst4)); + fConst7 = (0.0 - (1.1283791670955126 * fConst4)); + fConst8 = (0.0 - (1.128379167095513 * fConst4)); + fConst9 = (0.0 - (0.92131773192356115 * fConst4)); + fConst10 = (0.0 - (0.92131773192356148 * fConst4)); + fConst11 = (0.0 - (0.48114249349102017 * fConst4)); + fConst12 = (0.0 - (0.48114249349102034 * fConst4)); + fConst13 = (0.0 - (0.48114249349102112 * fConst4)); + fConst14 = (0.0 - (1.4434274804730622 * fConst4)); + fConst15 = (0.0 - (1.4434274804730625 * fConst4)); + fConst16 = (0.0 - (0.48114249349102228 * fConst4)); + fConst17 = (0.0 - (0.48114249349102062 * fConst4)); + fConst18 = (0.0 - (1.443427480473062 * fConst4)); + fConst19 = (0.0 - (0.48114249349102095 * fConst4)); + fConst20 = double(tgamma(5.0)); + fConst21 = double(tgamma(2.5)); + fConst22 = (sqrt((5.0 * (fConst1 / fConst20))) * fConst21); + fConst23 = (0.0 - (0.58027968058390089 * fConst22)); + fConst24 = (0.0 - (1.7408390417517061 * fConst22)); + fConst25 = (0.0 - (1.7408390417517088 * fConst22)); + fConst26 = (0.0 - (1.7408390417517057 * fConst22)); + fConst27 = (0.0 - (1.7408390417517114 * fConst22)); + fConst28 = (0.0 - (3.1915382432114616 * fConst22)); + fConst29 = (0.022574955908289243 * fConst28); + fConst30 = (0.021093750000000001 * (0.0 - (2.1276921621409737 * fConst22))); + fConst31 = double(tgamma(2.0)); + fConst32 = double(tgamma(4.0)); + fConst33 = sqrt((5.0 * (fConst31 / fConst32))); + fConst34 = (fConst33 * fConst3); + fConst35 = (0.0 - (2.3936536824085959 * fConst34)); + fConst36 = (0.0 - (1.6925687506432687 * fConst3)); + fConst37 = (0.0 - (1.4142135623730951 * (fConst33 * fConst36))); + fConst38 = (0.0 - (1.5957691216057308 * fConst34)); + fConst39 = (0.0 - (1.5957691216057313 * fConst34)); + fConst40 = (0.0 - (1.5957691216057308 * fConst3)); + fConst41 = (fConst33 * fConst40); + fConst42 = (0.0 - fConst41); + fConst43 = (0.0 - (1.0000000000000002 * fConst41)); + fConst44 = (0.054036626340088233 * fConst3); + fConst45 = (0.031925808815477283 * fConst36); + fConst46 = (0.033660754908870889 * fConst3); + fConst47 = (0.021093750000000001 * fConst40); + fConst48 = (0.021093750000000005 * fConst40); + fConst49 = (0.026338897580074728 * fConst3); + fConst50 = (0.0087796325266915921 * fConst3); + fConst51 = (0.026338897580074742 * fConst3); + fConst52 = (0.026338897580074745 * fConst3); + fConst53 = (0.0087796325266915939 * fConst3); + fConst54 = (0.0 - (0.97315860881060223 * fConst3)); + fConst55 = (0.0090217899191397874 * fConst54); + fConst56 = (0.027065369757419327 * fConst54); + fConst57 = (0.027065369757419331 * fConst54); + fConst58 = (0.0090217899191397891 * fConst54); + fConst59 = (0.0 - (1.3056292813137786 * fConst3)); + fConst60 = (0.020173335537918873 * fConst59); + fConst61 = (0.0 - (1.3056292813137786 * fConst34)); + fConst62 = (0.0 - (1.3056292813137791 * fConst34)); + fConst63 = (0.0 - (0.43520976043792686 * fConst34)); + fConst64 = (0.0 - (1.3056292813137795 * fConst34)); + fConst65 = (0.0 - (1.3056292813137798 * fConst34)); + fConst66 = (0.0 - (0.43520976043792792 * fConst34)); + fConst67 = (fConst33 * fConst54); + fConst68 = (0.0 - (0.44721359549995832 * fConst67)); + fConst69 = (0.0 - (1.3416407864998738 * fConst67)); + fConst70 = (0.0 - (1.3416407864998741 * fConst67)); + fConst71 = (0.0 - (0.44721359549995937 * fConst67)); + fConst72 = (fConst33 * fConst59); + fConst73 = (0.0 - fConst72); + fConst74 = (0.0 - (1.0000000000000002 * fConst72)); + fConst75 = (0.033660754908870882 * fConst3); + fConst76 = (0.021093749999999998 * fConst40); + fConst77 = (0.026338897580074724 * fConst3); + fConst78 = (0.026338897580074721 * fConst3); + fConst79 = (0.026338897580074738 * fConst3); + fConst80 = (0.0087796325266915817 * fConst3); + fConst81 = (0.0087796325266915748 * fConst3); + fConst82 = (0.026338897580074731 * fConst3); + fConst83 = (0.027065369757419324 * fConst54); + fConst84 = (0.009021789919139777 * fConst54); + fConst85 = (0.00902178991913977 * fConst54); + fConst86 = (0.027065369757419321 * fConst54); + fConst87 = (0.02017333553791887 * fConst59); + fConst88 = (0.020173335537918866 * fConst59); + fConst89 = (0.0 - (0.43520976043792636 * fConst34)); + fConst90 = (0.0 - (1.3056292813137793 * fConst34)); + fConst91 = (0.0 - (0.4352097604379267 * fConst34)); + fConst92 = (0.0 - (0.44721359549995782 * fConst67)); + fConst93 = (0.0 - (1.3416407864998736 * fConst67)); + fConst94 = (0.0 - (0.44721359549995815 * fConst67)); + fConst95 = (0.0 - (1.2884797242127563e-16 * fConst22)); + fConst96 = (0.0 - (2.5769594484255127e-16 * fConst22)); + fConst97 = (0.0 - (2.3211187223356089 * fConst22)); + fConst98 = (0.0 - (2.3211187223356093 * fConst22)); + fConst99 = (0.0 - (2.3211187223356085 * fConst22)); + fConst100 = (0.0 - (2.3211187223356098 * fConst22)); + fConst101 = (0.012698412698412698 * fConst28); + fConst102 = (0.0 - (1.595769121605731 * fConst22)); + fConst103 = (0.0 - (7.0866384831701748e-16 * fConst22)); + fConst104 = (0.0 - (1.417327696634035e-15 * fConst22)); + fConst105 = (0.0 - (4.7244256554467816e-16 * fConst22)); + fConst106 = (0.0 - (9.4488513108935631e-16 * fConst22)); + fConst107 = double(tgamma(7.0)); + fConst108 = double(tgamma(3.5)); + fConst109 = (sqrt((7.0 * (fConst1 / fConst107))) * fConst108); + fConst110 = (0.012698412698412698 * (0.0 - (6.3830764864229232 * fConst109))); + fConst111 = (0.0 - (2.256758334191026 * fConst109)); + fConst112 = (0.0 - (4.5135166683820547 * fConst109)); + fConst113 = (0.0 - (4.5135166683820476 * fConst109)); + fConst114 = (0.0 - (2.456847285129498 * fConst109)); + fConst115 = (0.0 - (2.456847285129494 * fConst109)); + fConst116 = (0.0 - (0.34992181344801421 * fConst109)); + fConst117 = (0.0 - (0.34992181344801365 * fConst109)); + fConst118 = (0.0 - (3.1492963210321352 * fConst109)); + fConst119 = (0.0 - (3.1492963210321379 * fConst109)); + fConst120 = (0.0 - (4.5489835748241987 * fConst109)); + fConst121 = (0.0 - (4.5489835748242058 * fConst109)); + fConst122 = double(tgamma(6.0)); + fConst123 = sqrt((7.0 * (fConst31 / fConst122))); + fConst124 = (fConst123 * fConst21); + fConst125 = (0.0 - (2.6244136008601107 * fConst124)); + fConst126 = (0.0 - (2.624413600860108 * fConst124)); + fConst127 = (0.0 - (2.6244136008601116 * fConst124)); + fConst128 = (0.0 - (2.6244136008601155 * fConst124)); + fConst129 = (0.0 - (2.6244136008601191 * fConst124)); + fConst130 = (0.0 - (3.0929010896773175 * fConst21)); + fConst131 = (fConst123 * fConst130); + fConst132 = (0.0 - (0.84852813742385691 * fConst131)); + fConst133 = (0.0 - (0.84852813742385813 * fConst131)); + fConst134 = (0.0 - (0.84852813742385658 * fConst131)); + fConst135 = (0.0 - (0.84852813742385946 * fConst131)); + fConst136 = (0.0 - (1.8557406538063874 * fConst21)); + fConst137 = (fConst123 * fConst136); + fConst138 = (0.0 - (1.4142135623730951 * fConst137)); + fConst139 = (0.0 - (6.1421182128237417 * fConst124)); + fConst140 = (0.0 - (4.3431334391370653 * fConst21)); + fConst141 = (fConst123 * fConst140); + fConst142 = (0.0 - (1.4142135623730951 * fConst141)); + fConst143 = (0.029831067331307477 * fConst140); + fConst144 = (0.029831067331307481 * fConst140); + fConst145 = (0.052943176160428845 * fConst21); + fConst146 = (0.052943176160428852 * fConst21); + fConst147 = (0.052943176160428991 * fConst21); + fConst148 = (0.052943176160428929 * fConst21); + fConst149 = (0.052943176160428963 * fConst21); + fConst150 = (0.052943176160428942 * fConst21); + fConst151 = (0.017117642829616822 * fConst130); + fConst152 = (0.017117642829616801 * fConst130); + fConst153 = (0.017117642829616815 * fConst130); + fConst154 = (0.017117642829616808 * fConst130); + fConst155 = (0.028529404716028006 * fConst136); + fConst156 = (0.028529404716028009 * fConst136); + fConst157 = sqrt((7.0 * (fConst2 / fConst20))); + fConst158 = (0.0 - (3.3851375012865379 * fConst3)); + fConst159 = (fConst157 * fConst158); + fConst160 = (0.012698412698412698 * (0.0 - (0.70710678118654757 * fConst159))); + fConst161 = (fConst157 * fConst3); + fConst162 = (0.0 - (2.5388531259649025 * fConst161)); + fConst163 = (0.0 - (0.5 * fConst159)); + fConst164 = (0.0 - (0.50000000000000011 * fConst159)); + fConst165 = (0.0 - ((3.5355339059327373 * fConst36) + (2.3936536824085963 * fConst3))); + fConst166 = (0.0 - (0.70710678118654757 * (fConst157 * fConst165))); + fConst167 = (0.0 - (0.92131773192356159 * fConst161)); + fConst168 = (0.0 - (0.92131773192356192 * fConst161)); + fConst169 = (0.0 - ((2.8867513459481291 * fConst40) + (2.7639531957706835 * fConst3))); + fConst170 = (fConst157 * fConst169); + fConst171 = (0.0 - (0.5 * fConst170)); + fConst172 = (0.0 - (0.50000000000000011 * fConst170)); + fConst173 = (0.057314497376279992 * fConst3); + fConst174 = (0.0089791337293529845 * fConst158); + fConst175 = (0.011287477954144622 * fConst158); + fConst176 = (0.011287477954144623 * fConst158); + fConst177 = (0.015962904407738641 * fConst165); + fConst178 = (0.019434045907762629 * fConst3); + fConst179 = (0.019434045907762633 * fConst3); + fConst180 = (0.010546875000000001 * fConst169); + fConst181 = (0.010546875000000002 * fConst169); + fConst182 = (0.045001699736364593 * fConst3); + fConst183 = (0.0 - (1.7605101637794649 * fConst3)); + fConst184 = (0.0045108949595698937 * fConst183); + fConst185 = (0.013532684878709664 * fConst183); + fConst186 = (0.013532684878709665 * fConst183); + fConst187 = (0.0045108949595698946 * fConst183); + fConst188 = (0.0 - ((1.5075567228888176 * fConst54) + (3.2276019669290172 * fConst3))); + fConst189 = (0.0045108949595698937 * fConst188); + fConst190 = (0.013532684878709664 * fConst188); + fConst191 = (0.013532684878709665 * fConst188); + fConst192 = (0.0045108949595698946 * fConst188); + fConst193 = (0.0 - ((4.5226701686664557 * fConst59) + (1.4434274804730605 * fConst3))); + fConst194 = (0.010086667768959437 * fConst193); + fConst195 = (0.0 - (2.230751560731095 * fConst161)); + fConst196 = (0.0 - (2.2307515607310959 * fConst161)); + fConst197 = (fConst157 * fConst183); + fConst198 = (0.0 - (0.22360679774997916 * fConst197)); + fConst199 = (0.0 - (0.67082039324993692 * fConst197)); + fConst200 = (0.0 - (0.67082039324993703 * fConst197)); + fConst201 = (0.0 - (0.22360679774997969 * fConst197)); + fConst202 = (fConst157 * fConst188); + fConst203 = (0.0 - (0.22360679774997916 * fConst202)); + fConst204 = (0.0 - (0.67082039324993692 * fConst202)); + fConst205 = (0.0 - (0.67082039324993703 * fConst202)); + fConst206 = (0.0 - (0.22360679774997969 * fConst202)); + fConst207 = (fConst157 * fConst193); + fConst208 = (0.0 - (0.5 * fConst207)); + fConst209 = (0.0 - (0.50000000000000011 * fConst207)); + fConst210 = (0.01128747795414462 * fConst158); + fConst211 = (0.019434045907762626 * fConst3); + fConst212 = (0.010546874999999999 * fConst169); + fConst213 = (0.045001699736364587 * fConst3); + fConst214 = (0.045001699736364573 * fConst3); + fConst215 = (0.013532684878709662 * fConst183); + fConst216 = (0.0045108949595698885 * fConst183); + fConst217 = (0.004510894959569885 * fConst183); + fConst218 = (0.01353268487870966 * fConst183); + fConst219 = (0.013532684878709662 * fConst188); + fConst220 = (0.0045108949595698885 * fConst188); + fConst221 = (0.004510894959569885 * fConst188); + fConst222 = (0.01353268487870966 * fConst188); + fConst223 = (0.010086667768959435 * fConst193); + fConst224 = (0.010086667768959433 * fConst193); + fConst225 = (0.0 - (0.22360679774997891 * fConst197)); + fConst226 = (0.0 - (0.67082039324993681 * fConst197)); + fConst227 = (0.0 - (0.22360679774997907 * fConst197)); + fConst228 = (0.0 - (0.22360679774997891 * fConst202)); + fConst229 = (0.0 - (0.67082039324993681 * fConst202)); + fConst230 = (0.0 - (0.22360679774997907 * fConst202)); + fConst231 = (0.0 - (5.8273688116286149e-16 * fConst124)); + fConst232 = (0.0 - (1.165473762325723e-15 * fConst124)); + fConst233 = (0.0 - (3.4992181344801496 * fConst124)); + fConst234 = (0.0 - (3.4992181344801501 * fConst124)); + fConst235 = (0.0 - (3.4992181344801487 * fConst124)); + fConst236 = (0.0 - (3.4992181344801505 * fConst124)); + fConst237 = (0.0 - (1.1313708498984762 * fConst131)); + fConst238 = (0.0 - (1.1313708498984758 * fConst131)); + fConst239 = (0.0 - (1.1313708498984765 * fConst131)); + fConst240 = (0.0 - (3.1401849173675503e-16 * fConst137)); + fConst241 = (0.0 - (6.2803698347351007e-16 * fConst137)); + fConst242 = (0.0 - (5.6418958354775643 * fConst124)); + fConst243 = (0.0 - (3.9894228040143274 * fConst21)); + fConst244 = (0.0 - (1.4142135623730951 * (fConst123 * fConst243))); + fConst245 = (0.0 - (1.3638242119692871e-15 * fConst124)); + fConst246 = (0.0 - (2.7276484239385742e-15 * fConst124)); + fConst247 = (0.0 - (3.1401849173675503e-16 * fConst141)); + fConst248 = (0.0 - (6.2803698347351007e-16 * fConst141)); + fConst249 = (0.12736554972506672 * fConst21); + fConst250 = (0.031925808815477283 * fConst243); + fConst251 = (2.8768166971227152e-17 * fConst21); + fConst252 = (5.7536333942454304e-17 * fConst21); + fConst253 = (6.6238275600721768e-18 * fConst140); + fConst254 = (1.3247655120144354e-17 * fConst140); + fConst255 = (2.3511493268037518e-17 * fConst21); + fConst256 = (0.070590901547238516 * fConst21); + fConst257 = (0.070590901547238558 * fConst21); + fConst258 = (0.07059090154723846 * fConst21); + fConst259 = (0.022823523772822384 * fConst130); + fConst260 = (0.022823523772822398 * fConst130); + fConst261 = (0.022823523772822367 * fConst130); + fConst262 = (1.2669600797833527e-17 * fConst136); + fConst263 = (0.0 - (0.34992181344801404 * fConst109)); + fConst264 = (0.0 - (0.34992181344801415 * fConst109)); + fConst265 = (0.0 - (4.548983574824196 * fConst109)); + fConst266 = (0.0 - (3.1492963210321285 * fConst109)); + fConst267 = (0.0 - (3.1492963210321339 * fConst109)); + fConst268 = (0.0 - (4.5489835748241934 * fConst109)); + fConst269 = (0.0 - (4.5135166683820485 * fConst109)); + fConst270 = (0.0 - (4.5135166683820538 * fConst109)); + fConst271 = (0.0 - (2.4568472851294949 * fConst109)); + fConst272 = (0.0 - (2.4568472851294976 * fConst109)); + fConst273 = double(tgamma(9.0)); + fConst274 = double(tgamma(4.5)); + fConst275 = (sqrt((9.0 * (fConst1 / fConst273))) * fConst274); + fConst276 = (0.0 - (1.9878387281720961e-16 * fConst275)); + fConst277 = (0.0 - (10.128518061100836 * fConst275)); + fConst278 = (0.0 - (10.128518061100845 * fConst275)); + fConst279 = (0.0 - (10.12851806110084 * fConst275)); + fConst280 = (0.0 - (10.12851806110085 * fConst275)); + fConst281 = double(tgamma(8.0)); + fConst282 = sqrt((9.0 * (fConst31 / fConst281))); + fConst283 = (fConst282 * fConst108); + fConst284 = (0.0 - (11.170383851240118 * fConst283)); + fConst285 = (0.0 - (7.898654169668589 * fConst108)); + fConst286 = (0.0 - (1.4142135623730951 * (fConst282 * fConst285))); + fConst287 = (0.0 - (9.9292300899912185 * fConst283)); + fConst288 = (0.0 - (9.9292300899912025 * fConst283)); + fConst289 = (0.0 - (9.9292300899912096 * fConst108)); + fConst290 = (fConst282 * fConst289); + fConst291 = (0.0 - (1.0000000000000009 * fConst290)); + fConst292 = (0.0 - (0.99999999999999933 * fConst290)); + fConst293 = (0.25217092292041182 * fConst108); + fConst294 = (0.031925808815477283 * fConst285); + fConst295 = (0.20944469721075218 * fConst108); + fConst296 = (0.20944469721075201 * fConst108); + fConst297 = (0.021093750000000012 * fConst289); + fConst298 = (0.021093749999999994 * fConst289); + fConst299 = (0.044696311044975172 * fConst108); + fConst300 = (0.19368401452822653 * fConst108); + fConst301 = (0.19368401452822659 * fConst108); + fConst302 = (0.13408893313492587 * fConst108); + fConst303 = (0.13408893313492612 * fConst108); + fConst304 = (0.0 - (8.2571033474838984 * fConst108)); + fConst305 = (0.023456653789763436 * fConst304); + fConst306 = (0.02345665378976344 * fConst304); + fConst307 = (0.016239221854451587 * fConst304); + fConst308 = (0.016239221854451615 * fConst304); + fConst309 = (0.0 - (2.2156133258658013 * fConst108)); + fConst310 = (0.020173335537918863 * fConst309); + fConst311 = (0.0 - (2.2156133258658035 * fConst283)); + fConst312 = (0.0 - (2.2156133258658 * fConst283)); + fConst313 = (0.0 - (6.6468399775974225 * fConst283)); + fConst314 = (0.0 - (6.6468399775974278 * fConst283)); + fConst315 = (0.0 - (9.6009910787518393 * fConst283)); + fConst316 = (0.0 - (9.6009910787518553 * fConst283)); + fConst317 = (fConst282 * fConst304); + fConst318 = (0.0 - (0.80498447189992428 * fConst317)); + fConst319 = (0.0 - (0.80498447189992484 * fConst317)); + fConst320 = (0.0 - (1.1627553482998914 * fConst317)); + fConst321 = (0.0 - (1.1627553482998934 * fConst317)); + fConst322 = (fConst282 * fConst309); + fConst323 = (0.0 - (1.0000000000000009 * fConst322)); + fConst324 = (0.0 - (0.99999999999999933 * fConst322)); + fConst325 = sqrt((9.0 * (fConst2 / fConst107))); + fConst326 = (fConst325 * fConst21); + fConst327 = (0.0 - (6.8578507705370146 * fConst326)); + fConst328 = (0.0 - (3.7301790647785582 * fConst21)); + fConst329 = (fConst325 * fConst328); + fConst330 = (0.0 - (0.42426406871192845 * fConst329)); + fConst331 = (0.0 - (0.42426406871192907 * fConst329)); + fConst332 = (0.0 - (0.42426406871192829 * fConst329)); + fConst333 = (0.0 - (0.42426406871192973 * fConst329)); + fConst334 = (0.0 - ((2.1105794120443448 * fConst130) + (10.257992428141025 * fConst21))); + fConst335 = (fConst325 * fConst334); + fConst336 = (0.0 - (0.42426406871192845 * fConst335)); + fConst337 = (0.0 - (0.42426406871192907 * fConst335)); + fConst338 = (0.0 - (0.42426406871192829 * fConst335)); + fConst339 = (0.0 - (0.42426406871192973 * fConst335)); + fConst340 = (0.0 - ((6.3317382361330381 * fConst136) + (2.0515984856282001 * fConst21))); + fConst341 = (fConst325 * fConst340); + fConst342 = (0.0 - (0.70710678118654757 * fConst341)); + fConst343 = (0.0 - (11.283791670955125 * fConst21)); + fConst344 = (fConst325 * fConst343); + fConst345 = (0.0 - (0.70710678118654757 * fConst344)); + fConst346 = (0.022574955908289243 * fConst345); + fConst347 = (0.0 - (7.0923072071365816 * fConst326)); + fConst348 = (0.0 - ((4.0414518843273806 * fConst140) + (7.5225277806367483 * fConst21))); + fConst349 = (fConst325 * fConst348); + fConst350 = (0.0 - (0.70710678118654757 * fConst349)); + fConst351 = (0.14960335515053727 * fConst21); + fConst352 = (0.14960335515053733 * fConst21); + fConst353 = (0.014915533665653739 * fConst348); + fConst354 = (0.01491553366565374 * fConst348); + fConst355 = (0.13834572466301867 * fConst21); + fConst356 = (0.1383457246630187 * fConst21); + fConst357 = (0.008558821414808411 * fConst328); + fConst358 = (0.0085588214148084006 * fConst328); + fConst359 = (0.0085588214148084076 * fConst328); + fConst360 = (0.0085588214148084041 * fConst328); + fConst361 = (0.008558821414808411 * fConst334); + fConst362 = (0.0085588214148084006 * fConst334); + fConst363 = (0.0085588214148084076 * fConst334); + fConst364 = (0.0085588214148084041 * fConst334); + fConst365 = (0.014264702358014003 * fConst340); + fConst366 = (0.014264702358014004 * fConst340); + fConst367 = sqrt((9.0 * (fConst32 / fConst122))); + fConst368 = (fConst367 * fConst3); + fConst369 = (0.0 - (0.99735570100357918 * fConst368)); + fConst370 = (0.0 - ((2.4748737341529159 * fConst165) + (4.0 * fConst36))); + fConst371 = (0.0 - (0.47140452079103168 * (fConst367 * fConst370))); + fConst372 = (0.0 - (2.6596152026762163 * fConst3)); + fConst373 = (fConst367 * fConst372); + fConst374 = (0.0 - (0.33333333333333331 * fConst373)); + fConst375 = (0.0 - (0.33333333333333343 * fConst373)); + fConst376 = (0.0 - ((2.0207259421636903 * fConst169) + (4.0 * fConst40))); + fConst377 = (fConst367 * fConst376); + fConst378 = (0.0 - (0.33333333333333331 * fConst377)); + fConst379 = (0.0 - (0.33333333333333343 * fConst377)); + fConst380 = (0.02251526097503671 * fConst3); + fConst381 = (0.010641936271825759 * fConst370); + fConst382 = (0.0070312500000000002 * fConst372); + fConst383 = (0.007031250000000001 * fConst372); + fConst384 = (0.0070312500000000002 * fConst376); + fConst385 = (0.007031250000000001 * fConst376); + fConst386 = (0.059861130863806261 * fConst3); + fConst387 = ((1.0552897060221724 * fConst183) - (3.8926344352424089 * fConst3)); + fConst388 = (0.0030072633063799288 * fConst387); + fConst389 = (0.0090217899191397753 * fConst387); + fConst390 = (0.009021789919139777 * fConst387); + fConst391 = (0.0030072633063799293 * fConst387); + fConst392 = (0.0 - ((1.0552897060221724 * fConst188) + (4.0 * fConst54))); + fConst393 = (0.0030072633063799288 * fConst392); + fConst394 = (0.0090217899191397753 * fConst392); + fConst395 = (0.009021789919139777 * fConst392); + fConst396 = (0.0030072633063799293 * fConst392); + fConst397 = (0.0 - ((3.1658691180665191 * fConst193) + (4.0 * fConst59))); + fConst398 = (0.0067244451793062911 * fConst397); + fConst399 = (fConst367 * fConst387); + fConst400 = (0.0 - (0.14907119849998646 * fConst399)); + fConst401 = (0.0 - (2.9673392757131363 * fConst368)); + fConst402 = (0.0 - (2.9673392757131376 * fConst368)); + fConst403 = (0.0 - (0.1490711984999861 * fConst399)); + fConst404 = (0.0 - (0.44721359549995793 * fConst399)); + fConst405 = (0.0 - (0.44721359549995798 * fConst399)); + fConst406 = (fConst367 * fConst392); + fConst407 = (0.0 - (0.1490711984999861 * fConst406)); + fConst408 = (0.0 - (0.44721359549995793 * fConst406)); + fConst409 = (0.0 - (0.44721359549995798 * fConst406)); + fConst410 = (0.0 - (0.14907119849998646 * fConst406)); + fConst411 = (fConst367 * fConst397); + fConst412 = (0.0 - (0.33333333333333331 * fConst411)); + fConst413 = (0.0 - (0.33333333333333343 * fConst411)); + fConst414 = (0.0070312499999999993 * fConst372); + fConst415 = (0.0070312499999999993 * fConst376); + fConst416 = (0.059861130863806254 * fConst3); + fConst417 = (0.05986113086380624 * fConst3); + fConst418 = (0.0030072633063799254 * fConst387); + fConst419 = (0.0030072633063799232 * fConst387); + fConst420 = (0.0090217899191397718 * fConst387); + fConst421 = (0.0030072633063799254 * fConst392); + fConst422 = (0.0030072633063799232 * fConst392); + fConst423 = (0.0090217899191397718 * fConst392); + fConst424 = (0.0067244451793062893 * fConst397); + fConst425 = (0.0067244451793062885 * fConst397); + fConst426 = (0.0 - (0.14907119849998593 * fConst399)); + fConst427 = (0.0 - (0.44721359549995787 * fConst399)); + fConst428 = (0.0 - (0.14907119849998604 * fConst399)); + fConst429 = (0.0 - (0.14907119849998593 * fConst406)); + fConst430 = (0.0 - (0.44721359549995787 * fConst406)); + fConst431 = (0.0 - (0.14907119849998604 * fConst406)); + fConst432 = (0.0 - (1.522748764978713e-15 * fConst326)); + fConst433 = (0.0 - (3.0454975299574259e-15 * fConst326)); + fConst434 = (0.0 - (0.56568542494923812 * fConst329)); + fConst435 = (0.0 - (0.5656854249492379 * fConst329)); + fConst436 = (0.0 - (0.56568542494923824 * fConst329)); + fConst437 = (0.0 - (0.56568542494923812 * fConst335)); + fConst438 = (0.0 - (0.5656854249492379 * fConst335)); + fConst439 = (0.0 - (0.56568542494923824 * fConst335)); + fConst440 = (0.0 - (1.5700924586837752e-16 * fConst341)); + fConst441 = (0.0 - (3.1401849173675503e-16 * fConst341)); + fConst442 = (0.012698412698412698 * fConst345); + fConst443 = (0.0 - (9.9735570100358153 * fConst326)); + fConst444 = (0.0 - (1.5700924586837752e-16 * fConst344)); + fConst445 = (0.0 - (3.1401849173675503e-16 * fConst344)); + fConst446 = (0.0 - ((4.9497474683058318 * fConst243) + (5.6418958354775643 * fConst21))); + fConst447 = (0.0 - (0.70710678118654757 * (fConst325 * fConst446))); + fConst448 = (0.0 - (1.5748085518155944e-15 * fConst326)); + fConst449 = (0.0 - (3.1496171036311889e-15 * fConst326)); + fConst450 = (0.0 - (1.5700924586837752e-16 * fConst349)); + fConst451 = (0.0 - (3.1401849173675503e-16 * fConst349)); + fConst452 = (0.0089791337293529845 * fConst343); + fConst453 = (0.22515260975036763 * fConst21); + fConst454 = (3.5444768026723675e-18 * fConst343); + fConst455 = (7.088953605344735e-18 * fConst343); + fConst456 = (0.015962904407738641 * fConst446); + fConst457 = (3.3218617889860196e-17 * fConst21); + fConst458 = (6.6437235779720392e-17 * fConst21); + fConst459 = (3.3119137800360884e-18 * fConst348); + fConst460 = (6.6238275600721768e-18 * fConst348); + fConst461 = (6.1437843551734282e-17 * fConst21); + fConst462 = (0.011411761886411192 * fConst328); + fConst463 = (0.011411761886411199 * fConst328); + fConst464 = (0.011411761886411183 * fConst328); + fConst465 = (0.011411761886411192 * fConst334); + fConst466 = (0.011411761886411199 * fConst334); + fConst467 = (0.011411761886411183 * fConst334); + fConst468 = (6.3348003989167635e-18 * fConst340); + fConst469 = (0.0 - (2.2156133258658022 * fConst283)); + fConst470 = (0.0 - (2.2156133258658031 * fConst283)); + fConst471 = (0.0 - (9.600991078751834 * fConst283)); + fConst472 = (0.0 - (6.6468399775974083 * fConst283)); + fConst473 = (0.0 - (6.6468399775974198 * fConst283)); + fConst474 = (0.0 - (9.6009910787518287 * fConst283)); + fConst475 = (0.0 - (1.1627553482998907 * fConst317)); + fConst476 = (0.0 - (0.8049844718999225 * fConst317)); + fConst477 = (0.0 - (0.80498447189992395 * fConst317)); + fConst478 = (0.0 - (1.1627553482998902 * fConst317)); + fConst479 = (0.0 - (1.0000000000000004 * fConst322)); + fConst480 = (0.0 - (1.0000000000000007 * fConst322)); + fConst481 = (0.0 - (9.929230089991206 * fConst283)); + fConst482 = (0.0 - (9.9292300899912167 * fConst283)); + fConst483 = (0.0 - (0.99999999999999967 * fConst290)); + fConst484 = (0.0 - (1.0000000000000007 * fConst290)); + fConst485 = (0.20944469721075193 * fConst108); + fConst486 = (0.021093749999999988 * fConst289); + fConst487 = (0.044696311044975207 * fConst108); + fConst488 = (0.044696311044975165 * fConst108); + fConst489 = (0.13408893313492565 * fConst108); + fConst490 = (0.19368401452822634 * fConst108); + fConst491 = (0.19368401452822642 * fConst108); + fConst492 = (0.13408893313492534 * fConst108); + fConst493 = (0.01623922185445156 * fConst304); + fConst494 = (0.023456653789763415 * fConst304); + fConst495 = (0.023456653789763426 * fConst304); + fConst496 = (0.016239221854451522 * fConst304); + fConst497 = (0.02017333553791888 * fConst309); + fConst498 = (0.020173335537918856 * fConst309); + fConst499 = (0.0 - (12.766152972845845 * fConst275)); + fConst500 = (0.0 - (12.766152972845846 * fConst275)); + fConst501 = (0.0 - (5.6738457657092614 * fConst275)); + fConst502 = (0.0 - (5.6738457657092622 * fConst275)); + fConst503 = (0.02017333553791887 * (0.0 - (0.42202158587919975 * fConst275))); + fConst504 = (double(tgamma(5.5)) * sqrt((11.0 * (fConst1 / double(tgamma(11.0)))))); + fConst505 = (0.012698412698412698 * (0.0 - (25.532305945691693 * fConst504))); + fConst506 = (0.0 - (4.5135166683820529 * fConst504)); + fConst507 = (0.0 - (18.054066673528194 * fConst504)); + fConst508 = (0.0 - (18.054066673528212 * fConst504)); + fConst509 = (0.0 - (6.5515927603453177 * fConst504)); + fConst510 = (0.0 - (6.5515927603453248 * fConst504)); + fConst511 = (0.0 - (0.25448859159855519 * fConst504)); + fConst512 = (0.0 - (0.76346577479567002 * fConst504)); + fConst513 = (0.0 - (0.76346577479565958 * fConst504)); + fConst514 = (0.0 - (20.104598736285965 * fConst504)); + fConst515 = (0.0 - (20.104598736285954 * fConst504)); + fConst516 = sqrt((11.0 * (fConst31 / double(tgamma(10.0))))); + fConst517 = (fConst274 * fConst516); + fConst518 = (0.0 - (1.6182610048842852e-15 * fConst517)); + fConst519 = (0.0 - (27.484767892644079 * fConst517)); + fConst520 = (0.0 - (27.484767892644101 * fConst517)); + fConst521 = (0.0 - (27.484767892644086 * fConst517)); + fConst522 = (0.0 - (27.484767892644118 * fConst517)); + fConst523 = (0.0 - (20.244443496069714 * fConst274)); + fConst524 = (fConst516 * fConst523); + fConst525 = (0.0 - (1.3576450198781711 * fConst524)); + fConst526 = (0.0 - (1.3576450198781722 * fConst524)); + fConst527 = (0.0 - (1.3576450198781715 * fConst524)); + fConst528 = (0.0 - (1.3576450198781731 * fConst524)); + fConst529 = (0.0 - (2.4293332195283566 * fConst274)); + fConst530 = (fConst516 * fConst529); + fConst531 = (0.0 - (6.6613381477509402e-16 * fConst530)); + fConst532 = (0.0 - (20.847040507857912 * fConst274)); + fConst533 = (1.405126015541214e-17 * fConst532); + fConst534 = (2.810252031082428e-17 * fConst532); + fConst535 = (3.2645722239460454e-17 * fConst274); + fConst536 = (6.5291444478920883e-17 * fConst274); + fConst537 = (6.5291444478920908e-17 * fConst274); + fConst538 = (0.55445944488012866 * fConst274); + fConst539 = (0.55445944488012844 * fConst274); + fConst540 = (0.55445944488012833 * fConst274); + fConst541 = (0.027388228527386899 * fConst523); + fConst542 = (0.027388228527386888 * fConst523); + fConst543 = (0.027388228527386878 * fConst523); + fConst544 = (1.343814095861187e-17 * fConst529); + fConst545 = (2.6876281917223736e-17 * fConst529); + fConst546 = (2.6876281917223739e-17 * fConst529); + fConst547 = sqrt((11.0 * (fConst2 / fConst273))); + fConst548 = (0.0 - (31.594616678674353 * fConst108)); + fConst549 = (fConst547 * fConst548); + fConst550 = (0.012698412698412698 * (0.0 - (0.70710678118654757 * fConst549))); + fConst551 = (fConst108 * fConst547); + fConst552 = (0.0 - (27.645289593840062 * fConst551)); + fConst553 = (0.0 - (0.50000000000000044 * fConst549)); + fConst554 = (0.0 - (0.49999999999999967 * fConst549)); + fConst555 = (0.0 - ((6.3639610306789276 * fConst285) + (11.170383851240119 * fConst108))); + fConst556 = (0.0 - (0.70710678118654757 * (fConst547 * fConst555))); + fConst557 = (0.0 - (17.197930995906489 * fConst551)); + fConst558 = (0.0 - (17.197930995906464 * fConst551)); + fConst559 = (0.0 - ((5.1961524227066329 * fConst289) + (17.197930995906471 * fConst108))); + fConst560 = (fConst547 * fConst559); + fConst561 = (0.0 - (0.50000000000000044 * fConst560)); + fConst562 = (0.0 - (0.49999999999999967 * fConst560)); + fConst563 = (0.62409119365282684 * fConst108); + fConst564 = (0.0089791337293529845 * fConst548); + fConst565 = (0.011287477954144627 * fConst548); + fConst566 = (0.011287477954144618 * fConst548); + fConst567 = (0.015962904407738641 * fConst555); + fConst568 = (0.36276885694490241 * fConst108); + fConst569 = (0.36276885694490207 * fConst108); + fConst570 = (0.010546875000000006 * fConst559); + fConst571 = (0.010546874999999997 * fConst559); + fConst572 = (0.15722518980975816 * fConst108); + fConst573 = (0.0 - (4.979220665234859 * fConst108)); + fConst574 = (0.011728326894881718 * fConst573); + fConst575 = (0.01172832689488172 * fConst573); + fConst576 = (0.0081196109272257937 * fConst573); + fConst577 = (0.0081196109272258076 * fConst573); + fConst578 = (0.0 - ((2.7136021011998714 * fConst304) + (27.385713658791659 * fConst108))); + fConst579 = (0.011728326894881718 * fConst578); + fConst580 = (0.01172832689488172 * fConst578); + fConst581 = (0.0081196109272257937 * fConst578); + fConst582 = (0.0081196109272258076 * fConst578); + fConst583 = (0.0 - ((8.1408063035996197 * fConst309) + (2.449452694136097 * fConst108))); + fConst584 = (0.010086667768959431 * fConst583); + fConst585 = (0.0 - (7.7937131177057752 * fConst551)); + fConst586 = (0.0 - (7.7937131177057628 * fConst551)); + fConst587 = (fConst547 * fConst573); + fConst588 = (0.0 - (0.40249223594996214 * fConst587)); + fConst589 = (0.0 - (0.40249223594996242 * fConst587)); + fConst590 = (0.0 - (0.58137767414994568 * fConst587)); + fConst591 = (0.0 - (0.58137767414994668 * fConst587)); + fConst592 = (fConst547 * fConst578); + fConst593 = (0.0 - (0.40249223594996214 * fConst592)); + fConst594 = (0.0 - (0.40249223594996242 * fConst592)); + fConst595 = (0.0 - (0.58137767414994568 * fConst592)); + fConst596 = (0.0 - (0.58137767414994668 * fConst592)); + fConst597 = (fConst547 * fConst583); + fConst598 = (0.0 - (0.50000000000000044 * fConst597)); + fConst599 = (0.0 - (0.49999999999999967 * fConst597)); + fConst600 = sqrt((11.0 * (fConst32 / fConst281))); + fConst601 = (fConst21 * fConst600); + fConst602 = (0.0 - (13.360651058924196 * fConst601)); + fConst603 = ((1.3568010505999357 * fConst328) - (18.557406538063905 * fConst21)); + fConst604 = (fConst600 * fConst603); + fConst605 = (0.0 - (0.28284271247461895 * fConst604)); + fConst606 = (0.0 - (0.28284271247461934 * fConst604)); + fConst607 = (0.0 - (0.28284271247461884 * fConst604)); + fConst608 = (0.0 - (0.28284271247461978 * fConst604)); + fConst609 = (0.0 - ((1.3568010505999357 * fConst334) + (6.0 * fConst130))); + fConst610 = (fConst600 * fConst609); + fConst611 = (0.0 - (0.28284271247461895 * fConst610)); + fConst612 = (0.0 - (0.28284271247461934 * fConst610)); + fConst613 = (0.0 - (0.28284271247461884 * fConst610)); + fConst614 = (0.0 - (0.28284271247461978 * fConst610)); + fConst615 = (0.0 - ((4.0704031517998098 * fConst340) + (6.0 * fConst136))); + fConst616 = (fConst600 * fConst615); + fConst617 = (0.0 - (0.47140452079103168 * fConst616)); + fConst618 = (0.0 - (5.0242958677880805e-15 * fConst601)); + fConst619 = (0.0 - ((2.5980762113533165 * fConst348) + (6.0 * fConst140))); + fConst620 = (fConst600 * fConst619); + fConst621 = (0.0 - (0.47140452079103168 * fConst620)); + fConst622 = (0.0099436891104358258 * fConst619); + fConst623 = (0.0099436891104358275 * fConst619); + fConst624 = (0.26952889681672887 * fConst21); + fConst625 = (0.26952889681672892 * fConst21); + fConst626 = (0.0057058809432056056 * fConst603); + fConst627 = (0.0057058809432056004 * fConst603); + fConst628 = (0.0057058809432056047 * fConst603); + fConst629 = (0.005705880943205603 * fConst603); + fConst630 = (0.0057058809432056056 * fConst609); + fConst631 = (0.0057058809432056004 * fConst609); + fConst632 = (0.0057058809432056047 * fConst609); + fConst633 = (0.005705880943205603 * fConst609); + fConst634 = (0.009509801572009334 * fConst615); + fConst635 = (0.0095098015720093357 * fConst615); + fConst636 = sqrt((11.0 * (fConst20 / fConst107))); + fConst637 = (0.0 - (2.5 * fConst158)); + fConst638 = (fConst636 * fConst637); + fConst639 = (0.012698412698412698 * (0.0 - (0.35355339059327379 * fConst638))); + fConst640 = (0.0 - (4.4881006545161242 * fConst3)); + fConst641 = (0.0 - (0.35355339059327379 * (fConst636 * fConst640))); + fConst642 = (0.0 - (0.25 * fConst638)); + fConst643 = (0.0 - (0.25000000000000006 * fConst638)); + fConst644 = (0.0 - ((2.1213203435596424 * fConst370) + (2.5 * fConst165))); + fConst645 = (0.0 - (0.35355339059327379 * (fConst636 * fConst644))); + fConst646 = ((1.7320508075688776 * fConst372) - (4.6065886596178087 * fConst3)); + fConst647 = (fConst636 * fConst646); + fConst648 = (0.0 - (0.25 * fConst647)); + fConst649 = (0.0 - (0.25000000000000006 * fConst647)); + fConst650 = (0.0 - ((1.7320508075688776 * fConst376) + (2.5 * fConst169))); + fConst651 = (fConst636 * fConst650); + fConst652 = (0.0 - (0.25 * fConst651)); + fConst653 = (0.0 - (0.25000000000000006 * fConst651)); + fConst654 = (0.0044895668646764923 * fConst637); + fConst655 = (0.0079814522038693207 * fConst640); + fConst656 = (0.0056437389770723108 * fConst637); + fConst657 = (0.0056437389770723117 * fConst637); + fConst658 = (0.0079814522038693207 * fConst644); + fConst659 = (0.0052734375000000003 * fConst646); + fConst660 = (0.0052734375000000012 * fConst646); + fConst661 = (0.0052734375000000003 * fConst650); + fConst662 = (0.0052734375000000012 * fConst650); + fConst663 = (0.065577343198713223 * fConst3); + fConst664 = ((0.90453403373329044 * fConst387) - (2.5 * fConst183)); + fConst665 = (0.0022554474797849468 * fConst664); + fConst666 = (0.0067663424393548319 * fConst664); + fConst667 = (0.0067663424393548327 * fConst664); + fConst668 = (0.0022554474797849473 * fConst664); + fConst669 = (0.0 - ((0.90453403373329044 * fConst392) + (2.5 * fConst188))); + fConst670 = (0.0022554474797849468 * fConst669); + fConst671 = (0.0067663424393548319 * fConst669); + fConst672 = (0.0067663424393548327 * fConst669); + fConst673 = (0.0022554474797849473 * fConst669); + fConst674 = (0.0 - ((2.7136021011998732 * fConst397) + (2.5 * fConst193))); + fConst675 = (0.0050433338844797183 * fConst674); + fConst676 = (fConst3 * fConst636); + fConst677 = (0.0 - (3.2506941192471897 * fConst676)); + fConst678 = (0.0 - (3.2506941192471905 * fConst676)); + fConst679 = (fConst636 * fConst664); + fConst680 = (0.0 - (0.11180339887498958 * fConst679)); + fConst681 = (0.0 - (0.33541019662496846 * fConst679)); + fConst682 = (0.0 - (0.33541019662496852 * fConst679)); + fConst683 = (0.0 - (0.11180339887498984 * fConst679)); + fConst684 = (fConst636 * fConst669); + fConst685 = (0.0 - (0.11180339887498958 * fConst684)); + fConst686 = (0.0 - (0.33541019662496846 * fConst684)); + fConst687 = (0.0 - (0.33541019662496852 * fConst684)); + fConst688 = (0.0 - (0.11180339887498984 * fConst684)); + fConst689 = (fConst636 * fConst674); + fConst690 = (0.0 - (0.25 * fConst689)); + fConst691 = (0.0 - (0.25000000000000006 * fConst689)); + fConst692 = (0.0056437389770723099 * fConst637); + fConst693 = (0.0052734374999999995 * fConst646); + fConst694 = (0.0052734374999999995 * fConst650); + fConst695 = (0.065577343198713209 * fConst3); + fConst696 = (0.006766342439354831 * fConst664); + fConst697 = (0.0022554474797849442 * fConst664); + fConst698 = (0.0022554474797849425 * fConst664); + fConst699 = (0.0067663424393548301 * fConst664); + fConst700 = (0.006766342439354831 * fConst669); + fConst701 = (0.0022554474797849442 * fConst669); + fConst702 = (0.0022554474797849425 * fConst669); + fConst703 = (0.0067663424393548301 * fConst669); + fConst704 = (0.0050433338844797174 * fConst674); + fConst705 = (0.0050433338844797166 * fConst674); + fConst706 = (0.0 - (0.11180339887498945 * fConst679)); + fConst707 = (0.0 - (0.3354101966249684 * fConst679)); + fConst708 = (0.0 - (0.11180339887498954 * fConst679)); + fConst709 = (0.0 - (0.11180339887498945 * fConst684)); + fConst710 = (0.0 - (0.3354101966249684 * fConst684)); + fConst711 = (0.0 - (0.11180339887498954 * fConst684)); + fConst712 = (0.0 - (2.9666604859200243e-15 * fConst601)); + fConst713 = (0.0 - (5.9333209718400486e-15 * fConst601)); + fConst714 = (0.0 - (0.37712361663282534 * fConst604)); + fConst715 = (0.0 - (0.3771236166328254 * fConst604)); + fConst716 = (0.0 - (0.37712361663282523 * fConst604)); + fConst717 = (0.0 - (0.37712361663282545 * fConst604)); + fConst718 = (0.0 - (0.37712361663282534 * fConst610)); + fConst719 = (0.0 - (0.3771236166328254 * fConst610)); + fConst720 = (0.0 - (0.37712361663282523 * fConst610)); + fConst721 = (0.0 - (0.37712361663282545 * fConst610)); + fConst722 = (0.0 - (1.0467283057891834e-16 * fConst616)); + fConst723 = (0.0 - (2.0934566115783667e-16 * fConst616)); + fConst724 = (0.0 - (9.8733177120857309 * fConst601)); + fConst725 = (0.0 - ((3.1819805153394638 * fConst446) + (6.0 * fConst243))); + fConst726 = (0.0 - (0.47140452079103168 * (fConst600 * fConst725))); + fConst727 = (0.0 - (1.1156177909894717e-30 * fConst601)); + fConst728 = (0.0 - (2.2312355819789434e-30 * fConst601)); + fConst729 = (0.0 - (1.0467283057891834e-16 * fConst620)); + fConst730 = (0.0 - (2.0934566115783667e-16 * fConst620)); + fConst731 = (0.22288971201886659 * fConst21); + fConst732 = (0.010641936271825759 * fConst725); + fConst733 = (2.3532562778684169e-32 * fConst21); + fConst734 = (4.7065125557368339e-32 * fConst21); + fConst735 = (2.2079425200240589e-18 * fConst619); + fConst736 = (4.4158850400481179e-18 * fConst619); + fConst737 = (1.1969487481910018e-16 * fConst21); + fConst738 = (0.007607841257607462 * fConst603); + fConst739 = (0.0076078412576074646 * fConst603); + fConst740 = (0.0076078412576074551 * fConst603); + fConst741 = (0.007607841257607462 * fConst609); + fConst742 = (0.0076078412576074646 * fConst609); + fConst743 = (0.0076078412576074551 * fConst609); + fConst744 = (4.2232002659445085e-18 * fConst615); + fConst745 = (0.0 - (7.7937131177057708 * fConst551)); + fConst746 = (0.0 - (7.7937131177057735 * fConst551)); + fConst747 = (0.0 - (0.58137767414994534 * fConst587)); + fConst748 = (0.0 - (0.40249223594996125 * fConst587)); + fConst749 = (0.0 - (0.40249223594996197 * fConst587)); + fConst750 = (0.0 - (0.58137767414994512 * fConst587)); + fConst751 = (0.0 - (0.58137767414994534 * fConst592)); + fConst752 = (0.0 - (0.40249223594996125 * fConst592)); + fConst753 = (0.0 - (0.40249223594996197 * fConst592)); + fConst754 = (0.0 - (0.58137767414994512 * fConst592)); + fConst755 = (0.0 - (0.50000000000000022 * fConst597)); + fConst756 = (0.0 - (0.50000000000000033 * fConst597)); + fConst757 = (0.0 - (0.49999999999999983 * fConst549)); + fConst758 = (0.0 - (0.50000000000000033 * fConst549)); + fConst759 = (0.0 - (17.197930995906468 * fConst551)); + fConst760 = (0.0 - (17.197930995906486 * fConst551)); + fConst761 = (0.0 - (0.49999999999999983 * fConst560)); + fConst762 = (0.0 - (0.50000000000000033 * fConst560)); + fConst763 = (0.011287477954144615 * fConst548); + fConst764 = (0.36276885694490202 * fConst108); + fConst765 = (0.010546874999999994 * fConst559); + fConst766 = (0.1572251898097583 * fConst108); + fConst767 = (0.15722518980975814 * fConst108); + fConst768 = (0.0081196109272257799 * fConst573); + fConst769 = (0.011728326894881708 * fConst573); + fConst770 = (0.011728326894881713 * fConst573); + fConst771 = (0.0081196109272257608 * fConst573); + fConst772 = (0.0081196109272257799 * fConst578); + fConst773 = (0.011728326894881708 * fConst578); + fConst774 = (0.011728326894881713 * fConst578); + fConst775 = (0.0081196109272257608 * fConst578); + fConst776 = (0.01008666776895944 * fConst583); + fConst777 = (0.010086667768959428 * fConst583); + fConst778 = (0.0 - (29.482167421553953 * fConst517)); + fConst779 = (0.0 - (29.482167421553957 * fConst517)); + fConst780 = (fConst516 * fConst532); + fConst781 = (0.0 - (1.4142135623730949 * fConst780)); + fConst782 = (0.0 - (1.4142135623730951 * fConst780)); + fConst783 = (0.45851597901024027 * fConst274); + fConst784 = (0.031925808815477283 * (0.0 - (14.361922094451582 * fConst274))); + fConst785 = (0.1617173380900363 * fConst274); + fConst786 = (0.16171733809003749 * fConst274); + fConst787 = (0.16171733809003774 * fConst274); + fConst788 = (0.16171733809003719 * fConst274); + fConst789 = (0.16171733809003716 * fConst274); + fConst790 = (0.16171733809003799 * fConst274); + fConst791 = (0.16171733809003505 * fConst274); + fConst792 = (0.0079882333204877847 * fConst523); + fConst793 = (0.007988233320487842 * fConst523); + fConst794 = (0.0079882333204878541 * fConst523); + fConst795 = (0.0079882333204878298 * fConst523); + fConst796 = (0.0079882333204878263 * fConst523); + fConst797 = (0.007988233320487868 * fConst523); + fConst798 = (0.0079882333204877223 * fConst523); + fConst799 = (0.0 - (3.4355959865804975 * fConst517)); + fConst800 = (0.0 - (1.4142135623730951 * fConst530)); + fConst801 = (0.0 - (0.25448859159855491 * fConst504)); + fConst802 = (0.0 - (0.25448859159855475 * fConst504)); + fConst803 = (0.0 - (0.76346577479571942 * fConst504)); + fConst804 = (0.0 - (20.104598736285961 * fConst504)); + fConst805 = (0.0 - (0.76346577479577982 * fConst504)); + fConst806 = (0.0 - (18.054066673528208 * fConst504)); + fConst807 = (0.0 - (18.05406667352818 * fConst504)); + fConst808 = (0.0 - (6.551592760345323 * fConst504)); + fConst809 = (0.0 - (6.5515927603453132 * fConst504)); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec3[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec4[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec12[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec14[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec18[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec19[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec20[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->declare(0, "1", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30fc670", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31162d0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3120cf0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3132a80", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3147a70", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316a850", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31756e0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x318c5f0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a4970", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31be310", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31db6d0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3204850", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x320b600", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3223b00", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3241df0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3257f50", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x326c650", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x328f9d0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32b06f0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32d4b10", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32dc5a0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32f21d0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3312e80", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x332fe10", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3342830", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x335b630", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3377ed0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33a0ca0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33be810", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33e82f0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x33ef420", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3407420", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3425700", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3444540", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x345c940", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3472180", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(&fHslider0, "1", ""); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->declare(&fHslider0, "unit", "dB"); + ui_interface->addHorizontalSlider("Gain", &fHslider0, 0.0, -10.0, 50.0, 0.10000000000000001); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + double fSlow0 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider0)))); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow0 + (0.999 * fRec1[1])); + double fTemp0 = double(input0[i]); + double fTemp1 = double(input1[i]); + double fTemp2 = double(input2[i]); + double fTemp3 = double(input3[i]); + double fTemp4 = double(input4[i]); + double fTemp5 = double(input5[i]); + double fTemp6 = double(input6[i]); + double fTemp7 = double(input7[i]); + double fTemp8 = double(input8[i]); + double fTemp9 = double(input9[i]); + double fTemp10 = (((fTemp6 + fTemp7) + fTemp8) + fTemp9); + double fTemp11 = double(input10[i]); + double fTemp12 = double(input11[i]); + double fTemp13 = double(input12[i]); + double fTemp14 = double(input13[i]); + double fTemp15 = double(input14[i]); + double fTemp16 = double(input15[i]); + double fTemp17 = double(input16[i]); + double fTemp18 = double(input17[i]); + double fTemp19 = double(input18[i]); + double fTemp20 = double(input19[i]); + double fTemp21 = double(input20[i]); + double fTemp22 = double(input21[i]); + double fTemp23 = (((fTemp19 + fTemp20) + fTemp21) + fTemp22); + double fTemp24 = double(input22[i]); + double fTemp25 = double(input23[i]); + double fTemp26 = double(input24[i]); + double fTemp27 = double(input25[i]); + double fTemp28 = ((((fTemp23 + fTemp24) + fTemp25) + fTemp26) + fTemp27); + double fTemp29 = double(input26[i]); + double fTemp30 = double(input27[i]); + double fTemp31 = (fTemp29 + fTemp30); + double fTemp32 = double(input28[i]); + double fTemp33 = double(input29[i]); + double fTemp34 = ((fTemp31 + fTemp32) + fTemp33); + double fTemp35 = double(input30[i]); + double fTemp36 = double(input31[i]); + double fTemp37 = double(input32[i]); + double fTemp38 = double(input33[i]); + double fTemp39 = double(input34[i]); + double fTemp40 = double(input35[i]); + double fTemp41 = double(input36[i]); + double fTemp42 = double(input37[i]); + double fTemp43 = double(input38[i]); + double fTemp44 = double(input39[i]); + double fTemp45 = double(input40[i]); + double fTemp46 = double(input41[i]); + double fTemp47 = double(input42[i]); + double fTemp48 = double(input43[i]); + double fTemp49 = double(input44[i]); + double fTemp50 = double(input45[i]); + double fTemp51 = double(input46[i]); + double fTemp52 = double(input47[i]); + double fTemp53 = double(input48[i]); + double fTemp54 = double(input49[i]); + double fTemp55 = (fRec1[0] * ((((0.012698412698412698 * (((((fTemp0 + fTemp1) + fTemp2) + fTemp3) + fTemp4) + fTemp5)) + (0.022574955908289243 * ((((((((fTemp10 + fTemp11) + fTemp12) + fTemp13) + fTemp14) + fTemp15) + fTemp16) + fTemp17) + fTemp18))) + (0.021093750000000001 * fTemp28)) + (0.02017333553791887 * ((((((((((((((((((((fTemp34 + fTemp35) + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42) + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50) + fTemp51) + fTemp52) + fTemp53) + fTemp54)))); + fRec0[0] = max((fRec0[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (fRec1[0] * (((((fConst5 * fTemp4) + (0.022574955908289243 * ((((fConst6 * fTemp9) + (fConst7 * fTemp13)) + (fConst8 * fTemp14)) + (fConst6 * fTemp18)))) + (0.021093750000000001 * ((((fConst9 * fTemp21) + (fConst10 * fTemp22)) + (fConst9 * fTemp26)) + (fConst10 * fTemp27)))) + (fConst4 * (((((((((((((((((((((0.02026373487753309 * fTemp2) + (0.025473109945013343 * fTemp7)) + (0.025473109945013336 * fTemp11)) + (0.025473109945013343 * fTemp12)) + (0.025473109945013343 * fTemp16)) + (0.019434045907762619 * fTemp19)) + (0.019434045907762623 * fTemp20)) + (0.019434045907762619 * fTemp24)) + (0.019434045907762623 * fTemp25)) + (0.0097062489627452973 * fTemp29)) + (0.0097062489627452973 * fTemp30)) + (0.0097062489627453199 * fTemp35)) + (0.029118746888235923 * fTemp36)) + (0.029118746888235927 * fTemp37)) + (0.0097062489627453216 * fTemp38)) + (0.0097062489627453199 * fTemp43)) + (0.029118746888235923 * fTemp44)) + (0.029118746888235927 * fTemp45)) + (0.0097062489627453216 * fTemp46)) + (0.0097062489627452973 * fTemp51)) + (0.0097062489627452973 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst11 * fTemp32) + (fConst12 * fTemp33)) + (fConst13 * fTemp39)) + (fConst14 * fTemp40)) + (fConst15 * fTemp41)) + (fConst16 * fTemp42)) + (fConst13 * fTemp47)) + (fConst14 * fTemp48)) + (fConst15 * fTemp49)) + (fConst16 * fTemp50)) + (fConst11 * fTemp53)) + (fConst12 * fTemp54))))); + fRec2[0] = max((fRec2[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (fTemp0 - fTemp5); + double fTemp58 = ((((fTemp10 - fTemp15) - fTemp16) - fTemp17) - fTemp18); + double fTemp59 = ((((fTemp23 - fTemp24) - fTemp25) - fTemp26) - fTemp27); + double fTemp60 = (((((((fTemp35 + fTemp36) + fTemp37) + fTemp38) + fTemp39) + fTemp40) + fTemp41) + fTemp42); + double fTemp61 = ((((((((fTemp60 - fTemp43) - fTemp44) - fTemp45) - fTemp46) - fTemp47) - fTemp48) - fTemp49) - fTemp50); + double fTemp62 = ((((fTemp34 - fTemp51) - fTemp52) - fTemp53) - fTemp54); + double fTemp63 = (fRec1[0] * (((((0.021994295969128601 * fTemp57) + (0.027648561470568499 * fTemp58)) + (0.021093750000000001 * fTemp59)) + (0.010535180889746075 * fTemp61)) + (0.031605542669238249 * fTemp62))); + fRec3[0] = max((fRec3[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph2 = FAUSTFLOAT(fRec3[0]); + output2[i] = FAUSTFLOAT(fTemp63); + double fTemp64 = (fRec1[0] * ((fConst4 * (((((((((((((((((((((0.02026373487753309 * fTemp1) + (0.025473109945013343 * fTemp6)) + (0.025473109945013343 * fTemp11)) + (0.025473109945013332 * fTemp14)) + (0.025473109945013343 * fTemp15)) + (0.019434045907762623 * fTemp19)) + (0.019434045907762616 * fTemp22)) + (0.019434045907762623 * fTemp24)) + (0.019434045907762616 * fTemp27)) + (0.0097062489627452956 * fTemp29)) + (0.0097062489627452939 * fTemp33)) + (0.029118746888235916 * fTemp35)) + (0.0097062489627453077 * fTemp36)) + (0.0097062489627453008 * fTemp41)) + (0.029118746888235913 * fTemp42)) + (0.029118746888235916 * fTemp43)) + (0.0097062489627453077 * fTemp44)) + (0.0097062489627453008 * fTemp49)) + (0.029118746888235913 * fTemp50)) + (0.0097062489627452956 * fTemp51)) + (0.0097062489627452939 * fTemp54))) + ((((fConst5 * fTemp3) + (0.022574955908289243 * ((((fConst6 * fTemp8) + (fConst7 * fTemp12)) + (fConst8 * fTemp13)) + (fConst6 * fTemp17)))) + (0.021093750000000001 * ((((fConst9 * fTemp20) + (fConst10 * fTemp21)) + (fConst9 * fTemp25)) + (fConst10 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst11 * fTemp30) + (fConst12 * fTemp32)) + (fConst17 * fTemp37)) + (fConst18 * fTemp38)) + (fConst14 * fTemp39)) + (fConst19 * fTemp40)) + (fConst17 * fTemp45)) + (fConst18 * fTemp46)) + (fConst14 * fTemp47)) + (fConst19 * fTemp48)) + (fConst11 * fTemp52)) + (fConst12 * fTemp53)))))); + fRec4[0] = max((fRec4[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp64)))))); + fVbargraph3 = FAUSTFLOAT(fRec4[0]); + output3[i] = FAUSTFLOAT(fTemp64); + double fTemp65 = (fTemp30 + fTemp33); + double fTemp66 = (fTemp12 + fTemp14); + double fTemp67 = (fTemp20 + fTemp22); + double fTemp68 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst23 * fTemp65) + (fConst24 * fTemp37)) + (fConst25 * fTemp38)) + (fConst26 * fTemp41)) + (fConst27 * fTemp42)) + (fConst24 * fTemp45)) + (fConst25 * fTemp46)) + (fConst26 * fTemp49)) + (fConst27 * fTemp50)) + (fConst23 * fTemp52)) + (fConst23 * fTemp54))) + (((fConst29 * fTemp66) + (fConst30 * ((fTemp67 + fTemp25) + fTemp27))) + (fConst22 * ((((((((((((((((((0.072048835120117657 * fTemp11) + (0.072048835120117671 * fTemp13)) + (0.044881006545161167 * fTemp19)) + (0.044881006545161174 * fTemp21)) + (0.044881006545161167 * fTemp24)) + (0.044881006545161174 * fTemp26)) + (0.011706176702255417 * fTemp29)) + (0.011706176702255421 * fTemp32)) + (0.035118530106766375 * fTemp35)) + (0.035118530106766334 * fTemp36)) + (0.035118530106766362 * fTemp39)) + (0.035118530106766348 * fTemp40)) + (0.035118530106766375 * fTemp43)) + (0.035118530106766334 * fTemp44)) + (0.035118530106766362 * fTemp47)) + (0.035118530106766348 * fTemp48)) + (0.011706176702255417 * fTemp51)) + (0.011706176702255421 * fTemp53)))))); + fRec5[0] = max((fRec5[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp68)))))); + fVbargraph4 = FAUSTFLOAT(fRec5[0]); + output4[i] = FAUSTFLOAT(fTemp68); + double fTemp69 = (fConst46 * fTemp19); + double fTemp70 = (fRec1[0] * ((((0.022574955908289243 * ((fConst35 * fTemp9) + (fConst37 * fTemp18))) + (0.021093750000000001 * ((((fConst38 * fTemp21) + (fConst39 * fTemp22)) + (fConst42 * fTemp26)) + (fConst43 * fTemp27)))) + (fConst33 * ((((((((((((((((((fConst44 * fTemp7) + (fConst45 * fTemp16)) + fTemp69) + (fConst46 * fTemp20)) + (fConst47 * fTemp24)) + (fConst48 * fTemp25)) + (fConst49 * fTemp29)) + (fConst49 * fTemp30)) + (fConst50 * fTemp35)) + (fConst51 * fTemp36)) + (fConst52 * fTemp37)) + (fConst53 * fTemp38)) + (fConst55 * fTemp43)) + (fConst56 * fTemp44)) + (fConst57 * fTemp45)) + (fConst58 * fTemp46)) + (fConst60 * fTemp51)) + (fConst60 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst61 * fTemp32) + (fConst62 * fTemp33)) + (fConst63 * fTemp39)) + (fConst64 * fTemp40)) + (fConst65 * fTemp41)) + (fConst66 * fTemp42)) + (fConst68 * fTemp47)) + (fConst69 * fTemp48)) + (fConst70 * fTemp49)) + (fConst71 * fTemp50)) + (fConst73 * fTemp53)) + (fConst74 * fTemp54))))); + fRec6[0] = max((fRec6[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp70)))))); + fVbargraph5 = FAUSTFLOAT(fRec6[0]); + output5[i] = FAUSTFLOAT(fTemp70); + double fTemp71 = ((((fTemp10 + fTemp15) + fTemp16) + fTemp17) + fTemp18); + double fTemp72 = (fTemp0 + fTemp5); + double fTemp73 = ((((fTemp34 + fTemp51) + fTemp52) + fTemp53) + fTemp54); + double fTemp74 = (((fTemp1 + fTemp2) + fTemp3) + fTemp4); + double fTemp75 = (((fTemp11 + fTemp12) + fTemp13) + fTemp14); + double fTemp76 = ((((((((fTemp60 + fTemp43) + fTemp44) + fTemp45) + fTemp46) + fTemp47) + fTemp48) + fTemp49) + fTemp50); + double fTemp77 = (fRec1[0] * ((((0.01261978399999881 * fTemp71) + ((0.028394513999997331 * fTemp72) + (5.236595479505967e-18 * fTemp28))) + (0.032806508796871948 * fTemp73)) - (((0.014197256999998666 * fTemp74) + (0.025239567999997631 * fTemp75)) + (0.01640325439843596 * fTemp76)))); + fRec7[0] = max((fRec7[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp77)))))); + fVbargraph6 = FAUSTFLOAT(fRec7[0]); + output6[i] = FAUSTFLOAT(fTemp77); + double fTemp78 = (fRec1[0] * ((fConst33 * ((((((((((((((((fTemp69 + ((fConst44 * fTemp6) + (fConst45 * fTemp15))) + (fConst75 * fTemp22)) + (fConst48 * fTemp24)) + (fConst76 * fTemp27)) + (fConst77 * fTemp29)) + (fConst78 * fTemp33)) + (fConst79 * fTemp35)) + (fConst80 * fTemp36)) + (fConst81 * fTemp41)) + (fConst82 * fTemp42)) + (fConst83 * fTemp43)) + (fConst84 * fTemp44)) + (fConst85 * fTemp49)) + (fConst86 * fTemp50)) + (fConst87 * fTemp51)) + (fConst88 * fTemp54))) + (((0.022574955908289243 * ((fConst35 * fTemp8) + (fConst37 * fTemp17))) + (0.021093750000000001 * ((((fConst38 * fTemp20) + (fConst39 * fTemp21)) + (fConst42 * fTemp25)) + (fConst43 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst61 * fTemp30) + (fConst62 * fTemp32)) + (fConst89 * fTemp37)) + (fConst90 * fTemp38)) + (fConst64 * fTemp39)) + (fConst91 * fTemp40)) + (fConst92 * fTemp45)) + (fConst93 * fTemp46)) + (fConst69 * fTemp47)) + (fConst94 * fTemp48)) + (fConst73 * fTemp52)) + (fConst74 * fTemp53)))))); + fRec8[0] = max((fRec8[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp78)))))); + fVbargraph7 = FAUSTFLOAT(fRec8[0]); + output7[i] = FAUSTFLOAT(fTemp78); + double fTemp79 = (fTemp2 + fTemp4); + double fTemp80 = (fTemp7 + fTemp9); + double fTemp81 = (fTemp1 + fTemp3); + double fTemp82 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst95 * fTemp31) + (fConst96 * fTemp33)) + (fConst97 * fTemp36)) + (fConst98 * fTemp37)) + (fConst99 * fTemp40)) + (fConst100 * fTemp41)) + (fConst97 * fTemp44)) + (fConst98 * fTemp45)) + (fConst99 * fTemp48)) + (fConst100 * fTemp49)) + (fConst95 * fTemp51)) + (fConst95 * fTemp52)) + (fConst96 * fTemp54))) + ((((fConst101 * fTemp79) + (0.022574955908289243 * (((((fConst102 * fTemp80) + (fConst103 * fTemp12)) + (fConst104 * fTemp14)) + (fConst102 * fTemp16)) + (fConst102 * fTemp18)))) + (0.021093750000000001 * ((((fConst105 * fTemp20) + (fConst106 * fTemp22)) + (fConst105 * fTemp25)) + (fConst106 * fTemp27)))) + (fConst22 * (((((((((((((((((((((0.04052746975506618 * fTemp81) + (0.036024417560058836 * fTemp6)) + (0.036024417560058836 * fTemp8)) + (1.5998055129555246e-17 * fTemp11)) + (3.1996110259110492e-17 * fTemp13)) + (0.036024417560058836 * fTemp15)) + (0.036024417560058836 * fTemp17)) + (9.9655853669580557e-18 * fTemp19)) + (1.9931170733916111e-17 * fTemp21)) + (9.9655853669580557e-18 * fTemp24)) + (1.9931170733916111e-17 * fTemp26)) + (5.19858676206982e-18 * fTemp32)) + (0.046824706809021746 * fTemp35)) + (0.046824706809021746 * fTemp38)) + (0.046824706809021774 * fTemp39)) + (0.046824706809021698 * fTemp42)) + (0.046824706809021746 * fTemp43)) + (0.046824706809021746 * fTemp46)) + (0.046824706809021774 * fTemp47)) + (0.046824706809021698 * fTemp50)) + (5.19858676206982e-18 * fTemp53)))))); + fRec9[0] = max((fRec9[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp82)))))); + fVbargraph8 = FAUSTFLOAT(fRec9[0]); + output8[i] = FAUSTFLOAT(fTemp82); + double fTemp83 = (fRec1[0] * (((((fConst110 * fTemp2) + (0.022574955908289243 * ((((fConst111 * fTemp7) + (fConst112 * fTemp13)) + (fConst113 * fTemp14)) + (fConst111 * fTemp16)))) + (0.021093750000000001 * ((((fConst114 * fTemp21) + (fConst115 * fTemp22)) + (fConst114 * fTemp26)) + (fConst115 * fTemp27)))) + (fConst109 * (((((((((((((((((((((0.081054939510132359 * fTemp4) + (0.050946219890026692 * fTemp9)) + (0.10189243978005338 * fTemp11)) + (0.1018924397800533 * fTemp12)) + (0.050946219890026692 * fTemp18)) + (0.051824122420700336 * fTemp19)) + (0.051824122420700287 * fTemp20)) + (0.051824122420700336 * fTemp24)) + (0.051824122420700287 * fTemp25)) + (0.0070590901547238332 * fTemp29)) + (0.0070590901547238332 * fTemp30)) + (0.091768172011410243 * fTemp35)) + (0.091768172011410271 * fTemp38)) + (0.063531811392514695 * fTemp40)) + (0.063531811392514792 * fTemp41)) + (0.091768172011410243 * fTemp43)) + (0.091768172011410271 * fTemp46)) + (0.063531811392514695 * fTemp48)) + (0.063531811392514792 * fTemp49)) + (0.0070590901547238332 * fTemp51)) + (0.0070590901547238332 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst116 * fTemp32) + (fConst117 * fTemp33)) + (fConst118 * fTemp36)) + (fConst119 * fTemp37)) + (fConst120 * fTemp39)) + (fConst121 * fTemp42)) + (fConst118 * fTemp44)) + (fConst119 * fTemp45)) + (fConst120 * fTemp47)) + (fConst121 * fTemp50)) + (fConst116 * fTemp53)) + (fConst117 * fTemp54))))); + fRec10[0] = max((fRec10[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp83)))))); + fVbargraph9 = FAUSTFLOAT(fRec10[0]); + output9[i] = FAUSTFLOAT(fTemp83); + double fTemp84 = (fRec1[0] * ((0.02017333553791887 * (((((((((fConst125 * fTemp41) + (((fConst126 * fTemp65) + (fConst127 * fTemp37)) + (fConst128 * fTemp38))) + (fConst129 * fTemp42)) + (fConst132 * fTemp45)) + (fConst133 * fTemp46)) + (fConst134 * fTemp49)) + (fConst135 * fTemp50)) + (fConst138 * fTemp52)) + (fConst138 * fTemp54))) + ((0.021093750000000001 * (((fConst139 * fTemp67) + (fConst142 * fTemp25)) + (fConst142 * fTemp27))) + (fConst123 * (((((((((((((((fConst21 * ((0.12956030605175081 * fTemp19) + (0.12956030605175084 * fTemp21))) + (fConst143 * fTemp24)) + (fConst144 * fTemp26)) + (fConst145 * fTemp29)) + (fConst146 * fTemp32)) + (fConst147 * fTemp35)) + (fConst148 * fTemp36)) + (fConst149 * fTemp39)) + (fConst150 * fTemp40)) + (fConst151 * fTemp43)) + (fConst152 * fTemp44)) + (fConst153 * fTemp47)) + (fConst154 * fTemp48)) + (fConst155 * fTemp51)) + (fConst156 * fTemp53)))))); + fRec11[0] = max((fRec11[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp84)))))); + fVbargraph10 = FAUSTFLOAT(fRec11[0]); + output10[i] = FAUSTFLOAT(fTemp84); + double fTemp85 = (fRec1[0] * (((((fConst160 * fTemp4) + (0.022574955908289243 * ((((fConst162 * fTemp9) + (fConst163 * fTemp13)) + (fConst164 * fTemp14)) + (fConst166 * fTemp18)))) + (0.021093750000000001 * ((((fConst167 * fTemp21) + (fConst168 * fTemp22)) + (fConst171 * fTemp26)) + (fConst172 * fTemp27)))) + (fConst157 * (((((((((((((((((((((fConst173 * fTemp7) + (fConst174 * fTemp2)) + (fConst175 * fTemp11)) + (fConst176 * fTemp12)) + (fConst177 * fTemp16)) + (fConst178 * fTemp19)) + (fConst179 * fTemp20)) + (fConst180 * fTemp24)) + (fConst181 * fTemp25)) + (fConst182 * fTemp29)) + (fConst182 * fTemp30)) + (fConst184 * fTemp35)) + (fConst185 * fTemp36)) + (fConst186 * fTemp37)) + (fConst187 * fTemp38)) + (fConst189 * fTemp43)) + (fConst190 * fTemp44)) + (fConst191 * fTemp45)) + (fConst192 * fTemp46)) + (fConst194 * fTemp51)) + (fConst194 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst195 * fTemp32) + (fConst196 * fTemp33)) + (fConst198 * fTemp39)) + (fConst199 * fTemp40)) + (fConst200 * fTemp41)) + (fConst201 * fTemp42)) + (fConst203 * fTemp47)) + (fConst204 * fTemp48)) + (fConst205 * fTemp49)) + (fConst206 * fTemp50)) + (fConst208 * fTemp53)) + (fConst209 * fTemp54))))); + fRec12[0] = max((fRec12[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp85)))))); + fVbargraph11 = FAUSTFLOAT(fRec12[0]); + output11[i] = FAUSTFLOAT(fTemp85); + double fTemp86 = (fRec1[0] * (((0.033596842045264641 * fTemp57) + (0.026333598483989317 * fTemp62)) - (((0.010558468816293317 * fTemp58) + (0.021480823570105497 * fTemp59)) + (0.020481687709769415 * fTemp61)))); + fRec13[0] = max((fRec13[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp86)))))); + fVbargraph12 = FAUSTFLOAT(fRec13[0]); + output12[i] = FAUSTFLOAT(fTemp86); + double fTemp87 = (fRec1[0] * ((fConst157 * (((((((((((((((((((((fConst173 * fTemp6) + (fConst174 * fTemp1)) + (fConst176 * fTemp11)) + (fConst210 * fTemp14)) + (fConst177 * fTemp15)) + (fConst179 * fTemp19)) + (fConst211 * fTemp22)) + (fConst181 * fTemp24)) + (fConst212 * fTemp27)) + (fConst213 * fTemp29)) + (fConst214 * fTemp33)) + (fConst215 * fTemp35)) + (fConst216 * fTemp36)) + (fConst217 * fTemp41)) + (fConst218 * fTemp42)) + (fConst219 * fTemp43)) + (fConst220 * fTemp44)) + (fConst221 * fTemp49)) + (fConst222 * fTemp50)) + (fConst223 * fTemp51)) + (fConst224 * fTemp54))) + ((((fConst160 * fTemp3) + (0.022574955908289243 * ((((fConst162 * fTemp8) + (fConst163 * fTemp12)) + (fConst164 * fTemp13)) + (fConst166 * fTemp17)))) + (0.021093750000000001 * ((((fConst167 * fTemp20) + (fConst168 * fTemp21)) + (fConst171 * fTemp25)) + (fConst172 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst195 * fTemp30) + (fConst196 * fTemp32)) + (fConst225 * fTemp37)) + (fConst226 * fTemp38)) + (fConst199 * fTemp39)) + (fConst227 * fTemp40)) + (fConst228 * fTemp45)) + (fConst229 * fTemp46)) + (fConst204 * fTemp47)) + (fConst230 * fTemp48)) + (fConst208 * fTemp52)) + (fConst209 * fTemp53)))))); + fRec14[0] = max((fRec14[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp87)))))); + fVbargraph13 = FAUSTFLOAT(fRec14[0]); + output13[i] = FAUSTFLOAT(fTemp87); + double fTemp88 = (fTemp6 + fTemp8); + double fTemp89 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst231 * fTemp31) + (fConst232 * fTemp33)) + (fConst233 * fTemp36)) + (fConst234 * fTemp37)) + (fConst235 * fTemp40)) + (fConst236 * fTemp41)) + (fConst237 * fTemp44)) + (fConst237 * fTemp45)) + (fConst238 * fTemp48)) + (fConst239 * fTemp49)) + (fConst240 * fTemp51)) + (fConst240 * fTemp52)) + (fConst241 * fTemp54))) + (((0.022574955908289243 * (((fConst242 * fTemp80) + (fConst244 * fTemp16)) + (fConst244 * fTemp18))) + (0.021093750000000001 * ((((fConst245 * fTemp20) + (fConst246 * fTemp22)) + (fConst247 * fTemp25)) + (fConst248 * fTemp27)))) + (fConst123 * (((((((((((((((((fConst249 * fTemp88) + (fConst250 * fTemp15)) + (fConst250 * fTemp17)) + (fConst251 * fTemp19)) + (fConst252 * fTemp21)) + (fConst253 * fTemp24)) + (fConst254 * fTemp26)) + (fConst255 * fTemp32)) + (fConst256 * fTemp35)) + (fConst256 * fTemp38)) + (fConst257 * fTemp39)) + (fConst258 * fTemp42)) + (fConst259 * fTemp43)) + (fConst259 * fTemp46)) + (fConst260 * fTemp47)) + (fConst261 * fTemp50)) + (fConst262 * fTemp53)))))); + fRec15[0] = max((fRec15[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp89)))))); + fVbargraph14 = FAUSTFLOAT(fRec15[0]); + output14[i] = FAUSTFLOAT(fTemp89); + double fTemp90 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst263 * fTemp29) + (fConst264 * fTemp33)) + (fConst265 * fTemp36)) + (fConst266 * fTemp38)) + (fConst267 * fTemp39)) + (fConst268 * fTemp41)) + (fConst265 * fTemp44)) + (fConst266 * fTemp46)) + (fConst267 * fTemp47)) + (fConst268 * fTemp49)) + (fConst263 * fTemp51)) + (fConst264 * fTemp54))) + ((((fConst110 * fTemp3) + (0.022574955908289243 * ((((fConst111 * fTemp8) + (fConst269 * fTemp11)) + (fConst270 * fTemp14)) + (fConst111 * fTemp17)))) + (0.021093750000000001 * ((((fConst271 * fTemp19) + (fConst272 * fTemp22)) + (fConst271 * fTemp24)) + (fConst272 * fTemp27)))) + (fConst109 * (((((((((((((((((((((0.081054939510132359 * fTemp1) + (0.050946219890026692 * fTemp6)) + (0.10189243978005338 * fTemp12)) + (0.10189243978005329 * fTemp13)) + (0.050946219890026692 * fTemp15)) + (0.051824122420700336 * fTemp20)) + (0.051824122420700267 * fTemp21)) + (0.051824122420700336 * fTemp25)) + (0.051824122420700267 * fTemp26)) + (0.0070590901547238384 * fTemp30)) + (0.0070590901547238306 * fTemp32)) + (0.063531811392514598 * fTemp35)) + (0.09176817201141016 * fTemp37)) + (0.091768172011410187 * fTemp40)) + (0.063531811392514445 * fTemp42)) + (0.063531811392514598 * fTemp43)) + (0.09176817201141016 * fTemp45)) + (0.091768172011410187 * fTemp48)) + (0.063531811392514445 * fTemp50)) + (0.0070590901547238384 * fTemp52)) + (0.0070590901547238306 * fTemp53)))))); + fRec16[0] = max((fRec16[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp90)))))); + fVbargraph15 = FAUSTFLOAT(fRec16[0]); + output15[i] = FAUSTFLOAT(fTemp90); + double fTemp91 = (fRec1[0] * ((0.02017333553791887 * ((((((((((fConst276 * fTemp29) + (fConst277 * fTemp36)) + (fConst278 * fTemp38)) + (fConst279 * fTemp40)) + (fConst280 * fTemp42)) + (fConst277 * fTemp44)) + (fConst278 * fTemp46)) + (fConst279 * fTemp48)) + (fConst280 * fTemp50)) + (fConst276 * fTemp51))) + (fConst275 * ((((((((((((((((((((((((((1.3574799921485692e-16 * fTemp11) + (1.3574799921485695e-16 * fTemp12)) + (2.7149599842971385e-16 * fTemp13)) + (2.714959984297139e-16 * fTemp14)) + (5.6373863931755746e-17 * fTemp19)) + (5.6373863931755758e-17 * fTemp20)) + (1.1274772786351149e-16 * fTemp21)) + (1.1274772786351152e-16 * fTemp22)) + (5.6373863931755746e-17 * fTemp24)) + (5.6373863931755758e-17 * fTemp25)) + (1.1274772786351149e-16 * fTemp26)) + (1.1274772786351152e-16 * fTemp27)) + (4.0101337658685596e-18 * fTemp30)) + (8.0202675317371177e-18 * fTemp32)) + (8.0202675317371192e-18 * fTemp33)) + (0.20432599334845877 * fTemp35)) + (0.20432599334845869 * fTemp37)) + (0.20432599334845877 * fTemp39)) + (0.20432599334845863 * fTemp41)) + (0.20432599334845877 * fTemp43)) + (0.20432599334845869 * fTemp45)) + (0.20432599334845877 * fTemp47)) + (0.20432599334845863 * fTemp49)) + (4.0101337658685596e-18 * fTemp52)) + (8.0202675317371177e-18 * fTemp53)) + (8.0202675317371192e-18 * fTemp54))))); + fRec17[0] = max((fRec17[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp91)))))); + fVbargraph16 = FAUSTFLOAT(fRec17[0]); + output16[i] = FAUSTFLOAT(fTemp91); + double fTemp92 = (fRec1[0] * ((((0.022574955908289243 * ((fConst284 * fTemp7) + (fConst286 * fTemp16))) + (0.021093750000000001 * ((((fConst287 * fTemp21) + (fConst288 * fTemp22)) + (fConst291 * fTemp26)) + (fConst292 * fTemp27)))) + (fConst282 * ((((((((((((((((((fConst293 * fTemp9) + (fConst294 * fTemp18)) + (fConst295 * fTemp19)) + (fConst296 * fTemp20)) + (fConst297 * fTemp24)) + (fConst298 * fTemp25)) + (fConst299 * fTemp29)) + (fConst299 * fTemp30)) + (fConst300 * fTemp35)) + (fConst301 * fTemp38)) + (fConst302 * fTemp40)) + (fConst303 * fTemp41)) + (fConst305 * fTemp43)) + (fConst306 * fTemp46)) + (fConst307 * fTemp48)) + (fConst308 * fTemp49)) + (fConst310 * fTemp51)) + (fConst310 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst311 * fTemp32) + (fConst312 * fTemp33)) + (fConst313 * fTemp36)) + (fConst314 * fTemp37)) + (fConst315 * fTemp39)) + (fConst316 * fTemp42)) + (fConst318 * fTemp44)) + (fConst319 * fTemp45)) + (fConst320 * fTemp47)) + (fConst321 * fTemp50)) + (fConst323 * fTemp53)) + (fConst324 * fTemp54))))); + fRec18[0] = max((fRec18[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp92)))))); + fVbargraph17 = FAUSTFLOAT(fRec18[0]); + output17[i] = FAUSTFLOAT(fTemp92); + double fTemp93 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst327 * fTemp65) + (fConst330 * fTemp37)) + (fConst331 * fTemp38)) + (fConst332 * fTemp41)) + (fConst333 * fTemp42)) + (fConst336 * fTemp45)) + (fConst337 * fTemp46)) + (fConst338 * fTemp49)) + (fConst339 * fTemp50)) + (fConst342 * fTemp52)) + (fConst342 * fTemp54))) + (((fConst346 * fTemp66) + (0.021093750000000001 * (((fConst347 * fTemp67) + (fConst350 * fTemp25)) + (fConst350 * fTemp27)))) + (fConst325 * (((((((((((((((((fConst343 * ((0.015962904407738641 * fTemp11) + (0.015962904407738645 * fTemp13))) + (fConst351 * fTemp19)) + (fConst352 * fTemp21)) + (fConst353 * fTemp24)) + (fConst354 * fTemp26)) + (fConst355 * fTemp29)) + (fConst356 * fTemp32)) + (fConst357 * fTemp35)) + (fConst358 * fTemp36)) + (fConst359 * fTemp39)) + (fConst360 * fTemp40)) + (fConst361 * fTemp43)) + (fConst362 * fTemp44)) + (fConst363 * fTemp47)) + (fConst364 * fTemp48)) + (fConst365 * fTemp51)) + (fConst366 * fTemp53)))))); + fRec19[0] = max((fRec19[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp93)))))); + fVbargraph18 = FAUSTFLOAT(fRec19[0]); + output18[i] = FAUSTFLOAT(fTemp93); + double fTemp94 = (fRec1[0] * ((((0.022574955908289243 * ((fConst369 * fTemp9) + (fConst371 * fTemp18))) + (0.021093750000000001 * ((((fConst374 * fTemp21) + (fConst375 * fTemp22)) + (fConst378 * fTemp26)) + (fConst379 * fTemp27)))) + (fConst367 * ((((((((((((((((((fConst380 * fTemp7) + (fConst381 * fTemp16)) + (fConst382 * fTemp19)) + (fConst383 * fTemp20)) + (fConst384 * fTemp24)) + (fConst385 * fTemp25)) + (fConst386 * fTemp29)) + (fConst386 * fTemp30)) + (fConst388 * fTemp35)) + (fConst389 * fTemp36)) + (fConst390 * fTemp37)) + (fConst391 * fTemp38)) + (fConst393 * fTemp43)) + (fConst394 * fTemp44)) + (fConst395 * fTemp45)) + (fConst396 * fTemp46)) + (fConst398 * fTemp51)) + (fConst398 * fTemp52)))) + (0.02017333553791887 * ((((((((fConst400 * fTemp42) + (((((fConst401 * fTemp32) + (fConst402 * fTemp33)) + (fConst403 * fTemp39)) + (fConst404 * fTemp40)) + (fConst405 * fTemp41))) + (fConst407 * fTemp47)) + (fConst408 * fTemp48)) + (fConst409 * fTemp49)) + (fConst410 * fTemp50)) + (fConst412 * fTemp53)) + (fConst413 * fTemp54))))); + fRec20[0] = max((fRec20[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp94)))))); + fVbargraph19 = FAUSTFLOAT(fRec20[0]); + output19[i] = FAUSTFLOAT(fTemp94); + double fTemp95 = (fRec1[0] * ((((((0.014285714285714285 * fTemp74) + (0.038095238095238099 * fTemp72)) + (0.025396825396825397 * fTemp75)) + (0.0042514054232804339 * fTemp76)) + (0.0142547123015874 * fTemp73)) - ((0.027513227513227514 * fTemp71) + (0.024609375000000006 * fTemp28)))); + fRec21[0] = max((fRec21[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp95)))))); + fVbargraph20 = FAUSTFLOAT(fRec21[0]); + output20[i] = FAUSTFLOAT(fTemp95); + double fTemp96 = (fRec1[0] * ((fConst367 * ((((((((((((((((((fConst380 * fTemp6) + (fConst381 * fTemp15)) + (fConst383 * fTemp19)) + (fConst414 * fTemp22)) + (fConst385 * fTemp24)) + (fConst415 * fTemp27)) + (fConst416 * fTemp29)) + (fConst417 * fTemp33)) + (fConst389 * fTemp35)) + (fConst418 * fTemp36)) + (fConst419 * fTemp41)) + (fConst420 * fTemp42)) + (fConst394 * fTemp43)) + (fConst421 * fTemp44)) + (fConst422 * fTemp49)) + (fConst423 * fTemp50)) + (fConst424 * fTemp51)) + (fConst425 * fTemp54))) + (((0.022574955908289243 * ((fConst369 * fTemp8) + (fConst371 * fTemp17))) + (0.021093750000000001 * ((((fConst374 * fTemp20) + (fConst375 * fTemp21)) + (fConst378 * fTemp25)) + (fConst379 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst401 * fTemp30) + (fConst402 * fTemp32)) + (fConst426 * fTemp37)) + (fConst427 * fTemp38)) + (fConst404 * fTemp39)) + (fConst428 * fTemp40)) + (fConst429 * fTemp45)) + (fConst430 * fTemp46)) + (fConst408 * fTemp47)) + (fConst431 * fTemp48)) + (fConst412 * fTemp52)) + (fConst413 * fTemp53)))))); + fRec22[0] = max((fRec22[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp96)))))); + fVbargraph21 = FAUSTFLOAT(fRec22[0]); + output21[i] = FAUSTFLOAT(fTemp96); + double fTemp97 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst432 * fTemp31) + (fConst433 * fTemp33)) + (fConst434 * fTemp36)) + (fConst434 * fTemp37)) + (fConst435 * fTemp40)) + (fConst436 * fTemp41)) + (fConst437 * fTemp44)) + (fConst437 * fTemp45)) + (fConst438 * fTemp48)) + (fConst439 * fTemp49)) + (fConst440 * fTemp51)) + (fConst440 * fTemp52)) + (fConst441 * fTemp54))) + ((((fConst442 * fTemp79) + (0.022574955908289243 * (((((fConst443 * fTemp80) + (fConst444 * fTemp12)) + (fConst445 * fTemp14)) + (fConst447 * fTemp16)) + (fConst447 * fTemp18)))) + (0.021093750000000001 * ((((fConst448 * fTemp20) + (fConst449 * fTemp22)) + (fConst450 * fTemp25)) + (fConst451 * fTemp27)))) + (fConst325 * (((((((((((((((((((((fConst452 * fTemp81) + (fConst453 * fTemp6)) + (fConst453 * fTemp8)) + (fConst454 * fTemp11)) + (fConst455 * fTemp13)) + (fConst456 * fTemp15)) + (fConst456 * fTemp17)) + (fConst457 * fTemp19)) + (fConst458 * fTemp21)) + (fConst459 * fTemp24)) + (fConst460 * fTemp26)) + (fConst461 * fTemp32)) + (fConst462 * fTemp35)) + (fConst462 * fTemp38)) + (fConst463 * fTemp39)) + (fConst464 * fTemp42)) + (fConst465 * fTemp43)) + (fConst465 * fTemp46)) + (fConst466 * fTemp47)) + (fConst467 * fTemp50)) + (fConst468 * fTemp53)))))); + fRec23[0] = max((fRec23[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp97)))))); + fVbargraph22 = FAUSTFLOAT(fRec23[0]); + output22[i] = FAUSTFLOAT(fTemp97); + double fTemp98 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst469 * fTemp29) + (fConst470 * fTemp33)) + (fConst471 * fTemp36)) + (fConst472 * fTemp38)) + (fConst473 * fTemp39)) + (fConst474 * fTemp41)) + (fConst475 * fTemp44)) + (fConst476 * fTemp46)) + (fConst477 * fTemp47)) + (fConst478 * fTemp49)) + (fConst479 * fTemp51)) + (fConst480 * fTemp54))) + (((0.022574955908289243 * ((fConst284 * fTemp8) + (fConst286 * fTemp17))) + (0.021093750000000001 * ((((fConst481 * fTemp19) + (fConst482 * fTemp22)) + (fConst483 * fTemp24)) + (fConst484 * fTemp27)))) + (fConst282 * ((((((((((((((((((fConst293 * fTemp6) + (fConst294 * fTemp15)) + (fConst295 * fTemp20)) + (fConst485 * fTemp21)) + (fConst297 * fTemp25)) + (fConst486 * fTemp26)) + (fConst487 * fTemp30)) + (fConst488 * fTemp32)) + (fConst489 * fTemp35)) + (fConst490 * fTemp37)) + (fConst491 * fTemp40)) + (fConst492 * fTemp42)) + (fConst493 * fTemp43)) + (fConst494 * fTemp45)) + (fConst495 * fTemp48)) + (fConst496 * fTemp50)) + (fConst497 * fTemp52)) + (fConst498 * fTemp53)))))); + fRec24[0] = max((fRec24[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp98)))))); + fVbargraph23 = FAUSTFLOAT(fRec24[0]); + output23[i] = FAUSTFLOAT(fTemp98); + double fTemp99 = (fRec1[0] * ((((0.022574955908289243 * ((((fConst499 * fTemp11) + (fConst500 * fTemp12)) + (fConst500 * fTemp13)) + (fConst500 * fTemp14))) + (0.021093750000000001 * ((((((((fConst501 * fTemp19) + (fConst502 * fTemp20)) + (fConst502 * fTemp21)) + (fConst502 * fTemp22)) + (fConst501 * fTemp24)) + (fConst502 * fTemp25)) + (fConst502 * fTemp26)) + (fConst502 * fTemp27)))) + (fConst275 * (((((((((((((((((((((((((0.16210987902026472 * fTemp74) + (0.072048835120117685 * fTemp6)) + (0.072048835120117685 * fTemp7)) + (0.072048835120117685 * fTemp8)) + (0.072048835120117685 * fTemp9)) + (0.072048835120117685 * fTemp15)) + (0.072048835120117685 * fTemp16)) + (0.072048835120117685 * fTemp17)) + (0.072048835120117685 * fTemp18)) + (0.059595081393300019 * fTemp35)) + (0.059595081393300449 * fTemp36)) + (0.059595081393300539 * fTemp37)) + (0.059595081393300019 * fTemp38)) + (0.059595081393300352 * fTemp39)) + (0.059595081393300338 * fTemp40)) + (0.059595081393300636 * fTemp41)) + (0.059595081393299554 * fTemp42)) + (0.059595081393300019 * fTemp43)) + (0.059595081393300449 * fTemp44)) + (0.059595081393300539 * fTemp45)) + (0.059595081393300019 * fTemp46)) + (0.059595081393300352 * fTemp47)) + (0.059595081393300338 * fTemp48)) + (0.059595081393300636 * fTemp49)) + (0.059595081393299554 * fTemp50)))) + (fConst503 * fTemp73))); + fRec25[0] = max((fRec25[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp99)))))); + fVbargraph24 = FAUSTFLOAT(fRec25[0]); + output24[i] = FAUSTFLOAT(fTemp99); + double fTemp100 = (fRec1[0] * (((((fConst505 * fTemp4) + (0.022574955908289243 * ((((fConst506 * fTemp9) + (fConst507 * fTemp11)) + (fConst508 * fTemp12)) + (fConst506 * fTemp18)))) + (0.021093750000000001 * ((((fConst509 * fTemp19) + (fConst510 * fTemp20)) + (fConst509 * fTemp24)) + (fConst510 * fTemp25)))) + (0.02017333553791887 * (((((((((((fConst511 * fTemp31) + (fConst512 * fTemp36)) + (fConst513 * fTemp37)) + (fConst514 * fTemp39)) + (fConst515 * fTemp42)) + (fConst512 * fTemp44)) + (fConst513 * fTemp45)) + (fConst514 * fTemp47)) + (fConst515 * fTemp50)) + (fConst511 * fTemp51)) + (fConst511 * fTemp52)))) + (fConst504 * (((((((((((((((((((((0.32421975804052944 * fTemp2) + (0.10189243978005341 * fTemp7)) + (0.40756975912021298 * fTemp13)) + (0.40756975912021387 * fTemp14)) + (0.10189243978005341 * fTemp16)) + (0.13819765978853399 * fTemp21)) + (0.13819765978853429 * fTemp22)) + (0.13819765978853399 * fTemp26)) + (0.13819765978853429 * fTemp27)) + (0.0051338837488900469 * fTemp32)) + (0.0051338837488900581 * fTemp33)) + (0.40557681616231633 * fTemp35)) + (0.40557681616231639 * fTemp38)) + (0.015401651246670513 * fTemp40)) + (0.015401651246669784 * fTemp41)) + (0.40557681616231633 * fTemp43)) + (0.40557681616231639 * fTemp46)) + (0.015401651246670513 * fTemp48)) + (0.015401651246669784 * fTemp49)) + (0.0051338837488900469 * fTemp53)) + (0.0051338837488900581 * fTemp54))))); + fRec26[0] = max((fRec26[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp100)))))); + fVbargraph25 = FAUSTFLOAT(fRec26[0]); + output25[i] = FAUSTFLOAT(fTemp100); + double fTemp101 = (fRec1[0] * ((0.02017333553791887 * ((((((((((fConst518 * fTemp29) + (fConst519 * fTemp36)) + (fConst520 * fTemp38)) + (fConst521 * fTemp40)) + (fConst522 * fTemp42)) + (fConst525 * fTemp44)) + (fConst526 * fTemp46)) + (fConst527 * fTemp48)) + (fConst528 * fTemp50)) + (fConst531 * fTemp51))) + (fConst516 * (((((((((((((((((((fConst274 * ((((2.9292718964632671e-16 * fTemp19) + (2.9292718964632676e-16 * fTemp20)) + (5.8585437929265342e-16 * fTemp21)) + (5.8585437929265352e-16 * fTemp22))) + (fConst533 * fTemp24)) + (fConst533 * fTemp25)) + (fConst534 * fTemp26)) + (fConst534 * fTemp27)) + (fConst535 * fTemp30)) + (fConst536 * fTemp32)) + (fConst537 * fTemp33)) + (fConst538 * fTemp35)) + (fConst539 * fTemp37)) + (fConst538 * fTemp39)) + (fConst540 * fTemp41)) + (fConst541 * fTemp43)) + (fConst542 * fTemp45)) + (fConst541 * fTemp47)) + (fConst543 * fTemp49)) + (fConst544 * fTemp52)) + (fConst545 * fTemp53)) + (fConst546 * fTemp54))))); + fRec27[0] = max((fRec27[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp101)))))); + fVbargraph26 = FAUSTFLOAT(fRec27[0]); + output26[i] = FAUSTFLOAT(fTemp101); + double fTemp102 = (fRec1[0] * (((((fConst550 * fTemp2) + (0.022574955908289243 * ((((fConst552 * fTemp7) + (fConst553 * fTemp13)) + (fConst554 * fTemp14)) + (fConst556 * fTemp16)))) + (0.021093750000000001 * ((((fConst557 * fTemp21) + (fConst558 * fTemp22)) + (fConst561 * fTemp26)) + (fConst562 * fTemp27)))) + (fConst547 * (((((((((((((((((((((fConst563 * fTemp9) + (fConst564 * fTemp4)) + (fConst565 * fTemp11)) + (fConst566 * fTemp12)) + (fConst567 * fTemp18)) + (fConst568 * fTemp19)) + (fConst569 * fTemp20)) + (fConst570 * fTemp24)) + (fConst571 * fTemp25)) + (fConst572 * fTemp29)) + (fConst572 * fTemp30)) + (fConst574 * fTemp35)) + (fConst575 * fTemp38)) + (fConst576 * fTemp40)) + (fConst577 * fTemp41)) + (fConst579 * fTemp43)) + (fConst580 * fTemp46)) + (fConst581 * fTemp48)) + (fConst582 * fTemp49)) + (fConst584 * fTemp51)) + (fConst584 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst585 * fTemp32) + (fConst586 * fTemp33)) + (fConst588 * fTemp36)) + (fConst589 * fTemp37)) + (fConst590 * fTemp39)) + (fConst591 * fTemp42)) + (fConst593 * fTemp44)) + (fConst594 * fTemp45)) + (fConst595 * fTemp47)) + (fConst596 * fTemp50)) + (fConst598 * fTemp53)) + (fConst599 * fTemp54))))); + fRec28[0] = max((fRec28[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp102)))))); + fVbargraph27 = FAUSTFLOAT(fRec28[0]); + output27[i] = FAUSTFLOAT(fTemp102); + double fTemp103 = (fRec1[0] * ((0.02017333553791887 * (((((((((((fConst602 * fTemp65) + (fConst605 * fTemp37)) + (fConst606 * fTemp38)) + (fConst607 * fTemp41)) + (fConst608 * fTemp42)) + (fConst611 * fTemp45)) + (fConst612 * fTemp46)) + (fConst613 * fTemp49)) + (fConst614 * fTemp50)) + (fConst617 * fTemp52)) + (fConst617 * fTemp54))) + ((0.021093750000000001 * (((fConst618 * fTemp67) + (fConst621 * fTemp25)) + (fConst621 * fTemp27))) + (fConst600 * (((((((((((((((fConst21 * ((1.0598124096115483e-16 * fTemp19) + (1.0598124096115484e-16 * fTemp21))) + (fConst622 * fTemp24)) + (fConst623 * fTemp26)) + (fConst624 * fTemp29)) + (fConst625 * fTemp32)) + (fConst626 * fTemp35)) + (fConst627 * fTemp36)) + (fConst628 * fTemp39)) + (fConst629 * fTemp40)) + (fConst630 * fTemp43)) + (fConst631 * fTemp44)) + (fConst632 * fTemp47)) + (fConst633 * fTemp48)) + (fConst634 * fTemp51)) + (fConst635 * fTemp53)))))); + fRec29[0] = max((fRec29[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp103)))))); + fVbargraph28 = FAUSTFLOAT(fRec29[0]); + output28[i] = FAUSTFLOAT(fTemp103); + double fTemp104 = (fRec1[0] * (((((fConst639 * fTemp4) + (0.022574955908289243 * ((((fConst641 * fTemp9) + (fConst642 * fTemp13)) + (fConst643 * fTemp14)) + (fConst645 * fTemp18)))) + (0.021093750000000001 * ((((fConst648 * fTemp21) + (fConst649 * fTemp22)) + (fConst652 * fTemp26)) + (fConst653 * fTemp27)))) + (fConst636 * (((((((((((((((((((((fConst654 * fTemp2) + (fConst655 * fTemp7)) + (fConst656 * fTemp11)) + (fConst657 * fTemp12)) + (fConst658 * fTemp16)) + (fConst659 * fTemp19)) + (fConst660 * fTemp20)) + (fConst661 * fTemp24)) + (fConst662 * fTemp25)) + (fConst663 * fTemp29)) + (fConst663 * fTemp30)) + (fConst665 * fTemp35)) + (fConst666 * fTemp36)) + (fConst667 * fTemp37)) + (fConst668 * fTemp38)) + (fConst670 * fTemp43)) + (fConst671 * fTemp44)) + (fConst672 * fTemp45)) + (fConst673 * fTemp46)) + (fConst675 * fTemp51)) + (fConst675 * fTemp52)))) + (0.02017333553791887 * ((((((((((((fConst677 * fTemp32) + (fConst678 * fTemp33)) + (fConst680 * fTemp39)) + (fConst681 * fTemp40)) + (fConst682 * fTemp41)) + (fConst683 * fTemp42)) + (fConst685 * fTemp47)) + (fConst686 * fTemp48)) + (fConst687 * fTemp49)) + (fConst688 * fTemp50)) + (fConst690 * fTemp53)) + (fConst691 * fTemp54))))); + fRec30[0] = max((fRec30[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp104)))))); + fVbargraph29 = FAUSTFLOAT(fRec30[0]); + output29[i] = FAUSTFLOAT(fTemp104); + double fTemp105 = (fRec1[0] * (((0.042115870353719366 * fTemp57) + (0.02309096671075838 * fTemp61)) - (((0.028125949882539081 * fTemp58) + (0.006731909351411762 * fTemp59)) + (0.0007502480158728946 * fTemp62)))); + fRec31[0] = max((fRec31[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp105)))))); + fVbargraph30 = FAUSTFLOAT(fRec31[0]); + output30[i] = FAUSTFLOAT(fTemp105); + double fTemp106 = (fRec1[0] * ((fConst636 * (((((((((((((((((((((fConst654 * fTemp1) + (fConst655 * fTemp6)) + (fConst657 * fTemp11)) + (fConst692 * fTemp14)) + (fConst658 * fTemp15)) + (fConst660 * fTemp19)) + (fConst693 * fTemp22)) + (fConst662 * fTemp24)) + (fConst694 * fTemp27)) + (fConst695 * fTemp29)) + (fConst695 * fTemp33)) + (fConst696 * fTemp35)) + (fConst697 * fTemp36)) + (fConst698 * fTemp41)) + (fConst699 * fTemp42)) + (fConst700 * fTemp43)) + (fConst701 * fTemp44)) + (fConst702 * fTemp49)) + (fConst703 * fTemp50)) + (fConst704 * fTemp51)) + (fConst705 * fTemp54))) + ((((fConst639 * fTemp3) + (0.022574955908289243 * ((((fConst641 * fTemp8) + (fConst642 * fTemp12)) + (fConst643 * fTemp13)) + (fConst645 * fTemp17)))) + (0.021093750000000001 * ((((fConst648 * fTemp20) + (fConst649 * fTemp21)) + (fConst652 * fTemp25)) + (fConst653 * fTemp26)))) + (0.02017333553791887 * ((((((((((((fConst677 * fTemp30) + (fConst678 * fTemp32)) + (fConst706 * fTemp37)) + (fConst707 * fTemp38)) + (fConst681 * fTemp39)) + (fConst708 * fTemp40)) + (fConst709 * fTemp45)) + (fConst710 * fTemp46)) + (fConst686 * fTemp47)) + (fConst711 * fTemp48)) + (fConst690 * fTemp52)) + (fConst691 * fTemp53)))))); + fRec32[0] = max((fRec32[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp106)))))); + fVbargraph31 = FAUSTFLOAT(fRec32[0]); + output31[i] = FAUSTFLOAT(fTemp106); + double fTemp107 = (fRec1[0] * ((0.02017333553791887 * (((((((((((((fConst712 * fTemp31) + (fConst713 * fTemp33)) + (fConst714 * fTemp36)) + (fConst715 * fTemp37)) + (fConst716 * fTemp40)) + (fConst717 * fTemp41)) + (fConst718 * fTemp44)) + (fConst719 * fTemp45)) + (fConst720 * fTemp48)) + (fConst721 * fTemp49)) + (fConst722 * fTemp51)) + (fConst722 * fTemp52)) + (fConst723 * fTemp54))) + (((0.022574955908289243 * (((fConst724 * fTemp80) + (fConst726 * fTemp16)) + (fConst726 * fTemp18))) + (0.021093750000000001 * ((((fConst727 * fTemp20) + (fConst728 * fTemp22)) + (fConst729 * fTemp25)) + (fConst730 * fTemp27)))) + (fConst600 * (((((((((((((((((fConst731 * fTemp88) + (fConst732 * fTemp15)) + (fConst732 * fTemp17)) + (fConst733 * fTemp19)) + (fConst734 * fTemp21)) + (fConst735 * fTemp24)) + (fConst736 * fTemp26)) + (fConst737 * fTemp32)) + (fConst738 * fTemp35)) + (fConst738 * fTemp38)) + (fConst739 * fTemp39)) + (fConst740 * fTemp42)) + (fConst741 * fTemp43)) + (fConst741 * fTemp46)) + (fConst742 * fTemp47)) + (fConst743 * fTemp50)) + (fConst744 * fTemp53)))))); + fRec33[0] = max((fRec33[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp107)))))); + fVbargraph32 = FAUSTFLOAT(fRec33[0]); + output32[i] = FAUSTFLOAT(fTemp107); + double fTemp108 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst745 * fTemp29) + (fConst746 * fTemp33)) + (fConst747 * fTemp36)) + (fConst748 * fTemp38)) + (fConst749 * fTemp39)) + (fConst750 * fTemp41)) + (fConst751 * fTemp44)) + (fConst752 * fTemp46)) + (fConst753 * fTemp47)) + (fConst754 * fTemp49)) + (fConst755 * fTemp51)) + (fConst756 * fTemp54))) + ((((fConst550 * fTemp3) + (0.022574955908289243 * ((((fConst552 * fTemp8) + (fConst757 * fTemp11)) + (fConst758 * fTemp14)) + (fConst556 * fTemp17)))) + (0.021093750000000001 * ((((fConst759 * fTemp19) + (fConst760 * fTemp22)) + (fConst761 * fTemp24)) + (fConst762 * fTemp27)))) + (fConst547 * (((((((((((((((((((((fConst563 * fTemp6) + (fConst564 * fTemp1)) + (fConst565 * fTemp12)) + (fConst763 * fTemp13)) + (fConst567 * fTemp15)) + (fConst568 * fTemp20)) + (fConst764 * fTemp21)) + (fConst570 * fTemp25)) + (fConst765 * fTemp26)) + (fConst766 * fTemp30)) + (fConst767 * fTemp32)) + (fConst768 * fTemp35)) + (fConst769 * fTemp37)) + (fConst770 * fTemp40)) + (fConst771 * fTemp42)) + (fConst772 * fTemp43)) + (fConst773 * fTemp45)) + (fConst774 * fTemp48)) + (fConst775 * fTemp50)) + (fConst776 * fTemp52)) + (fConst777 * fTemp53)))))); + fRec34[0] = max((fRec34[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp108)))))); + fVbargraph33 = FAUSTFLOAT(fRec34[0]); + output33[i] = FAUSTFLOAT(fTemp108); + double fTemp109 = (fRec1[0] * (((0.021093750000000001 * ((((((((fConst778 * fTemp19) + (fConst779 * fTemp20)) + (fConst779 * fTemp21)) + (fConst779 * fTemp22)) + (fConst781 * fTemp24)) + (fConst782 * fTemp25)) + (fConst782 * fTemp26)) + (fConst782 * fTemp27))) + (fConst516 * (((((((((((((((((((((fConst783 * fTemp10) + (fConst784 * fTemp15)) + (fConst784 * fTemp16)) + (fConst784 * fTemp17)) + (fConst784 * fTemp18)) + (fConst785 * fTemp35)) + (fConst786 * fTemp36)) + (fConst787 * fTemp37)) + (fConst785 * fTemp38)) + (fConst788 * fTemp39)) + (fConst789 * fTemp40)) + (fConst790 * fTemp41)) + (fConst791 * fTemp42)) + (fConst792 * fTemp43)) + (fConst793 * fTemp44)) + (fConst794 * fTemp45)) + (fConst792 * fTemp46)) + (fConst795 * fTemp47)) + (fConst796 * fTemp48)) + (fConst797 * fTemp49)) + (fConst798 * fTemp50)))) + (0.02017333553791887 * (((((fConst799 * fTemp34) + (fConst800 * fTemp51)) + (fConst800 * fTemp52)) + (fConst800 * fTemp53)) + (fConst800 * fTemp54))))); + fRec35[0] = max((fRec35[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp109)))))); + fVbargraph34 = FAUSTFLOAT(fRec35[0]); + output34[i] = FAUSTFLOAT(fTemp109); + double fTemp110 = (fRec1[0] * ((0.02017333553791887 * ((((((((((((fConst801 * fTemp29) + (fConst802 * fTemp33)) + (fConst803 * fTemp35)) + (fConst804 * fTemp37)) + (fConst804 * fTemp40)) + (fConst805 * fTemp42)) + (fConst803 * fTemp43)) + (fConst804 * fTemp45)) + (fConst804 * fTemp48)) + (fConst805 * fTemp50)) + (fConst801 * fTemp51)) + (fConst802 * fTemp54))) + ((((fConst505 * fTemp3) + (0.022574955908289243 * ((((fConst506 * fTemp8) + (fConst806 * fTemp11)) + (fConst807 * fTemp14)) + (fConst506 * fTemp17)))) + (0.021093750000000001 * ((((fConst808 * fTemp19) + (fConst809 * fTemp22)) + (fConst808 * fTemp24)) + (fConst809 * fTemp27)))) + (fConst504 * (((((((((((((((((((((0.32421975804052944 * fTemp1) + (0.10189243978005341 * fTemp6)) + (0.4075697591202132 * fTemp12)) + (0.40756975912021387 * fTemp13)) + (0.10189243978005341 * fTemp15)) + (0.13819765978853404 * fTemp20)) + (0.13819765978853429 * fTemp21)) + (0.13819765978853404 * fTemp25)) + (0.13819765978853429 * fTemp26)) + (0.0051338837488900495 * fTemp30)) + (0.0051338837488900581 * fTemp32)) + (0.40557681616231639 * fTemp36)) + (0.015401651246671252 * fTemp38)) + (0.01540165124667044 * fTemp39)) + (0.40557681616231639 * fTemp41)) + (0.40557681616231639 * fTemp44)) + (0.015401651246671252 * fTemp46)) + (0.01540165124667044 * fTemp47)) + (0.40557681616231639 * fTemp49)) + (0.0051338837488900495 * fTemp52)) + (0.0051338837488900581 * fTemp53)))))); + fRec36[0] = max((fRec36[1] - fConst0), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp110)))))); + fVbargraph35 = FAUSTFLOAT(fRec36[0]); + output35[i] = FAUSTFLOAT(fTemp110); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec2[1] = fRec2[0]; + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec5[1] = fRec5[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncoder1.cpp b/source/HOAUGens/HOAEncoder1.cpp new file mode 100644 index 0000000000..907be434bd --- /dev/null +++ b/source/HOAUGens/HOAEncoder1.cpp @@ -0,0 +1,1283 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncoder1" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + FAUSTFLOAT fHslider2; + FAUSTFLOAT fHslider3; + double fConst3; + double fConst4; + double fRec5[2]; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec6[2]; + FAUSTFLOAT fVbargraph2; + double fRec7[2]; + FAUSTFLOAT fVbargraph3; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("filename", "HOAEncoder1"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncoder1"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (1.5957691216057308 * (sqrt((3.0 * (double(tgamma(1.0)) / double(tgamma(3.0))))) * double(tgamma(1.5)))); + fConst3 = (340.0 / fConst0); + fConst4 = (170.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fHslider0 = FAUSTFLOAT(2.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec5[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec3[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec2[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("HOAEncoder1"); + ui_interface->openVerticalBox("Parameters"); + ui_interface->openHorizontalBox("Source 0"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius 0", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x564b557222e0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x564b55737310", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x564b5573ce20", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x564b55742dd0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fEntry0); + double fSlow2 = double(fHslider0); + double fSlow3 = (1.0 - fSlow0); + double fSlow4 = (((fSlow0 * fSlow1) / fSlow2) + fSlow3); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = sin(double(fHslider2)); + double fSlow7 = pow((1.0 - mydsp_faustpower2_f(fSlow6)), 0.5); + double fSlow8 = double(fHslider3); + double fSlow9 = (fConst2 * (fSlow7 * sin(fSlow8))); + double fSlow10 = ((fConst4 / fSlow2) + 1.0); + double fSlow11 = (fConst3 / (fSlow10 * fSlow2)); + double fSlow12 = (1.0 / ((fConst4 / fSlow1) + 1.0)); + double fSlow13 = (((fSlow10 * fSlow0) * fSlow1) / fSlow2); + double fSlow14 = (fConst3 / fSlow1); + double fSlow15 = (1.7320508075688772 * fSlow6); + double fSlow16 = (fConst2 * (cos(fSlow8) * fSlow7)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + fRec5[0] = (fRec5[1] + fRec4[1]); + fRec4[0] = (fSlow12 * ((fSlow13 * fTemp0) - (fSlow14 * fRec5[0]))); + fRec3[0] = (fRec4[0] + fRec3[1]); + double fTemp2 = ((fSlow11 * (fRec3[0] - fRec4[0])) + (fRec4[0] + (fSlow3 * fTemp0))); + double fTemp3 = (fSlow9 * fTemp2); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = (fSlow15 * fTemp2); + fRec6[0] = max((fRec6[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph2 = FAUSTFLOAT(fRec6[0]); + output2[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (fSlow16 * fTemp2); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph3 = FAUSTFLOAT(fRec7[0]); + output3[i] = FAUSTFLOAT(fTemp5); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncoder2.cpp b/source/HOAUGens/HOAEncoder2.cpp new file mode 100644 index 0000000000..01963ca19f --- /dev/null +++ b/source/HOAUGens/HOAEncoder2.cpp @@ -0,0 +1,1467 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncoder2" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fConst4; + FAUSTFLOAT fHslider2; + FAUSTFLOAT fHslider3; + double fConst5; + double fConst6; + double fRec5[2]; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec6[2]; + FAUSTFLOAT fVbargraph2; + double fRec7[2]; + FAUSTFLOAT fVbargraph3; + double fConst7; + double fConst8; + double fConst9; + double fConst10; + double fRec11[2]; + double fRec12[2]; + double fRec10[2]; + double fRec9[2]; + double fVec0[2]; + double fRec13[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph4; + double fConst11; + double fRec14[2]; + FAUSTFLOAT fVbargraph5; + double fRec15[2]; + FAUSTFLOAT fVbargraph6; + double fRec16[2]; + FAUSTFLOAT fVbargraph7; + double fConst12; + double fRec17[2]; + FAUSTFLOAT fVbargraph8; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("filename", "HOAEncoder2"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncoder2"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = double(tgamma(1.5)); + fConst4 = (1.5957691216057308 * (sqrt((3.0 * (fConst2 / double(tgamma(3.0))))) * fConst3)); + fConst5 = (340.0 / fConst0); + fConst6 = (170.0 / fConst0); + fConst7 = (sqrt((5.0 * (fConst2 / double(tgamma(5.0))))) * double(tgamma(2.5))); + fConst8 = (6.3830764864229232 * fConst7); + fConst9 = (510.0 / fConst0); + fConst10 = (1020.0 / fConst0); + fConst11 = (4.7873073648171927 * (sqrt((5.0 * (double(tgamma(2.0)) / double(tgamma(4.0))))) * fConst3)); + fConst12 = (3.1915382432114616 * fConst7); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fHslider0 = FAUSTFLOAT(2.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec5[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec3[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec2[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec11[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec9[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fVec0[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec8[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec15[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec17[l18] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("HOAEncoder2"); + ui_interface->openVerticalBox("Parameters"); + ui_interface->openHorizontalBox("Source 0"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius 0", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd9321d50", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd9337fe0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd933daf0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd9343cb0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd935ba10", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd93634d0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd9369710", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd936f5d0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x555cd93765c0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fEntry0); + double fSlow2 = double(fHslider0); + double fSlow3 = (1.0 - fSlow0); + double fSlow4 = (((fSlow0 * fSlow1) / fSlow2) + fSlow3); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = sin(double(fHslider2)); + double fSlow7 = mydsp_faustpower2_f(fSlow6); + double fSlow8 = (1.0 - fSlow7); + double fSlow9 = pow(fSlow8, 0.5); + double fSlow10 = double(fHslider3); + double fSlow11 = sin(fSlow10); + double fSlow12 = (fConst4 * (fSlow9 * fSlow11)); + double fSlow13 = (fConst6 / fSlow2); + double fSlow14 = (fSlow13 + 1.0); + double fSlow15 = (fConst5 / (fSlow14 * fSlow2)); + double fSlow16 = (fConst6 / fSlow1); + double fSlow17 = (1.0 / (fSlow16 + 1.0)); + double fSlow18 = (((fSlow14 * fSlow0) * fSlow1) / fSlow2); + double fSlow19 = (fConst5 / fSlow1); + double fSlow20 = (1.7320508075688772 * fSlow6); + double fSlow21 = cos(fSlow10); + double fSlow22 = (fConst4 * (fSlow21 * fSlow9)); + double fSlow23 = (fConst8 * ((fSlow21 * fSlow8) * fSlow11)); + double fSlow24 = mydsp_faustpower2_f(fSlow13); + double fSlow25 = (((fConst9 / fSlow2) + (3.0 * fSlow24)) + 1.0); + double fSlow26 = (1.0 / fSlow25); + double fSlow27 = (12.0 * fSlow24); + double fSlow28 = ((fConst10 / fSlow2) + fSlow27); + double fSlow29 = mydsp_faustpower2_f(fSlow16); + double fSlow30 = (1.0 / (((fConst9 / fSlow1) + (3.0 * fSlow29)) + 1.0)); + double fSlow31 = (((fSlow25 * fSlow0) * fSlow1) / fSlow2); + double fSlow32 = (12.0 * fSlow29); + double fSlow33 = (fSlow32 + (fConst10 / fSlow1)); + double fSlow34 = (fConst11 * ((fSlow6 * fSlow9) * fSlow11)); + double fSlow35 = (1.1180339887498949 * ((3.0 * fSlow7) + -1.0)); + double fSlow36 = (fConst11 * ((fSlow21 * fSlow6) * fSlow9)); + double fSlow37 = (fConst12 * (((2.0 * mydsp_faustpower2_f(fSlow21)) + -1.0) * fSlow8)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + fRec5[0] = (fRec5[1] + fRec4[1]); + fRec4[0] = (fSlow17 * ((fSlow18 * fTemp0) - (fSlow19 * fRec5[0]))); + fRec3[0] = (fRec4[0] + fRec3[1]); + double fTemp2 = (fSlow3 * fTemp0); + double fTemp3 = ((fSlow15 * (fRec3[0] - fRec4[0])) + (fRec4[0] + fTemp2)); + double fTemp4 = (fSlow12 * fTemp3); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (fSlow20 * fTemp3); + fRec6[0] = max((fRec6[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec6[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fSlow22 * fTemp3); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec7[0]); + output3[i] = FAUSTFLOAT(fTemp6); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec12[0] = (fRec12[1] + fRec11[1]); + fRec10[0] = (fSlow30 * ((fSlow31 * fTemp0) - ((fSlow33 * fRec11[0]) + (fSlow32 * fRec12[0])))); + fRec9[0] = (fRec10[0] + fRec9[1]); + double fTemp7 = (fRec9[0] - fRec10[0]); + fVec0[0] = fTemp7; + fRec13[0] = (fRec13[1] + fVec0[1]); + double fTemp8 = ((fSlow26 * ((fSlow28 * fTemp7) + (fSlow27 * fRec13[0]))) + (fRec10[0] + fTemp2)); + double fTemp9 = (fSlow23 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph4 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (fSlow34 * fTemp8); + fRec14[0] = max((fRec14[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec14[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (fSlow35 * fTemp8); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec15[0]); + output6[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (fSlow36 * fTemp8); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec16[0]); + output7[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (fSlow37 * fTemp8); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec17[0]); + output8[i] = FAUSTFLOAT(fTemp13); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec8[1] = fRec8[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncoder3.cpp b/source/HOAUGens/HOAEncoder3.cpp new file mode 100644 index 0000000000..f3a9ac9e80 --- /dev/null +++ b/source/HOAUGens/HOAEncoder3.cpp @@ -0,0 +1,1725 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncoder3" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fHslider2; + FAUSTFLOAT fHslider3; + double fConst6; + double fConst7; + double fRec5[2]; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec6[2]; + FAUSTFLOAT fVbargraph2; + double fRec7[2]; + FAUSTFLOAT fVbargraph3; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec11[2]; + double fRec12[2]; + double fRec10[2]; + double fRec9[2]; + double fVec0[2]; + double fRec13[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph4; + double fConst14; + double fConst15; + double fRec14[2]; + FAUSTFLOAT fVbargraph5; + double fRec15[2]; + FAUSTFLOAT fVbargraph6; + double fRec16[2]; + FAUSTFLOAT fVbargraph7; + double fConst16; + double fRec17[2]; + FAUSTFLOAT fVbargraph8; + double fConst17; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fRec22[2]; + double fRec23[2]; + double fRec21[2]; + double fRec24[2]; + double fVec1[2]; + double fRec25[2]; + double fRec26[2]; + double fRec20[2]; + double fRec19[2]; + double fRec18[2]; + FAUSTFLOAT fVbargraph9; + double fConst22; + double fConst23; + double fRec27[2]; + FAUSTFLOAT fVbargraph10; + double fConst24; + double fRec28[2]; + FAUSTFLOAT fVbargraph11; + double fRec29[2]; + FAUSTFLOAT fVbargraph12; + double fRec30[2]; + FAUSTFLOAT fVbargraph13; + double fConst25; + double fRec31[2]; + FAUSTFLOAT fVbargraph14; + double fRec32[2]; + FAUSTFLOAT fVbargraph15; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("filename", "HOAEncoder3"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncoder3"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = double(tgamma(3.0)); + fConst4 = double(tgamma(1.5)); + fConst5 = (1.5957691216057308 * (sqrt((3.0 * (fConst2 / fConst3))) * fConst4)); + fConst6 = (340.0 / fConst0); + fConst7 = (170.0 / fConst0); + fConst8 = double(tgamma(5.0)); + fConst9 = double(tgamma(2.5)); + fConst10 = (sqrt((5.0 * (fConst2 / fConst8))) * fConst9); + fConst11 = (6.3830764864229232 * fConst10); + fConst12 = (510.0 / fConst0); + fConst13 = (1020.0 / fConst0); + fConst14 = double(tgamma(2.0)); + fConst15 = (4.7873073648171927 * (sqrt((5.0 * (fConst14 / double(tgamma(4.0))))) * fConst4)); + fConst16 = (3.1915382432114616 * fConst10); + fConst17 = (6.3830764864229232 * (sqrt((7.0 * (fConst2 / double(tgamma(7.0))))) * double(tgamma(3.5)))); + fConst18 = (789.54302057287055 / fConst0); + fConst19 = (394.77151028643527 / fConst0); + fConst20 = (625.22848971356643 / fConst0); + fConst21 = (1250.4569794271329 / fConst0); + fConst22 = (sqrt((7.0 * (fConst14 / double(tgamma(6.0))))) * fConst9); + fConst23 = (31.915382432114615 * fConst22); + fConst24 = (0.70710678118654757 * (sqrt((7.0 * (fConst3 / fConst8))) * fConst4)); + fConst25 = (15.957691216057308 * fConst22); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fHslider0 = FAUSTFLOAT(2.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec5[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec3[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec2[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec11[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec9[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fVec0[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec8[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec15[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec17[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec24[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fVec1[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec20[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec19[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec18[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec27[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec28[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec29[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec30[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec31[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("HOAEncoder3"); + ui_interface->openVerticalBox("Parameters"); + ui_interface->openHorizontalBox("Source 0"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius 0", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929f73d70", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929f8a300", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929f8fe10", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929f95fd0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929fae330", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929fb60f0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929fbc540", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929fc2610", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929fc9a20", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929fe8840", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929ff0000", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929ff7920", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x560929ffdea0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56092a003f20", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56092a00a730", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x56092a010df0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fEntry0); + double fSlow2 = double(fHslider0); + double fSlow3 = (1.0 - fSlow0); + double fSlow4 = (((fSlow0 * fSlow1) / fSlow2) + fSlow3); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = sin(double(fHslider2)); + double fSlow7 = mydsp_faustpower2_f(fSlow6); + double fSlow8 = (1.0 - fSlow7); + double fSlow9 = pow(fSlow8, 0.5); + double fSlow10 = double(fHslider3); + double fSlow11 = sin(fSlow10); + double fSlow12 = (fConst5 * (fSlow9 * fSlow11)); + double fSlow13 = (fConst7 / fSlow2); + double fSlow14 = (fSlow13 + 1.0); + double fSlow15 = (fConst6 / (fSlow14 * fSlow2)); + double fSlow16 = (fConst7 / fSlow1); + double fSlow17 = (1.0 / (fSlow16 + 1.0)); + double fSlow18 = (((fSlow14 * fSlow0) * fSlow1) / fSlow2); + double fSlow19 = (fConst6 / fSlow1); + double fSlow20 = (1.7320508075688772 * fSlow6); + double fSlow21 = cos(fSlow10); + double fSlow22 = (fConst5 * (fSlow21 * fSlow9)); + double fSlow23 = (fConst11 * ((fSlow21 * fSlow8) * fSlow11)); + double fSlow24 = mydsp_faustpower2_f(fSlow13); + double fSlow25 = (((fConst12 / fSlow2) + (3.0 * fSlow24)) + 1.0); + double fSlow26 = (1.0 / fSlow25); + double fSlow27 = (12.0 * fSlow24); + double fSlow28 = ((fConst13 / fSlow2) + fSlow27); + double fSlow29 = mydsp_faustpower2_f(fSlow16); + double fSlow30 = (1.0 / (((fConst12 / fSlow1) + (3.0 * fSlow29)) + 1.0)); + double fSlow31 = (((fSlow25 * fSlow0) * fSlow1) / fSlow2); + double fSlow32 = (12.0 * fSlow29); + double fSlow33 = (fSlow32 + (fConst13 / fSlow1)); + double fSlow34 = (fConst15 * ((fSlow6 * fSlow9) * fSlow11)); + double fSlow35 = ((3.0 * fSlow7) + -1.0); + double fSlow36 = (1.1180339887498949 * fSlow35); + double fSlow37 = (fSlow21 * fSlow6); + double fSlow38 = (fConst15 * (fSlow37 * fSlow9)); + double fSlow39 = mydsp_faustpower2_f(fSlow21); + double fSlow40 = ((2.0 * fSlow39) + -1.0); + double fSlow41 = (fConst16 * (fSlow40 * fSlow8)); + double fSlow42 = pow(fSlow8, 1.5); + double fSlow43 = (fConst17 * ((((4.0 * fSlow39) + -1.0) * fSlow42) * fSlow11)); + double fSlow44 = ((fConst19 / fSlow2) + 1.0); + double fSlow45 = (fConst18 / (fSlow44 * fSlow2)); + double fSlow46 = (1.0 / ((fConst19 / fSlow1) + 1.0)); + double fSlow47 = (1.0 / (((fConst20 / fSlow1) + (6.4594326934833797 * fSlow29)) + 1.0)); + double fSlow48 = (((fConst20 / fSlow2) + (6.4594326934833797 * fSlow24)) + 1.0); + double fSlow49 = (((fSlow48 * fSlow0) * fSlow1) / fSlow2); + double fSlow50 = (25.837730773933519 * fSlow29); + double fSlow51 = (fSlow50 + (fConst21 / fSlow1)); + double fSlow52 = (1.0 / fSlow48); + double fSlow53 = (25.837730773933519 * fSlow24); + double fSlow54 = ((fConst21 / fSlow2) + fSlow53); + double fSlow55 = (fConst18 / fSlow1); + double fSlow56 = (fConst23 * ((fSlow37 * fSlow8) * fSlow11)); + double fSlow57 = ((16.925687506432688 * fSlow7) + -3.3851375012865379); + double fSlow58 = (fConst24 * ((fSlow57 * fSlow9) * fSlow11)); + double fSlow59 = (0.88191710368819687 * (((2.5 * fSlow35) + -2.0) * fSlow6)); + double fSlow60 = (fConst24 * ((fSlow57 * fSlow21) * fSlow9)); + double fSlow61 = (fConst25 * ((fSlow40 * fSlow6) * fSlow8)); + double fSlow62 = (fConst17 * ((((2.0 * fSlow40) + -1.0) * fSlow21) * fSlow42)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + fRec5[0] = (fRec5[1] + fRec4[1]); + fRec4[0] = (fSlow17 * ((fSlow18 * fTemp0) - (fSlow19 * fRec5[0]))); + fRec3[0] = (fRec4[0] + fRec3[1]); + double fTemp2 = (fSlow3 * fTemp0); + double fTemp3 = ((fSlow15 * (fRec3[0] - fRec4[0])) + (fRec4[0] + fTemp2)); + double fTemp4 = (fSlow12 * fTemp3); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (fSlow20 * fTemp3); + fRec6[0] = max((fRec6[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec6[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fSlow22 * fTemp3); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec7[0]); + output3[i] = FAUSTFLOAT(fTemp6); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec12[0] = (fRec12[1] + fRec11[1]); + fRec10[0] = (fSlow30 * ((fSlow31 * fTemp0) - ((fSlow33 * fRec11[0]) + (fSlow32 * fRec12[0])))); + fRec9[0] = (fRec10[0] + fRec9[1]); + double fTemp7 = (fRec9[0] - fRec10[0]); + fVec0[0] = fTemp7; + fRec13[0] = (fRec13[1] + fVec0[1]); + double fTemp8 = ((fSlow26 * ((fSlow28 * fTemp7) + (fSlow27 * fRec13[0]))) + (fRec10[0] + fTemp2)); + double fTemp9 = (fSlow23 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph4 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (fSlow34 * fTemp8); + fRec14[0] = max((fRec14[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec14[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (fSlow36 * fTemp8); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec15[0]); + output6[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (fSlow38 * fTemp8); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec16[0]); + output7[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (fSlow41 * fTemp8); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec17[0]); + output8[i] = FAUSTFLOAT(fTemp13); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec21[0] = (fSlow47 * ((fSlow49 * fTemp0) - ((fSlow51 * fRec22[0]) + (fSlow50 * fRec23[0])))); + fRec24[0] = (fRec21[0] + fRec24[1]); + double fTemp14 = (fRec24[0] - fRec21[0]); + fVec1[0] = fTemp14; + fRec25[0] = (fRec25[1] + fVec1[1]); + fRec26[0] = (fRec26[1] + fRec20[1]); + fRec20[0] = (fSlow46 * ((fSlow44 * (fRec21[0] + (fSlow52 * ((fSlow54 * fTemp14) + (fSlow53 * fRec25[0]))))) - (fSlow55 * fRec26[0]))); + fRec19[0] = (fRec20[0] + fRec19[1]); + double fTemp15 = ((fSlow45 * (fRec19[0] - fRec20[0])) + (fRec20[0] + fTemp2)); + double fTemp16 = (fSlow43 * fTemp15); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph9 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (fSlow56 * fTemp15); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph10 = FAUSTFLOAT(fRec27[0]); + output10[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (fSlow58 * fTemp15); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph11 = FAUSTFLOAT(fRec28[0]); + output11[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (fSlow59 * fTemp15); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph12 = FAUSTFLOAT(fRec29[0]); + output12[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fSlow60 * fTemp15); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph13 = FAUSTFLOAT(fRec30[0]); + output13[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (fSlow61 * fTemp15); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph14 = FAUSTFLOAT(fRec31[0]); + output14[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (fSlow62 * fTemp15); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph15 = FAUSTFLOAT(fRec32[0]); + output15[i] = FAUSTFLOAT(fTemp22); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec8[1] = fRec8[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec21[1] = fRec21[0]; + fRec24[1] = fRec24[0]; + fVec1[1] = fVec1[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncoder4.cpp b/source/HOAUGens/HOAEncoder4.cpp new file mode 100644 index 0000000000..ebcaed7d74 --- /dev/null +++ b/source/HOAUGens/HOAEncoder4.cpp @@ -0,0 +1,2057 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncoder4" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fHslider2; + FAUSTFLOAT fHslider3; + double fConst6; + double fConst7; + double fRec5[2]; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec6[2]; + FAUSTFLOAT fVbargraph2; + double fRec7[2]; + FAUSTFLOAT fVbargraph3; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec11[2]; + double fRec12[2]; + double fRec10[2]; + double fRec9[2]; + double fVec0[2]; + double fRec13[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph4; + double fConst14; + double fConst15; + double fConst16; + double fRec14[2]; + FAUSTFLOAT fVbargraph5; + double fRec15[2]; + FAUSTFLOAT fVbargraph6; + double fRec16[2]; + FAUSTFLOAT fVbargraph7; + double fConst17; + double fRec17[2]; + FAUSTFLOAT fVbargraph8; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fRec22[2]; + double fRec23[2]; + double fRec21[2]; + double fRec24[2]; + double fVec1[2]; + double fRec25[2]; + double fRec26[2]; + double fRec20[2]; + double fRec19[2]; + double fRec18[2]; + FAUSTFLOAT fVbargraph9; + double fConst25; + double fConst26; + double fConst27; + double fRec27[2]; + FAUSTFLOAT fVbargraph10; + double fConst28; + double fRec28[2]; + FAUSTFLOAT fVbargraph11; + double fRec29[2]; + FAUSTFLOAT fVbargraph12; + double fRec30[2]; + FAUSTFLOAT fVbargraph13; + double fConst29; + double fRec31[2]; + FAUSTFLOAT fVbargraph14; + double fRec32[2]; + FAUSTFLOAT fVbargraph15; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fRec37[2]; + double fRec38[2]; + double fRec36[2]; + double fRec39[2]; + double fVec2[2]; + double fRec40[2]; + double fRec41[2]; + double fRec42[2]; + double fRec35[2]; + double fRec34[2]; + double fVec3[2]; + double fRec43[2]; + double fRec33[2]; + FAUSTFLOAT fVbargraph16; + double fConst36; + double fRec44[2]; + FAUSTFLOAT fVbargraph17; + double fConst37; + double fConst38; + double fRec45[2]; + FAUSTFLOAT fVbargraph18; + double fConst39; + double fRec46[2]; + FAUSTFLOAT fVbargraph19; + double fRec47[2]; + FAUSTFLOAT fVbargraph20; + double fRec48[2]; + FAUSTFLOAT fVbargraph21; + double fConst40; + double fRec49[2]; + FAUSTFLOAT fVbargraph22; + double fRec50[2]; + FAUSTFLOAT fVbargraph23; + double fConst41; + double fRec51[2]; + FAUSTFLOAT fVbargraph24; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("filename", "HOAEncoder4"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncoder4"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = double(tgamma(3.0)); + fConst4 = double(tgamma(1.5)); + fConst5 = (1.5957691216057308 * (sqrt((3.0 * (fConst2 / fConst3))) * fConst4)); + fConst6 = (340.0 / fConst0); + fConst7 = (170.0 / fConst0); + fConst8 = double(tgamma(5.0)); + fConst9 = double(tgamma(2.5)); + fConst10 = (sqrt((5.0 * (fConst2 / fConst8))) * fConst9); + fConst11 = (6.3830764864229232 * fConst10); + fConst12 = (510.0 / fConst0); + fConst13 = (1020.0 / fConst0); + fConst14 = double(tgamma(2.0)); + fConst15 = double(tgamma(4.0)); + fConst16 = (4.7873073648171927 * (sqrt((5.0 * (fConst14 / fConst15))) * fConst4)); + fConst17 = (3.1915382432114616 * fConst10); + fConst18 = double(tgamma(7.0)); + fConst19 = double(tgamma(3.5)); + fConst20 = (6.3830764864229232 * (sqrt((7.0 * (fConst2 / fConst18))) * fConst19)); + fConst21 = (789.54302057287055 / fConst0); + fConst22 = (394.77151028643527 / fConst0); + fConst23 = (625.22848971356643 / fConst0); + fConst24 = (1250.4569794271329 / fConst0); + fConst25 = double(tgamma(6.0)); + fConst26 = (sqrt((7.0 * (fConst14 / fConst25))) * fConst9); + fConst27 = (31.915382432114615 * fConst26); + fConst28 = (0.70710678118654757 * (sqrt((7.0 * (fConst3 / fConst8))) * fConst4)); + fConst29 = (15.957691216057308 * fConst26); + fConst30 = (sqrt((9.0 * (fConst2 / double(tgamma(9.0))))) * double(tgamma(4.5))); + fConst31 = (25.532305945691693 * fConst30); + fConst32 = (984.71160495892411 / fConst0); + fConst33 = (1969.4232099178482 / fConst0); + fConst34 = (715.28839504107589 / fConst0); + fConst35 = (1430.5767900821518 / fConst0); + fConst36 = (44.681535404960464 * (sqrt((9.0 * (fConst14 / double(tgamma(8.0))))) * fConst19)); + fConst37 = (sqrt((9.0 * (fConst3 / fConst18))) * fConst9); + fConst38 = (1.4142135623730951 * fConst37); + fConst39 = (0.47140452079103168 * (sqrt((9.0 * (fConst15 / fConst25))) * fConst4)); + fConst40 = (0.70710678118654757 * fConst37); + fConst41 = (12.766152972845846 * fConst30); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fHslider0 = FAUSTFLOAT(2.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec5[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec3[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec2[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec11[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec9[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fVec0[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec8[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec15[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec17[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec24[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fVec1[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec20[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec19[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec18[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec27[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec28[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec29[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec30[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec31[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec37[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec38[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fVec2[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec41[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec42[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec35[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec34[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fVec3[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec43[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec33[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec44[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec45[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec46[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec47[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec48[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec49[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec50[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec51[l55] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("HOAEncoder4"); + ui_interface->openVerticalBox("Parameters"); + ui_interface->openHorizontalBox("Source 0"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius 0", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bddfb30", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bdf60c0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bdfbbd0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be01d90", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be1a0f0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be221b0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be28600", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be2e6d0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be35ae0", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be55110", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be5cbd0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be644f0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be6ac80", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be70d00", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be77510", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57be7dff0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bea3e10", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57beab760", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57beb3640", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bebb130", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bec19f0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bec7e10", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bece610", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bed4a10", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x55f57bedbc60", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fEntry0); + double fSlow2 = double(fHslider0); + double fSlow3 = (1.0 - fSlow0); + double fSlow4 = (((fSlow0 * fSlow1) / fSlow2) + fSlow3); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = sin(double(fHslider2)); + double fSlow7 = mydsp_faustpower2_f(fSlow6); + double fSlow8 = (1.0 - fSlow7); + double fSlow9 = pow(fSlow8, 0.5); + double fSlow10 = double(fHslider3); + double fSlow11 = sin(fSlow10); + double fSlow12 = (fConst5 * (fSlow9 * fSlow11)); + double fSlow13 = (fConst7 / fSlow2); + double fSlow14 = (fSlow13 + 1.0); + double fSlow15 = (fConst6 / (fSlow14 * fSlow2)); + double fSlow16 = (fConst7 / fSlow1); + double fSlow17 = (1.0 / (fSlow16 + 1.0)); + double fSlow18 = (((fSlow14 * fSlow0) * fSlow1) / fSlow2); + double fSlow19 = (fConst6 / fSlow1); + double fSlow20 = (1.7320508075688772 * fSlow6); + double fSlow21 = cos(fSlow10); + double fSlow22 = (fConst5 * (fSlow21 * fSlow9)); + double fSlow23 = (fConst11 * ((fSlow21 * fSlow8) * fSlow11)); + double fSlow24 = mydsp_faustpower2_f(fSlow13); + double fSlow25 = (((fConst12 / fSlow2) + (3.0 * fSlow24)) + 1.0); + double fSlow26 = (1.0 / fSlow25); + double fSlow27 = (12.0 * fSlow24); + double fSlow28 = ((fConst13 / fSlow2) + fSlow27); + double fSlow29 = mydsp_faustpower2_f(fSlow16); + double fSlow30 = (1.0 / (((fConst12 / fSlow1) + (3.0 * fSlow29)) + 1.0)); + double fSlow31 = (((fSlow25 * fSlow0) * fSlow1) / fSlow2); + double fSlow32 = (12.0 * fSlow29); + double fSlow33 = (fSlow32 + (fConst13 / fSlow1)); + double fSlow34 = (fConst16 * ((fSlow6 * fSlow9) * fSlow11)); + double fSlow35 = ((3.0 * fSlow7) + -1.0); + double fSlow36 = (1.1180339887498949 * fSlow35); + double fSlow37 = (fSlow21 * fSlow6); + double fSlow38 = (fConst16 * (fSlow37 * fSlow9)); + double fSlow39 = mydsp_faustpower2_f(fSlow21); + double fSlow40 = ((2.0 * fSlow39) + -1.0); + double fSlow41 = (fConst17 * (fSlow40 * fSlow8)); + double fSlow42 = ((4.0 * fSlow39) + -1.0); + double fSlow43 = pow(fSlow8, 1.5); + double fSlow44 = (fConst20 * ((fSlow42 * fSlow43) * fSlow11)); + double fSlow45 = ((fConst22 / fSlow2) + 1.0); + double fSlow46 = (fConst21 / (fSlow45 * fSlow2)); + double fSlow47 = (1.0 / ((fConst22 / fSlow1) + 1.0)); + double fSlow48 = (1.0 / (((fConst23 / fSlow1) + (6.4594326934833797 * fSlow29)) + 1.0)); + double fSlow49 = (((fConst23 / fSlow2) + (6.4594326934833797 * fSlow24)) + 1.0); + double fSlow50 = (((fSlow49 * fSlow0) * fSlow1) / fSlow2); + double fSlow51 = (25.837730773933519 * fSlow29); + double fSlow52 = (fSlow51 + (fConst24 / fSlow1)); + double fSlow53 = (1.0 / fSlow49); + double fSlow54 = (25.837730773933519 * fSlow24); + double fSlow55 = ((fConst24 / fSlow2) + fSlow54); + double fSlow56 = (fConst21 / fSlow1); + double fSlow57 = (fConst27 * ((fSlow37 * fSlow8) * fSlow11)); + double fSlow58 = ((16.925687506432688 * fSlow7) + -3.3851375012865379); + double fSlow59 = (fConst28 * ((fSlow58 * fSlow9) * fSlow11)); + double fSlow60 = ((2.5 * fSlow35) + -2.0); + double fSlow61 = (0.88191710368819687 * (fSlow60 * fSlow6)); + double fSlow62 = (fConst28 * ((fSlow58 * fSlow21) * fSlow9)); + double fSlow63 = (fConst29 * ((fSlow40 * fSlow6) * fSlow8)); + double fSlow64 = ((2.0 * fSlow40) + -1.0); + double fSlow65 = (fSlow64 * fSlow21); + double fSlow66 = (fConst20 * (fSlow65 * fSlow43)); + double fSlow67 = mydsp_faustpower2_f(fSlow8); + double fSlow68 = (fConst31 * ((((fSlow42 + -1.0) * fSlow21) * fSlow67) * fSlow11)); + double fSlow69 = (((fConst32 / fSlow2) + (9.1401308902779004 * fSlow24)) + 1.0); + double fSlow70 = (1.0 / fSlow69); + double fSlow71 = (36.560523561111602 * fSlow24); + double fSlow72 = ((fConst33 / fSlow2) + fSlow71); + double fSlow73 = (1.0 / (((fConst32 / fSlow1) + (9.1401308902779004 * fSlow29)) + 1.0)); + double fSlow74 = (1.0 / (((fConst34 / fSlow1) + (11.4878004768713 * fSlow29)) + 1.0)); + double fSlow75 = (((fConst34 / fSlow2) + (11.4878004768713 * fSlow24)) + 1.0); + double fSlow76 = (((fSlow75 * fSlow0) * fSlow1) / fSlow2); + double fSlow77 = (45.951201907485199 * fSlow29); + double fSlow78 = (fSlow77 + (fConst35 / fSlow1)); + double fSlow79 = (1.0 / fSlow75); + double fSlow80 = (45.951201907485199 * fSlow24); + double fSlow81 = ((fConst35 / fSlow2) + fSlow80); + double fSlow82 = (36.560523561111602 * fSlow29); + double fSlow83 = (fSlow82 + (fConst33 / fSlow1)); + double fSlow84 = (fConst36 * (((fSlow42 * fSlow6) * fSlow43) * fSlow11)); + double fSlow85 = ((78.986541696685876 * fSlow7) + -11.283791670955125); + double fSlow86 = (fConst38 * (((fSlow85 * fSlow21) * fSlow8) * fSlow11)); + double fSlow87 = ((3.5 * fSlow58) + -13.540550005146152); + double fSlow88 = (fConst39 * (((fSlow87 * fSlow6) * fSlow9) * fSlow11)); + double fSlow89 = (0.75 * ((2.333333333333333 * (fSlow60 * fSlow7)) - (1.5 * fSlow35))); + double fSlow90 = (fConst39 * (((fSlow87 * fSlow21) * fSlow6) * fSlow9)); + double fSlow91 = (fConst40 * ((fSlow40 * fSlow85) * fSlow8)); + double fSlow92 = (fConst36 * ((fSlow65 * fSlow6) * fSlow43)); + double fSlow93 = (fConst41 * ((1.0 - (2.0 * ((1.0 - fSlow64) * fSlow39))) * fSlow67)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + fRec5[0] = (fRec5[1] + fRec4[1]); + fRec4[0] = (fSlow17 * ((fSlow18 * fTemp0) - (fSlow19 * fRec5[0]))); + fRec3[0] = (fRec4[0] + fRec3[1]); + double fTemp2 = (fSlow3 * fTemp0); + double fTemp3 = ((fSlow15 * (fRec3[0] - fRec4[0])) + (fRec4[0] + fTemp2)); + double fTemp4 = (fSlow12 * fTemp3); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (fSlow20 * fTemp3); + fRec6[0] = max((fRec6[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec6[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fSlow22 * fTemp3); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec7[0]); + output3[i] = FAUSTFLOAT(fTemp6); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec12[0] = (fRec12[1] + fRec11[1]); + fRec10[0] = (fSlow30 * ((fSlow31 * fTemp0) - ((fSlow33 * fRec11[0]) + (fSlow32 * fRec12[0])))); + fRec9[0] = (fRec10[0] + fRec9[1]); + double fTemp7 = (fRec9[0] - fRec10[0]); + fVec0[0] = fTemp7; + fRec13[0] = (fRec13[1] + fVec0[1]); + double fTemp8 = ((fSlow26 * ((fSlow28 * fTemp7) + (fSlow27 * fRec13[0]))) + (fRec10[0] + fTemp2)); + double fTemp9 = (fSlow23 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph4 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (fSlow34 * fTemp8); + fRec14[0] = max((fRec14[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec14[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (fSlow36 * fTemp8); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec15[0]); + output6[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (fSlow38 * fTemp8); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec16[0]); + output7[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (fSlow41 * fTemp8); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec17[0]); + output8[i] = FAUSTFLOAT(fTemp13); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec21[0] = (fSlow48 * ((fSlow50 * fTemp0) - ((fSlow52 * fRec22[0]) + (fSlow51 * fRec23[0])))); + fRec24[0] = (fRec21[0] + fRec24[1]); + double fTemp14 = (fRec24[0] - fRec21[0]); + fVec1[0] = fTemp14; + fRec25[0] = (fRec25[1] + fVec1[1]); + fRec26[0] = (fRec26[1] + fRec20[1]); + fRec20[0] = (fSlow47 * ((fSlow45 * (fRec21[0] + (fSlow53 * ((fSlow55 * fTemp14) + (fSlow54 * fRec25[0]))))) - (fSlow56 * fRec26[0]))); + fRec19[0] = (fRec20[0] + fRec19[1]); + double fTemp15 = ((fSlow46 * (fRec19[0] - fRec20[0])) + (fRec20[0] + fTemp2)); + double fTemp16 = (fSlow44 * fTemp15); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph9 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (fSlow57 * fTemp15); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph10 = FAUSTFLOAT(fRec27[0]); + output10[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (fSlow59 * fTemp15); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph11 = FAUSTFLOAT(fRec28[0]); + output11[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (fSlow61 * fTemp15); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph12 = FAUSTFLOAT(fRec29[0]); + output12[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fSlow62 * fTemp15); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph13 = FAUSTFLOAT(fRec30[0]); + output13[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (fSlow63 * fTemp15); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph14 = FAUSTFLOAT(fRec31[0]); + output14[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (fSlow66 * fTemp15); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph15 = FAUSTFLOAT(fRec32[0]); + output15[i] = FAUSTFLOAT(fTemp22); + fRec37[0] = (fRec37[1] + fRec36[1]); + fRec38[0] = (fRec38[1] + fRec37[1]); + fRec36[0] = (fSlow74 * ((fSlow76 * fTemp0) - ((fSlow78 * fRec37[0]) + (fSlow77 * fRec38[0])))); + fRec39[0] = (fRec36[0] + fRec39[1]); + double fTemp23 = (fRec39[0] - fRec36[0]); + fVec2[0] = fTemp23; + fRec40[0] = (fRec40[1] + fVec2[1]); + fRec41[0] = (fRec41[1] + fRec35[1]); + fRec42[0] = (fRec42[1] + fRec41[1]); + fRec35[0] = (fSlow73 * ((fSlow69 * (fRec36[0] + (fSlow79 * ((fSlow81 * fTemp23) + (fSlow80 * fRec40[0]))))) - ((fSlow83 * fRec41[0]) + (fSlow82 * fRec42[0])))); + fRec34[0] = (fRec35[0] + fRec34[1]); + double fTemp24 = (fRec34[0] - fRec35[0]); + fVec3[0] = fTemp24; + fRec43[0] = (fRec43[1] + fVec3[1]); + double fTemp25 = ((fSlow70 * ((fSlow72 * fTemp24) + (fSlow71 * fRec43[0]))) + (fRec35[0] + fTemp2)); + double fTemp26 = (fSlow68 * fTemp25); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph16 = FAUSTFLOAT(fRec33[0]); + output16[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (fSlow84 * fTemp25); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph17 = FAUSTFLOAT(fRec44[0]); + output17[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (fSlow86 * fTemp25); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph18 = FAUSTFLOAT(fRec45[0]); + output18[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (fSlow88 * fTemp25); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph19 = FAUSTFLOAT(fRec46[0]); + output19[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fSlow89 * fTemp25); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph20 = FAUSTFLOAT(fRec47[0]); + output20[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fSlow90 * fTemp25); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph21 = FAUSTFLOAT(fRec48[0]); + output21[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fSlow91 * fTemp25); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph22 = FAUSTFLOAT(fRec49[0]); + output22[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fSlow92 * fTemp25); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph23 = FAUSTFLOAT(fRec50[0]); + output23[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fSlow93 * fTemp25); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph24 = FAUSTFLOAT(fRec51[0]); + output24[i] = FAUSTFLOAT(fTemp34); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec8[1] = fRec8[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec21[1] = fRec21[0]; + fRec24[1] = fRec24[0]; + fVec1[1] = fVec1[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fVec2[1] = fVec2[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fVec3[1] = fVec3[0]; + fRec43[1] = fRec43[0]; + fRec33[1] = fRec33[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAEncoder5.cpp b/source/HOAUGens/HOAEncoder5.cpp new file mode 100644 index 0000000000..abe8906d91 --- /dev/null +++ b/source/HOAUGens/HOAEncoder5.cpp @@ -0,0 +1,2461 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAEncoder5" +version: "1.0" +Code generated with Faust 2.5.23 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/* link with : "" */ +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + double fRec1[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + double fConst2; + double fConst3; + double fConst4; + double fConst5; + FAUSTFLOAT fHslider2; + FAUSTFLOAT fHslider3; + double fConst6; + double fConst7; + double fRec5[2]; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + FAUSTFLOAT fVbargraph1; + double fRec6[2]; + FAUSTFLOAT fVbargraph2; + double fRec7[2]; + FAUSTFLOAT fVbargraph3; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec11[2]; + double fRec12[2]; + double fRec10[2]; + double fRec9[2]; + double fVec0[2]; + double fRec13[2]; + double fRec8[2]; + FAUSTFLOAT fVbargraph4; + double fConst14; + double fConst15; + double fConst16; + double fRec14[2]; + FAUSTFLOAT fVbargraph5; + double fRec15[2]; + FAUSTFLOAT fVbargraph6; + double fRec16[2]; + FAUSTFLOAT fVbargraph7; + double fConst17; + double fRec17[2]; + FAUSTFLOAT fVbargraph8; + double fConst18; + double fConst19; + double fConst20; + double fConst21; + double fConst22; + double fConst23; + double fConst24; + double fRec22[2]; + double fRec23[2]; + double fRec21[2]; + double fRec24[2]; + double fVec1[2]; + double fRec25[2]; + double fRec26[2]; + double fRec20[2]; + double fRec19[2]; + double fRec18[2]; + FAUSTFLOAT fVbargraph9; + double fConst25; + double fConst26; + double fConst27; + double fRec27[2]; + FAUSTFLOAT fVbargraph10; + double fConst28; + double fRec28[2]; + FAUSTFLOAT fVbargraph11; + double fRec29[2]; + FAUSTFLOAT fVbargraph12; + double fRec30[2]; + FAUSTFLOAT fVbargraph13; + double fConst29; + double fRec31[2]; + FAUSTFLOAT fVbargraph14; + double fRec32[2]; + FAUSTFLOAT fVbargraph15; + double fConst30; + double fConst31; + double fConst32; + double fConst33; + double fConst34; + double fConst35; + double fConst36; + double fConst37; + double fRec37[2]; + double fRec38[2]; + double fRec36[2]; + double fRec39[2]; + double fVec2[2]; + double fRec40[2]; + double fRec41[2]; + double fRec42[2]; + double fRec35[2]; + double fRec34[2]; + double fVec3[2]; + double fRec43[2]; + double fRec33[2]; + FAUSTFLOAT fVbargraph16; + double fConst38; + double fConst39; + double fRec44[2]; + FAUSTFLOAT fVbargraph17; + double fConst40; + double fConst41; + double fRec45[2]; + FAUSTFLOAT fVbargraph18; + double fConst42; + double fRec46[2]; + FAUSTFLOAT fVbargraph19; + double fRec47[2]; + FAUSTFLOAT fVbargraph20; + double fRec48[2]; + FAUSTFLOAT fVbargraph21; + double fConst43; + double fRec49[2]; + FAUSTFLOAT fVbargraph22; + double fRec50[2]; + FAUSTFLOAT fVbargraph23; + double fConst44; + double fRec51[2]; + FAUSTFLOAT fVbargraph24; + double fConst45; + double fConst46; + double fConst47; + double fConst48; + double fConst49; + double fConst50; + double fRec57[2]; + double fRec58[2]; + double fRec56[2]; + double fRec59[2]; + double fVec4[2]; + double fRec60[2]; + double fConst51; + double fRec61[2]; + double fRec62[2]; + double fRec55[2]; + double fRec63[2]; + double fVec5[2]; + double fRec64[2]; + double fRec65[2]; + double fRec54[2]; + double fRec53[2]; + double fRec52[2]; + FAUSTFLOAT fVbargraph25; + double fConst52; + double fConst53; + double fRec66[2]; + FAUSTFLOAT fVbargraph26; + double fConst54; + double fRec67[2]; + FAUSTFLOAT fVbargraph27; + double fConst55; + double fConst56; + double fRec68[2]; + FAUSTFLOAT fVbargraph28; + double fConst57; + double fRec69[2]; + FAUSTFLOAT fVbargraph29; + double fRec70[2]; + FAUSTFLOAT fVbargraph30; + double fRec71[2]; + FAUSTFLOAT fVbargraph31; + double fConst58; + double fRec72[2]; + FAUSTFLOAT fVbargraph32; + double fRec73[2]; + FAUSTFLOAT fVbargraph33; + double fConst59; + double fRec74[2]; + FAUSTFLOAT fVbargraph34; + double fRec75[2]; + FAUSTFLOAT fVbargraph35; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("filename", "HOAEncoder5"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAEncoder5"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = double(tgamma(1.0)); + fConst3 = double(tgamma(3.0)); + fConst4 = double(tgamma(1.5)); + fConst5 = (1.5957691216057308 * (sqrt((3.0 * (fConst2 / fConst3))) * fConst4)); + fConst6 = (340.0 / fConst0); + fConst7 = (170.0 / fConst0); + fConst8 = double(tgamma(5.0)); + fConst9 = double(tgamma(2.5)); + fConst10 = (sqrt((5.0 * (fConst2 / fConst8))) * fConst9); + fConst11 = (6.3830764864229232 * fConst10); + fConst12 = (510.0 / fConst0); + fConst13 = (1020.0 / fConst0); + fConst14 = double(tgamma(2.0)); + fConst15 = double(tgamma(4.0)); + fConst16 = (4.7873073648171927 * (sqrt((5.0 * (fConst14 / fConst15))) * fConst4)); + fConst17 = (3.1915382432114616 * fConst10); + fConst18 = double(tgamma(7.0)); + fConst19 = double(tgamma(3.5)); + fConst20 = (6.3830764864229232 * (sqrt((7.0 * (fConst2 / fConst18))) * fConst19)); + fConst21 = (789.54302057287055 / fConst0); + fConst22 = (394.77151028643527 / fConst0); + fConst23 = (625.22848971356643 / fConst0); + fConst24 = (1250.4569794271329 / fConst0); + fConst25 = double(tgamma(6.0)); + fConst26 = (sqrt((7.0 * (fConst14 / fConst25))) * fConst9); + fConst27 = (31.915382432114615 * fConst26); + fConst28 = (0.70710678118654757 * (sqrt((7.0 * (fConst3 / fConst8))) * fConst4)); + fConst29 = (15.957691216057308 * fConst26); + fConst30 = double(tgamma(9.0)); + fConst31 = double(tgamma(4.5)); + fConst32 = (sqrt((9.0 * (fConst2 / fConst30))) * fConst31); + fConst33 = (25.532305945691693 * fConst32); + fConst34 = (984.71160495892411 / fConst0); + fConst35 = (1969.4232099178482 / fConst0); + fConst36 = (715.28839504107589 / fConst0); + fConst37 = (1430.5767900821518 / fConst0); + fConst38 = double(tgamma(8.0)); + fConst39 = (44.681535404960464 * (sqrt((9.0 * (fConst14 / fConst38))) * fConst19)); + fConst40 = (sqrt((9.0 * (fConst3 / fConst18))) * fConst9); + fConst41 = (1.4142135623730951 * fConst40); + fConst42 = (0.47140452079103168 * (sqrt((9.0 * (fConst15 / fConst25))) * fConst4)); + fConst43 = (0.70710678118654757 * fConst40); + fConst44 = (12.766152972845846 * fConst32); + fConst45 = (25.532305945691693 * (sqrt((11.0 * (fConst2 / double(tgamma(11.0))))) * double(tgamma(5.5)))); + fConst46 = (1239.8911224120607 / fConst0); + fConst47 = (619.94556120603033 / fConst0); + fConst48 = (1139.6651757122002 / fConst0); + fConst49 = (790.3892630817644 / fConst0); + fConst50 = (1580.7785261635288 / fConst0); + fConst51 = (2279.3303514244003 / fConst0); + fConst52 = (sqrt((11.0 * (fConst14 / double(tgamma(10.0))))) * fConst31); + fConst53 = (229.79075351122526 * fConst52); + fConst54 = (0.70710678118654757 * (sqrt((11.0 * (fConst3 / fConst30))) * fConst19)); + fConst55 = (sqrt((11.0 * (fConst15 / fConst38))) * fConst9); + fConst56 = (0.94280904158206336 * fConst55); + fConst57 = (0.35355339059327379 * (sqrt((11.0 * (fConst8 / fConst18))) * fConst4)); + fConst58 = (0.47140452079103168 * fConst55); + fConst59 = (114.89537675561263 * fConst52); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fHslider0 = FAUSTFLOAT(2.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec0[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec5[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec4[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec3[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec2[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec6[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec11[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec9[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fVec0[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec8[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec14[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec15[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec17[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec22[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec23[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec24[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fVec1[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec25[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec26[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec20[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec19[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec18[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec27[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec28[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec29[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec30[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec31[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec37[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec38[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec39[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fVec2[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec41[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec42[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec35[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec34[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fVec3[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec43[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec33[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec44[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec45[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec46[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec47[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec48[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec49[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec50[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec51[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec57[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec58[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec56[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec59[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fVec4[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec61[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec55[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec63[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fVec5[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec64[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec65[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec54[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec53[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec52[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec66[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec67[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec68[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec69[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec70[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec71[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec72[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec73[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec74[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec75[l81] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openHorizontalBox("HOAEncoder5"); + ui_interface->openVerticalBox("Parameters"); + ui_interface->openHorizontalBox("Source 0"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -20.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius 0", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->openHorizontalBox("0"); + ui_interface->openVerticalBox("0"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c2e950", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("1"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c44ee0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c4a9f0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c50bb0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("2"); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c68f10", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c70fd0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c77420", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c7d4f0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244c84900", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("3"); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244ca3f30", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cab9f0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cb3310", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cb9aa0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cbfb20", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cc6330", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244ccce10", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("4"); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cf3650", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244cfb2a0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d03180", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d0ac70", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d11740", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d17b60", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d1e360", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d24760", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d2bbc0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->openHorizontalBox("5"); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d593b0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d60f10", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d68a00", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d70ab0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d78940", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d7f590", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d85990", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d8c530", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d92cd0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244d99a20", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x559244da05c0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fEntry0); + double fSlow2 = double(fHslider0); + double fSlow3 = (1.0 - fSlow0); + double fSlow4 = (((fSlow0 * fSlow1) / fSlow2) + fSlow3); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = sin(double(fHslider2)); + double fSlow7 = mydsp_faustpower2_f(fSlow6); + double fSlow8 = (1.0 - fSlow7); + double fSlow9 = pow(fSlow8, 0.5); + double fSlow10 = double(fHslider3); + double fSlow11 = sin(fSlow10); + double fSlow12 = (fConst5 * (fSlow9 * fSlow11)); + double fSlow13 = (fConst7 / fSlow2); + double fSlow14 = (fSlow13 + 1.0); + double fSlow15 = (fConst6 / (fSlow14 * fSlow2)); + double fSlow16 = (fConst7 / fSlow1); + double fSlow17 = (1.0 / (fSlow16 + 1.0)); + double fSlow18 = (((fSlow14 * fSlow0) * fSlow1) / fSlow2); + double fSlow19 = (fConst6 / fSlow1); + double fSlow20 = (1.7320508075688772 * fSlow6); + double fSlow21 = cos(fSlow10); + double fSlow22 = (fConst5 * (fSlow21 * fSlow9)); + double fSlow23 = (fConst11 * ((fSlow21 * fSlow8) * fSlow11)); + double fSlow24 = mydsp_faustpower2_f(fSlow13); + double fSlow25 = (((fConst12 / fSlow2) + (3.0 * fSlow24)) + 1.0); + double fSlow26 = (1.0 / fSlow25); + double fSlow27 = (12.0 * fSlow24); + double fSlow28 = ((fConst13 / fSlow2) + fSlow27); + double fSlow29 = mydsp_faustpower2_f(fSlow16); + double fSlow30 = (1.0 / (((fConst12 / fSlow1) + (3.0 * fSlow29)) + 1.0)); + double fSlow31 = (((fSlow25 * fSlow0) * fSlow1) / fSlow2); + double fSlow32 = (12.0 * fSlow29); + double fSlow33 = (fSlow32 + (fConst13 / fSlow1)); + double fSlow34 = (fConst16 * ((fSlow6 * fSlow9) * fSlow11)); + double fSlow35 = ((3.0 * fSlow7) + -1.0); + double fSlow36 = (1.1180339887498949 * fSlow35); + double fSlow37 = (fSlow21 * fSlow6); + double fSlow38 = (fConst16 * (fSlow37 * fSlow9)); + double fSlow39 = mydsp_faustpower2_f(fSlow21); + double fSlow40 = ((2.0 * fSlow39) + -1.0); + double fSlow41 = (fConst17 * (fSlow40 * fSlow8)); + double fSlow42 = ((4.0 * fSlow39) + -1.0); + double fSlow43 = pow(fSlow8, 1.5); + double fSlow44 = (fConst20 * ((fSlow42 * fSlow43) * fSlow11)); + double fSlow45 = ((fConst22 / fSlow2) + 1.0); + double fSlow46 = (fConst21 / (fSlow45 * fSlow2)); + double fSlow47 = (1.0 / ((fConst22 / fSlow1) + 1.0)); + double fSlow48 = (1.0 / (((fConst23 / fSlow1) + (6.4594326934833797 * fSlow29)) + 1.0)); + double fSlow49 = (((fConst23 / fSlow2) + (6.4594326934833797 * fSlow24)) + 1.0); + double fSlow50 = (((fSlow49 * fSlow0) * fSlow1) / fSlow2); + double fSlow51 = (25.837730773933519 * fSlow29); + double fSlow52 = (fSlow51 + (fConst24 / fSlow1)); + double fSlow53 = (1.0 / fSlow49); + double fSlow54 = (25.837730773933519 * fSlow24); + double fSlow55 = ((fConst24 / fSlow2) + fSlow54); + double fSlow56 = (fConst21 / fSlow1); + double fSlow57 = (fConst27 * ((fSlow37 * fSlow8) * fSlow11)); + double fSlow58 = ((16.925687506432688 * fSlow7) + -3.3851375012865379); + double fSlow59 = (fConst28 * ((fSlow58 * fSlow9) * fSlow11)); + double fSlow60 = ((2.5 * fSlow35) + -2.0); + double fSlow61 = (0.88191710368819687 * (fSlow60 * fSlow6)); + double fSlow62 = (fConst28 * ((fSlow58 * fSlow21) * fSlow9)); + double fSlow63 = (fConst29 * ((fSlow40 * fSlow6) * fSlow8)); + double fSlow64 = ((2.0 * fSlow40) + -1.0); + double fSlow65 = (fSlow64 * fSlow21); + double fSlow66 = (fConst20 * (fSlow65 * fSlow43)); + double fSlow67 = (fSlow42 + -1.0); + double fSlow68 = (fSlow67 * fSlow21); + double fSlow69 = mydsp_faustpower2_f(fSlow8); + double fSlow70 = (fConst33 * ((fSlow68 * fSlow69) * fSlow11)); + double fSlow71 = (((fConst34 / fSlow2) + (9.1401308902779004 * fSlow24)) + 1.0); + double fSlow72 = (1.0 / fSlow71); + double fSlow73 = (36.560523561111602 * fSlow24); + double fSlow74 = ((fConst35 / fSlow2) + fSlow73); + double fSlow75 = (1.0 / (((fConst34 / fSlow1) + (9.1401308902779004 * fSlow29)) + 1.0)); + double fSlow76 = (1.0 / (((fConst36 / fSlow1) + (11.4878004768713 * fSlow29)) + 1.0)); + double fSlow77 = (((fConst36 / fSlow2) + (11.4878004768713 * fSlow24)) + 1.0); + double fSlow78 = (((fSlow77 * fSlow0) * fSlow1) / fSlow2); + double fSlow79 = (45.951201907485199 * fSlow29); + double fSlow80 = (fSlow79 + (fConst37 / fSlow1)); + double fSlow81 = (1.0 / fSlow77); + double fSlow82 = (45.951201907485199 * fSlow24); + double fSlow83 = ((fConst37 / fSlow2) + fSlow82); + double fSlow84 = (36.560523561111602 * fSlow29); + double fSlow85 = (fSlow84 + (fConst35 / fSlow1)); + double fSlow86 = (fConst39 * (((fSlow42 * fSlow6) * fSlow43) * fSlow11)); + double fSlow87 = ((78.986541696685876 * fSlow7) + -11.283791670955125); + double fSlow88 = (fConst41 * (((fSlow87 * fSlow21) * fSlow8) * fSlow11)); + double fSlow89 = ((3.5 * fSlow58) + -13.540550005146152); + double fSlow90 = (fConst42 * (((fSlow89 * fSlow6) * fSlow9) * fSlow11)); + double fSlow91 = ((2.333333333333333 * (fSlow60 * fSlow7)) - (1.5 * fSlow35)); + double fSlow92 = (0.75 * fSlow91); + double fSlow93 = (fConst42 * (((fSlow89 * fSlow21) * fSlow6) * fSlow9)); + double fSlow94 = (fConst43 * ((fSlow40 * fSlow87) * fSlow8)); + double fSlow95 = (fConst39 * ((fSlow65 * fSlow6) * fSlow43)); + double fSlow96 = (1.0 - (2.0 * ((1.0 - fSlow64) * fSlow39))); + double fSlow97 = (fConst44 * (fSlow96 * fSlow69)); + double fSlow98 = pow(fSlow8, 2.5); + double fSlow99 = (fConst45 * (((1.0 - (4.0 * ((1.0 - fSlow67) * fSlow39))) * fSlow98) * fSlow11)); + double fSlow100 = ((fConst47 / fSlow2) + 1.0); + double fSlow101 = (fConst46 / (fSlow100 * fSlow2)); + double fSlow102 = (1.0 / ((fConst47 / fSlow1) + 1.0)); + double fSlow103 = (1.0 / (((fConst48 / fSlow1) + (14.272480513280099 * fSlow29)) + 1.0)); + double fSlow104 = (((fConst48 / fSlow2) + (14.272480513280099 * fSlow24)) + 1.0); + double fSlow105 = (1.0 / (((fConst49 / fSlow1) + (18.1563153134523 * fSlow29)) + 1.0)); + double fSlow106 = (((fConst49 / fSlow2) + (18.1563153134523 * fSlow24)) + 1.0); + double fSlow107 = (((fSlow106 * fSlow0) * fSlow1) / fSlow2); + double fSlow108 = (72.6252612538092 * fSlow29); + double fSlow109 = (fSlow108 + (fConst50 / fSlow1)); + double fSlow110 = (1.0 / fSlow106); + double fSlow111 = (72.6252612538092 * fSlow24); + double fSlow112 = ((fConst50 / fSlow2) + fSlow111); + double fSlow113 = (57.089922053120397 * fSlow29); + double fSlow114 = (fSlow113 + (fConst51 / fSlow1)); + double fSlow115 = (1.0 / fSlow104); + double fSlow116 = (57.089922053120397 * fSlow24); + double fSlow117 = ((fConst51 / fSlow2) + fSlow116); + double fSlow118 = (fConst46 / fSlow1); + double fSlow119 = (fConst53 * (((fSlow68 * fSlow6) * fSlow69) * fSlow11)); + double fSlow120 = ((284.35155010806915 * fSlow7) + -31.594616678674353); + double fSlow121 = (fConst54 * (((fSlow42 * fSlow120) * fSlow43) * fSlow11)); + double fSlow122 = ((4.5 * fSlow87) + -67.702750025730751); + double fSlow123 = (fConst56 * ((((fSlow122 * fSlow21) * fSlow6) * fSlow8) * fSlow11)); + double fSlow124 = ((3.0 * (fSlow89 * fSlow7)) - (2.5 * fSlow58)); + double fSlow125 = (fConst57 * ((fSlow124 * fSlow9) * fSlow11)); + double fSlow126 = (0.66332495807108005 * (((2.25 * fSlow91) - (1.3333333333333333 * fSlow60)) * fSlow6)); + double fSlow127 = (fConst57 * ((fSlow124 * fSlow21) * fSlow9)); + double fSlow128 = (fConst58 * (((fSlow40 * fSlow122) * fSlow6) * fSlow8)); + double fSlow129 = (fConst54 * (((fSlow64 * fSlow120) * fSlow21) * fSlow43)); + double fSlow130 = (fConst59 * ((fSlow96 * fSlow6) * fSlow69)); + double fSlow131 = (fConst45 * ((((2.0 * fSlow96) - fSlow64) * fSlow21) * fSlow98)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp1)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp1); + fRec5[0] = (fRec5[1] + fRec4[1]); + fRec4[0] = (fSlow17 * ((fSlow18 * fTemp0) - (fSlow19 * fRec5[0]))); + fRec3[0] = (fRec4[0] + fRec3[1]); + double fTemp2 = (fSlow3 * fTemp0); + double fTemp3 = ((fSlow15 * (fRec3[0] - fRec4[0])) + (fRec4[0] + fTemp2)); + double fTemp4 = (fSlow12 * fTemp3); + fRec2[0] = max((fRec2[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec2[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (fSlow20 * fTemp3); + fRec6[0] = max((fRec6[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec6[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (fSlow22 * fTemp3); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec7[0]); + output3[i] = FAUSTFLOAT(fTemp6); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec12[0] = (fRec12[1] + fRec11[1]); + fRec10[0] = (fSlow30 * ((fSlow31 * fTemp0) - ((fSlow33 * fRec11[0]) + (fSlow32 * fRec12[0])))); + fRec9[0] = (fRec10[0] + fRec9[1]); + double fTemp7 = (fRec9[0] - fRec10[0]); + fVec0[0] = fTemp7; + fRec13[0] = (fRec13[1] + fVec0[1]); + double fTemp8 = ((fSlow26 * ((fSlow28 * fTemp7) + (fSlow27 * fRec13[0]))) + (fRec10[0] + fTemp2)); + double fTemp9 = (fSlow23 * fTemp8); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph4 = FAUSTFLOAT(fRec8[0]); + output4[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (fSlow34 * fTemp8); + fRec14[0] = max((fRec14[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph5 = FAUSTFLOAT(fRec14[0]); + output5[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (fSlow36 * fTemp8); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph6 = FAUSTFLOAT(fRec15[0]); + output6[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (fSlow38 * fTemp8); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph7 = FAUSTFLOAT(fRec16[0]); + output7[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (fSlow41 * fTemp8); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph8 = FAUSTFLOAT(fRec17[0]); + output8[i] = FAUSTFLOAT(fTemp13); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec21[0] = (fSlow48 * ((fSlow50 * fTemp0) - ((fSlow52 * fRec22[0]) + (fSlow51 * fRec23[0])))); + fRec24[0] = (fRec21[0] + fRec24[1]); + double fTemp14 = (fRec24[0] - fRec21[0]); + fVec1[0] = fTemp14; + fRec25[0] = (fRec25[1] + fVec1[1]); + fRec26[0] = (fRec26[1] + fRec20[1]); + fRec20[0] = (fSlow47 * ((fSlow45 * (fRec21[0] + (fSlow53 * ((fSlow55 * fTemp14) + (fSlow54 * fRec25[0]))))) - (fSlow56 * fRec26[0]))); + fRec19[0] = (fRec20[0] + fRec19[1]); + double fTemp15 = ((fSlow46 * (fRec19[0] - fRec20[0])) + (fRec20[0] + fTemp2)); + double fTemp16 = (fSlow44 * fTemp15); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph9 = FAUSTFLOAT(fRec18[0]); + output9[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (fSlow57 * fTemp15); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph10 = FAUSTFLOAT(fRec27[0]); + output10[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (fSlow59 * fTemp15); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph11 = FAUSTFLOAT(fRec28[0]); + output11[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (fSlow61 * fTemp15); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph12 = FAUSTFLOAT(fRec29[0]); + output12[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (fSlow62 * fTemp15); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph13 = FAUSTFLOAT(fRec30[0]); + output13[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (fSlow63 * fTemp15); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph14 = FAUSTFLOAT(fRec31[0]); + output14[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (fSlow66 * fTemp15); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph15 = FAUSTFLOAT(fRec32[0]); + output15[i] = FAUSTFLOAT(fTemp22); + fRec37[0] = (fRec37[1] + fRec36[1]); + fRec38[0] = (fRec38[1] + fRec37[1]); + fRec36[0] = (fSlow76 * ((fSlow78 * fTemp0) - ((fSlow80 * fRec37[0]) + (fSlow79 * fRec38[0])))); + fRec39[0] = (fRec36[0] + fRec39[1]); + double fTemp23 = (fRec39[0] - fRec36[0]); + fVec2[0] = fTemp23; + fRec40[0] = (fRec40[1] + fVec2[1]); + fRec41[0] = (fRec41[1] + fRec35[1]); + fRec42[0] = (fRec42[1] + fRec41[1]); + fRec35[0] = (fSlow75 * ((fSlow71 * (fRec36[0] + (fSlow81 * ((fSlow83 * fTemp23) + (fSlow82 * fRec40[0]))))) - ((fSlow85 * fRec41[0]) + (fSlow84 * fRec42[0])))); + fRec34[0] = (fRec35[0] + fRec34[1]); + double fTemp24 = (fRec34[0] - fRec35[0]); + fVec3[0] = fTemp24; + fRec43[0] = (fRec43[1] + fVec3[1]); + double fTemp25 = ((fSlow72 * ((fSlow74 * fTemp24) + (fSlow73 * fRec43[0]))) + (fRec35[0] + fTemp2)); + double fTemp26 = (fSlow70 * fTemp25); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph16 = FAUSTFLOAT(fRec33[0]); + output16[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (fSlow86 * fTemp25); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph17 = FAUSTFLOAT(fRec44[0]); + output17[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (fSlow88 * fTemp25); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph18 = FAUSTFLOAT(fRec45[0]); + output18[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (fSlow90 * fTemp25); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph19 = FAUSTFLOAT(fRec46[0]); + output19[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (fSlow92 * fTemp25); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph20 = FAUSTFLOAT(fRec47[0]); + output20[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (fSlow93 * fTemp25); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph21 = FAUSTFLOAT(fRec48[0]); + output21[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (fSlow94 * fTemp25); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph22 = FAUSTFLOAT(fRec49[0]); + output22[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (fSlow95 * fTemp25); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph23 = FAUSTFLOAT(fRec50[0]); + output23[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (fSlow97 * fTemp25); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph24 = FAUSTFLOAT(fRec51[0]); + output24[i] = FAUSTFLOAT(fTemp34); + fRec57[0] = (fRec57[1] + fRec56[1]); + fRec58[0] = (fRec58[1] + fRec57[1]); + fRec56[0] = (fSlow105 * ((fSlow107 * fTemp0) - ((fSlow109 * fRec57[0]) + (fSlow108 * fRec58[0])))); + fRec59[0] = (fRec56[0] + fRec59[1]); + double fTemp35 = (fRec59[0] - fRec56[0]); + fVec4[0] = fTemp35; + fRec60[0] = (fRec60[1] + fVec4[1]); + fRec61[0] = (fRec61[1] + fRec55[1]); + fRec62[0] = (fRec62[1] + fRec61[1]); + fRec55[0] = (fSlow103 * ((fSlow104 * (fRec56[0] + (fSlow110 * ((fSlow112 * fTemp35) + (fSlow111 * fRec60[0]))))) - ((fSlow114 * fRec61[0]) + (fSlow113 * fRec62[0])))); + fRec63[0] = (fRec55[0] + fRec63[1]); + double fTemp36 = (fRec63[0] - fRec55[0]); + fVec5[0] = fTemp36; + fRec64[0] = (fRec64[1] + fVec5[1]); + fRec65[0] = (fRec65[1] + fRec54[1]); + fRec54[0] = (fSlow102 * ((fSlow100 * (fRec55[0] + (fSlow115 * ((fSlow117 * fTemp36) + (fSlow116 * fRec64[0]))))) - (fSlow118 * fRec65[0]))); + fRec53[0] = (fRec54[0] + fRec53[1]); + double fTemp37 = ((fSlow101 * (fRec53[0] - fRec54[0])) + (fRec54[0] + fTemp2)); + double fTemp38 = (fSlow99 * fTemp37); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph25 = FAUSTFLOAT(fRec52[0]); + output25[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (fSlow119 * fTemp37); + fRec66[0] = max((fRec66[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph26 = FAUSTFLOAT(fRec66[0]); + output26[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (fSlow121 * fTemp37); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph27 = FAUSTFLOAT(fRec67[0]); + output27[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (fSlow123 * fTemp37); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph28 = FAUSTFLOAT(fRec68[0]); + output28[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (fSlow125 * fTemp37); + fRec69[0] = max((fRec69[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph29 = FAUSTFLOAT(fRec69[0]); + output29[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (fSlow126 * fTemp37); + fRec70[0] = max((fRec70[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph30 = FAUSTFLOAT(fRec70[0]); + output30[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (fSlow127 * fTemp37); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph31 = FAUSTFLOAT(fRec71[0]); + output31[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (fSlow128 * fTemp37); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph32 = FAUSTFLOAT(fRec72[0]); + output32[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (fSlow129 * fTemp37); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph33 = FAUSTFLOAT(fRec73[0]); + output33[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (fSlow130 * fTemp37); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph34 = FAUSTFLOAT(fRec74[0]); + output34[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (fSlow131 * fTemp37); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph35 = FAUSTFLOAT(fRec75[0]); + output35[i] = FAUSTFLOAT(fTemp48); + fRec1[1] = fRec1[0]; + fRec0[1] = fRec0[0]; + fRec5[1] = fRec5[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec7[1] = fRec7[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec10[1] = fRec10[0]; + fRec9[1] = fRec9[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec8[1] = fRec8[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec21[1] = fRec21[0]; + fRec24[1] = fRec24[0]; + fVec1[1] = fVec1[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec20[1] = fRec20[0]; + fRec19[1] = fRec19[0]; + fRec18[1] = fRec18[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec36[1] = fRec36[0]; + fRec39[1] = fRec39[0]; + fVec2[1] = fVec2[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec35[1] = fRec35[0]; + fRec34[1] = fRec34[0]; + fVec3[1] = fVec3[0]; + fRec43[1] = fRec43[0]; + fRec33[1] = fRec33[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec57[1] = fRec57[0]; + fRec58[1] = fRec58[0]; + fRec56[1] = fRec56[0]; + fRec59[1] = fRec59[0]; + fVec4[1] = fVec4[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec62[1] = fRec62[0]; + fRec55[1] = fRec55[0]; + fRec63[1] = fRec63[0]; + fVec5[1] = fVec5[0]; + fRec64[1] = fRec64[0]; + fRec65[1] = fRec65[0]; + fRec54[1] = fRec54[0]; + fRec53[1] = fRec53[0]; + fRec52[1] = fRec52[0]; + fRec66[1] = fRec66[0]; + fRec67[1] = fRec67[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec74[1] = fRec74[0]; + fRec75[1] = fRec75[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror1.cpp b/source/HOAUGens/HOAMirror1.cpp new file mode 100644 index 0000000000..8f24d75794 --- /dev/null +++ b/source/HOAUGens/HOAMirror1.cpp @@ -0,0 +1,1141 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror1"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror10.cpp b/source/HOAUGens/HOAMirror10.cpp new file mode 100644 index 0000000000..6a1435db94 --- /dev/null +++ b/source/HOAUGens/HOAMirror10.cpp @@ -0,0 +1,2779 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror10" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror10"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 121; + + } + virtual int getNumOutputs() { + return 121; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + case 100: { + rate = 1; + break; + } + case 101: { + rate = 1; + break; + } + case 102: { + rate = 1; + break; + } + case 103: { + rate = 1; + break; + } + case 104: { + rate = 1; + break; + } + case 105: { + rate = 1; + break; + } + case 106: { + rate = 1; + break; + } + case 107: { + rate = 1; + break; + } + case 108: { + rate = 1; + break; + } + case 109: { + rate = 1; + break; + } + case 110: { + rate = 1; + break; + } + case 111: { + rate = 1; + break; + } + case 112: { + rate = 1; + break; + } + case 113: { + rate = 1; + break; + } + case 114: { + rate = 1; + break; + } + case 115: { + rate = 1; + break; + } + case 116: { + rate = 1; + break; + } + case 117: { + rate = 1; + break; + } + case 118: { + rate = 1; + break; + } + case 119: { + rate = 1; + break; + } + case 120: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* input100 = inputs[100]; + FAUSTFLOAT* input101 = inputs[101]; + FAUSTFLOAT* input102 = inputs[102]; + FAUSTFLOAT* input103 = inputs[103]; + FAUSTFLOAT* input104 = inputs[104]; + FAUSTFLOAT* input105 = inputs[105]; + FAUSTFLOAT* input106 = inputs[106]; + FAUSTFLOAT* input107 = inputs[107]; + FAUSTFLOAT* input108 = inputs[108]; + FAUSTFLOAT* input109 = inputs[109]; + FAUSTFLOAT* input110 = inputs[110]; + FAUSTFLOAT* input111 = inputs[111]; + FAUSTFLOAT* input112 = inputs[112]; + FAUSTFLOAT* input113 = inputs[113]; + FAUSTFLOAT* input114 = inputs[114]; + FAUSTFLOAT* input115 = inputs[115]; + FAUSTFLOAT* input116 = inputs[116]; + FAUSTFLOAT* input117 = inputs[117]; + FAUSTFLOAT* input118 = inputs[118]; + FAUSTFLOAT* input119 = inputs[119]; + FAUSTFLOAT* input120 = inputs[120]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + FAUSTFLOAT* output100 = outputs[100]; + FAUSTFLOAT* output101 = outputs[101]; + FAUSTFLOAT* output102 = outputs[102]; + FAUSTFLOAT* output103 = outputs[103]; + FAUSTFLOAT* output104 = outputs[104]; + FAUSTFLOAT* output105 = outputs[105]; + FAUSTFLOAT* output106 = outputs[106]; + FAUSTFLOAT* output107 = outputs[107]; + FAUSTFLOAT* output108 = outputs[108]; + FAUSTFLOAT* output109 = outputs[109]; + FAUSTFLOAT* output110 = outputs[110]; + FAUSTFLOAT* output111 = outputs[111]; + FAUSTFLOAT* output112 = outputs[112]; + FAUSTFLOAT* output113 = outputs[113]; + FAUSTFLOAT* output114 = outputs[114]; + FAUSTFLOAT* output115 = outputs[115]; + FAUSTFLOAT* output116 = outputs[116]; + FAUSTFLOAT* output117 = outputs[117]; + FAUSTFLOAT* output118 = outputs[118]; + FAUSTFLOAT* output119 = outputs[119]; + FAUSTFLOAT* output120 = outputs[120]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + double fTemp75 = double(input25[i]); + double fTemp76 = (iSlow5?(0.0 - fTemp75):fTemp75); + double fTemp77 = (iSlow6?(0.0 - fTemp76):fTemp76); + output25[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp77):fTemp77)); + double fTemp78 = double(input26[i]); + double fTemp79 = (iSlow7?(0.0 - fTemp78):fTemp78); + double fTemp80 = (iSlow6?(0.0 - fTemp79):fTemp79); + output26[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp80):fTemp80)); + double fTemp81 = double(input27[i]); + double fTemp82 = (iSlow5?(0.0 - fTemp81):fTemp81); + double fTemp83 = (iSlow6?(0.0 - fTemp82):fTemp82); + output27[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp83):fTemp83)); + double fTemp84 = double(input28[i]); + double fTemp85 = (iSlow7?(0.0 - fTemp84):fTemp84); + double fTemp86 = (iSlow6?(0.0 - fTemp85):fTemp85); + output28[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp86):fTemp86)); + double fTemp87 = double(input29[i]); + double fTemp88 = (iSlow5?(0.0 - fTemp87):fTemp87); + double fTemp89 = (iSlow6?(0.0 - fTemp88):fTemp88); + output29[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp89):fTemp89)); + double fTemp90 = double(input30[i]); + double fTemp91 = (iSlow7?(0.0 - fTemp90):fTemp90); + double fTemp92 = (iSlow3?(0.0 - fTemp91):fTemp91); + output30[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp92):fTemp92)); + double fTemp93 = double(input31[i]); + double fTemp94 = (iSlow5?(0.0 - fTemp93):fTemp93); + double fTemp95 = (iSlow3?(0.0 - fTemp94):fTemp94); + output31[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp95):fTemp95)); + double fTemp96 = double(input32[i]); + double fTemp97 = (iSlow7?(0.0 - fTemp96):fTemp96); + double fTemp98 = (iSlow3?(0.0 - fTemp97):fTemp97); + output32[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp98):fTemp98)); + double fTemp99 = double(input33[i]); + double fTemp100 = (iSlow5?(0.0 - fTemp99):fTemp99); + double fTemp101 = (iSlow3?(0.0 - fTemp100):fTemp100); + output33[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp101):fTemp101)); + double fTemp102 = double(input34[i]); + double fTemp103 = (iSlow7?(0.0 - fTemp102):fTemp102); + double fTemp104 = (iSlow3?(0.0 - fTemp103):fTemp103); + output34[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp104):fTemp104)); + double fTemp105 = double(input35[i]); + double fTemp106 = (iSlow5?(0.0 - fTemp105):fTemp105); + double fTemp107 = (iSlow3?(0.0 - fTemp106):fTemp106); + output35[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp107):fTemp107)); + double fTemp108 = double(input36[i]); + double fTemp109 = (iSlow5?(0.0 - fTemp108):fTemp108); + double fTemp110 = (iSlow6?(0.0 - fTemp109):fTemp109); + output36[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp110):fTemp110)); + double fTemp111 = double(input37[i]); + double fTemp112 = (iSlow7?(0.0 - fTemp111):fTemp111); + double fTemp113 = (iSlow6?(0.0 - fTemp112):fTemp112); + output37[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp113):fTemp113)); + double fTemp114 = double(input38[i]); + double fTemp115 = (iSlow5?(0.0 - fTemp114):fTemp114); + double fTemp116 = (iSlow6?(0.0 - fTemp115):fTemp115); + output38[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp116):fTemp116)); + double fTemp117 = double(input39[i]); + double fTemp118 = (iSlow7?(0.0 - fTemp117):fTemp117); + double fTemp119 = (iSlow6?(0.0 - fTemp118):fTemp118); + output39[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp119):fTemp119)); + double fTemp120 = double(input40[i]); + double fTemp121 = (iSlow5?(0.0 - fTemp120):fTemp120); + double fTemp122 = (iSlow6?(0.0 - fTemp121):fTemp121); + output40[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp122):fTemp122)); + double fTemp123 = double(input41[i]); + double fTemp124 = (iSlow7?(0.0 - fTemp123):fTemp123); + double fTemp125 = (iSlow6?(0.0 - fTemp124):fTemp124); + output41[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp125):fTemp125)); + double fTemp126 = double(input42[i]); + double fTemp127 = (iSlow5?(0.0 - fTemp126):fTemp126); + double fTemp128 = (iSlow3?(0.0 - fTemp127):fTemp127); + output42[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp128):fTemp128)); + double fTemp129 = double(input43[i]); + double fTemp130 = (iSlow7?(0.0 - fTemp129):fTemp129); + double fTemp131 = (iSlow3?(0.0 - fTemp130):fTemp130); + output43[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp131):fTemp131)); + double fTemp132 = double(input44[i]); + double fTemp133 = (iSlow5?(0.0 - fTemp132):fTemp132); + double fTemp134 = (iSlow3?(0.0 - fTemp133):fTemp133); + output44[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp134):fTemp134)); + double fTemp135 = double(input45[i]); + double fTemp136 = (iSlow7?(0.0 - fTemp135):fTemp135); + double fTemp137 = (iSlow3?(0.0 - fTemp136):fTemp136); + output45[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp137):fTemp137)); + double fTemp138 = double(input46[i]); + double fTemp139 = (iSlow5?(0.0 - fTemp138):fTemp138); + double fTemp140 = (iSlow3?(0.0 - fTemp139):fTemp139); + output46[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp140):fTemp140)); + double fTemp141 = double(input47[i]); + double fTemp142 = (iSlow7?(0.0 - fTemp141):fTemp141); + double fTemp143 = (iSlow3?(0.0 - fTemp142):fTemp142); + output47[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp143):fTemp143)); + double fTemp144 = double(input48[i]); + double fTemp145 = (iSlow5?(0.0 - fTemp144):fTemp144); + double fTemp146 = (iSlow3?(0.0 - fTemp145):fTemp145); + output48[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp146):fTemp146)); + double fTemp147 = double(input49[i]); + double fTemp148 = (iSlow5?(0.0 - fTemp147):fTemp147); + double fTemp149 = (iSlow6?(0.0 - fTemp148):fTemp148); + output49[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp149):fTemp149)); + double fTemp150 = double(input50[i]); + double fTemp151 = (iSlow7?(0.0 - fTemp150):fTemp150); + double fTemp152 = (iSlow6?(0.0 - fTemp151):fTemp151); + output50[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp152):fTemp152)); + double fTemp153 = double(input51[i]); + double fTemp154 = (iSlow5?(0.0 - fTemp153):fTemp153); + double fTemp155 = (iSlow6?(0.0 - fTemp154):fTemp154); + output51[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp155):fTemp155)); + double fTemp156 = double(input52[i]); + double fTemp157 = (iSlow7?(0.0 - fTemp156):fTemp156); + double fTemp158 = (iSlow6?(0.0 - fTemp157):fTemp157); + output52[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp158):fTemp158)); + double fTemp159 = double(input53[i]); + double fTemp160 = (iSlow5?(0.0 - fTemp159):fTemp159); + double fTemp161 = (iSlow6?(0.0 - fTemp160):fTemp160); + output53[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp161):fTemp161)); + double fTemp162 = double(input54[i]); + double fTemp163 = (iSlow7?(0.0 - fTemp162):fTemp162); + double fTemp164 = (iSlow6?(0.0 - fTemp163):fTemp163); + output54[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp164):fTemp164)); + double fTemp165 = double(input55[i]); + double fTemp166 = (iSlow5?(0.0 - fTemp165):fTemp165); + double fTemp167 = (iSlow6?(0.0 - fTemp166):fTemp166); + output55[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp167):fTemp167)); + double fTemp168 = double(input56[i]); + double fTemp169 = (iSlow7?(0.0 - fTemp168):fTemp168); + double fTemp170 = (iSlow3?(0.0 - fTemp169):fTemp169); + output56[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp170):fTemp170)); + double fTemp171 = double(input57[i]); + double fTemp172 = (iSlow5?(0.0 - fTemp171):fTemp171); + double fTemp173 = (iSlow3?(0.0 - fTemp172):fTemp172); + output57[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp173):fTemp173)); + double fTemp174 = double(input58[i]); + double fTemp175 = (iSlow7?(0.0 - fTemp174):fTemp174); + double fTemp176 = (iSlow3?(0.0 - fTemp175):fTemp175); + output58[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp176):fTemp176)); + double fTemp177 = double(input59[i]); + double fTemp178 = (iSlow5?(0.0 - fTemp177):fTemp177); + double fTemp179 = (iSlow3?(0.0 - fTemp178):fTemp178); + output59[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp179):fTemp179)); + double fTemp180 = double(input60[i]); + double fTemp181 = (iSlow7?(0.0 - fTemp180):fTemp180); + double fTemp182 = (iSlow3?(0.0 - fTemp181):fTemp181); + output60[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp182):fTemp182)); + double fTemp183 = double(input61[i]); + double fTemp184 = (iSlow5?(0.0 - fTemp183):fTemp183); + double fTemp185 = (iSlow3?(0.0 - fTemp184):fTemp184); + output61[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp185):fTemp185)); + double fTemp186 = double(input62[i]); + double fTemp187 = (iSlow7?(0.0 - fTemp186):fTemp186); + double fTemp188 = (iSlow3?(0.0 - fTemp187):fTemp187); + output62[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp188):fTemp188)); + double fTemp189 = double(input63[i]); + double fTemp190 = (iSlow5?(0.0 - fTemp189):fTemp189); + double fTemp191 = (iSlow3?(0.0 - fTemp190):fTemp190); + output63[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp191):fTemp191)); + double fTemp192 = double(input64[i]); + double fTemp193 = (iSlow5?(0.0 - fTemp192):fTemp192); + double fTemp194 = (iSlow6?(0.0 - fTemp193):fTemp193); + output64[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp194):fTemp194)); + double fTemp195 = double(input65[i]); + double fTemp196 = (iSlow7?(0.0 - fTemp195):fTemp195); + double fTemp197 = (iSlow6?(0.0 - fTemp196):fTemp196); + output65[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp197):fTemp197)); + double fTemp198 = double(input66[i]); + double fTemp199 = (iSlow5?(0.0 - fTemp198):fTemp198); + double fTemp200 = (iSlow6?(0.0 - fTemp199):fTemp199); + output66[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp200):fTemp200)); + double fTemp201 = double(input67[i]); + double fTemp202 = (iSlow7?(0.0 - fTemp201):fTemp201); + double fTemp203 = (iSlow6?(0.0 - fTemp202):fTemp202); + output67[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp203):fTemp203)); + double fTemp204 = double(input68[i]); + double fTemp205 = (iSlow5?(0.0 - fTemp204):fTemp204); + double fTemp206 = (iSlow6?(0.0 - fTemp205):fTemp205); + output68[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp206):fTemp206)); + double fTemp207 = double(input69[i]); + double fTemp208 = (iSlow7?(0.0 - fTemp207):fTemp207); + double fTemp209 = (iSlow6?(0.0 - fTemp208):fTemp208); + output69[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp209):fTemp209)); + double fTemp210 = double(input70[i]); + double fTemp211 = (iSlow5?(0.0 - fTemp210):fTemp210); + double fTemp212 = (iSlow6?(0.0 - fTemp211):fTemp211); + output70[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp212):fTemp212)); + double fTemp213 = double(input71[i]); + double fTemp214 = (iSlow7?(0.0 - fTemp213):fTemp213); + double fTemp215 = (iSlow6?(0.0 - fTemp214):fTemp214); + output71[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp215):fTemp215)); + double fTemp216 = double(input72[i]); + double fTemp217 = (iSlow5?(0.0 - fTemp216):fTemp216); + double fTemp218 = (iSlow3?(0.0 - fTemp217):fTemp217); + output72[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp218):fTemp218)); + double fTemp219 = double(input73[i]); + double fTemp220 = (iSlow7?(0.0 - fTemp219):fTemp219); + double fTemp221 = (iSlow3?(0.0 - fTemp220):fTemp220); + output73[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp221):fTemp221)); + double fTemp222 = double(input74[i]); + double fTemp223 = (iSlow5?(0.0 - fTemp222):fTemp222); + double fTemp224 = (iSlow3?(0.0 - fTemp223):fTemp223); + output74[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp224):fTemp224)); + double fTemp225 = double(input75[i]); + double fTemp226 = (iSlow7?(0.0 - fTemp225):fTemp225); + double fTemp227 = (iSlow3?(0.0 - fTemp226):fTemp226); + output75[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp227):fTemp227)); + double fTemp228 = double(input76[i]); + double fTemp229 = (iSlow5?(0.0 - fTemp228):fTemp228); + double fTemp230 = (iSlow3?(0.0 - fTemp229):fTemp229); + output76[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp230):fTemp230)); + double fTemp231 = double(input77[i]); + double fTemp232 = (iSlow7?(0.0 - fTemp231):fTemp231); + double fTemp233 = (iSlow3?(0.0 - fTemp232):fTemp232); + output77[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp233):fTemp233)); + double fTemp234 = double(input78[i]); + double fTemp235 = (iSlow5?(0.0 - fTemp234):fTemp234); + double fTemp236 = (iSlow3?(0.0 - fTemp235):fTemp235); + output78[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp236):fTemp236)); + double fTemp237 = double(input79[i]); + double fTemp238 = (iSlow7?(0.0 - fTemp237):fTemp237); + double fTemp239 = (iSlow3?(0.0 - fTemp238):fTemp238); + output79[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp239):fTemp239)); + double fTemp240 = double(input80[i]); + double fTemp241 = (iSlow5?(0.0 - fTemp240):fTemp240); + double fTemp242 = (iSlow3?(0.0 - fTemp241):fTemp241); + output80[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp242):fTemp242)); + double fTemp243 = double(input81[i]); + double fTemp244 = (iSlow5?(0.0 - fTemp243):fTemp243); + double fTemp245 = (iSlow6?(0.0 - fTemp244):fTemp244); + output81[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp245):fTemp245)); + double fTemp246 = double(input82[i]); + double fTemp247 = (iSlow7?(0.0 - fTemp246):fTemp246); + double fTemp248 = (iSlow6?(0.0 - fTemp247):fTemp247); + output82[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp248):fTemp248)); + double fTemp249 = double(input83[i]); + double fTemp250 = (iSlow5?(0.0 - fTemp249):fTemp249); + double fTemp251 = (iSlow6?(0.0 - fTemp250):fTemp250); + output83[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp251):fTemp251)); + double fTemp252 = double(input84[i]); + double fTemp253 = (iSlow7?(0.0 - fTemp252):fTemp252); + double fTemp254 = (iSlow6?(0.0 - fTemp253):fTemp253); + output84[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp254):fTemp254)); + double fTemp255 = double(input85[i]); + double fTemp256 = (iSlow5?(0.0 - fTemp255):fTemp255); + double fTemp257 = (iSlow6?(0.0 - fTemp256):fTemp256); + output85[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp257):fTemp257)); + double fTemp258 = double(input86[i]); + double fTemp259 = (iSlow7?(0.0 - fTemp258):fTemp258); + double fTemp260 = (iSlow6?(0.0 - fTemp259):fTemp259); + output86[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp260):fTemp260)); + double fTemp261 = double(input87[i]); + double fTemp262 = (iSlow5?(0.0 - fTemp261):fTemp261); + double fTemp263 = (iSlow6?(0.0 - fTemp262):fTemp262); + output87[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp263):fTemp263)); + double fTemp264 = double(input88[i]); + double fTemp265 = (iSlow7?(0.0 - fTemp264):fTemp264); + double fTemp266 = (iSlow6?(0.0 - fTemp265):fTemp265); + output88[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp266):fTemp266)); + double fTemp267 = double(input89[i]); + double fTemp268 = (iSlow5?(0.0 - fTemp267):fTemp267); + double fTemp269 = (iSlow6?(0.0 - fTemp268):fTemp268); + output89[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp269):fTemp269)); + double fTemp270 = double(input90[i]); + double fTemp271 = (iSlow7?(0.0 - fTemp270):fTemp270); + double fTemp272 = (iSlow3?(0.0 - fTemp271):fTemp271); + output90[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp272):fTemp272)); + double fTemp273 = double(input91[i]); + double fTemp274 = (iSlow5?(0.0 - fTemp273):fTemp273); + double fTemp275 = (iSlow3?(0.0 - fTemp274):fTemp274); + output91[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp275):fTemp275)); + double fTemp276 = double(input92[i]); + double fTemp277 = (iSlow7?(0.0 - fTemp276):fTemp276); + double fTemp278 = (iSlow3?(0.0 - fTemp277):fTemp277); + output92[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp278):fTemp278)); + double fTemp279 = double(input93[i]); + double fTemp280 = (iSlow5?(0.0 - fTemp279):fTemp279); + double fTemp281 = (iSlow3?(0.0 - fTemp280):fTemp280); + output93[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp281):fTemp281)); + double fTemp282 = double(input94[i]); + double fTemp283 = (iSlow7?(0.0 - fTemp282):fTemp282); + double fTemp284 = (iSlow3?(0.0 - fTemp283):fTemp283); + output94[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp284):fTemp284)); + double fTemp285 = double(input95[i]); + double fTemp286 = (iSlow5?(0.0 - fTemp285):fTemp285); + double fTemp287 = (iSlow3?(0.0 - fTemp286):fTemp286); + output95[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp287):fTemp287)); + double fTemp288 = double(input96[i]); + double fTemp289 = (iSlow7?(0.0 - fTemp288):fTemp288); + double fTemp290 = (iSlow3?(0.0 - fTemp289):fTemp289); + output96[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp290):fTemp290)); + double fTemp291 = double(input97[i]); + double fTemp292 = (iSlow5?(0.0 - fTemp291):fTemp291); + double fTemp293 = (iSlow3?(0.0 - fTemp292):fTemp292); + output97[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp293):fTemp293)); + double fTemp294 = double(input98[i]); + double fTemp295 = (iSlow7?(0.0 - fTemp294):fTemp294); + double fTemp296 = (iSlow3?(0.0 - fTemp295):fTemp295); + output98[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp296):fTemp296)); + double fTemp297 = double(input99[i]); + double fTemp298 = (iSlow5?(0.0 - fTemp297):fTemp297); + double fTemp299 = (iSlow3?(0.0 - fTemp298):fTemp298); + output99[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp299):fTemp299)); + double fTemp300 = double(input100[i]); + double fTemp301 = (iSlow5?(0.0 - fTemp300):fTemp300); + double fTemp302 = (iSlow6?(0.0 - fTemp301):fTemp301); + output100[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp302):fTemp302)); + double fTemp303 = double(input101[i]); + double fTemp304 = (iSlow7?(0.0 - fTemp303):fTemp303); + double fTemp305 = (iSlow6?(0.0 - fTemp304):fTemp304); + output101[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp305):fTemp305)); + double fTemp306 = double(input102[i]); + double fTemp307 = (iSlow5?(0.0 - fTemp306):fTemp306); + double fTemp308 = (iSlow6?(0.0 - fTemp307):fTemp307); + output102[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp308):fTemp308)); + double fTemp309 = double(input103[i]); + double fTemp310 = (iSlow7?(0.0 - fTemp309):fTemp309); + double fTemp311 = (iSlow6?(0.0 - fTemp310):fTemp310); + output103[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp311):fTemp311)); + double fTemp312 = double(input104[i]); + double fTemp313 = (iSlow5?(0.0 - fTemp312):fTemp312); + double fTemp314 = (iSlow6?(0.0 - fTemp313):fTemp313); + output104[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp314):fTemp314)); + double fTemp315 = double(input105[i]); + double fTemp316 = (iSlow7?(0.0 - fTemp315):fTemp315); + double fTemp317 = (iSlow6?(0.0 - fTemp316):fTemp316); + output105[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp317):fTemp317)); + double fTemp318 = double(input106[i]); + double fTemp319 = (iSlow5?(0.0 - fTemp318):fTemp318); + double fTemp320 = (iSlow6?(0.0 - fTemp319):fTemp319); + output106[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp320):fTemp320)); + double fTemp321 = double(input107[i]); + double fTemp322 = (iSlow7?(0.0 - fTemp321):fTemp321); + double fTemp323 = (iSlow6?(0.0 - fTemp322):fTemp322); + output107[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp323):fTemp323)); + double fTemp324 = double(input108[i]); + double fTemp325 = (iSlow5?(0.0 - fTemp324):fTemp324); + double fTemp326 = (iSlow6?(0.0 - fTemp325):fTemp325); + output108[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp326):fTemp326)); + double fTemp327 = double(input109[i]); + double fTemp328 = (iSlow7?(0.0 - fTemp327):fTemp327); + double fTemp329 = (iSlow6?(0.0 - fTemp328):fTemp328); + output109[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp329):fTemp329)); + double fTemp330 = double(input110[i]); + double fTemp331 = (iSlow5?(0.0 - fTemp330):fTemp330); + double fTemp332 = (iSlow3?(0.0 - fTemp331):fTemp331); + output110[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp332):fTemp332)); + double fTemp333 = double(input111[i]); + double fTemp334 = (iSlow7?(0.0 - fTemp333):fTemp333); + double fTemp335 = (iSlow3?(0.0 - fTemp334):fTemp334); + output111[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp335):fTemp335)); + double fTemp336 = double(input112[i]); + double fTemp337 = (iSlow5?(0.0 - fTemp336):fTemp336); + double fTemp338 = (iSlow3?(0.0 - fTemp337):fTemp337); + output112[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp338):fTemp338)); + double fTemp339 = double(input113[i]); + double fTemp340 = (iSlow7?(0.0 - fTemp339):fTemp339); + double fTemp341 = (iSlow3?(0.0 - fTemp340):fTemp340); + output113[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp341):fTemp341)); + double fTemp342 = double(input114[i]); + double fTemp343 = (iSlow5?(0.0 - fTemp342):fTemp342); + double fTemp344 = (iSlow3?(0.0 - fTemp343):fTemp343); + output114[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp344):fTemp344)); + double fTemp345 = double(input115[i]); + double fTemp346 = (iSlow7?(0.0 - fTemp345):fTemp345); + double fTemp347 = (iSlow3?(0.0 - fTemp346):fTemp346); + output115[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp347):fTemp347)); + double fTemp348 = double(input116[i]); + double fTemp349 = (iSlow5?(0.0 - fTemp348):fTemp348); + double fTemp350 = (iSlow3?(0.0 - fTemp349):fTemp349); + output116[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp350):fTemp350)); + double fTemp351 = double(input117[i]); + double fTemp352 = (iSlow7?(0.0 - fTemp351):fTemp351); + double fTemp353 = (iSlow3?(0.0 - fTemp352):fTemp352); + output117[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp353):fTemp353)); + double fTemp354 = double(input118[i]); + double fTemp355 = (iSlow5?(0.0 - fTemp354):fTemp354); + double fTemp356 = (iSlow3?(0.0 - fTemp355):fTemp355); + output118[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp356):fTemp356)); + double fTemp357 = double(input119[i]); + double fTemp358 = (iSlow7?(0.0 - fTemp357):fTemp357); + double fTemp359 = (iSlow3?(0.0 - fTemp358):fTemp358); + output119[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp359):fTemp359)); + double fTemp360 = double(input120[i]); + double fTemp361 = (iSlow5?(0.0 - fTemp360):fTemp360); + double fTemp362 = (iSlow3?(0.0 - fTemp361):fTemp361); + output120[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp362):fTemp362)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror2.cpp b/source/HOAUGens/HOAMirror2.cpp new file mode 100644 index 0000000000..8c6f4e2046 --- /dev/null +++ b/source/HOAUGens/HOAMirror2.cpp @@ -0,0 +1,1211 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror2"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror3.cpp b/source/HOAUGens/HOAMirror3.cpp new file mode 100644 index 0000000000..556142aced --- /dev/null +++ b/source/HOAUGens/HOAMirror3.cpp @@ -0,0 +1,1309 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror3"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror4.cpp b/source/HOAUGens/HOAMirror4.cpp new file mode 100644 index 0000000000..89aa840d87 --- /dev/null +++ b/source/HOAUGens/HOAMirror4.cpp @@ -0,0 +1,1435 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror4" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror4"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror5.cpp b/source/HOAUGens/HOAMirror5.cpp new file mode 100644 index 0000000000..0df862b410 --- /dev/null +++ b/source/HOAUGens/HOAMirror5.cpp @@ -0,0 +1,1589 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror5" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror5"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 36; + + } + virtual int getNumOutputs() { + return 36; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + double fTemp75 = double(input25[i]); + double fTemp76 = (iSlow5?(0.0 - fTemp75):fTemp75); + double fTemp77 = (iSlow6?(0.0 - fTemp76):fTemp76); + output25[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp77):fTemp77)); + double fTemp78 = double(input26[i]); + double fTemp79 = (iSlow7?(0.0 - fTemp78):fTemp78); + double fTemp80 = (iSlow6?(0.0 - fTemp79):fTemp79); + output26[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp80):fTemp80)); + double fTemp81 = double(input27[i]); + double fTemp82 = (iSlow5?(0.0 - fTemp81):fTemp81); + double fTemp83 = (iSlow6?(0.0 - fTemp82):fTemp82); + output27[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp83):fTemp83)); + double fTemp84 = double(input28[i]); + double fTemp85 = (iSlow7?(0.0 - fTemp84):fTemp84); + double fTemp86 = (iSlow6?(0.0 - fTemp85):fTemp85); + output28[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp86):fTemp86)); + double fTemp87 = double(input29[i]); + double fTemp88 = (iSlow5?(0.0 - fTemp87):fTemp87); + double fTemp89 = (iSlow6?(0.0 - fTemp88):fTemp88); + output29[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp89):fTemp89)); + double fTemp90 = double(input30[i]); + double fTemp91 = (iSlow7?(0.0 - fTemp90):fTemp90); + double fTemp92 = (iSlow3?(0.0 - fTemp91):fTemp91); + output30[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp92):fTemp92)); + double fTemp93 = double(input31[i]); + double fTemp94 = (iSlow5?(0.0 - fTemp93):fTemp93); + double fTemp95 = (iSlow3?(0.0 - fTemp94):fTemp94); + output31[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp95):fTemp95)); + double fTemp96 = double(input32[i]); + double fTemp97 = (iSlow7?(0.0 - fTemp96):fTemp96); + double fTemp98 = (iSlow3?(0.0 - fTemp97):fTemp97); + output32[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp98):fTemp98)); + double fTemp99 = double(input33[i]); + double fTemp100 = (iSlow5?(0.0 - fTemp99):fTemp99); + double fTemp101 = (iSlow3?(0.0 - fTemp100):fTemp100); + output33[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp101):fTemp101)); + double fTemp102 = double(input34[i]); + double fTemp103 = (iSlow7?(0.0 - fTemp102):fTemp102); + double fTemp104 = (iSlow3?(0.0 - fTemp103):fTemp103); + output34[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp104):fTemp104)); + double fTemp105 = double(input35[i]); + double fTemp106 = (iSlow5?(0.0 - fTemp105):fTemp105); + double fTemp107 = (iSlow3?(0.0 - fTemp106):fTemp106); + output35[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp107):fTemp107)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror6.cpp b/source/HOAUGens/HOAMirror6.cpp new file mode 100644 index 0000000000..0d3f049612 --- /dev/null +++ b/source/HOAUGens/HOAMirror6.cpp @@ -0,0 +1,1771 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror6" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror6"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 49; + + } + virtual int getNumOutputs() { + return 49; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + double fTemp75 = double(input25[i]); + double fTemp76 = (iSlow5?(0.0 - fTemp75):fTemp75); + double fTemp77 = (iSlow6?(0.0 - fTemp76):fTemp76); + output25[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp77):fTemp77)); + double fTemp78 = double(input26[i]); + double fTemp79 = (iSlow7?(0.0 - fTemp78):fTemp78); + double fTemp80 = (iSlow6?(0.0 - fTemp79):fTemp79); + output26[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp80):fTemp80)); + double fTemp81 = double(input27[i]); + double fTemp82 = (iSlow5?(0.0 - fTemp81):fTemp81); + double fTemp83 = (iSlow6?(0.0 - fTemp82):fTemp82); + output27[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp83):fTemp83)); + double fTemp84 = double(input28[i]); + double fTemp85 = (iSlow7?(0.0 - fTemp84):fTemp84); + double fTemp86 = (iSlow6?(0.0 - fTemp85):fTemp85); + output28[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp86):fTemp86)); + double fTemp87 = double(input29[i]); + double fTemp88 = (iSlow5?(0.0 - fTemp87):fTemp87); + double fTemp89 = (iSlow6?(0.0 - fTemp88):fTemp88); + output29[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp89):fTemp89)); + double fTemp90 = double(input30[i]); + double fTemp91 = (iSlow7?(0.0 - fTemp90):fTemp90); + double fTemp92 = (iSlow3?(0.0 - fTemp91):fTemp91); + output30[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp92):fTemp92)); + double fTemp93 = double(input31[i]); + double fTemp94 = (iSlow5?(0.0 - fTemp93):fTemp93); + double fTemp95 = (iSlow3?(0.0 - fTemp94):fTemp94); + output31[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp95):fTemp95)); + double fTemp96 = double(input32[i]); + double fTemp97 = (iSlow7?(0.0 - fTemp96):fTemp96); + double fTemp98 = (iSlow3?(0.0 - fTemp97):fTemp97); + output32[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp98):fTemp98)); + double fTemp99 = double(input33[i]); + double fTemp100 = (iSlow5?(0.0 - fTemp99):fTemp99); + double fTemp101 = (iSlow3?(0.0 - fTemp100):fTemp100); + output33[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp101):fTemp101)); + double fTemp102 = double(input34[i]); + double fTemp103 = (iSlow7?(0.0 - fTemp102):fTemp102); + double fTemp104 = (iSlow3?(0.0 - fTemp103):fTemp103); + output34[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp104):fTemp104)); + double fTemp105 = double(input35[i]); + double fTemp106 = (iSlow5?(0.0 - fTemp105):fTemp105); + double fTemp107 = (iSlow3?(0.0 - fTemp106):fTemp106); + output35[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp107):fTemp107)); + double fTemp108 = double(input36[i]); + double fTemp109 = (iSlow5?(0.0 - fTemp108):fTemp108); + double fTemp110 = (iSlow6?(0.0 - fTemp109):fTemp109); + output36[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp110):fTemp110)); + double fTemp111 = double(input37[i]); + double fTemp112 = (iSlow7?(0.0 - fTemp111):fTemp111); + double fTemp113 = (iSlow6?(0.0 - fTemp112):fTemp112); + output37[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp113):fTemp113)); + double fTemp114 = double(input38[i]); + double fTemp115 = (iSlow5?(0.0 - fTemp114):fTemp114); + double fTemp116 = (iSlow6?(0.0 - fTemp115):fTemp115); + output38[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp116):fTemp116)); + double fTemp117 = double(input39[i]); + double fTemp118 = (iSlow7?(0.0 - fTemp117):fTemp117); + double fTemp119 = (iSlow6?(0.0 - fTemp118):fTemp118); + output39[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp119):fTemp119)); + double fTemp120 = double(input40[i]); + double fTemp121 = (iSlow5?(0.0 - fTemp120):fTemp120); + double fTemp122 = (iSlow6?(0.0 - fTemp121):fTemp121); + output40[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp122):fTemp122)); + double fTemp123 = double(input41[i]); + double fTemp124 = (iSlow7?(0.0 - fTemp123):fTemp123); + double fTemp125 = (iSlow6?(0.0 - fTemp124):fTemp124); + output41[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp125):fTemp125)); + double fTemp126 = double(input42[i]); + double fTemp127 = (iSlow5?(0.0 - fTemp126):fTemp126); + double fTemp128 = (iSlow3?(0.0 - fTemp127):fTemp127); + output42[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp128):fTemp128)); + double fTemp129 = double(input43[i]); + double fTemp130 = (iSlow7?(0.0 - fTemp129):fTemp129); + double fTemp131 = (iSlow3?(0.0 - fTemp130):fTemp130); + output43[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp131):fTemp131)); + double fTemp132 = double(input44[i]); + double fTemp133 = (iSlow5?(0.0 - fTemp132):fTemp132); + double fTemp134 = (iSlow3?(0.0 - fTemp133):fTemp133); + output44[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp134):fTemp134)); + double fTemp135 = double(input45[i]); + double fTemp136 = (iSlow7?(0.0 - fTemp135):fTemp135); + double fTemp137 = (iSlow3?(0.0 - fTemp136):fTemp136); + output45[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp137):fTemp137)); + double fTemp138 = double(input46[i]); + double fTemp139 = (iSlow5?(0.0 - fTemp138):fTemp138); + double fTemp140 = (iSlow3?(0.0 - fTemp139):fTemp139); + output46[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp140):fTemp140)); + double fTemp141 = double(input47[i]); + double fTemp142 = (iSlow7?(0.0 - fTemp141):fTemp141); + double fTemp143 = (iSlow3?(0.0 - fTemp142):fTemp142); + output47[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp143):fTemp143)); + double fTemp144 = double(input48[i]); + double fTemp145 = (iSlow5?(0.0 - fTemp144):fTemp144); + double fTemp146 = (iSlow3?(0.0 - fTemp145):fTemp145); + output48[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp146):fTemp146)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror7.cpp b/source/HOAUGens/HOAMirror7.cpp new file mode 100644 index 0000000000..f2d1918ec3 --- /dev/null +++ b/source/HOAUGens/HOAMirror7.cpp @@ -0,0 +1,1981 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror7" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror7"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 64; + + } + virtual int getNumOutputs() { + return 64; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + double fTemp75 = double(input25[i]); + double fTemp76 = (iSlow5?(0.0 - fTemp75):fTemp75); + double fTemp77 = (iSlow6?(0.0 - fTemp76):fTemp76); + output25[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp77):fTemp77)); + double fTemp78 = double(input26[i]); + double fTemp79 = (iSlow7?(0.0 - fTemp78):fTemp78); + double fTemp80 = (iSlow6?(0.0 - fTemp79):fTemp79); + output26[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp80):fTemp80)); + double fTemp81 = double(input27[i]); + double fTemp82 = (iSlow5?(0.0 - fTemp81):fTemp81); + double fTemp83 = (iSlow6?(0.0 - fTemp82):fTemp82); + output27[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp83):fTemp83)); + double fTemp84 = double(input28[i]); + double fTemp85 = (iSlow7?(0.0 - fTemp84):fTemp84); + double fTemp86 = (iSlow6?(0.0 - fTemp85):fTemp85); + output28[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp86):fTemp86)); + double fTemp87 = double(input29[i]); + double fTemp88 = (iSlow5?(0.0 - fTemp87):fTemp87); + double fTemp89 = (iSlow6?(0.0 - fTemp88):fTemp88); + output29[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp89):fTemp89)); + double fTemp90 = double(input30[i]); + double fTemp91 = (iSlow7?(0.0 - fTemp90):fTemp90); + double fTemp92 = (iSlow3?(0.0 - fTemp91):fTemp91); + output30[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp92):fTemp92)); + double fTemp93 = double(input31[i]); + double fTemp94 = (iSlow5?(0.0 - fTemp93):fTemp93); + double fTemp95 = (iSlow3?(0.0 - fTemp94):fTemp94); + output31[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp95):fTemp95)); + double fTemp96 = double(input32[i]); + double fTemp97 = (iSlow7?(0.0 - fTemp96):fTemp96); + double fTemp98 = (iSlow3?(0.0 - fTemp97):fTemp97); + output32[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp98):fTemp98)); + double fTemp99 = double(input33[i]); + double fTemp100 = (iSlow5?(0.0 - fTemp99):fTemp99); + double fTemp101 = (iSlow3?(0.0 - fTemp100):fTemp100); + output33[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp101):fTemp101)); + double fTemp102 = double(input34[i]); + double fTemp103 = (iSlow7?(0.0 - fTemp102):fTemp102); + double fTemp104 = (iSlow3?(0.0 - fTemp103):fTemp103); + output34[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp104):fTemp104)); + double fTemp105 = double(input35[i]); + double fTemp106 = (iSlow5?(0.0 - fTemp105):fTemp105); + double fTemp107 = (iSlow3?(0.0 - fTemp106):fTemp106); + output35[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp107):fTemp107)); + double fTemp108 = double(input36[i]); + double fTemp109 = (iSlow5?(0.0 - fTemp108):fTemp108); + double fTemp110 = (iSlow6?(0.0 - fTemp109):fTemp109); + output36[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp110):fTemp110)); + double fTemp111 = double(input37[i]); + double fTemp112 = (iSlow7?(0.0 - fTemp111):fTemp111); + double fTemp113 = (iSlow6?(0.0 - fTemp112):fTemp112); + output37[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp113):fTemp113)); + double fTemp114 = double(input38[i]); + double fTemp115 = (iSlow5?(0.0 - fTemp114):fTemp114); + double fTemp116 = (iSlow6?(0.0 - fTemp115):fTemp115); + output38[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp116):fTemp116)); + double fTemp117 = double(input39[i]); + double fTemp118 = (iSlow7?(0.0 - fTemp117):fTemp117); + double fTemp119 = (iSlow6?(0.0 - fTemp118):fTemp118); + output39[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp119):fTemp119)); + double fTemp120 = double(input40[i]); + double fTemp121 = (iSlow5?(0.0 - fTemp120):fTemp120); + double fTemp122 = (iSlow6?(0.0 - fTemp121):fTemp121); + output40[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp122):fTemp122)); + double fTemp123 = double(input41[i]); + double fTemp124 = (iSlow7?(0.0 - fTemp123):fTemp123); + double fTemp125 = (iSlow6?(0.0 - fTemp124):fTemp124); + output41[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp125):fTemp125)); + double fTemp126 = double(input42[i]); + double fTemp127 = (iSlow5?(0.0 - fTemp126):fTemp126); + double fTemp128 = (iSlow3?(0.0 - fTemp127):fTemp127); + output42[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp128):fTemp128)); + double fTemp129 = double(input43[i]); + double fTemp130 = (iSlow7?(0.0 - fTemp129):fTemp129); + double fTemp131 = (iSlow3?(0.0 - fTemp130):fTemp130); + output43[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp131):fTemp131)); + double fTemp132 = double(input44[i]); + double fTemp133 = (iSlow5?(0.0 - fTemp132):fTemp132); + double fTemp134 = (iSlow3?(0.0 - fTemp133):fTemp133); + output44[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp134):fTemp134)); + double fTemp135 = double(input45[i]); + double fTemp136 = (iSlow7?(0.0 - fTemp135):fTemp135); + double fTemp137 = (iSlow3?(0.0 - fTemp136):fTemp136); + output45[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp137):fTemp137)); + double fTemp138 = double(input46[i]); + double fTemp139 = (iSlow5?(0.0 - fTemp138):fTemp138); + double fTemp140 = (iSlow3?(0.0 - fTemp139):fTemp139); + output46[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp140):fTemp140)); + double fTemp141 = double(input47[i]); + double fTemp142 = (iSlow7?(0.0 - fTemp141):fTemp141); + double fTemp143 = (iSlow3?(0.0 - fTemp142):fTemp142); + output47[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp143):fTemp143)); + double fTemp144 = double(input48[i]); + double fTemp145 = (iSlow5?(0.0 - fTemp144):fTemp144); + double fTemp146 = (iSlow3?(0.0 - fTemp145):fTemp145); + output48[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp146):fTemp146)); + double fTemp147 = double(input49[i]); + double fTemp148 = (iSlow5?(0.0 - fTemp147):fTemp147); + double fTemp149 = (iSlow6?(0.0 - fTemp148):fTemp148); + output49[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp149):fTemp149)); + double fTemp150 = double(input50[i]); + double fTemp151 = (iSlow7?(0.0 - fTemp150):fTemp150); + double fTemp152 = (iSlow6?(0.0 - fTemp151):fTemp151); + output50[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp152):fTemp152)); + double fTemp153 = double(input51[i]); + double fTemp154 = (iSlow5?(0.0 - fTemp153):fTemp153); + double fTemp155 = (iSlow6?(0.0 - fTemp154):fTemp154); + output51[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp155):fTemp155)); + double fTemp156 = double(input52[i]); + double fTemp157 = (iSlow7?(0.0 - fTemp156):fTemp156); + double fTemp158 = (iSlow6?(0.0 - fTemp157):fTemp157); + output52[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp158):fTemp158)); + double fTemp159 = double(input53[i]); + double fTemp160 = (iSlow5?(0.0 - fTemp159):fTemp159); + double fTemp161 = (iSlow6?(0.0 - fTemp160):fTemp160); + output53[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp161):fTemp161)); + double fTemp162 = double(input54[i]); + double fTemp163 = (iSlow7?(0.0 - fTemp162):fTemp162); + double fTemp164 = (iSlow6?(0.0 - fTemp163):fTemp163); + output54[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp164):fTemp164)); + double fTemp165 = double(input55[i]); + double fTemp166 = (iSlow5?(0.0 - fTemp165):fTemp165); + double fTemp167 = (iSlow6?(0.0 - fTemp166):fTemp166); + output55[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp167):fTemp167)); + double fTemp168 = double(input56[i]); + double fTemp169 = (iSlow7?(0.0 - fTemp168):fTemp168); + double fTemp170 = (iSlow3?(0.0 - fTemp169):fTemp169); + output56[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp170):fTemp170)); + double fTemp171 = double(input57[i]); + double fTemp172 = (iSlow5?(0.0 - fTemp171):fTemp171); + double fTemp173 = (iSlow3?(0.0 - fTemp172):fTemp172); + output57[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp173):fTemp173)); + double fTemp174 = double(input58[i]); + double fTemp175 = (iSlow7?(0.0 - fTemp174):fTemp174); + double fTemp176 = (iSlow3?(0.0 - fTemp175):fTemp175); + output58[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp176):fTemp176)); + double fTemp177 = double(input59[i]); + double fTemp178 = (iSlow5?(0.0 - fTemp177):fTemp177); + double fTemp179 = (iSlow3?(0.0 - fTemp178):fTemp178); + output59[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp179):fTemp179)); + double fTemp180 = double(input60[i]); + double fTemp181 = (iSlow7?(0.0 - fTemp180):fTemp180); + double fTemp182 = (iSlow3?(0.0 - fTemp181):fTemp181); + output60[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp182):fTemp182)); + double fTemp183 = double(input61[i]); + double fTemp184 = (iSlow5?(0.0 - fTemp183):fTemp183); + double fTemp185 = (iSlow3?(0.0 - fTemp184):fTemp184); + output61[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp185):fTemp185)); + double fTemp186 = double(input62[i]); + double fTemp187 = (iSlow7?(0.0 - fTemp186):fTemp186); + double fTemp188 = (iSlow3?(0.0 - fTemp187):fTemp187); + output62[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp188):fTemp188)); + double fTemp189 = double(input63[i]); + double fTemp190 = (iSlow5?(0.0 - fTemp189):fTemp189); + double fTemp191 = (iSlow3?(0.0 - fTemp190):fTemp190); + output63[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp191):fTemp191)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror8.cpp b/source/HOAUGens/HOAMirror8.cpp new file mode 100644 index 0000000000..bf33a88d6a --- /dev/null +++ b/source/HOAUGens/HOAMirror8.cpp @@ -0,0 +1,2219 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror8" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror8"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 81; + + } + virtual int getNumOutputs() { + return 81; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + double fTemp75 = double(input25[i]); + double fTemp76 = (iSlow5?(0.0 - fTemp75):fTemp75); + double fTemp77 = (iSlow6?(0.0 - fTemp76):fTemp76); + output25[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp77):fTemp77)); + double fTemp78 = double(input26[i]); + double fTemp79 = (iSlow7?(0.0 - fTemp78):fTemp78); + double fTemp80 = (iSlow6?(0.0 - fTemp79):fTemp79); + output26[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp80):fTemp80)); + double fTemp81 = double(input27[i]); + double fTemp82 = (iSlow5?(0.0 - fTemp81):fTemp81); + double fTemp83 = (iSlow6?(0.0 - fTemp82):fTemp82); + output27[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp83):fTemp83)); + double fTemp84 = double(input28[i]); + double fTemp85 = (iSlow7?(0.0 - fTemp84):fTemp84); + double fTemp86 = (iSlow6?(0.0 - fTemp85):fTemp85); + output28[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp86):fTemp86)); + double fTemp87 = double(input29[i]); + double fTemp88 = (iSlow5?(0.0 - fTemp87):fTemp87); + double fTemp89 = (iSlow6?(0.0 - fTemp88):fTemp88); + output29[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp89):fTemp89)); + double fTemp90 = double(input30[i]); + double fTemp91 = (iSlow7?(0.0 - fTemp90):fTemp90); + double fTemp92 = (iSlow3?(0.0 - fTemp91):fTemp91); + output30[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp92):fTemp92)); + double fTemp93 = double(input31[i]); + double fTemp94 = (iSlow5?(0.0 - fTemp93):fTemp93); + double fTemp95 = (iSlow3?(0.0 - fTemp94):fTemp94); + output31[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp95):fTemp95)); + double fTemp96 = double(input32[i]); + double fTemp97 = (iSlow7?(0.0 - fTemp96):fTemp96); + double fTemp98 = (iSlow3?(0.0 - fTemp97):fTemp97); + output32[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp98):fTemp98)); + double fTemp99 = double(input33[i]); + double fTemp100 = (iSlow5?(0.0 - fTemp99):fTemp99); + double fTemp101 = (iSlow3?(0.0 - fTemp100):fTemp100); + output33[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp101):fTemp101)); + double fTemp102 = double(input34[i]); + double fTemp103 = (iSlow7?(0.0 - fTemp102):fTemp102); + double fTemp104 = (iSlow3?(0.0 - fTemp103):fTemp103); + output34[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp104):fTemp104)); + double fTemp105 = double(input35[i]); + double fTemp106 = (iSlow5?(0.0 - fTemp105):fTemp105); + double fTemp107 = (iSlow3?(0.0 - fTemp106):fTemp106); + output35[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp107):fTemp107)); + double fTemp108 = double(input36[i]); + double fTemp109 = (iSlow5?(0.0 - fTemp108):fTemp108); + double fTemp110 = (iSlow6?(0.0 - fTemp109):fTemp109); + output36[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp110):fTemp110)); + double fTemp111 = double(input37[i]); + double fTemp112 = (iSlow7?(0.0 - fTemp111):fTemp111); + double fTemp113 = (iSlow6?(0.0 - fTemp112):fTemp112); + output37[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp113):fTemp113)); + double fTemp114 = double(input38[i]); + double fTemp115 = (iSlow5?(0.0 - fTemp114):fTemp114); + double fTemp116 = (iSlow6?(0.0 - fTemp115):fTemp115); + output38[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp116):fTemp116)); + double fTemp117 = double(input39[i]); + double fTemp118 = (iSlow7?(0.0 - fTemp117):fTemp117); + double fTemp119 = (iSlow6?(0.0 - fTemp118):fTemp118); + output39[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp119):fTemp119)); + double fTemp120 = double(input40[i]); + double fTemp121 = (iSlow5?(0.0 - fTemp120):fTemp120); + double fTemp122 = (iSlow6?(0.0 - fTemp121):fTemp121); + output40[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp122):fTemp122)); + double fTemp123 = double(input41[i]); + double fTemp124 = (iSlow7?(0.0 - fTemp123):fTemp123); + double fTemp125 = (iSlow6?(0.0 - fTemp124):fTemp124); + output41[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp125):fTemp125)); + double fTemp126 = double(input42[i]); + double fTemp127 = (iSlow5?(0.0 - fTemp126):fTemp126); + double fTemp128 = (iSlow3?(0.0 - fTemp127):fTemp127); + output42[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp128):fTemp128)); + double fTemp129 = double(input43[i]); + double fTemp130 = (iSlow7?(0.0 - fTemp129):fTemp129); + double fTemp131 = (iSlow3?(0.0 - fTemp130):fTemp130); + output43[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp131):fTemp131)); + double fTemp132 = double(input44[i]); + double fTemp133 = (iSlow5?(0.0 - fTemp132):fTemp132); + double fTemp134 = (iSlow3?(0.0 - fTemp133):fTemp133); + output44[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp134):fTemp134)); + double fTemp135 = double(input45[i]); + double fTemp136 = (iSlow7?(0.0 - fTemp135):fTemp135); + double fTemp137 = (iSlow3?(0.0 - fTemp136):fTemp136); + output45[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp137):fTemp137)); + double fTemp138 = double(input46[i]); + double fTemp139 = (iSlow5?(0.0 - fTemp138):fTemp138); + double fTemp140 = (iSlow3?(0.0 - fTemp139):fTemp139); + output46[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp140):fTemp140)); + double fTemp141 = double(input47[i]); + double fTemp142 = (iSlow7?(0.0 - fTemp141):fTemp141); + double fTemp143 = (iSlow3?(0.0 - fTemp142):fTemp142); + output47[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp143):fTemp143)); + double fTemp144 = double(input48[i]); + double fTemp145 = (iSlow5?(0.0 - fTemp144):fTemp144); + double fTemp146 = (iSlow3?(0.0 - fTemp145):fTemp145); + output48[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp146):fTemp146)); + double fTemp147 = double(input49[i]); + double fTemp148 = (iSlow5?(0.0 - fTemp147):fTemp147); + double fTemp149 = (iSlow6?(0.0 - fTemp148):fTemp148); + output49[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp149):fTemp149)); + double fTemp150 = double(input50[i]); + double fTemp151 = (iSlow7?(0.0 - fTemp150):fTemp150); + double fTemp152 = (iSlow6?(0.0 - fTemp151):fTemp151); + output50[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp152):fTemp152)); + double fTemp153 = double(input51[i]); + double fTemp154 = (iSlow5?(0.0 - fTemp153):fTemp153); + double fTemp155 = (iSlow6?(0.0 - fTemp154):fTemp154); + output51[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp155):fTemp155)); + double fTemp156 = double(input52[i]); + double fTemp157 = (iSlow7?(0.0 - fTemp156):fTemp156); + double fTemp158 = (iSlow6?(0.0 - fTemp157):fTemp157); + output52[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp158):fTemp158)); + double fTemp159 = double(input53[i]); + double fTemp160 = (iSlow5?(0.0 - fTemp159):fTemp159); + double fTemp161 = (iSlow6?(0.0 - fTemp160):fTemp160); + output53[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp161):fTemp161)); + double fTemp162 = double(input54[i]); + double fTemp163 = (iSlow7?(0.0 - fTemp162):fTemp162); + double fTemp164 = (iSlow6?(0.0 - fTemp163):fTemp163); + output54[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp164):fTemp164)); + double fTemp165 = double(input55[i]); + double fTemp166 = (iSlow5?(0.0 - fTemp165):fTemp165); + double fTemp167 = (iSlow6?(0.0 - fTemp166):fTemp166); + output55[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp167):fTemp167)); + double fTemp168 = double(input56[i]); + double fTemp169 = (iSlow7?(0.0 - fTemp168):fTemp168); + double fTemp170 = (iSlow3?(0.0 - fTemp169):fTemp169); + output56[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp170):fTemp170)); + double fTemp171 = double(input57[i]); + double fTemp172 = (iSlow5?(0.0 - fTemp171):fTemp171); + double fTemp173 = (iSlow3?(0.0 - fTemp172):fTemp172); + output57[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp173):fTemp173)); + double fTemp174 = double(input58[i]); + double fTemp175 = (iSlow7?(0.0 - fTemp174):fTemp174); + double fTemp176 = (iSlow3?(0.0 - fTemp175):fTemp175); + output58[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp176):fTemp176)); + double fTemp177 = double(input59[i]); + double fTemp178 = (iSlow5?(0.0 - fTemp177):fTemp177); + double fTemp179 = (iSlow3?(0.0 - fTemp178):fTemp178); + output59[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp179):fTemp179)); + double fTemp180 = double(input60[i]); + double fTemp181 = (iSlow7?(0.0 - fTemp180):fTemp180); + double fTemp182 = (iSlow3?(0.0 - fTemp181):fTemp181); + output60[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp182):fTemp182)); + double fTemp183 = double(input61[i]); + double fTemp184 = (iSlow5?(0.0 - fTemp183):fTemp183); + double fTemp185 = (iSlow3?(0.0 - fTemp184):fTemp184); + output61[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp185):fTemp185)); + double fTemp186 = double(input62[i]); + double fTemp187 = (iSlow7?(0.0 - fTemp186):fTemp186); + double fTemp188 = (iSlow3?(0.0 - fTemp187):fTemp187); + output62[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp188):fTemp188)); + double fTemp189 = double(input63[i]); + double fTemp190 = (iSlow5?(0.0 - fTemp189):fTemp189); + double fTemp191 = (iSlow3?(0.0 - fTemp190):fTemp190); + output63[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp191):fTemp191)); + double fTemp192 = double(input64[i]); + double fTemp193 = (iSlow5?(0.0 - fTemp192):fTemp192); + double fTemp194 = (iSlow6?(0.0 - fTemp193):fTemp193); + output64[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp194):fTemp194)); + double fTemp195 = double(input65[i]); + double fTemp196 = (iSlow7?(0.0 - fTemp195):fTemp195); + double fTemp197 = (iSlow6?(0.0 - fTemp196):fTemp196); + output65[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp197):fTemp197)); + double fTemp198 = double(input66[i]); + double fTemp199 = (iSlow5?(0.0 - fTemp198):fTemp198); + double fTemp200 = (iSlow6?(0.0 - fTemp199):fTemp199); + output66[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp200):fTemp200)); + double fTemp201 = double(input67[i]); + double fTemp202 = (iSlow7?(0.0 - fTemp201):fTemp201); + double fTemp203 = (iSlow6?(0.0 - fTemp202):fTemp202); + output67[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp203):fTemp203)); + double fTemp204 = double(input68[i]); + double fTemp205 = (iSlow5?(0.0 - fTemp204):fTemp204); + double fTemp206 = (iSlow6?(0.0 - fTemp205):fTemp205); + output68[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp206):fTemp206)); + double fTemp207 = double(input69[i]); + double fTemp208 = (iSlow7?(0.0 - fTemp207):fTemp207); + double fTemp209 = (iSlow6?(0.0 - fTemp208):fTemp208); + output69[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp209):fTemp209)); + double fTemp210 = double(input70[i]); + double fTemp211 = (iSlow5?(0.0 - fTemp210):fTemp210); + double fTemp212 = (iSlow6?(0.0 - fTemp211):fTemp211); + output70[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp212):fTemp212)); + double fTemp213 = double(input71[i]); + double fTemp214 = (iSlow7?(0.0 - fTemp213):fTemp213); + double fTemp215 = (iSlow6?(0.0 - fTemp214):fTemp214); + output71[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp215):fTemp215)); + double fTemp216 = double(input72[i]); + double fTemp217 = (iSlow5?(0.0 - fTemp216):fTemp216); + double fTemp218 = (iSlow3?(0.0 - fTemp217):fTemp217); + output72[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp218):fTemp218)); + double fTemp219 = double(input73[i]); + double fTemp220 = (iSlow7?(0.0 - fTemp219):fTemp219); + double fTemp221 = (iSlow3?(0.0 - fTemp220):fTemp220); + output73[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp221):fTemp221)); + double fTemp222 = double(input74[i]); + double fTemp223 = (iSlow5?(0.0 - fTemp222):fTemp222); + double fTemp224 = (iSlow3?(0.0 - fTemp223):fTemp223); + output74[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp224):fTemp224)); + double fTemp225 = double(input75[i]); + double fTemp226 = (iSlow7?(0.0 - fTemp225):fTemp225); + double fTemp227 = (iSlow3?(0.0 - fTemp226):fTemp226); + output75[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp227):fTemp227)); + double fTemp228 = double(input76[i]); + double fTemp229 = (iSlow5?(0.0 - fTemp228):fTemp228); + double fTemp230 = (iSlow3?(0.0 - fTemp229):fTemp229); + output76[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp230):fTemp230)); + double fTemp231 = double(input77[i]); + double fTemp232 = (iSlow7?(0.0 - fTemp231):fTemp231); + double fTemp233 = (iSlow3?(0.0 - fTemp232):fTemp232); + output77[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp233):fTemp233)); + double fTemp234 = double(input78[i]); + double fTemp235 = (iSlow5?(0.0 - fTemp234):fTemp234); + double fTemp236 = (iSlow3?(0.0 - fTemp235):fTemp235); + output78[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp236):fTemp236)); + double fTemp237 = double(input79[i]); + double fTemp238 = (iSlow7?(0.0 - fTemp237):fTemp237); + double fTemp239 = (iSlow3?(0.0 - fTemp238):fTemp238); + output79[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp239):fTemp239)); + double fTemp240 = double(input80[i]); + double fTemp241 = (iSlow5?(0.0 - fTemp240):fTemp240); + double fTemp242 = (iSlow3?(0.0 - fTemp241):fTemp241); + output80[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp242):fTemp242)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAMirror9.cpp b/source/HOAUGens/HOAMirror9.cpp new file mode 100644 index 0000000000..8c2c88838c --- /dev/null +++ b/source/HOAUGens/HOAMirror9.cpp @@ -0,0 +1,2485 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2015" +license: "GPL" +name: "HOAMirror9" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fCheckbox2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2015"); + m->declare("license", "GPL"); + m->declare("name", "HOAMirror9"); + m->declare("version", "1.0"); + } + + virtual int getNumInputs() { + return 100; + + } + virtual int getNumOutputs() { + return 100; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + case 50: { + rate = 1; + break; + } + case 51: { + rate = 1; + break; + } + case 52: { + rate = 1; + break; + } + case 53: { + rate = 1; + break; + } + case 54: { + rate = 1; + break; + } + case 55: { + rate = 1; + break; + } + case 56: { + rate = 1; + break; + } + case 57: { + rate = 1; + break; + } + case 58: { + rate = 1; + break; + } + case 59: { + rate = 1; + break; + } + case 60: { + rate = 1; + break; + } + case 61: { + rate = 1; + break; + } + case 62: { + rate = 1; + break; + } + case 63: { + rate = 1; + break; + } + case 64: { + rate = 1; + break; + } + case 65: { + rate = 1; + break; + } + case 66: { + rate = 1; + break; + } + case 67: { + rate = 1; + break; + } + case 68: { + rate = 1; + break; + } + case 69: { + rate = 1; + break; + } + case 70: { + rate = 1; + break; + } + case 71: { + rate = 1; + break; + } + case 72: { + rate = 1; + break; + } + case 73: { + rate = 1; + break; + } + case 74: { + rate = 1; + break; + } + case 75: { + rate = 1; + break; + } + case 76: { + rate = 1; + break; + } + case 77: { + rate = 1; + break; + } + case 78: { + rate = 1; + break; + } + case 79: { + rate = 1; + break; + } + case 80: { + rate = 1; + break; + } + case 81: { + rate = 1; + break; + } + case 82: { + rate = 1; + break; + } + case 83: { + rate = 1; + break; + } + case 84: { + rate = 1; + break; + } + case 85: { + rate = 1; + break; + } + case 86: { + rate = 1; + break; + } + case 87: { + rate = 1; + break; + } + case 88: { + rate = 1; + break; + } + case 89: { + rate = 1; + break; + } + case 90: { + rate = 1; + break; + } + case 91: { + rate = 1; + break; + } + case 92: { + rate = 1; + break; + } + case 93: { + rate = 1; + break; + } + case 94: { + rate = 1; + break; + } + case 95: { + rate = 1; + break; + } + case 96: { + rate = 1; + break; + } + case 97: { + rate = 1; + break; + } + case 98: { + rate = 1; + break; + } + case 99: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fCheckbox1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOA scene mirroring"); + ui_interface->addCheckButton("front-back", &fCheckbox0); + ui_interface->addCheckButton("left-right", &fCheckbox1); + ui_interface->addCheckButton("up-down", &fCheckbox2); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* input25 = inputs[25]; + FAUSTFLOAT* input26 = inputs[26]; + FAUSTFLOAT* input27 = inputs[27]; + FAUSTFLOAT* input28 = inputs[28]; + FAUSTFLOAT* input29 = inputs[29]; + FAUSTFLOAT* input30 = inputs[30]; + FAUSTFLOAT* input31 = inputs[31]; + FAUSTFLOAT* input32 = inputs[32]; + FAUSTFLOAT* input33 = inputs[33]; + FAUSTFLOAT* input34 = inputs[34]; + FAUSTFLOAT* input35 = inputs[35]; + FAUSTFLOAT* input36 = inputs[36]; + FAUSTFLOAT* input37 = inputs[37]; + FAUSTFLOAT* input38 = inputs[38]; + FAUSTFLOAT* input39 = inputs[39]; + FAUSTFLOAT* input40 = inputs[40]; + FAUSTFLOAT* input41 = inputs[41]; + FAUSTFLOAT* input42 = inputs[42]; + FAUSTFLOAT* input43 = inputs[43]; + FAUSTFLOAT* input44 = inputs[44]; + FAUSTFLOAT* input45 = inputs[45]; + FAUSTFLOAT* input46 = inputs[46]; + FAUSTFLOAT* input47 = inputs[47]; + FAUSTFLOAT* input48 = inputs[48]; + FAUSTFLOAT* input49 = inputs[49]; + FAUSTFLOAT* input50 = inputs[50]; + FAUSTFLOAT* input51 = inputs[51]; + FAUSTFLOAT* input52 = inputs[52]; + FAUSTFLOAT* input53 = inputs[53]; + FAUSTFLOAT* input54 = inputs[54]; + FAUSTFLOAT* input55 = inputs[55]; + FAUSTFLOAT* input56 = inputs[56]; + FAUSTFLOAT* input57 = inputs[57]; + FAUSTFLOAT* input58 = inputs[58]; + FAUSTFLOAT* input59 = inputs[59]; + FAUSTFLOAT* input60 = inputs[60]; + FAUSTFLOAT* input61 = inputs[61]; + FAUSTFLOAT* input62 = inputs[62]; + FAUSTFLOAT* input63 = inputs[63]; + FAUSTFLOAT* input64 = inputs[64]; + FAUSTFLOAT* input65 = inputs[65]; + FAUSTFLOAT* input66 = inputs[66]; + FAUSTFLOAT* input67 = inputs[67]; + FAUSTFLOAT* input68 = inputs[68]; + FAUSTFLOAT* input69 = inputs[69]; + FAUSTFLOAT* input70 = inputs[70]; + FAUSTFLOAT* input71 = inputs[71]; + FAUSTFLOAT* input72 = inputs[72]; + FAUSTFLOAT* input73 = inputs[73]; + FAUSTFLOAT* input74 = inputs[74]; + FAUSTFLOAT* input75 = inputs[75]; + FAUSTFLOAT* input76 = inputs[76]; + FAUSTFLOAT* input77 = inputs[77]; + FAUSTFLOAT* input78 = inputs[78]; + FAUSTFLOAT* input79 = inputs[79]; + FAUSTFLOAT* input80 = inputs[80]; + FAUSTFLOAT* input81 = inputs[81]; + FAUSTFLOAT* input82 = inputs[82]; + FAUSTFLOAT* input83 = inputs[83]; + FAUSTFLOAT* input84 = inputs[84]; + FAUSTFLOAT* input85 = inputs[85]; + FAUSTFLOAT* input86 = inputs[86]; + FAUSTFLOAT* input87 = inputs[87]; + FAUSTFLOAT* input88 = inputs[88]; + FAUSTFLOAT* input89 = inputs[89]; + FAUSTFLOAT* input90 = inputs[90]; + FAUSTFLOAT* input91 = inputs[91]; + FAUSTFLOAT* input92 = inputs[92]; + FAUSTFLOAT* input93 = inputs[93]; + FAUSTFLOAT* input94 = inputs[94]; + FAUSTFLOAT* input95 = inputs[95]; + FAUSTFLOAT* input96 = inputs[96]; + FAUSTFLOAT* input97 = inputs[97]; + FAUSTFLOAT* input98 = inputs[98]; + FAUSTFLOAT* input99 = inputs[99]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + FAUSTFLOAT* output50 = outputs[50]; + FAUSTFLOAT* output51 = outputs[51]; + FAUSTFLOAT* output52 = outputs[52]; + FAUSTFLOAT* output53 = outputs[53]; + FAUSTFLOAT* output54 = outputs[54]; + FAUSTFLOAT* output55 = outputs[55]; + FAUSTFLOAT* output56 = outputs[56]; + FAUSTFLOAT* output57 = outputs[57]; + FAUSTFLOAT* output58 = outputs[58]; + FAUSTFLOAT* output59 = outputs[59]; + FAUSTFLOAT* output60 = outputs[60]; + FAUSTFLOAT* output61 = outputs[61]; + FAUSTFLOAT* output62 = outputs[62]; + FAUSTFLOAT* output63 = outputs[63]; + FAUSTFLOAT* output64 = outputs[64]; + FAUSTFLOAT* output65 = outputs[65]; + FAUSTFLOAT* output66 = outputs[66]; + FAUSTFLOAT* output67 = outputs[67]; + FAUSTFLOAT* output68 = outputs[68]; + FAUSTFLOAT* output69 = outputs[69]; + FAUSTFLOAT* output70 = outputs[70]; + FAUSTFLOAT* output71 = outputs[71]; + FAUSTFLOAT* output72 = outputs[72]; + FAUSTFLOAT* output73 = outputs[73]; + FAUSTFLOAT* output74 = outputs[74]; + FAUSTFLOAT* output75 = outputs[75]; + FAUSTFLOAT* output76 = outputs[76]; + FAUSTFLOAT* output77 = outputs[77]; + FAUSTFLOAT* output78 = outputs[78]; + FAUSTFLOAT* output79 = outputs[79]; + FAUSTFLOAT* output80 = outputs[80]; + FAUSTFLOAT* output81 = outputs[81]; + FAUSTFLOAT* output82 = outputs[82]; + FAUSTFLOAT* output83 = outputs[83]; + FAUSTFLOAT* output84 = outputs[84]; + FAUSTFLOAT* output85 = outputs[85]; + FAUSTFLOAT* output86 = outputs[86]; + FAUSTFLOAT* output87 = outputs[87]; + FAUSTFLOAT* output88 = outputs[88]; + FAUSTFLOAT* output89 = outputs[89]; + FAUSTFLOAT* output90 = outputs[90]; + FAUSTFLOAT* output91 = outputs[91]; + FAUSTFLOAT* output92 = outputs[92]; + FAUSTFLOAT* output93 = outputs[93]; + FAUSTFLOAT* output94 = outputs[94]; + FAUSTFLOAT* output95 = outputs[95]; + FAUSTFLOAT* output96 = outputs[96]; + FAUSTFLOAT* output97 = outputs[97]; + FAUSTFLOAT* output98 = outputs[98]; + FAUSTFLOAT* output99 = outputs[99]; + int iSlow0 = (double(fCheckbox0) == 1.0); + int iSlow1 = (iSlow0 & 0); + int iSlow2 = (double(fCheckbox1) == 1.0); + int iSlow3 = (iSlow2 & 0); + int iSlow4 = (double(fCheckbox2) == 1.0); + int iSlow5 = (iSlow4 & 0); + int iSlow6 = (iSlow2 & 1); + int iSlow7 = (iSlow4 & 1); + int iSlow8 = (iSlow0 & 1); + for (int i = 0; (i < count); i = (i + 1)) { + double fTemp0 = double(input0[i]); + double fTemp1 = (iSlow5?(0.0 - fTemp0):fTemp0); + double fTemp2 = (iSlow3?(0.0 - fTemp1):fTemp1); + output0[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp2):fTemp2)); + double fTemp3 = double(input1[i]); + double fTemp4 = (iSlow5?(0.0 - fTemp3):fTemp3); + double fTemp5 = (iSlow6?(0.0 - fTemp4):fTemp4); + output1[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp5):fTemp5)); + double fTemp6 = double(input2[i]); + double fTemp7 = (iSlow7?(0.0 - fTemp6):fTemp6); + double fTemp8 = (iSlow3?(0.0 - fTemp7):fTemp7); + output2[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp8):fTemp8)); + double fTemp9 = double(input3[i]); + double fTemp10 = (iSlow5?(0.0 - fTemp9):fTemp9); + double fTemp11 = (iSlow3?(0.0 - fTemp10):fTemp10); + output3[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp11):fTemp11)); + double fTemp12 = double(input4[i]); + double fTemp13 = (iSlow5?(0.0 - fTemp12):fTemp12); + double fTemp14 = (iSlow6?(0.0 - fTemp13):fTemp13); + output4[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp14):fTemp14)); + double fTemp15 = double(input5[i]); + double fTemp16 = (iSlow7?(0.0 - fTemp15):fTemp15); + double fTemp17 = (iSlow6?(0.0 - fTemp16):fTemp16); + output5[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp17):fTemp17)); + double fTemp18 = double(input6[i]); + double fTemp19 = (iSlow5?(0.0 - fTemp18):fTemp18); + double fTemp20 = (iSlow3?(0.0 - fTemp19):fTemp19); + output6[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp20):fTemp20)); + double fTemp21 = double(input7[i]); + double fTemp22 = (iSlow7?(0.0 - fTemp21):fTemp21); + double fTemp23 = (iSlow3?(0.0 - fTemp22):fTemp22); + output7[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp23):fTemp23)); + double fTemp24 = double(input8[i]); + double fTemp25 = (iSlow5?(0.0 - fTemp24):fTemp24); + double fTemp26 = (iSlow3?(0.0 - fTemp25):fTemp25); + output8[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp26):fTemp26)); + double fTemp27 = double(input9[i]); + double fTemp28 = (iSlow5?(0.0 - fTemp27):fTemp27); + double fTemp29 = (iSlow6?(0.0 - fTemp28):fTemp28); + output9[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp29):fTemp29)); + double fTemp30 = double(input10[i]); + double fTemp31 = (iSlow7?(0.0 - fTemp30):fTemp30); + double fTemp32 = (iSlow6?(0.0 - fTemp31):fTemp31); + output10[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp32):fTemp32)); + double fTemp33 = double(input11[i]); + double fTemp34 = (iSlow5?(0.0 - fTemp33):fTemp33); + double fTemp35 = (iSlow6?(0.0 - fTemp34):fTemp34); + output11[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp35):fTemp35)); + double fTemp36 = double(input12[i]); + double fTemp37 = (iSlow7?(0.0 - fTemp36):fTemp36); + double fTemp38 = (iSlow3?(0.0 - fTemp37):fTemp37); + output12[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp38):fTemp38)); + double fTemp39 = double(input13[i]); + double fTemp40 = (iSlow5?(0.0 - fTemp39):fTemp39); + double fTemp41 = (iSlow3?(0.0 - fTemp40):fTemp40); + output13[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp41):fTemp41)); + double fTemp42 = double(input14[i]); + double fTemp43 = (iSlow7?(0.0 - fTemp42):fTemp42); + double fTemp44 = (iSlow3?(0.0 - fTemp43):fTemp43); + output14[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp44):fTemp44)); + double fTemp45 = double(input15[i]); + double fTemp46 = (iSlow5?(0.0 - fTemp45):fTemp45); + double fTemp47 = (iSlow3?(0.0 - fTemp46):fTemp46); + output15[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp47):fTemp47)); + double fTemp48 = double(input16[i]); + double fTemp49 = (iSlow5?(0.0 - fTemp48):fTemp48); + double fTemp50 = (iSlow6?(0.0 - fTemp49):fTemp49); + output16[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp50):fTemp50)); + double fTemp51 = double(input17[i]); + double fTemp52 = (iSlow7?(0.0 - fTemp51):fTemp51); + double fTemp53 = (iSlow6?(0.0 - fTemp52):fTemp52); + output17[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp53):fTemp53)); + double fTemp54 = double(input18[i]); + double fTemp55 = (iSlow5?(0.0 - fTemp54):fTemp54); + double fTemp56 = (iSlow6?(0.0 - fTemp55):fTemp55); + output18[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp56):fTemp56)); + double fTemp57 = double(input19[i]); + double fTemp58 = (iSlow7?(0.0 - fTemp57):fTemp57); + double fTemp59 = (iSlow6?(0.0 - fTemp58):fTemp58); + output19[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp59):fTemp59)); + double fTemp60 = double(input20[i]); + double fTemp61 = (iSlow5?(0.0 - fTemp60):fTemp60); + double fTemp62 = (iSlow3?(0.0 - fTemp61):fTemp61); + output20[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp62):fTemp62)); + double fTemp63 = double(input21[i]); + double fTemp64 = (iSlow7?(0.0 - fTemp63):fTemp63); + double fTemp65 = (iSlow3?(0.0 - fTemp64):fTemp64); + output21[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp65):fTemp65)); + double fTemp66 = double(input22[i]); + double fTemp67 = (iSlow5?(0.0 - fTemp66):fTemp66); + double fTemp68 = (iSlow3?(0.0 - fTemp67):fTemp67); + output22[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp68):fTemp68)); + double fTemp69 = double(input23[i]); + double fTemp70 = (iSlow7?(0.0 - fTemp69):fTemp69); + double fTemp71 = (iSlow3?(0.0 - fTemp70):fTemp70); + output23[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp71):fTemp71)); + double fTemp72 = double(input24[i]); + double fTemp73 = (iSlow5?(0.0 - fTemp72):fTemp72); + double fTemp74 = (iSlow3?(0.0 - fTemp73):fTemp73); + output24[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp74):fTemp74)); + double fTemp75 = double(input25[i]); + double fTemp76 = (iSlow5?(0.0 - fTemp75):fTemp75); + double fTemp77 = (iSlow6?(0.0 - fTemp76):fTemp76); + output25[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp77):fTemp77)); + double fTemp78 = double(input26[i]); + double fTemp79 = (iSlow7?(0.0 - fTemp78):fTemp78); + double fTemp80 = (iSlow6?(0.0 - fTemp79):fTemp79); + output26[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp80):fTemp80)); + double fTemp81 = double(input27[i]); + double fTemp82 = (iSlow5?(0.0 - fTemp81):fTemp81); + double fTemp83 = (iSlow6?(0.0 - fTemp82):fTemp82); + output27[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp83):fTemp83)); + double fTemp84 = double(input28[i]); + double fTemp85 = (iSlow7?(0.0 - fTemp84):fTemp84); + double fTemp86 = (iSlow6?(0.0 - fTemp85):fTemp85); + output28[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp86):fTemp86)); + double fTemp87 = double(input29[i]); + double fTemp88 = (iSlow5?(0.0 - fTemp87):fTemp87); + double fTemp89 = (iSlow6?(0.0 - fTemp88):fTemp88); + output29[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp89):fTemp89)); + double fTemp90 = double(input30[i]); + double fTemp91 = (iSlow7?(0.0 - fTemp90):fTemp90); + double fTemp92 = (iSlow3?(0.0 - fTemp91):fTemp91); + output30[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp92):fTemp92)); + double fTemp93 = double(input31[i]); + double fTemp94 = (iSlow5?(0.0 - fTemp93):fTemp93); + double fTemp95 = (iSlow3?(0.0 - fTemp94):fTemp94); + output31[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp95):fTemp95)); + double fTemp96 = double(input32[i]); + double fTemp97 = (iSlow7?(0.0 - fTemp96):fTemp96); + double fTemp98 = (iSlow3?(0.0 - fTemp97):fTemp97); + output32[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp98):fTemp98)); + double fTemp99 = double(input33[i]); + double fTemp100 = (iSlow5?(0.0 - fTemp99):fTemp99); + double fTemp101 = (iSlow3?(0.0 - fTemp100):fTemp100); + output33[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp101):fTemp101)); + double fTemp102 = double(input34[i]); + double fTemp103 = (iSlow7?(0.0 - fTemp102):fTemp102); + double fTemp104 = (iSlow3?(0.0 - fTemp103):fTemp103); + output34[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp104):fTemp104)); + double fTemp105 = double(input35[i]); + double fTemp106 = (iSlow5?(0.0 - fTemp105):fTemp105); + double fTemp107 = (iSlow3?(0.0 - fTemp106):fTemp106); + output35[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp107):fTemp107)); + double fTemp108 = double(input36[i]); + double fTemp109 = (iSlow5?(0.0 - fTemp108):fTemp108); + double fTemp110 = (iSlow6?(0.0 - fTemp109):fTemp109); + output36[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp110):fTemp110)); + double fTemp111 = double(input37[i]); + double fTemp112 = (iSlow7?(0.0 - fTemp111):fTemp111); + double fTemp113 = (iSlow6?(0.0 - fTemp112):fTemp112); + output37[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp113):fTemp113)); + double fTemp114 = double(input38[i]); + double fTemp115 = (iSlow5?(0.0 - fTemp114):fTemp114); + double fTemp116 = (iSlow6?(0.0 - fTemp115):fTemp115); + output38[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp116):fTemp116)); + double fTemp117 = double(input39[i]); + double fTemp118 = (iSlow7?(0.0 - fTemp117):fTemp117); + double fTemp119 = (iSlow6?(0.0 - fTemp118):fTemp118); + output39[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp119):fTemp119)); + double fTemp120 = double(input40[i]); + double fTemp121 = (iSlow5?(0.0 - fTemp120):fTemp120); + double fTemp122 = (iSlow6?(0.0 - fTemp121):fTemp121); + output40[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp122):fTemp122)); + double fTemp123 = double(input41[i]); + double fTemp124 = (iSlow7?(0.0 - fTemp123):fTemp123); + double fTemp125 = (iSlow6?(0.0 - fTemp124):fTemp124); + output41[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp125):fTemp125)); + double fTemp126 = double(input42[i]); + double fTemp127 = (iSlow5?(0.0 - fTemp126):fTemp126); + double fTemp128 = (iSlow3?(0.0 - fTemp127):fTemp127); + output42[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp128):fTemp128)); + double fTemp129 = double(input43[i]); + double fTemp130 = (iSlow7?(0.0 - fTemp129):fTemp129); + double fTemp131 = (iSlow3?(0.0 - fTemp130):fTemp130); + output43[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp131):fTemp131)); + double fTemp132 = double(input44[i]); + double fTemp133 = (iSlow5?(0.0 - fTemp132):fTemp132); + double fTemp134 = (iSlow3?(0.0 - fTemp133):fTemp133); + output44[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp134):fTemp134)); + double fTemp135 = double(input45[i]); + double fTemp136 = (iSlow7?(0.0 - fTemp135):fTemp135); + double fTemp137 = (iSlow3?(0.0 - fTemp136):fTemp136); + output45[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp137):fTemp137)); + double fTemp138 = double(input46[i]); + double fTemp139 = (iSlow5?(0.0 - fTemp138):fTemp138); + double fTemp140 = (iSlow3?(0.0 - fTemp139):fTemp139); + output46[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp140):fTemp140)); + double fTemp141 = double(input47[i]); + double fTemp142 = (iSlow7?(0.0 - fTemp141):fTemp141); + double fTemp143 = (iSlow3?(0.0 - fTemp142):fTemp142); + output47[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp143):fTemp143)); + double fTemp144 = double(input48[i]); + double fTemp145 = (iSlow5?(0.0 - fTemp144):fTemp144); + double fTemp146 = (iSlow3?(0.0 - fTemp145):fTemp145); + output48[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp146):fTemp146)); + double fTemp147 = double(input49[i]); + double fTemp148 = (iSlow5?(0.0 - fTemp147):fTemp147); + double fTemp149 = (iSlow6?(0.0 - fTemp148):fTemp148); + output49[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp149):fTemp149)); + double fTemp150 = double(input50[i]); + double fTemp151 = (iSlow7?(0.0 - fTemp150):fTemp150); + double fTemp152 = (iSlow6?(0.0 - fTemp151):fTemp151); + output50[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp152):fTemp152)); + double fTemp153 = double(input51[i]); + double fTemp154 = (iSlow5?(0.0 - fTemp153):fTemp153); + double fTemp155 = (iSlow6?(0.0 - fTemp154):fTemp154); + output51[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp155):fTemp155)); + double fTemp156 = double(input52[i]); + double fTemp157 = (iSlow7?(0.0 - fTemp156):fTemp156); + double fTemp158 = (iSlow6?(0.0 - fTemp157):fTemp157); + output52[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp158):fTemp158)); + double fTemp159 = double(input53[i]); + double fTemp160 = (iSlow5?(0.0 - fTemp159):fTemp159); + double fTemp161 = (iSlow6?(0.0 - fTemp160):fTemp160); + output53[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp161):fTemp161)); + double fTemp162 = double(input54[i]); + double fTemp163 = (iSlow7?(0.0 - fTemp162):fTemp162); + double fTemp164 = (iSlow6?(0.0 - fTemp163):fTemp163); + output54[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp164):fTemp164)); + double fTemp165 = double(input55[i]); + double fTemp166 = (iSlow5?(0.0 - fTemp165):fTemp165); + double fTemp167 = (iSlow6?(0.0 - fTemp166):fTemp166); + output55[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp167):fTemp167)); + double fTemp168 = double(input56[i]); + double fTemp169 = (iSlow7?(0.0 - fTemp168):fTemp168); + double fTemp170 = (iSlow3?(0.0 - fTemp169):fTemp169); + output56[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp170):fTemp170)); + double fTemp171 = double(input57[i]); + double fTemp172 = (iSlow5?(0.0 - fTemp171):fTemp171); + double fTemp173 = (iSlow3?(0.0 - fTemp172):fTemp172); + output57[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp173):fTemp173)); + double fTemp174 = double(input58[i]); + double fTemp175 = (iSlow7?(0.0 - fTemp174):fTemp174); + double fTemp176 = (iSlow3?(0.0 - fTemp175):fTemp175); + output58[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp176):fTemp176)); + double fTemp177 = double(input59[i]); + double fTemp178 = (iSlow5?(0.0 - fTemp177):fTemp177); + double fTemp179 = (iSlow3?(0.0 - fTemp178):fTemp178); + output59[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp179):fTemp179)); + double fTemp180 = double(input60[i]); + double fTemp181 = (iSlow7?(0.0 - fTemp180):fTemp180); + double fTemp182 = (iSlow3?(0.0 - fTemp181):fTemp181); + output60[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp182):fTemp182)); + double fTemp183 = double(input61[i]); + double fTemp184 = (iSlow5?(0.0 - fTemp183):fTemp183); + double fTemp185 = (iSlow3?(0.0 - fTemp184):fTemp184); + output61[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp185):fTemp185)); + double fTemp186 = double(input62[i]); + double fTemp187 = (iSlow7?(0.0 - fTemp186):fTemp186); + double fTemp188 = (iSlow3?(0.0 - fTemp187):fTemp187); + output62[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp188):fTemp188)); + double fTemp189 = double(input63[i]); + double fTemp190 = (iSlow5?(0.0 - fTemp189):fTemp189); + double fTemp191 = (iSlow3?(0.0 - fTemp190):fTemp190); + output63[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp191):fTemp191)); + double fTemp192 = double(input64[i]); + double fTemp193 = (iSlow5?(0.0 - fTemp192):fTemp192); + double fTemp194 = (iSlow6?(0.0 - fTemp193):fTemp193); + output64[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp194):fTemp194)); + double fTemp195 = double(input65[i]); + double fTemp196 = (iSlow7?(0.0 - fTemp195):fTemp195); + double fTemp197 = (iSlow6?(0.0 - fTemp196):fTemp196); + output65[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp197):fTemp197)); + double fTemp198 = double(input66[i]); + double fTemp199 = (iSlow5?(0.0 - fTemp198):fTemp198); + double fTemp200 = (iSlow6?(0.0 - fTemp199):fTemp199); + output66[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp200):fTemp200)); + double fTemp201 = double(input67[i]); + double fTemp202 = (iSlow7?(0.0 - fTemp201):fTemp201); + double fTemp203 = (iSlow6?(0.0 - fTemp202):fTemp202); + output67[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp203):fTemp203)); + double fTemp204 = double(input68[i]); + double fTemp205 = (iSlow5?(0.0 - fTemp204):fTemp204); + double fTemp206 = (iSlow6?(0.0 - fTemp205):fTemp205); + output68[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp206):fTemp206)); + double fTemp207 = double(input69[i]); + double fTemp208 = (iSlow7?(0.0 - fTemp207):fTemp207); + double fTemp209 = (iSlow6?(0.0 - fTemp208):fTemp208); + output69[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp209):fTemp209)); + double fTemp210 = double(input70[i]); + double fTemp211 = (iSlow5?(0.0 - fTemp210):fTemp210); + double fTemp212 = (iSlow6?(0.0 - fTemp211):fTemp211); + output70[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp212):fTemp212)); + double fTemp213 = double(input71[i]); + double fTemp214 = (iSlow7?(0.0 - fTemp213):fTemp213); + double fTemp215 = (iSlow6?(0.0 - fTemp214):fTemp214); + output71[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp215):fTemp215)); + double fTemp216 = double(input72[i]); + double fTemp217 = (iSlow5?(0.0 - fTemp216):fTemp216); + double fTemp218 = (iSlow3?(0.0 - fTemp217):fTemp217); + output72[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp218):fTemp218)); + double fTemp219 = double(input73[i]); + double fTemp220 = (iSlow7?(0.0 - fTemp219):fTemp219); + double fTemp221 = (iSlow3?(0.0 - fTemp220):fTemp220); + output73[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp221):fTemp221)); + double fTemp222 = double(input74[i]); + double fTemp223 = (iSlow5?(0.0 - fTemp222):fTemp222); + double fTemp224 = (iSlow3?(0.0 - fTemp223):fTemp223); + output74[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp224):fTemp224)); + double fTemp225 = double(input75[i]); + double fTemp226 = (iSlow7?(0.0 - fTemp225):fTemp225); + double fTemp227 = (iSlow3?(0.0 - fTemp226):fTemp226); + output75[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp227):fTemp227)); + double fTemp228 = double(input76[i]); + double fTemp229 = (iSlow5?(0.0 - fTemp228):fTemp228); + double fTemp230 = (iSlow3?(0.0 - fTemp229):fTemp229); + output76[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp230):fTemp230)); + double fTemp231 = double(input77[i]); + double fTemp232 = (iSlow7?(0.0 - fTemp231):fTemp231); + double fTemp233 = (iSlow3?(0.0 - fTemp232):fTemp232); + output77[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp233):fTemp233)); + double fTemp234 = double(input78[i]); + double fTemp235 = (iSlow5?(0.0 - fTemp234):fTemp234); + double fTemp236 = (iSlow3?(0.0 - fTemp235):fTemp235); + output78[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp236):fTemp236)); + double fTemp237 = double(input79[i]); + double fTemp238 = (iSlow7?(0.0 - fTemp237):fTemp237); + double fTemp239 = (iSlow3?(0.0 - fTemp238):fTemp238); + output79[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp239):fTemp239)); + double fTemp240 = double(input80[i]); + double fTemp241 = (iSlow5?(0.0 - fTemp240):fTemp240); + double fTemp242 = (iSlow3?(0.0 - fTemp241):fTemp241); + output80[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp242):fTemp242)); + double fTemp243 = double(input81[i]); + double fTemp244 = (iSlow5?(0.0 - fTemp243):fTemp243); + double fTemp245 = (iSlow6?(0.0 - fTemp244):fTemp244); + output81[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp245):fTemp245)); + double fTemp246 = double(input82[i]); + double fTemp247 = (iSlow7?(0.0 - fTemp246):fTemp246); + double fTemp248 = (iSlow6?(0.0 - fTemp247):fTemp247); + output82[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp248):fTemp248)); + double fTemp249 = double(input83[i]); + double fTemp250 = (iSlow5?(0.0 - fTemp249):fTemp249); + double fTemp251 = (iSlow6?(0.0 - fTemp250):fTemp250); + output83[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp251):fTemp251)); + double fTemp252 = double(input84[i]); + double fTemp253 = (iSlow7?(0.0 - fTemp252):fTemp252); + double fTemp254 = (iSlow6?(0.0 - fTemp253):fTemp253); + output84[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp254):fTemp254)); + double fTemp255 = double(input85[i]); + double fTemp256 = (iSlow5?(0.0 - fTemp255):fTemp255); + double fTemp257 = (iSlow6?(0.0 - fTemp256):fTemp256); + output85[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp257):fTemp257)); + double fTemp258 = double(input86[i]); + double fTemp259 = (iSlow7?(0.0 - fTemp258):fTemp258); + double fTemp260 = (iSlow6?(0.0 - fTemp259):fTemp259); + output86[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp260):fTemp260)); + double fTemp261 = double(input87[i]); + double fTemp262 = (iSlow5?(0.0 - fTemp261):fTemp261); + double fTemp263 = (iSlow6?(0.0 - fTemp262):fTemp262); + output87[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp263):fTemp263)); + double fTemp264 = double(input88[i]); + double fTemp265 = (iSlow7?(0.0 - fTemp264):fTemp264); + double fTemp266 = (iSlow6?(0.0 - fTemp265):fTemp265); + output88[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp266):fTemp266)); + double fTemp267 = double(input89[i]); + double fTemp268 = (iSlow5?(0.0 - fTemp267):fTemp267); + double fTemp269 = (iSlow6?(0.0 - fTemp268):fTemp268); + output89[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp269):fTemp269)); + double fTemp270 = double(input90[i]); + double fTemp271 = (iSlow7?(0.0 - fTemp270):fTemp270); + double fTemp272 = (iSlow3?(0.0 - fTemp271):fTemp271); + output90[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp272):fTemp272)); + double fTemp273 = double(input91[i]); + double fTemp274 = (iSlow5?(0.0 - fTemp273):fTemp273); + double fTemp275 = (iSlow3?(0.0 - fTemp274):fTemp274); + output91[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp275):fTemp275)); + double fTemp276 = double(input92[i]); + double fTemp277 = (iSlow7?(0.0 - fTemp276):fTemp276); + double fTemp278 = (iSlow3?(0.0 - fTemp277):fTemp277); + output92[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp278):fTemp278)); + double fTemp279 = double(input93[i]); + double fTemp280 = (iSlow5?(0.0 - fTemp279):fTemp279); + double fTemp281 = (iSlow3?(0.0 - fTemp280):fTemp280); + output93[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp281):fTemp281)); + double fTemp282 = double(input94[i]); + double fTemp283 = (iSlow7?(0.0 - fTemp282):fTemp282); + double fTemp284 = (iSlow3?(0.0 - fTemp283):fTemp283); + output94[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp284):fTemp284)); + double fTemp285 = double(input95[i]); + double fTemp286 = (iSlow5?(0.0 - fTemp285):fTemp285); + double fTemp287 = (iSlow3?(0.0 - fTemp286):fTemp286); + output95[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp287):fTemp287)); + double fTemp288 = double(input96[i]); + double fTemp289 = (iSlow7?(0.0 - fTemp288):fTemp288); + double fTemp290 = (iSlow3?(0.0 - fTemp289):fTemp289); + output96[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp290):fTemp290)); + double fTemp291 = double(input97[i]); + double fTemp292 = (iSlow5?(0.0 - fTemp291):fTemp291); + double fTemp293 = (iSlow3?(0.0 - fTemp292):fTemp292); + output97[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp293):fTemp293)); + double fTemp294 = double(input98[i]); + double fTemp295 = (iSlow7?(0.0 - fTemp294):fTemp294); + double fTemp296 = (iSlow3?(0.0 - fTemp295):fTemp295); + output98[i] = FAUSTFLOAT((iSlow1?(0.0 - fTemp296):fTemp296)); + double fTemp297 = double(input99[i]); + double fTemp298 = (iSlow5?(0.0 - fTemp297):fTemp297); + double fTemp299 = (iSlow3?(0.0 - fTemp298):fTemp298); + output99[i] = FAUSTFLOAT((iSlow8?(0.0 - fTemp299):fTemp299)); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev061.cpp b/source/HOAUGens/HOAPanLebedev061.cpp new file mode 100644 index 0000000000..1e193f6af0 --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev061.cpp @@ -0,0 +1,1351 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev061" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider1; + double fRec1[2]; + FAUSTFLOAT fCheckbox2; + FAUSTFLOAT fHslider2; + double fConst2; + double fConst3; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + double fRec6[2]; + double fRec5[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec7[2]; + FAUSTFLOAT fVbargraph1; + double fRec8[2]; + FAUSTFLOAT fVbargraph2; + double fRec9[2]; + FAUSTFLOAT fVbargraph3; + double fRec10[2]; + FAUSTFLOAT fVbargraph4; + double fRec11[2]; + FAUSTFLOAT fVbargraph5; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev061"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 6; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec0[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev061"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox1); + ui_interface->addCheckButton("1", &fCheckbox2); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x254d530", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2554c80", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x255ade0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2561020", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2567340", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x256d4e0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fHslider0); + double fSlow2 = (1.0 - fSlow0); + double fSlow3 = double(fEntry0); + double fSlow4 = ((((fSlow0 / fSlow1) + fSlow2) * fSlow3) * (1.0 - double(fCheckbox1))); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = (1.0 - double(fCheckbox2)); + double fSlow7 = double(fHslider2); + double fSlow8 = sin(fSlow7); + double fSlow9 = (3.0 * (fSlow6 * fSlow8)); + double fSlow10 = ((fConst3 / fSlow1) + 1.0); + double fSlow11 = (fConst2 / (fSlow10 * fSlow1)); + double fSlow12 = (1.0 / ((fConst3 / fSlow3) + 1.0)); + double fSlow13 = (((fSlow10 * fSlow0) * fSlow3) / fSlow1); + double fSlow14 = (fConst2 / fSlow3); + double fSlow15 = (fSlow2 * fSlow3); + double fSlow16 = double(fHslider3); + double fSlow17 = cos(fSlow16); + double fSlow18 = cos(fSlow7); + double fSlow19 = (3.0 * ((fSlow17 * fSlow6) * fSlow18)); + double fSlow20 = (3.0 * ((cos((fSlow16 + -1.5707963267948966)) * fSlow6) * fSlow18)); + double fSlow21 = (3.0 * ((cos((fSlow16 + -3.1415926535897931)) * fSlow6) * fSlow18)); + double fSlow22 = (3.0 * ((cos((fSlow16 + -4.7123889803846897)) * fSlow6) * fSlow18)); + double fSlow23 = (3.0 * (((6.123233995736766e-17 * (fSlow17 * fSlow18)) - fSlow8) * fSlow6)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec4[0] = (fRec4[1] + fRec3[1]); + fRec3[0] = (fSlow12 * ((fSlow13 * fTemp0) - (fSlow14 * fRec4[0]))); + fRec2[0] = (fRec3[0] + fRec2[1]); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow12 * ((fSlow15 * fTemp0) - (fSlow14 * fRec6[0]))); + double fTemp2 = ((fSlow11 * (fRec2[0] - fRec3[0])) + (fRec3[0] + fRec5[0])); + double fTemp3 = (0.16666666666666666 * (fTemp1 + (fSlow9 * fTemp2))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = (0.16666666666666666 * (fTemp1 + (fSlow19 * fTemp2))); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (0.16666666666666666 * (fTemp1 + (fSlow20 * fTemp2))); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec8[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (0.16666666666666666 * (fTemp1 + (fSlow21 * fTemp2))); + fRec9[0] = max((fRec9[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec9[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = (0.16666666666666666 * (fTemp1 + (fSlow22 * fTemp2))); + fRec10[0] = max((fRec10[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph4 = FAUSTFLOAT(fRec10[0]); + output4[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = (0.16666666666666666 * (fTemp1 + (fSlow23 * fTemp2))); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph5 = FAUSTFLOAT(fRec11[0]); + output5[i] = FAUSTFLOAT(fTemp8); + fRec1[1] = fRec1[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec0[1] = fRec0[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev261.cpp b/source/HOAUGens/HOAPanLebedev261.cpp new file mode 100644 index 0000000000..12d9ef66ba --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev261.cpp @@ -0,0 +1,1809 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev261" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider1; + double fRec1[2]; + FAUSTFLOAT fCheckbox2; + FAUSTFLOAT fHslider2; + double fConst2; + double fConst3; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + double fRec6[2]; + double fRec5[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec7[2]; + FAUSTFLOAT fVbargraph1; + double fRec8[2]; + FAUSTFLOAT fVbargraph2; + double fRec9[2]; + FAUSTFLOAT fVbargraph3; + double fRec10[2]; + FAUSTFLOAT fVbargraph4; + double fRec11[2]; + FAUSTFLOAT fVbargraph5; + double fRec12[2]; + FAUSTFLOAT fVbargraph6; + double fRec13[2]; + FAUSTFLOAT fVbargraph7; + double fRec14[2]; + FAUSTFLOAT fVbargraph8; + double fRec15[2]; + FAUSTFLOAT fVbargraph9; + double fRec16[2]; + FAUSTFLOAT fVbargraph10; + double fRec17[2]; + FAUSTFLOAT fVbargraph11; + double fRec18[2]; + FAUSTFLOAT fVbargraph12; + double fRec19[2]; + FAUSTFLOAT fVbargraph13; + double fRec20[2]; + FAUSTFLOAT fVbargraph14; + double fRec21[2]; + FAUSTFLOAT fVbargraph15; + double fRec22[2]; + FAUSTFLOAT fVbargraph16; + double fRec23[2]; + FAUSTFLOAT fVbargraph17; + double fRec24[2]; + FAUSTFLOAT fVbargraph18; + double fRec25[2]; + FAUSTFLOAT fVbargraph19; + double fRec26[2]; + FAUSTFLOAT fVbargraph20; + double fRec27[2]; + FAUSTFLOAT fVbargraph21; + double fRec28[2]; + FAUSTFLOAT fVbargraph22; + double fRec29[2]; + FAUSTFLOAT fVbargraph23; + double fRec30[2]; + FAUSTFLOAT fVbargraph24; + double fRec31[2]; + FAUSTFLOAT fVbargraph25; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev261"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 26; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec0[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec12[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec14[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec18[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec19[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec20[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev261"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox1); + ui_interface->addCheckButton("1", &fCheckbox2); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28f2380", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28f9ad0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x28ffe50", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29062b0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x290c7f0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2912ba0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29195e0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x291f980", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2925e00", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x292c360", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2932de0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2939940", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2940580", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29472a0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x294d690", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2953b60", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x295a110", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29607a0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2967e40", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x296ec60", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2975b60", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x297cb40", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2983630", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x298a200", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2990eb0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2997c40", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fHslider0); + double fSlow2 = (1.0 - fSlow0); + double fSlow3 = double(fEntry0); + double fSlow4 = ((((fSlow0 / fSlow1) + fSlow2) * fSlow3) * (1.0 - double(fCheckbox1))); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = (1.0 - double(fCheckbox2)); + double fSlow7 = double(fHslider2); + double fSlow8 = sin(fSlow7); + double fSlow9 = (3.0 * (fSlow6 * fSlow8)); + double fSlow10 = ((fConst3 / fSlow1) + 1.0); + double fSlow11 = (fConst2 / (fSlow10 * fSlow1)); + double fSlow12 = (1.0 / ((fConst3 / fSlow3) + 1.0)); + double fSlow13 = (((fSlow10 * fSlow0) * fSlow3) / fSlow1); + double fSlow14 = (fConst2 / fSlow3); + double fSlow15 = (fSlow2 * fSlow3); + double fSlow16 = double(fHslider3); + double fSlow17 = cos(fSlow16); + double fSlow18 = cos(fSlow7); + double fSlow19 = (3.0 * ((fSlow17 * fSlow6) * fSlow18)); + double fSlow20 = cos((fSlow16 + -1.5707963267948966)); + double fSlow21 = (3.0 * ((fSlow20 * fSlow6) * fSlow18)); + double fSlow22 = cos((fSlow16 + -3.1415926535897931)); + double fSlow23 = (3.0 * ((fSlow22 * fSlow6) * fSlow18)); + double fSlow24 = cos((fSlow16 + -4.7123889803846897)); + double fSlow25 = (3.0 * ((fSlow24 * fSlow6) * fSlow18)); + double fSlow26 = (fSlow17 * fSlow18); + double fSlow27 = (3.0 * (((6.123233995736766e-17 * fSlow26) - fSlow8) * fSlow6)); + double fSlow28 = (0.70710678118654757 * fSlow26); + double fSlow29 = (0.70710678118654746 * fSlow8); + double fSlow30 = (3.0 * ((fSlow28 + fSlow29) * fSlow6)); + double fSlow31 = (0.70710678118654757 * (fSlow20 * fSlow18)); + double fSlow32 = (3.0 * ((fSlow29 + fSlow31) * fSlow6)); + double fSlow33 = (0.70710678118654757 * (fSlow22 * fSlow18)); + double fSlow34 = (3.0 * ((fSlow29 + fSlow33) * fSlow6)); + double fSlow35 = (0.70710678118654757 * (fSlow24 * fSlow18)); + double fSlow36 = (3.0 * ((fSlow29 + fSlow35) * fSlow6)); + double fSlow37 = cos((fSlow16 + -0.78539816339744828)); + double fSlow38 = (3.0 * ((fSlow37 * fSlow6) * fSlow18)); + double fSlow39 = cos((fSlow16 + -2.3561944901923448)); + double fSlow40 = (3.0 * ((fSlow39 * fSlow6) * fSlow18)); + double fSlow41 = cos((fSlow16 + -3.9269908169872414)); + double fSlow42 = (3.0 * ((fSlow41 * fSlow6) * fSlow18)); + double fSlow43 = cos((fSlow16 + -5.497787143782138)); + double fSlow44 = (3.0 * ((fSlow43 * fSlow6) * fSlow18)); + double fSlow45 = (3.0 * ((fSlow28 - fSlow29) * fSlow6)); + double fSlow46 = (3.0 * ((fSlow31 - fSlow29) * fSlow6)); + double fSlow47 = (3.0 * ((fSlow33 - fSlow29) * fSlow6)); + double fSlow48 = (3.0 * ((fSlow35 - fSlow29) * fSlow6)); + double fSlow49 = (0.81649658092772592 * (fSlow37 * fSlow18)); + double fSlow50 = (0.57735026918962584 * fSlow8); + double fSlow51 = (3.0 * ((fSlow49 + fSlow50) * fSlow6)); + double fSlow52 = (0.81649658092772592 * (fSlow39 * fSlow18)); + double fSlow53 = (3.0 * ((fSlow50 + fSlow52) * fSlow6)); + double fSlow54 = (0.81649658092772592 * (fSlow41 * fSlow18)); + double fSlow55 = (3.0 * ((fSlow50 + fSlow54) * fSlow6)); + double fSlow56 = (0.81649658092772592 * (fSlow43 * fSlow18)); + double fSlow57 = (3.0 * ((fSlow50 + fSlow56) * fSlow6)); + double fSlow58 = (3.0 * ((fSlow49 - fSlow50) * fSlow6)); + double fSlow59 = (3.0 * ((fSlow52 - fSlow50) * fSlow6)); + double fSlow60 = (3.0 * ((fSlow54 - fSlow50) * fSlow6)); + double fSlow61 = (3.0 * ((fSlow56 - fSlow50) * fSlow6)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec4[0] = (fRec4[1] + fRec3[1]); + fRec3[0] = (fSlow12 * ((fSlow13 * fTemp0) - (fSlow14 * fRec4[0]))); + fRec2[0] = (fRec3[0] + fRec2[1]); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow12 * ((fSlow15 * fTemp0) - (fSlow14 * fRec6[0]))); + double fTemp2 = ((fSlow11 * (fRec2[0] - fRec3[0])) + (fRec3[0] + fRec5[0])); + double fTemp3 = (0.047619047619047623 * (fTemp1 + (fSlow9 * fTemp2))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = (0.047619047619047623 * (fTemp1 + (fSlow19 * fTemp2))); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (0.047619047619047623 * (fTemp1 + (fSlow21 * fTemp2))); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec8[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (0.047619047619047623 * (fTemp1 + (fSlow23 * fTemp2))); + fRec9[0] = max((fRec9[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec9[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = (0.047619047619047623 * (fTemp1 + (fSlow25 * fTemp2))); + fRec10[0] = max((fRec10[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph4 = FAUSTFLOAT(fRec10[0]); + output4[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = (0.047619047619047623 * (fTemp1 + (fSlow27 * fTemp2))); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph5 = FAUSTFLOAT(fRec11[0]); + output5[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (0.038095238095238099 * (fTemp1 + (fSlow30 * fTemp2))); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph6 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (0.038095238095238099 * (fTemp1 + (fSlow32 * fTemp2))); + fRec13[0] = max((fRec13[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph7 = FAUSTFLOAT(fRec13[0]); + output7[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (0.038095238095238099 * (fTemp1 + (fSlow34 * fTemp2))); + fRec14[0] = max((fRec14[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph8 = FAUSTFLOAT(fRec14[0]); + output8[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.038095238095238099 * (fTemp1 + (fSlow36 * fTemp2))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph9 = FAUSTFLOAT(fRec15[0]); + output9[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.038095238095238099 * (fTemp1 + (fSlow38 * fTemp2))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph10 = FAUSTFLOAT(fRec16[0]); + output10[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.038095238095238099 * (fTemp1 + (fSlow40 * fTemp2))); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph11 = FAUSTFLOAT(fRec17[0]); + output11[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.038095238095238099 * (fTemp1 + (fSlow42 * fTemp2))); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph12 = FAUSTFLOAT(fRec18[0]); + output12[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.038095238095238099 * (fTemp1 + (fSlow44 * fTemp2))); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph13 = FAUSTFLOAT(fRec19[0]); + output13[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.038095238095238099 * (fTemp1 + (fSlow45 * fTemp2))); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph14 = FAUSTFLOAT(fRec20[0]); + output14[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.038095238095238099 * (fTemp1 + (fSlow46 * fTemp2))); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph15 = FAUSTFLOAT(fRec21[0]); + output15[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.038095238095238099 * (fTemp1 + (fSlow47 * fTemp2))); + fRec22[0] = max((fRec22[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph16 = FAUSTFLOAT(fRec22[0]); + output16[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.038095238095238099 * (fTemp1 + (fSlow48 * fTemp2))); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph17 = FAUSTFLOAT(fRec23[0]); + output17[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.03214285714285714 * (fTemp1 + (fSlow51 * fTemp2))); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph18 = FAUSTFLOAT(fRec24[0]); + output18[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.03214285714285714 * (fTemp1 + (fSlow53 * fTemp2))); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph19 = FAUSTFLOAT(fRec25[0]); + output19[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.03214285714285714 * (fTemp1 + (fSlow55 * fTemp2))); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph20 = FAUSTFLOAT(fRec26[0]); + output20[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.03214285714285714 * (fTemp1 + (fSlow57 * fTemp2))); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph21 = FAUSTFLOAT(fRec27[0]); + output21[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.03214285714285714 * (fTemp1 + (fSlow58 * fTemp2))); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph22 = FAUSTFLOAT(fRec28[0]); + output22[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.03214285714285714 * (fTemp1 + (fSlow59 * fTemp2))); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph23 = FAUSTFLOAT(fRec29[0]); + output23[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.03214285714285714 * (fTemp1 + (fSlow60 * fTemp2))); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph24 = FAUSTFLOAT(fRec30[0]); + output24[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.03214285714285714 * (fTemp1 + (fSlow61 * fTemp2))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph25 = FAUSTFLOAT(fRec31[0]); + output25[i] = FAUSTFLOAT(fTemp28); + fRec1[1] = fRec1[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec0[1] = fRec0[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev262.cpp b/source/HOAUGens/HOAPanLebedev262.cpp new file mode 100644 index 0000000000..90b1791217 --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev262.cpp @@ -0,0 +1,1943 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev262" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider1; + double fRec1[2]; + FAUSTFLOAT fCheckbox2; + FAUSTFLOAT fHslider2; + double fConst2; + double fConst3; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + double fRec6[2]; + double fRec5[2]; + FAUSTFLOAT fCheckbox3; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + double fVec0[2]; + double fRec11[2]; + double fRec13[2]; + double fRec14[2]; + double fRec12[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec15[2]; + FAUSTFLOAT fVbargraph1; + double fRec16[2]; + FAUSTFLOAT fVbargraph2; + double fRec17[2]; + FAUSTFLOAT fVbargraph3; + double fRec18[2]; + FAUSTFLOAT fVbargraph4; + double fRec19[2]; + FAUSTFLOAT fVbargraph5; + double fRec20[2]; + FAUSTFLOAT fVbargraph6; + double fRec21[2]; + FAUSTFLOAT fVbargraph7; + double fRec22[2]; + FAUSTFLOAT fVbargraph8; + double fRec23[2]; + FAUSTFLOAT fVbargraph9; + double fRec24[2]; + FAUSTFLOAT fVbargraph10; + double fRec25[2]; + FAUSTFLOAT fVbargraph11; + double fRec26[2]; + FAUSTFLOAT fVbargraph12; + double fRec27[2]; + FAUSTFLOAT fVbargraph13; + double fRec28[2]; + FAUSTFLOAT fVbargraph14; + double fRec29[2]; + FAUSTFLOAT fVbargraph15; + double fRec30[2]; + FAUSTFLOAT fVbargraph16; + double fRec31[2]; + FAUSTFLOAT fVbargraph17; + double fRec32[2]; + FAUSTFLOAT fVbargraph18; + double fRec33[2]; + FAUSTFLOAT fVbargraph19; + double fRec34[2]; + FAUSTFLOAT fVbargraph20; + double fRec35[2]; + FAUSTFLOAT fVbargraph21; + double fRec36[2]; + FAUSTFLOAT fVbargraph22; + double fRec37[2]; + FAUSTFLOAT fVbargraph23; + double fRec38[2]; + FAUSTFLOAT fVbargraph24; + double fRec39[2]; + FAUSTFLOAT fVbargraph25; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev262"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 26; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fCheckbox3 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fVec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec12[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec0[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec15[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec17[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec19[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec21[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec23[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec25[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec27[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec29[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec31[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec33[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec35[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec37[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec39[l40] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev262"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox1); + ui_interface->addCheckButton("1", &fCheckbox2); + ui_interface->addCheckButton("2", &fCheckbox3); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3684d60", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x368e4b0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3695f20", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x369da70", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36a56a0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36ad170", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36b52d0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36bcd90", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36c4930", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36cc5b0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36d4720", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36dc970", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36e4ca0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36ed0b0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36f4bc0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x36fc7b0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3704480", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x370c230", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3714ff0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x371d530", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3725b50", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x372e250", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3736460", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x373e750", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3746b20", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x374efd0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fHslider0); + double fSlow2 = (1.0 - fSlow0); + double fSlow3 = double(fEntry0); + double fSlow4 = ((((fSlow0 / fSlow1) + fSlow2) * fSlow3) * (1.0 - double(fCheckbox1))); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = (1.0 - double(fCheckbox2)); + double fSlow7 = double(fHslider2); + double fSlow8 = sin(fSlow7); + double fSlow9 = (3.0 * (fSlow6 * fSlow8)); + double fSlow10 = (fConst3 / fSlow1); + double fSlow11 = (fSlow10 + 1.0); + double fSlow12 = (fConst2 / (fSlow11 * fSlow1)); + double fSlow13 = (fConst3 / fSlow3); + double fSlow14 = (1.0 / (fSlow13 + 1.0)); + double fSlow15 = (((fSlow11 * fSlow0) * fSlow3) / fSlow1); + double fSlow16 = (fConst2 / fSlow3); + double fSlow17 = (fSlow2 * fSlow3); + double fSlow18 = (1.0 - double(fCheckbox3)); + double fSlow19 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow8)) + -1.0) * fSlow18)); + double fSlow20 = mydsp_faustpower2_f(fSlow10); + double fSlow21 = (((fConst4 / fSlow1) + (3.0 * fSlow20)) + 1.0); + double fSlow22 = (1.0 / fSlow21); + double fSlow23 = (12.0 * fSlow20); + double fSlow24 = ((fConst5 / fSlow1) + fSlow23); + double fSlow25 = mydsp_faustpower2_f(fSlow13); + double fSlow26 = (1.0 / (((fConst4 / fSlow3) + (3.0 * fSlow25)) + 1.0)); + double fSlow27 = (((fSlow21 * fSlow0) * fSlow3) / fSlow1); + double fSlow28 = (12.0 * fSlow25); + double fSlow29 = (fSlow28 + (fConst5 / fSlow3)); + double fSlow30 = double(fHslider3); + double fSlow31 = cos(fSlow30); + double fSlow32 = cos(fSlow7); + double fSlow33 = (3.0 * ((fSlow31 * fSlow6) * fSlow32)); + double fSlow34 = mydsp_faustpower2_f(fSlow32); + double fSlow35 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow31) * fSlow34)) + -1.0) * fSlow18)); + double fSlow36 = cos((fSlow30 + -1.5707963267948966)); + double fSlow37 = (3.0 * ((fSlow36 * fSlow6) * fSlow32)); + double fSlow38 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow36) * fSlow34)) + -1.0) * fSlow18)); + double fSlow39 = cos((fSlow30 + -3.1415926535897931)); + double fSlow40 = (3.0 * ((fSlow39 * fSlow6) * fSlow32)); + double fSlow41 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow39) * fSlow34)) + -1.0) * fSlow18)); + double fSlow42 = cos((fSlow30 + -4.7123889803846897)); + double fSlow43 = (3.0 * ((fSlow42 * fSlow6) * fSlow32)); + double fSlow44 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow42) * fSlow34)) + -1.0) * fSlow18)); + double fSlow45 = (fSlow31 * fSlow32); + double fSlow46 = ((6.123233995736766e-17 * fSlow45) - fSlow8); + double fSlow47 = (3.0 * (fSlow46 * fSlow6)); + double fSlow48 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow46)) + -1.0) * fSlow18)); + double fSlow49 = (0.70710678118654757 * fSlow45); + double fSlow50 = (0.70710678118654746 * fSlow8); + double fSlow51 = (fSlow49 + fSlow50); + double fSlow52 = (3.0 * (fSlow51 * fSlow6)); + double fSlow53 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow51)) + -1.0) * fSlow18)); + double fSlow54 = (0.70710678118654757 * (fSlow36 * fSlow32)); + double fSlow55 = (fSlow50 + fSlow54); + double fSlow56 = (3.0 * (fSlow55 * fSlow6)); + double fSlow57 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow55)) + -1.0) * fSlow18)); + double fSlow58 = (0.70710678118654757 * (fSlow39 * fSlow32)); + double fSlow59 = (fSlow50 + fSlow58); + double fSlow60 = (3.0 * (fSlow59 * fSlow6)); + double fSlow61 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow59)) + -1.0) * fSlow18)); + double fSlow62 = (0.70710678118654757 * (fSlow42 * fSlow32)); + double fSlow63 = (fSlow50 + fSlow62); + double fSlow64 = (3.0 * (fSlow63 * fSlow6)); + double fSlow65 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow63)) + -1.0) * fSlow18)); + double fSlow66 = cos((fSlow30 + -0.78539816339744828)); + double fSlow67 = (3.0 * ((fSlow66 * fSlow6) * fSlow32)); + double fSlow68 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow66) * fSlow34)) + -1.0) * fSlow18)); + double fSlow69 = cos((fSlow30 + -2.3561944901923448)); + double fSlow70 = (3.0 * ((fSlow69 * fSlow6) * fSlow32)); + double fSlow71 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow69) * fSlow34)) + -1.0) * fSlow18)); + double fSlow72 = cos((fSlow30 + -3.9269908169872414)); + double fSlow73 = (3.0 * ((fSlow72 * fSlow6) * fSlow32)); + double fSlow74 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow72) * fSlow34)) + -1.0) * fSlow18)); + double fSlow75 = cos((fSlow30 + -5.497787143782138)); + double fSlow76 = (3.0 * ((fSlow75 * fSlow6) * fSlow32)); + double fSlow77 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow75) * fSlow34)) + -1.0) * fSlow18)); + double fSlow78 = (fSlow49 - fSlow50); + double fSlow79 = (3.0 * (fSlow78 * fSlow6)); + double fSlow80 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow78)) + -1.0) * fSlow18)); + double fSlow81 = (fSlow54 - fSlow50); + double fSlow82 = (3.0 * (fSlow81 * fSlow6)); + double fSlow83 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow81)) + -1.0) * fSlow18)); + double fSlow84 = (fSlow58 - fSlow50); + double fSlow85 = (3.0 * (fSlow84 * fSlow6)); + double fSlow86 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow84)) + -1.0) * fSlow18)); + double fSlow87 = (fSlow62 - fSlow50); + double fSlow88 = (3.0 * (fSlow87 * fSlow6)); + double fSlow89 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow87)) + -1.0) * fSlow18)); + double fSlow90 = (0.81649658092772592 * (fSlow66 * fSlow32)); + double fSlow91 = (0.57735026918962584 * fSlow8); + double fSlow92 = (fSlow90 + fSlow91); + double fSlow93 = (3.0 * (fSlow92 * fSlow6)); + double fSlow94 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow92)) + -1.0) * fSlow18)); + double fSlow95 = (0.81649658092772592 * (fSlow69 * fSlow32)); + double fSlow96 = (fSlow91 + fSlow95); + double fSlow97 = (3.0 * (fSlow96 * fSlow6)); + double fSlow98 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow96)) + -1.0) * fSlow18)); + double fSlow99 = (0.81649658092772592 * (fSlow72 * fSlow32)); + double fSlow100 = (fSlow91 + fSlow99); + double fSlow101 = (3.0 * (fSlow100 * fSlow6)); + double fSlow102 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow100)) + -1.0) * fSlow18)); + double fSlow103 = (0.81649658092772592 * (fSlow75 * fSlow32)); + double fSlow104 = (fSlow91 + fSlow103); + double fSlow105 = (3.0 * (fSlow104 * fSlow6)); + double fSlow106 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow104)) + -1.0) * fSlow18)); + double fSlow107 = (fSlow90 - fSlow91); + double fSlow108 = (3.0 * (fSlow107 * fSlow6)); + double fSlow109 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow107)) + -1.0) * fSlow18)); + double fSlow110 = (fSlow95 - fSlow91); + double fSlow111 = (3.0 * (fSlow110 * fSlow6)); + double fSlow112 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow110)) + -1.0) * fSlow18)); + double fSlow113 = (fSlow99 - fSlow91); + double fSlow114 = (3.0 * (fSlow113 * fSlow6)); + double fSlow115 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow113)) + -1.0) * fSlow18)); + double fSlow116 = (fSlow103 - fSlow91); + double fSlow117 = (3.0 * (fSlow116 * fSlow6)); + double fSlow118 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow116)) + -1.0) * fSlow18)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec4[0] = (fRec4[1] + fRec3[1]); + fRec3[0] = (fSlow14 * ((fSlow15 * fTemp0) - (fSlow16 * fRec4[0]))); + fRec2[0] = (fRec3[0] + fRec2[1]); + double fTemp2 = (fSlow17 * fTemp0); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow14 * (fTemp2 - (fSlow16 * fRec6[0]))); + double fTemp3 = ((fSlow12 * (fRec2[0] - fRec3[0])) + (fRec3[0] + fRec5[0])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow26 * ((fSlow27 * fTemp0) - ((fSlow29 * fRec9[0]) + (fSlow28 * fRec10[0])))); + fRec7[0] = (fRec8[0] + fRec7[1]); + double fTemp4 = (fRec7[0] - fRec8[0]); + fVec0[0] = fTemp4; + fRec11[0] = (fRec11[1] + fVec0[1]); + fRec13[0] = (fRec13[1] + fRec12[1]); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec12[0] = (fSlow26 * (fTemp2 - ((fSlow29 * fRec13[0]) + (fSlow28 * fRec14[0])))); + double fTemp5 = ((fSlow22 * ((fSlow24 * fTemp4) + (fSlow23 * fRec11[0]))) + (fRec8[0] + fRec12[0])); + double fTemp6 = (0.047619047619047623 * ((fTemp1 + (fSlow9 * fTemp3)) + (fSlow19 * fTemp5))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = (0.047619047619047623 * ((fTemp1 + (fSlow33 * fTemp3)) + (fSlow35 * fTemp5))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph1 = FAUSTFLOAT(fRec15[0]); + output1[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = (0.047619047619047623 * ((fTemp1 + (fSlow37 * fTemp3)) + (fSlow38 * fTemp5))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph2 = FAUSTFLOAT(fRec16[0]); + output2[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (0.047619047619047623 * ((fTemp1 + (fSlow40 * fTemp3)) + (fSlow41 * fTemp5))); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph3 = FAUSTFLOAT(fRec17[0]); + output3[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (0.047619047619047623 * ((fTemp1 + (fSlow43 * fTemp3)) + (fSlow44 * fTemp5))); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph4 = FAUSTFLOAT(fRec18[0]); + output4[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (0.047619047619047623 * ((fTemp1 + (fSlow47 * fTemp3)) + (fSlow48 * fTemp5))); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph5 = FAUSTFLOAT(fRec19[0]); + output5[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.038095238095238099 * ((fTemp1 + (fSlow52 * fTemp3)) + (fSlow53 * fTemp5))); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph6 = FAUSTFLOAT(fRec20[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.038095238095238099 * ((fTemp1 + (fSlow56 * fTemp3)) + (fSlow57 * fTemp5))); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph7 = FAUSTFLOAT(fRec21[0]); + output7[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.038095238095238099 * ((fTemp1 + (fSlow60 * fTemp3)) + (fSlow61 * fTemp5))); + fRec22[0] = max((fRec22[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph8 = FAUSTFLOAT(fRec22[0]); + output8[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.038095238095238099 * ((fTemp1 + (fSlow64 * fTemp3)) + (fSlow65 * fTemp5))); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph9 = FAUSTFLOAT(fRec23[0]); + output9[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.038095238095238099 * ((fTemp1 + (fSlow67 * fTemp3)) + (fSlow68 * fTemp5))); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph10 = FAUSTFLOAT(fRec24[0]); + output10[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.038095238095238099 * ((fTemp1 + (fSlow70 * fTemp3)) + (fSlow71 * fTemp5))); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph11 = FAUSTFLOAT(fRec25[0]); + output11[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.038095238095238099 * ((fTemp1 + (fSlow73 * fTemp3)) + (fSlow74 * fTemp5))); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph12 = FAUSTFLOAT(fRec26[0]); + output12[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.038095238095238099 * ((fTemp1 + (fSlow76 * fTemp3)) + (fSlow77 * fTemp5))); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph13 = FAUSTFLOAT(fRec27[0]); + output13[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.038095238095238099 * ((fTemp1 + (fSlow79 * fTemp3)) + (fSlow80 * fTemp5))); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph14 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.038095238095238099 * ((fTemp1 + (fSlow82 * fTemp3)) + (fSlow83 * fTemp5))); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph15 = FAUSTFLOAT(fRec29[0]); + output15[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.038095238095238099 * ((fTemp1 + (fSlow85 * fTemp3)) + (fSlow86 * fTemp5))); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph16 = FAUSTFLOAT(fRec30[0]); + output16[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.038095238095238099 * ((fTemp1 + (fSlow88 * fTemp3)) + (fSlow89 * fTemp5))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph17 = FAUSTFLOAT(fRec31[0]); + output17[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.03214285714285714 * ((fTemp1 + (fSlow93 * fTemp3)) + (fSlow94 * fTemp5))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph18 = FAUSTFLOAT(fRec32[0]); + output18[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.03214285714285714 * ((fTemp1 + (fSlow97 * fTemp3)) + (fSlow98 * fTemp5))); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph19 = FAUSTFLOAT(fRec33[0]); + output19[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.03214285714285714 * ((fTemp1 + (fSlow101 * fTemp3)) + (fSlow102 * fTemp5))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph20 = FAUSTFLOAT(fRec34[0]); + output20[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.03214285714285714 * ((fTemp1 + (fSlow105 * fTemp3)) + (fSlow106 * fTemp5))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph21 = FAUSTFLOAT(fRec35[0]); + output21[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.03214285714285714 * ((fTemp1 + (fSlow108 * fTemp3)) + (fSlow109 * fTemp5))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph22 = FAUSTFLOAT(fRec36[0]); + output22[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.03214285714285714 * ((fTemp1 + (fSlow111 * fTemp3)) + (fSlow112 * fTemp5))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph23 = FAUSTFLOAT(fRec37[0]); + output23[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.03214285714285714 * ((fTemp1 + (fSlow114 * fTemp3)) + (fSlow115 * fTemp5))); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph24 = FAUSTFLOAT(fRec38[0]); + output24[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.03214285714285714 * ((fTemp1 + (fSlow117 * fTemp3)) + (fSlow118 * fTemp5))); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph25 = FAUSTFLOAT(fRec39[0]); + output25[i] = FAUSTFLOAT(fTemp31); + fRec1[1] = fRec1[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fVec0[1] = fVec0[0]; + fRec11[1] = fRec11[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec12[1] = fRec12[0]; + fRec0[1] = fRec0[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev263.cpp b/source/HOAUGens/HOAPanLebedev263.cpp new file mode 100644 index 0000000000..565ed4fc87 --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev263.cpp @@ -0,0 +1,2100 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev263" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fCheckbox0; + double fConst2; + double fConst3; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider2; + double fRec3[2]; + double fRec4[2]; + double fRec2[2]; + double fRec1[2]; + double fRec6[2]; + double fRec5[2]; + FAUSTFLOAT fCheckbox2; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fRec10[2]; + double fRec11[2]; + double fRec9[2]; + double fRec12[2]; + double fVec0[2]; + double fRec13[2]; + double fRec14[2]; + double fRec8[2]; + double fRec7[2]; + double fRec17[2]; + double fRec18[2]; + double fRec16[2]; + double fRec19[2]; + double fRec15[2]; + FAUSTFLOAT fCheckbox3; + FAUSTFLOAT fCheckbox4; + double fConst8; + double fConst9; + double fRec22[2]; + double fRec23[2]; + double fRec21[2]; + double fRec20[2]; + double fVec1[2]; + double fRec24[2]; + double fRec26[2]; + double fRec27[2]; + double fRec25[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec28[2]; + FAUSTFLOAT fVbargraph1; + double fRec29[2]; + FAUSTFLOAT fVbargraph2; + double fRec30[2]; + FAUSTFLOAT fVbargraph3; + double fRec31[2]; + FAUSTFLOAT fVbargraph4; + double fRec32[2]; + FAUSTFLOAT fVbargraph5; + double fRec33[2]; + FAUSTFLOAT fVbargraph6; + double fRec34[2]; + FAUSTFLOAT fVbargraph7; + double fRec35[2]; + FAUSTFLOAT fVbargraph8; + double fRec36[2]; + FAUSTFLOAT fVbargraph9; + double fRec37[2]; + FAUSTFLOAT fVbargraph10; + double fRec38[2]; + FAUSTFLOAT fVbargraph11; + double fRec39[2]; + FAUSTFLOAT fVbargraph12; + double fRec40[2]; + FAUSTFLOAT fVbargraph13; + double fRec41[2]; + FAUSTFLOAT fVbargraph14; + double fRec42[2]; + FAUSTFLOAT fVbargraph15; + double fRec43[2]; + FAUSTFLOAT fVbargraph16; + double fRec44[2]; + FAUSTFLOAT fVbargraph17; + double fRec45[2]; + FAUSTFLOAT fVbargraph18; + double fRec46[2]; + FAUSTFLOAT fVbargraph19; + double fRec47[2]; + FAUSTFLOAT fVbargraph20; + double fRec48[2]; + FAUSTFLOAT fVbargraph21; + double fRec49[2]; + FAUSTFLOAT fVbargraph22; + double fRec50[2]; + FAUSTFLOAT fVbargraph23; + double fRec51[2]; + FAUSTFLOAT fVbargraph24; + double fRec52[2]; + FAUSTFLOAT fVbargraph25; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev263"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 26; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + fConst4 = (789.54302057287055 / fConst0); + fConst5 = (394.77151028643527 / fConst0); + fConst6 = (625.22848971356643 / fConst0); + fConst7 = (1250.4569794271329 / fConst0); + fConst8 = (510.0 / fConst0); + fConst9 = (1020.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fCheckbox3 = FAUSTFLOAT(0.0); + fCheckbox4 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec3[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec1[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec10[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec11[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fVec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec13[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec14[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec8[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec7[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec17[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec18[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec15[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec22[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec23[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec21[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec20[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fVec1[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec25[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec0[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec28[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec29[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec30[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec31[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec33[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec34[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec35[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec36[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec37[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec38[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec39[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec40[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec41[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec42[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec43[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec44[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec45[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec46[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec47[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec48[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec49[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec50[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec51[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec52[l54] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev263"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider2, "0+1", ""); + ui_interface->declare(&fHslider2, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider2, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider1, "0+2", ""); + ui_interface->declare(&fHslider1, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider1, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+4", ""); + ui_interface->declare(&fHslider0, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider0, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox3); + ui_interface->addCheckButton("1", &fCheckbox0); + ui_interface->addCheckButton("2", &fCheckbox4); + ui_interface->addCheckButton("3", &fCheckbox2); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("Outputs"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2577290", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2581580", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2589b90", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2592280", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x259aa50", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25a2ac0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25ab5b0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25b3820", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25bbb70", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25c3fa0", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25cccb0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25d5aa0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25de970", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25e7920", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25efdc0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25f8340", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x26009a0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x26090e0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2612650", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x261b340", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2624110", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x262cfc0", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2635b60", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x263e7e0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2647540", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2650380", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + double fSlow0 = double(fHslider0); + double fSlow1 = sin(fSlow0); + double fSlow2 = (3.0 * (1.0 - double(fCheckbox0))); + double fSlow3 = double(fHslider1); + double fSlow4 = (fConst3 / fSlow3); + double fSlow5 = (fSlow4 + 1.0); + double fSlow6 = (fConst2 / (fSlow5 * fSlow3)); + double fSlow7 = double(fEntry0); + double fSlow8 = (fConst3 / fSlow7); + double fSlow9 = (1.0 / (fSlow8 + 1.0)); + double fSlow10 = double(fCheckbox1); + double fSlow11 = (((fSlow5 * fSlow10) * fSlow7) / fSlow3); + double fSlow12 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider2)))); + double fSlow13 = (fConst2 / fSlow7); + double fSlow14 = (1.0 - fSlow10); + double fSlow15 = (fSlow14 * fSlow7); + double fSlow16 = ((3.0 * mydsp_faustpower2_f(fSlow1)) + -1.0); + double fSlow17 = (1.0 - double(fCheckbox2)); + double fSlow18 = (2.333333333333333 * (((2.5 * fSlow16) + -2.0) * fSlow17)); + double fSlow19 = ((fConst5 / fSlow3) + 1.0); + double fSlow20 = (fConst4 / (fSlow19 * fSlow3)); + double fSlow21 = (1.0 / ((fConst5 / fSlow7) + 1.0)); + double fSlow22 = mydsp_faustpower2_f(fSlow8); + double fSlow23 = (1.0 / (((fConst6 / fSlow7) + (6.4594326934833797 * fSlow22)) + 1.0)); + double fSlow24 = mydsp_faustpower2_f(fSlow4); + double fSlow25 = (((fConst6 / fSlow3) + (6.4594326934833797 * fSlow24)) + 1.0); + double fSlow26 = (((fSlow25 * fSlow10) * fSlow7) / fSlow3); + double fSlow27 = (25.837730773933519 * fSlow22); + double fSlow28 = (fSlow27 + (fConst7 / fSlow7)); + double fSlow29 = (1.0 / fSlow25); + double fSlow30 = (25.837730773933519 * fSlow24); + double fSlow31 = ((fConst7 / fSlow3) + fSlow30); + double fSlow32 = (fConst4 / fSlow7); + double fSlow33 = ((((fSlow10 / fSlow3) + fSlow14) * fSlow7) * (1.0 - double(fCheckbox3))); + double fSlow34 = (1.0 - double(fCheckbox4)); + double fSlow35 = (2.5 * (fSlow16 * fSlow34)); + double fSlow36 = (((fConst8 / fSlow3) + (3.0 * fSlow24)) + 1.0); + double fSlow37 = (1.0 / fSlow36); + double fSlow38 = (12.0 * fSlow24); + double fSlow39 = ((fConst9 / fSlow3) + fSlow38); + double fSlow40 = (1.0 / (((fConst8 / fSlow7) + (3.0 * fSlow22)) + 1.0)); + double fSlow41 = (((fSlow36 * fSlow10) * fSlow7) / fSlow3); + double fSlow42 = (12.0 * fSlow22); + double fSlow43 = (fSlow42 + (fConst9 / fSlow7)); + double fSlow44 = double(fHslider3); + double fSlow45 = cos(fSlow44); + double fSlow46 = cos(fSlow0); + double fSlow47 = (fSlow45 * fSlow46); + double fSlow48 = mydsp_faustpower2_f(fSlow46); + double fSlow49 = ((3.0 * (mydsp_faustpower2_f(fSlow45) * fSlow48)) + -1.0); + double fSlow50 = (2.333333333333333 * (((2.5 * fSlow49) + -2.0) * fSlow17)); + double fSlow51 = (2.5 * (fSlow49 * fSlow34)); + double fSlow52 = cos((fSlow44 + -1.5707963267948966)); + double fSlow53 = (fSlow52 * fSlow46); + double fSlow54 = ((3.0 * (mydsp_faustpower2_f(fSlow52) * fSlow48)) + -1.0); + double fSlow55 = (2.333333333333333 * (((2.5 * fSlow54) + -2.0) * fSlow17)); + double fSlow56 = (2.5 * (fSlow54 * fSlow34)); + double fSlow57 = cos((fSlow44 + -3.1415926535897931)); + double fSlow58 = (fSlow57 * fSlow46); + double fSlow59 = ((3.0 * (mydsp_faustpower2_f(fSlow57) * fSlow48)) + -1.0); + double fSlow60 = (2.333333333333333 * (((2.5 * fSlow59) + -2.0) * fSlow17)); + double fSlow61 = (2.5 * (fSlow59 * fSlow34)); + double fSlow62 = cos((fSlow44 + -4.7123889803846897)); + double fSlow63 = (fSlow62 * fSlow46); + double fSlow64 = ((3.0 * (mydsp_faustpower2_f(fSlow62) * fSlow48)) + -1.0); + double fSlow65 = (2.333333333333333 * (((2.5 * fSlow64) + -2.0) * fSlow17)); + double fSlow66 = (2.5 * (fSlow64 * fSlow34)); + double fSlow67 = ((6.123233995736766e-17 * fSlow47) - fSlow1); + double fSlow68 = ((3.0 * mydsp_faustpower2_f(fSlow67)) + -1.0); + double fSlow69 = (2.333333333333333 * (((2.5 * fSlow68) + -2.0) * fSlow17)); + double fSlow70 = (2.5 * (fSlow68 * fSlow34)); + double fSlow71 = (0.70710678118654757 * fSlow47); + double fSlow72 = (0.70710678118654746 * fSlow1); + double fSlow73 = (fSlow71 + fSlow72); + double fSlow74 = ((3.0 * mydsp_faustpower2_f(fSlow73)) + -1.0); + double fSlow75 = (2.333333333333333 * (((2.5 * fSlow74) + -2.0) * fSlow17)); + double fSlow76 = (2.5 * (fSlow74 * fSlow34)); + double fSlow77 = (0.70710678118654757 * fSlow53); + double fSlow78 = (fSlow72 + fSlow77); + double fSlow79 = ((3.0 * mydsp_faustpower2_f(fSlow78)) + -1.0); + double fSlow80 = (2.333333333333333 * (((2.5 * fSlow79) + -2.0) * fSlow17)); + double fSlow81 = (2.5 * (fSlow79 * fSlow34)); + double fSlow82 = (0.70710678118654757 * fSlow58); + double fSlow83 = (fSlow72 + fSlow82); + double fSlow84 = ((3.0 * mydsp_faustpower2_f(fSlow83)) + -1.0); + double fSlow85 = (2.333333333333333 * (((2.5 * fSlow84) + -2.0) * fSlow17)); + double fSlow86 = (2.5 * (fSlow84 * fSlow34)); + double fSlow87 = (0.70710678118654757 * fSlow63); + double fSlow88 = (fSlow72 + fSlow87); + double fSlow89 = ((3.0 * mydsp_faustpower2_f(fSlow88)) + -1.0); + double fSlow90 = (2.333333333333333 * (((2.5 * fSlow89) + -2.0) * fSlow17)); + double fSlow91 = (2.5 * (fSlow89 * fSlow34)); + double fSlow92 = cos((fSlow44 + -0.78539816339744828)); + double fSlow93 = (fSlow92 * fSlow46); + double fSlow94 = ((3.0 * (mydsp_faustpower2_f(fSlow92) * fSlow48)) + -1.0); + double fSlow95 = (2.333333333333333 * (((2.5 * fSlow94) + -2.0) * fSlow17)); + double fSlow96 = (2.5 * (fSlow94 * fSlow34)); + double fSlow97 = cos((fSlow44 + -2.3561944901923448)); + double fSlow98 = (fSlow97 * fSlow46); + double fSlow99 = ((3.0 * (mydsp_faustpower2_f(fSlow97) * fSlow48)) + -1.0); + double fSlow100 = (2.333333333333333 * (((2.5 * fSlow99) + -2.0) * fSlow17)); + double fSlow101 = (2.5 * (fSlow99 * fSlow34)); + double fSlow102 = cos((fSlow44 + -3.9269908169872414)); + double fSlow103 = (fSlow102 * fSlow46); + double fSlow104 = ((3.0 * (mydsp_faustpower2_f(fSlow102) * fSlow48)) + -1.0); + double fSlow105 = (2.333333333333333 * (((2.5 * fSlow104) + -2.0) * fSlow17)); + double fSlow106 = (2.5 * (fSlow104 * fSlow34)); + double fSlow107 = cos((fSlow44 + -5.497787143782138)); + double fSlow108 = (fSlow107 * fSlow46); + double fSlow109 = ((3.0 * (mydsp_faustpower2_f(fSlow107) * fSlow48)) + -1.0); + double fSlow110 = (2.333333333333333 * (((2.5 * fSlow109) + -2.0) * fSlow17)); + double fSlow111 = (2.5 * (fSlow109 * fSlow34)); + double fSlow112 = (fSlow71 - fSlow72); + double fSlow113 = ((3.0 * mydsp_faustpower2_f(fSlow112)) + -1.0); + double fSlow114 = (2.333333333333333 * (((2.5 * fSlow113) + -2.0) * fSlow17)); + double fSlow115 = (2.5 * (fSlow113 * fSlow34)); + double fSlow116 = (fSlow77 - fSlow72); + double fSlow117 = ((3.0 * mydsp_faustpower2_f(fSlow116)) + -1.0); + double fSlow118 = (2.333333333333333 * (((2.5 * fSlow117) + -2.0) * fSlow17)); + double fSlow119 = (2.5 * (fSlow117 * fSlow34)); + double fSlow120 = (fSlow82 - fSlow72); + double fSlow121 = ((3.0 * mydsp_faustpower2_f(fSlow120)) + -1.0); + double fSlow122 = (2.333333333333333 * (((2.5 * fSlow121) + -2.0) * fSlow17)); + double fSlow123 = (2.5 * (fSlow121 * fSlow34)); + double fSlow124 = (fSlow87 - fSlow72); + double fSlow125 = ((3.0 * mydsp_faustpower2_f(fSlow124)) + -1.0); + double fSlow126 = (2.333333333333333 * (((2.5 * fSlow125) + -2.0) * fSlow17)); + double fSlow127 = (2.5 * (fSlow125 * fSlow34)); + double fSlow128 = (0.81649658092772592 * fSlow93); + double fSlow129 = (0.57735026918962584 * fSlow1); + double fSlow130 = (fSlow128 + fSlow129); + double fSlow131 = ((3.0 * mydsp_faustpower2_f(fSlow130)) + -1.0); + double fSlow132 = (2.333333333333333 * (((2.5 * fSlow131) + -2.0) * fSlow17)); + double fSlow133 = (2.5 * (fSlow131 * fSlow34)); + double fSlow134 = (0.81649658092772592 * fSlow98); + double fSlow135 = (fSlow129 + fSlow134); + double fSlow136 = ((3.0 * mydsp_faustpower2_f(fSlow135)) + -1.0); + double fSlow137 = (2.333333333333333 * (((2.5 * fSlow136) + -2.0) * fSlow17)); + double fSlow138 = (2.5 * (fSlow136 * fSlow34)); + double fSlow139 = (0.81649658092772592 * fSlow103); + double fSlow140 = (fSlow129 + fSlow139); + double fSlow141 = ((3.0 * mydsp_faustpower2_f(fSlow140)) + -1.0); + double fSlow142 = (2.333333333333333 * (((2.5 * fSlow141) + -2.0) * fSlow17)); + double fSlow143 = (2.5 * (fSlow141 * fSlow34)); + double fSlow144 = (0.81649658092772592 * fSlow108); + double fSlow145 = (fSlow129 + fSlow144); + double fSlow146 = ((3.0 * mydsp_faustpower2_f(fSlow145)) + -1.0); + double fSlow147 = (2.333333333333333 * (((2.5 * fSlow146) + -2.0) * fSlow17)); + double fSlow148 = (2.5 * (fSlow146 * fSlow34)); + double fSlow149 = (fSlow128 - fSlow129); + double fSlow150 = ((3.0 * mydsp_faustpower2_f(fSlow149)) + -1.0); + double fSlow151 = (2.333333333333333 * (((2.5 * fSlow150) + -2.0) * fSlow17)); + double fSlow152 = (2.5 * (fSlow150 * fSlow34)); + double fSlow153 = (fSlow134 - fSlow129); + double fSlow154 = ((3.0 * mydsp_faustpower2_f(fSlow153)) + -1.0); + double fSlow155 = (2.333333333333333 * (((2.5 * fSlow154) + -2.0) * fSlow17)); + double fSlow156 = (2.5 * (fSlow154 * fSlow34)); + double fSlow157 = (fSlow139 - fSlow129); + double fSlow158 = ((3.0 * mydsp_faustpower2_f(fSlow157)) + -1.0); + double fSlow159 = (2.333333333333333 * (((2.5 * fSlow158) + -2.0) * fSlow17)); + double fSlow160 = (2.5 * (fSlow158 * fSlow34)); + double fSlow161 = (fSlow144 - fSlow129); + double fSlow162 = ((3.0 * mydsp_faustpower2_f(fSlow161)) + -1.0); + double fSlow163 = (2.333333333333333 * (((2.5 * fSlow162) + -2.0) * fSlow17)); + double fSlow164 = (2.5 * (fSlow162 * fSlow34)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec3[0] = (fSlow12 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input0[i])); + fRec4[0] = (fRec4[1] + fRec2[1]); + fRec2[0] = (fSlow9 * ((fSlow11 * fTemp0) - (fSlow13 * fRec4[0]))); + fRec1[0] = (fRec2[0] + fRec1[1]); + double fTemp1 = (fSlow15 * fTemp0); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow9 * (fTemp1 - (fSlow13 * fRec6[0]))); + double fTemp2 = (fSlow2 * ((fSlow6 * (fRec1[0] - fRec2[0])) + (fRec2[0] + fRec5[0]))); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec9[0] = (fSlow23 * ((fSlow26 * fTemp0) - ((fSlow28 * fRec10[0]) + (fSlow27 * fRec11[0])))); + fRec12[0] = (fRec9[0] + fRec12[1]); + double fTemp3 = (fRec12[0] - fRec9[0]); + fVec0[0] = fTemp3; + fRec13[0] = (fRec13[1] + fVec0[1]); + fRec14[0] = (fRec14[1] + fRec8[1]); + fRec8[0] = (fSlow21 * ((fSlow19 * (fRec9[0] + (fSlow29 * ((fSlow31 * fTemp3) + (fSlow30 * fRec13[0]))))) - (fSlow32 * fRec14[0]))); + fRec7[0] = (fRec8[0] + fRec7[1]); + fRec17[0] = (fRec17[1] + fRec16[1]); + fRec18[0] = (fRec18[1] + fRec17[1]); + fRec16[0] = (fSlow23 * (fTemp1 - ((fSlow28 * fRec17[0]) + (fSlow27 * fRec18[0])))); + fRec19[0] = (fRec19[1] + fRec15[1]); + fRec15[0] = (fSlow21 * (fRec16[0] - (fSlow32 * fRec19[0]))); + double fTemp4 = ((fSlow20 * (fRec7[0] - fRec8[0])) + (fRec8[0] + fRec15[0])); + double fTemp5 = (fSlow33 * fTemp0); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec21[0] = (fSlow40 * ((fSlow41 * fTemp0) - ((fSlow43 * fRec22[0]) + (fSlow42 * fRec23[0])))); + fRec20[0] = (fRec21[0] + fRec20[1]); + double fTemp6 = (fRec20[0] - fRec21[0]); + fVec1[0] = fTemp6; + fRec24[0] = (fRec24[1] + fVec1[1]); + fRec26[0] = (fRec26[1] + fRec25[1]); + fRec27[0] = (fRec27[1] + fRec26[1]); + fRec25[0] = (fSlow40 * (fTemp1 - ((fSlow43 * fRec26[0]) + (fSlow42 * fRec27[0])))); + double fTemp7 = ((fSlow37 * ((fSlow39 * fTemp6) + (fSlow38 * fRec24[0]))) + (fRec21[0] + fRec25[0])); + double fTemp8 = (0.047619047619047623 * ((fSlow1 * (fTemp2 + (fSlow18 * fTemp4))) + (fTemp5 + (fSlow35 * fTemp7)))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (0.047619047619047623 * ((fSlow47 * (fTemp2 + (fSlow50 * fTemp4))) + (fTemp5 + (fSlow51 * fTemp7)))); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph1 = FAUSTFLOAT(fRec28[0]); + output1[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (0.047619047619047623 * ((fSlow53 * (fTemp2 + (fSlow55 * fTemp4))) + (fTemp5 + (fSlow56 * fTemp7)))); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph2 = FAUSTFLOAT(fRec29[0]); + output2[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (0.047619047619047623 * ((fSlow58 * (fTemp2 + (fSlow60 * fTemp4))) + (fTemp5 + (fSlow61 * fTemp7)))); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph3 = FAUSTFLOAT(fRec30[0]); + output3[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.047619047619047623 * ((fSlow63 * (fTemp2 + (fSlow65 * fTemp4))) + (fTemp5 + (fSlow66 * fTemp7)))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph4 = FAUSTFLOAT(fRec31[0]); + output4[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.047619047619047623 * ((fSlow67 * (fTemp2 + (fSlow69 * fTemp4))) + (fTemp5 + (fSlow70 * fTemp7)))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph5 = FAUSTFLOAT(fRec32[0]); + output5[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.038095238095238099 * ((fSlow73 * (fTemp2 + (fSlow75 * fTemp4))) + (fTemp5 + (fSlow76 * fTemp7)))); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph6 = FAUSTFLOAT(fRec33[0]); + output6[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.038095238095238099 * ((fSlow78 * (fTemp2 + (fSlow80 * fTemp4))) + (fTemp5 + (fSlow81 * fTemp7)))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph7 = FAUSTFLOAT(fRec34[0]); + output7[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.038095238095238099 * ((fSlow83 * (fTemp2 + (fSlow85 * fTemp4))) + (fTemp5 + (fSlow86 * fTemp7)))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph8 = FAUSTFLOAT(fRec35[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.038095238095238099 * ((fSlow88 * (fTemp2 + (fSlow90 * fTemp4))) + (fTemp5 + (fSlow91 * fTemp7)))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph9 = FAUSTFLOAT(fRec36[0]); + output9[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.038095238095238099 * ((fSlow93 * (fTemp2 + (fSlow95 * fTemp4))) + (fTemp5 + (fSlow96 * fTemp7)))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph10 = FAUSTFLOAT(fRec37[0]); + output10[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.038095238095238099 * ((fSlow98 * (fTemp2 + (fSlow100 * fTemp4))) + (fTemp5 + (fSlow101 * fTemp7)))); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph11 = FAUSTFLOAT(fRec38[0]); + output11[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.038095238095238099 * ((fSlow103 * (fTemp2 + (fSlow105 * fTemp4))) + (fTemp5 + (fSlow106 * fTemp7)))); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph12 = FAUSTFLOAT(fRec39[0]); + output12[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.038095238095238099 * ((fSlow108 * (fTemp2 + (fSlow110 * fTemp4))) + (fTemp5 + (fSlow111 * fTemp7)))); + fRec40[0] = max((fRec40[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph13 = FAUSTFLOAT(fRec40[0]); + output13[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.038095238095238099 * ((fSlow112 * (fTemp2 + (fSlow114 * fTemp4))) + (fTemp5 + (fSlow115 * fTemp7)))); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph14 = FAUSTFLOAT(fRec41[0]); + output14[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.038095238095238099 * ((fSlow116 * (fTemp2 + (fSlow118 * fTemp4))) + (fTemp5 + (fSlow119 * fTemp7)))); + fRec42[0] = max((fRec42[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph15 = FAUSTFLOAT(fRec42[0]); + output15[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.038095238095238099 * ((fSlow120 * (fTemp2 + (fSlow122 * fTemp4))) + (fTemp5 + (fSlow123 * fTemp7)))); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph16 = FAUSTFLOAT(fRec43[0]); + output16[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.038095238095238099 * ((fSlow124 * (fTemp2 + (fSlow126 * fTemp4))) + (fTemp5 + (fSlow127 * fTemp7)))); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph17 = FAUSTFLOAT(fRec44[0]); + output17[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.03214285714285714 * ((fSlow130 * (fTemp2 + (fSlow132 * fTemp4))) + (fTemp5 + (fSlow133 * fTemp7)))); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph18 = FAUSTFLOAT(fRec45[0]); + output18[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.03214285714285714 * ((fSlow135 * (fTemp2 + (fSlow137 * fTemp4))) + (fTemp5 + (fSlow138 * fTemp7)))); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph19 = FAUSTFLOAT(fRec46[0]); + output19[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.03214285714285714 * ((fSlow140 * (fTemp2 + (fSlow142 * fTemp4))) + (fTemp5 + (fSlow143 * fTemp7)))); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph20 = FAUSTFLOAT(fRec47[0]); + output20[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.03214285714285714 * ((fSlow145 * (fTemp2 + (fSlow147 * fTemp4))) + (fTemp5 + (fSlow148 * fTemp7)))); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph21 = FAUSTFLOAT(fRec48[0]); + output21[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.03214285714285714 * ((fSlow149 * (fTemp2 + (fSlow151 * fTemp4))) + (fTemp5 + (fSlow152 * fTemp7)))); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph22 = FAUSTFLOAT(fRec49[0]); + output22[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.03214285714285714 * ((fSlow153 * (fTemp2 + (fSlow155 * fTemp4))) + (fTemp5 + (fSlow156 * fTemp7)))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph23 = FAUSTFLOAT(fRec50[0]); + output23[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (0.03214285714285714 * ((fSlow157 * (fTemp2 + (fSlow159 * fTemp4))) + (fTemp5 + (fSlow160 * fTemp7)))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph24 = FAUSTFLOAT(fRec51[0]); + output24[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (0.03214285714285714 * ((fSlow161 * (fTemp2 + (fSlow163 * fTemp4))) + (fTemp5 + (fSlow164 * fTemp7)))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph25 = FAUSTFLOAT(fRec52[0]); + output25[i] = FAUSTFLOAT(fTemp33); + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec2[1] = fRec2[0]; + fRec1[1] = fRec1[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec9[1] = fRec9[0]; + fRec12[1] = fRec12[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec15[1] = fRec15[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fVec1[1] = fVec1[0]; + fRec24[1] = fRec24[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec25[1] = fRec25[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev501.cpp b/source/HOAUGens/HOAPanLebedev501.cpp new file mode 100644 index 0000000000..ceca57babf --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev501.cpp @@ -0,0 +1,2360 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev501" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider1; + double fRec1[2]; + FAUSTFLOAT fCheckbox2; + FAUSTFLOAT fHslider2; + double fConst2; + double fConst3; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + double fRec6[2]; + double fRec5[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec7[2]; + FAUSTFLOAT fVbargraph1; + double fRec8[2]; + FAUSTFLOAT fVbargraph2; + double fRec9[2]; + FAUSTFLOAT fVbargraph3; + double fRec10[2]; + FAUSTFLOAT fVbargraph4; + double fRec11[2]; + FAUSTFLOAT fVbargraph5; + double fRec12[2]; + FAUSTFLOAT fVbargraph6; + double fRec13[2]; + FAUSTFLOAT fVbargraph7; + double fRec14[2]; + FAUSTFLOAT fVbargraph8; + double fRec15[2]; + FAUSTFLOAT fVbargraph9; + double fRec16[2]; + FAUSTFLOAT fVbargraph10; + double fRec17[2]; + FAUSTFLOAT fVbargraph11; + double fRec18[2]; + FAUSTFLOAT fVbargraph12; + double fRec19[2]; + FAUSTFLOAT fVbargraph13; + double fRec20[2]; + FAUSTFLOAT fVbargraph14; + double fRec21[2]; + FAUSTFLOAT fVbargraph15; + double fRec22[2]; + FAUSTFLOAT fVbargraph16; + double fRec23[2]; + FAUSTFLOAT fVbargraph17; + double fRec24[2]; + FAUSTFLOAT fVbargraph18; + double fRec25[2]; + FAUSTFLOAT fVbargraph19; + double fRec26[2]; + FAUSTFLOAT fVbargraph20; + double fRec27[2]; + FAUSTFLOAT fVbargraph21; + double fRec28[2]; + FAUSTFLOAT fVbargraph22; + double fRec29[2]; + FAUSTFLOAT fVbargraph23; + double fRec30[2]; + FAUSTFLOAT fVbargraph24; + double fRec31[2]; + FAUSTFLOAT fVbargraph25; + double fRec32[2]; + FAUSTFLOAT fVbargraph26; + double fRec33[2]; + FAUSTFLOAT fVbargraph27; + double fRec34[2]; + FAUSTFLOAT fVbargraph28; + double fRec35[2]; + FAUSTFLOAT fVbargraph29; + double fRec36[2]; + FAUSTFLOAT fVbargraph30; + double fRec37[2]; + FAUSTFLOAT fVbargraph31; + double fRec38[2]; + FAUSTFLOAT fVbargraph32; + double fRec39[2]; + FAUSTFLOAT fVbargraph33; + double fRec40[2]; + FAUSTFLOAT fVbargraph34; + double fRec41[2]; + FAUSTFLOAT fVbargraph35; + double fRec42[2]; + FAUSTFLOAT fVbargraph36; + double fRec43[2]; + FAUSTFLOAT fVbargraph37; + double fRec44[2]; + FAUSTFLOAT fVbargraph38; + double fRec45[2]; + FAUSTFLOAT fVbargraph39; + double fRec46[2]; + FAUSTFLOAT fVbargraph40; + double fRec47[2]; + FAUSTFLOAT fVbargraph41; + double fRec48[2]; + FAUSTFLOAT fVbargraph42; + double fRec49[2]; + FAUSTFLOAT fVbargraph43; + double fRec50[2]; + FAUSTFLOAT fVbargraph44; + double fRec51[2]; + FAUSTFLOAT fVbargraph45; + double fRec52[2]; + FAUSTFLOAT fVbargraph46; + double fRec53[2]; + FAUSTFLOAT fVbargraph47; + double fRec54[2]; + FAUSTFLOAT fVbargraph48; + double fRec55[2]; + FAUSTFLOAT fVbargraph49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev501"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec0[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec7[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec9[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fRec10[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec12[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec13[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec14[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec15[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec16[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec17[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec18[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec19[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec20[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec21[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec22[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec23[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec24[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec25[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec28[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec29[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec30[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec33[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec37[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec38[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec39[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec40[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec41[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec42[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec43[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec44[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec45[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec46[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec47[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec48[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec49[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec50[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec51[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec52[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec54[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec55[l55] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev501"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox1); + ui_interface->addCheckButton("1", &fCheckbox2); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2933c20", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x293b7d0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2941ed0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29486b0", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x294ef70", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29556a0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x295c460", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2962b80", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2969380", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x296fc60", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2976a60", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x297d940", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2984900", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x298b9a0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2992110", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2998960", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x299f290", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29a5ca0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29ad6c0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29b4a70", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29bbf00", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29c3470", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29ca2e0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29d1230", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29d8260", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29df370", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph26, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29e6860", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph27, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29eca20", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph28, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29f2cc0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph29, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x29f9040", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph30, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a00600", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph31, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a07510", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph32, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a0e500", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph33, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a155d0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph34, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a1c780", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph35, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a23a10", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph36, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a2ad80", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph37, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a321d0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph38, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a38940", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph39, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a3f1a0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph40, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a45ad0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph41, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a4c4e0", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph42, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a52fd0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph43, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a59ba0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph44, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a60850", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph45, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a675e0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph46, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a6e450", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph47, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a753a0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph48, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a7c3d0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph49, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a834e0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fHslider0); + double fSlow2 = (1.0 - fSlow0); + double fSlow3 = double(fEntry0); + double fSlow4 = ((((fSlow0 / fSlow1) + fSlow2) * fSlow3) * (1.0 - double(fCheckbox1))); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = (1.0 - double(fCheckbox2)); + double fSlow7 = double(fHslider2); + double fSlow8 = sin(fSlow7); + double fSlow9 = (3.0 * (fSlow6 * fSlow8)); + double fSlow10 = ((fConst3 / fSlow1) + 1.0); + double fSlow11 = (fConst2 / (fSlow10 * fSlow1)); + double fSlow12 = (1.0 / ((fConst3 / fSlow3) + 1.0)); + double fSlow13 = (((fSlow10 * fSlow0) * fSlow3) / fSlow1); + double fSlow14 = (fConst2 / fSlow3); + double fSlow15 = (fSlow2 * fSlow3); + double fSlow16 = double(fHslider3); + double fSlow17 = cos(fSlow16); + double fSlow18 = cos(fSlow7); + double fSlow19 = (3.0 * ((fSlow17 * fSlow6) * fSlow18)); + double fSlow20 = cos((fSlow16 + -1.5707963267948966)); + double fSlow21 = (3.0 * ((fSlow20 * fSlow6) * fSlow18)); + double fSlow22 = cos((fSlow16 + -3.1415926535897931)); + double fSlow23 = (3.0 * ((fSlow22 * fSlow6) * fSlow18)); + double fSlow24 = cos((fSlow16 + -4.7123889803846897)); + double fSlow25 = (3.0 * ((fSlow24 * fSlow6) * fSlow18)); + double fSlow26 = (fSlow17 * fSlow18); + double fSlow27 = (3.0 * (((6.123233995736766e-17 * fSlow26) - fSlow8) * fSlow6)); + double fSlow28 = (0.70710678118654757 * fSlow26); + double fSlow29 = (0.70710678118654746 * fSlow8); + double fSlow30 = (3.0 * ((fSlow28 + fSlow29) * fSlow6)); + double fSlow31 = (0.70710678118654757 * (fSlow20 * fSlow18)); + double fSlow32 = (3.0 * ((fSlow29 + fSlow31) * fSlow6)); + double fSlow33 = (0.70710678118654757 * (fSlow22 * fSlow18)); + double fSlow34 = (3.0 * ((fSlow29 + fSlow33) * fSlow6)); + double fSlow35 = (0.70710678118654757 * (fSlow24 * fSlow18)); + double fSlow36 = (3.0 * ((fSlow29 + fSlow35) * fSlow6)); + double fSlow37 = cos((fSlow16 + -0.78539816339744828)); + double fSlow38 = (3.0 * ((fSlow37 * fSlow6) * fSlow18)); + double fSlow39 = cos((fSlow16 + -2.3561944901923448)); + double fSlow40 = (3.0 * ((fSlow39 * fSlow6) * fSlow18)); + double fSlow41 = cos((fSlow16 + -3.9269908169872414)); + double fSlow42 = (3.0 * ((fSlow41 * fSlow6) * fSlow18)); + double fSlow43 = cos((fSlow16 + -5.497787143782138)); + double fSlow44 = (3.0 * ((fSlow43 * fSlow6) * fSlow18)); + double fSlow45 = (3.0 * ((fSlow28 - fSlow29) * fSlow6)); + double fSlow46 = (3.0 * ((fSlow31 - fSlow29) * fSlow6)); + double fSlow47 = (3.0 * ((fSlow33 - fSlow29) * fSlow6)); + double fSlow48 = (3.0 * ((fSlow35 - fSlow29) * fSlow6)); + double fSlow49 = (0.81649658092772592 * (fSlow37 * fSlow18)); + double fSlow50 = (0.57735026918962584 * fSlow8); + double fSlow51 = (3.0 * ((fSlow49 + fSlow50) * fSlow6)); + double fSlow52 = (fSlow39 * fSlow18); + double fSlow53 = (0.81649658092772592 * fSlow52); + double fSlow54 = (3.0 * ((fSlow50 + fSlow53) * fSlow6)); + double fSlow55 = (fSlow41 * fSlow18); + double fSlow56 = (0.81649658092772592 * fSlow55); + double fSlow57 = (3.0 * ((fSlow50 + fSlow56) * fSlow6)); + double fSlow58 = (fSlow43 * fSlow18); + double fSlow59 = (0.81649658092772592 * fSlow58); + double fSlow60 = (3.0 * ((fSlow50 + fSlow59) * fSlow6)); + double fSlow61 = (3.0 * ((fSlow49 - fSlow50) * fSlow6)); + double fSlow62 = (3.0 * ((fSlow53 - fSlow50) * fSlow6)); + double fSlow63 = (3.0 * ((fSlow56 - fSlow50) * fSlow6)); + double fSlow64 = (3.0 * ((fSlow59 - fSlow50) * fSlow6)); + double fSlow65 = (0.42640143271122027 * (cos((fSlow16 + -0.78539816339744839)) * fSlow18)); + double fSlow66 = (0.90453403373329111 * fSlow8); + double fSlow67 = (3.0 * ((fSlow65 + fSlow66) * fSlow6)); + double fSlow68 = (0.42640143271122027 * fSlow52); + double fSlow69 = (3.0 * ((fSlow66 + fSlow68) * fSlow6)); + double fSlow70 = (0.42640143271122027 * fSlow55); + double fSlow71 = (3.0 * ((fSlow66 + fSlow70) * fSlow6)); + double fSlow72 = (0.42640143271122027 * fSlow58); + double fSlow73 = (3.0 * ((fSlow66 + fSlow72) * fSlow6)); + double fSlow74 = (0.95346258924559235 * (cos((fSlow16 + -0.32175055439664263)) * fSlow18)); + double fSlow75 = (0.30151134457776352 * fSlow8); + double fSlow76 = (3.0 * ((fSlow74 + fSlow75) * fSlow6)); + double fSlow77 = (0.95346258924559235 * (cos((fSlow16 + -1.2490457723982544)) * fSlow18)); + double fSlow78 = (3.0 * ((fSlow75 + fSlow77) * fSlow6)); + double fSlow79 = (0.95346258924559235 * (cos((fSlow16 + -1.8925468811915387)) * fSlow18)); + double fSlow80 = (3.0 * ((fSlow75 + fSlow79) * fSlow6)); + double fSlow81 = (0.95346258924559235 * (cos((fSlow16 + -2.8198420991931505)) * fSlow18)); + double fSlow82 = (3.0 * ((fSlow75 + fSlow81) * fSlow6)); + double fSlow83 = (0.95346258924559235 * (cos((fSlow16 + -3.4633432079864357)) * fSlow18)); + double fSlow84 = (3.0 * ((fSlow75 + fSlow83) * fSlow6)); + double fSlow85 = (0.95346258924559235 * (cos((fSlow16 + -4.3906384259880475)) * fSlow18)); + double fSlow86 = (3.0 * ((fSlow75 + fSlow85) * fSlow6)); + double fSlow87 = (0.95346258924559235 * (cos((fSlow16 + -5.0341395347813318)) * fSlow18)); + double fSlow88 = (3.0 * ((fSlow75 + fSlow87) * fSlow6)); + double fSlow89 = (0.95346258924559235 * (cos((fSlow16 + -5.9614347527829432)) * fSlow18)); + double fSlow90 = (3.0 * ((fSlow75 + fSlow89) * fSlow6)); + double fSlow91 = (3.0 * ((fSlow74 - fSlow75) * fSlow6)); + double fSlow92 = (3.0 * ((fSlow77 - fSlow75) * fSlow6)); + double fSlow93 = (3.0 * ((fSlow79 - fSlow75) * fSlow6)); + double fSlow94 = (3.0 * ((fSlow81 - fSlow75) * fSlow6)); + double fSlow95 = (3.0 * ((fSlow83 - fSlow75) * fSlow6)); + double fSlow96 = (3.0 * ((fSlow85 - fSlow75) * fSlow6)); + double fSlow97 = (3.0 * ((fSlow87 - fSlow75) * fSlow6)); + double fSlow98 = (3.0 * ((fSlow89 - fSlow75) * fSlow6)); + double fSlow99 = (3.0 * ((fSlow65 - fSlow66) * fSlow6)); + double fSlow100 = (3.0 * ((fSlow68 - fSlow66) * fSlow6)); + double fSlow101 = (3.0 * ((fSlow70 - fSlow66) * fSlow6)); + double fSlow102 = (3.0 * ((fSlow72 - fSlow66) * fSlow6)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec4[0] = (fRec4[1] + fRec3[1]); + fRec3[0] = (fSlow12 * ((fSlow13 * fTemp0) - (fSlow14 * fRec4[0]))); + fRec2[0] = (fRec3[0] + fRec2[1]); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow12 * ((fSlow15 * fTemp0) - (fSlow14 * fRec6[0]))); + double fTemp2 = ((fSlow11 * (fRec2[0] - fRec3[0])) + (fRec3[0] + fRec5[0])); + double fTemp3 = (0.012698412698412698 * (fTemp1 + (fSlow9 * fTemp2))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp3)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp3); + double fTemp4 = (0.012698412698412698 * (fTemp1 + (fSlow19 * fTemp2))); + fRec7[0] = max((fRec7[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp4)))))); + fVbargraph1 = FAUSTFLOAT(fRec7[0]); + output1[i] = FAUSTFLOAT(fTemp4); + double fTemp5 = (0.012698412698412698 * (fTemp1 + (fSlow21 * fTemp2))); + fRec8[0] = max((fRec8[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp5)))))); + fVbargraph2 = FAUSTFLOAT(fRec8[0]); + output2[i] = FAUSTFLOAT(fTemp5); + double fTemp6 = (0.012698412698412698 * (fTemp1 + (fSlow23 * fTemp2))); + fRec9[0] = max((fRec9[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph3 = FAUSTFLOAT(fRec9[0]); + output3[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = (0.012698412698412698 * (fTemp1 + (fSlow25 * fTemp2))); + fRec10[0] = max((fRec10[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph4 = FAUSTFLOAT(fRec10[0]); + output4[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = (0.012698412698412698 * (fTemp1 + (fSlow27 * fTemp2))); + fRec11[0] = max((fRec11[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph5 = FAUSTFLOAT(fRec11[0]); + output5[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (0.022574955908289243 * (fTemp1 + (fSlow30 * fTemp2))); + fRec12[0] = max((fRec12[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph6 = FAUSTFLOAT(fRec12[0]); + output6[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (0.022574955908289243 * (fTemp1 + (fSlow32 * fTemp2))); + fRec13[0] = max((fRec13[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph7 = FAUSTFLOAT(fRec13[0]); + output7[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (0.022574955908289243 * (fTemp1 + (fSlow34 * fTemp2))); + fRec14[0] = max((fRec14[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph8 = FAUSTFLOAT(fRec14[0]); + output8[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.022574955908289243 * (fTemp1 + (fSlow36 * fTemp2))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph9 = FAUSTFLOAT(fRec15[0]); + output9[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.022574955908289243 * (fTemp1 + (fSlow38 * fTemp2))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph10 = FAUSTFLOAT(fRec16[0]); + output10[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.022574955908289243 * (fTemp1 + (fSlow40 * fTemp2))); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph11 = FAUSTFLOAT(fRec17[0]); + output11[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.022574955908289243 * (fTemp1 + (fSlow42 * fTemp2))); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph12 = FAUSTFLOAT(fRec18[0]); + output12[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.022574955908289243 * (fTemp1 + (fSlow44 * fTemp2))); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph13 = FAUSTFLOAT(fRec19[0]); + output13[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.022574955908289243 * (fTemp1 + (fSlow45 * fTemp2))); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph14 = FAUSTFLOAT(fRec20[0]); + output14[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.022574955908289243 * (fTemp1 + (fSlow46 * fTemp2))); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph15 = FAUSTFLOAT(fRec21[0]); + output15[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.022574955908289243 * (fTemp1 + (fSlow47 * fTemp2))); + fRec22[0] = max((fRec22[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph16 = FAUSTFLOAT(fRec22[0]); + output16[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.022574955908289243 * (fTemp1 + (fSlow48 * fTemp2))); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph17 = FAUSTFLOAT(fRec23[0]); + output17[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.021093750000000001 * (fTemp1 + (fSlow51 * fTemp2))); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph18 = FAUSTFLOAT(fRec24[0]); + output18[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.021093750000000001 * (fTemp1 + (fSlow54 * fTemp2))); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph19 = FAUSTFLOAT(fRec25[0]); + output19[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.021093750000000001 * (fTemp1 + (fSlow57 * fTemp2))); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph20 = FAUSTFLOAT(fRec26[0]); + output20[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.021093750000000001 * (fTemp1 + (fSlow60 * fTemp2))); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph21 = FAUSTFLOAT(fRec27[0]); + output21[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.021093750000000001 * (fTemp1 + (fSlow61 * fTemp2))); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph22 = FAUSTFLOAT(fRec28[0]); + output22[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.021093750000000001 * (fTemp1 + (fSlow62 * fTemp2))); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph23 = FAUSTFLOAT(fRec29[0]); + output23[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.021093750000000001 * (fTemp1 + (fSlow63 * fTemp2))); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph24 = FAUSTFLOAT(fRec30[0]); + output24[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.021093750000000001 * (fTemp1 + (fSlow64 * fTemp2))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph25 = FAUSTFLOAT(fRec31[0]); + output25[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.02017333553791887 * (fTemp1 + (fSlow67 * fTemp2))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph26 = FAUSTFLOAT(fRec32[0]); + output26[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.02017333553791887 * (fTemp1 + (fSlow69 * fTemp2))); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph27 = FAUSTFLOAT(fRec33[0]); + output27[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.02017333553791887 * (fTemp1 + (fSlow71 * fTemp2))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph28 = FAUSTFLOAT(fRec34[0]); + output28[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (0.02017333553791887 * (fTemp1 + (fSlow73 * fTemp2))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph29 = FAUSTFLOAT(fRec35[0]); + output29[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (0.02017333553791887 * (fTemp1 + (fSlow76 * fTemp2))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph30 = FAUSTFLOAT(fRec36[0]); + output30[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (0.02017333553791887 * (fTemp1 + (fSlow78 * fTemp2))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph31 = FAUSTFLOAT(fRec37[0]); + output31[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (0.02017333553791887 * (fTemp1 + (fSlow80 * fTemp2))); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph32 = FAUSTFLOAT(fRec38[0]); + output32[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (0.02017333553791887 * (fTemp1 + (fSlow82 * fTemp2))); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph33 = FAUSTFLOAT(fRec39[0]); + output33[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (0.02017333553791887 * (fTemp1 + (fSlow84 * fTemp2))); + fRec40[0] = max((fRec40[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph34 = FAUSTFLOAT(fRec40[0]); + output34[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (0.02017333553791887 * (fTemp1 + (fSlow86 * fTemp2))); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph35 = FAUSTFLOAT(fRec41[0]); + output35[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (0.02017333553791887 * (fTemp1 + (fSlow88 * fTemp2))); + fRec42[0] = max((fRec42[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph36 = FAUSTFLOAT(fRec42[0]); + output36[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (0.02017333553791887 * (fTemp1 + (fSlow90 * fTemp2))); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph37 = FAUSTFLOAT(fRec43[0]); + output37[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (0.02017333553791887 * (fTemp1 + (fSlow91 * fTemp2))); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph38 = FAUSTFLOAT(fRec44[0]); + output38[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (0.02017333553791887 * (fTemp1 + (fSlow92 * fTemp2))); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph39 = FAUSTFLOAT(fRec45[0]); + output39[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (0.02017333553791887 * (fTemp1 + (fSlow93 * fTemp2))); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph40 = FAUSTFLOAT(fRec46[0]); + output40[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (0.02017333553791887 * (fTemp1 + (fSlow94 * fTemp2))); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph41 = FAUSTFLOAT(fRec47[0]); + output41[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (0.02017333553791887 * (fTemp1 + (fSlow95 * fTemp2))); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph42 = FAUSTFLOAT(fRec48[0]); + output42[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (0.02017333553791887 * (fTemp1 + (fSlow96 * fTemp2))); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph43 = FAUSTFLOAT(fRec49[0]); + output43[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (0.02017333553791887 * (fTemp1 + (fSlow97 * fTemp2))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph44 = FAUSTFLOAT(fRec50[0]); + output44[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (0.02017333553791887 * (fTemp1 + (fSlow98 * fTemp2))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph45 = FAUSTFLOAT(fRec51[0]); + output45[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.02017333553791887 * (fTemp1 + (fSlow99 * fTemp2))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph46 = FAUSTFLOAT(fRec52[0]); + output46[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (0.02017333553791887 * (fTemp1 + (fSlow100 * fTemp2))); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph47 = FAUSTFLOAT(fRec53[0]); + output47[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (0.02017333553791887 * (fTemp1 + (fSlow101 * fTemp2))); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph48 = FAUSTFLOAT(fRec54[0]); + output48[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (0.02017333553791887 * (fTemp1 + (fSlow102 * fTemp2))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph49 = FAUSTFLOAT(fRec55[0]); + output49[i] = FAUSTFLOAT(fTemp52); + fRec1[1] = fRec1[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec0[1] = fRec0[0]; + fRec7[1] = fRec7[0]; + fRec8[1] = fRec8[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec12[1] = fRec12[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev502.cpp b/source/HOAUGens/HOAPanLebedev502.cpp new file mode 100644 index 0000000000..fd1281c03c --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev502.cpp @@ -0,0 +1,2542 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev502" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fCheckbox0; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider1; + double fRec1[2]; + FAUSTFLOAT fCheckbox2; + FAUSTFLOAT fHslider2; + double fConst2; + double fConst3; + double fRec4[2]; + double fRec3[2]; + double fRec2[2]; + double fRec6[2]; + double fRec5[2]; + FAUSTFLOAT fCheckbox3; + double fConst4; + double fConst5; + double fRec9[2]; + double fRec10[2]; + double fRec8[2]; + double fRec7[2]; + double fVec0[2]; + double fRec11[2]; + double fRec13[2]; + double fRec14[2]; + double fRec12[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec15[2]; + FAUSTFLOAT fVbargraph1; + double fRec16[2]; + FAUSTFLOAT fVbargraph2; + double fRec17[2]; + FAUSTFLOAT fVbargraph3; + double fRec18[2]; + FAUSTFLOAT fVbargraph4; + double fRec19[2]; + FAUSTFLOAT fVbargraph5; + double fRec20[2]; + FAUSTFLOAT fVbargraph6; + double fRec21[2]; + FAUSTFLOAT fVbargraph7; + double fRec22[2]; + FAUSTFLOAT fVbargraph8; + double fRec23[2]; + FAUSTFLOAT fVbargraph9; + double fRec24[2]; + FAUSTFLOAT fVbargraph10; + double fRec25[2]; + FAUSTFLOAT fVbargraph11; + double fRec26[2]; + FAUSTFLOAT fVbargraph12; + double fRec27[2]; + FAUSTFLOAT fVbargraph13; + double fRec28[2]; + FAUSTFLOAT fVbargraph14; + double fRec29[2]; + FAUSTFLOAT fVbargraph15; + double fRec30[2]; + FAUSTFLOAT fVbargraph16; + double fRec31[2]; + FAUSTFLOAT fVbargraph17; + double fRec32[2]; + FAUSTFLOAT fVbargraph18; + double fRec33[2]; + FAUSTFLOAT fVbargraph19; + double fRec34[2]; + FAUSTFLOAT fVbargraph20; + double fRec35[2]; + FAUSTFLOAT fVbargraph21; + double fRec36[2]; + FAUSTFLOAT fVbargraph22; + double fRec37[2]; + FAUSTFLOAT fVbargraph23; + double fRec38[2]; + FAUSTFLOAT fVbargraph24; + double fRec39[2]; + FAUSTFLOAT fVbargraph25; + double fRec40[2]; + FAUSTFLOAT fVbargraph26; + double fRec41[2]; + FAUSTFLOAT fVbargraph27; + double fRec42[2]; + FAUSTFLOAT fVbargraph28; + double fRec43[2]; + FAUSTFLOAT fVbargraph29; + double fRec44[2]; + FAUSTFLOAT fVbargraph30; + double fRec45[2]; + FAUSTFLOAT fVbargraph31; + double fRec46[2]; + FAUSTFLOAT fVbargraph32; + double fRec47[2]; + FAUSTFLOAT fVbargraph33; + double fRec48[2]; + FAUSTFLOAT fVbargraph34; + double fRec49[2]; + FAUSTFLOAT fVbargraph35; + double fRec50[2]; + FAUSTFLOAT fVbargraph36; + double fRec51[2]; + FAUSTFLOAT fVbargraph37; + double fRec52[2]; + FAUSTFLOAT fVbargraph38; + double fRec53[2]; + FAUSTFLOAT fVbargraph39; + double fRec54[2]; + FAUSTFLOAT fVbargraph40; + double fRec55[2]; + FAUSTFLOAT fVbargraph41; + double fRec56[2]; + FAUSTFLOAT fVbargraph42; + double fRec57[2]; + FAUSTFLOAT fVbargraph43; + double fRec58[2]; + FAUSTFLOAT fVbargraph44; + double fRec59[2]; + FAUSTFLOAT fVbargraph45; + double fRec60[2]; + FAUSTFLOAT fVbargraph46; + double fRec61[2]; + FAUSTFLOAT fVbargraph47; + double fRec62[2]; + FAUSTFLOAT fVbargraph48; + double fRec63[2]; + FAUSTFLOAT fVbargraph49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev502"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + fConst4 = (510.0 / fConst0); + fConst5 = (1020.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider0 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fCheckbox3 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec1[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec3[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec2[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec9[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec10[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec8[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec7[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fVec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec11[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec13[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec14[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec12[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec0[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec15[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec17[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec18[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec19[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec20[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec21[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec22[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fRec23[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec25[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec26[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec27[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec28[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec29[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec31[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec32[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec33[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec34[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec35[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec36[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec37[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec38[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec39[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec41[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec42[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec43[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec44[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec45[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec46[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec47[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec48[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec49[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec50[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec51[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec52[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec53[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec55[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec56[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec57[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec58[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec59[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec60[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec61[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec62[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec63[l64] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev502"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider1, "0+1", ""); + ui_interface->declare(&fHslider1, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider1, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+2", ""); + ui_interface->declare(&fHslider0, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider0, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider2, "0+4", ""); + ui_interface->declare(&fHslider2, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider2, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox0); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox1); + ui_interface->addCheckButton("1", &fCheckbox2); + ui_interface->addCheckButton("2", &fCheckbox3); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a8dfc0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a97b70", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2a9f960", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2aa7830", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2aaf7e0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ab7630", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2abfb10", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ac7950", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2acf870", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ad7870", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2adfd60", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ae8330", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2af09e0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2af9170", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b01000", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b08f70", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b10fc0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b190f0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b22230", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b2ad00", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b338b0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b3c540", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b44ad0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b4d140", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b55890", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b5e0c0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph26, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b66cd0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph27, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b6e5b0", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph28, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b75f70", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph29, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b7da10", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph30, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b866f0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph31, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b8ed20", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph32, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b97430", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph33, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2b9fc20", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph34, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ba84f0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph35, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bb0ea0", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph36, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bb9930", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph37, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bc24a0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph38, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bca330", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph39, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bd22a0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph40, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bda2f0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph41, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2be2420", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph42, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bea630", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph43, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bf2920", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph44, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2bfacf0", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph45, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c031a0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph46, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c0b730", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph47, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c13da0", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph48, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c1c4f0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph49, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2c24d20", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = double(fCheckbox0); + double fSlow1 = double(fHslider0); + double fSlow2 = (1.0 - fSlow0); + double fSlow3 = double(fEntry0); + double fSlow4 = ((((fSlow0 / fSlow1) + fSlow2) * fSlow3) * (1.0 - double(fCheckbox1))); + double fSlow5 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider1)))); + double fSlow6 = (1.0 - double(fCheckbox2)); + double fSlow7 = double(fHslider2); + double fSlow8 = sin(fSlow7); + double fSlow9 = (3.0 * (fSlow6 * fSlow8)); + double fSlow10 = (fConst3 / fSlow1); + double fSlow11 = (fSlow10 + 1.0); + double fSlow12 = (fConst2 / (fSlow11 * fSlow1)); + double fSlow13 = (fConst3 / fSlow3); + double fSlow14 = (1.0 / (fSlow13 + 1.0)); + double fSlow15 = (((fSlow11 * fSlow0) * fSlow3) / fSlow1); + double fSlow16 = (fConst2 / fSlow3); + double fSlow17 = (fSlow2 * fSlow3); + double fSlow18 = (1.0 - double(fCheckbox3)); + double fSlow19 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow8)) + -1.0) * fSlow18)); + double fSlow20 = mydsp_faustpower2_f(fSlow10); + double fSlow21 = (((fConst4 / fSlow1) + (3.0 * fSlow20)) + 1.0); + double fSlow22 = (1.0 / fSlow21); + double fSlow23 = (12.0 * fSlow20); + double fSlow24 = ((fConst5 / fSlow1) + fSlow23); + double fSlow25 = mydsp_faustpower2_f(fSlow13); + double fSlow26 = (1.0 / (((fConst4 / fSlow3) + (3.0 * fSlow25)) + 1.0)); + double fSlow27 = (((fSlow21 * fSlow0) * fSlow3) / fSlow1); + double fSlow28 = (12.0 * fSlow25); + double fSlow29 = (fSlow28 + (fConst5 / fSlow3)); + double fSlow30 = double(fHslider3); + double fSlow31 = cos(fSlow30); + double fSlow32 = cos(fSlow7); + double fSlow33 = (3.0 * ((fSlow31 * fSlow6) * fSlow32)); + double fSlow34 = mydsp_faustpower2_f(fSlow32); + double fSlow35 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow31) * fSlow34)) + -1.0) * fSlow18)); + double fSlow36 = cos((fSlow30 + -1.5707963267948966)); + double fSlow37 = (3.0 * ((fSlow36 * fSlow6) * fSlow32)); + double fSlow38 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow36) * fSlow34)) + -1.0) * fSlow18)); + double fSlow39 = cos((fSlow30 + -3.1415926535897931)); + double fSlow40 = (3.0 * ((fSlow39 * fSlow6) * fSlow32)); + double fSlow41 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow39) * fSlow34)) + -1.0) * fSlow18)); + double fSlow42 = cos((fSlow30 + -4.7123889803846897)); + double fSlow43 = (3.0 * ((fSlow42 * fSlow6) * fSlow32)); + double fSlow44 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow42) * fSlow34)) + -1.0) * fSlow18)); + double fSlow45 = (fSlow31 * fSlow32); + double fSlow46 = ((6.123233995736766e-17 * fSlow45) - fSlow8); + double fSlow47 = (3.0 * (fSlow46 * fSlow6)); + double fSlow48 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow46)) + -1.0) * fSlow18)); + double fSlow49 = (0.70710678118654757 * fSlow45); + double fSlow50 = (0.70710678118654746 * fSlow8); + double fSlow51 = (fSlow49 + fSlow50); + double fSlow52 = (3.0 * (fSlow51 * fSlow6)); + double fSlow53 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow51)) + -1.0) * fSlow18)); + double fSlow54 = (0.70710678118654757 * (fSlow36 * fSlow32)); + double fSlow55 = (fSlow50 + fSlow54); + double fSlow56 = (3.0 * (fSlow55 * fSlow6)); + double fSlow57 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow55)) + -1.0) * fSlow18)); + double fSlow58 = (0.70710678118654757 * (fSlow39 * fSlow32)); + double fSlow59 = (fSlow50 + fSlow58); + double fSlow60 = (3.0 * (fSlow59 * fSlow6)); + double fSlow61 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow59)) + -1.0) * fSlow18)); + double fSlow62 = (0.70710678118654757 * (fSlow42 * fSlow32)); + double fSlow63 = (fSlow50 + fSlow62); + double fSlow64 = (3.0 * (fSlow63 * fSlow6)); + double fSlow65 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow63)) + -1.0) * fSlow18)); + double fSlow66 = cos((fSlow30 + -0.78539816339744828)); + double fSlow67 = (3.0 * ((fSlow66 * fSlow6) * fSlow32)); + double fSlow68 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow66) * fSlow34)) + -1.0) * fSlow18)); + double fSlow69 = cos((fSlow30 + -2.3561944901923448)); + double fSlow70 = (3.0 * ((fSlow69 * fSlow6) * fSlow32)); + double fSlow71 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow69) * fSlow34)) + -1.0) * fSlow18)); + double fSlow72 = cos((fSlow30 + -3.9269908169872414)); + double fSlow73 = (3.0 * ((fSlow72 * fSlow6) * fSlow32)); + double fSlow74 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow72) * fSlow34)) + -1.0) * fSlow18)); + double fSlow75 = cos((fSlow30 + -5.497787143782138)); + double fSlow76 = (3.0 * ((fSlow75 * fSlow6) * fSlow32)); + double fSlow77 = (2.5 * (((3.0 * (mydsp_faustpower2_f(fSlow75) * fSlow34)) + -1.0) * fSlow18)); + double fSlow78 = (fSlow49 - fSlow50); + double fSlow79 = (3.0 * (fSlow78 * fSlow6)); + double fSlow80 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow78)) + -1.0) * fSlow18)); + double fSlow81 = (fSlow54 - fSlow50); + double fSlow82 = (3.0 * (fSlow81 * fSlow6)); + double fSlow83 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow81)) + -1.0) * fSlow18)); + double fSlow84 = (fSlow58 - fSlow50); + double fSlow85 = (3.0 * (fSlow84 * fSlow6)); + double fSlow86 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow84)) + -1.0) * fSlow18)); + double fSlow87 = (fSlow62 - fSlow50); + double fSlow88 = (3.0 * (fSlow87 * fSlow6)); + double fSlow89 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow87)) + -1.0) * fSlow18)); + double fSlow90 = (0.81649658092772592 * (fSlow66 * fSlow32)); + double fSlow91 = (0.57735026918962584 * fSlow8); + double fSlow92 = (fSlow90 + fSlow91); + double fSlow93 = (3.0 * (fSlow92 * fSlow6)); + double fSlow94 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow92)) + -1.0) * fSlow18)); + double fSlow95 = (fSlow69 * fSlow32); + double fSlow96 = (0.81649658092772592 * fSlow95); + double fSlow97 = (fSlow91 + fSlow96); + double fSlow98 = (3.0 * (fSlow97 * fSlow6)); + double fSlow99 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow97)) + -1.0) * fSlow18)); + double fSlow100 = (fSlow72 * fSlow32); + double fSlow101 = (0.81649658092772592 * fSlow100); + double fSlow102 = (fSlow91 + fSlow101); + double fSlow103 = (3.0 * (fSlow102 * fSlow6)); + double fSlow104 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow102)) + -1.0) * fSlow18)); + double fSlow105 = (fSlow75 * fSlow32); + double fSlow106 = (0.81649658092772592 * fSlow105); + double fSlow107 = (fSlow91 + fSlow106); + double fSlow108 = (3.0 * (fSlow107 * fSlow6)); + double fSlow109 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow107)) + -1.0) * fSlow18)); + double fSlow110 = (fSlow90 - fSlow91); + double fSlow111 = (3.0 * (fSlow110 * fSlow6)); + double fSlow112 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow110)) + -1.0) * fSlow18)); + double fSlow113 = (fSlow96 - fSlow91); + double fSlow114 = (3.0 * (fSlow113 * fSlow6)); + double fSlow115 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow113)) + -1.0) * fSlow18)); + double fSlow116 = (fSlow101 - fSlow91); + double fSlow117 = (3.0 * (fSlow116 * fSlow6)); + double fSlow118 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow116)) + -1.0) * fSlow18)); + double fSlow119 = (fSlow106 - fSlow91); + double fSlow120 = (3.0 * (fSlow119 * fSlow6)); + double fSlow121 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow119)) + -1.0) * fSlow18)); + double fSlow122 = (0.42640143271122027 * (cos((fSlow30 + -0.78539816339744839)) * fSlow32)); + double fSlow123 = (0.90453403373329111 * fSlow8); + double fSlow124 = (fSlow122 + fSlow123); + double fSlow125 = (3.0 * (fSlow124 * fSlow6)); + double fSlow126 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow124)) + -1.0) * fSlow18)); + double fSlow127 = (0.42640143271122027 * fSlow95); + double fSlow128 = (fSlow123 + fSlow127); + double fSlow129 = (3.0 * (fSlow128 * fSlow6)); + double fSlow130 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow128)) + -1.0) * fSlow18)); + double fSlow131 = (0.42640143271122027 * fSlow100); + double fSlow132 = (fSlow123 + fSlow131); + double fSlow133 = (3.0 * (fSlow132 * fSlow6)); + double fSlow134 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow132)) + -1.0) * fSlow18)); + double fSlow135 = (0.42640143271122027 * fSlow105); + double fSlow136 = (fSlow123 + fSlow135); + double fSlow137 = (3.0 * (fSlow136 * fSlow6)); + double fSlow138 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow136)) + -1.0) * fSlow18)); + double fSlow139 = (0.95346258924559235 * (cos((fSlow30 + -0.32175055439664263)) * fSlow32)); + double fSlow140 = (0.30151134457776352 * fSlow8); + double fSlow141 = (fSlow139 + fSlow140); + double fSlow142 = (3.0 * (fSlow141 * fSlow6)); + double fSlow143 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow141)) + -1.0) * fSlow18)); + double fSlow144 = (0.95346258924559235 * (cos((fSlow30 + -1.2490457723982544)) * fSlow32)); + double fSlow145 = (fSlow140 + fSlow144); + double fSlow146 = (3.0 * (fSlow145 * fSlow6)); + double fSlow147 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow145)) + -1.0) * fSlow18)); + double fSlow148 = (0.95346258924559235 * (cos((fSlow30 + -1.8925468811915387)) * fSlow32)); + double fSlow149 = (fSlow140 + fSlow148); + double fSlow150 = (3.0 * (fSlow149 * fSlow6)); + double fSlow151 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow149)) + -1.0) * fSlow18)); + double fSlow152 = (0.95346258924559235 * (cos((fSlow30 + -2.8198420991931505)) * fSlow32)); + double fSlow153 = (fSlow140 + fSlow152); + double fSlow154 = (3.0 * (fSlow153 * fSlow6)); + double fSlow155 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow153)) + -1.0) * fSlow18)); + double fSlow156 = (0.95346258924559235 * (cos((fSlow30 + -3.4633432079864357)) * fSlow32)); + double fSlow157 = (fSlow140 + fSlow156); + double fSlow158 = (3.0 * (fSlow157 * fSlow6)); + double fSlow159 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow157)) + -1.0) * fSlow18)); + double fSlow160 = (0.95346258924559235 * (cos((fSlow30 + -4.3906384259880475)) * fSlow32)); + double fSlow161 = (fSlow140 + fSlow160); + double fSlow162 = (3.0 * (fSlow161 * fSlow6)); + double fSlow163 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow161)) + -1.0) * fSlow18)); + double fSlow164 = (0.95346258924559235 * (cos((fSlow30 + -5.0341395347813318)) * fSlow32)); + double fSlow165 = (fSlow140 + fSlow164); + double fSlow166 = (3.0 * (fSlow165 * fSlow6)); + double fSlow167 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow165)) + -1.0) * fSlow18)); + double fSlow168 = (0.95346258924559235 * (cos((fSlow30 + -5.9614347527829432)) * fSlow32)); + double fSlow169 = (fSlow140 + fSlow168); + double fSlow170 = (3.0 * (fSlow169 * fSlow6)); + double fSlow171 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow169)) + -1.0) * fSlow18)); + double fSlow172 = (fSlow139 - fSlow140); + double fSlow173 = (3.0 * (fSlow172 * fSlow6)); + double fSlow174 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow172)) + -1.0) * fSlow18)); + double fSlow175 = (fSlow144 - fSlow140); + double fSlow176 = (3.0 * (fSlow175 * fSlow6)); + double fSlow177 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow175)) + -1.0) * fSlow18)); + double fSlow178 = (fSlow148 - fSlow140); + double fSlow179 = (3.0 * (fSlow178 * fSlow6)); + double fSlow180 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow178)) + -1.0) * fSlow18)); + double fSlow181 = (fSlow152 - fSlow140); + double fSlow182 = (3.0 * (fSlow181 * fSlow6)); + double fSlow183 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow181)) + -1.0) * fSlow18)); + double fSlow184 = (fSlow156 - fSlow140); + double fSlow185 = (3.0 * (fSlow184 * fSlow6)); + double fSlow186 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow184)) + -1.0) * fSlow18)); + double fSlow187 = (fSlow160 - fSlow140); + double fSlow188 = (3.0 * (fSlow187 * fSlow6)); + double fSlow189 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow187)) + -1.0) * fSlow18)); + double fSlow190 = (fSlow164 - fSlow140); + double fSlow191 = (3.0 * (fSlow190 * fSlow6)); + double fSlow192 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow190)) + -1.0) * fSlow18)); + double fSlow193 = (fSlow168 - fSlow140); + double fSlow194 = (3.0 * (fSlow193 * fSlow6)); + double fSlow195 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow193)) + -1.0) * fSlow18)); + double fSlow196 = (fSlow122 - fSlow123); + double fSlow197 = (3.0 * (fSlow196 * fSlow6)); + double fSlow198 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow196)) + -1.0) * fSlow18)); + double fSlow199 = (fSlow127 - fSlow123); + double fSlow200 = (3.0 * (fSlow199 * fSlow6)); + double fSlow201 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow199)) + -1.0) * fSlow18)); + double fSlow202 = (fSlow131 - fSlow123); + double fSlow203 = (3.0 * (fSlow202 * fSlow6)); + double fSlow204 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow202)) + -1.0) * fSlow18)); + double fSlow205 = (fSlow135 - fSlow123); + double fSlow206 = (3.0 * (fSlow205 * fSlow6)); + double fSlow207 = (2.5 * (((3.0 * mydsp_faustpower2_f(fSlow205)) + -1.0) * fSlow18)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec1[0] = (fSlow5 + (0.999 * fRec1[1])); + double fTemp0 = (fRec1[0] * double(input0[i])); + double fTemp1 = (fSlow4 * fTemp0); + fRec4[0] = (fRec4[1] + fRec3[1]); + fRec3[0] = (fSlow14 * ((fSlow15 * fTemp0) - (fSlow16 * fRec4[0]))); + fRec2[0] = (fRec3[0] + fRec2[1]); + double fTemp2 = (fSlow17 * fTemp0); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow14 * (fTemp2 - (fSlow16 * fRec6[0]))); + double fTemp3 = ((fSlow12 * (fRec2[0] - fRec3[0])) + (fRec3[0] + fRec5[0])); + fRec9[0] = (fRec9[1] + fRec8[1]); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec8[0] = (fSlow26 * ((fSlow27 * fTemp0) - ((fSlow29 * fRec9[0]) + (fSlow28 * fRec10[0])))); + fRec7[0] = (fRec8[0] + fRec7[1]); + double fTemp4 = (fRec7[0] - fRec8[0]); + fVec0[0] = fTemp4; + fRec11[0] = (fRec11[1] + fVec0[1]); + fRec13[0] = (fRec13[1] + fRec12[1]); + fRec14[0] = (fRec14[1] + fRec13[1]); + fRec12[0] = (fSlow26 * (fTemp2 - ((fSlow29 * fRec13[0]) + (fSlow28 * fRec14[0])))); + double fTemp5 = ((fSlow22 * ((fSlow24 * fTemp4) + (fSlow23 * fRec11[0]))) + (fRec8[0] + fRec12[0])); + double fTemp6 = (0.012698412698412698 * ((fTemp1 + (fSlow9 * fTemp3)) + (fSlow19 * fTemp5))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp6)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp6); + double fTemp7 = (0.012698412698412698 * ((fTemp1 + (fSlow33 * fTemp3)) + (fSlow35 * fTemp5))); + fRec15[0] = max((fRec15[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp7)))))); + fVbargraph1 = FAUSTFLOAT(fRec15[0]); + output1[i] = FAUSTFLOAT(fTemp7); + double fTemp8 = (0.012698412698412698 * ((fTemp1 + (fSlow37 * fTemp3)) + (fSlow38 * fTemp5))); + fRec16[0] = max((fRec16[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph2 = FAUSTFLOAT(fRec16[0]); + output2[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (0.012698412698412698 * ((fTemp1 + (fSlow40 * fTemp3)) + (fSlow41 * fTemp5))); + fRec17[0] = max((fRec17[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph3 = FAUSTFLOAT(fRec17[0]); + output3[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (0.012698412698412698 * ((fTemp1 + (fSlow43 * fTemp3)) + (fSlow44 * fTemp5))); + fRec18[0] = max((fRec18[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph4 = FAUSTFLOAT(fRec18[0]); + output4[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (0.012698412698412698 * ((fTemp1 + (fSlow47 * fTemp3)) + (fSlow48 * fTemp5))); + fRec19[0] = max((fRec19[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph5 = FAUSTFLOAT(fRec19[0]); + output5[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.022574955908289243 * ((fTemp1 + (fSlow52 * fTemp3)) + (fSlow53 * fTemp5))); + fRec20[0] = max((fRec20[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph6 = FAUSTFLOAT(fRec20[0]); + output6[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.022574955908289243 * ((fTemp1 + (fSlow56 * fTemp3)) + (fSlow57 * fTemp5))); + fRec21[0] = max((fRec21[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph7 = FAUSTFLOAT(fRec21[0]); + output7[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.022574955908289243 * ((fTemp1 + (fSlow60 * fTemp3)) + (fSlow61 * fTemp5))); + fRec22[0] = max((fRec22[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph8 = FAUSTFLOAT(fRec22[0]); + output8[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.022574955908289243 * ((fTemp1 + (fSlow64 * fTemp3)) + (fSlow65 * fTemp5))); + fRec23[0] = max((fRec23[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph9 = FAUSTFLOAT(fRec23[0]); + output9[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.022574955908289243 * ((fTemp1 + (fSlow67 * fTemp3)) + (fSlow68 * fTemp5))); + fRec24[0] = max((fRec24[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph10 = FAUSTFLOAT(fRec24[0]); + output10[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.022574955908289243 * ((fTemp1 + (fSlow70 * fTemp3)) + (fSlow71 * fTemp5))); + fRec25[0] = max((fRec25[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph11 = FAUSTFLOAT(fRec25[0]); + output11[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.022574955908289243 * ((fTemp1 + (fSlow73 * fTemp3)) + (fSlow74 * fTemp5))); + fRec26[0] = max((fRec26[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph12 = FAUSTFLOAT(fRec26[0]); + output12[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.022574955908289243 * ((fTemp1 + (fSlow76 * fTemp3)) + (fSlow77 * fTemp5))); + fRec27[0] = max((fRec27[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph13 = FAUSTFLOAT(fRec27[0]); + output13[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.022574955908289243 * ((fTemp1 + (fSlow79 * fTemp3)) + (fSlow80 * fTemp5))); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph14 = FAUSTFLOAT(fRec28[0]); + output14[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.022574955908289243 * ((fTemp1 + (fSlow82 * fTemp3)) + (fSlow83 * fTemp5))); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph15 = FAUSTFLOAT(fRec29[0]); + output15[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.022574955908289243 * ((fTemp1 + (fSlow85 * fTemp3)) + (fSlow86 * fTemp5))); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph16 = FAUSTFLOAT(fRec30[0]); + output16[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.022574955908289243 * ((fTemp1 + (fSlow88 * fTemp3)) + (fSlow89 * fTemp5))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph17 = FAUSTFLOAT(fRec31[0]); + output17[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.021093750000000001 * ((fTemp1 + (fSlow93 * fTemp3)) + (fSlow94 * fTemp5))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph18 = FAUSTFLOAT(fRec32[0]); + output18[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.021093750000000001 * ((fTemp1 + (fSlow98 * fTemp3)) + (fSlow99 * fTemp5))); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph19 = FAUSTFLOAT(fRec33[0]); + output19[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.021093750000000001 * ((fTemp1 + (fSlow103 * fTemp3)) + (fSlow104 * fTemp5))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph20 = FAUSTFLOAT(fRec34[0]); + output20[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.021093750000000001 * ((fTemp1 + (fSlow108 * fTemp3)) + (fSlow109 * fTemp5))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph21 = FAUSTFLOAT(fRec35[0]); + output21[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.021093750000000001 * ((fTemp1 + (fSlow111 * fTemp3)) + (fSlow112 * fTemp5))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph22 = FAUSTFLOAT(fRec36[0]); + output22[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.021093750000000001 * ((fTemp1 + (fSlow114 * fTemp3)) + (fSlow115 * fTemp5))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph23 = FAUSTFLOAT(fRec37[0]); + output23[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.021093750000000001 * ((fTemp1 + (fSlow117 * fTemp3)) + (fSlow118 * fTemp5))); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph24 = FAUSTFLOAT(fRec38[0]); + output24[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.021093750000000001 * ((fTemp1 + (fSlow120 * fTemp3)) + (fSlow121 * fTemp5))); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph25 = FAUSTFLOAT(fRec39[0]); + output25[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (0.02017333553791887 * ((fTemp1 + (fSlow125 * fTemp3)) + (fSlow126 * fTemp5))); + fRec40[0] = max((fRec40[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph26 = FAUSTFLOAT(fRec40[0]); + output26[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (0.02017333553791887 * ((fTemp1 + (fSlow129 * fTemp3)) + (fSlow130 * fTemp5))); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph27 = FAUSTFLOAT(fRec41[0]); + output27[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (0.02017333553791887 * ((fTemp1 + (fSlow133 * fTemp3)) + (fSlow134 * fTemp5))); + fRec42[0] = max((fRec42[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph28 = FAUSTFLOAT(fRec42[0]); + output28[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (0.02017333553791887 * ((fTemp1 + (fSlow137 * fTemp3)) + (fSlow138 * fTemp5))); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph29 = FAUSTFLOAT(fRec43[0]); + output29[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (0.02017333553791887 * ((fTemp1 + (fSlow142 * fTemp3)) + (fSlow143 * fTemp5))); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph30 = FAUSTFLOAT(fRec44[0]); + output30[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (0.02017333553791887 * ((fTemp1 + (fSlow146 * fTemp3)) + (fSlow147 * fTemp5))); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph31 = FAUSTFLOAT(fRec45[0]); + output31[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (0.02017333553791887 * ((fTemp1 + (fSlow150 * fTemp3)) + (fSlow151 * fTemp5))); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph32 = FAUSTFLOAT(fRec46[0]); + output32[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (0.02017333553791887 * ((fTemp1 + (fSlow154 * fTemp3)) + (fSlow155 * fTemp5))); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph33 = FAUSTFLOAT(fRec47[0]); + output33[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (0.02017333553791887 * ((fTemp1 + (fSlow158 * fTemp3)) + (fSlow159 * fTemp5))); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph34 = FAUSTFLOAT(fRec48[0]); + output34[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (0.02017333553791887 * ((fTemp1 + (fSlow162 * fTemp3)) + (fSlow163 * fTemp5))); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph35 = FAUSTFLOAT(fRec49[0]); + output35[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (0.02017333553791887 * ((fTemp1 + (fSlow166 * fTemp3)) + (fSlow167 * fTemp5))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph36 = FAUSTFLOAT(fRec50[0]); + output36[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (0.02017333553791887 * ((fTemp1 + (fSlow170 * fTemp3)) + (fSlow171 * fTemp5))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph37 = FAUSTFLOAT(fRec51[0]); + output37[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (0.02017333553791887 * ((fTemp1 + (fSlow173 * fTemp3)) + (fSlow174 * fTemp5))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph38 = FAUSTFLOAT(fRec52[0]); + output38[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (0.02017333553791887 * ((fTemp1 + (fSlow176 * fTemp3)) + (fSlow177 * fTemp5))); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph39 = FAUSTFLOAT(fRec53[0]); + output39[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (0.02017333553791887 * ((fTemp1 + (fSlow179 * fTemp3)) + (fSlow180 * fTemp5))); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph40 = FAUSTFLOAT(fRec54[0]); + output40[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (0.02017333553791887 * ((fTemp1 + (fSlow182 * fTemp3)) + (fSlow183 * fTemp5))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph41 = FAUSTFLOAT(fRec55[0]); + output41[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (0.02017333553791887 * ((fTemp1 + (fSlow185 * fTemp3)) + (fSlow186 * fTemp5))); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph42 = FAUSTFLOAT(fRec56[0]); + output42[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.02017333553791887 * ((fTemp1 + (fSlow188 * fTemp3)) + (fSlow189 * fTemp5))); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph43 = FAUSTFLOAT(fRec57[0]); + output43[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (0.02017333553791887 * ((fTemp1 + (fSlow191 * fTemp3)) + (fSlow192 * fTemp5))); + fRec58[0] = max((fRec58[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph44 = FAUSTFLOAT(fRec58[0]); + output44[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (0.02017333553791887 * ((fTemp1 + (fSlow194 * fTemp3)) + (fSlow195 * fTemp5))); + fRec59[0] = max((fRec59[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph45 = FAUSTFLOAT(fRec59[0]); + output45[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (0.02017333553791887 * ((fTemp1 + (fSlow197 * fTemp3)) + (fSlow198 * fTemp5))); + fRec60[0] = max((fRec60[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph46 = FAUSTFLOAT(fRec60[0]); + output46[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (0.02017333553791887 * ((fTemp1 + (fSlow200 * fTemp3)) + (fSlow201 * fTemp5))); + fRec61[0] = max((fRec61[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph47 = FAUSTFLOAT(fRec61[0]); + output47[i] = FAUSTFLOAT(fTemp53); + double fTemp54 = (0.02017333553791887 * ((fTemp1 + (fSlow203 * fTemp3)) + (fSlow204 * fTemp5))); + fRec62[0] = max((fRec62[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph48 = FAUSTFLOAT(fRec62[0]); + output48[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (0.02017333553791887 * ((fTemp1 + (fSlow206 * fTemp3)) + (fSlow207 * fTemp5))); + fRec63[0] = max((fRec63[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph49 = FAUSTFLOAT(fRec63[0]); + output49[i] = FAUSTFLOAT(fTemp55); + fRec1[1] = fRec1[0]; + fRec4[1] = fRec4[0]; + fRec3[1] = fRec3[0]; + fRec2[1] = fRec2[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec9[1] = fRec9[0]; + fRec10[1] = fRec10[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fVec0[1] = fVec0[0]; + fRec11[1] = fRec11[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec12[1] = fRec12[0]; + fRec0[1] = fRec0[0]; + fRec15[1] = fRec15[0]; + fRec16[1] = fRec16[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec19[1] = fRec19[0]; + fRec20[1] = fRec20[0]; + fRec21[1] = fRec21[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec58[1] = fRec58[0]; + fRec59[1] = fRec59[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec62[1] = fRec62[0]; + fRec63[1] = fRec63[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev503.cpp b/source/HOAUGens/HOAPanLebedev503.cpp new file mode 100644 index 0000000000..11e8bebfb9 --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev503.cpp @@ -0,0 +1,2720 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev503" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fCheckbox0; + double fConst2; + double fConst3; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider2; + double fRec3[2]; + double fRec4[2]; + double fRec2[2]; + double fRec1[2]; + double fRec6[2]; + double fRec5[2]; + FAUSTFLOAT fCheckbox2; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fRec10[2]; + double fRec11[2]; + double fRec9[2]; + double fRec12[2]; + double fVec0[2]; + double fRec13[2]; + double fRec14[2]; + double fRec8[2]; + double fRec7[2]; + double fRec17[2]; + double fRec18[2]; + double fRec16[2]; + double fRec19[2]; + double fRec15[2]; + FAUSTFLOAT fCheckbox3; + FAUSTFLOAT fCheckbox4; + double fConst8; + double fConst9; + double fRec22[2]; + double fRec23[2]; + double fRec21[2]; + double fRec20[2]; + double fVec1[2]; + double fRec24[2]; + double fRec26[2]; + double fRec27[2]; + double fRec25[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec28[2]; + FAUSTFLOAT fVbargraph1; + double fRec29[2]; + FAUSTFLOAT fVbargraph2; + double fRec30[2]; + FAUSTFLOAT fVbargraph3; + double fRec31[2]; + FAUSTFLOAT fVbargraph4; + double fRec32[2]; + FAUSTFLOAT fVbargraph5; + double fRec33[2]; + FAUSTFLOAT fVbargraph6; + double fRec34[2]; + FAUSTFLOAT fVbargraph7; + double fRec35[2]; + FAUSTFLOAT fVbargraph8; + double fRec36[2]; + FAUSTFLOAT fVbargraph9; + double fRec37[2]; + FAUSTFLOAT fVbargraph10; + double fRec38[2]; + FAUSTFLOAT fVbargraph11; + double fRec39[2]; + FAUSTFLOAT fVbargraph12; + double fRec40[2]; + FAUSTFLOAT fVbargraph13; + double fRec41[2]; + FAUSTFLOAT fVbargraph14; + double fRec42[2]; + FAUSTFLOAT fVbargraph15; + double fRec43[2]; + FAUSTFLOAT fVbargraph16; + double fRec44[2]; + FAUSTFLOAT fVbargraph17; + double fRec45[2]; + FAUSTFLOAT fVbargraph18; + double fRec46[2]; + FAUSTFLOAT fVbargraph19; + double fRec47[2]; + FAUSTFLOAT fVbargraph20; + double fRec48[2]; + FAUSTFLOAT fVbargraph21; + double fRec49[2]; + FAUSTFLOAT fVbargraph22; + double fRec50[2]; + FAUSTFLOAT fVbargraph23; + double fRec51[2]; + FAUSTFLOAT fVbargraph24; + double fRec52[2]; + FAUSTFLOAT fVbargraph25; + double fRec53[2]; + FAUSTFLOAT fVbargraph26; + double fRec54[2]; + FAUSTFLOAT fVbargraph27; + double fRec55[2]; + FAUSTFLOAT fVbargraph28; + double fRec56[2]; + FAUSTFLOAT fVbargraph29; + double fRec57[2]; + FAUSTFLOAT fVbargraph30; + double fRec58[2]; + FAUSTFLOAT fVbargraph31; + double fRec59[2]; + FAUSTFLOAT fVbargraph32; + double fRec60[2]; + FAUSTFLOAT fVbargraph33; + double fRec61[2]; + FAUSTFLOAT fVbargraph34; + double fRec62[2]; + FAUSTFLOAT fVbargraph35; + double fRec63[2]; + FAUSTFLOAT fVbargraph36; + double fRec64[2]; + FAUSTFLOAT fVbargraph37; + double fRec65[2]; + FAUSTFLOAT fVbargraph38; + double fRec66[2]; + FAUSTFLOAT fVbargraph39; + double fRec67[2]; + FAUSTFLOAT fVbargraph40; + double fRec68[2]; + FAUSTFLOAT fVbargraph41; + double fRec69[2]; + FAUSTFLOAT fVbargraph42; + double fRec70[2]; + FAUSTFLOAT fVbargraph43; + double fRec71[2]; + FAUSTFLOAT fVbargraph44; + double fRec72[2]; + FAUSTFLOAT fVbargraph45; + double fRec73[2]; + FAUSTFLOAT fVbargraph46; + double fRec74[2]; + FAUSTFLOAT fVbargraph47; + double fRec75[2]; + FAUSTFLOAT fVbargraph48; + double fRec76[2]; + FAUSTFLOAT fVbargraph49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev503"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + fConst4 = (789.54302057287055 / fConst0); + fConst5 = (394.77151028643527 / fConst0); + fConst6 = (625.22848971356643 / fConst0); + fConst7 = (1250.4569794271329 / fConst0); + fConst8 = (510.0 / fConst0); + fConst9 = (1020.0 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fCheckbox3 = FAUSTFLOAT(0.0); + fCheckbox4 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec3[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec1[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec10[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec11[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fVec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec13[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec14[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec8[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec7[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec17[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec18[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec15[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec22[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec23[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec21[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec20[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fVec1[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec25[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec0[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec28[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec29[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec30[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec31[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec32[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec33[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec34[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec35[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec36[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec37[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec38[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec39[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec40[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec41[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec42[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec43[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec44[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec45[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec46[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec47[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec48[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec49[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec50[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec51[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec52[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec53[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec54[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec55[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec56[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec57[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec58[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec59[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec60[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec61[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec62[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec63[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec64[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec65[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec66[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec67[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec68[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec69[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec70[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec71[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec72[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec73[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec74[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec75[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec76[l78] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev503"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider2, "0+1", ""); + ui_interface->declare(&fHslider2, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider2, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider1, "0+2", ""); + ui_interface->declare(&fHslider1, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider1, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+4", ""); + ui_interface->declare(&fHslider0, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider0, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox3); + ui_interface->addCheckButton("1", &fCheckbox0); + ui_interface->addCheckButton("2", &fCheckbox4); + ui_interface->addCheckButton("3", &fCheckbox2); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2392eb0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x239d600", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23a5f90", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23aea00", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23b7550", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23bf940", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23c87b0", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23d0da0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23d9470", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23e1c20", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23eacb0", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23f3e20", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x23fd070", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24063a0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x240ebc0", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24174c0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x241fea0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2428960", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2432250", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x243b2c0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2444410", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x244d640", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2456560", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x245f560", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2468640", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2471800", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph26, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x247ada0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph27, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2483010", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph28, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x248b360", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph29, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2493790", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph30, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x249ce00", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph31, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24a5dc0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph32, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24aee60", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph33, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24b7fe0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph34, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24c1240", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph35, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24ca580", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph36, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24d39a0", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph37, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24dcea0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph38, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24e56c0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph39, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24edfc0", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph40, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24f69a0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph41, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x24ff460", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph42, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2508000", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph43, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2510c80", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph44, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25199e0", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph45, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2522820", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph46, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x252b740", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph47, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2534740", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph48, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x253d820", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph49, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x25469e0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = double(fHslider0); + double fSlow1 = sin(fSlow0); + double fSlow2 = (3.0 * (1.0 - double(fCheckbox0))); + double fSlow3 = double(fHslider1); + double fSlow4 = (fConst3 / fSlow3); + double fSlow5 = (fSlow4 + 1.0); + double fSlow6 = (fConst2 / (fSlow5 * fSlow3)); + double fSlow7 = double(fEntry0); + double fSlow8 = (fConst3 / fSlow7); + double fSlow9 = (1.0 / (fSlow8 + 1.0)); + double fSlow10 = double(fCheckbox1); + double fSlow11 = (((fSlow5 * fSlow10) * fSlow7) / fSlow3); + double fSlow12 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider2)))); + double fSlow13 = (fConst2 / fSlow7); + double fSlow14 = (1.0 - fSlow10); + double fSlow15 = (fSlow14 * fSlow7); + double fSlow16 = ((3.0 * mydsp_faustpower2_f(fSlow1)) + -1.0); + double fSlow17 = (1.0 - double(fCheckbox2)); + double fSlow18 = (2.333333333333333 * (((2.5 * fSlow16) + -2.0) * fSlow17)); + double fSlow19 = ((fConst5 / fSlow3) + 1.0); + double fSlow20 = (fConst4 / (fSlow19 * fSlow3)); + double fSlow21 = (1.0 / ((fConst5 / fSlow7) + 1.0)); + double fSlow22 = mydsp_faustpower2_f(fSlow8); + double fSlow23 = (1.0 / (((fConst6 / fSlow7) + (6.4594326934833797 * fSlow22)) + 1.0)); + double fSlow24 = mydsp_faustpower2_f(fSlow4); + double fSlow25 = (((fConst6 / fSlow3) + (6.4594326934833797 * fSlow24)) + 1.0); + double fSlow26 = (((fSlow25 * fSlow10) * fSlow7) / fSlow3); + double fSlow27 = (25.837730773933519 * fSlow22); + double fSlow28 = (fSlow27 + (fConst7 / fSlow7)); + double fSlow29 = (1.0 / fSlow25); + double fSlow30 = (25.837730773933519 * fSlow24); + double fSlow31 = ((fConst7 / fSlow3) + fSlow30); + double fSlow32 = (fConst4 / fSlow7); + double fSlow33 = ((((fSlow10 / fSlow3) + fSlow14) * fSlow7) * (1.0 - double(fCheckbox3))); + double fSlow34 = (1.0 - double(fCheckbox4)); + double fSlow35 = (2.5 * (fSlow16 * fSlow34)); + double fSlow36 = (((fConst8 / fSlow3) + (3.0 * fSlow24)) + 1.0); + double fSlow37 = (1.0 / fSlow36); + double fSlow38 = (12.0 * fSlow24); + double fSlow39 = ((fConst9 / fSlow3) + fSlow38); + double fSlow40 = (1.0 / (((fConst8 / fSlow7) + (3.0 * fSlow22)) + 1.0)); + double fSlow41 = (((fSlow36 * fSlow10) * fSlow7) / fSlow3); + double fSlow42 = (12.0 * fSlow22); + double fSlow43 = (fSlow42 + (fConst9 / fSlow7)); + double fSlow44 = double(fHslider3); + double fSlow45 = cos(fSlow44); + double fSlow46 = cos(fSlow0); + double fSlow47 = (fSlow45 * fSlow46); + double fSlow48 = mydsp_faustpower2_f(fSlow46); + double fSlow49 = ((3.0 * (mydsp_faustpower2_f(fSlow45) * fSlow48)) + -1.0); + double fSlow50 = (2.333333333333333 * (((2.5 * fSlow49) + -2.0) * fSlow17)); + double fSlow51 = (2.5 * (fSlow49 * fSlow34)); + double fSlow52 = cos((fSlow44 + -1.5707963267948966)); + double fSlow53 = (fSlow52 * fSlow46); + double fSlow54 = ((3.0 * (mydsp_faustpower2_f(fSlow52) * fSlow48)) + -1.0); + double fSlow55 = (2.333333333333333 * (((2.5 * fSlow54) + -2.0) * fSlow17)); + double fSlow56 = (2.5 * (fSlow54 * fSlow34)); + double fSlow57 = cos((fSlow44 + -3.1415926535897931)); + double fSlow58 = (fSlow57 * fSlow46); + double fSlow59 = ((3.0 * (mydsp_faustpower2_f(fSlow57) * fSlow48)) + -1.0); + double fSlow60 = (2.333333333333333 * (((2.5 * fSlow59) + -2.0) * fSlow17)); + double fSlow61 = (2.5 * (fSlow59 * fSlow34)); + double fSlow62 = cos((fSlow44 + -4.7123889803846897)); + double fSlow63 = (fSlow62 * fSlow46); + double fSlow64 = ((3.0 * (mydsp_faustpower2_f(fSlow62) * fSlow48)) + -1.0); + double fSlow65 = (2.333333333333333 * (((2.5 * fSlow64) + -2.0) * fSlow17)); + double fSlow66 = (2.5 * (fSlow64 * fSlow34)); + double fSlow67 = ((6.123233995736766e-17 * fSlow47) - fSlow1); + double fSlow68 = ((3.0 * mydsp_faustpower2_f(fSlow67)) + -1.0); + double fSlow69 = (2.333333333333333 * (((2.5 * fSlow68) + -2.0) * fSlow17)); + double fSlow70 = (2.5 * (fSlow68 * fSlow34)); + double fSlow71 = (0.70710678118654757 * fSlow47); + double fSlow72 = (0.70710678118654746 * fSlow1); + double fSlow73 = (fSlow71 + fSlow72); + double fSlow74 = ((3.0 * mydsp_faustpower2_f(fSlow73)) + -1.0); + double fSlow75 = (2.333333333333333 * (((2.5 * fSlow74) + -2.0) * fSlow17)); + double fSlow76 = (2.5 * (fSlow74 * fSlow34)); + double fSlow77 = (0.70710678118654757 * fSlow53); + double fSlow78 = (fSlow72 + fSlow77); + double fSlow79 = ((3.0 * mydsp_faustpower2_f(fSlow78)) + -1.0); + double fSlow80 = (2.333333333333333 * (((2.5 * fSlow79) + -2.0) * fSlow17)); + double fSlow81 = (2.5 * (fSlow79 * fSlow34)); + double fSlow82 = (0.70710678118654757 * fSlow58); + double fSlow83 = (fSlow72 + fSlow82); + double fSlow84 = ((3.0 * mydsp_faustpower2_f(fSlow83)) + -1.0); + double fSlow85 = (2.5 * (fSlow84 * fSlow34)); + double fSlow86 = (2.333333333333333 * (((2.5 * fSlow84) + -2.0) * fSlow17)); + double fSlow87 = (0.70710678118654757 * fSlow63); + double fSlow88 = (fSlow72 + fSlow87); + double fSlow89 = ((3.0 * mydsp_faustpower2_f(fSlow88)) + -1.0); + double fSlow90 = (2.333333333333333 * (((2.5 * fSlow89) + -2.0) * fSlow17)); + double fSlow91 = (2.5 * (fSlow89 * fSlow34)); + double fSlow92 = cos((fSlow44 + -0.78539816339744828)); + double fSlow93 = (fSlow92 * fSlow46); + double fSlow94 = ((3.0 * (mydsp_faustpower2_f(fSlow92) * fSlow48)) + -1.0); + double fSlow95 = (2.333333333333333 * (((2.5 * fSlow94) + -2.0) * fSlow17)); + double fSlow96 = (2.5 * (fSlow94 * fSlow34)); + double fSlow97 = cos((fSlow44 + -2.3561944901923448)); + double fSlow98 = (fSlow97 * fSlow46); + double fSlow99 = ((3.0 * (mydsp_faustpower2_f(fSlow97) * fSlow48)) + -1.0); + double fSlow100 = (2.333333333333333 * (((2.5 * fSlow99) + -2.0) * fSlow17)); + double fSlow101 = (2.5 * (fSlow99 * fSlow34)); + double fSlow102 = cos((fSlow44 + -3.9269908169872414)); + double fSlow103 = (fSlow102 * fSlow46); + double fSlow104 = ((3.0 * (mydsp_faustpower2_f(fSlow102) * fSlow48)) + -1.0); + double fSlow105 = (2.333333333333333 * (((2.5 * fSlow104) + -2.0) * fSlow17)); + double fSlow106 = (2.5 * (fSlow104 * fSlow34)); + double fSlow107 = cos((fSlow44 + -5.497787143782138)); + double fSlow108 = (fSlow107 * fSlow46); + double fSlow109 = ((3.0 * (mydsp_faustpower2_f(fSlow107) * fSlow48)) + -1.0); + double fSlow110 = (2.333333333333333 * (((2.5 * fSlow109) + -2.0) * fSlow17)); + double fSlow111 = (2.5 * (fSlow109 * fSlow34)); + double fSlow112 = (fSlow71 - fSlow72); + double fSlow113 = ((3.0 * mydsp_faustpower2_f(fSlow112)) + -1.0); + double fSlow114 = (2.333333333333333 * (((2.5 * fSlow113) + -2.0) * fSlow17)); + double fSlow115 = (2.5 * (fSlow113 * fSlow34)); + double fSlow116 = (fSlow77 - fSlow72); + double fSlow117 = ((3.0 * mydsp_faustpower2_f(fSlow116)) + -1.0); + double fSlow118 = (2.333333333333333 * (((2.5 * fSlow117) + -2.0) * fSlow17)); + double fSlow119 = (2.5 * (fSlow117 * fSlow34)); + double fSlow120 = (fSlow82 - fSlow72); + double fSlow121 = ((3.0 * mydsp_faustpower2_f(fSlow120)) + -1.0); + double fSlow122 = (2.333333333333333 * (((2.5 * fSlow121) + -2.0) * fSlow17)); + double fSlow123 = (2.5 * (fSlow121 * fSlow34)); + double fSlow124 = (fSlow87 - fSlow72); + double fSlow125 = ((3.0 * mydsp_faustpower2_f(fSlow124)) + -1.0); + double fSlow126 = (2.333333333333333 * (((2.5 * fSlow125) + -2.0) * fSlow17)); + double fSlow127 = (2.5 * (fSlow125 * fSlow34)); + double fSlow128 = (0.81649658092772592 * fSlow93); + double fSlow129 = (0.57735026918962584 * fSlow1); + double fSlow130 = (fSlow128 + fSlow129); + double fSlow131 = ((3.0 * mydsp_faustpower2_f(fSlow130)) + -1.0); + double fSlow132 = (2.333333333333333 * (((2.5 * fSlow131) + -2.0) * fSlow17)); + double fSlow133 = (2.5 * (fSlow131 * fSlow34)); + double fSlow134 = (0.81649658092772592 * fSlow98); + double fSlow135 = (fSlow129 + fSlow134); + double fSlow136 = ((3.0 * mydsp_faustpower2_f(fSlow135)) + -1.0); + double fSlow137 = (2.333333333333333 * (((2.5 * fSlow136) + -2.0) * fSlow17)); + double fSlow138 = (2.5 * (fSlow136 * fSlow34)); + double fSlow139 = (0.81649658092772592 * fSlow103); + double fSlow140 = (fSlow129 + fSlow139); + double fSlow141 = ((3.0 * mydsp_faustpower2_f(fSlow140)) + -1.0); + double fSlow142 = (2.333333333333333 * (((2.5 * fSlow141) + -2.0) * fSlow17)); + double fSlow143 = (2.5 * (fSlow141 * fSlow34)); + double fSlow144 = (0.81649658092772592 * fSlow108); + double fSlow145 = (fSlow129 + fSlow144); + double fSlow146 = ((3.0 * mydsp_faustpower2_f(fSlow145)) + -1.0); + double fSlow147 = (2.333333333333333 * (((2.5 * fSlow146) + -2.0) * fSlow17)); + double fSlow148 = (2.5 * (fSlow146 * fSlow34)); + double fSlow149 = (fSlow128 - fSlow129); + double fSlow150 = ((3.0 * mydsp_faustpower2_f(fSlow149)) + -1.0); + double fSlow151 = (2.333333333333333 * (((2.5 * fSlow150) + -2.0) * fSlow17)); + double fSlow152 = (2.5 * (fSlow150 * fSlow34)); + double fSlow153 = (fSlow134 - fSlow129); + double fSlow154 = ((3.0 * mydsp_faustpower2_f(fSlow153)) + -1.0); + double fSlow155 = (2.333333333333333 * (((2.5 * fSlow154) + -2.0) * fSlow17)); + double fSlow156 = (2.5 * (fSlow154 * fSlow34)); + double fSlow157 = (fSlow139 - fSlow129); + double fSlow158 = ((3.0 * mydsp_faustpower2_f(fSlow157)) + -1.0); + double fSlow159 = (2.333333333333333 * (((2.5 * fSlow158) + -2.0) * fSlow17)); + double fSlow160 = (2.5 * (fSlow158 * fSlow34)); + double fSlow161 = (fSlow144 - fSlow129); + double fSlow162 = ((3.0 * mydsp_faustpower2_f(fSlow161)) + -1.0); + double fSlow163 = (2.333333333333333 * (((2.5 * fSlow162) + -2.0) * fSlow17)); + double fSlow164 = (2.5 * (fSlow162 * fSlow34)); + double fSlow165 = (0.42640143271122027 * (cos((fSlow44 + -0.78539816339744839)) * fSlow46)); + double fSlow166 = (0.90453403373329111 * fSlow1); + double fSlow167 = (fSlow165 + fSlow166); + double fSlow168 = ((3.0 * mydsp_faustpower2_f(fSlow167)) + -1.0); + double fSlow169 = (2.333333333333333 * (((2.5 * fSlow168) + -2.0) * fSlow17)); + double fSlow170 = (2.5 * (fSlow168 * fSlow34)); + double fSlow171 = (0.42640143271122027 * fSlow98); + double fSlow172 = (fSlow166 + fSlow171); + double fSlow173 = ((3.0 * mydsp_faustpower2_f(fSlow172)) + -1.0); + double fSlow174 = (2.333333333333333 * (((2.5 * fSlow173) + -2.0) * fSlow17)); + double fSlow175 = (2.5 * (fSlow173 * fSlow34)); + double fSlow176 = (0.42640143271122027 * fSlow103); + double fSlow177 = (fSlow166 + fSlow176); + double fSlow178 = ((3.0 * mydsp_faustpower2_f(fSlow177)) + -1.0); + double fSlow179 = (2.333333333333333 * (((2.5 * fSlow178) + -2.0) * fSlow17)); + double fSlow180 = (2.5 * (fSlow178 * fSlow34)); + double fSlow181 = (0.42640143271122027 * fSlow108); + double fSlow182 = (fSlow166 + fSlow181); + double fSlow183 = ((3.0 * mydsp_faustpower2_f(fSlow182)) + -1.0); + double fSlow184 = (2.333333333333333 * (((2.5 * fSlow183) + -2.0) * fSlow17)); + double fSlow185 = (2.5 * (fSlow183 * fSlow34)); + double fSlow186 = (0.95346258924559235 * (cos((fSlow44 + -0.32175055439664263)) * fSlow46)); + double fSlow187 = (0.30151134457776352 * fSlow1); + double fSlow188 = (fSlow186 + fSlow187); + double fSlow189 = ((3.0 * mydsp_faustpower2_f(fSlow188)) + -1.0); + double fSlow190 = (2.333333333333333 * (((2.5 * fSlow189) + -2.0) * fSlow17)); + double fSlow191 = (2.5 * (fSlow189 * fSlow34)); + double fSlow192 = (0.95346258924559235 * (cos((fSlow44 + -1.2490457723982544)) * fSlow46)); + double fSlow193 = (fSlow187 + fSlow192); + double fSlow194 = ((3.0 * mydsp_faustpower2_f(fSlow193)) + -1.0); + double fSlow195 = (2.333333333333333 * (((2.5 * fSlow194) + -2.0) * fSlow17)); + double fSlow196 = (2.5 * (fSlow194 * fSlow34)); + double fSlow197 = (0.95346258924559235 * (cos((fSlow44 + -1.8925468811915387)) * fSlow46)); + double fSlow198 = (fSlow187 + fSlow197); + double fSlow199 = ((3.0 * mydsp_faustpower2_f(fSlow198)) + -1.0); + double fSlow200 = (2.333333333333333 * (((2.5 * fSlow199) + -2.0) * fSlow17)); + double fSlow201 = (2.5 * (fSlow199 * fSlow34)); + double fSlow202 = (0.95346258924559235 * (cos((fSlow44 + -2.8198420991931505)) * fSlow46)); + double fSlow203 = (fSlow187 + fSlow202); + double fSlow204 = ((3.0 * mydsp_faustpower2_f(fSlow203)) + -1.0); + double fSlow205 = (2.333333333333333 * (((2.5 * fSlow204) + -2.0) * fSlow17)); + double fSlow206 = (2.5 * (fSlow204 * fSlow34)); + double fSlow207 = (0.95346258924559235 * (cos((fSlow44 + -3.4633432079864357)) * fSlow46)); + double fSlow208 = (fSlow187 + fSlow207); + double fSlow209 = ((3.0 * mydsp_faustpower2_f(fSlow208)) + -1.0); + double fSlow210 = (2.333333333333333 * (((2.5 * fSlow209) + -2.0) * fSlow17)); + double fSlow211 = (2.5 * (fSlow209 * fSlow34)); + double fSlow212 = (0.95346258924559235 * (cos((fSlow44 + -4.3906384259880475)) * fSlow46)); + double fSlow213 = (fSlow187 + fSlow212); + double fSlow214 = ((3.0 * mydsp_faustpower2_f(fSlow213)) + -1.0); + double fSlow215 = (2.333333333333333 * (((2.5 * fSlow214) + -2.0) * fSlow17)); + double fSlow216 = (2.5 * (fSlow214 * fSlow34)); + double fSlow217 = (0.95346258924559235 * (cos((fSlow44 + -5.0341395347813318)) * fSlow46)); + double fSlow218 = (fSlow187 + fSlow217); + double fSlow219 = ((3.0 * mydsp_faustpower2_f(fSlow218)) + -1.0); + double fSlow220 = (2.333333333333333 * (((2.5 * fSlow219) + -2.0) * fSlow17)); + double fSlow221 = (2.5 * (fSlow219 * fSlow34)); + double fSlow222 = (0.95346258924559235 * (cos((fSlow44 + -5.9614347527829432)) * fSlow46)); + double fSlow223 = (fSlow187 + fSlow222); + double fSlow224 = ((3.0 * mydsp_faustpower2_f(fSlow223)) + -1.0); + double fSlow225 = (2.333333333333333 * (((2.5 * fSlow224) + -2.0) * fSlow17)); + double fSlow226 = (2.5 * (fSlow224 * fSlow34)); + double fSlow227 = (fSlow186 - fSlow187); + double fSlow228 = ((3.0 * mydsp_faustpower2_f(fSlow227)) + -1.0); + double fSlow229 = (2.333333333333333 * (((2.5 * fSlow228) + -2.0) * fSlow17)); + double fSlow230 = (2.5 * (fSlow228 * fSlow34)); + double fSlow231 = (fSlow192 - fSlow187); + double fSlow232 = ((3.0 * mydsp_faustpower2_f(fSlow231)) + -1.0); + double fSlow233 = (2.333333333333333 * (((2.5 * fSlow232) + -2.0) * fSlow17)); + double fSlow234 = (2.5 * (fSlow232 * fSlow34)); + double fSlow235 = (fSlow197 - fSlow187); + double fSlow236 = ((3.0 * mydsp_faustpower2_f(fSlow235)) + -1.0); + double fSlow237 = (2.333333333333333 * (((2.5 * fSlow236) + -2.0) * fSlow17)); + double fSlow238 = (2.5 * (fSlow236 * fSlow34)); + double fSlow239 = (fSlow202 - fSlow187); + double fSlow240 = ((3.0 * mydsp_faustpower2_f(fSlow239)) + -1.0); + double fSlow241 = (2.333333333333333 * (((2.5 * fSlow240) + -2.0) * fSlow17)); + double fSlow242 = (2.5 * (fSlow240 * fSlow34)); + double fSlow243 = (fSlow207 - fSlow187); + double fSlow244 = ((3.0 * mydsp_faustpower2_f(fSlow243)) + -1.0); + double fSlow245 = (2.333333333333333 * (((2.5 * fSlow244) + -2.0) * fSlow17)); + double fSlow246 = (2.5 * (fSlow244 * fSlow34)); + double fSlow247 = (fSlow212 - fSlow187); + double fSlow248 = ((3.0 * mydsp_faustpower2_f(fSlow247)) + -1.0); + double fSlow249 = (2.333333333333333 * (((2.5 * fSlow248) + -2.0) * fSlow17)); + double fSlow250 = (2.5 * (fSlow248 * fSlow34)); + double fSlow251 = (fSlow217 - fSlow187); + double fSlow252 = ((3.0 * mydsp_faustpower2_f(fSlow251)) + -1.0); + double fSlow253 = (2.333333333333333 * (((2.5 * fSlow252) + -2.0) * fSlow17)); + double fSlow254 = (2.5 * (fSlow252 * fSlow34)); + double fSlow255 = (fSlow222 - fSlow187); + double fSlow256 = ((3.0 * mydsp_faustpower2_f(fSlow255)) + -1.0); + double fSlow257 = (2.333333333333333 * (((2.5 * fSlow256) + -2.0) * fSlow17)); + double fSlow258 = (2.5 * (fSlow256 * fSlow34)); + double fSlow259 = (fSlow165 - fSlow166); + double fSlow260 = ((3.0 * mydsp_faustpower2_f(fSlow259)) + -1.0); + double fSlow261 = (2.333333333333333 * (((2.5 * fSlow260) + -2.0) * fSlow17)); + double fSlow262 = (2.5 * (fSlow260 * fSlow34)); + double fSlow263 = (fSlow171 - fSlow166); + double fSlow264 = ((3.0 * mydsp_faustpower2_f(fSlow263)) + -1.0); + double fSlow265 = (2.333333333333333 * (((2.5 * fSlow264) + -2.0) * fSlow17)); + double fSlow266 = (2.5 * (fSlow264 * fSlow34)); + double fSlow267 = (fSlow176 - fSlow166); + double fSlow268 = ((3.0 * mydsp_faustpower2_f(fSlow267)) + -1.0); + double fSlow269 = (2.333333333333333 * (((2.5 * fSlow268) + -2.0) * fSlow17)); + double fSlow270 = (2.5 * (fSlow268 * fSlow34)); + double fSlow271 = (fSlow181 - fSlow166); + double fSlow272 = ((3.0 * mydsp_faustpower2_f(fSlow271)) + -1.0); + double fSlow273 = (2.333333333333333 * (((2.5 * fSlow272) + -2.0) * fSlow17)); + double fSlow274 = (2.5 * (fSlow272 * fSlow34)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec3[0] = (fSlow12 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input0[i])); + fRec4[0] = (fRec4[1] + fRec2[1]); + fRec2[0] = (fSlow9 * ((fSlow11 * fTemp0) - (fSlow13 * fRec4[0]))); + fRec1[0] = (fRec2[0] + fRec1[1]); + double fTemp1 = (fSlow15 * fTemp0); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow9 * (fTemp1 - (fSlow13 * fRec6[0]))); + double fTemp2 = (fSlow2 * ((fSlow6 * (fRec1[0] - fRec2[0])) + (fRec2[0] + fRec5[0]))); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec9[0] = (fSlow23 * ((fSlow26 * fTemp0) - ((fSlow28 * fRec10[0]) + (fSlow27 * fRec11[0])))); + fRec12[0] = (fRec9[0] + fRec12[1]); + double fTemp3 = (fRec12[0] - fRec9[0]); + fVec0[0] = fTemp3; + fRec13[0] = (fRec13[1] + fVec0[1]); + fRec14[0] = (fRec14[1] + fRec8[1]); + fRec8[0] = (fSlow21 * ((fSlow19 * (fRec9[0] + (fSlow29 * ((fSlow31 * fTemp3) + (fSlow30 * fRec13[0]))))) - (fSlow32 * fRec14[0]))); + fRec7[0] = (fRec8[0] + fRec7[1]); + fRec17[0] = (fRec17[1] + fRec16[1]); + fRec18[0] = (fRec18[1] + fRec17[1]); + fRec16[0] = (fSlow23 * (fTemp1 - ((fSlow28 * fRec17[0]) + (fSlow27 * fRec18[0])))); + fRec19[0] = (fRec19[1] + fRec15[1]); + fRec15[0] = (fSlow21 * (fRec16[0] - (fSlow32 * fRec19[0]))); + double fTemp4 = ((fSlow20 * (fRec7[0] - fRec8[0])) + (fRec8[0] + fRec15[0])); + double fTemp5 = (fSlow33 * fTemp0); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec21[0] = (fSlow40 * ((fSlow41 * fTemp0) - ((fSlow43 * fRec22[0]) + (fSlow42 * fRec23[0])))); + fRec20[0] = (fRec21[0] + fRec20[1]); + double fTemp6 = (fRec20[0] - fRec21[0]); + fVec1[0] = fTemp6; + fRec24[0] = (fRec24[1] + fVec1[1]); + fRec26[0] = (fRec26[1] + fRec25[1]); + fRec27[0] = (fRec27[1] + fRec26[1]); + fRec25[0] = (fSlow40 * (fTemp1 - ((fSlow43 * fRec26[0]) + (fSlow42 * fRec27[0])))); + double fTemp7 = ((fSlow37 * ((fSlow39 * fTemp6) + (fSlow38 * fRec24[0]))) + (fRec21[0] + fRec25[0])); + double fTemp8 = (0.012698412698412698 * ((fSlow1 * (fTemp2 + (fSlow18 * fTemp4))) + (fTemp5 + (fSlow35 * fTemp7)))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp8)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp8); + double fTemp9 = (0.012698412698412698 * ((fSlow47 * (fTemp2 + (fSlow50 * fTemp4))) + (fTemp5 + (fSlow51 * fTemp7)))); + fRec28[0] = max((fRec28[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp9)))))); + fVbargraph1 = FAUSTFLOAT(fRec28[0]); + output1[i] = FAUSTFLOAT(fTemp9); + double fTemp10 = (0.012698412698412698 * ((fSlow53 * (fTemp2 + (fSlow55 * fTemp4))) + (fTemp5 + (fSlow56 * fTemp7)))); + fRec29[0] = max((fRec29[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp10)))))); + fVbargraph2 = FAUSTFLOAT(fRec29[0]); + output2[i] = FAUSTFLOAT(fTemp10); + double fTemp11 = (0.012698412698412698 * ((fSlow58 * (fTemp2 + (fSlow60 * fTemp4))) + (fTemp5 + (fSlow61 * fTemp7)))); + fRec30[0] = max((fRec30[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph3 = FAUSTFLOAT(fRec30[0]); + output3[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.012698412698412698 * ((fSlow63 * (fTemp2 + (fSlow65 * fTemp4))) + (fTemp5 + (fSlow66 * fTemp7)))); + fRec31[0] = max((fRec31[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph4 = FAUSTFLOAT(fRec31[0]); + output4[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.012698412698412698 * ((fSlow67 * (fTemp2 + (fSlow69 * fTemp4))) + (fTemp5 + (fSlow70 * fTemp7)))); + fRec32[0] = max((fRec32[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph5 = FAUSTFLOAT(fRec32[0]); + output5[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.022574955908289243 * ((fSlow73 * (fTemp2 + (fSlow75 * fTemp4))) + (fTemp5 + (fSlow76 * fTemp7)))); + fRec33[0] = max((fRec33[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph6 = FAUSTFLOAT(fRec33[0]); + output6[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.022574955908289243 * ((fSlow78 * (fTemp2 + (fSlow80 * fTemp4))) + (fTemp5 + (fSlow81 * fTemp7)))); + fRec34[0] = max((fRec34[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph7 = FAUSTFLOAT(fRec34[0]); + output7[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.022574955908289243 * ((fTemp5 + (fSlow85 * fTemp7)) + (fSlow83 * (fTemp2 + (fSlow86 * fTemp4))))); + fRec35[0] = max((fRec35[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph8 = FAUSTFLOAT(fRec35[0]); + output8[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.022574955908289243 * ((fSlow88 * (fTemp2 + (fSlow90 * fTemp4))) + (fTemp5 + (fSlow91 * fTemp7)))); + fRec36[0] = max((fRec36[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph9 = FAUSTFLOAT(fRec36[0]); + output9[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.022574955908289243 * ((fSlow93 * (fTemp2 + (fSlow95 * fTemp4))) + (fTemp5 + (fSlow96 * fTemp7)))); + fRec37[0] = max((fRec37[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph10 = FAUSTFLOAT(fRec37[0]); + output10[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.022574955908289243 * ((fSlow98 * (fTemp2 + (fSlow100 * fTemp4))) + (fTemp5 + (fSlow101 * fTemp7)))); + fRec38[0] = max((fRec38[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph11 = FAUSTFLOAT(fRec38[0]); + output11[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.022574955908289243 * ((fSlow103 * (fTemp2 + (fSlow105 * fTemp4))) + (fTemp5 + (fSlow106 * fTemp7)))); + fRec39[0] = max((fRec39[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph12 = FAUSTFLOAT(fRec39[0]); + output12[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.022574955908289243 * ((fSlow108 * (fTemp2 + (fSlow110 * fTemp4))) + (fTemp5 + (fSlow111 * fTemp7)))); + fRec40[0] = max((fRec40[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph13 = FAUSTFLOAT(fRec40[0]); + output13[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.022574955908289243 * ((fSlow112 * (fTemp2 + (fSlow114 * fTemp4))) + (fTemp5 + (fSlow115 * fTemp7)))); + fRec41[0] = max((fRec41[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph14 = FAUSTFLOAT(fRec41[0]); + output14[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.022574955908289243 * ((fSlow116 * (fTemp2 + (fSlow118 * fTemp4))) + (fTemp5 + (fSlow119 * fTemp7)))); + fRec42[0] = max((fRec42[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph15 = FAUSTFLOAT(fRec42[0]); + output15[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.022574955908289243 * ((fSlow120 * (fTemp2 + (fSlow122 * fTemp4))) + (fTemp5 + (fSlow123 * fTemp7)))); + fRec43[0] = max((fRec43[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph16 = FAUSTFLOAT(fRec43[0]); + output16[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.022574955908289243 * ((fSlow124 * (fTemp2 + (fSlow126 * fTemp4))) + (fTemp5 + (fSlow127 * fTemp7)))); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph17 = FAUSTFLOAT(fRec44[0]); + output17[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.021093750000000001 * ((fSlow130 * (fTemp2 + (fSlow132 * fTemp4))) + (fTemp5 + (fSlow133 * fTemp7)))); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph18 = FAUSTFLOAT(fRec45[0]); + output18[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.021093750000000001 * ((fSlow135 * (fTemp2 + (fSlow137 * fTemp4))) + (fTemp5 + (fSlow138 * fTemp7)))); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph19 = FAUSTFLOAT(fRec46[0]); + output19[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.021093750000000001 * ((fSlow140 * (fTemp2 + (fSlow142 * fTemp4))) + (fTemp5 + (fSlow143 * fTemp7)))); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph20 = FAUSTFLOAT(fRec47[0]); + output20[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.021093750000000001 * ((fSlow145 * (fTemp2 + (fSlow147 * fTemp4))) + (fTemp5 + (fSlow148 * fTemp7)))); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph21 = FAUSTFLOAT(fRec48[0]); + output21[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.021093750000000001 * ((fSlow149 * (fTemp2 + (fSlow151 * fTemp4))) + (fTemp5 + (fSlow152 * fTemp7)))); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph22 = FAUSTFLOAT(fRec49[0]); + output22[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.021093750000000001 * ((fSlow153 * (fTemp2 + (fSlow155 * fTemp4))) + (fTemp5 + (fSlow156 * fTemp7)))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph23 = FAUSTFLOAT(fRec50[0]); + output23[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (0.021093750000000001 * ((fSlow157 * (fTemp2 + (fSlow159 * fTemp4))) + (fTemp5 + (fSlow160 * fTemp7)))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph24 = FAUSTFLOAT(fRec51[0]); + output24[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (0.021093750000000001 * ((fSlow161 * (fTemp2 + (fSlow163 * fTemp4))) + (fTemp5 + (fSlow164 * fTemp7)))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph25 = FAUSTFLOAT(fRec52[0]); + output25[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (0.02017333553791887 * ((fSlow167 * (fTemp2 + (fSlow169 * fTemp4))) + (fTemp5 + (fSlow170 * fTemp7)))); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph26 = FAUSTFLOAT(fRec53[0]); + output26[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (0.02017333553791887 * ((fSlow172 * (fTemp2 + (fSlow174 * fTemp4))) + (fTemp5 + (fSlow175 * fTemp7)))); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph27 = FAUSTFLOAT(fRec54[0]); + output27[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (0.02017333553791887 * ((fSlow177 * (fTemp2 + (fSlow179 * fTemp4))) + (fTemp5 + (fSlow180 * fTemp7)))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph28 = FAUSTFLOAT(fRec55[0]); + output28[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (0.02017333553791887 * ((fSlow182 * (fTemp2 + (fSlow184 * fTemp4))) + (fTemp5 + (fSlow185 * fTemp7)))); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph29 = FAUSTFLOAT(fRec56[0]); + output29[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (0.02017333553791887 * ((fSlow188 * (fTemp2 + (fSlow190 * fTemp4))) + (fTemp5 + (fSlow191 * fTemp7)))); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph30 = FAUSTFLOAT(fRec57[0]); + output30[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (0.02017333553791887 * ((fSlow193 * (fTemp2 + (fSlow195 * fTemp4))) + (fTemp5 + (fSlow196 * fTemp7)))); + fRec58[0] = max((fRec58[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph31 = FAUSTFLOAT(fRec58[0]); + output31[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (0.02017333553791887 * ((fSlow198 * (fTemp2 + (fSlow200 * fTemp4))) + (fTemp5 + (fSlow201 * fTemp7)))); + fRec59[0] = max((fRec59[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph32 = FAUSTFLOAT(fRec59[0]); + output32[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (0.02017333553791887 * ((fSlow203 * (fTemp2 + (fSlow205 * fTemp4))) + (fTemp5 + (fSlow206 * fTemp7)))); + fRec60[0] = max((fRec60[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph33 = FAUSTFLOAT(fRec60[0]); + output33[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (0.02017333553791887 * ((fSlow208 * (fTemp2 + (fSlow210 * fTemp4))) + (fTemp5 + (fSlow211 * fTemp7)))); + fRec61[0] = max((fRec61[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph34 = FAUSTFLOAT(fRec61[0]); + output34[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (0.02017333553791887 * ((fSlow213 * (fTemp2 + (fSlow215 * fTemp4))) + (fTemp5 + (fSlow216 * fTemp7)))); + fRec62[0] = max((fRec62[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph35 = FAUSTFLOAT(fRec62[0]); + output35[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (0.02017333553791887 * ((fSlow218 * (fTemp2 + (fSlow220 * fTemp4))) + (fTemp5 + (fSlow221 * fTemp7)))); + fRec63[0] = max((fRec63[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph36 = FAUSTFLOAT(fRec63[0]); + output36[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (0.02017333553791887 * ((fSlow223 * (fTemp2 + (fSlow225 * fTemp4))) + (fTemp5 + (fSlow226 * fTemp7)))); + fRec64[0] = max((fRec64[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph37 = FAUSTFLOAT(fRec64[0]); + output37[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (0.02017333553791887 * ((fSlow227 * (fTemp2 + (fSlow229 * fTemp4))) + (fTemp5 + (fSlow230 * fTemp7)))); + fRec65[0] = max((fRec65[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph38 = FAUSTFLOAT(fRec65[0]); + output38[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (0.02017333553791887 * ((fSlow231 * (fTemp2 + (fSlow233 * fTemp4))) + (fTemp5 + (fSlow234 * fTemp7)))); + fRec66[0] = max((fRec66[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph39 = FAUSTFLOAT(fRec66[0]); + output39[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (0.02017333553791887 * ((fSlow235 * (fTemp2 + (fSlow237 * fTemp4))) + (fTemp5 + (fSlow238 * fTemp7)))); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph40 = FAUSTFLOAT(fRec67[0]); + output40[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.02017333553791887 * ((fSlow239 * (fTemp2 + (fSlow241 * fTemp4))) + (fTemp5 + (fSlow242 * fTemp7)))); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph41 = FAUSTFLOAT(fRec68[0]); + output41[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (0.02017333553791887 * ((fSlow243 * (fTemp2 + (fSlow245 * fTemp4))) + (fTemp5 + (fSlow246 * fTemp7)))); + fRec69[0] = max((fRec69[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph42 = FAUSTFLOAT(fRec69[0]); + output42[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (0.02017333553791887 * ((fSlow247 * (fTemp2 + (fSlow249 * fTemp4))) + (fTemp5 + (fSlow250 * fTemp7)))); + fRec70[0] = max((fRec70[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph43 = FAUSTFLOAT(fRec70[0]); + output43[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (0.02017333553791887 * ((fSlow251 * (fTemp2 + (fSlow253 * fTemp4))) + (fTemp5 + (fSlow254 * fTemp7)))); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph44 = FAUSTFLOAT(fRec71[0]); + output44[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (0.02017333553791887 * ((fSlow255 * (fTemp2 + (fSlow257 * fTemp4))) + (fTemp5 + (fSlow258 * fTemp7)))); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph45 = FAUSTFLOAT(fRec72[0]); + output45[i] = FAUSTFLOAT(fTemp53); + double fTemp54 = (0.02017333553791887 * ((fSlow259 * (fTemp2 + (fSlow261 * fTemp4))) + (fTemp5 + (fSlow262 * fTemp7)))); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph46 = FAUSTFLOAT(fRec73[0]); + output46[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (0.02017333553791887 * ((fSlow263 * (fTemp2 + (fSlow265 * fTemp4))) + (fTemp5 + (fSlow266 * fTemp7)))); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph47 = FAUSTFLOAT(fRec74[0]); + output47[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (0.02017333553791887 * ((fSlow267 * (fTemp2 + (fSlow269 * fTemp4))) + (fTemp5 + (fSlow270 * fTemp7)))); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph48 = FAUSTFLOAT(fRec75[0]); + output48[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (0.02017333553791887 * ((fSlow271 * (fTemp2 + (fSlow273 * fTemp4))) + (fTemp5 + (fSlow274 * fTemp7)))); + fRec76[0] = max((fRec76[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph49 = FAUSTFLOAT(fRec76[0]); + output49[i] = FAUSTFLOAT(fTemp57); + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec2[1] = fRec2[0]; + fRec1[1] = fRec1[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec9[1] = fRec9[0]; + fRec12[1] = fRec12[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec15[1] = fRec15[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fVec1[1] = fVec1[0]; + fRec24[1] = fRec24[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec25[1] = fRec25[0]; + fRec0[1] = fRec0[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec30[1] = fRec30[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec33[1] = fRec33[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec58[1] = fRec58[0]; + fRec59[1] = fRec59[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec62[1] = fRec62[0]; + fRec63[1] = fRec63[0]; + fRec64[1] = fRec64[0]; + fRec65[1] = fRec65[0]; + fRec66[1] = fRec66[0]; + fRec67[1] = fRec67[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec74[1] = fRec74[0]; + fRec75[1] = fRec75[0]; + fRec76[1] = fRec76[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev504.cpp b/source/HOAUGens/HOAPanLebedev504.cpp new file mode 100644 index 0000000000..86820dfd82 --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev504.cpp @@ -0,0 +1,3026 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev504" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fCheckbox0; + double fConst2; + double fConst3; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider2; + double fRec3[2]; + double fRec4[2]; + double fRec2[2]; + double fRec1[2]; + double fRec6[2]; + double fRec5[2]; + FAUSTFLOAT fCheckbox2; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fRec10[2]; + double fRec11[2]; + double fRec9[2]; + double fRec12[2]; + double fVec0[2]; + double fRec13[2]; + double fRec14[2]; + double fRec8[2]; + double fRec7[2]; + double fRec17[2]; + double fRec18[2]; + double fRec16[2]; + double fRec19[2]; + double fRec15[2]; + FAUSTFLOAT fCheckbox3; + FAUSTFLOAT fCheckbox4; + double fConst8; + double fConst9; + double fRec22[2]; + double fRec23[2]; + double fRec21[2]; + double fRec20[2]; + double fVec1[2]; + double fRec24[2]; + double fRec26[2]; + double fRec27[2]; + double fRec25[2]; + FAUSTFLOAT fCheckbox5; + double fConst10; + double fConst11; + double fConst12; + double fConst13; + double fRec31[2]; + double fRec32[2]; + double fRec30[2]; + double fRec33[2]; + double fVec2[2]; + double fRec34[2]; + double fRec35[2]; + double fRec36[2]; + double fRec29[2]; + double fRec28[2]; + double fVec3[2]; + double fRec37[2]; + double fRec40[2]; + double fRec41[2]; + double fRec39[2]; + double fRec42[2]; + double fRec43[2]; + double fRec38[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec44[2]; + FAUSTFLOAT fVbargraph1; + double fRec45[2]; + FAUSTFLOAT fVbargraph2; + double fRec46[2]; + FAUSTFLOAT fVbargraph3; + double fRec47[2]; + FAUSTFLOAT fVbargraph4; + double fRec48[2]; + FAUSTFLOAT fVbargraph5; + double fRec49[2]; + FAUSTFLOAT fVbargraph6; + double fRec50[2]; + FAUSTFLOAT fVbargraph7; + double fRec51[2]; + FAUSTFLOAT fVbargraph8; + double fRec52[2]; + FAUSTFLOAT fVbargraph9; + double fRec53[2]; + FAUSTFLOAT fVbargraph10; + double fRec54[2]; + FAUSTFLOAT fVbargraph11; + double fRec55[2]; + FAUSTFLOAT fVbargraph12; + double fRec56[2]; + FAUSTFLOAT fVbargraph13; + double fRec57[2]; + FAUSTFLOAT fVbargraph14; + double fRec58[2]; + FAUSTFLOAT fVbargraph15; + double fRec59[2]; + FAUSTFLOAT fVbargraph16; + double fRec60[2]; + FAUSTFLOAT fVbargraph17; + double fRec61[2]; + FAUSTFLOAT fVbargraph18; + double fRec62[2]; + FAUSTFLOAT fVbargraph19; + double fRec63[2]; + FAUSTFLOAT fVbargraph20; + double fRec64[2]; + FAUSTFLOAT fVbargraph21; + double fRec65[2]; + FAUSTFLOAT fVbargraph22; + double fRec66[2]; + FAUSTFLOAT fVbargraph23; + double fRec67[2]; + FAUSTFLOAT fVbargraph24; + double fRec68[2]; + FAUSTFLOAT fVbargraph25; + double fRec69[2]; + FAUSTFLOAT fVbargraph26; + double fRec70[2]; + FAUSTFLOAT fVbargraph27; + double fRec71[2]; + FAUSTFLOAT fVbargraph28; + double fRec72[2]; + FAUSTFLOAT fVbargraph29; + double fRec73[2]; + FAUSTFLOAT fVbargraph30; + double fRec74[2]; + FAUSTFLOAT fVbargraph31; + double fRec75[2]; + FAUSTFLOAT fVbargraph32; + double fRec76[2]; + FAUSTFLOAT fVbargraph33; + double fRec77[2]; + FAUSTFLOAT fVbargraph34; + double fRec78[2]; + FAUSTFLOAT fVbargraph35; + double fRec79[2]; + FAUSTFLOAT fVbargraph36; + double fRec80[2]; + FAUSTFLOAT fVbargraph37; + double fRec81[2]; + FAUSTFLOAT fVbargraph38; + double fRec82[2]; + FAUSTFLOAT fVbargraph39; + double fRec83[2]; + FAUSTFLOAT fVbargraph40; + double fRec84[2]; + FAUSTFLOAT fVbargraph41; + double fRec85[2]; + FAUSTFLOAT fVbargraph42; + double fRec86[2]; + FAUSTFLOAT fVbargraph43; + double fRec87[2]; + FAUSTFLOAT fVbargraph44; + double fRec88[2]; + FAUSTFLOAT fVbargraph45; + double fRec89[2]; + FAUSTFLOAT fVbargraph46; + double fRec90[2]; + FAUSTFLOAT fVbargraph47; + double fRec91[2]; + FAUSTFLOAT fVbargraph48; + double fRec92[2]; + FAUSTFLOAT fVbargraph49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev504"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + fConst4 = (789.54302057287055 / fConst0); + fConst5 = (394.77151028643527 / fConst0); + fConst6 = (625.22848971356643 / fConst0); + fConst7 = (1250.4569794271329 / fConst0); + fConst8 = (510.0 / fConst0); + fConst9 = (1020.0 / fConst0); + fConst10 = (984.71160495892411 / fConst0); + fConst11 = (1969.4232099178482 / fConst0); + fConst12 = (715.28839504107589 / fConst0); + fConst13 = (1430.5767900821518 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fCheckbox3 = FAUSTFLOAT(0.0); + fCheckbox4 = FAUSTFLOAT(0.0); + fCheckbox5 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec3[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec1[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec10[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec11[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fVec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec13[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec14[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec8[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec7[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec17[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec18[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec15[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec22[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec23[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec21[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec20[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fVec1[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec24[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec26[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec27[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec25[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec31[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fRec32[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec30[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec33[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fVec2[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec34[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec35[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec36[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec29[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec28[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fVec3[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec37[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec41[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec39[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec42[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec43[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec38[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fRec0[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec44[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec45[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec46[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec47[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec48[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec49[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec50[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec51[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fRec52[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec53[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec54[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec55[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec56[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec57[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fRec58[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec59[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec60[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec61[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec62[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec63[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec64[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec65[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec66[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec67[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec68[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec69[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec70[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec71[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec72[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec73[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec74[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec75[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec76[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec77[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec78[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec79[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec80[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec81[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec82[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec83[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec84[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec85[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec86[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec87[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec88[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec89[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec90[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec91[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec92[l96] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev504"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider2, "0+1", ""); + ui_interface->declare(&fHslider2, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider2, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider1, "0+2", ""); + ui_interface->declare(&fHslider1, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider1, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+4", ""); + ui_interface->declare(&fHslider0, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider0, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox3); + ui_interface->addCheckButton("1", &fCheckbox0); + ui_interface->addCheckButton("2", &fCheckbox4); + ui_interface->addCheckButton("3", &fCheckbox2); + ui_interface->addCheckButton("4", &fCheckbox5); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fbc6c0", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fc8520", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fd25c0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fdc740", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2fe69a0", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ff02c0", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x2ffa660", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3004180", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x300dd80", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3017a60", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3022200", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x302ca80", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30373e0", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3041e20", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x304bb70", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30559a0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x305f8b0", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30698a0", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30746c0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x307ec60", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30892e0", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3093a40", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x309de90", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30a83c0", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30b29d0", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30bd0c0", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph26, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30c7b90", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph27, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30d1330", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph28, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30dabb0", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph29, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30e4510", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph30, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30ef0b0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph31, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30f95a0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph32, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3103b70", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph33, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x310e220", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph34, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31189b0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph35, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3123220", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph36, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312db70", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph37, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31385a0", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph38, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31422f0", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph39, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314c120", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph40, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3156030", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph41, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3160020", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph42, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316a0f0", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph43, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31742a0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph44, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317e530", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph45, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31888a0", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph46, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3192cf0", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph47, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x319d220", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph48, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a7830", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph49, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31b1f20", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = double(fHslider0); + double fSlow1 = sin(fSlow0); + double fSlow2 = (3.0 * (1.0 - double(fCheckbox0))); + double fSlow3 = double(fHslider1); + double fSlow4 = (fConst3 / fSlow3); + double fSlow5 = (fSlow4 + 1.0); + double fSlow6 = (fConst2 / (fSlow5 * fSlow3)); + double fSlow7 = double(fEntry0); + double fSlow8 = (fConst3 / fSlow7); + double fSlow9 = (1.0 / (fSlow8 + 1.0)); + double fSlow10 = double(fCheckbox1); + double fSlow11 = (((fSlow5 * fSlow10) * fSlow7) / fSlow3); + double fSlow12 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider2)))); + double fSlow13 = (fConst2 / fSlow7); + double fSlow14 = (1.0 - fSlow10); + double fSlow15 = (fSlow14 * fSlow7); + double fSlow16 = mydsp_faustpower2_f(fSlow1); + double fSlow17 = ((3.0 * fSlow16) + -1.0); + double fSlow18 = ((2.5 * fSlow17) + -2.0); + double fSlow19 = (1.0 - double(fCheckbox2)); + double fSlow20 = (2.333333333333333 * (fSlow18 * fSlow19)); + double fSlow21 = ((fConst5 / fSlow3) + 1.0); + double fSlow22 = (fConst4 / (fSlow21 * fSlow3)); + double fSlow23 = (1.0 / ((fConst5 / fSlow7) + 1.0)); + double fSlow24 = mydsp_faustpower2_f(fSlow8); + double fSlow25 = (1.0 / (((fConst6 / fSlow7) + (6.4594326934833797 * fSlow24)) + 1.0)); + double fSlow26 = mydsp_faustpower2_f(fSlow4); + double fSlow27 = (((fConst6 / fSlow3) + (6.4594326934833797 * fSlow26)) + 1.0); + double fSlow28 = (((fSlow27 * fSlow10) * fSlow7) / fSlow3); + double fSlow29 = (25.837730773933519 * fSlow24); + double fSlow30 = (fSlow29 + (fConst7 / fSlow7)); + double fSlow31 = (1.0 / fSlow27); + double fSlow32 = (25.837730773933519 * fSlow26); + double fSlow33 = ((fConst7 / fSlow3) + fSlow32); + double fSlow34 = (fConst4 / fSlow7); + double fSlow35 = ((((fSlow10 / fSlow3) + fSlow14) * fSlow7) * (1.0 - double(fCheckbox3))); + double fSlow36 = (1.0 - double(fCheckbox4)); + double fSlow37 = (2.5 * (fSlow17 * fSlow36)); + double fSlow38 = (((fConst8 / fSlow3) + (3.0 * fSlow26)) + 1.0); + double fSlow39 = (1.0 / fSlow38); + double fSlow40 = (12.0 * fSlow26); + double fSlow41 = ((fConst9 / fSlow3) + fSlow40); + double fSlow42 = (1.0 / (((fConst8 / fSlow7) + (3.0 * fSlow24)) + 1.0)); + double fSlow43 = (((fSlow38 * fSlow10) * fSlow7) / fSlow3); + double fSlow44 = (12.0 * fSlow24); + double fSlow45 = (fSlow44 + (fConst9 / fSlow7)); + double fSlow46 = (1.0 - double(fCheckbox5)); + double fSlow47 = (2.25 * (((2.333333333333333 * (fSlow18 * fSlow16)) - (1.5 * fSlow17)) * fSlow46)); + double fSlow48 = (((fConst10 / fSlow3) + (9.1401308902779004 * fSlow26)) + 1.0); + double fSlow49 = (1.0 / fSlow48); + double fSlow50 = (36.560523561111602 * fSlow26); + double fSlow51 = ((fConst11 / fSlow3) + fSlow50); + double fSlow52 = (1.0 / (((fConst10 / fSlow7) + (9.1401308902779004 * fSlow24)) + 1.0)); + double fSlow53 = (1.0 / (((fConst12 / fSlow7) + (11.4878004768713 * fSlow24)) + 1.0)); + double fSlow54 = (((fConst12 / fSlow3) + (11.4878004768713 * fSlow26)) + 1.0); + double fSlow55 = (((fSlow54 * fSlow10) * fSlow7) / fSlow3); + double fSlow56 = (45.951201907485199 * fSlow24); + double fSlow57 = (fSlow56 + (fConst13 / fSlow7)); + double fSlow58 = (1.0 / fSlow54); + double fSlow59 = (45.951201907485199 * fSlow26); + double fSlow60 = ((fConst13 / fSlow3) + fSlow59); + double fSlow61 = (36.560523561111602 * fSlow24); + double fSlow62 = (fSlow61 + (fConst11 / fSlow7)); + double fSlow63 = double(fHslider3); + double fSlow64 = cos(fSlow63); + double fSlow65 = cos(fSlow0); + double fSlow66 = (fSlow64 * fSlow65); + double fSlow67 = mydsp_faustpower2_f(fSlow64); + double fSlow68 = mydsp_faustpower2_f(fSlow65); + double fSlow69 = ((3.0 * (fSlow67 * fSlow68)) + -1.0); + double fSlow70 = ((2.5 * fSlow69) + -2.0); + double fSlow71 = (2.333333333333333 * (fSlow70 * fSlow19)); + double fSlow72 = (2.5 * (fSlow69 * fSlow36)); + double fSlow73 = (2.25 * (((2.333333333333333 * ((fSlow67 * fSlow70) * fSlow68)) - (1.5 * fSlow69)) * fSlow46)); + double fSlow74 = cos((fSlow63 + -1.5707963267948966)); + double fSlow75 = (fSlow74 * fSlow65); + double fSlow76 = mydsp_faustpower2_f(fSlow74); + double fSlow77 = ((3.0 * (fSlow76 * fSlow68)) + -1.0); + double fSlow78 = ((2.5 * fSlow77) + -2.0); + double fSlow79 = (2.333333333333333 * (fSlow78 * fSlow19)); + double fSlow80 = (2.5 * (fSlow77 * fSlow36)); + double fSlow81 = (2.25 * (((2.333333333333333 * ((fSlow76 * fSlow78) * fSlow68)) - (1.5 * fSlow77)) * fSlow46)); + double fSlow82 = cos((fSlow63 + -3.1415926535897931)); + double fSlow83 = (fSlow82 * fSlow65); + double fSlow84 = mydsp_faustpower2_f(fSlow82); + double fSlow85 = ((3.0 * (fSlow84 * fSlow68)) + -1.0); + double fSlow86 = ((2.5 * fSlow85) + -2.0); + double fSlow87 = (2.333333333333333 * (fSlow86 * fSlow19)); + double fSlow88 = (2.5 * (fSlow85 * fSlow36)); + double fSlow89 = (2.25 * (((2.333333333333333 * ((fSlow84 * fSlow86) * fSlow68)) - (1.5 * fSlow85)) * fSlow46)); + double fSlow90 = cos((fSlow63 + -4.7123889803846897)); + double fSlow91 = (fSlow90 * fSlow65); + double fSlow92 = mydsp_faustpower2_f(fSlow90); + double fSlow93 = ((3.0 * (fSlow92 * fSlow68)) + -1.0); + double fSlow94 = ((2.5 * fSlow93) + -2.0); + double fSlow95 = (2.333333333333333 * (fSlow94 * fSlow19)); + double fSlow96 = (2.5 * (fSlow93 * fSlow36)); + double fSlow97 = (2.25 * (((2.333333333333333 * ((fSlow92 * fSlow94) * fSlow68)) - (1.5 * fSlow93)) * fSlow46)); + double fSlow98 = ((6.123233995736766e-17 * fSlow66) - fSlow1); + double fSlow99 = mydsp_faustpower2_f(fSlow98); + double fSlow100 = ((3.0 * fSlow99) + -1.0); + double fSlow101 = ((2.5 * fSlow100) + -2.0); + double fSlow102 = (2.333333333333333 * (fSlow101 * fSlow19)); + double fSlow103 = (2.5 * (fSlow100 * fSlow36)); + double fSlow104 = (2.25 * (((2.333333333333333 * (fSlow99 * fSlow101)) - (1.5 * fSlow100)) * fSlow46)); + double fSlow105 = (0.70710678118654757 * fSlow66); + double fSlow106 = (0.70710678118654746 * fSlow1); + double fSlow107 = (fSlow105 + fSlow106); + double fSlow108 = mydsp_faustpower2_f(fSlow107); + double fSlow109 = ((3.0 * fSlow108) + -1.0); + double fSlow110 = ((2.5 * fSlow109) + -2.0); + double fSlow111 = (2.333333333333333 * (fSlow110 * fSlow19)); + double fSlow112 = (2.5 * (fSlow109 * fSlow36)); + double fSlow113 = (2.25 * (((2.333333333333333 * (fSlow108 * fSlow110)) - (1.5 * fSlow109)) * fSlow46)); + double fSlow114 = (0.70710678118654757 * fSlow75); + double fSlow115 = (fSlow106 + fSlow114); + double fSlow116 = mydsp_faustpower2_f(fSlow115); + double fSlow117 = ((3.0 * fSlow116) + -1.0); + double fSlow118 = ((2.5 * fSlow117) + -2.0); + double fSlow119 = (2.333333333333333 * (fSlow118 * fSlow19)); + double fSlow120 = (2.5 * (fSlow117 * fSlow36)); + double fSlow121 = (2.25 * (((2.333333333333333 * (fSlow116 * fSlow118)) - (1.5 * fSlow117)) * fSlow46)); + double fSlow122 = (0.70710678118654757 * fSlow83); + double fSlow123 = (fSlow106 + fSlow122); + double fSlow124 = mydsp_faustpower2_f(fSlow123); + double fSlow125 = ((3.0 * fSlow124) + -1.0); + double fSlow126 = ((2.5 * fSlow125) + -2.0); + double fSlow127 = (2.333333333333333 * (fSlow126 * fSlow19)); + double fSlow128 = (2.5 * (fSlow125 * fSlow36)); + double fSlow129 = (2.25 * (((2.333333333333333 * (fSlow124 * fSlow126)) - (1.5 * fSlow125)) * fSlow46)); + double fSlow130 = (0.70710678118654757 * fSlow91); + double fSlow131 = (fSlow106 + fSlow130); + double fSlow132 = mydsp_faustpower2_f(fSlow131); + double fSlow133 = ((3.0 * fSlow132) + -1.0); + double fSlow134 = ((2.5 * fSlow133) + -2.0); + double fSlow135 = (2.25 * (((2.333333333333333 * (fSlow132 * fSlow134)) - (1.5 * fSlow133)) * fSlow46)); + double fSlow136 = (2.333333333333333 * (fSlow134 * fSlow19)); + double fSlow137 = (2.5 * (fSlow133 * fSlow36)); + double fSlow138 = cos((fSlow63 + -0.78539816339744828)); + double fSlow139 = (fSlow138 * fSlow65); + double fSlow140 = mydsp_faustpower2_f(fSlow138); + double fSlow141 = ((3.0 * (fSlow140 * fSlow68)) + -1.0); + double fSlow142 = ((2.5 * fSlow141) + -2.0); + double fSlow143 = (2.333333333333333 * (fSlow142 * fSlow19)); + double fSlow144 = (2.5 * (fSlow141 * fSlow36)); + double fSlow145 = (2.25 * (((2.333333333333333 * ((fSlow140 * fSlow142) * fSlow68)) - (1.5 * fSlow141)) * fSlow46)); + double fSlow146 = cos((fSlow63 + -2.3561944901923448)); + double fSlow147 = (fSlow146 * fSlow65); + double fSlow148 = mydsp_faustpower2_f(fSlow146); + double fSlow149 = ((3.0 * (fSlow148 * fSlow68)) + -1.0); + double fSlow150 = ((2.5 * fSlow149) + -2.0); + double fSlow151 = (2.333333333333333 * (fSlow150 * fSlow19)); + double fSlow152 = (2.5 * (fSlow149 * fSlow36)); + double fSlow153 = (2.25 * (((2.333333333333333 * ((fSlow148 * fSlow150) * fSlow68)) - (1.5 * fSlow149)) * fSlow46)); + double fSlow154 = cos((fSlow63 + -3.9269908169872414)); + double fSlow155 = (fSlow154 * fSlow65); + double fSlow156 = mydsp_faustpower2_f(fSlow154); + double fSlow157 = ((3.0 * (fSlow156 * fSlow68)) + -1.0); + double fSlow158 = ((2.5 * fSlow157) + -2.0); + double fSlow159 = (2.333333333333333 * (fSlow158 * fSlow19)); + double fSlow160 = (2.5 * (fSlow157 * fSlow36)); + double fSlow161 = (2.25 * (((2.333333333333333 * ((fSlow156 * fSlow158) * fSlow68)) - (1.5 * fSlow157)) * fSlow46)); + double fSlow162 = cos((fSlow63 + -5.497787143782138)); + double fSlow163 = (fSlow162 * fSlow65); + double fSlow164 = mydsp_faustpower2_f(fSlow162); + double fSlow165 = ((3.0 * (fSlow164 * fSlow68)) + -1.0); + double fSlow166 = ((2.5 * fSlow165) + -2.0); + double fSlow167 = (2.333333333333333 * (fSlow166 * fSlow19)); + double fSlow168 = (2.5 * (fSlow165 * fSlow36)); + double fSlow169 = (2.25 * (((2.333333333333333 * ((fSlow164 * fSlow166) * fSlow68)) - (1.5 * fSlow165)) * fSlow46)); + double fSlow170 = (fSlow105 - fSlow106); + double fSlow171 = mydsp_faustpower2_f(fSlow170); + double fSlow172 = ((3.0 * fSlow171) + -1.0); + double fSlow173 = ((2.5 * fSlow172) + -2.0); + double fSlow174 = (2.333333333333333 * (fSlow173 * fSlow19)); + double fSlow175 = (2.5 * (fSlow172 * fSlow36)); + double fSlow176 = (2.25 * (((2.333333333333333 * (fSlow171 * fSlow173)) - (1.5 * fSlow172)) * fSlow46)); + double fSlow177 = (fSlow114 - fSlow106); + double fSlow178 = mydsp_faustpower2_f(fSlow177); + double fSlow179 = ((3.0 * fSlow178) + -1.0); + double fSlow180 = ((2.5 * fSlow179) + -2.0); + double fSlow181 = (2.333333333333333 * (fSlow180 * fSlow19)); + double fSlow182 = (2.5 * (fSlow179 * fSlow36)); + double fSlow183 = (2.25 * (((2.333333333333333 * (fSlow178 * fSlow180)) - (1.5 * fSlow179)) * fSlow46)); + double fSlow184 = (fSlow122 - fSlow106); + double fSlow185 = mydsp_faustpower2_f(fSlow184); + double fSlow186 = ((3.0 * fSlow185) + -1.0); + double fSlow187 = ((2.5 * fSlow186) + -2.0); + double fSlow188 = (2.333333333333333 * (fSlow187 * fSlow19)); + double fSlow189 = (2.5 * (fSlow186 * fSlow36)); + double fSlow190 = (2.25 * (((2.333333333333333 * (fSlow185 * fSlow187)) - (1.5 * fSlow186)) * fSlow46)); + double fSlow191 = (fSlow130 - fSlow106); + double fSlow192 = mydsp_faustpower2_f(fSlow191); + double fSlow193 = ((3.0 * fSlow192) + -1.0); + double fSlow194 = ((2.5 * fSlow193) + -2.0); + double fSlow195 = (2.333333333333333 * (fSlow194 * fSlow19)); + double fSlow196 = (2.5 * (fSlow193 * fSlow36)); + double fSlow197 = (2.25 * (((2.333333333333333 * (fSlow192 * fSlow194)) - (1.5 * fSlow193)) * fSlow46)); + double fSlow198 = (0.81649658092772592 * fSlow139); + double fSlow199 = (0.57735026918962584 * fSlow1); + double fSlow200 = (fSlow198 + fSlow199); + double fSlow201 = mydsp_faustpower2_f(fSlow200); + double fSlow202 = ((3.0 * fSlow201) + -1.0); + double fSlow203 = ((2.5 * fSlow202) + -2.0); + double fSlow204 = (2.333333333333333 * (fSlow203 * fSlow19)); + double fSlow205 = (2.5 * (fSlow202 * fSlow36)); + double fSlow206 = (2.25 * (((2.333333333333333 * (fSlow201 * fSlow203)) - (1.5 * fSlow202)) * fSlow46)); + double fSlow207 = (0.81649658092772592 * fSlow147); + double fSlow208 = (fSlow199 + fSlow207); + double fSlow209 = mydsp_faustpower2_f(fSlow208); + double fSlow210 = ((3.0 * fSlow209) + -1.0); + double fSlow211 = ((2.5 * fSlow210) + -2.0); + double fSlow212 = (2.333333333333333 * (fSlow211 * fSlow19)); + double fSlow213 = (2.5 * (fSlow210 * fSlow36)); + double fSlow214 = (2.25 * (((2.333333333333333 * (fSlow209 * fSlow211)) - (1.5 * fSlow210)) * fSlow46)); + double fSlow215 = (0.81649658092772592 * fSlow155); + double fSlow216 = (fSlow199 + fSlow215); + double fSlow217 = mydsp_faustpower2_f(fSlow216); + double fSlow218 = ((3.0 * fSlow217) + -1.0); + double fSlow219 = ((2.5 * fSlow218) + -2.0); + double fSlow220 = (2.333333333333333 * (fSlow219 * fSlow19)); + double fSlow221 = (2.5 * (fSlow218 * fSlow36)); + double fSlow222 = (2.25 * (((2.333333333333333 * (fSlow217 * fSlow219)) - (1.5 * fSlow218)) * fSlow46)); + double fSlow223 = (0.81649658092772592 * fSlow163); + double fSlow224 = (fSlow199 + fSlow223); + double fSlow225 = mydsp_faustpower2_f(fSlow224); + double fSlow226 = ((3.0 * fSlow225) + -1.0); + double fSlow227 = ((2.5 * fSlow226) + -2.0); + double fSlow228 = (2.333333333333333 * (fSlow227 * fSlow19)); + double fSlow229 = (2.5 * (fSlow226 * fSlow36)); + double fSlow230 = (2.25 * (((2.333333333333333 * (fSlow225 * fSlow227)) - (1.5 * fSlow226)) * fSlow46)); + double fSlow231 = (fSlow198 - fSlow199); + double fSlow232 = mydsp_faustpower2_f(fSlow231); + double fSlow233 = ((3.0 * fSlow232) + -1.0); + double fSlow234 = ((2.5 * fSlow233) + -2.0); + double fSlow235 = (2.333333333333333 * (fSlow234 * fSlow19)); + double fSlow236 = (2.5 * (fSlow233 * fSlow36)); + double fSlow237 = (2.25 * (((2.333333333333333 * (fSlow232 * fSlow234)) - (1.5 * fSlow233)) * fSlow46)); + double fSlow238 = (fSlow207 - fSlow199); + double fSlow239 = mydsp_faustpower2_f(fSlow238); + double fSlow240 = ((3.0 * fSlow239) + -1.0); + double fSlow241 = ((2.5 * fSlow240) + -2.0); + double fSlow242 = (2.333333333333333 * (fSlow241 * fSlow19)); + double fSlow243 = (2.5 * (fSlow240 * fSlow36)); + double fSlow244 = (2.25 * (((2.333333333333333 * (fSlow239 * fSlow241)) - (1.5 * fSlow240)) * fSlow46)); + double fSlow245 = (fSlow215 - fSlow199); + double fSlow246 = mydsp_faustpower2_f(fSlow245); + double fSlow247 = ((3.0 * fSlow246) + -1.0); + double fSlow248 = ((2.5 * fSlow247) + -2.0); + double fSlow249 = (2.333333333333333 * (fSlow248 * fSlow19)); + double fSlow250 = (2.5 * (fSlow247 * fSlow36)); + double fSlow251 = (2.25 * (((2.333333333333333 * (fSlow246 * fSlow248)) - (1.5 * fSlow247)) * fSlow46)); + double fSlow252 = (fSlow223 - fSlow199); + double fSlow253 = mydsp_faustpower2_f(fSlow252); + double fSlow254 = ((3.0 * fSlow253) + -1.0); + double fSlow255 = ((2.5 * fSlow254) + -2.0); + double fSlow256 = (2.333333333333333 * (fSlow255 * fSlow19)); + double fSlow257 = (2.5 * (fSlow254 * fSlow36)); + double fSlow258 = (2.25 * (((2.333333333333333 * (fSlow253 * fSlow255)) - (1.5 * fSlow254)) * fSlow46)); + double fSlow259 = (0.42640143271122027 * (cos((fSlow63 + -0.78539816339744839)) * fSlow65)); + double fSlow260 = (0.90453403373329111 * fSlow1); + double fSlow261 = (fSlow259 + fSlow260); + double fSlow262 = mydsp_faustpower2_f(fSlow261); + double fSlow263 = ((3.0 * fSlow262) + -1.0); + double fSlow264 = ((2.5 * fSlow263) + -2.0); + double fSlow265 = (2.333333333333333 * (fSlow264 * fSlow19)); + double fSlow266 = (2.5 * (fSlow263 * fSlow36)); + double fSlow267 = (2.25 * (((2.333333333333333 * (fSlow262 * fSlow264)) - (1.5 * fSlow263)) * fSlow46)); + double fSlow268 = (0.42640143271122027 * fSlow147); + double fSlow269 = (fSlow260 + fSlow268); + double fSlow270 = mydsp_faustpower2_f(fSlow269); + double fSlow271 = ((3.0 * fSlow270) + -1.0); + double fSlow272 = ((2.5 * fSlow271) + -2.0); + double fSlow273 = (2.333333333333333 * (fSlow272 * fSlow19)); + double fSlow274 = (2.5 * (fSlow271 * fSlow36)); + double fSlow275 = (2.25 * (((2.333333333333333 * (fSlow270 * fSlow272)) - (1.5 * fSlow271)) * fSlow46)); + double fSlow276 = (0.42640143271122027 * fSlow155); + double fSlow277 = (fSlow260 + fSlow276); + double fSlow278 = mydsp_faustpower2_f(fSlow277); + double fSlow279 = ((3.0 * fSlow278) + -1.0); + double fSlow280 = ((2.5 * fSlow279) + -2.0); + double fSlow281 = (2.333333333333333 * (fSlow280 * fSlow19)); + double fSlow282 = (2.5 * (fSlow279 * fSlow36)); + double fSlow283 = (2.25 * (((2.333333333333333 * (fSlow278 * fSlow280)) - (1.5 * fSlow279)) * fSlow46)); + double fSlow284 = (0.42640143271122027 * fSlow163); + double fSlow285 = (fSlow260 + fSlow284); + double fSlow286 = mydsp_faustpower2_f(fSlow285); + double fSlow287 = ((3.0 * fSlow286) + -1.0); + double fSlow288 = ((2.5 * fSlow287) + -2.0); + double fSlow289 = (2.333333333333333 * (fSlow288 * fSlow19)); + double fSlow290 = (2.5 * (fSlow287 * fSlow36)); + double fSlow291 = (2.25 * (((2.333333333333333 * (fSlow286 * fSlow288)) - (1.5 * fSlow287)) * fSlow46)); + double fSlow292 = (0.95346258924559235 * (cos((fSlow63 + -0.32175055439664263)) * fSlow65)); + double fSlow293 = (0.30151134457776352 * fSlow1); + double fSlow294 = (fSlow292 + fSlow293); + double fSlow295 = mydsp_faustpower2_f(fSlow294); + double fSlow296 = ((3.0 * fSlow295) + -1.0); + double fSlow297 = ((2.5 * fSlow296) + -2.0); + double fSlow298 = (2.333333333333333 * (fSlow297 * fSlow19)); + double fSlow299 = (2.5 * (fSlow296 * fSlow36)); + double fSlow300 = (2.25 * (((2.333333333333333 * (fSlow295 * fSlow297)) - (1.5 * fSlow296)) * fSlow46)); + double fSlow301 = (0.95346258924559235 * (cos((fSlow63 + -1.2490457723982544)) * fSlow65)); + double fSlow302 = (fSlow293 + fSlow301); + double fSlow303 = mydsp_faustpower2_f(fSlow302); + double fSlow304 = ((3.0 * fSlow303) + -1.0); + double fSlow305 = ((2.5 * fSlow304) + -2.0); + double fSlow306 = (2.333333333333333 * (fSlow305 * fSlow19)); + double fSlow307 = (2.5 * (fSlow304 * fSlow36)); + double fSlow308 = (2.25 * (((2.333333333333333 * (fSlow303 * fSlow305)) - (1.5 * fSlow304)) * fSlow46)); + double fSlow309 = (0.95346258924559235 * (cos((fSlow63 + -1.8925468811915387)) * fSlow65)); + double fSlow310 = (fSlow293 + fSlow309); + double fSlow311 = mydsp_faustpower2_f(fSlow310); + double fSlow312 = ((3.0 * fSlow311) + -1.0); + double fSlow313 = ((2.5 * fSlow312) + -2.0); + double fSlow314 = (2.333333333333333 * (fSlow313 * fSlow19)); + double fSlow315 = (2.5 * (fSlow312 * fSlow36)); + double fSlow316 = (2.25 * (((2.333333333333333 * (fSlow311 * fSlow313)) - (1.5 * fSlow312)) * fSlow46)); + double fSlow317 = (0.95346258924559235 * (cos((fSlow63 + -2.8198420991931505)) * fSlow65)); + double fSlow318 = (fSlow293 + fSlow317); + double fSlow319 = mydsp_faustpower2_f(fSlow318); + double fSlow320 = ((3.0 * fSlow319) + -1.0); + double fSlow321 = ((2.5 * fSlow320) + -2.0); + double fSlow322 = (2.333333333333333 * (fSlow321 * fSlow19)); + double fSlow323 = (2.5 * (fSlow320 * fSlow36)); + double fSlow324 = (2.25 * (((2.333333333333333 * (fSlow319 * fSlow321)) - (1.5 * fSlow320)) * fSlow46)); + double fSlow325 = (0.95346258924559235 * (cos((fSlow63 + -3.4633432079864357)) * fSlow65)); + double fSlow326 = (fSlow293 + fSlow325); + double fSlow327 = mydsp_faustpower2_f(fSlow326); + double fSlow328 = ((3.0 * fSlow327) + -1.0); + double fSlow329 = ((2.5 * fSlow328) + -2.0); + double fSlow330 = (2.333333333333333 * (fSlow329 * fSlow19)); + double fSlow331 = (2.5 * (fSlow328 * fSlow36)); + double fSlow332 = (2.25 * (((2.333333333333333 * (fSlow327 * fSlow329)) - (1.5 * fSlow328)) * fSlow46)); + double fSlow333 = (0.95346258924559235 * (cos((fSlow63 + -4.3906384259880475)) * fSlow65)); + double fSlow334 = (fSlow293 + fSlow333); + double fSlow335 = mydsp_faustpower2_f(fSlow334); + double fSlow336 = ((3.0 * fSlow335) + -1.0); + double fSlow337 = ((2.5 * fSlow336) + -2.0); + double fSlow338 = (2.333333333333333 * (fSlow337 * fSlow19)); + double fSlow339 = (2.5 * (fSlow336 * fSlow36)); + double fSlow340 = (2.25 * (((2.333333333333333 * (fSlow335 * fSlow337)) - (1.5 * fSlow336)) * fSlow46)); + double fSlow341 = (0.95346258924559235 * (cos((fSlow63 + -5.0341395347813318)) * fSlow65)); + double fSlow342 = (fSlow293 + fSlow341); + double fSlow343 = mydsp_faustpower2_f(fSlow342); + double fSlow344 = ((3.0 * fSlow343) + -1.0); + double fSlow345 = ((2.5 * fSlow344) + -2.0); + double fSlow346 = (2.333333333333333 * (fSlow345 * fSlow19)); + double fSlow347 = (2.5 * (fSlow344 * fSlow36)); + double fSlow348 = (2.25 * (((2.333333333333333 * (fSlow343 * fSlow345)) - (1.5 * fSlow344)) * fSlow46)); + double fSlow349 = (0.95346258924559235 * (cos((fSlow63 + -5.9614347527829432)) * fSlow65)); + double fSlow350 = (fSlow293 + fSlow349); + double fSlow351 = mydsp_faustpower2_f(fSlow350); + double fSlow352 = ((3.0 * fSlow351) + -1.0); + double fSlow353 = ((2.5 * fSlow352) + -2.0); + double fSlow354 = (2.333333333333333 * (fSlow353 * fSlow19)); + double fSlow355 = (2.5 * (fSlow352 * fSlow36)); + double fSlow356 = (2.25 * (((2.333333333333333 * (fSlow351 * fSlow353)) - (1.5 * fSlow352)) * fSlow46)); + double fSlow357 = (fSlow292 - fSlow293); + double fSlow358 = mydsp_faustpower2_f(fSlow357); + double fSlow359 = ((3.0 * fSlow358) + -1.0); + double fSlow360 = ((2.5 * fSlow359) + -2.0); + double fSlow361 = (2.333333333333333 * (fSlow360 * fSlow19)); + double fSlow362 = (2.5 * (fSlow359 * fSlow36)); + double fSlow363 = (2.25 * (((2.333333333333333 * (fSlow358 * fSlow360)) - (1.5 * fSlow359)) * fSlow46)); + double fSlow364 = (fSlow301 - fSlow293); + double fSlow365 = mydsp_faustpower2_f(fSlow364); + double fSlow366 = ((3.0 * fSlow365) + -1.0); + double fSlow367 = ((2.5 * fSlow366) + -2.0); + double fSlow368 = (2.333333333333333 * (fSlow367 * fSlow19)); + double fSlow369 = (2.5 * (fSlow366 * fSlow36)); + double fSlow370 = (2.25 * (((2.333333333333333 * (fSlow365 * fSlow367)) - (1.5 * fSlow366)) * fSlow46)); + double fSlow371 = (fSlow309 - fSlow293); + double fSlow372 = mydsp_faustpower2_f(fSlow371); + double fSlow373 = ((3.0 * fSlow372) + -1.0); + double fSlow374 = ((2.5 * fSlow373) + -2.0); + double fSlow375 = (2.333333333333333 * (fSlow374 * fSlow19)); + double fSlow376 = (2.5 * (fSlow373 * fSlow36)); + double fSlow377 = (2.25 * (((2.333333333333333 * (fSlow372 * fSlow374)) - (1.5 * fSlow373)) * fSlow46)); + double fSlow378 = (fSlow317 - fSlow293); + double fSlow379 = mydsp_faustpower2_f(fSlow378); + double fSlow380 = ((3.0 * fSlow379) + -1.0); + double fSlow381 = ((2.5 * fSlow380) + -2.0); + double fSlow382 = (2.333333333333333 * (fSlow381 * fSlow19)); + double fSlow383 = (2.5 * (fSlow380 * fSlow36)); + double fSlow384 = (2.25 * (((2.333333333333333 * (fSlow379 * fSlow381)) - (1.5 * fSlow380)) * fSlow46)); + double fSlow385 = (fSlow325 - fSlow293); + double fSlow386 = mydsp_faustpower2_f(fSlow385); + double fSlow387 = ((3.0 * fSlow386) + -1.0); + double fSlow388 = ((2.5 * fSlow387) + -2.0); + double fSlow389 = (2.333333333333333 * (fSlow388 * fSlow19)); + double fSlow390 = (2.5 * (fSlow387 * fSlow36)); + double fSlow391 = (2.25 * (((2.333333333333333 * (fSlow386 * fSlow388)) - (1.5 * fSlow387)) * fSlow46)); + double fSlow392 = (fSlow333 - fSlow293); + double fSlow393 = mydsp_faustpower2_f(fSlow392); + double fSlow394 = ((3.0 * fSlow393) + -1.0); + double fSlow395 = ((2.5 * fSlow394) + -2.0); + double fSlow396 = (2.333333333333333 * (fSlow395 * fSlow19)); + double fSlow397 = (2.5 * (fSlow394 * fSlow36)); + double fSlow398 = (2.25 * (((2.333333333333333 * (fSlow393 * fSlow395)) - (1.5 * fSlow394)) * fSlow46)); + double fSlow399 = (fSlow341 - fSlow293); + double fSlow400 = mydsp_faustpower2_f(fSlow399); + double fSlow401 = ((3.0 * fSlow400) + -1.0); + double fSlow402 = ((2.5 * fSlow401) + -2.0); + double fSlow403 = (2.333333333333333 * (fSlow402 * fSlow19)); + double fSlow404 = (2.5 * (fSlow401 * fSlow36)); + double fSlow405 = (2.25 * (((2.333333333333333 * (fSlow400 * fSlow402)) - (1.5 * fSlow401)) * fSlow46)); + double fSlow406 = (fSlow349 - fSlow293); + double fSlow407 = mydsp_faustpower2_f(fSlow406); + double fSlow408 = ((3.0 * fSlow407) + -1.0); + double fSlow409 = ((2.5 * fSlow408) + -2.0); + double fSlow410 = (2.333333333333333 * (fSlow409 * fSlow19)); + double fSlow411 = (2.5 * (fSlow408 * fSlow36)); + double fSlow412 = (2.25 * (((2.333333333333333 * (fSlow407 * fSlow409)) - (1.5 * fSlow408)) * fSlow46)); + double fSlow413 = (fSlow259 - fSlow260); + double fSlow414 = mydsp_faustpower2_f(fSlow413); + double fSlow415 = ((3.0 * fSlow414) + -1.0); + double fSlow416 = ((2.5 * fSlow415) + -2.0); + double fSlow417 = (2.333333333333333 * (fSlow416 * fSlow19)); + double fSlow418 = (2.5 * (fSlow415 * fSlow36)); + double fSlow419 = (2.25 * (((2.333333333333333 * (fSlow414 * fSlow416)) - (1.5 * fSlow415)) * fSlow46)); + double fSlow420 = (fSlow268 - fSlow260); + double fSlow421 = mydsp_faustpower2_f(fSlow420); + double fSlow422 = ((3.0 * fSlow421) + -1.0); + double fSlow423 = ((2.5 * fSlow422) + -2.0); + double fSlow424 = (2.333333333333333 * (fSlow423 * fSlow19)); + double fSlow425 = (2.5 * (fSlow422 * fSlow36)); + double fSlow426 = (2.25 * (((2.333333333333333 * (fSlow421 * fSlow423)) - (1.5 * fSlow422)) * fSlow46)); + double fSlow427 = (fSlow276 - fSlow260); + double fSlow428 = mydsp_faustpower2_f(fSlow427); + double fSlow429 = ((3.0 * fSlow428) + -1.0); + double fSlow430 = ((2.5 * fSlow429) + -2.0); + double fSlow431 = (2.333333333333333 * (fSlow430 * fSlow19)); + double fSlow432 = (2.5 * (fSlow429 * fSlow36)); + double fSlow433 = (2.25 * (((2.333333333333333 * (fSlow428 * fSlow430)) - (1.5 * fSlow429)) * fSlow46)); + double fSlow434 = (fSlow284 - fSlow260); + double fSlow435 = mydsp_faustpower2_f(fSlow434); + double fSlow436 = ((3.0 * fSlow435) + -1.0); + double fSlow437 = ((2.5 * fSlow436) + -2.0); + double fSlow438 = (2.333333333333333 * (fSlow437 * fSlow19)); + double fSlow439 = (2.5 * (fSlow436 * fSlow36)); + double fSlow440 = (2.25 * (((2.333333333333333 * (fSlow435 * fSlow437)) - (1.5 * fSlow436)) * fSlow46)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec3[0] = (fSlow12 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input0[i])); + fRec4[0] = (fRec4[1] + fRec2[1]); + fRec2[0] = (fSlow9 * ((fSlow11 * fTemp0) - (fSlow13 * fRec4[0]))); + fRec1[0] = (fRec2[0] + fRec1[1]); + double fTemp1 = (fSlow15 * fTemp0); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow9 * (fTemp1 - (fSlow13 * fRec6[0]))); + double fTemp2 = (fSlow2 * ((fSlow6 * (fRec1[0] - fRec2[0])) + (fRec2[0] + fRec5[0]))); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec9[0] = (fSlow25 * ((fSlow28 * fTemp0) - ((fSlow30 * fRec10[0]) + (fSlow29 * fRec11[0])))); + fRec12[0] = (fRec9[0] + fRec12[1]); + double fTemp3 = (fRec12[0] - fRec9[0]); + fVec0[0] = fTemp3; + fRec13[0] = (fRec13[1] + fVec0[1]); + fRec14[0] = (fRec14[1] + fRec8[1]); + fRec8[0] = (fSlow23 * ((fSlow21 * (fRec9[0] + (fSlow31 * ((fSlow33 * fTemp3) + (fSlow32 * fRec13[0]))))) - (fSlow34 * fRec14[0]))); + fRec7[0] = (fRec8[0] + fRec7[1]); + fRec17[0] = (fRec17[1] + fRec16[1]); + fRec18[0] = (fRec18[1] + fRec17[1]); + fRec16[0] = (fSlow25 * (fTemp1 - ((fSlow30 * fRec17[0]) + (fSlow29 * fRec18[0])))); + fRec19[0] = (fRec19[1] + fRec15[1]); + fRec15[0] = (fSlow23 * (fRec16[0] - (fSlow34 * fRec19[0]))); + double fTemp4 = ((fSlow22 * (fRec7[0] - fRec8[0])) + (fRec8[0] + fRec15[0])); + double fTemp5 = (fSlow35 * fTemp0); + fRec22[0] = (fRec22[1] + fRec21[1]); + fRec23[0] = (fRec23[1] + fRec22[1]); + fRec21[0] = (fSlow42 * ((fSlow43 * fTemp0) - ((fSlow45 * fRec22[0]) + (fSlow44 * fRec23[0])))); + fRec20[0] = (fRec21[0] + fRec20[1]); + double fTemp6 = (fRec20[0] - fRec21[0]); + fVec1[0] = fTemp6; + fRec24[0] = (fRec24[1] + fVec1[1]); + fRec26[0] = (fRec26[1] + fRec25[1]); + fRec27[0] = (fRec27[1] + fRec26[1]); + fRec25[0] = (fSlow42 * (fTemp1 - ((fSlow45 * fRec26[0]) + (fSlow44 * fRec27[0])))); + double fTemp7 = ((fSlow39 * ((fSlow41 * fTemp6) + (fSlow40 * fRec24[0]))) + (fRec21[0] + fRec25[0])); + fRec31[0] = (fRec31[1] + fRec30[1]); + fRec32[0] = (fRec32[1] + fRec31[1]); + fRec30[0] = (fSlow53 * ((fSlow55 * fTemp0) - ((fSlow57 * fRec31[0]) + (fSlow56 * fRec32[0])))); + fRec33[0] = (fRec30[0] + fRec33[1]); + double fTemp8 = (fRec33[0] - fRec30[0]); + fVec2[0] = fTemp8; + fRec34[0] = (fRec34[1] + fVec2[1]); + fRec35[0] = (fRec35[1] + fRec29[1]); + fRec36[0] = (fRec36[1] + fRec35[1]); + fRec29[0] = (fSlow52 * ((fSlow48 * (fRec30[0] + (fSlow58 * ((fSlow60 * fTemp8) + (fSlow59 * fRec34[0]))))) - ((fSlow62 * fRec35[0]) + (fSlow61 * fRec36[0])))); + fRec28[0] = (fRec29[0] + fRec28[1]); + double fTemp9 = (fRec28[0] - fRec29[0]); + fVec3[0] = fTemp9; + fRec37[0] = (fRec37[1] + fVec3[1]); + fRec40[0] = (fRec40[1] + fRec39[1]); + fRec41[0] = (fRec41[1] + fRec40[1]); + fRec39[0] = (fSlow53 * (fTemp1 - ((fSlow57 * fRec40[0]) + (fSlow56 * fRec41[0])))); + fRec42[0] = (fRec42[1] + fRec38[1]); + fRec43[0] = (fRec43[1] + fRec42[1]); + fRec38[0] = (fSlow52 * (fRec39[0] - ((fSlow62 * fRec42[0]) + (fSlow61 * fRec43[0])))); + double fTemp10 = ((fSlow49 * ((fSlow51 * fTemp9) + (fSlow50 * fRec37[0]))) + (fRec29[0] + fRec38[0])); + double fTemp11 = (0.012698412698412698 * (((fSlow1 * (fTemp2 + (fSlow20 * fTemp4))) + (fTemp5 + (fSlow37 * fTemp7))) + (fSlow47 * fTemp10))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp11)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp11); + double fTemp12 = (0.012698412698412698 * (((fSlow66 * (fTemp2 + (fSlow71 * fTemp4))) + (fTemp5 + (fSlow72 * fTemp7))) + (fSlow73 * fTemp10))); + fRec44[0] = max((fRec44[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp12)))))); + fVbargraph1 = FAUSTFLOAT(fRec44[0]); + output1[i] = FAUSTFLOAT(fTemp12); + double fTemp13 = (0.012698412698412698 * (((fSlow75 * (fTemp2 + (fSlow79 * fTemp4))) + (fTemp5 + (fSlow80 * fTemp7))) + (fSlow81 * fTemp10))); + fRec45[0] = max((fRec45[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp13)))))); + fVbargraph2 = FAUSTFLOAT(fRec45[0]); + output2[i] = FAUSTFLOAT(fTemp13); + double fTemp14 = (0.012698412698412698 * (((fSlow83 * (fTemp2 + (fSlow87 * fTemp4))) + (fTemp5 + (fSlow88 * fTemp7))) + (fSlow89 * fTemp10))); + fRec46[0] = max((fRec46[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph3 = FAUSTFLOAT(fRec46[0]); + output3[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.012698412698412698 * (((fSlow91 * (fTemp2 + (fSlow95 * fTemp4))) + (fTemp5 + (fSlow96 * fTemp7))) + (fSlow97 * fTemp10))); + fRec47[0] = max((fRec47[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph4 = FAUSTFLOAT(fRec47[0]); + output4[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.012698412698412698 * (((fSlow98 * (fTemp2 + (fSlow102 * fTemp4))) + (fTemp5 + (fSlow103 * fTemp7))) + (fSlow104 * fTemp10))); + fRec48[0] = max((fRec48[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph5 = FAUSTFLOAT(fRec48[0]); + output5[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.022574955908289243 * (((fSlow107 * (fTemp2 + (fSlow111 * fTemp4))) + (fTemp5 + (fSlow112 * fTemp7))) + (fSlow113 * fTemp10))); + fRec49[0] = max((fRec49[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph6 = FAUSTFLOAT(fRec49[0]); + output6[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.022574955908289243 * (((fSlow115 * (fTemp2 + (fSlow119 * fTemp4))) + (fTemp5 + (fSlow120 * fTemp7))) + (fSlow121 * fTemp10))); + fRec50[0] = max((fRec50[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph7 = FAUSTFLOAT(fRec50[0]); + output7[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.022574955908289243 * (((fSlow123 * (fTemp2 + (fSlow127 * fTemp4))) + (fTemp5 + (fSlow128 * fTemp7))) + (fSlow129 * fTemp10))); + fRec51[0] = max((fRec51[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph8 = FAUSTFLOAT(fRec51[0]); + output8[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.022574955908289243 * ((fSlow135 * fTemp10) + ((fSlow131 * (fTemp2 + (fSlow136 * fTemp4))) + (fTemp5 + (fSlow137 * fTemp7))))); + fRec52[0] = max((fRec52[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph9 = FAUSTFLOAT(fRec52[0]); + output9[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.022574955908289243 * (((fSlow139 * (fTemp2 + (fSlow143 * fTemp4))) + (fTemp5 + (fSlow144 * fTemp7))) + (fSlow145 * fTemp10))); + fRec53[0] = max((fRec53[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph10 = FAUSTFLOAT(fRec53[0]); + output10[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.022574955908289243 * (((fSlow147 * (fTemp2 + (fSlow151 * fTemp4))) + (fTemp5 + (fSlow152 * fTemp7))) + (fSlow153 * fTemp10))); + fRec54[0] = max((fRec54[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph11 = FAUSTFLOAT(fRec54[0]); + output11[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.022574955908289243 * (((fSlow155 * (fTemp2 + (fSlow159 * fTemp4))) + (fTemp5 + (fSlow160 * fTemp7))) + (fSlow161 * fTemp10))); + fRec55[0] = max((fRec55[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph12 = FAUSTFLOAT(fRec55[0]); + output12[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.022574955908289243 * (((fSlow163 * (fTemp2 + (fSlow167 * fTemp4))) + (fTemp5 + (fSlow168 * fTemp7))) + (fSlow169 * fTemp10))); + fRec56[0] = max((fRec56[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph13 = FAUSTFLOAT(fRec56[0]); + output13[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.022574955908289243 * (((fSlow170 * (fTemp2 + (fSlow174 * fTemp4))) + (fTemp5 + (fSlow175 * fTemp7))) + (fSlow176 * fTemp10))); + fRec57[0] = max((fRec57[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph14 = FAUSTFLOAT(fRec57[0]); + output14[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.022574955908289243 * (((fSlow177 * (fTemp2 + (fSlow181 * fTemp4))) + (fTemp5 + (fSlow182 * fTemp7))) + (fSlow183 * fTemp10))); + fRec58[0] = max((fRec58[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph15 = FAUSTFLOAT(fRec58[0]); + output15[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.022574955908289243 * (((fSlow184 * (fTemp2 + (fSlow188 * fTemp4))) + (fTemp5 + (fSlow189 * fTemp7))) + (fSlow190 * fTemp10))); + fRec59[0] = max((fRec59[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph16 = FAUSTFLOAT(fRec59[0]); + output16[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.022574955908289243 * (((fSlow191 * (fTemp2 + (fSlow195 * fTemp4))) + (fTemp5 + (fSlow196 * fTemp7))) + (fSlow197 * fTemp10))); + fRec60[0] = max((fRec60[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph17 = FAUSTFLOAT(fRec60[0]); + output17[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.021093750000000001 * (((fSlow200 * (fTemp2 + (fSlow204 * fTemp4))) + (fTemp5 + (fSlow205 * fTemp7))) + (fSlow206 * fTemp10))); + fRec61[0] = max((fRec61[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph18 = FAUSTFLOAT(fRec61[0]); + output18[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.021093750000000001 * (((fSlow208 * (fTemp2 + (fSlow212 * fTemp4))) + (fTemp5 + (fSlow213 * fTemp7))) + (fSlow214 * fTemp10))); + fRec62[0] = max((fRec62[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph19 = FAUSTFLOAT(fRec62[0]); + output19[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.021093750000000001 * (((fSlow216 * (fTemp2 + (fSlow220 * fTemp4))) + (fTemp5 + (fSlow221 * fTemp7))) + (fSlow222 * fTemp10))); + fRec63[0] = max((fRec63[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph20 = FAUSTFLOAT(fRec63[0]); + output20[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (0.021093750000000001 * (((fSlow224 * (fTemp2 + (fSlow228 * fTemp4))) + (fTemp5 + (fSlow229 * fTemp7))) + (fSlow230 * fTemp10))); + fRec64[0] = max((fRec64[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph21 = FAUSTFLOAT(fRec64[0]); + output21[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (0.021093750000000001 * (((fSlow231 * (fTemp2 + (fSlow235 * fTemp4))) + (fTemp5 + (fSlow236 * fTemp7))) + (fSlow237 * fTemp10))); + fRec65[0] = max((fRec65[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph22 = FAUSTFLOAT(fRec65[0]); + output22[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (0.021093750000000001 * (((fSlow238 * (fTemp2 + (fSlow242 * fTemp4))) + (fTemp5 + (fSlow243 * fTemp7))) + (fSlow244 * fTemp10))); + fRec66[0] = max((fRec66[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph23 = FAUSTFLOAT(fRec66[0]); + output23[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (0.021093750000000001 * (((fSlow245 * (fTemp2 + (fSlow249 * fTemp4))) + (fTemp5 + (fSlow250 * fTemp7))) + (fSlow251 * fTemp10))); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph24 = FAUSTFLOAT(fRec67[0]); + output24[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (0.021093750000000001 * (((fSlow252 * (fTemp2 + (fSlow256 * fTemp4))) + (fTemp5 + (fSlow257 * fTemp7))) + (fSlow258 * fTemp10))); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph25 = FAUSTFLOAT(fRec68[0]); + output25[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (0.02017333553791887 * (((fSlow261 * (fTemp2 + (fSlow265 * fTemp4))) + (fTemp5 + (fSlow266 * fTemp7))) + (fSlow267 * fTemp10))); + fRec69[0] = max((fRec69[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph26 = FAUSTFLOAT(fRec69[0]); + output26[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (0.02017333553791887 * (((fSlow269 * (fTemp2 + (fSlow273 * fTemp4))) + (fTemp5 + (fSlow274 * fTemp7))) + (fSlow275 * fTemp10))); + fRec70[0] = max((fRec70[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph27 = FAUSTFLOAT(fRec70[0]); + output27[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (0.02017333553791887 * (((fSlow277 * (fTemp2 + (fSlow281 * fTemp4))) + (fTemp5 + (fSlow282 * fTemp7))) + (fSlow283 * fTemp10))); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph28 = FAUSTFLOAT(fRec71[0]); + output28[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (0.02017333553791887 * (((fSlow285 * (fTemp2 + (fSlow289 * fTemp4))) + (fTemp5 + (fSlow290 * fTemp7))) + (fSlow291 * fTemp10))); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph29 = FAUSTFLOAT(fRec72[0]); + output29[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (0.02017333553791887 * (((fSlow294 * (fTemp2 + (fSlow298 * fTemp4))) + (fTemp5 + (fSlow299 * fTemp7))) + (fSlow300 * fTemp10))); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph30 = FAUSTFLOAT(fRec73[0]); + output30[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (0.02017333553791887 * (((fSlow302 * (fTemp2 + (fSlow306 * fTemp4))) + (fTemp5 + (fSlow307 * fTemp7))) + (fSlow308 * fTemp10))); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph31 = FAUSTFLOAT(fRec74[0]); + output31[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (0.02017333553791887 * (((fSlow310 * (fTemp2 + (fSlow314 * fTemp4))) + (fTemp5 + (fSlow315 * fTemp7))) + (fSlow316 * fTemp10))); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph32 = FAUSTFLOAT(fRec75[0]); + output32[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (0.02017333553791887 * (((fSlow318 * (fTemp2 + (fSlow322 * fTemp4))) + (fTemp5 + (fSlow323 * fTemp7))) + (fSlow324 * fTemp10))); + fRec76[0] = max((fRec76[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph33 = FAUSTFLOAT(fRec76[0]); + output33[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (0.02017333553791887 * (((fSlow326 * (fTemp2 + (fSlow330 * fTemp4))) + (fTemp5 + (fSlow331 * fTemp7))) + (fSlow332 * fTemp10))); + fRec77[0] = max((fRec77[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph34 = FAUSTFLOAT(fRec77[0]); + output34[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (0.02017333553791887 * (((fSlow334 * (fTemp2 + (fSlow338 * fTemp4))) + (fTemp5 + (fSlow339 * fTemp7))) + (fSlow340 * fTemp10))); + fRec78[0] = max((fRec78[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph35 = FAUSTFLOAT(fRec78[0]); + output35[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (0.02017333553791887 * (((fSlow342 * (fTemp2 + (fSlow346 * fTemp4))) + (fTemp5 + (fSlow347 * fTemp7))) + (fSlow348 * fTemp10))); + fRec79[0] = max((fRec79[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph36 = FAUSTFLOAT(fRec79[0]); + output36[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (0.02017333553791887 * (((fSlow350 * (fTemp2 + (fSlow354 * fTemp4))) + (fTemp5 + (fSlow355 * fTemp7))) + (fSlow356 * fTemp10))); + fRec80[0] = max((fRec80[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph37 = FAUSTFLOAT(fRec80[0]); + output37[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.02017333553791887 * (((fSlow357 * (fTemp2 + (fSlow361 * fTemp4))) + (fTemp5 + (fSlow362 * fTemp7))) + (fSlow363 * fTemp10))); + fRec81[0] = max((fRec81[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph38 = FAUSTFLOAT(fRec81[0]); + output38[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (0.02017333553791887 * (((fSlow364 * (fTemp2 + (fSlow368 * fTemp4))) + (fTemp5 + (fSlow369 * fTemp7))) + (fSlow370 * fTemp10))); + fRec82[0] = max((fRec82[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph39 = FAUSTFLOAT(fRec82[0]); + output39[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (0.02017333553791887 * (((fSlow371 * (fTemp2 + (fSlow375 * fTemp4))) + (fTemp5 + (fSlow376 * fTemp7))) + (fSlow377 * fTemp10))); + fRec83[0] = max((fRec83[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph40 = FAUSTFLOAT(fRec83[0]); + output40[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (0.02017333553791887 * (((fSlow378 * (fTemp2 + (fSlow382 * fTemp4))) + (fTemp5 + (fSlow383 * fTemp7))) + (fSlow384 * fTemp10))); + fRec84[0] = max((fRec84[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph41 = FAUSTFLOAT(fRec84[0]); + output41[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (0.02017333553791887 * (((fSlow385 * (fTemp2 + (fSlow389 * fTemp4))) + (fTemp5 + (fSlow390 * fTemp7))) + (fSlow391 * fTemp10))); + fRec85[0] = max((fRec85[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph42 = FAUSTFLOAT(fRec85[0]); + output42[i] = FAUSTFLOAT(fTemp53); + double fTemp54 = (0.02017333553791887 * (((fSlow392 * (fTemp2 + (fSlow396 * fTemp4))) + (fTemp5 + (fSlow397 * fTemp7))) + (fSlow398 * fTemp10))); + fRec86[0] = max((fRec86[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph43 = FAUSTFLOAT(fRec86[0]); + output43[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (0.02017333553791887 * (((fSlow399 * (fTemp2 + (fSlow403 * fTemp4))) + (fTemp5 + (fSlow404 * fTemp7))) + (fSlow405 * fTemp10))); + fRec87[0] = max((fRec87[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph44 = FAUSTFLOAT(fRec87[0]); + output44[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (0.02017333553791887 * (((fSlow406 * (fTemp2 + (fSlow410 * fTemp4))) + (fTemp5 + (fSlow411 * fTemp7))) + (fSlow412 * fTemp10))); + fRec88[0] = max((fRec88[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph45 = FAUSTFLOAT(fRec88[0]); + output45[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (0.02017333553791887 * (((fSlow413 * (fTemp2 + (fSlow417 * fTemp4))) + (fTemp5 + (fSlow418 * fTemp7))) + (fSlow419 * fTemp10))); + fRec89[0] = max((fRec89[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph46 = FAUSTFLOAT(fRec89[0]); + output46[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (0.02017333553791887 * (((fSlow420 * (fTemp2 + (fSlow424 * fTemp4))) + (fTemp5 + (fSlow425 * fTemp7))) + (fSlow426 * fTemp10))); + fRec90[0] = max((fRec90[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph47 = FAUSTFLOAT(fRec90[0]); + output47[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = (0.02017333553791887 * (((fSlow427 * (fTemp2 + (fSlow431 * fTemp4))) + (fTemp5 + (fSlow432 * fTemp7))) + (fSlow433 * fTemp10))); + fRec91[0] = max((fRec91[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph48 = FAUSTFLOAT(fRec91[0]); + output48[i] = FAUSTFLOAT(fTemp59); + double fTemp60 = (0.02017333553791887 * (((fSlow434 * (fTemp2 + (fSlow438 * fTemp4))) + (fTemp5 + (fSlow439 * fTemp7))) + (fSlow440 * fTemp10))); + fRec92[0] = max((fRec92[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph49 = FAUSTFLOAT(fRec92[0]); + output49[i] = FAUSTFLOAT(fTemp60); + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec2[1] = fRec2[0]; + fRec1[1] = fRec1[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec9[1] = fRec9[0]; + fRec12[1] = fRec12[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec15[1] = fRec15[0]; + fRec22[1] = fRec22[0]; + fRec23[1] = fRec23[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fVec1[1] = fVec1[0]; + fRec24[1] = fRec24[0]; + fRec26[1] = fRec26[0]; + fRec27[1] = fRec27[0]; + fRec25[1] = fRec25[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec30[1] = fRec30[0]; + fRec33[1] = fRec33[0]; + fVec2[1] = fVec2[0]; + fRec34[1] = fRec34[0]; + fRec35[1] = fRec35[0]; + fRec36[1] = fRec36[0]; + fRec29[1] = fRec29[0]; + fRec28[1] = fRec28[0]; + fVec3[1] = fVec3[0]; + fRec37[1] = fRec37[0]; + fRec40[1] = fRec40[0]; + fRec41[1] = fRec41[0]; + fRec39[1] = fRec39[0]; + fRec42[1] = fRec42[0]; + fRec43[1] = fRec43[0]; + fRec38[1] = fRec38[0]; + fRec0[1] = fRec0[0]; + fRec44[1] = fRec44[0]; + fRec45[1] = fRec45[0]; + fRec46[1] = fRec46[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec49[1] = fRec49[0]; + fRec50[1] = fRec50[0]; + fRec51[1] = fRec51[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec54[1] = fRec54[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec58[1] = fRec58[0]; + fRec59[1] = fRec59[0]; + fRec60[1] = fRec60[0]; + fRec61[1] = fRec61[0]; + fRec62[1] = fRec62[0]; + fRec63[1] = fRec63[0]; + fRec64[1] = fRec64[0]; + fRec65[1] = fRec65[0]; + fRec66[1] = fRec66[0]; + fRec67[1] = fRec67[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec74[1] = fRec74[0]; + fRec75[1] = fRec75[0]; + fRec76[1] = fRec76[0]; + fRec77[1] = fRec77[0]; + fRec78[1] = fRec78[0]; + fRec79[1] = fRec79[0]; + fRec80[1] = fRec80[0]; + fRec81[1] = fRec81[0]; + fRec82[1] = fRec82[0]; + fRec83[1] = fRec83[0]; + fRec84[1] = fRec84[0]; + fRec85[1] = fRec85[0]; + fRec86[1] = fRec86[0]; + fRec87[1] = fRec87[0]; + fRec88[1] = fRec88[0]; + fRec89[1] = fRec89[0]; + fRec90[1] = fRec90[0]; + fRec91[1] = fRec91[0]; + fRec92[1] = fRec92[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOAPanLebedev505.cpp b/source/HOAUGens/HOAPanLebedev505.cpp new file mode 100644 index 0000000000..61f09071ea --- /dev/null +++ b/source/HOAUGens/HOAPanLebedev505.cpp @@ -0,0 +1,3325 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2014" +license: "GPL" +name: "HOAPanLebedev505" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + int fSamplingFreq; + double fConst0; + double fConst1; + FAUSTFLOAT fHslider0; + FAUSTFLOAT fCheckbox0; + double fConst2; + double fConst3; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fEntry0; + FAUSTFLOAT fCheckbox1; + FAUSTFLOAT fHslider2; + double fRec3[2]; + double fRec4[2]; + double fRec2[2]; + double fRec1[2]; + double fRec6[2]; + double fRec5[2]; + FAUSTFLOAT fCheckbox2; + double fConst4; + double fConst5; + double fConst6; + double fConst7; + double fRec10[2]; + double fRec11[2]; + double fRec9[2]; + double fRec12[2]; + double fVec0[2]; + double fRec13[2]; + double fRec14[2]; + double fRec8[2]; + double fRec7[2]; + double fRec17[2]; + double fRec18[2]; + double fRec16[2]; + double fRec19[2]; + double fRec15[2]; + FAUSTFLOAT fCheckbox3; + double fConst8; + double fConst9; + double fConst10; + double fConst11; + double fConst12; + double fRec24[2]; + double fRec25[2]; + double fRec23[2]; + double fRec26[2]; + double fVec1[2]; + double fRec27[2]; + double fConst13; + double fRec28[2]; + double fRec29[2]; + double fRec22[2]; + double fRec30[2]; + double fVec2[2]; + double fRec31[2]; + double fRec32[2]; + double fRec21[2]; + double fRec20[2]; + double fRec36[2]; + double fRec37[2]; + double fRec35[2]; + double fRec38[2]; + double fRec39[2]; + double fRec34[2]; + double fRec40[2]; + double fRec33[2]; + FAUSTFLOAT fCheckbox4; + FAUSTFLOAT fCheckbox5; + double fConst14; + double fConst15; + double fRec43[2]; + double fRec44[2]; + double fRec42[2]; + double fRec41[2]; + double fVec3[2]; + double fRec45[2]; + double fRec47[2]; + double fRec48[2]; + double fRec46[2]; + FAUSTFLOAT fCheckbox6; + double fConst16; + double fConst17; + double fConst18; + double fConst19; + double fRec52[2]; + double fRec53[2]; + double fRec51[2]; + double fRec54[2]; + double fVec4[2]; + double fRec55[2]; + double fRec56[2]; + double fRec57[2]; + double fRec50[2]; + double fRec49[2]; + double fVec5[2]; + double fRec58[2]; + double fRec61[2]; + double fRec62[2]; + double fRec60[2]; + double fRec63[2]; + double fRec64[2]; + double fRec59[2]; + double fRec0[2]; + FAUSTFLOAT fVbargraph0; + FAUSTFLOAT fHslider3; + double fRec65[2]; + FAUSTFLOAT fVbargraph1; + double fRec66[2]; + FAUSTFLOAT fVbargraph2; + double fRec67[2]; + FAUSTFLOAT fVbargraph3; + double fRec68[2]; + FAUSTFLOAT fVbargraph4; + double fRec69[2]; + FAUSTFLOAT fVbargraph5; + double fRec70[2]; + FAUSTFLOAT fVbargraph6; + double fRec71[2]; + FAUSTFLOAT fVbargraph7; + double fRec72[2]; + FAUSTFLOAT fVbargraph8; + double fRec73[2]; + FAUSTFLOAT fVbargraph9; + double fRec74[2]; + FAUSTFLOAT fVbargraph10; + double fRec75[2]; + FAUSTFLOAT fVbargraph11; + double fRec76[2]; + FAUSTFLOAT fVbargraph12; + double fRec77[2]; + FAUSTFLOAT fVbargraph13; + double fRec78[2]; + FAUSTFLOAT fVbargraph14; + double fRec79[2]; + FAUSTFLOAT fVbargraph15; + double fRec80[2]; + FAUSTFLOAT fVbargraph16; + double fRec81[2]; + FAUSTFLOAT fVbargraph17; + double fRec82[2]; + FAUSTFLOAT fVbargraph18; + double fRec83[2]; + FAUSTFLOAT fVbargraph19; + double fRec84[2]; + FAUSTFLOAT fVbargraph20; + double fRec85[2]; + FAUSTFLOAT fVbargraph21; + double fRec86[2]; + FAUSTFLOAT fVbargraph22; + double fRec87[2]; + FAUSTFLOAT fVbargraph23; + double fRec88[2]; + FAUSTFLOAT fVbargraph24; + double fRec89[2]; + FAUSTFLOAT fVbargraph25; + double fRec90[2]; + FAUSTFLOAT fVbargraph26; + double fRec91[2]; + FAUSTFLOAT fVbargraph27; + double fRec92[2]; + FAUSTFLOAT fVbargraph28; + double fRec93[2]; + FAUSTFLOAT fVbargraph29; + double fRec94[2]; + FAUSTFLOAT fVbargraph30; + double fRec95[2]; + FAUSTFLOAT fVbargraph31; + double fRec96[2]; + FAUSTFLOAT fVbargraph32; + double fRec97[2]; + FAUSTFLOAT fVbargraph33; + double fRec98[2]; + FAUSTFLOAT fVbargraph34; + double fRec99[2]; + FAUSTFLOAT fVbargraph35; + double fRec100[2]; + FAUSTFLOAT fVbargraph36; + double fRec101[2]; + FAUSTFLOAT fVbargraph37; + double fRec102[2]; + FAUSTFLOAT fVbargraph38; + double fRec103[2]; + FAUSTFLOAT fVbargraph39; + double fRec104[2]; + FAUSTFLOAT fVbargraph40; + double fRec105[2]; + FAUSTFLOAT fVbargraph41; + double fRec106[2]; + FAUSTFLOAT fVbargraph42; + double fRec107[2]; + FAUSTFLOAT fVbargraph43; + double fRec108[2]; + FAUSTFLOAT fVbargraph44; + double fRec109[2]; + FAUSTFLOAT fVbargraph45; + double fRec110[2]; + FAUSTFLOAT fVbargraph46; + double fRec111[2]; + FAUSTFLOAT fVbargraph47; + double fRec112[2]; + FAUSTFLOAT fVbargraph48; + double fRec113[2]; + FAUSTFLOAT fVbargraph49; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("basics.lib/name", "Faust Basic Element Library"); + m->declare("basics.lib/version", "0.0"); + m->declare("copyright", "(c) Pierre Lecomte 2014"); + m->declare("gui.lib/author", "Pierre Lecomte"); + m->declare("gui.lib/copyright", "(c) Pierre Lecomte 2016"); + m->declare("gui.lib/license", "GPL"); + m->declare("gui.lib/name", "GUI Library"); + m->declare("gui.lib/version", "1.0"); + m->declare("lebedev.lib/author", "Pierre Lecomte"); + m->declare("lebedev.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("lebedev.lib/license", "GPL"); + m->declare("lebedev.lib/name", "Lebdev grids and weights"); + m->declare("lebedev.lib/version", "1.0"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOAPanLebedev505"); + m->declare("nfc.lib/author", "Pierre Lecomte"); + m->declare("nfc.lib/copyright", "(c) Pierre Lecomte 2014"); + m->declare("nfc.lib/license", "GPL"); + m->declare("nfc.lib/name", "NF And NFC Filters Library"); + m->declare("nfc.lib/version", "1.0"); + m->declare("signals.lib/name", "Faust Signal Routing Library"); + m->declare("signals.lib/version", "0.0"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 1; + + } + virtual int getNumOutputs() { + return 50; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + case 25: { + rate = 1; + break; + } + case 26: { + rate = 1; + break; + } + case 27: { + rate = 1; + break; + } + case 28: { + rate = 1; + break; + } + case 29: { + rate = 1; + break; + } + case 30: { + rate = 1; + break; + } + case 31: { + rate = 1; + break; + } + case 32: { + rate = 1; + break; + } + case 33: { + rate = 1; + break; + } + case 34: { + rate = 1; + break; + } + case 35: { + rate = 1; + break; + } + case 36: { + rate = 1; + break; + } + case 37: { + rate = 1; + break; + } + case 38: { + rate = 1; + break; + } + case 39: { + rate = 1; + break; + } + case 40: { + rate = 1; + break; + } + case 41: { + rate = 1; + break; + } + case 42: { + rate = 1; + break; + } + case 43: { + rate = 1; + break; + } + case 44: { + rate = 1; + break; + } + case 45: { + rate = 1; + break; + } + case 46: { + rate = 1; + break; + } + case 47: { + rate = 1; + break; + } + case 48: { + rate = 1; + break; + } + case 49: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + fConst0 = min(192000.0, max(1.0, double(fSamplingFreq))); + fConst1 = (80.0 / fConst0); + fConst2 = (340.0 / fConst0); + fConst3 = (170.0 / fConst0); + fConst4 = (789.54302057287055 / fConst0); + fConst5 = (394.77151028643527 / fConst0); + fConst6 = (625.22848971356643 / fConst0); + fConst7 = (1250.4569794271329 / fConst0); + fConst8 = (1239.8911224120607 / fConst0); + fConst9 = (619.94556120603033 / fConst0); + fConst10 = (1139.6651757122002 / fConst0); + fConst11 = (790.3892630817644 / fConst0); + fConst12 = (1580.7785261635288 / fConst0); + fConst13 = (2279.3303514244003 / fConst0); + fConst14 = (510.0 / fConst0); + fConst15 = (1020.0 / fConst0); + fConst16 = (984.71160495892411 / fConst0); + fConst17 = (1969.4232099178482 / fConst0); + fConst18 = (715.28839504107589 / fConst0); + fConst19 = (1430.5767900821518 / fConst0); + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fCheckbox0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(2.0); + fEntry0 = FAUSTFLOAT(1.0700000000000001); + fCheckbox1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + fCheckbox2 = FAUSTFLOAT(0.0); + fCheckbox3 = FAUSTFLOAT(0.0); + fCheckbox4 = FAUSTFLOAT(0.0); + fCheckbox5 = FAUSTFLOAT(0.0); + fCheckbox6 = FAUSTFLOAT(0.0); + fHslider3 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + for (int l0 = 0; (l0 < 2); l0 = (l0 + 1)) { + fRec3[l0] = 0.0; + + } + for (int l1 = 0; (l1 < 2); l1 = (l1 + 1)) { + fRec4[l1] = 0.0; + + } + for (int l2 = 0; (l2 < 2); l2 = (l2 + 1)) { + fRec2[l2] = 0.0; + + } + for (int l3 = 0; (l3 < 2); l3 = (l3 + 1)) { + fRec1[l3] = 0.0; + + } + for (int l4 = 0; (l4 < 2); l4 = (l4 + 1)) { + fRec6[l4] = 0.0; + + } + for (int l5 = 0; (l5 < 2); l5 = (l5 + 1)) { + fRec5[l5] = 0.0; + + } + for (int l6 = 0; (l6 < 2); l6 = (l6 + 1)) { + fRec10[l6] = 0.0; + + } + for (int l7 = 0; (l7 < 2); l7 = (l7 + 1)) { + fRec11[l7] = 0.0; + + } + for (int l8 = 0; (l8 < 2); l8 = (l8 + 1)) { + fRec9[l8] = 0.0; + + } + for (int l9 = 0; (l9 < 2); l9 = (l9 + 1)) { + fRec12[l9] = 0.0; + + } + for (int l10 = 0; (l10 < 2); l10 = (l10 + 1)) { + fVec0[l10] = 0.0; + + } + for (int l11 = 0; (l11 < 2); l11 = (l11 + 1)) { + fRec13[l11] = 0.0; + + } + for (int l12 = 0; (l12 < 2); l12 = (l12 + 1)) { + fRec14[l12] = 0.0; + + } + for (int l13 = 0; (l13 < 2); l13 = (l13 + 1)) { + fRec8[l13] = 0.0; + + } + for (int l14 = 0; (l14 < 2); l14 = (l14 + 1)) { + fRec7[l14] = 0.0; + + } + for (int l15 = 0; (l15 < 2); l15 = (l15 + 1)) { + fRec17[l15] = 0.0; + + } + for (int l16 = 0; (l16 < 2); l16 = (l16 + 1)) { + fRec18[l16] = 0.0; + + } + for (int l17 = 0; (l17 < 2); l17 = (l17 + 1)) { + fRec16[l17] = 0.0; + + } + for (int l18 = 0; (l18 < 2); l18 = (l18 + 1)) { + fRec19[l18] = 0.0; + + } + for (int l19 = 0; (l19 < 2); l19 = (l19 + 1)) { + fRec15[l19] = 0.0; + + } + for (int l20 = 0; (l20 < 2); l20 = (l20 + 1)) { + fRec24[l20] = 0.0; + + } + for (int l21 = 0; (l21 < 2); l21 = (l21 + 1)) { + fRec25[l21] = 0.0; + + } + for (int l22 = 0; (l22 < 2); l22 = (l22 + 1)) { + fRec23[l22] = 0.0; + + } + for (int l23 = 0; (l23 < 2); l23 = (l23 + 1)) { + fRec26[l23] = 0.0; + + } + for (int l24 = 0; (l24 < 2); l24 = (l24 + 1)) { + fVec1[l24] = 0.0; + + } + for (int l25 = 0; (l25 < 2); l25 = (l25 + 1)) { + fRec27[l25] = 0.0; + + } + for (int l26 = 0; (l26 < 2); l26 = (l26 + 1)) { + fRec28[l26] = 0.0; + + } + for (int l27 = 0; (l27 < 2); l27 = (l27 + 1)) { + fRec29[l27] = 0.0; + + } + for (int l28 = 0; (l28 < 2); l28 = (l28 + 1)) { + fRec22[l28] = 0.0; + + } + for (int l29 = 0; (l29 < 2); l29 = (l29 + 1)) { + fRec30[l29] = 0.0; + + } + for (int l30 = 0; (l30 < 2); l30 = (l30 + 1)) { + fVec2[l30] = 0.0; + + } + for (int l31 = 0; (l31 < 2); l31 = (l31 + 1)) { + fRec31[l31] = 0.0; + + } + for (int l32 = 0; (l32 < 2); l32 = (l32 + 1)) { + fRec32[l32] = 0.0; + + } + for (int l33 = 0; (l33 < 2); l33 = (l33 + 1)) { + fRec21[l33] = 0.0; + + } + for (int l34 = 0; (l34 < 2); l34 = (l34 + 1)) { + fRec20[l34] = 0.0; + + } + for (int l35 = 0; (l35 < 2); l35 = (l35 + 1)) { + fRec36[l35] = 0.0; + + } + for (int l36 = 0; (l36 < 2); l36 = (l36 + 1)) { + fRec37[l36] = 0.0; + + } + for (int l37 = 0; (l37 < 2); l37 = (l37 + 1)) { + fRec35[l37] = 0.0; + + } + for (int l38 = 0; (l38 < 2); l38 = (l38 + 1)) { + fRec38[l38] = 0.0; + + } + for (int l39 = 0; (l39 < 2); l39 = (l39 + 1)) { + fRec39[l39] = 0.0; + + } + for (int l40 = 0; (l40 < 2); l40 = (l40 + 1)) { + fRec34[l40] = 0.0; + + } + for (int l41 = 0; (l41 < 2); l41 = (l41 + 1)) { + fRec40[l41] = 0.0; + + } + for (int l42 = 0; (l42 < 2); l42 = (l42 + 1)) { + fRec33[l42] = 0.0; + + } + for (int l43 = 0; (l43 < 2); l43 = (l43 + 1)) { + fRec43[l43] = 0.0; + + } + for (int l44 = 0; (l44 < 2); l44 = (l44 + 1)) { + fRec44[l44] = 0.0; + + } + for (int l45 = 0; (l45 < 2); l45 = (l45 + 1)) { + fRec42[l45] = 0.0; + + } + for (int l46 = 0; (l46 < 2); l46 = (l46 + 1)) { + fRec41[l46] = 0.0; + + } + for (int l47 = 0; (l47 < 2); l47 = (l47 + 1)) { + fVec3[l47] = 0.0; + + } + for (int l48 = 0; (l48 < 2); l48 = (l48 + 1)) { + fRec45[l48] = 0.0; + + } + for (int l49 = 0; (l49 < 2); l49 = (l49 + 1)) { + fRec47[l49] = 0.0; + + } + for (int l50 = 0; (l50 < 2); l50 = (l50 + 1)) { + fRec48[l50] = 0.0; + + } + for (int l51 = 0; (l51 < 2); l51 = (l51 + 1)) { + fRec46[l51] = 0.0; + + } + for (int l52 = 0; (l52 < 2); l52 = (l52 + 1)) { + fRec52[l52] = 0.0; + + } + for (int l53 = 0; (l53 < 2); l53 = (l53 + 1)) { + fRec53[l53] = 0.0; + + } + for (int l54 = 0; (l54 < 2); l54 = (l54 + 1)) { + fRec51[l54] = 0.0; + + } + for (int l55 = 0; (l55 < 2); l55 = (l55 + 1)) { + fRec54[l55] = 0.0; + + } + for (int l56 = 0; (l56 < 2); l56 = (l56 + 1)) { + fVec4[l56] = 0.0; + + } + for (int l57 = 0; (l57 < 2); l57 = (l57 + 1)) { + fRec55[l57] = 0.0; + + } + for (int l58 = 0; (l58 < 2); l58 = (l58 + 1)) { + fRec56[l58] = 0.0; + + } + for (int l59 = 0; (l59 < 2); l59 = (l59 + 1)) { + fRec57[l59] = 0.0; + + } + for (int l60 = 0; (l60 < 2); l60 = (l60 + 1)) { + fRec50[l60] = 0.0; + + } + for (int l61 = 0; (l61 < 2); l61 = (l61 + 1)) { + fRec49[l61] = 0.0; + + } + for (int l62 = 0; (l62 < 2); l62 = (l62 + 1)) { + fVec5[l62] = 0.0; + + } + for (int l63 = 0; (l63 < 2); l63 = (l63 + 1)) { + fRec58[l63] = 0.0; + + } + for (int l64 = 0; (l64 < 2); l64 = (l64 + 1)) { + fRec61[l64] = 0.0; + + } + for (int l65 = 0; (l65 < 2); l65 = (l65 + 1)) { + fRec62[l65] = 0.0; + + } + for (int l66 = 0; (l66 < 2); l66 = (l66 + 1)) { + fRec60[l66] = 0.0; + + } + for (int l67 = 0; (l67 < 2); l67 = (l67 + 1)) { + fRec63[l67] = 0.0; + + } + for (int l68 = 0; (l68 < 2); l68 = (l68 + 1)) { + fRec64[l68] = 0.0; + + } + for (int l69 = 0; (l69 < 2); l69 = (l69 + 1)) { + fRec59[l69] = 0.0; + + } + for (int l70 = 0; (l70 < 2); l70 = (l70 + 1)) { + fRec0[l70] = 0.0; + + } + for (int l71 = 0; (l71 < 2); l71 = (l71 + 1)) { + fRec65[l71] = 0.0; + + } + for (int l72 = 0; (l72 < 2); l72 = (l72 + 1)) { + fRec66[l72] = 0.0; + + } + for (int l73 = 0; (l73 < 2); l73 = (l73 + 1)) { + fRec67[l73] = 0.0; + + } + for (int l74 = 0; (l74 < 2); l74 = (l74 + 1)) { + fRec68[l74] = 0.0; + + } + for (int l75 = 0; (l75 < 2); l75 = (l75 + 1)) { + fRec69[l75] = 0.0; + + } + for (int l76 = 0; (l76 < 2); l76 = (l76 + 1)) { + fRec70[l76] = 0.0; + + } + for (int l77 = 0; (l77 < 2); l77 = (l77 + 1)) { + fRec71[l77] = 0.0; + + } + for (int l78 = 0; (l78 < 2); l78 = (l78 + 1)) { + fRec72[l78] = 0.0; + + } + for (int l79 = 0; (l79 < 2); l79 = (l79 + 1)) { + fRec73[l79] = 0.0; + + } + for (int l80 = 0; (l80 < 2); l80 = (l80 + 1)) { + fRec74[l80] = 0.0; + + } + for (int l81 = 0; (l81 < 2); l81 = (l81 + 1)) { + fRec75[l81] = 0.0; + + } + for (int l82 = 0; (l82 < 2); l82 = (l82 + 1)) { + fRec76[l82] = 0.0; + + } + for (int l83 = 0; (l83 < 2); l83 = (l83 + 1)) { + fRec77[l83] = 0.0; + + } + for (int l84 = 0; (l84 < 2); l84 = (l84 + 1)) { + fRec78[l84] = 0.0; + + } + for (int l85 = 0; (l85 < 2); l85 = (l85 + 1)) { + fRec79[l85] = 0.0; + + } + for (int l86 = 0; (l86 < 2); l86 = (l86 + 1)) { + fRec80[l86] = 0.0; + + } + for (int l87 = 0; (l87 < 2); l87 = (l87 + 1)) { + fRec81[l87] = 0.0; + + } + for (int l88 = 0; (l88 < 2); l88 = (l88 + 1)) { + fRec82[l88] = 0.0; + + } + for (int l89 = 0; (l89 < 2); l89 = (l89 + 1)) { + fRec83[l89] = 0.0; + + } + for (int l90 = 0; (l90 < 2); l90 = (l90 + 1)) { + fRec84[l90] = 0.0; + + } + for (int l91 = 0; (l91 < 2); l91 = (l91 + 1)) { + fRec85[l91] = 0.0; + + } + for (int l92 = 0; (l92 < 2); l92 = (l92 + 1)) { + fRec86[l92] = 0.0; + + } + for (int l93 = 0; (l93 < 2); l93 = (l93 + 1)) { + fRec87[l93] = 0.0; + + } + for (int l94 = 0; (l94 < 2); l94 = (l94 + 1)) { + fRec88[l94] = 0.0; + + } + for (int l95 = 0; (l95 < 2); l95 = (l95 + 1)) { + fRec89[l95] = 0.0; + + } + for (int l96 = 0; (l96 < 2); l96 = (l96 + 1)) { + fRec90[l96] = 0.0; + + } + for (int l97 = 0; (l97 < 2); l97 = (l97 + 1)) { + fRec91[l97] = 0.0; + + } + for (int l98 = 0; (l98 < 2); l98 = (l98 + 1)) { + fRec92[l98] = 0.0; + + } + for (int l99 = 0; (l99 < 2); l99 = (l99 + 1)) { + fRec93[l99] = 0.0; + + } + for (int l100 = 0; (l100 < 2); l100 = (l100 + 1)) { + fRec94[l100] = 0.0; + + } + for (int l101 = 0; (l101 < 2); l101 = (l101 + 1)) { + fRec95[l101] = 0.0; + + } + for (int l102 = 0; (l102 < 2); l102 = (l102 + 1)) { + fRec96[l102] = 0.0; + + } + for (int l103 = 0; (l103 < 2); l103 = (l103 + 1)) { + fRec97[l103] = 0.0; + + } + for (int l104 = 0; (l104 < 2); l104 = (l104 + 1)) { + fRec98[l104] = 0.0; + + } + for (int l105 = 0; (l105 < 2); l105 = (l105 + 1)) { + fRec99[l105] = 0.0; + + } + for (int l106 = 0; (l106 < 2); l106 = (l106 + 1)) { + fRec100[l106] = 0.0; + + } + for (int l107 = 0; (l107 < 2); l107 = (l107 + 1)) { + fRec101[l107] = 0.0; + + } + for (int l108 = 0; (l108 < 2); l108 = (l108 + 1)) { + fRec102[l108] = 0.0; + + } + for (int l109 = 0; (l109 < 2); l109 = (l109 + 1)) { + fRec103[l109] = 0.0; + + } + for (int l110 = 0; (l110 < 2); l110 = (l110 + 1)) { + fRec104[l110] = 0.0; + + } + for (int l111 = 0; (l111 < 2); l111 = (l111 + 1)) { + fRec105[l111] = 0.0; + + } + for (int l112 = 0; (l112 < 2); l112 = (l112 + 1)) { + fRec106[l112] = 0.0; + + } + for (int l113 = 0; (l113 < 2); l113 = (l113 + 1)) { + fRec107[l113] = 0.0; + + } + for (int l114 = 0; (l114 < 2); l114 = (l114 + 1)) { + fRec108[l114] = 0.0; + + } + for (int l115 = 0; (l115 < 2); l115 = (l115 + 1)) { + fRec109[l115] = 0.0; + + } + for (int l116 = 0; (l116 < 2); l116 = (l116 + 1)) { + fRec110[l116] = 0.0; + + } + for (int l117 = 0; (l117 < 2); l117 = (l117 + 1)) { + fRec111[l117] = 0.0; + + } + for (int l118 = 0; (l118 < 2); l118 = (l118 + 1)) { + fRec112[l118] = 0.0; + + } + for (int l119 = 0; (l119 < 2); l119 = (l119 + 1)) { + fRec113[l119] = 0.0; + + } + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOAPanLebedev505"); + ui_interface->openHorizontalBox("0x00"); + ui_interface->declare(&fHslider2, "0+1", ""); + ui_interface->declare(&fHslider2, "osc", "/gain_0 -20 20"); + ui_interface->declare(&fHslider2, "style", "knob"); + ui_interface->addHorizontalSlider("Gain 0", &fHslider2, 0.0, -30.0, 20.0, 0.10000000000000001); + ui_interface->declare(&fHslider1, "0+2", ""); + ui_interface->declare(&fHslider1, "osc", "/radius_0 0.5 50"); + ui_interface->declare(&fHslider1, "style", "knob"); + ui_interface->addHorizontalSlider("Radius 0", &fHslider1, 2.0, 0.5, 50.0, 0.01); + ui_interface->declare(&fHslider3, "0+3", ""); + ui_interface->declare(&fHslider3, "osc", "/azimuth_0 0 360"); + ui_interface->declare(&fHslider3, "style", "knob"); + ui_interface->addHorizontalSlider("Azimuth 0", &fHslider3, 0.0, -3.1415926535897931, 3.1415926535897931, 0.10000000000000001); + ui_interface->declare(&fHslider0, "0+4", ""); + ui_interface->declare(&fHslider0, "osc", "/elevation_0 -90 90"); + ui_interface->declare(&fHslider0, "style", "knob"); + ui_interface->addHorizontalSlider("Elevation 0", &fHslider0, 0.0, -1.5707963267948966, 1.5707963267948966, 0.10000000000000001); + ui_interface->declare(0, "0+5", ""); + ui_interface->openHorizontalBox("Spherical Wave"); + ui_interface->addCheckButton("Yes", &fCheckbox1); + ui_interface->closeBox(); + ui_interface->declare(0, "2", ""); + ui_interface->openVerticalBox("Mute Order"); + ui_interface->addCheckButton("0", &fCheckbox4); + ui_interface->addCheckButton("1", &fCheckbox0); + ui_interface->addCheckButton("2", &fCheckbox5); + ui_interface->addCheckButton("3", &fCheckbox2); + ui_interface->addCheckButton("4", &fCheckbox6); + ui_interface->addCheckButton("5", &fCheckbox3); + ui_interface->closeBox(); + ui_interface->declare(&fEntry0, "~", ""); + ui_interface->addNumEntry("Speaker Radius", &fEntry0, 1.0700000000000001, 0.5, 10.0, 0.01); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openVerticalBox("Outputs"); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("1-25"); + ui_interface->openVerticalBox("1"); + ui_interface->declare(&fVbargraph0, "osc", "/output1 -70 6"); + ui_interface->declare(&fVbargraph0, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3053950", &fVbargraph0, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("2"); + ui_interface->declare(&fVbargraph1, "osc", "/output2 -70 6"); + ui_interface->declare(&fVbargraph1, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30608f0", &fVbargraph1, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("3"); + ui_interface->declare(&fVbargraph2, "osc", "/output3 -70 6"); + ui_interface->declare(&fVbargraph2, "unit", "dB"); + ui_interface->addVerticalBargraph("0x306bad0", &fVbargraph2, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("4"); + ui_interface->declare(&fVbargraph3, "osc", "/output4 -70 6"); + ui_interface->declare(&fVbargraph3, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3076d90", &fVbargraph3, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("5"); + ui_interface->declare(&fVbargraph4, "osc", "/output5 -70 6"); + ui_interface->declare(&fVbargraph4, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3082130", &fVbargraph4, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("6"); + ui_interface->declare(&fVbargraph5, "osc", "/output6 -70 6"); + ui_interface->declare(&fVbargraph5, "unit", "dB"); + ui_interface->addVerticalBargraph("0x308cb90", &fVbargraph5, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("7"); + ui_interface->declare(&fVbargraph6, "osc", "/output7 -70 6"); + ui_interface->declare(&fVbargraph6, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3098070", &fVbargraph6, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("8"); + ui_interface->declare(&fVbargraph7, "osc", "/output8 -70 6"); + ui_interface->declare(&fVbargraph7, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30a2cd0", &fVbargraph7, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("9"); + ui_interface->declare(&fVbargraph8, "osc", "/output9 -70 6"); + ui_interface->declare(&fVbargraph8, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30ada10", &fVbargraph8, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("10"); + ui_interface->declare(&fVbargraph9, "osc", "/output10 -70 6"); + ui_interface->declare(&fVbargraph9, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30b8830", &fVbargraph9, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("11"); + ui_interface->declare(&fVbargraph10, "osc", "/output11 -70 6"); + ui_interface->declare(&fVbargraph10, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30c4110", &fVbargraph10, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("12"); + ui_interface->declare(&fVbargraph11, "osc", "/output12 -70 6"); + ui_interface->declare(&fVbargraph11, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30cfad0", &fVbargraph11, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("13"); + ui_interface->declare(&fVbargraph12, "osc", "/output13 -70 6"); + ui_interface->declare(&fVbargraph12, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30db570", &fVbargraph12, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("14"); + ui_interface->declare(&fVbargraph13, "osc", "/output14 -70 6"); + ui_interface->declare(&fVbargraph13, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30e70f0", &fVbargraph13, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("15"); + ui_interface->declare(&fVbargraph14, "osc", "/output15 -70 6"); + ui_interface->declare(&fVbargraph14, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30f1f80", &fVbargraph14, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("16"); + ui_interface->declare(&fVbargraph15, "osc", "/output16 -70 6"); + ui_interface->declare(&fVbargraph15, "unit", "dB"); + ui_interface->addVerticalBargraph("0x30fcef0", &fVbargraph15, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("17"); + ui_interface->declare(&fVbargraph16, "osc", "/output17 -70 6"); + ui_interface->declare(&fVbargraph16, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3107f40", &fVbargraph16, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("18"); + ui_interface->declare(&fVbargraph17, "osc", "/output18 -70 6"); + ui_interface->declare(&fVbargraph17, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3113070", &fVbargraph17, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("19"); + ui_interface->declare(&fVbargraph18, "osc", "/output19 -70 6"); + ui_interface->declare(&fVbargraph18, "unit", "dB"); + ui_interface->addVerticalBargraph("0x311efd0", &fVbargraph18, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("20"); + ui_interface->declare(&fVbargraph19, "osc", "/output20 -70 6"); + ui_interface->declare(&fVbargraph19, "unit", "dB"); + ui_interface->addVerticalBargraph("0x312a6b0", &fVbargraph19, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("21"); + ui_interface->declare(&fVbargraph20, "osc", "/output21 -70 6"); + ui_interface->declare(&fVbargraph20, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3135e70", &fVbargraph20, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("22"); + ui_interface->declare(&fVbargraph21, "osc", "/output22 -70 6"); + ui_interface->declare(&fVbargraph21, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3141710", &fVbargraph21, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("23"); + ui_interface->declare(&fVbargraph22, "osc", "/output23 -70 6"); + ui_interface->declare(&fVbargraph22, "unit", "dB"); + ui_interface->addVerticalBargraph("0x314cca0", &fVbargraph22, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("24"); + ui_interface->declare(&fVbargraph23, "osc", "/output24 -70 6"); + ui_interface->declare(&fVbargraph23, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3158310", &fVbargraph23, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("25"); + ui_interface->declare(&fVbargraph24, "osc", "/output25 -70 6"); + ui_interface->declare(&fVbargraph24, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3163a60", &fVbargraph24, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->declare(0, "~", ""); + ui_interface->openHorizontalBox("26-50"); + ui_interface->openVerticalBox("26"); + ui_interface->declare(&fVbargraph25, "osc", "/output26 -70 6"); + ui_interface->declare(&fVbargraph25, "unit", "dB"); + ui_interface->addVerticalBargraph("0x316f290", &fVbargraph25, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("27"); + ui_interface->declare(&fVbargraph26, "osc", "/output27 -70 6"); + ui_interface->declare(&fVbargraph26, "unit", "dB"); + ui_interface->addVerticalBargraph("0x317aea0", &fVbargraph26, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("28"); + ui_interface->declare(&fVbargraph27, "osc", "/output28 -70 6"); + ui_interface->declare(&fVbargraph27, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3185780", &fVbargraph27, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("29"); + ui_interface->declare(&fVbargraph28, "osc", "/output29 -70 6"); + ui_interface->declare(&fVbargraph28, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3190140", &fVbargraph28, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("30"); + ui_interface->declare(&fVbargraph29, "osc", "/output30 -70 6"); + ui_interface->declare(&fVbargraph29, "unit", "dB"); + ui_interface->addVerticalBargraph("0x319abe0", &fVbargraph29, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("31"); + ui_interface->declare(&fVbargraph30, "osc", "/output31 -70 6"); + ui_interface->declare(&fVbargraph30, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31a68c0", &fVbargraph30, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("32"); + ui_interface->declare(&fVbargraph31, "osc", "/output32 -70 6"); + ui_interface->declare(&fVbargraph31, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31b1ef0", &fVbargraph31, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("33"); + ui_interface->declare(&fVbargraph32, "osc", "/output33 -70 6"); + ui_interface->declare(&fVbargraph32, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31bd600", &fVbargraph32, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("34"); + ui_interface->declare(&fVbargraph33, "osc", "/output34 -70 6"); + ui_interface->declare(&fVbargraph33, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31c8df0", &fVbargraph33, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("35"); + ui_interface->declare(&fVbargraph34, "osc", "/output35 -70 6"); + ui_interface->declare(&fVbargraph34, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31d46c0", &fVbargraph34, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("36"); + ui_interface->declare(&fVbargraph35, "osc", "/output36 -70 6"); + ui_interface->declare(&fVbargraph35, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31e0070", &fVbargraph35, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("37"); + ui_interface->declare(&fVbargraph36, "osc", "/output37 -70 6"); + ui_interface->declare(&fVbargraph36, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31ebb00", &fVbargraph36, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("38"); + ui_interface->declare(&fVbargraph37, "osc", "/output38 -70 6"); + ui_interface->declare(&fVbargraph37, "unit", "dB"); + ui_interface->addVerticalBargraph("0x31f7670", &fVbargraph37, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("39"); + ui_interface->declare(&fVbargraph38, "osc", "/output39 -70 6"); + ui_interface->declare(&fVbargraph38, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3202500", &fVbargraph38, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("40"); + ui_interface->declare(&fVbargraph39, "osc", "/output40 -70 6"); + ui_interface->declare(&fVbargraph39, "unit", "dB"); + ui_interface->addVerticalBargraph("0x320d470", &fVbargraph39, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("41"); + ui_interface->declare(&fVbargraph40, "osc", "/output41 -70 6"); + ui_interface->declare(&fVbargraph40, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32184c0", &fVbargraph40, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("42"); + ui_interface->declare(&fVbargraph41, "osc", "/output42 -70 6"); + ui_interface->declare(&fVbargraph41, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32235f0", &fVbargraph41, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("43"); + ui_interface->declare(&fVbargraph42, "osc", "/output43 -70 6"); + ui_interface->declare(&fVbargraph42, "unit", "dB"); + ui_interface->addVerticalBargraph("0x322e800", &fVbargraph42, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("44"); + ui_interface->declare(&fVbargraph43, "osc", "/output44 -70 6"); + ui_interface->declare(&fVbargraph43, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3239af0", &fVbargraph43, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("45"); + ui_interface->declare(&fVbargraph44, "osc", "/output45 -70 6"); + ui_interface->declare(&fVbargraph44, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3244ec0", &fVbargraph44, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("46"); + ui_interface->declare(&fVbargraph45, "osc", "/output46 -70 6"); + ui_interface->declare(&fVbargraph45, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3250370", &fVbargraph45, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("47"); + ui_interface->declare(&fVbargraph46, "osc", "/output47 -70 6"); + ui_interface->declare(&fVbargraph46, "unit", "dB"); + ui_interface->addVerticalBargraph("0x325b900", &fVbargraph46, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("48"); + ui_interface->declare(&fVbargraph47, "osc", "/output48 -70 6"); + ui_interface->declare(&fVbargraph47, "unit", "dB"); + ui_interface->addVerticalBargraph("0x3266f70", &fVbargraph47, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("49"); + ui_interface->declare(&fVbargraph48, "osc", "/output49 -70 6"); + ui_interface->declare(&fVbargraph48, "unit", "dB"); + ui_interface->addVerticalBargraph("0x32726c0", &fVbargraph48, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->openVerticalBox("50"); + ui_interface->declare(&fVbargraph49, "osc", "/output50 -70 6"); + ui_interface->declare(&fVbargraph49, "unit", "dB"); + ui_interface->addVerticalBargraph("0x327def0", &fVbargraph49, -70.0, 6.0); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + FAUSTFLOAT* output25 = outputs[25]; + FAUSTFLOAT* output26 = outputs[26]; + FAUSTFLOAT* output27 = outputs[27]; + FAUSTFLOAT* output28 = outputs[28]; + FAUSTFLOAT* output29 = outputs[29]; + FAUSTFLOAT* output30 = outputs[30]; + FAUSTFLOAT* output31 = outputs[31]; + FAUSTFLOAT* output32 = outputs[32]; + FAUSTFLOAT* output33 = outputs[33]; + FAUSTFLOAT* output34 = outputs[34]; + FAUSTFLOAT* output35 = outputs[35]; + FAUSTFLOAT* output36 = outputs[36]; + FAUSTFLOAT* output37 = outputs[37]; + FAUSTFLOAT* output38 = outputs[38]; + FAUSTFLOAT* output39 = outputs[39]; + FAUSTFLOAT* output40 = outputs[40]; + FAUSTFLOAT* output41 = outputs[41]; + FAUSTFLOAT* output42 = outputs[42]; + FAUSTFLOAT* output43 = outputs[43]; + FAUSTFLOAT* output44 = outputs[44]; + FAUSTFLOAT* output45 = outputs[45]; + FAUSTFLOAT* output46 = outputs[46]; + FAUSTFLOAT* output47 = outputs[47]; + FAUSTFLOAT* output48 = outputs[48]; + FAUSTFLOAT* output49 = outputs[49]; + double fSlow0 = double(fHslider0); + double fSlow1 = sin(fSlow0); + double fSlow2 = (3.0 * (1.0 - double(fCheckbox0))); + double fSlow3 = double(fHslider1); + double fSlow4 = (fConst3 / fSlow3); + double fSlow5 = (fSlow4 + 1.0); + double fSlow6 = (fConst2 / (fSlow5 * fSlow3)); + double fSlow7 = double(fEntry0); + double fSlow8 = (fConst3 / fSlow7); + double fSlow9 = (1.0 / (fSlow8 + 1.0)); + double fSlow10 = double(fCheckbox1); + double fSlow11 = (((fSlow5 * fSlow10) * fSlow7) / fSlow3); + double fSlow12 = (0.0010000000000000009 * pow(10.0, (0.050000000000000003 * double(fHslider2)))); + double fSlow13 = (fConst2 / fSlow7); + double fSlow14 = (1.0 - fSlow10); + double fSlow15 = (fSlow14 * fSlow7); + double fSlow16 = mydsp_faustpower2_f(fSlow1); + double fSlow17 = ((3.0 * fSlow16) + -1.0); + double fSlow18 = ((2.5 * fSlow17) + -2.0); + double fSlow19 = (1.0 - double(fCheckbox2)); + double fSlow20 = (2.333333333333333 * (fSlow18 * fSlow19)); + double fSlow21 = ((fConst5 / fSlow3) + 1.0); + double fSlow22 = (fConst4 / (fSlow21 * fSlow3)); + double fSlow23 = (1.0 / ((fConst5 / fSlow7) + 1.0)); + double fSlow24 = mydsp_faustpower2_f(fSlow8); + double fSlow25 = (1.0 / (((fConst6 / fSlow7) + (6.4594326934833797 * fSlow24)) + 1.0)); + double fSlow26 = mydsp_faustpower2_f(fSlow4); + double fSlow27 = (((fConst6 / fSlow3) + (6.4594326934833797 * fSlow26)) + 1.0); + double fSlow28 = (((fSlow27 * fSlow10) * fSlow7) / fSlow3); + double fSlow29 = (25.837730773933519 * fSlow24); + double fSlow30 = (fSlow29 + (fConst7 / fSlow7)); + double fSlow31 = (1.0 / fSlow27); + double fSlow32 = (25.837730773933519 * fSlow26); + double fSlow33 = ((fConst7 / fSlow3) + fSlow32); + double fSlow34 = (fConst4 / fSlow7); + double fSlow35 = ((2.333333333333333 * (fSlow18 * fSlow16)) - (1.5 * fSlow17)); + double fSlow36 = (1.0 - double(fCheckbox3)); + double fSlow37 = (2.2000000000000002 * (((2.25 * fSlow35) - (1.3333333333333333 * fSlow18)) * fSlow36)); + double fSlow38 = ((fConst9 / fSlow3) + 1.0); + double fSlow39 = (fConst8 / (fSlow38 * fSlow3)); + double fSlow40 = (1.0 / ((fConst9 / fSlow7) + 1.0)); + double fSlow41 = (1.0 / (((fConst10 / fSlow7) + (14.272480513280099 * fSlow24)) + 1.0)); + double fSlow42 = (((fConst10 / fSlow3) + (14.272480513280099 * fSlow26)) + 1.0); + double fSlow43 = (1.0 / (((fConst11 / fSlow7) + (18.1563153134523 * fSlow24)) + 1.0)); + double fSlow44 = (((fConst11 / fSlow3) + (18.1563153134523 * fSlow26)) + 1.0); + double fSlow45 = (((fSlow44 * fSlow10) * fSlow7) / fSlow3); + double fSlow46 = (72.6252612538092 * fSlow24); + double fSlow47 = (fSlow46 + (fConst12 / fSlow7)); + double fSlow48 = (1.0 / fSlow44); + double fSlow49 = (72.6252612538092 * fSlow26); + double fSlow50 = ((fConst12 / fSlow3) + fSlow49); + double fSlow51 = (57.089922053120397 * fSlow24); + double fSlow52 = (fSlow51 + (fConst13 / fSlow7)); + double fSlow53 = (1.0 / fSlow42); + double fSlow54 = (57.089922053120397 * fSlow26); + double fSlow55 = ((fConst13 / fSlow3) + fSlow54); + double fSlow56 = (fConst8 / fSlow7); + double fSlow57 = ((((fSlow10 / fSlow3) + fSlow14) * fSlow7) * (1.0 - double(fCheckbox4))); + double fSlow58 = (1.0 - double(fCheckbox5)); + double fSlow59 = (2.5 * (fSlow17 * fSlow58)); + double fSlow60 = (((fConst14 / fSlow3) + (3.0 * fSlow26)) + 1.0); + double fSlow61 = (1.0 / fSlow60); + double fSlow62 = (12.0 * fSlow26); + double fSlow63 = ((fConst15 / fSlow3) + fSlow62); + double fSlow64 = (1.0 / (((fConst14 / fSlow7) + (3.0 * fSlow24)) + 1.0)); + double fSlow65 = (((fSlow60 * fSlow10) * fSlow7) / fSlow3); + double fSlow66 = (12.0 * fSlow24); + double fSlow67 = (fSlow66 + (fConst15 / fSlow7)); + double fSlow68 = (1.0 - double(fCheckbox6)); + double fSlow69 = (2.25 * (fSlow35 * fSlow68)); + double fSlow70 = (((fConst16 / fSlow3) + (9.1401308902779004 * fSlow26)) + 1.0); + double fSlow71 = (1.0 / fSlow70); + double fSlow72 = (36.560523561111602 * fSlow26); + double fSlow73 = ((fConst17 / fSlow3) + fSlow72); + double fSlow74 = (1.0 / (((fConst16 / fSlow7) + (9.1401308902779004 * fSlow24)) + 1.0)); + double fSlow75 = (1.0 / (((fConst18 / fSlow7) + (11.4878004768713 * fSlow24)) + 1.0)); + double fSlow76 = (((fConst18 / fSlow3) + (11.4878004768713 * fSlow26)) + 1.0); + double fSlow77 = (((fSlow76 * fSlow10) * fSlow7) / fSlow3); + double fSlow78 = (45.951201907485199 * fSlow24); + double fSlow79 = (fSlow78 + (fConst19 / fSlow7)); + double fSlow80 = (1.0 / fSlow76); + double fSlow81 = (45.951201907485199 * fSlow26); + double fSlow82 = ((fConst19 / fSlow3) + fSlow81); + double fSlow83 = (36.560523561111602 * fSlow24); + double fSlow84 = (fSlow83 + (fConst17 / fSlow7)); + double fSlow85 = double(fHslider3); + double fSlow86 = cos(fSlow85); + double fSlow87 = cos(fSlow0); + double fSlow88 = (fSlow86 * fSlow87); + double fSlow89 = mydsp_faustpower2_f(fSlow86); + double fSlow90 = mydsp_faustpower2_f(fSlow87); + double fSlow91 = ((3.0 * (fSlow89 * fSlow90)) + -1.0); + double fSlow92 = ((2.5 * fSlow91) + -2.0); + double fSlow93 = (2.333333333333333 * (fSlow92 * fSlow19)); + double fSlow94 = ((2.333333333333333 * ((fSlow89 * fSlow92) * fSlow90)) - (1.5 * fSlow91)); + double fSlow95 = (2.2000000000000002 * (((2.25 * fSlow94) - (1.3333333333333333 * fSlow92)) * fSlow36)); + double fSlow96 = (2.5 * (fSlow91 * fSlow58)); + double fSlow97 = (2.25 * (fSlow94 * fSlow68)); + double fSlow98 = cos((fSlow85 + -1.5707963267948966)); + double fSlow99 = (fSlow98 * fSlow87); + double fSlow100 = mydsp_faustpower2_f(fSlow98); + double fSlow101 = ((3.0 * (fSlow100 * fSlow90)) + -1.0); + double fSlow102 = ((2.5 * fSlow101) + -2.0); + double fSlow103 = (2.333333333333333 * (fSlow102 * fSlow19)); + double fSlow104 = ((2.333333333333333 * ((fSlow100 * fSlow102) * fSlow90)) - (1.5 * fSlow101)); + double fSlow105 = (2.2000000000000002 * (((2.25 * fSlow104) - (1.3333333333333333 * fSlow102)) * fSlow36)); + double fSlow106 = (2.5 * (fSlow101 * fSlow58)); + double fSlow107 = (2.25 * (fSlow104 * fSlow68)); + double fSlow108 = cos((fSlow85 + -3.1415926535897931)); + double fSlow109 = (fSlow108 * fSlow87); + double fSlow110 = mydsp_faustpower2_f(fSlow108); + double fSlow111 = ((3.0 * (fSlow110 * fSlow90)) + -1.0); + double fSlow112 = ((2.5 * fSlow111) + -2.0); + double fSlow113 = (2.333333333333333 * (fSlow112 * fSlow19)); + double fSlow114 = ((2.333333333333333 * ((fSlow110 * fSlow112) * fSlow90)) - (1.5 * fSlow111)); + double fSlow115 = (2.2000000000000002 * (((2.25 * fSlow114) - (1.3333333333333333 * fSlow112)) * fSlow36)); + double fSlow116 = (2.5 * (fSlow111 * fSlow58)); + double fSlow117 = (2.25 * (fSlow114 * fSlow68)); + double fSlow118 = cos((fSlow85 + -4.7123889803846897)); + double fSlow119 = (fSlow118 * fSlow87); + double fSlow120 = mydsp_faustpower2_f(fSlow118); + double fSlow121 = ((3.0 * (fSlow120 * fSlow90)) + -1.0); + double fSlow122 = ((2.5 * fSlow121) + -2.0); + double fSlow123 = (2.333333333333333 * (fSlow122 * fSlow19)); + double fSlow124 = ((2.333333333333333 * ((fSlow120 * fSlow122) * fSlow90)) - (1.5 * fSlow121)); + double fSlow125 = (2.2000000000000002 * (((2.25 * fSlow124) - (1.3333333333333333 * fSlow122)) * fSlow36)); + double fSlow126 = (2.5 * (fSlow121 * fSlow58)); + double fSlow127 = (2.25 * (fSlow124 * fSlow68)); + double fSlow128 = ((6.123233995736766e-17 * fSlow88) - fSlow1); + double fSlow129 = mydsp_faustpower2_f(fSlow128); + double fSlow130 = ((3.0 * fSlow129) + -1.0); + double fSlow131 = ((2.5 * fSlow130) + -2.0); + double fSlow132 = (2.333333333333333 * (fSlow131 * fSlow19)); + double fSlow133 = ((2.333333333333333 * (fSlow129 * fSlow131)) - (1.5 * fSlow130)); + double fSlow134 = (2.2000000000000002 * (((2.25 * fSlow133) - (1.3333333333333333 * fSlow131)) * fSlow36)); + double fSlow135 = (2.5 * (fSlow130 * fSlow58)); + double fSlow136 = (2.25 * (fSlow133 * fSlow68)); + double fSlow137 = (0.70710678118654757 * fSlow88); + double fSlow138 = (0.70710678118654746 * fSlow1); + double fSlow139 = (fSlow137 + fSlow138); + double fSlow140 = mydsp_faustpower2_f(fSlow139); + double fSlow141 = ((3.0 * fSlow140) + -1.0); + double fSlow142 = ((2.5 * fSlow141) + -2.0); + double fSlow143 = (2.333333333333333 * (fSlow142 * fSlow19)); + double fSlow144 = ((2.333333333333333 * (fSlow140 * fSlow142)) - (1.5 * fSlow141)); + double fSlow145 = (2.2000000000000002 * (((2.25 * fSlow144) - (1.3333333333333333 * fSlow142)) * fSlow36)); + double fSlow146 = (2.5 * (fSlow141 * fSlow58)); + double fSlow147 = (2.25 * (fSlow144 * fSlow68)); + double fSlow148 = (0.70710678118654757 * fSlow99); + double fSlow149 = (fSlow138 + fSlow148); + double fSlow150 = mydsp_faustpower2_f(fSlow149); + double fSlow151 = ((3.0 * fSlow150) + -1.0); + double fSlow152 = ((2.5 * fSlow151) + -2.0); + double fSlow153 = (2.333333333333333 * (fSlow152 * fSlow19)); + double fSlow154 = ((2.333333333333333 * (fSlow150 * fSlow152)) - (1.5 * fSlow151)); + double fSlow155 = (2.2000000000000002 * (((2.25 * fSlow154) - (1.3333333333333333 * fSlow152)) * fSlow36)); + double fSlow156 = (2.5 * (fSlow151 * fSlow58)); + double fSlow157 = (2.25 * (fSlow154 * fSlow68)); + double fSlow158 = (0.70710678118654757 * fSlow109); + double fSlow159 = (fSlow138 + fSlow158); + double fSlow160 = mydsp_faustpower2_f(fSlow159); + double fSlow161 = ((3.0 * fSlow160) + -1.0); + double fSlow162 = ((2.5 * fSlow161) + -2.0); + double fSlow163 = (2.333333333333333 * (fSlow162 * fSlow19)); + double fSlow164 = ((2.333333333333333 * (fSlow160 * fSlow162)) - (1.5 * fSlow161)); + double fSlow165 = (2.2000000000000002 * (((2.25 * fSlow164) - (1.3333333333333333 * fSlow162)) * fSlow36)); + double fSlow166 = (2.5 * (fSlow161 * fSlow58)); + double fSlow167 = (2.25 * (fSlow164 * fSlow68)); + double fSlow168 = (0.70710678118654757 * fSlow119); + double fSlow169 = (fSlow138 + fSlow168); + double fSlow170 = mydsp_faustpower2_f(fSlow169); + double fSlow171 = ((3.0 * fSlow170) + -1.0); + double fSlow172 = ((2.5 * fSlow171) + -2.0); + double fSlow173 = (2.333333333333333 * (fSlow172 * fSlow19)); + double fSlow174 = ((2.333333333333333 * (fSlow170 * fSlow172)) - (1.5 * fSlow171)); + double fSlow175 = (2.2000000000000002 * (((2.25 * fSlow174) - (1.3333333333333333 * fSlow172)) * fSlow36)); + double fSlow176 = (2.5 * (fSlow171 * fSlow58)); + double fSlow177 = (2.25 * (fSlow174 * fSlow68)); + double fSlow178 = cos((fSlow85 + -0.78539816339744828)); + double fSlow179 = (fSlow178 * fSlow87); + double fSlow180 = mydsp_faustpower2_f(fSlow178); + double fSlow181 = ((3.0 * (fSlow180 * fSlow90)) + -1.0); + double fSlow182 = ((2.5 * fSlow181) + -2.0); + double fSlow183 = (2.333333333333333 * (fSlow182 * fSlow19)); + double fSlow184 = ((2.333333333333333 * ((fSlow180 * fSlow182) * fSlow90)) - (1.5 * fSlow181)); + double fSlow185 = (2.2000000000000002 * (((2.25 * fSlow184) - (1.3333333333333333 * fSlow182)) * fSlow36)); + double fSlow186 = (2.5 * (fSlow181 * fSlow58)); + double fSlow187 = (2.25 * (fSlow184 * fSlow68)); + double fSlow188 = cos((fSlow85 + -2.3561944901923448)); + double fSlow189 = (fSlow188 * fSlow87); + double fSlow190 = mydsp_faustpower2_f(fSlow188); + double fSlow191 = ((3.0 * (fSlow190 * fSlow90)) + -1.0); + double fSlow192 = ((2.5 * fSlow191) + -2.0); + double fSlow193 = (2.333333333333333 * (fSlow192 * fSlow19)); + double fSlow194 = ((2.333333333333333 * ((fSlow190 * fSlow192) * fSlow90)) - (1.5 * fSlow191)); + double fSlow195 = (2.2000000000000002 * (((2.25 * fSlow194) - (1.3333333333333333 * fSlow192)) * fSlow36)); + double fSlow196 = (2.5 * (fSlow191 * fSlow58)); + double fSlow197 = (2.25 * (fSlow194 * fSlow68)); + double fSlow198 = cos((fSlow85 + -3.9269908169872414)); + double fSlow199 = (fSlow198 * fSlow87); + double fSlow200 = mydsp_faustpower2_f(fSlow198); + double fSlow201 = ((3.0 * (fSlow200 * fSlow90)) + -1.0); + double fSlow202 = ((2.5 * fSlow201) + -2.0); + double fSlow203 = (2.333333333333333 * (fSlow202 * fSlow19)); + double fSlow204 = ((2.333333333333333 * ((fSlow200 * fSlow202) * fSlow90)) - (1.5 * fSlow201)); + double fSlow205 = (2.2000000000000002 * (((2.25 * fSlow204) - (1.3333333333333333 * fSlow202)) * fSlow36)); + double fSlow206 = (2.5 * (fSlow201 * fSlow58)); + double fSlow207 = (2.25 * (fSlow204 * fSlow68)); + double fSlow208 = cos((fSlow85 + -5.497787143782138)); + double fSlow209 = (fSlow208 * fSlow87); + double fSlow210 = mydsp_faustpower2_f(fSlow208); + double fSlow211 = ((3.0 * (fSlow210 * fSlow90)) + -1.0); + double fSlow212 = ((2.5 * fSlow211) + -2.0); + double fSlow213 = (2.333333333333333 * (fSlow212 * fSlow19)); + double fSlow214 = ((2.333333333333333 * ((fSlow210 * fSlow212) * fSlow90)) - (1.5 * fSlow211)); + double fSlow215 = (2.2000000000000002 * (((2.25 * fSlow214) - (1.3333333333333333 * fSlow212)) * fSlow36)); + double fSlow216 = (2.5 * (fSlow211 * fSlow58)); + double fSlow217 = (2.25 * (fSlow214 * fSlow68)); + double fSlow218 = (fSlow137 - fSlow138); + double fSlow219 = mydsp_faustpower2_f(fSlow218); + double fSlow220 = ((3.0 * fSlow219) + -1.0); + double fSlow221 = ((2.5 * fSlow220) + -2.0); + double fSlow222 = (2.333333333333333 * (fSlow221 * fSlow19)); + double fSlow223 = ((2.333333333333333 * (fSlow219 * fSlow221)) - (1.5 * fSlow220)); + double fSlow224 = (2.2000000000000002 * (((2.25 * fSlow223) - (1.3333333333333333 * fSlow221)) * fSlow36)); + double fSlow225 = (2.5 * (fSlow220 * fSlow58)); + double fSlow226 = (2.25 * (fSlow223 * fSlow68)); + double fSlow227 = (fSlow148 - fSlow138); + double fSlow228 = mydsp_faustpower2_f(fSlow227); + double fSlow229 = ((3.0 * fSlow228) + -1.0); + double fSlow230 = ((2.5 * fSlow229) + -2.0); + double fSlow231 = (2.333333333333333 * (fSlow230 * fSlow19)); + double fSlow232 = ((2.333333333333333 * (fSlow228 * fSlow230)) - (1.5 * fSlow229)); + double fSlow233 = (2.2000000000000002 * (((2.25 * fSlow232) - (1.3333333333333333 * fSlow230)) * fSlow36)); + double fSlow234 = (2.5 * (fSlow229 * fSlow58)); + double fSlow235 = (2.25 * (fSlow232 * fSlow68)); + double fSlow236 = (fSlow158 - fSlow138); + double fSlow237 = mydsp_faustpower2_f(fSlow236); + double fSlow238 = ((3.0 * fSlow237) + -1.0); + double fSlow239 = ((2.5 * fSlow238) + -2.0); + double fSlow240 = (2.333333333333333 * (fSlow239 * fSlow19)); + double fSlow241 = ((2.333333333333333 * (fSlow237 * fSlow239)) - (1.5 * fSlow238)); + double fSlow242 = (2.2000000000000002 * (((2.25 * fSlow241) - (1.3333333333333333 * fSlow239)) * fSlow36)); + double fSlow243 = (2.5 * (fSlow238 * fSlow58)); + double fSlow244 = (2.25 * (fSlow241 * fSlow68)); + double fSlow245 = (fSlow168 - fSlow138); + double fSlow246 = mydsp_faustpower2_f(fSlow245); + double fSlow247 = ((3.0 * fSlow246) + -1.0); + double fSlow248 = ((2.5 * fSlow247) + -2.0); + double fSlow249 = (2.333333333333333 * (fSlow248 * fSlow19)); + double fSlow250 = ((2.333333333333333 * (fSlow246 * fSlow248)) - (1.5 * fSlow247)); + double fSlow251 = (2.2000000000000002 * (((2.25 * fSlow250) - (1.3333333333333333 * fSlow248)) * fSlow36)); + double fSlow252 = (2.5 * (fSlow247 * fSlow58)); + double fSlow253 = (2.25 * (fSlow250 * fSlow68)); + double fSlow254 = (0.81649658092772592 * fSlow179); + double fSlow255 = (0.57735026918962584 * fSlow1); + double fSlow256 = (fSlow254 + fSlow255); + double fSlow257 = mydsp_faustpower2_f(fSlow256); + double fSlow258 = ((3.0 * fSlow257) + -1.0); + double fSlow259 = ((2.5 * fSlow258) + -2.0); + double fSlow260 = (2.333333333333333 * (fSlow259 * fSlow19)); + double fSlow261 = ((2.333333333333333 * (fSlow257 * fSlow259)) - (1.5 * fSlow258)); + double fSlow262 = (2.2000000000000002 * (((2.25 * fSlow261) - (1.3333333333333333 * fSlow259)) * fSlow36)); + double fSlow263 = (2.5 * (fSlow258 * fSlow58)); + double fSlow264 = (2.25 * (fSlow261 * fSlow68)); + double fSlow265 = (0.81649658092772592 * fSlow189); + double fSlow266 = (fSlow255 + fSlow265); + double fSlow267 = mydsp_faustpower2_f(fSlow266); + double fSlow268 = ((3.0 * fSlow267) + -1.0); + double fSlow269 = ((2.5 * fSlow268) + -2.0); + double fSlow270 = (2.333333333333333 * (fSlow269 * fSlow19)); + double fSlow271 = ((2.333333333333333 * (fSlow267 * fSlow269)) - (1.5 * fSlow268)); + double fSlow272 = (2.2000000000000002 * (((2.25 * fSlow271) - (1.3333333333333333 * fSlow269)) * fSlow36)); + double fSlow273 = (2.5 * (fSlow268 * fSlow58)); + double fSlow274 = (2.25 * (fSlow271 * fSlow68)); + double fSlow275 = (0.81649658092772592 * fSlow199); + double fSlow276 = (fSlow255 + fSlow275); + double fSlow277 = mydsp_faustpower2_f(fSlow276); + double fSlow278 = ((3.0 * fSlow277) + -1.0); + double fSlow279 = ((2.5 * fSlow278) + -2.0); + double fSlow280 = (2.333333333333333 * (fSlow279 * fSlow19)); + double fSlow281 = ((2.333333333333333 * (fSlow277 * fSlow279)) - (1.5 * fSlow278)); + double fSlow282 = (2.2000000000000002 * (((2.25 * fSlow281) - (1.3333333333333333 * fSlow279)) * fSlow36)); + double fSlow283 = (2.5 * (fSlow278 * fSlow58)); + double fSlow284 = (2.25 * (fSlow281 * fSlow68)); + double fSlow285 = (0.81649658092772592 * fSlow209); + double fSlow286 = (fSlow255 + fSlow285); + double fSlow287 = mydsp_faustpower2_f(fSlow286); + double fSlow288 = ((3.0 * fSlow287) + -1.0); + double fSlow289 = ((2.5 * fSlow288) + -2.0); + double fSlow290 = (2.333333333333333 * (fSlow289 * fSlow19)); + double fSlow291 = ((2.333333333333333 * (fSlow287 * fSlow289)) - (1.5 * fSlow288)); + double fSlow292 = (2.2000000000000002 * (((2.25 * fSlow291) - (1.3333333333333333 * fSlow289)) * fSlow36)); + double fSlow293 = (2.5 * (fSlow288 * fSlow58)); + double fSlow294 = (2.25 * (fSlow291 * fSlow68)); + double fSlow295 = (fSlow254 - fSlow255); + double fSlow296 = mydsp_faustpower2_f(fSlow295); + double fSlow297 = ((3.0 * fSlow296) + -1.0); + double fSlow298 = ((2.5 * fSlow297) + -2.0); + double fSlow299 = (2.333333333333333 * (fSlow298 * fSlow19)); + double fSlow300 = ((2.333333333333333 * (fSlow296 * fSlow298)) - (1.5 * fSlow297)); + double fSlow301 = (2.2000000000000002 * (((2.25 * fSlow300) - (1.3333333333333333 * fSlow298)) * fSlow36)); + double fSlow302 = (2.5 * (fSlow297 * fSlow58)); + double fSlow303 = (2.25 * (fSlow300 * fSlow68)); + double fSlow304 = (fSlow265 - fSlow255); + double fSlow305 = mydsp_faustpower2_f(fSlow304); + double fSlow306 = ((3.0 * fSlow305) + -1.0); + double fSlow307 = ((2.5 * fSlow306) + -2.0); + double fSlow308 = (2.333333333333333 * (fSlow307 * fSlow19)); + double fSlow309 = ((2.333333333333333 * (fSlow305 * fSlow307)) - (1.5 * fSlow306)); + double fSlow310 = (2.2000000000000002 * (((2.25 * fSlow309) - (1.3333333333333333 * fSlow307)) * fSlow36)); + double fSlow311 = (2.5 * (fSlow306 * fSlow58)); + double fSlow312 = (2.25 * (fSlow309 * fSlow68)); + double fSlow313 = (fSlow275 - fSlow255); + double fSlow314 = mydsp_faustpower2_f(fSlow313); + double fSlow315 = ((3.0 * fSlow314) + -1.0); + double fSlow316 = ((2.5 * fSlow315) + -2.0); + double fSlow317 = (2.333333333333333 * (fSlow316 * fSlow19)); + double fSlow318 = ((2.333333333333333 * (fSlow314 * fSlow316)) - (1.5 * fSlow315)); + double fSlow319 = (2.2000000000000002 * (((2.25 * fSlow318) - (1.3333333333333333 * fSlow316)) * fSlow36)); + double fSlow320 = (2.5 * (fSlow315 * fSlow58)); + double fSlow321 = (2.25 * (fSlow318 * fSlow68)); + double fSlow322 = (fSlow285 - fSlow255); + double fSlow323 = mydsp_faustpower2_f(fSlow322); + double fSlow324 = ((3.0 * fSlow323) + -1.0); + double fSlow325 = ((2.5 * fSlow324) + -2.0); + double fSlow326 = (2.333333333333333 * (fSlow325 * fSlow19)); + double fSlow327 = ((2.333333333333333 * (fSlow323 * fSlow325)) - (1.5 * fSlow324)); + double fSlow328 = (2.2000000000000002 * (((2.25 * fSlow327) - (1.3333333333333333 * fSlow325)) * fSlow36)); + double fSlow329 = (2.5 * (fSlow324 * fSlow58)); + double fSlow330 = (2.25 * (fSlow327 * fSlow68)); + double fSlow331 = (0.42640143271122027 * (cos((fSlow85 + -0.78539816339744839)) * fSlow87)); + double fSlow332 = (0.90453403373329111 * fSlow1); + double fSlow333 = (fSlow331 + fSlow332); + double fSlow334 = mydsp_faustpower2_f(fSlow333); + double fSlow335 = ((3.0 * fSlow334) + -1.0); + double fSlow336 = ((2.5 * fSlow335) + -2.0); + double fSlow337 = (2.333333333333333 * (fSlow336 * fSlow19)); + double fSlow338 = ((2.333333333333333 * (fSlow334 * fSlow336)) - (1.5 * fSlow335)); + double fSlow339 = (2.2000000000000002 * (((2.25 * fSlow338) - (1.3333333333333333 * fSlow336)) * fSlow36)); + double fSlow340 = (2.5 * (fSlow335 * fSlow58)); + double fSlow341 = (2.25 * (fSlow338 * fSlow68)); + double fSlow342 = (0.42640143271122027 * fSlow189); + double fSlow343 = (fSlow332 + fSlow342); + double fSlow344 = mydsp_faustpower2_f(fSlow343); + double fSlow345 = ((3.0 * fSlow344) + -1.0); + double fSlow346 = ((2.5 * fSlow345) + -2.0); + double fSlow347 = (2.333333333333333 * (fSlow346 * fSlow19)); + double fSlow348 = ((2.333333333333333 * (fSlow344 * fSlow346)) - (1.5 * fSlow345)); + double fSlow349 = (2.2000000000000002 * (((2.25 * fSlow348) - (1.3333333333333333 * fSlow346)) * fSlow36)); + double fSlow350 = (2.5 * (fSlow345 * fSlow58)); + double fSlow351 = (2.25 * (fSlow348 * fSlow68)); + double fSlow352 = (0.42640143271122027 * fSlow199); + double fSlow353 = (fSlow332 + fSlow352); + double fSlow354 = mydsp_faustpower2_f(fSlow353); + double fSlow355 = ((3.0 * fSlow354) + -1.0); + double fSlow356 = ((2.5 * fSlow355) + -2.0); + double fSlow357 = (2.333333333333333 * (fSlow356 * fSlow19)); + double fSlow358 = ((2.333333333333333 * (fSlow354 * fSlow356)) - (1.5 * fSlow355)); + double fSlow359 = (2.2000000000000002 * (((2.25 * fSlow358) - (1.3333333333333333 * fSlow356)) * fSlow36)); + double fSlow360 = (2.5 * (fSlow355 * fSlow58)); + double fSlow361 = (2.25 * (fSlow358 * fSlow68)); + double fSlow362 = (0.42640143271122027 * fSlow209); + double fSlow363 = (fSlow332 + fSlow362); + double fSlow364 = mydsp_faustpower2_f(fSlow363); + double fSlow365 = ((3.0 * fSlow364) + -1.0); + double fSlow366 = ((2.5 * fSlow365) + -2.0); + double fSlow367 = (2.333333333333333 * (fSlow366 * fSlow19)); + double fSlow368 = ((2.333333333333333 * (fSlow364 * fSlow366)) - (1.5 * fSlow365)); + double fSlow369 = (2.2000000000000002 * (((2.25 * fSlow368) - (1.3333333333333333 * fSlow366)) * fSlow36)); + double fSlow370 = (2.5 * (fSlow365 * fSlow58)); + double fSlow371 = (2.25 * (fSlow368 * fSlow68)); + double fSlow372 = (0.95346258924559235 * (cos((fSlow85 + -0.32175055439664263)) * fSlow87)); + double fSlow373 = (0.30151134457776352 * fSlow1); + double fSlow374 = (fSlow372 + fSlow373); + double fSlow375 = mydsp_faustpower2_f(fSlow374); + double fSlow376 = ((3.0 * fSlow375) + -1.0); + double fSlow377 = ((2.5 * fSlow376) + -2.0); + double fSlow378 = (2.333333333333333 * (fSlow377 * fSlow19)); + double fSlow379 = ((2.333333333333333 * (fSlow375 * fSlow377)) - (1.5 * fSlow376)); + double fSlow380 = (2.2000000000000002 * (((2.25 * fSlow379) - (1.3333333333333333 * fSlow377)) * fSlow36)); + double fSlow381 = (2.5 * (fSlow376 * fSlow58)); + double fSlow382 = (2.25 * (fSlow379 * fSlow68)); + double fSlow383 = (0.95346258924559235 * (cos((fSlow85 + -1.2490457723982544)) * fSlow87)); + double fSlow384 = (fSlow373 + fSlow383); + double fSlow385 = mydsp_faustpower2_f(fSlow384); + double fSlow386 = ((3.0 * fSlow385) + -1.0); + double fSlow387 = ((2.5 * fSlow386) + -2.0); + double fSlow388 = (2.333333333333333 * (fSlow387 * fSlow19)); + double fSlow389 = ((2.333333333333333 * (fSlow385 * fSlow387)) - (1.5 * fSlow386)); + double fSlow390 = (2.2000000000000002 * (((2.25 * fSlow389) - (1.3333333333333333 * fSlow387)) * fSlow36)); + double fSlow391 = (2.5 * (fSlow386 * fSlow58)); + double fSlow392 = (2.25 * (fSlow389 * fSlow68)); + double fSlow393 = (0.95346258924559235 * (cos((fSlow85 + -1.8925468811915387)) * fSlow87)); + double fSlow394 = (fSlow373 + fSlow393); + double fSlow395 = mydsp_faustpower2_f(fSlow394); + double fSlow396 = ((3.0 * fSlow395) + -1.0); + double fSlow397 = ((2.5 * fSlow396) + -2.0); + double fSlow398 = (2.333333333333333 * (fSlow397 * fSlow19)); + double fSlow399 = ((2.333333333333333 * (fSlow395 * fSlow397)) - (1.5 * fSlow396)); + double fSlow400 = (2.2000000000000002 * (((2.25 * fSlow399) - (1.3333333333333333 * fSlow397)) * fSlow36)); + double fSlow401 = (2.5 * (fSlow396 * fSlow58)); + double fSlow402 = (2.25 * (fSlow399 * fSlow68)); + double fSlow403 = (0.95346258924559235 * (cos((fSlow85 + -2.8198420991931505)) * fSlow87)); + double fSlow404 = (fSlow373 + fSlow403); + double fSlow405 = mydsp_faustpower2_f(fSlow404); + double fSlow406 = ((3.0 * fSlow405) + -1.0); + double fSlow407 = ((2.5 * fSlow406) + -2.0); + double fSlow408 = (2.333333333333333 * (fSlow407 * fSlow19)); + double fSlow409 = ((2.333333333333333 * (fSlow405 * fSlow407)) - (1.5 * fSlow406)); + double fSlow410 = (2.2000000000000002 * (((2.25 * fSlow409) - (1.3333333333333333 * fSlow407)) * fSlow36)); + double fSlow411 = (2.5 * (fSlow406 * fSlow58)); + double fSlow412 = (2.25 * (fSlow409 * fSlow68)); + double fSlow413 = (0.95346258924559235 * (cos((fSlow85 + -3.4633432079864357)) * fSlow87)); + double fSlow414 = (fSlow373 + fSlow413); + double fSlow415 = mydsp_faustpower2_f(fSlow414); + double fSlow416 = ((3.0 * fSlow415) + -1.0); + double fSlow417 = ((2.5 * fSlow416) + -2.0); + double fSlow418 = (2.333333333333333 * (fSlow417 * fSlow19)); + double fSlow419 = ((2.333333333333333 * (fSlow415 * fSlow417)) - (1.5 * fSlow416)); + double fSlow420 = (2.2000000000000002 * (((2.25 * fSlow419) - (1.3333333333333333 * fSlow417)) * fSlow36)); + double fSlow421 = (2.5 * (fSlow416 * fSlow58)); + double fSlow422 = (2.25 * (fSlow419 * fSlow68)); + double fSlow423 = (0.95346258924559235 * (cos((fSlow85 + -4.3906384259880475)) * fSlow87)); + double fSlow424 = (fSlow373 + fSlow423); + double fSlow425 = mydsp_faustpower2_f(fSlow424); + double fSlow426 = ((3.0 * fSlow425) + -1.0); + double fSlow427 = ((2.5 * fSlow426) + -2.0); + double fSlow428 = (2.333333333333333 * (fSlow427 * fSlow19)); + double fSlow429 = ((2.333333333333333 * (fSlow425 * fSlow427)) - (1.5 * fSlow426)); + double fSlow430 = (2.2000000000000002 * (((2.25 * fSlow429) - (1.3333333333333333 * fSlow427)) * fSlow36)); + double fSlow431 = (2.5 * (fSlow426 * fSlow58)); + double fSlow432 = (2.25 * (fSlow429 * fSlow68)); + double fSlow433 = (0.95346258924559235 * (cos((fSlow85 + -5.0341395347813318)) * fSlow87)); + double fSlow434 = (fSlow373 + fSlow433); + double fSlow435 = mydsp_faustpower2_f(fSlow434); + double fSlow436 = ((3.0 * fSlow435) + -1.0); + double fSlow437 = ((2.5 * fSlow436) + -2.0); + double fSlow438 = (2.333333333333333 * (fSlow437 * fSlow19)); + double fSlow439 = ((2.333333333333333 * (fSlow435 * fSlow437)) - (1.5 * fSlow436)); + double fSlow440 = (2.2000000000000002 * (((2.25 * fSlow439) - (1.3333333333333333 * fSlow437)) * fSlow36)); + double fSlow441 = (2.5 * (fSlow436 * fSlow58)); + double fSlow442 = (2.25 * (fSlow439 * fSlow68)); + double fSlow443 = (0.95346258924559235 * (cos((fSlow85 + -5.9614347527829432)) * fSlow87)); + double fSlow444 = (fSlow373 + fSlow443); + double fSlow445 = mydsp_faustpower2_f(fSlow444); + double fSlow446 = ((3.0 * fSlow445) + -1.0); + double fSlow447 = ((2.5 * fSlow446) + -2.0); + double fSlow448 = (2.333333333333333 * (fSlow447 * fSlow19)); + double fSlow449 = ((2.333333333333333 * (fSlow445 * fSlow447)) - (1.5 * fSlow446)); + double fSlow450 = (2.2000000000000002 * (((2.25 * fSlow449) - (1.3333333333333333 * fSlow447)) * fSlow36)); + double fSlow451 = (2.5 * (fSlow446 * fSlow58)); + double fSlow452 = (2.25 * (fSlow449 * fSlow68)); + double fSlow453 = (fSlow372 - fSlow373); + double fSlow454 = mydsp_faustpower2_f(fSlow453); + double fSlow455 = ((3.0 * fSlow454) + -1.0); + double fSlow456 = ((2.5 * fSlow455) + -2.0); + double fSlow457 = (2.333333333333333 * (fSlow456 * fSlow19)); + double fSlow458 = ((2.333333333333333 * (fSlow454 * fSlow456)) - (1.5 * fSlow455)); + double fSlow459 = (2.2000000000000002 * (((2.25 * fSlow458) - (1.3333333333333333 * fSlow456)) * fSlow36)); + double fSlow460 = (2.5 * (fSlow455 * fSlow58)); + double fSlow461 = (2.25 * (fSlow458 * fSlow68)); + double fSlow462 = (fSlow383 - fSlow373); + double fSlow463 = mydsp_faustpower2_f(fSlow462); + double fSlow464 = ((3.0 * fSlow463) + -1.0); + double fSlow465 = ((2.5 * fSlow464) + -2.0); + double fSlow466 = (2.333333333333333 * (fSlow465 * fSlow19)); + double fSlow467 = ((2.333333333333333 * (fSlow463 * fSlow465)) - (1.5 * fSlow464)); + double fSlow468 = (2.2000000000000002 * (((2.25 * fSlow467) - (1.3333333333333333 * fSlow465)) * fSlow36)); + double fSlow469 = (2.5 * (fSlow464 * fSlow58)); + double fSlow470 = (2.25 * (fSlow467 * fSlow68)); + double fSlow471 = (fSlow393 - fSlow373); + double fSlow472 = mydsp_faustpower2_f(fSlow471); + double fSlow473 = ((3.0 * fSlow472) + -1.0); + double fSlow474 = ((2.5 * fSlow473) + -2.0); + double fSlow475 = (2.333333333333333 * (fSlow474 * fSlow19)); + double fSlow476 = ((2.333333333333333 * (fSlow472 * fSlow474)) - (1.5 * fSlow473)); + double fSlow477 = (2.2000000000000002 * (((2.25 * fSlow476) - (1.3333333333333333 * fSlow474)) * fSlow36)); + double fSlow478 = (2.5 * (fSlow473 * fSlow58)); + double fSlow479 = (2.25 * (fSlow476 * fSlow68)); + double fSlow480 = (fSlow403 - fSlow373); + double fSlow481 = mydsp_faustpower2_f(fSlow480); + double fSlow482 = ((3.0 * fSlow481) + -1.0); + double fSlow483 = ((2.5 * fSlow482) + -2.0); + double fSlow484 = (2.333333333333333 * (fSlow483 * fSlow19)); + double fSlow485 = ((2.333333333333333 * (fSlow481 * fSlow483)) - (1.5 * fSlow482)); + double fSlow486 = (2.2000000000000002 * (((2.25 * fSlow485) - (1.3333333333333333 * fSlow483)) * fSlow36)); + double fSlow487 = (2.5 * (fSlow482 * fSlow58)); + double fSlow488 = (2.25 * (fSlow485 * fSlow68)); + double fSlow489 = (fSlow413 - fSlow373); + double fSlow490 = mydsp_faustpower2_f(fSlow489); + double fSlow491 = ((3.0 * fSlow490) + -1.0); + double fSlow492 = ((2.5 * fSlow491) + -2.0); + double fSlow493 = (2.333333333333333 * (fSlow492 * fSlow19)); + double fSlow494 = ((2.333333333333333 * (fSlow490 * fSlow492)) - (1.5 * fSlow491)); + double fSlow495 = (2.2000000000000002 * (((2.25 * fSlow494) - (1.3333333333333333 * fSlow492)) * fSlow36)); + double fSlow496 = (2.5 * (fSlow491 * fSlow58)); + double fSlow497 = (2.25 * (fSlow494 * fSlow68)); + double fSlow498 = (fSlow423 - fSlow373); + double fSlow499 = mydsp_faustpower2_f(fSlow498); + double fSlow500 = ((3.0 * fSlow499) + -1.0); + double fSlow501 = ((2.5 * fSlow500) + -2.0); + double fSlow502 = (2.333333333333333 * (fSlow501 * fSlow19)); + double fSlow503 = ((2.333333333333333 * (fSlow499 * fSlow501)) - (1.5 * fSlow500)); + double fSlow504 = (2.2000000000000002 * (((2.25 * fSlow503) - (1.3333333333333333 * fSlow501)) * fSlow36)); + double fSlow505 = (2.5 * (fSlow500 * fSlow58)); + double fSlow506 = (2.25 * (fSlow503 * fSlow68)); + double fSlow507 = (fSlow433 - fSlow373); + double fSlow508 = mydsp_faustpower2_f(fSlow507); + double fSlow509 = ((3.0 * fSlow508) + -1.0); + double fSlow510 = ((2.5 * fSlow509) + -2.0); + double fSlow511 = (2.333333333333333 * (fSlow510 * fSlow19)); + double fSlow512 = ((2.333333333333333 * (fSlow508 * fSlow510)) - (1.5 * fSlow509)); + double fSlow513 = (2.2000000000000002 * (((2.25 * fSlow512) - (1.3333333333333333 * fSlow510)) * fSlow36)); + double fSlow514 = (2.5 * (fSlow509 * fSlow58)); + double fSlow515 = (2.25 * (fSlow512 * fSlow68)); + double fSlow516 = (fSlow443 - fSlow373); + double fSlow517 = mydsp_faustpower2_f(fSlow516); + double fSlow518 = ((3.0 * fSlow517) + -1.0); + double fSlow519 = ((2.5 * fSlow518) + -2.0); + double fSlow520 = (2.333333333333333 * (fSlow519 * fSlow19)); + double fSlow521 = ((2.333333333333333 * (fSlow517 * fSlow519)) - (1.5 * fSlow518)); + double fSlow522 = (2.2000000000000002 * (((2.25 * fSlow521) - (1.3333333333333333 * fSlow519)) * fSlow36)); + double fSlow523 = (2.5 * (fSlow518 * fSlow58)); + double fSlow524 = (2.25 * (fSlow521 * fSlow68)); + double fSlow525 = (fSlow331 - fSlow332); + double fSlow526 = mydsp_faustpower2_f(fSlow525); + double fSlow527 = ((3.0 * fSlow526) + -1.0); + double fSlow528 = ((2.5 * fSlow527) + -2.0); + double fSlow529 = (2.333333333333333 * (fSlow528 * fSlow19)); + double fSlow530 = ((2.333333333333333 * (fSlow526 * fSlow528)) - (1.5 * fSlow527)); + double fSlow531 = (2.2000000000000002 * (((2.25 * fSlow530) - (1.3333333333333333 * fSlow528)) * fSlow36)); + double fSlow532 = (2.5 * (fSlow527 * fSlow58)); + double fSlow533 = (2.25 * (fSlow530 * fSlow68)); + double fSlow534 = (fSlow342 - fSlow332); + double fSlow535 = mydsp_faustpower2_f(fSlow534); + double fSlow536 = ((3.0 * fSlow535) + -1.0); + double fSlow537 = ((2.5 * fSlow536) + -2.0); + double fSlow538 = (2.333333333333333 * (fSlow537 * fSlow19)); + double fSlow539 = ((2.333333333333333 * (fSlow535 * fSlow537)) - (1.5 * fSlow536)); + double fSlow540 = (2.2000000000000002 * (((2.25 * fSlow539) - (1.3333333333333333 * fSlow537)) * fSlow36)); + double fSlow541 = (2.5 * (fSlow536 * fSlow58)); + double fSlow542 = (2.25 * (fSlow539 * fSlow68)); + double fSlow543 = (fSlow352 - fSlow332); + double fSlow544 = mydsp_faustpower2_f(fSlow543); + double fSlow545 = ((3.0 * fSlow544) + -1.0); + double fSlow546 = ((2.5 * fSlow545) + -2.0); + double fSlow547 = (2.333333333333333 * (fSlow546 * fSlow19)); + double fSlow548 = ((2.333333333333333 * (fSlow544 * fSlow546)) - (1.5 * fSlow545)); + double fSlow549 = (2.2000000000000002 * (((2.25 * fSlow548) - (1.3333333333333333 * fSlow546)) * fSlow36)); + double fSlow550 = (2.5 * (fSlow545 * fSlow58)); + double fSlow551 = (2.25 * (fSlow548 * fSlow68)); + double fSlow552 = (fSlow362 - fSlow332); + double fSlow553 = mydsp_faustpower2_f(fSlow552); + double fSlow554 = ((3.0 * fSlow553) + -1.0); + double fSlow555 = ((2.5 * fSlow554) + -2.0); + double fSlow556 = (2.333333333333333 * (fSlow555 * fSlow19)); + double fSlow557 = ((2.333333333333333 * (fSlow553 * fSlow555)) - (1.5 * fSlow554)); + double fSlow558 = (2.2000000000000002 * (((2.25 * fSlow557) - (1.3333333333333333 * fSlow555)) * fSlow36)); + double fSlow559 = (2.5 * (fSlow554 * fSlow58)); + double fSlow560 = (2.25 * (fSlow557 * fSlow68)); + for (int i = 0; (i < count); i = (i + 1)) { + fRec3[0] = (fSlow12 + (0.999 * fRec3[1])); + double fTemp0 = (fRec3[0] * double(input0[i])); + fRec4[0] = (fRec4[1] + fRec2[1]); + fRec2[0] = (fSlow9 * ((fSlow11 * fTemp0) - (fSlow13 * fRec4[0]))); + fRec1[0] = (fRec2[0] + fRec1[1]); + double fTemp1 = (fSlow15 * fTemp0); + fRec6[0] = (fRec6[1] + fRec5[1]); + fRec5[0] = (fSlow9 * (fTemp1 - (fSlow13 * fRec6[0]))); + double fTemp2 = (fSlow2 * ((fSlow6 * (fRec1[0] - fRec2[0])) + (fRec2[0] + fRec5[0]))); + fRec10[0] = (fRec10[1] + fRec9[1]); + fRec11[0] = (fRec11[1] + fRec10[1]); + fRec9[0] = (fSlow25 * ((fSlow28 * fTemp0) - ((fSlow30 * fRec10[0]) + (fSlow29 * fRec11[0])))); + fRec12[0] = (fRec9[0] + fRec12[1]); + double fTemp3 = (fRec12[0] - fRec9[0]); + fVec0[0] = fTemp3; + fRec13[0] = (fRec13[1] + fVec0[1]); + fRec14[0] = (fRec14[1] + fRec8[1]); + fRec8[0] = (fSlow23 * ((fSlow21 * (fRec9[0] + (fSlow31 * ((fSlow33 * fTemp3) + (fSlow32 * fRec13[0]))))) - (fSlow34 * fRec14[0]))); + fRec7[0] = (fRec8[0] + fRec7[1]); + fRec17[0] = (fRec17[1] + fRec16[1]); + fRec18[0] = (fRec18[1] + fRec17[1]); + fRec16[0] = (fSlow25 * (fTemp1 - ((fSlow30 * fRec17[0]) + (fSlow29 * fRec18[0])))); + fRec19[0] = (fRec19[1] + fRec15[1]); + fRec15[0] = (fSlow23 * (fRec16[0] - (fSlow34 * fRec19[0]))); + double fTemp4 = ((fSlow22 * (fRec7[0] - fRec8[0])) + (fRec8[0] + fRec15[0])); + fRec24[0] = (fRec24[1] + fRec23[1]); + fRec25[0] = (fRec25[1] + fRec24[1]); + fRec23[0] = (fSlow43 * ((fSlow45 * fTemp0) - ((fSlow47 * fRec24[0]) + (fSlow46 * fRec25[0])))); + fRec26[0] = (fRec23[0] + fRec26[1]); + double fTemp5 = (fRec26[0] - fRec23[0]); + fVec1[0] = fTemp5; + fRec27[0] = (fRec27[1] + fVec1[1]); + fRec28[0] = (fRec28[1] + fRec22[1]); + fRec29[0] = (fRec29[1] + fRec28[1]); + fRec22[0] = (fSlow41 * ((fSlow42 * (fRec23[0] + (fSlow48 * ((fSlow50 * fTemp5) + (fSlow49 * fRec27[0]))))) - ((fSlow52 * fRec28[0]) + (fSlow51 * fRec29[0])))); + fRec30[0] = (fRec22[0] + fRec30[1]); + double fTemp6 = (fRec30[0] - fRec22[0]); + fVec2[0] = fTemp6; + fRec31[0] = (fRec31[1] + fVec2[1]); + fRec32[0] = (fRec32[1] + fRec21[1]); + fRec21[0] = (fSlow40 * ((fSlow38 * (fRec22[0] + (fSlow53 * ((fSlow55 * fTemp6) + (fSlow54 * fRec31[0]))))) - (fSlow56 * fRec32[0]))); + fRec20[0] = (fRec21[0] + fRec20[1]); + fRec36[0] = (fRec36[1] + fRec35[1]); + fRec37[0] = (fRec37[1] + fRec36[1]); + fRec35[0] = (fSlow43 * (fTemp1 - ((fSlow47 * fRec36[0]) + (fSlow46 * fRec37[0])))); + fRec38[0] = (fRec38[1] + fRec34[1]); + fRec39[0] = (fRec39[1] + fRec38[1]); + fRec34[0] = (fSlow41 * (fRec35[0] - ((fSlow52 * fRec38[0]) + (fSlow51 * fRec39[0])))); + fRec40[0] = (fRec40[1] + fRec33[1]); + fRec33[0] = (fSlow40 * (fRec34[0] - (fSlow56 * fRec40[0]))); + double fTemp7 = ((fSlow39 * (fRec20[0] - fRec21[0])) + (fRec21[0] + fRec33[0])); + double fTemp8 = (fSlow57 * fTemp0); + fRec43[0] = (fRec43[1] + fRec42[1]); + fRec44[0] = (fRec44[1] + fRec43[1]); + fRec42[0] = (fSlow64 * ((fSlow65 * fTemp0) - ((fSlow67 * fRec43[0]) + (fSlow66 * fRec44[0])))); + fRec41[0] = (fRec42[0] + fRec41[1]); + double fTemp9 = (fRec41[0] - fRec42[0]); + fVec3[0] = fTemp9; + fRec45[0] = (fRec45[1] + fVec3[1]); + fRec47[0] = (fRec47[1] + fRec46[1]); + fRec48[0] = (fRec48[1] + fRec47[1]); + fRec46[0] = (fSlow64 * (fTemp1 - ((fSlow67 * fRec47[0]) + (fSlow66 * fRec48[0])))); + double fTemp10 = ((fSlow61 * ((fSlow63 * fTemp9) + (fSlow62 * fRec45[0]))) + (fRec42[0] + fRec46[0])); + fRec52[0] = (fRec52[1] + fRec51[1]); + fRec53[0] = (fRec53[1] + fRec52[1]); + fRec51[0] = (fSlow75 * ((fSlow77 * fTemp0) - ((fSlow79 * fRec52[0]) + (fSlow78 * fRec53[0])))); + fRec54[0] = (fRec51[0] + fRec54[1]); + double fTemp11 = (fRec54[0] - fRec51[0]); + fVec4[0] = fTemp11; + fRec55[0] = (fRec55[1] + fVec4[1]); + fRec56[0] = (fRec56[1] + fRec50[1]); + fRec57[0] = (fRec57[1] + fRec56[1]); + fRec50[0] = (fSlow74 * ((fSlow70 * (fRec51[0] + (fSlow80 * ((fSlow82 * fTemp11) + (fSlow81 * fRec55[0]))))) - ((fSlow84 * fRec56[0]) + (fSlow83 * fRec57[0])))); + fRec49[0] = (fRec50[0] + fRec49[1]); + double fTemp12 = (fRec49[0] - fRec50[0]); + fVec5[0] = fTemp12; + fRec58[0] = (fRec58[1] + fVec5[1]); + fRec61[0] = (fRec61[1] + fRec60[1]); + fRec62[0] = (fRec62[1] + fRec61[1]); + fRec60[0] = (fSlow75 * (fTemp1 - ((fSlow79 * fRec61[0]) + (fSlow78 * fRec62[0])))); + fRec63[0] = (fRec63[1] + fRec59[1]); + fRec64[0] = (fRec64[1] + fRec63[1]); + fRec59[0] = (fSlow74 * (fRec60[0] - ((fSlow84 * fRec63[0]) + (fSlow83 * fRec64[0])))); + double fTemp13 = ((fSlow71 * ((fSlow73 * fTemp12) + (fSlow72 * fRec58[0]))) + (fRec50[0] + fRec59[0])); + double fTemp14 = (0.012698412698412698 * ((fSlow1 * ((fTemp2 + (fSlow20 * fTemp4)) + (fSlow37 * fTemp7))) + ((fTemp8 + (fSlow59 * fTemp10)) + (fSlow69 * fTemp13)))); + fRec0[0] = max((fRec0[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp14)))))); + fVbargraph0 = FAUSTFLOAT(fRec0[0]); + output0[i] = FAUSTFLOAT(fTemp14); + double fTemp15 = (0.012698412698412698 * ((fSlow88 * ((fTemp2 + (fSlow93 * fTemp4)) + (fSlow95 * fTemp7))) + ((fTemp8 + (fSlow96 * fTemp10)) + (fSlow97 * fTemp13)))); + fRec65[0] = max((fRec65[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp15)))))); + fVbargraph1 = FAUSTFLOAT(fRec65[0]); + output1[i] = FAUSTFLOAT(fTemp15); + double fTemp16 = (0.012698412698412698 * ((fSlow99 * ((fTemp2 + (fSlow103 * fTemp4)) + (fSlow105 * fTemp7))) + ((fTemp8 + (fSlow106 * fTemp10)) + (fSlow107 * fTemp13)))); + fRec66[0] = max((fRec66[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp16)))))); + fVbargraph2 = FAUSTFLOAT(fRec66[0]); + output2[i] = FAUSTFLOAT(fTemp16); + double fTemp17 = (0.012698412698412698 * ((fSlow109 * ((fTemp2 + (fSlow113 * fTemp4)) + (fSlow115 * fTemp7))) + ((fTemp8 + (fSlow116 * fTemp10)) + (fSlow117 * fTemp13)))); + fRec67[0] = max((fRec67[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp17)))))); + fVbargraph3 = FAUSTFLOAT(fRec67[0]); + output3[i] = FAUSTFLOAT(fTemp17); + double fTemp18 = (0.012698412698412698 * ((fSlow119 * ((fTemp2 + (fSlow123 * fTemp4)) + (fSlow125 * fTemp7))) + ((fTemp8 + (fSlow126 * fTemp10)) + (fSlow127 * fTemp13)))); + fRec68[0] = max((fRec68[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp18)))))); + fVbargraph4 = FAUSTFLOAT(fRec68[0]); + output4[i] = FAUSTFLOAT(fTemp18); + double fTemp19 = (0.012698412698412698 * ((fSlow128 * ((fTemp2 + (fSlow132 * fTemp4)) + (fSlow134 * fTemp7))) + ((fTemp8 + (fSlow135 * fTemp10)) + (fSlow136 * fTemp13)))); + fRec69[0] = max((fRec69[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp19)))))); + fVbargraph5 = FAUSTFLOAT(fRec69[0]); + output5[i] = FAUSTFLOAT(fTemp19); + double fTemp20 = (0.022574955908289243 * ((fSlow139 * ((fTemp2 + (fSlow143 * fTemp4)) + (fSlow145 * fTemp7))) + ((fTemp8 + (fSlow146 * fTemp10)) + (fSlow147 * fTemp13)))); + fRec70[0] = max((fRec70[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp20)))))); + fVbargraph6 = FAUSTFLOAT(fRec70[0]); + output6[i] = FAUSTFLOAT(fTemp20); + double fTemp21 = (0.022574955908289243 * ((fSlow149 * ((fTemp2 + (fSlow153 * fTemp4)) + (fSlow155 * fTemp7))) + ((fTemp8 + (fSlow156 * fTemp10)) + (fSlow157 * fTemp13)))); + fRec71[0] = max((fRec71[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp21)))))); + fVbargraph7 = FAUSTFLOAT(fRec71[0]); + output7[i] = FAUSTFLOAT(fTemp21); + double fTemp22 = (0.022574955908289243 * ((fSlow159 * ((fTemp2 + (fSlow163 * fTemp4)) + (fSlow165 * fTemp7))) + ((fTemp8 + (fSlow166 * fTemp10)) + (fSlow167 * fTemp13)))); + fRec72[0] = max((fRec72[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp22)))))); + fVbargraph8 = FAUSTFLOAT(fRec72[0]); + output8[i] = FAUSTFLOAT(fTemp22); + double fTemp23 = (0.022574955908289243 * ((fSlow169 * ((fTemp2 + (fSlow173 * fTemp4)) + (fSlow175 * fTemp7))) + ((fTemp8 + (fSlow176 * fTemp10)) + (fSlow177 * fTemp13)))); + fRec73[0] = max((fRec73[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp23)))))); + fVbargraph9 = FAUSTFLOAT(fRec73[0]); + output9[i] = FAUSTFLOAT(fTemp23); + double fTemp24 = (0.022574955908289243 * ((fSlow179 * ((fTemp2 + (fSlow183 * fTemp4)) + (fSlow185 * fTemp7))) + ((fTemp8 + (fSlow186 * fTemp10)) + (fSlow187 * fTemp13)))); + fRec74[0] = max((fRec74[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp24)))))); + fVbargraph10 = FAUSTFLOAT(fRec74[0]); + output10[i] = FAUSTFLOAT(fTemp24); + double fTemp25 = (0.022574955908289243 * ((fSlow189 * ((fTemp2 + (fSlow193 * fTemp4)) + (fSlow195 * fTemp7))) + ((fTemp8 + (fSlow196 * fTemp10)) + (fSlow197 * fTemp13)))); + fRec75[0] = max((fRec75[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp25)))))); + fVbargraph11 = FAUSTFLOAT(fRec75[0]); + output11[i] = FAUSTFLOAT(fTemp25); + double fTemp26 = (0.022574955908289243 * ((fSlow199 * ((fTemp2 + (fSlow203 * fTemp4)) + (fSlow205 * fTemp7))) + ((fTemp8 + (fSlow206 * fTemp10)) + (fSlow207 * fTemp13)))); + fRec76[0] = max((fRec76[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp26)))))); + fVbargraph12 = FAUSTFLOAT(fRec76[0]); + output12[i] = FAUSTFLOAT(fTemp26); + double fTemp27 = (0.022574955908289243 * ((fSlow209 * ((fTemp2 + (fSlow213 * fTemp4)) + (fSlow215 * fTemp7))) + ((fTemp8 + (fSlow216 * fTemp10)) + (fSlow217 * fTemp13)))); + fRec77[0] = max((fRec77[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp27)))))); + fVbargraph13 = FAUSTFLOAT(fRec77[0]); + output13[i] = FAUSTFLOAT(fTemp27); + double fTemp28 = (0.022574955908289243 * ((fSlow218 * ((fTemp2 + (fSlow222 * fTemp4)) + (fSlow224 * fTemp7))) + ((fTemp8 + (fSlow225 * fTemp10)) + (fSlow226 * fTemp13)))); + fRec78[0] = max((fRec78[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp28)))))); + fVbargraph14 = FAUSTFLOAT(fRec78[0]); + output14[i] = FAUSTFLOAT(fTemp28); + double fTemp29 = (0.022574955908289243 * ((fSlow227 * ((fTemp2 + (fSlow231 * fTemp4)) + (fSlow233 * fTemp7))) + ((fTemp8 + (fSlow234 * fTemp10)) + (fSlow235 * fTemp13)))); + fRec79[0] = max((fRec79[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp29)))))); + fVbargraph15 = FAUSTFLOAT(fRec79[0]); + output15[i] = FAUSTFLOAT(fTemp29); + double fTemp30 = (0.022574955908289243 * ((fSlow236 * ((fTemp2 + (fSlow240 * fTemp4)) + (fSlow242 * fTemp7))) + ((fTemp8 + (fSlow243 * fTemp10)) + (fSlow244 * fTemp13)))); + fRec80[0] = max((fRec80[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp30)))))); + fVbargraph16 = FAUSTFLOAT(fRec80[0]); + output16[i] = FAUSTFLOAT(fTemp30); + double fTemp31 = (0.022574955908289243 * ((fSlow245 * ((fTemp2 + (fSlow249 * fTemp4)) + (fSlow251 * fTemp7))) + ((fTemp8 + (fSlow252 * fTemp10)) + (fSlow253 * fTemp13)))); + fRec81[0] = max((fRec81[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp31)))))); + fVbargraph17 = FAUSTFLOAT(fRec81[0]); + output17[i] = FAUSTFLOAT(fTemp31); + double fTemp32 = (0.021093750000000001 * ((fSlow256 * ((fTemp2 + (fSlow260 * fTemp4)) + (fSlow262 * fTemp7))) + ((fTemp8 + (fSlow263 * fTemp10)) + (fSlow264 * fTemp13)))); + fRec82[0] = max((fRec82[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp32)))))); + fVbargraph18 = FAUSTFLOAT(fRec82[0]); + output18[i] = FAUSTFLOAT(fTemp32); + double fTemp33 = (0.021093750000000001 * ((fSlow266 * ((fTemp2 + (fSlow270 * fTemp4)) + (fSlow272 * fTemp7))) + ((fTemp8 + (fSlow273 * fTemp10)) + (fSlow274 * fTemp13)))); + fRec83[0] = max((fRec83[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp33)))))); + fVbargraph19 = FAUSTFLOAT(fRec83[0]); + output19[i] = FAUSTFLOAT(fTemp33); + double fTemp34 = (0.021093750000000001 * ((fSlow276 * ((fTemp2 + (fSlow280 * fTemp4)) + (fSlow282 * fTemp7))) + ((fTemp8 + (fSlow283 * fTemp10)) + (fSlow284 * fTemp13)))); + fRec84[0] = max((fRec84[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp34)))))); + fVbargraph20 = FAUSTFLOAT(fRec84[0]); + output20[i] = FAUSTFLOAT(fTemp34); + double fTemp35 = (0.021093750000000001 * ((fSlow286 * ((fTemp2 + (fSlow290 * fTemp4)) + (fSlow292 * fTemp7))) + ((fTemp8 + (fSlow293 * fTemp10)) + (fSlow294 * fTemp13)))); + fRec85[0] = max((fRec85[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp35)))))); + fVbargraph21 = FAUSTFLOAT(fRec85[0]); + output21[i] = FAUSTFLOAT(fTemp35); + double fTemp36 = (0.021093750000000001 * ((fSlow295 * ((fTemp2 + (fSlow299 * fTemp4)) + (fSlow301 * fTemp7))) + ((fTemp8 + (fSlow302 * fTemp10)) + (fSlow303 * fTemp13)))); + fRec86[0] = max((fRec86[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp36)))))); + fVbargraph22 = FAUSTFLOAT(fRec86[0]); + output22[i] = FAUSTFLOAT(fTemp36); + double fTemp37 = (0.021093750000000001 * ((fSlow304 * ((fTemp2 + (fSlow308 * fTemp4)) + (fSlow310 * fTemp7))) + ((fTemp8 + (fSlow311 * fTemp10)) + (fSlow312 * fTemp13)))); + fRec87[0] = max((fRec87[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp37)))))); + fVbargraph23 = FAUSTFLOAT(fRec87[0]); + output23[i] = FAUSTFLOAT(fTemp37); + double fTemp38 = (0.021093750000000001 * ((fSlow313 * ((fTemp2 + (fSlow317 * fTemp4)) + (fSlow319 * fTemp7))) + ((fTemp8 + (fSlow320 * fTemp10)) + (fSlow321 * fTemp13)))); + fRec88[0] = max((fRec88[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp38)))))); + fVbargraph24 = FAUSTFLOAT(fRec88[0]); + output24[i] = FAUSTFLOAT(fTemp38); + double fTemp39 = (0.021093750000000001 * ((fSlow322 * ((fTemp2 + (fSlow326 * fTemp4)) + (fSlow328 * fTemp7))) + ((fTemp8 + (fSlow329 * fTemp10)) + (fSlow330 * fTemp13)))); + fRec89[0] = max((fRec89[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp39)))))); + fVbargraph25 = FAUSTFLOAT(fRec89[0]); + output25[i] = FAUSTFLOAT(fTemp39); + double fTemp40 = (0.02017333553791887 * ((fSlow333 * ((fTemp2 + (fSlow337 * fTemp4)) + (fSlow339 * fTemp7))) + ((fTemp8 + (fSlow340 * fTemp10)) + (fSlow341 * fTemp13)))); + fRec90[0] = max((fRec90[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp40)))))); + fVbargraph26 = FAUSTFLOAT(fRec90[0]); + output26[i] = FAUSTFLOAT(fTemp40); + double fTemp41 = (0.02017333553791887 * ((fSlow343 * ((fTemp2 + (fSlow347 * fTemp4)) + (fSlow349 * fTemp7))) + ((fTemp8 + (fSlow350 * fTemp10)) + (fSlow351 * fTemp13)))); + fRec91[0] = max((fRec91[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp41)))))); + fVbargraph27 = FAUSTFLOAT(fRec91[0]); + output27[i] = FAUSTFLOAT(fTemp41); + double fTemp42 = (0.02017333553791887 * ((fSlow353 * ((fTemp2 + (fSlow357 * fTemp4)) + (fSlow359 * fTemp7))) + ((fTemp8 + (fSlow360 * fTemp10)) + (fSlow361 * fTemp13)))); + fRec92[0] = max((fRec92[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp42)))))); + fVbargraph28 = FAUSTFLOAT(fRec92[0]); + output28[i] = FAUSTFLOAT(fTemp42); + double fTemp43 = (0.02017333553791887 * ((fSlow363 * ((fTemp2 + (fSlow367 * fTemp4)) + (fSlow369 * fTemp7))) + ((fTemp8 + (fSlow370 * fTemp10)) + (fSlow371 * fTemp13)))); + fRec93[0] = max((fRec93[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp43)))))); + fVbargraph29 = FAUSTFLOAT(fRec93[0]); + output29[i] = FAUSTFLOAT(fTemp43); + double fTemp44 = (0.02017333553791887 * ((fSlow374 * ((fTemp2 + (fSlow378 * fTemp4)) + (fSlow380 * fTemp7))) + ((fTemp8 + (fSlow381 * fTemp10)) + (fSlow382 * fTemp13)))); + fRec94[0] = max((fRec94[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp44)))))); + fVbargraph30 = FAUSTFLOAT(fRec94[0]); + output30[i] = FAUSTFLOAT(fTemp44); + double fTemp45 = (0.02017333553791887 * ((fSlow384 * ((fTemp2 + (fSlow388 * fTemp4)) + (fSlow390 * fTemp7))) + ((fTemp8 + (fSlow391 * fTemp10)) + (fSlow392 * fTemp13)))); + fRec95[0] = max((fRec95[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp45)))))); + fVbargraph31 = FAUSTFLOAT(fRec95[0]); + output31[i] = FAUSTFLOAT(fTemp45); + double fTemp46 = (0.02017333553791887 * ((fSlow394 * ((fTemp2 + (fSlow398 * fTemp4)) + (fSlow400 * fTemp7))) + ((fTemp8 + (fSlow401 * fTemp10)) + (fSlow402 * fTemp13)))); + fRec96[0] = max((fRec96[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp46)))))); + fVbargraph32 = FAUSTFLOAT(fRec96[0]); + output32[i] = FAUSTFLOAT(fTemp46); + double fTemp47 = (0.02017333553791887 * ((fSlow404 * ((fTemp2 + (fSlow408 * fTemp4)) + (fSlow410 * fTemp7))) + ((fTemp8 + (fSlow411 * fTemp10)) + (fSlow412 * fTemp13)))); + fRec97[0] = max((fRec97[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp47)))))); + fVbargraph33 = FAUSTFLOAT(fRec97[0]); + output33[i] = FAUSTFLOAT(fTemp47); + double fTemp48 = (0.02017333553791887 * ((fSlow414 * ((fTemp2 + (fSlow418 * fTemp4)) + (fSlow420 * fTemp7))) + ((fTemp8 + (fSlow421 * fTemp10)) + (fSlow422 * fTemp13)))); + fRec98[0] = max((fRec98[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp48)))))); + fVbargraph34 = FAUSTFLOAT(fRec98[0]); + output34[i] = FAUSTFLOAT(fTemp48); + double fTemp49 = (0.02017333553791887 * ((fSlow424 * ((fTemp2 + (fSlow428 * fTemp4)) + (fSlow430 * fTemp7))) + ((fTemp8 + (fSlow431 * fTemp10)) + (fSlow432 * fTemp13)))); + fRec99[0] = max((fRec99[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp49)))))); + fVbargraph35 = FAUSTFLOAT(fRec99[0]); + output35[i] = FAUSTFLOAT(fTemp49); + double fTemp50 = (0.02017333553791887 * ((fSlow434 * ((fTemp2 + (fSlow438 * fTemp4)) + (fSlow440 * fTemp7))) + ((fTemp8 + (fSlow441 * fTemp10)) + (fSlow442 * fTemp13)))); + fRec100[0] = max((fRec100[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp50)))))); + fVbargraph36 = FAUSTFLOAT(fRec100[0]); + output36[i] = FAUSTFLOAT(fTemp50); + double fTemp51 = (0.02017333553791887 * ((fSlow444 * ((fTemp2 + (fSlow448 * fTemp4)) + (fSlow450 * fTemp7))) + ((fTemp8 + (fSlow451 * fTemp10)) + (fSlow452 * fTemp13)))); + fRec101[0] = max((fRec101[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp51)))))); + fVbargraph37 = FAUSTFLOAT(fRec101[0]); + output37[i] = FAUSTFLOAT(fTemp51); + double fTemp52 = (0.02017333553791887 * ((fSlow453 * ((fTemp2 + (fSlow457 * fTemp4)) + (fSlow459 * fTemp7))) + ((fTemp8 + (fSlow460 * fTemp10)) + (fSlow461 * fTemp13)))); + fRec102[0] = max((fRec102[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp52)))))); + fVbargraph38 = FAUSTFLOAT(fRec102[0]); + output38[i] = FAUSTFLOAT(fTemp52); + double fTemp53 = (0.02017333553791887 * ((fSlow462 * ((fTemp2 + (fSlow466 * fTemp4)) + (fSlow468 * fTemp7))) + ((fTemp8 + (fSlow469 * fTemp10)) + (fSlow470 * fTemp13)))); + fRec103[0] = max((fRec103[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp53)))))); + fVbargraph39 = FAUSTFLOAT(fRec103[0]); + output39[i] = FAUSTFLOAT(fTemp53); + double fTemp54 = (0.02017333553791887 * ((fSlow471 * ((fTemp2 + (fSlow475 * fTemp4)) + (fSlow477 * fTemp7))) + ((fTemp8 + (fSlow478 * fTemp10)) + (fSlow479 * fTemp13)))); + fRec104[0] = max((fRec104[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp54)))))); + fVbargraph40 = FAUSTFLOAT(fRec104[0]); + output40[i] = FAUSTFLOAT(fTemp54); + double fTemp55 = (0.02017333553791887 * ((fSlow480 * ((fTemp2 + (fSlow484 * fTemp4)) + (fSlow486 * fTemp7))) + ((fTemp8 + (fSlow487 * fTemp10)) + (fSlow488 * fTemp13)))); + fRec105[0] = max((fRec105[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp55)))))); + fVbargraph41 = FAUSTFLOAT(fRec105[0]); + output41[i] = FAUSTFLOAT(fTemp55); + double fTemp56 = (0.02017333553791887 * ((fSlow489 * ((fTemp2 + (fSlow493 * fTemp4)) + (fSlow495 * fTemp7))) + ((fTemp8 + (fSlow496 * fTemp10)) + (fSlow497 * fTemp13)))); + fRec106[0] = max((fRec106[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp56)))))); + fVbargraph42 = FAUSTFLOAT(fRec106[0]); + output42[i] = FAUSTFLOAT(fTemp56); + double fTemp57 = (0.02017333553791887 * ((fSlow498 * ((fTemp2 + (fSlow502 * fTemp4)) + (fSlow504 * fTemp7))) + ((fTemp8 + (fSlow505 * fTemp10)) + (fSlow506 * fTemp13)))); + fRec107[0] = max((fRec107[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp57)))))); + fVbargraph43 = FAUSTFLOAT(fRec107[0]); + output43[i] = FAUSTFLOAT(fTemp57); + double fTemp58 = (0.02017333553791887 * ((fSlow507 * ((fTemp2 + (fSlow511 * fTemp4)) + (fSlow513 * fTemp7))) + ((fTemp8 + (fSlow514 * fTemp10)) + (fSlow515 * fTemp13)))); + fRec108[0] = max((fRec108[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp58)))))); + fVbargraph44 = FAUSTFLOAT(fRec108[0]); + output44[i] = FAUSTFLOAT(fTemp58); + double fTemp59 = (0.02017333553791887 * ((fSlow516 * ((fTemp2 + (fSlow520 * fTemp4)) + (fSlow522 * fTemp7))) + ((fTemp8 + (fSlow523 * fTemp10)) + (fSlow524 * fTemp13)))); + fRec109[0] = max((fRec109[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp59)))))); + fVbargraph45 = FAUSTFLOAT(fRec109[0]); + output45[i] = FAUSTFLOAT(fTemp59); + double fTemp60 = (0.02017333553791887 * ((fSlow525 * ((fTemp2 + (fSlow529 * fTemp4)) + (fSlow531 * fTemp7))) + ((fTemp8 + (fSlow532 * fTemp10)) + (fSlow533 * fTemp13)))); + fRec110[0] = max((fRec110[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp60)))))); + fVbargraph46 = FAUSTFLOAT(fRec110[0]); + output46[i] = FAUSTFLOAT(fTemp60); + double fTemp61 = (0.02017333553791887 * ((fSlow534 * ((fTemp2 + (fSlow538 * fTemp4)) + (fSlow540 * fTemp7))) + ((fTemp8 + (fSlow541 * fTemp10)) + (fSlow542 * fTemp13)))); + fRec111[0] = max((fRec111[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp61)))))); + fVbargraph47 = FAUSTFLOAT(fRec111[0]); + output47[i] = FAUSTFLOAT(fTemp61); + double fTemp62 = (0.02017333553791887 * ((fSlow543 * ((fTemp2 + (fSlow547 * fTemp4)) + (fSlow549 * fTemp7))) + ((fTemp8 + (fSlow550 * fTemp10)) + (fSlow551 * fTemp13)))); + fRec112[0] = max((fRec112[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp62)))))); + fVbargraph48 = FAUSTFLOAT(fRec112[0]); + output48[i] = FAUSTFLOAT(fTemp62); + double fTemp63 = (0.02017333553791887 * ((fSlow552 * ((fTemp2 + (fSlow556 * fTemp4)) + (fSlow558 * fTemp7))) + ((fTemp8 + (fSlow559 * fTemp10)) + (fSlow560 * fTemp13)))); + fRec113[0] = max((fRec113[1] - fConst1), min(6.0, (20.0 * log10(max(0.00031622776601683794, fabs(fTemp63)))))); + fVbargraph49 = FAUSTFLOAT(fRec113[0]); + output49[i] = FAUSTFLOAT(fTemp63); + fRec3[1] = fRec3[0]; + fRec4[1] = fRec4[0]; + fRec2[1] = fRec2[0]; + fRec1[1] = fRec1[0]; + fRec6[1] = fRec6[0]; + fRec5[1] = fRec5[0]; + fRec10[1] = fRec10[0]; + fRec11[1] = fRec11[0]; + fRec9[1] = fRec9[0]; + fRec12[1] = fRec12[0]; + fVec0[1] = fVec0[0]; + fRec13[1] = fRec13[0]; + fRec14[1] = fRec14[0]; + fRec8[1] = fRec8[0]; + fRec7[1] = fRec7[0]; + fRec17[1] = fRec17[0]; + fRec18[1] = fRec18[0]; + fRec16[1] = fRec16[0]; + fRec19[1] = fRec19[0]; + fRec15[1] = fRec15[0]; + fRec24[1] = fRec24[0]; + fRec25[1] = fRec25[0]; + fRec23[1] = fRec23[0]; + fRec26[1] = fRec26[0]; + fVec1[1] = fVec1[0]; + fRec27[1] = fRec27[0]; + fRec28[1] = fRec28[0]; + fRec29[1] = fRec29[0]; + fRec22[1] = fRec22[0]; + fRec30[1] = fRec30[0]; + fVec2[1] = fVec2[0]; + fRec31[1] = fRec31[0]; + fRec32[1] = fRec32[0]; + fRec21[1] = fRec21[0]; + fRec20[1] = fRec20[0]; + fRec36[1] = fRec36[0]; + fRec37[1] = fRec37[0]; + fRec35[1] = fRec35[0]; + fRec38[1] = fRec38[0]; + fRec39[1] = fRec39[0]; + fRec34[1] = fRec34[0]; + fRec40[1] = fRec40[0]; + fRec33[1] = fRec33[0]; + fRec43[1] = fRec43[0]; + fRec44[1] = fRec44[0]; + fRec42[1] = fRec42[0]; + fRec41[1] = fRec41[0]; + fVec3[1] = fVec3[0]; + fRec45[1] = fRec45[0]; + fRec47[1] = fRec47[0]; + fRec48[1] = fRec48[0]; + fRec46[1] = fRec46[0]; + fRec52[1] = fRec52[0]; + fRec53[1] = fRec53[0]; + fRec51[1] = fRec51[0]; + fRec54[1] = fRec54[0]; + fVec4[1] = fVec4[0]; + fRec55[1] = fRec55[0]; + fRec56[1] = fRec56[0]; + fRec57[1] = fRec57[0]; + fRec50[1] = fRec50[0]; + fRec49[1] = fRec49[0]; + fVec5[1] = fVec5[0]; + fRec58[1] = fRec58[0]; + fRec61[1] = fRec61[0]; + fRec62[1] = fRec62[0]; + fRec60[1] = fRec60[0]; + fRec63[1] = fRec63[0]; + fRec64[1] = fRec64[0]; + fRec59[1] = fRec59[0]; + fRec0[1] = fRec0[0]; + fRec65[1] = fRec65[0]; + fRec66[1] = fRec66[0]; + fRec67[1] = fRec67[0]; + fRec68[1] = fRec68[0]; + fRec69[1] = fRec69[0]; + fRec70[1] = fRec70[0]; + fRec71[1] = fRec71[0]; + fRec72[1] = fRec72[0]; + fRec73[1] = fRec73[0]; + fRec74[1] = fRec74[0]; + fRec75[1] = fRec75[0]; + fRec76[1] = fRec76[0]; + fRec77[1] = fRec77[0]; + fRec78[1] = fRec78[0]; + fRec79[1] = fRec79[0]; + fRec80[1] = fRec80[0]; + fRec81[1] = fRec81[0]; + fRec82[1] = fRec82[0]; + fRec83[1] = fRec83[0]; + fRec84[1] = fRec84[0]; + fRec85[1] = fRec85[0]; + fRec86[1] = fRec86[0]; + fRec87[1] = fRec87[0]; + fRec88[1] = fRec88[0]; + fRec89[1] = fRec89[0]; + fRec90[1] = fRec90[0]; + fRec91[1] = fRec91[0]; + fRec92[1] = fRec92[0]; + fRec93[1] = fRec93[0]; + fRec94[1] = fRec94[0]; + fRec95[1] = fRec95[0]; + fRec96[1] = fRec96[0]; + fRec97[1] = fRec97[0]; + fRec98[1] = fRec98[0]; + fRec99[1] = fRec99[0]; + fRec100[1] = fRec100[0]; + fRec101[1] = fRec101[0]; + fRec102[1] = fRec102[0]; + fRec103[1] = fRec103[0]; + fRec104[1] = fRec104[0]; + fRec105[1] = fRec105[0]; + fRec106[1] = fRec106[0]; + fRec107[1] = fRec107[0]; + fRec108[1] = fRec108[0]; + fRec109[1] = fRec109[0]; + fRec110[1] = fRec110[0]; + fRec111[1] = fRec111[0]; + fRec112[1] = fRec112[0]; + fRec113[1] = fRec113[0]; + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOARotator1.cpp b/source/HOAUGens/HOARotator1.cpp new file mode 100644 index 0000000000..4f7a2895b4 --- /dev/null +++ b/source/HOAUGens/HOARotator1.cpp @@ -0,0 +1,1154 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOARotator1" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fHslider2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOARotator1"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 4; + + } + virtual int getNumOutputs() { + return 4; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOARotator1"); + ui_interface->declare(&fHslider2, "osc", "/picth 0 360"); + ui_interface->addHorizontalSlider("Pitch", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider1, "osc", "/roll 0 360"); + ui_interface->addHorizontalSlider("Roll", &fHslider1, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider0, "osc", "/yaw 0 360"); + ui_interface->addHorizontalSlider("Yaw", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = double(fHslider1); + double fSlow3 = cos(fSlow2); + double fSlow4 = double(fHslider2); + double fSlow5 = sin(fSlow4); + double fSlow6 = sin(fSlow0); + double fSlow7 = (fSlow5 * fSlow6); + double fSlow8 = sin(fSlow2); + double fSlow9 = ((fSlow1 * fSlow3) - (fSlow7 * fSlow8)); + double fSlow10 = cos(fSlow4); + double fSlow11 = (0.0 - fSlow10); + double fSlow12 = (fSlow11 * fSlow8); + double fSlow13 = (fSlow1 * fSlow5); + double fSlow14 = ((fSlow13 * fSlow8) + (fSlow6 * fSlow3)); + double fSlow15 = ((fSlow1 * fSlow8) + (fSlow7 * fSlow3)); + double fSlow16 = (fSlow10 * fSlow3); + double fSlow17 = ((fSlow13 * (0.0 - fSlow3)) + (fSlow6 * fSlow8)); + double fSlow18 = (fSlow6 * fSlow11); + double fSlow19 = (fSlow1 * fSlow10); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input3[i]); + output1[i] = FAUSTFLOAT((((fSlow9 * fTemp0) + (fSlow12 * fTemp1)) + (fSlow14 * fTemp2))); + output2[i] = FAUSTFLOAT((((fSlow15 * fTemp0) + (fSlow16 * fTemp1)) + (fSlow17 * fTemp2))); + output3[i] = FAUSTFLOAT((((fSlow18 * fTemp0) + (fSlow5 * fTemp1)) + (fSlow19 * fTemp2))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOARotator2.cpp b/source/HOAUGens/HOARotator2.cpp new file mode 100644 index 0000000000..20a40a03bb --- /dev/null +++ b/source/HOAUGens/HOARotator2.cpp @@ -0,0 +1,1261 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOARotator2" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fHslider2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOARotator2"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 9; + + } + virtual int getNumOutputs() { + return 9; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOARotator2"); + ui_interface->declare(&fHslider2, "osc", "/picth 0 360"); + ui_interface->addHorizontalSlider("Pitch", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider1, "osc", "/roll 0 360"); + ui_interface->addHorizontalSlider("Roll", &fHslider1, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider0, "osc", "/yaw 0 360"); + ui_interface->addHorizontalSlider("Yaw", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = double(fHslider1); + double fSlow3 = cos(fSlow2); + double fSlow4 = (fSlow1 * fSlow3); + double fSlow5 = sin(fSlow0); + double fSlow6 = sin(fSlow2); + double fSlow7 = (fSlow5 * fSlow6); + double fSlow8 = double(fHslider2); + double fSlow9 = sin(fSlow8); + double fSlow10 = (fSlow4 - (fSlow7 * fSlow9)); + double fSlow11 = cos(fSlow8); + double fSlow12 = (0.0 - fSlow11); + double fSlow13 = (fSlow6 * fSlow12); + double fSlow14 = (fSlow6 * fSlow9); + double fSlow15 = (fSlow5 * fSlow3); + double fSlow16 = ((fSlow14 * fSlow1) + fSlow15); + double fSlow17 = (fSlow6 * fSlow1); + double fSlow18 = (fSlow5 * fSlow9); + double fSlow19 = (fSlow17 + (fSlow18 * fSlow3)); + double fSlow20 = (fSlow3 * fSlow11); + double fSlow21 = (fSlow9 * fSlow1); + double fSlow22 = ((fSlow21 * (0.0 - fSlow3)) + fSlow7); + double fSlow23 = (fSlow5 * fSlow12); + double fSlow24 = (fSlow1 * fSlow11); + double fSlow25 = ((fSlow24 * fSlow10) + (fSlow23 * fSlow16)); + double fSlow26 = mydsp_faustpower2_f(fSlow12); + double fSlow27 = ((fSlow9 * fSlow10) + (fSlow7 * fSlow26)); + double fSlow28 = (1.7320508075688772 * (fSlow14 * fSlow12)); + double fSlow29 = ((fSlow9 * fSlow16) + ((fSlow17 * fSlow11) * fSlow12)); + double fSlow30 = ((fSlow24 * fSlow16) - (fSlow23 * fSlow10)); + double fSlow31 = ((fSlow19 * fSlow16) + (fSlow22 * fSlow10)); + double fSlow32 = ((fSlow20 * fSlow10) + (1.0000000000000002 * ((fSlow6 * fSlow19) * fSlow12))); + double fSlow33 = (1.7320508075688772 * (((fSlow6 * fSlow3) * fSlow11) * fSlow12)); + double fSlow34 = ((fSlow20 * fSlow16) + (1.0000000000000002 * ((fSlow6 * fSlow22) * fSlow12))); + double fSlow35 = ((fSlow22 * fSlow16) - (fSlow19 * fSlow10)); + double fSlow36 = (((fSlow5 * fSlow1) * fSlow11) * fSlow12); + double fSlow37 = (fSlow16 * fSlow10); + double fSlow38 = ((1.1547005383792515 * (fSlow22 * fSlow19)) - (0.57735026918962573 * (fSlow36 + fSlow37))); + double fSlow39 = (fSlow6 * fSlow10); + double fSlow40 = ((1.1547005383792515 * (fSlow20 * fSlow19)) - (0.57735026918962573 * (fSlow12 * (fSlow18 + fSlow39)))); + double fSlow41 = mydsp_faustpower2_f(fSlow11); + double fSlow42 = mydsp_faustpower2_f(fSlow9); + double fSlow43 = (mydsp_faustpower2_f(fSlow6) * fSlow26); + double fSlow44 = ((mydsp_faustpower2_f(fSlow3) * fSlow41) - (0.5 * (fSlow42 + fSlow43))); + double fSlow45 = (fSlow21 * fSlow11); + double fSlow46 = (fSlow13 * fSlow16); + double fSlow47 = ((1.1547005383792515 * (fSlow20 * fSlow22)) - (0.57735026918962573 * (fSlow45 + fSlow46))); + double fSlow48 = (mydsp_faustpower2_f(fSlow1) * fSlow41); + double fSlow49 = mydsp_faustpower2_f(fSlow16); + double fSlow50 = (mydsp_faustpower2_f(fSlow5) * fSlow26); + double fSlow51 = mydsp_faustpower2_f(fSlow10); + double fSlow52 = ((0.57735026918962573 * (mydsp_faustpower2_f(fSlow22) - mydsp_faustpower2_f(fSlow19))) - (0.28867513459481287 * ((fSlow48 + fSlow49) - (fSlow50 + fSlow51)))); + double fSlow53 = (((fSlow5 * fSlow22) * fSlow12) + (fSlow24 * fSlow19)); + double fSlow54 = (((fSlow15 * fSlow11) * fSlow12) + (1.0000000000000002 * (fSlow9 * fSlow19))); + double fSlow55 = (1.7320508075688772 * ((fSlow9 * fSlow3) * fSlow11)); + double fSlow56 = ((fSlow4 * fSlow41) + (1.0000000000000002 * (fSlow9 * fSlow22))); + double fSlow57 = ((fSlow24 * fSlow22) - ((fSlow5 * fSlow19) * fSlow12)); + double fSlow58 = (fSlow36 - fSlow37); + double fSlow59 = (fSlow12 * (fSlow18 - fSlow39)); + double fSlow60 = (0.8660254037844386 * (fSlow42 - fSlow43)); + double fSlow61 = (fSlow45 - fSlow46); + double fSlow62 = (0.5 * ((fSlow48 + fSlow51) - (fSlow50 + fSlow49))); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input3[i]); + output1[i] = FAUSTFLOAT((((fSlow10 * fTemp0) + (fSlow13 * fTemp1)) + (fSlow16 * fTemp2))); + output2[i] = FAUSTFLOAT((((fSlow19 * fTemp0) + (fSlow20 * fTemp1)) + (fSlow22 * fTemp2))); + output3[i] = FAUSTFLOAT((((fSlow23 * fTemp0) + (fSlow9 * fTemp1)) + (fSlow24 * fTemp2))); + double fTemp3 = double(input4[i]); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input6[i]); + double fTemp6 = double(input7[i]); + double fTemp7 = double(input8[i]); + output4[i] = FAUSTFLOAT((((((fSlow25 * fTemp3) + (fSlow27 * fTemp4)) + (fSlow28 * fTemp5)) + (fSlow29 * fTemp6)) + (fSlow30 * fTemp7))); + output5[i] = FAUSTFLOAT((((((fSlow31 * fTemp3) + (fSlow32 * fTemp4)) + (fSlow33 * fTemp5)) + (fSlow34 * fTemp6)) + (fSlow35 * fTemp7))); + output6[i] = FAUSTFLOAT((((((fSlow38 * fTemp3) + (fSlow40 * fTemp4)) + (fSlow44 * fTemp5)) + (fSlow47 * fTemp6)) + (fSlow52 * fTemp7))); + output7[i] = FAUSTFLOAT((((((fSlow53 * fTemp3) + (fSlow54 * fTemp4)) + (fSlow55 * fTemp5)) + (fSlow56 * fTemp6)) + (fSlow57 * fTemp7))); + output8[i] = FAUSTFLOAT((((((fSlow58 * fTemp3) + (fSlow59 * fTemp4)) + (fSlow60 * fTemp5)) + (fSlow61 * fTemp6)) + (fSlow62 * fTemp7))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOARotator3.cpp b/source/HOAUGens/HOARotator3.cpp new file mode 100644 index 0000000000..80b8c3e211 --- /dev/null +++ b/source/HOAUGens/HOARotator3.cpp @@ -0,0 +1,1447 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOARotator3" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fHslider2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOARotator3"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 16; + + } + virtual int getNumOutputs() { + return 16; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOARotator3"); + ui_interface->declare(&fHslider2, "osc", "/picth 0 360"); + ui_interface->addHorizontalSlider("Pitch", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider1, "osc", "/roll 0 360"); + ui_interface->addHorizontalSlider("Roll", &fHslider1, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider0, "osc", "/yaw 0 360"); + ui_interface->addHorizontalSlider("Yaw", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = double(fHslider1); + double fSlow3 = cos(fSlow2); + double fSlow4 = (fSlow1 * fSlow3); + double fSlow5 = sin(fSlow0); + double fSlow6 = sin(fSlow2); + double fSlow7 = (fSlow5 * fSlow6); + double fSlow8 = double(fHslider2); + double fSlow9 = sin(fSlow8); + double fSlow10 = (fSlow4 - (fSlow7 * fSlow9)); + double fSlow11 = cos(fSlow8); + double fSlow12 = (0.0 - fSlow11); + double fSlow13 = (fSlow6 * fSlow12); + double fSlow14 = (fSlow6 * fSlow9); + double fSlow15 = (fSlow5 * fSlow3); + double fSlow16 = ((fSlow14 * fSlow1) + fSlow15); + double fSlow17 = (fSlow6 * fSlow1); + double fSlow18 = (fSlow5 * fSlow9); + double fSlow19 = (fSlow17 + (fSlow18 * fSlow3)); + double fSlow20 = (fSlow3 * fSlow11); + double fSlow21 = (fSlow9 * fSlow1); + double fSlow22 = ((fSlow21 * (0.0 - fSlow3)) + fSlow7); + double fSlow23 = (fSlow5 * fSlow12); + double fSlow24 = (fSlow1 * fSlow11); + double fSlow25 = ((fSlow24 * fSlow10) + (fSlow23 * fSlow16)); + double fSlow26 = mydsp_faustpower2_f(fSlow12); + double fSlow27 = ((fSlow9 * fSlow10) + (fSlow7 * fSlow26)); + double fSlow28 = (1.7320508075688772 * (fSlow14 * fSlow12)); + double fSlow29 = ((fSlow9 * fSlow16) + ((fSlow17 * fSlow11) * fSlow12)); + double fSlow30 = ((fSlow24 * fSlow16) - (fSlow23 * fSlow10)); + double fSlow31 = ((fSlow19 * fSlow16) + (fSlow22 * fSlow10)); + double fSlow32 = ((fSlow20 * fSlow10) + (1.0000000000000002 * ((fSlow6 * fSlow19) * fSlow12))); + double fSlow33 = (1.7320508075688772 * (((fSlow6 * fSlow3) * fSlow11) * fSlow12)); + double fSlow34 = ((fSlow20 * fSlow16) + (1.0000000000000002 * ((fSlow6 * fSlow22) * fSlow12))); + double fSlow35 = ((fSlow22 * fSlow16) - (fSlow19 * fSlow10)); + double fSlow36 = (((fSlow5 * fSlow1) * fSlow11) * fSlow12); + double fSlow37 = (fSlow16 * fSlow10); + double fSlow38 = ((1.1547005383792515 * (fSlow22 * fSlow19)) - (0.57735026918962573 * (fSlow36 + fSlow37))); + double fSlow39 = (fSlow6 * fSlow10); + double fSlow40 = ((1.1547005383792515 * (fSlow20 * fSlow19)) - (0.57735026918962573 * ((fSlow18 + fSlow39) * fSlow12))); + double fSlow41 = mydsp_faustpower2_f(fSlow11); + double fSlow42 = (mydsp_faustpower2_f(fSlow3) * fSlow41); + double fSlow43 = mydsp_faustpower2_f(fSlow9); + double fSlow44 = (mydsp_faustpower2_f(fSlow6) * fSlow26); + double fSlow45 = (fSlow43 + fSlow44); + double fSlow46 = (fSlow42 - (0.5 * fSlow45)); + double fSlow47 = (fSlow21 * fSlow11); + double fSlow48 = (fSlow13 * fSlow16); + double fSlow49 = ((1.1547005383792515 * (fSlow20 * fSlow22)) - (0.57735026918962573 * (fSlow47 + fSlow48))); + double fSlow50 = (mydsp_faustpower2_f(fSlow1) * fSlow41); + double fSlow51 = mydsp_faustpower2_f(fSlow16); + double fSlow52 = (mydsp_faustpower2_f(fSlow5) * fSlow26); + double fSlow53 = mydsp_faustpower2_f(fSlow10); + double fSlow54 = ((0.57735026918962573 * (mydsp_faustpower2_f(fSlow22) - mydsp_faustpower2_f(fSlow19))) - (0.28867513459481287 * ((fSlow50 + fSlow51) - (fSlow52 + fSlow53)))); + double fSlow55 = (((fSlow5 * fSlow22) * fSlow12) + (fSlow24 * fSlow19)); + double fSlow56 = (((fSlow15 * fSlow11) * fSlow12) + (1.0000000000000002 * (fSlow9 * fSlow19))); + double fSlow57 = (1.7320508075688772 * ((fSlow9 * fSlow3) * fSlow11)); + double fSlow58 = ((fSlow4 * fSlow41) + (1.0000000000000002 * (fSlow9 * fSlow22))); + double fSlow59 = ((fSlow24 * fSlow22) - ((fSlow5 * fSlow19) * fSlow12)); + double fSlow60 = (fSlow36 - fSlow37); + double fSlow61 = (fSlow18 - fSlow39); + double fSlow62 = (fSlow12 * fSlow61); + double fSlow63 = (fSlow43 - fSlow44); + double fSlow64 = (0.8660254037844386 * fSlow63); + double fSlow65 = (fSlow47 - fSlow48); + double fSlow66 = ((fSlow50 + fSlow53) - (fSlow52 + fSlow51)); + double fSlow67 = (0.5 * fSlow66); + double fSlow68 = (0.5 * (fSlow10 * fSlow66)); + double fSlow69 = ((fSlow24 * fSlow25) + (fSlow23 * fSlow30)); + double fSlow70 = (fSlow16 * fSlow60); + double fSlow71 = (fSlow68 + (fSlow69 + fSlow70)); + double fSlow72 = (fSlow24 * fSlow30); + double fSlow73 = (0.5 * (fSlow16 * fSlow66)); + double fSlow74 = (fSlow23 * fSlow25); + double fSlow75 = (fSlow10 * fSlow60); + double fSlow76 = ((fSlow72 + fSlow73) - (fSlow74 + fSlow75)); + double fSlow77 = (fSlow9 * fSlow25); + double fSlow78 = (fSlow13 * fSlow60); + double fSlow79 = (fSlow77 + fSlow78); + double fSlow80 = (fSlow9 * fSlow30); + double fSlow81 = (0.5 * (fSlow13 * fSlow66)); + double fSlow82 = (fSlow80 + fSlow81); + double fSlow83 = (1.7320508075688772 * fSlow43); + double fSlow84 = (0.9128709291752769 * (((fSlow83 + fSlow64) * fSlow6) * fSlow12)); + double fSlow85 = (fSlow9 * fSlow27); + double fSlow86 = ((fSlow6 * fSlow26) * fSlow61); + double fSlow87 = (fSlow85 + fSlow86); + double fSlow88 = (fSlow9 * fSlow29); + double fSlow89 = (fSlow13 * fSlow65); + double fSlow90 = (fSlow88 + fSlow89); + double fSlow91 = (((fSlow22 * fSlow25) + (fSlow19 * fSlow30)) + ((fSlow10 * fSlow59) + (((fSlow24 * fSlow31) + (fSlow23 * fSlow35)) + (fSlow16 * fSlow55)))); + double fSlow92 = (((fSlow22 * fSlow30) - (fSlow19 * fSlow25)) + (((fSlow24 * fSlow35) + (fSlow16 * fSlow59)) - ((fSlow10 * fSlow55) + (fSlow23 * fSlow31)))); + double fSlow93 = ((fSlow13 * fSlow59) + ((fSlow20 * fSlow30) + (fSlow9 * fSlow35))); + double fSlow94 = ((fSlow20 * fSlow27) + ((fSlow9 * fSlow32) + (fSlow13 * fSlow56))); + double fSlow95 = ((fSlow20 * fSlow29) + ((fSlow13 * fSlow58) + (fSlow9 * fSlow34))); + double fSlow96 = ((fSlow13 * fSlow55) + ((fSlow20 * fSlow25) + (fSlow9 * fSlow31))); + double fSlow97 = (3.872983346207417 * (((fSlow14 * fSlow3) * fSlow11) * fSlow12)); + double fSlow98 = (((0.5163977794943222 * ((fSlow22 * fSlow31) + (fSlow19 * fSlow35))) + (0.44721359549995798 * ((fSlow38 * fSlow16) + (fSlow54 * fSlow10)))) - (0.12909944487358055 * (fSlow69 - (fSlow70 + fSlow68)))); + double fSlow99 = (((1.2649110640673518 * (fSlow20 * fSlow31)) + (1.0954451150103324 * ((fSlow38 * fSlow6) * fSlow12))) - (0.31622776601683794 * (fSlow77 - fSlow78))); + double fSlow100 = (((fSlow20 * fSlow32) + (0.8660254037844386 * ((fSlow40 * fSlow6) * fSlow12))) - (0.25 * (fSlow85 - fSlow86))); + double fSlow101 = ((1.6329931618554518 * fSlow42) + (0.81649658092772603 * fSlow46)); + double fSlow102 = (((fSlow101 - (0.23570226039551584 * (fSlow83 - fSlow64))) * fSlow6) * fSlow12); + double fSlow103 = (((fSlow20 * fSlow34) + (0.8660254037844386 * ((fSlow49 * fSlow6) * fSlow12))) - (0.25 * (fSlow88 - fSlow89))); + double fSlow104 = (((1.2649110640673518 * (fSlow20 * fSlow35)) + (1.0954451150103324 * ((fSlow54 * fSlow6) * fSlow12))) - (0.31622776601683794 * (fSlow80 - fSlow81))); + double fSlow105 = (((0.5163977794943222 * ((fSlow22 * fSlow35) - (fSlow19 * fSlow31))) + (0.44721359549995798 * ((fSlow54 * fSlow16) - (fSlow38 * fSlow10)))) - (0.12909944487358055 * ((fSlow72 + fSlow75) - (fSlow74 + fSlow73)))); + double fSlow106 = ((fSlow24 * fSlow55) + (fSlow23 * fSlow59)); + double fSlow107 = (fSlow16 * fSlow31); + double fSlow108 = (fSlow10 * fSlow35); + double fSlow109 = ((0.54772255750516607 * ((fSlow38 * fSlow22) + (fSlow54 * fSlow19))) - (0.31622776601683794 * ((fSlow106 + fSlow107) + fSlow108))); + double fSlow110 = (fSlow9 * fSlow55); + double fSlow111 = (fSlow13 * fSlow31); + double fSlow112 = ((1.3416407864998738 * ((fSlow38 * fSlow3) * fSlow11)) - (0.7745966692414834 * (fSlow110 + fSlow111))); + double fSlow113 = (fSlow9 * fSlow56); + double fSlow114 = (fSlow13 * fSlow32); + double fSlow115 = ((1.0606601717798212 * ((fSlow40 * fSlow3) * fSlow11)) - (0.61237243569579447 * (fSlow113 + fSlow114))); + double fSlow116 = (((fSlow46 - (0.99999999999999989 * fSlow45)) * fSlow3) * fSlow11); + double fSlow117 = (fSlow9 * fSlow58); + double fSlow118 = (fSlow13 * fSlow34); + double fSlow119 = ((1.0606601717798212 * ((fSlow49 * fSlow3) * fSlow11)) - (0.61237243569579447 * (fSlow117 + fSlow118))); + double fSlow120 = (fSlow9 * fSlow59); + double fSlow121 = (fSlow13 * fSlow35); + double fSlow122 = ((1.3416407864998738 * ((fSlow54 * fSlow3) * fSlow11)) - (0.7745966692414834 * (fSlow120 + fSlow121))); + double fSlow123 = (fSlow24 * fSlow59); + double fSlow124 = (fSlow16 * fSlow35); + double fSlow125 = (fSlow23 * fSlow55); + double fSlow126 = (fSlow10 * fSlow31); + double fSlow127 = ((0.54772255750516607 * ((fSlow54 * fSlow22) - (fSlow38 * fSlow19))) - (0.31622776601683794 * ((fSlow123 + fSlow124) - (fSlow125 + fSlow126)))); + double fSlow128 = ((fSlow24 * fSlow60) + (0.5 * (fSlow23 * fSlow66))); + double fSlow129 = (fSlow16 * fSlow25); + double fSlow130 = (fSlow10 * fSlow30); + double fSlow131 = (((0.5163977794943222 * ((fSlow22 * fSlow55) + (fSlow19 * fSlow59))) + (0.44721359549995798 * (((fSlow38 * fSlow1) * fSlow11) + ((fSlow54 * fSlow5) * fSlow12)))) - (0.12909944487358055 * ((fSlow128 + fSlow129) + fSlow130))); + double fSlow132 = (fSlow9 * fSlow60); + double fSlow133 = (fSlow13 * fSlow25); + double fSlow134 = (((1.2649110640673518 * (fSlow20 * fSlow55)) + (1.0954451150103324 * (fSlow38 * fSlow9))) - (0.31622776601683794 * (fSlow132 + fSlow133))); + double fSlow135 = (fSlow9 * fSlow61); + double fSlow136 = (fSlow6 * fSlow27); + double fSlow137 = (((fSlow20 * fSlow56) + (0.8660254037844386 * (fSlow40 * fSlow9))) - (0.25 * ((fSlow135 + fSlow136) * fSlow12))); + double fSlow138 = (1.7320508075688772 * fSlow44); + double fSlow139 = ((fSlow101 - (0.23570226039551584 * (fSlow64 + fSlow138))) * fSlow9); + double fSlow140 = (fSlow9 * fSlow65); + double fSlow141 = (fSlow13 * fSlow29); + double fSlow142 = (((fSlow20 * fSlow58) + (0.8660254037844386 * (fSlow49 * fSlow9))) - (0.25 * (fSlow140 + fSlow141))); + double fSlow143 = (0.5 * (fSlow9 * fSlow66)); + double fSlow144 = (fSlow13 * fSlow30); + double fSlow145 = (((1.2649110640673518 * (fSlow20 * fSlow59)) + (1.0954451150103324 * (fSlow54 * fSlow9))) - (0.31622776601683794 * (fSlow143 + fSlow144))); + double fSlow146 = (0.5 * (fSlow24 * fSlow66)); + double fSlow147 = (fSlow16 * fSlow30); + double fSlow148 = (fSlow23 * fSlow60); + double fSlow149 = (fSlow10 * fSlow25); + double fSlow150 = (((0.5163977794943222 * ((fSlow22 * fSlow59) - (fSlow19 * fSlow55))) + (0.44721359549995798 * (((fSlow54 * fSlow1) * fSlow11) - ((fSlow38 * fSlow5) * fSlow12)))) - (0.12909944487358055 * ((fSlow146 + fSlow147) - (fSlow148 + fSlow149)))); + double fSlow151 = (((fSlow22 * fSlow60) + (0.5 * (fSlow19 * fSlow66))) + (fSlow106 - (fSlow107 + fSlow108))); + double fSlow152 = (((0.5 * (fSlow22 * fSlow66)) - (fSlow19 * fSlow60)) + ((fSlow123 + fSlow126) - (fSlow125 + fSlow124))); + double fSlow153 = (((0.5 * (fSlow20 * fSlow66)) + fSlow120) - fSlow121); + double fSlow154 = (((fSlow20 * fSlow12) * fSlow61) + (fSlow113 - fSlow114)); + double fSlow155 = ((fSlow20 * fSlow65) + (fSlow117 - fSlow118)); + double fSlow156 = (((fSlow20 * fSlow60) + fSlow110) - fSlow111); + double fSlow157 = (1.9364916731037085 * (fSlow20 * fSlow63)); + double fSlow158 = (fSlow128 - (fSlow129 + fSlow130)); + double fSlow159 = ((fSlow146 + fSlow149) - (fSlow148 + fSlow147)); + double fSlow160 = (fSlow132 - fSlow133); + double fSlow161 = (fSlow143 - fSlow144); + double fSlow162 = (0.9128709291752769 * (fSlow9 * (fSlow64 - fSlow138))); + double fSlow163 = (fSlow12 * (fSlow135 - fSlow136)); + double fSlow164 = (fSlow140 - fSlow141); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input3[i]); + output1[i] = FAUSTFLOAT((((fSlow10 * fTemp0) + (fSlow13 * fTemp1)) + (fSlow16 * fTemp2))); + output2[i] = FAUSTFLOAT((((fSlow19 * fTemp0) + (fSlow20 * fTemp1)) + (fSlow22 * fTemp2))); + output3[i] = FAUSTFLOAT((((fSlow23 * fTemp0) + (fSlow9 * fTemp1)) + (fSlow24 * fTemp2))); + double fTemp3 = double(input4[i]); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input6[i]); + double fTemp6 = double(input7[i]); + double fTemp7 = double(input8[i]); + output4[i] = FAUSTFLOAT((((((fSlow25 * fTemp3) + (fSlow27 * fTemp4)) + (fSlow28 * fTemp5)) + (fSlow29 * fTemp6)) + (fSlow30 * fTemp7))); + output5[i] = FAUSTFLOAT((((((fSlow31 * fTemp3) + (fSlow32 * fTemp4)) + (fSlow33 * fTemp5)) + (fSlow34 * fTemp6)) + (fSlow35 * fTemp7))); + output6[i] = FAUSTFLOAT((((((fSlow38 * fTemp3) + (fSlow40 * fTemp4)) + (fSlow46 * fTemp5)) + (fSlow49 * fTemp6)) + (fSlow54 * fTemp7))); + output7[i] = FAUSTFLOAT((((((fSlow55 * fTemp3) + (fSlow56 * fTemp4)) + (fSlow57 * fTemp5)) + (fSlow58 * fTemp6)) + (fSlow59 * fTemp7))); + output8[i] = FAUSTFLOAT((((((fSlow60 * fTemp3) + (fSlow62 * fTemp4)) + (fSlow64 * fTemp5)) + (fSlow65 * fTemp6)) + (fSlow67 * fTemp7))); + double fTemp8 = double(input9[i]); + double fTemp9 = double(input15[i]); + double fTemp10 = double(input10[i]); + double fTemp11 = double(input14[i]); + double fTemp12 = double(input12[i]); + double fTemp13 = double(input11[i]); + double fTemp14 = double(input13[i]); + output9[i] = FAUSTFLOAT(((0.5 * ((fSlow71 * fTemp8) + (fSlow76 * fTemp9))) + ((1.2247448713915889 * ((fSlow79 * fTemp10) + (fSlow82 * fTemp11))) + ((fSlow84 * fTemp12) + (0.96824583655185426 * ((fSlow87 * fTemp13) + (fSlow90 * fTemp14))))))); + output10[i] = FAUSTFLOAT(((0.40824829046386302 * ((fSlow91 * fTemp8) + (fSlow92 * fTemp9))) + ((fSlow93 * fTemp11) + ((0.79056941504209488 * ((fSlow94 * fTemp13) + (fSlow95 * fTemp14))) + ((fSlow96 * fTemp10) + (fSlow97 * fTemp12)))))); + output11[i] = FAUSTFLOAT((((((((fSlow98 * fTemp8) + (fSlow99 * fTemp10)) + (fSlow100 * fTemp13)) + (fSlow102 * fTemp12)) + (fSlow103 * fTemp14)) + (fSlow104 * fTemp11)) + (fSlow105 * fTemp9))); + output12[i] = FAUSTFLOAT((((((((fSlow109 * fTemp8) + (fSlow112 * fTemp10)) + (fSlow115 * fTemp13)) + (fSlow116 * fTemp12)) + (fSlow119 * fTemp14)) + (fSlow122 * fTemp11)) + (fSlow127 * fTemp9))); + output13[i] = FAUSTFLOAT((((((((fSlow131 * fTemp8) + (fSlow134 * fTemp10)) + (fSlow137 * fTemp13)) + (fSlow139 * fTemp12)) + (fSlow142 * fTemp14)) + (fSlow145 * fTemp11)) + (fSlow150 * fTemp9))); + output14[i] = FAUSTFLOAT(((0.40824829046386302 * ((fSlow151 * fTemp8) + (fSlow152 * fTemp9))) + ((fSlow153 * fTemp11) + ((0.79056941504209488 * ((fSlow154 * fTemp13) + (fSlow155 * fTemp14))) + ((fSlow156 * fTemp10) + (fSlow157 * fTemp12)))))); + output15[i] = FAUSTFLOAT(((0.5 * ((fSlow158 * fTemp8) + (fSlow159 * fTemp9))) + ((1.2247448713915889 * ((fSlow160 * fTemp10) + (fSlow161 * fTemp11))) + ((fSlow162 * fTemp12) + (0.96824583655185426 * ((fSlow163 * fTemp13) + (fSlow164 * fTemp14))))))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/HOARotator4.cpp b/source/HOAUGens/HOARotator4.cpp new file mode 100644 index 0000000000..599cf9d916 --- /dev/null +++ b/source/HOAUGens/HOARotator4.cpp @@ -0,0 +1,1738 @@ +/* ------------------------------------------------------------ +author: "Pierre Lecomte" +copyright: "(c) Pierre Lecomte 2016" +license: "GPL" +name: "HOARotator4" +version: "1.0" +Code generated with Faust 2.5.21 (https://faust.grame.fr) +Compilation options: cpp, -double -ftz 0 +------------------------------------------------------------ */ + +#ifndef __mydsp_H__ +#define __mydsp_H__ + +//------------------------------------------------------------------- +// FAUST architecture file for SuperCollider. +// Copyright (C) 2005-2012 Stefan Kersten. +// +// 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 +//------------------------------------------------------------------- + +// The prefix is set to "Faust" in the faust2supercollider script, otherwise set empty +#if !defined(SC_FAUST_PREFIX) +#define SC_FAUST_PREFIX "" +#endif + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __dsp__ +#define __dsp__ + +#include + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +class UI; +struct Meta; + +/** + * DSP memory manager. + */ + +struct dsp_memory_manager { + + virtual ~dsp_memory_manager() {} + + virtual void* allocate(size_t size) = 0; + virtual void destroy(void* ptr) = 0; + +}; + +/** +* Signal processor definition. +*/ + +class dsp { + + public: + + dsp() {} + virtual ~dsp() {} + + /* Return instance number of audio inputs */ + virtual int getNumInputs() = 0; + + /* Return instance number of audio outputs */ + virtual int getNumOutputs() = 0; + + /** + * Trigger the ui_interface parameter with instance specific calls + * to 'addBtton', 'addVerticalSlider'... in order to build the UI. + * + * @param ui_interface - the user interface builder + */ + virtual void buildUserInterface(UI* ui_interface) = 0; + + /* Returns the sample rate currently used by the instance */ + virtual int getSampleRate() = 0; + + /** + * Global init, calls the following methods: + * - static class 'classInit': static tables initialization + * - 'instanceInit': constants and instance state initialization + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void init(int samplingRate) = 0; + + /** + * Init instance state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceInit(int samplingRate) = 0; + + /** + * Init instance constant state + * + * @param samplingRate - the sampling rate in Hertz + */ + virtual void instanceConstants(int samplingRate) = 0; + + /* Init default control parameters values */ + virtual void instanceResetUserInterface() = 0; + + /* Init instance state (delay lines...) */ + virtual void instanceClear() = 0; + + /** + * Return a clone of the instance. + * + * @return a copy of the instance on success, otherwise a null pointer. + */ + virtual dsp* clone() = 0; + + /** + * Trigger the Meta* parameter with instance specific calls to 'declare' (key, value) metadata. + * + * @param m - the Meta* meta user + */ + virtual void metadata(Meta* m) = 0; + + /** + * DSP instance computation, to be called with successive in/out audio buffers. + * + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) = 0; + + /** + * DSP instance computation: alternative method to be used by subclasses. + * + * @param date_usec - the timestamp in microsec given by audio driver. + * @param count - the number of frames to compute + * @param inputs - the input audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * @param outputs - the output audio buffers as an array of non-interleaved FAUSTFLOAT samples (eiher float, double or quad) + * + */ + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { compute(count, inputs, outputs); } + +}; + +/** + * Generic DSP decorator. + */ + +class decorator_dsp : public dsp { + + protected: + + dsp* fDSP; + + public: + + decorator_dsp(dsp* dsp = 0):fDSP(dsp) {} + virtual ~decorator_dsp() { delete fDSP; } + + virtual int getNumInputs() { return fDSP->getNumInputs(); } + virtual int getNumOutputs() { return fDSP->getNumOutputs(); } + virtual void buildUserInterface(UI* ui_interface) { fDSP->buildUserInterface(ui_interface); } + virtual int getSampleRate() { return fDSP->getSampleRate(); } + virtual void init(int samplingRate) { fDSP->init(samplingRate); } + virtual void instanceInit(int samplingRate) { fDSP->instanceInit(samplingRate); } + virtual void instanceConstants(int samplingRate) { fDSP->instanceConstants(samplingRate); } + virtual void instanceResetUserInterface() { fDSP->instanceResetUserInterface(); } + virtual void instanceClear() { fDSP->instanceClear(); } + virtual decorator_dsp* clone() { return new decorator_dsp(fDSP->clone()); } + virtual void metadata(Meta* m) { fDSP->metadata(m); } + // Beware: subclasses usually have to overload the two 'compute' methods + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(count, inputs, outputs); } + virtual void compute(double date_usec, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { fDSP->compute(date_usec, count, inputs, outputs); } + +}; + +/** + * DSP factory class. + */ + +class dsp_factory { + + protected: + + // So that to force sub-classes to use deleteDSPFactory(dsp_factory* factory); + virtual ~dsp_factory() {} + + public: + + virtual std::string getName() = 0; + virtual std::string getSHAKey() = 0; + virtual std::string getDSPCode() = 0; + + virtual dsp* createDSPInstance() = 0; + + virtual void setMemoryManager(dsp_memory_manager* manager) = 0; + virtual dsp_memory_manager* getMemoryManager() = 0; + +}; + +/** + * On Intel set FZ (Flush to Zero) and DAZ (Denormals Are Zero) + * flags to avoid costly denormals. + */ + +#ifdef __SSE__ + #include + #ifdef __SSE2__ + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8040) + #else + #define AVOIDDENORMALS _mm_setcsr(_mm_getcsr() | 0x8000) + #endif +#else + #define AVOIDDENORMALS +#endif + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __UI_H__ +#define __UI_H__ + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +/******************************************************************************* + * UI : Faust DSP User Interface + * User Interface as expected by the buildUserInterface() method of a DSP. + * This abstract class contains only the method that the Faust compiler can + * generate to describe a DSP user interface. + ******************************************************************************/ + +struct Soundfile; + +class UI +{ + + public: + + UI() {} + + virtual ~UI() {} + + // -- widget's layouts + + virtual void openTabBox(const char* label) = 0; + virtual void openHorizontalBox(const char* label) = 0; + virtual void openVerticalBox(const char* label) = 0; + virtual void closeBox() = 0; + + // -- active widgets + + virtual void addButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) = 0; + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) = 0; + + // -- passive widgets + + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) = 0; + + // -- soundfiles + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) = 0; + + // -- metadata declarations + + virtual void declare(FAUSTFLOAT*, const char*, const char*) {} +}; + +#endif +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __misc__ +#define __misc__ + +#include +#include +#include +#include + +/************************************************************************ + FAUST Architecture File + Copyright (C) 2003-2017 GRAME, Centre National de Creation Musicale + --------------------------------------------------------------------- + This Architecture section 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 3 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, see . + + EXCEPTION : As a special exception, you may create a larger work + that contains this FAUST architecture section and distribute + that work under terms of your choice, so long as this FAUST + architecture section is not modified. + ************************************************************************/ + +#ifndef __meta__ +#define __meta__ + +struct Meta +{ + virtual void declare(const char* key, const char* value) = 0; + virtual ~Meta() {}; +}; + +#endif + +using std::max; +using std::min; + +struct XXXX_Meta : std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +struct MY_Meta : Meta, std::map +{ + void declare(const char* key, const char* value) { (*this)[key]=value; } +}; + +inline int lsr(int x, int n) { return int(((unsigned int)x) >> n); } + +inline int int2pow2(int x) { int r = 0; while ((1<= 4 + #define FAUST_EXPORT __attribute__((visibility("default"))) +#else + #define FAUST_EXPORT SC_API_EXPORT +#endif + +#ifdef WIN32 + #define STRDUP _strdup +#else + #define STRDUP strdup +#endif + +//---------------------------------------------------------------------------- +// Vector intrinsics +//---------------------------------------------------------------------------- + + +//---------------------------------------------------------------------------- +// Metadata +//---------------------------------------------------------------------------- + +class MetaData : public Meta + , public std::map +{ +public: + void declare(const char* key, const char* value) + { + (*this)[key] = value; + } +}; + +//---------------------------------------------------------------------------- +// Control counter +//---------------------------------------------------------------------------- + +class ControlCounter : public UI +{ +public: + ControlCounter() + : mNumControlInputs(0), + mNumControlOutputs(0) + {} + + size_t getNumControls() const { return getNumControlInputs(); } + size_t getNumControlInputs() const { return mNumControlInputs; } + size_t getNumControlOutputs() const { return mNumControlOutputs; } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addControlInput(); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addControlInput(); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) + { addControlOutput(); } + + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +protected: + void addControlInput() { mNumControlInputs++; } + void addControlOutput() { mNumControlOutputs++; } + +private: + size_t mNumControlInputs; + size_t mNumControlOutputs; +}; + +//---------------------------------------------------------------------------- +// UI control +//---------------------------------------------------------------------------- + +struct Control +{ + typedef void (*UpdateFunction)(Control* self, FAUSTFLOAT value); + + UpdateFunction updateFunction; + FAUSTFLOAT* zone; + FAUSTFLOAT min, max; + + inline void update(FAUSTFLOAT value) + { + (*updateFunction)(this, value); + } + + static void simpleUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = value; + } + static void boundedUpdate(Control* self, FAUSTFLOAT value) + { + *self->zone = sc_clip(value, self->min, self->max); + } +}; + +//---------------------------------------------------------------------------- +// Control allocator +//---------------------------------------------------------------------------- + +class ControlAllocator : public UI +{ +public: + ControlAllocator(Control* controls) + : mControls(controls) + { } + + // Layout widgets + virtual void openTabBox(const char* label) { } + virtual void openHorizontalBox(const char* label) { } + virtual void openVerticalBox(const char* label) { } + virtual void closeBox() { } + + // Active widgets + virtual void addButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addCheckButton(const char* label, FAUSTFLOAT* zone) + { addSimpleControl(zone); } + virtual void addVerticalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addHorizontalSlider(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + virtual void addNumEntry(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { addBoundedControl(zone, min, max, step); } + + // Passive widgets + virtual void addHorizontalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addVerticalBargraph(const char* label, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max) {} + virtual void addSoundfile(const char* label, const char* filename, Soundfile** sf_zone) {} + +private: + void addControl(Control::UpdateFunction updateFunction, FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT /* step */) + { + Control* ctrl = mControls++; + ctrl->updateFunction = updateFunction; + ctrl->zone = zone; + ctrl->min = min; + ctrl->max = max; + } + void addSimpleControl(FAUSTFLOAT* zone) + { + addControl(Control::simpleUpdate, zone, 0.f, 0.f, 0.f); + } + void addBoundedControl(FAUSTFLOAT* zone, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step) + { + addControl(Control::boundedUpdate, zone, min, max, step); + } + +private: + Control* mControls; +}; + +//---------------------------------------------------------------------------- +// FAUST generated code +//---------------------------------------------------------------------------- + +#ifndef FAUSTFLOAT +#define FAUSTFLOAT float +#endif + +#include + +double mydsp_faustpower2_f(double value) { + return (value * value); + +} + +#ifndef FAUSTCLASS +#define FAUSTCLASS mydsp +#endif +#ifdef __APPLE__ +#define exp10f __exp10f +#define exp10 __exp10 +#endif + +class mydsp : public dsp { + + private: + + FAUSTFLOAT fHslider0; + FAUSTFLOAT fHslider1; + FAUSTFLOAT fHslider2; + int fSamplingFreq; + + public: + + void metadata(Meta* m) { + m->declare("author", "Pierre Lecomte"); + m->declare("copyright", "(c) Pierre Lecomte 2016"); + m->declare("license", "GPL"); + m->declare("maths.lib/author", "GRAME"); + m->declare("maths.lib/copyright", "GRAME"); + m->declare("maths.lib/license", "LGPL with exception"); + m->declare("maths.lib/name", "Faust Math Library"); + m->declare("maths.lib/version", "2.1"); + m->declare("name", "HOARotator4"); + m->declare("version", "1.0"); + m->declare("ymn.lib/author", "Pierre Lecomte"); + m->declare("ymn.lib/copyright", "(c) Pierre Lecomte 2017"); + m->declare("ymn.lib/license", "GPL"); + m->declare("ymn.lib/name", "Spherical Harmonics library"); + m->declare("ymn.lib/version", "2.0"); + } + + virtual int getNumInputs() { + return 25; + + } + virtual int getNumOutputs() { + return 25; + + } + virtual int getInputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + virtual int getOutputRate(int channel) { + int rate; + switch (channel) { + case 0: { + rate = 1; + break; + } + case 1: { + rate = 1; + break; + } + case 2: { + rate = 1; + break; + } + case 3: { + rate = 1; + break; + } + case 4: { + rate = 1; + break; + } + case 5: { + rate = 1; + break; + } + case 6: { + rate = 1; + break; + } + case 7: { + rate = 1; + break; + } + case 8: { + rate = 1; + break; + } + case 9: { + rate = 1; + break; + } + case 10: { + rate = 1; + break; + } + case 11: { + rate = 1; + break; + } + case 12: { + rate = 1; + break; + } + case 13: { + rate = 1; + break; + } + case 14: { + rate = 1; + break; + } + case 15: { + rate = 1; + break; + } + case 16: { + rate = 1; + break; + } + case 17: { + rate = 1; + break; + } + case 18: { + rate = 1; + break; + } + case 19: { + rate = 1; + break; + } + case 20: { + rate = 1; + break; + } + case 21: { + rate = 1; + break; + } + case 22: { + rate = 1; + break; + } + case 23: { + rate = 1; + break; + } + case 24: { + rate = 1; + break; + } + default: { + rate = -1; + break; + } + + } + return rate; + + } + + static void classInit(int samplingFreq) { + + } + + virtual void instanceConstants(int samplingFreq) { + fSamplingFreq = samplingFreq; + + } + + virtual void instanceResetUserInterface() { + fHslider0 = FAUSTFLOAT(0.0); + fHslider1 = FAUSTFLOAT(0.0); + fHslider2 = FAUSTFLOAT(0.0); + + } + + virtual void instanceClear() { + + } + + virtual void init(int samplingFreq) { + classInit(samplingFreq); + instanceInit(samplingFreq); + } + virtual void instanceInit(int samplingFreq) { + instanceConstants(samplingFreq); + instanceResetUserInterface(); + instanceClear(); + } + + virtual mydsp* clone() { + return new mydsp(); + } + virtual int getSampleRate() { + return fSamplingFreq; + + } + + virtual void buildUserInterface(UI* ui_interface) { + ui_interface->openVerticalBox("HOARotator4"); + ui_interface->declare(&fHslider2, "osc", "/picth 0 360"); + ui_interface->addHorizontalSlider("Pitch", &fHslider2, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider1, "osc", "/roll 0 360"); + ui_interface->addHorizontalSlider("Roll", &fHslider1, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->declare(&fHslider0, "osc", "/yaw 0 360"); + ui_interface->addHorizontalSlider("Yaw", &fHslider0, 0.0, -3.1415926535897931, 3.1415926535897931, 0.01); + ui_interface->closeBox(); + + } + + virtual void compute(int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) { + FAUSTFLOAT* input0 = inputs[0]; + FAUSTFLOAT* input1 = inputs[1]; + FAUSTFLOAT* input2 = inputs[2]; + FAUSTFLOAT* input3 = inputs[3]; + FAUSTFLOAT* input4 = inputs[4]; + FAUSTFLOAT* input5 = inputs[5]; + FAUSTFLOAT* input6 = inputs[6]; + FAUSTFLOAT* input7 = inputs[7]; + FAUSTFLOAT* input8 = inputs[8]; + FAUSTFLOAT* input9 = inputs[9]; + FAUSTFLOAT* input10 = inputs[10]; + FAUSTFLOAT* input11 = inputs[11]; + FAUSTFLOAT* input12 = inputs[12]; + FAUSTFLOAT* input13 = inputs[13]; + FAUSTFLOAT* input14 = inputs[14]; + FAUSTFLOAT* input15 = inputs[15]; + FAUSTFLOAT* input16 = inputs[16]; + FAUSTFLOAT* input17 = inputs[17]; + FAUSTFLOAT* input18 = inputs[18]; + FAUSTFLOAT* input19 = inputs[19]; + FAUSTFLOAT* input20 = inputs[20]; + FAUSTFLOAT* input21 = inputs[21]; + FAUSTFLOAT* input22 = inputs[22]; + FAUSTFLOAT* input23 = inputs[23]; + FAUSTFLOAT* input24 = inputs[24]; + FAUSTFLOAT* output0 = outputs[0]; + FAUSTFLOAT* output1 = outputs[1]; + FAUSTFLOAT* output2 = outputs[2]; + FAUSTFLOAT* output3 = outputs[3]; + FAUSTFLOAT* output4 = outputs[4]; + FAUSTFLOAT* output5 = outputs[5]; + FAUSTFLOAT* output6 = outputs[6]; + FAUSTFLOAT* output7 = outputs[7]; + FAUSTFLOAT* output8 = outputs[8]; + FAUSTFLOAT* output9 = outputs[9]; + FAUSTFLOAT* output10 = outputs[10]; + FAUSTFLOAT* output11 = outputs[11]; + FAUSTFLOAT* output12 = outputs[12]; + FAUSTFLOAT* output13 = outputs[13]; + FAUSTFLOAT* output14 = outputs[14]; + FAUSTFLOAT* output15 = outputs[15]; + FAUSTFLOAT* output16 = outputs[16]; + FAUSTFLOAT* output17 = outputs[17]; + FAUSTFLOAT* output18 = outputs[18]; + FAUSTFLOAT* output19 = outputs[19]; + FAUSTFLOAT* output20 = outputs[20]; + FAUSTFLOAT* output21 = outputs[21]; + FAUSTFLOAT* output22 = outputs[22]; + FAUSTFLOAT* output23 = outputs[23]; + FAUSTFLOAT* output24 = outputs[24]; + double fSlow0 = double(fHslider0); + double fSlow1 = cos(fSlow0); + double fSlow2 = double(fHslider1); + double fSlow3 = cos(fSlow2); + double fSlow4 = (fSlow1 * fSlow3); + double fSlow5 = sin(fSlow0); + double fSlow6 = sin(fSlow2); + double fSlow7 = (fSlow5 * fSlow6); + double fSlow8 = double(fHslider2); + double fSlow9 = sin(fSlow8); + double fSlow10 = (fSlow4 - (fSlow7 * fSlow9)); + double fSlow11 = cos(fSlow8); + double fSlow12 = (0.0 - fSlow11); + double fSlow13 = (fSlow6 * fSlow12); + double fSlow14 = (fSlow6 * fSlow9); + double fSlow15 = (fSlow5 * fSlow3); + double fSlow16 = ((fSlow14 * fSlow1) + fSlow15); + double fSlow17 = (fSlow6 * fSlow1); + double fSlow18 = (fSlow5 * fSlow9); + double fSlow19 = (fSlow17 + (fSlow18 * fSlow3)); + double fSlow20 = (fSlow3 * fSlow11); + double fSlow21 = (fSlow9 * fSlow1); + double fSlow22 = ((fSlow21 * (0.0 - fSlow3)) + fSlow7); + double fSlow23 = (fSlow5 * fSlow12); + double fSlow24 = (fSlow1 * fSlow11); + double fSlow25 = ((fSlow24 * fSlow10) + (fSlow23 * fSlow16)); + double fSlow26 = mydsp_faustpower2_f(fSlow12); + double fSlow27 = ((fSlow9 * fSlow10) + (fSlow7 * fSlow26)); + double fSlow28 = (1.7320508075688772 * (fSlow14 * fSlow12)); + double fSlow29 = ((fSlow9 * fSlow16) + ((fSlow17 * fSlow11) * fSlow12)); + double fSlow30 = ((fSlow24 * fSlow16) - (fSlow23 * fSlow10)); + double fSlow31 = ((fSlow19 * fSlow16) + (fSlow22 * fSlow10)); + double fSlow32 = ((fSlow20 * fSlow10) + (1.0000000000000002 * ((fSlow6 * fSlow19) * fSlow12))); + double fSlow33 = (1.7320508075688772 * (((fSlow6 * fSlow3) * fSlow11) * fSlow12)); + double fSlow34 = ((fSlow20 * fSlow16) + (1.0000000000000002 * ((fSlow6 * fSlow22) * fSlow12))); + double fSlow35 = ((fSlow22 * fSlow16) - (fSlow19 * fSlow10)); + double fSlow36 = (((fSlow5 * fSlow1) * fSlow11) * fSlow12); + double fSlow37 = (fSlow16 * fSlow10); + double fSlow38 = ((1.1547005383792515 * (fSlow22 * fSlow19)) - (0.57735026918962573 * (fSlow36 + fSlow37))); + double fSlow39 = (fSlow6 * fSlow10); + double fSlow40 = ((1.1547005383792515 * (fSlow20 * fSlow19)) - (0.57735026918962573 * ((fSlow18 + fSlow39) * fSlow12))); + double fSlow41 = mydsp_faustpower2_f(fSlow3); + double fSlow42 = mydsp_faustpower2_f(fSlow11); + double fSlow43 = (fSlow41 * fSlow42); + double fSlow44 = mydsp_faustpower2_f(fSlow9); + double fSlow45 = mydsp_faustpower2_f(fSlow6); + double fSlow46 = (fSlow45 * fSlow26); + double fSlow47 = (fSlow44 + fSlow46); + double fSlow48 = (fSlow43 - (0.5 * fSlow47)); + double fSlow49 = (fSlow21 * fSlow11); + double fSlow50 = (fSlow13 * fSlow16); + double fSlow51 = ((1.1547005383792515 * (fSlow20 * fSlow22)) - (0.57735026918962573 * (fSlow49 + fSlow50))); + double fSlow52 = (mydsp_faustpower2_f(fSlow1) * fSlow42); + double fSlow53 = mydsp_faustpower2_f(fSlow16); + double fSlow54 = (mydsp_faustpower2_f(fSlow5) * fSlow26); + double fSlow55 = mydsp_faustpower2_f(fSlow10); + double fSlow56 = ((0.57735026918962573 * (mydsp_faustpower2_f(fSlow22) - mydsp_faustpower2_f(fSlow19))) - (0.28867513459481287 * ((fSlow52 + fSlow53) - (fSlow54 + fSlow55)))); + double fSlow57 = (((fSlow5 * fSlow22) * fSlow12) + (fSlow24 * fSlow19)); + double fSlow58 = (((fSlow15 * fSlow11) * fSlow12) + (1.0000000000000002 * (fSlow9 * fSlow19))); + double fSlow59 = (1.7320508075688772 * ((fSlow9 * fSlow3) * fSlow11)); + double fSlow60 = ((fSlow4 * fSlow42) + (1.0000000000000002 * (fSlow9 * fSlow22))); + double fSlow61 = ((fSlow24 * fSlow22) - ((fSlow5 * fSlow19) * fSlow12)); + double fSlow62 = (fSlow36 - fSlow37); + double fSlow63 = (fSlow18 - fSlow39); + double fSlow64 = (fSlow12 * fSlow63); + double fSlow65 = (fSlow44 - fSlow46); + double fSlow66 = (0.8660254037844386 * fSlow65); + double fSlow67 = (fSlow49 - fSlow50); + double fSlow68 = ((fSlow52 + fSlow55) - (fSlow54 + fSlow53)); + double fSlow69 = (0.5 * fSlow68); + double fSlow70 = (0.5 * (fSlow10 * fSlow68)); + double fSlow71 = ((fSlow24 * fSlow25) + (fSlow23 * fSlow30)); + double fSlow72 = (fSlow16 * fSlow62); + double fSlow73 = (fSlow70 + (fSlow71 + fSlow72)); + double fSlow74 = (fSlow24 * fSlow30); + double fSlow75 = (0.5 * (fSlow16 * fSlow68)); + double fSlow76 = (fSlow23 * fSlow25); + double fSlow77 = (fSlow10 * fSlow62); + double fSlow78 = ((fSlow74 + fSlow75) - (fSlow76 + fSlow77)); + double fSlow79 = (fSlow9 * fSlow25); + double fSlow80 = (fSlow13 * fSlow62); + double fSlow81 = (fSlow79 + fSlow80); + double fSlow82 = (fSlow9 * fSlow30); + double fSlow83 = (0.5 * (fSlow13 * fSlow68)); + double fSlow84 = (fSlow82 + fSlow83); + double fSlow85 = (1.7320508075688772 * fSlow44); + double fSlow86 = (fSlow66 + fSlow85); + double fSlow87 = (0.9128709291752769 * (fSlow13 * fSlow86)); + double fSlow88 = (fSlow9 * fSlow27); + double fSlow89 = (fSlow6 * fSlow26); + double fSlow90 = (fSlow89 * fSlow63); + double fSlow91 = (fSlow88 + fSlow90); + double fSlow92 = (fSlow9 * fSlow29); + double fSlow93 = (fSlow13 * fSlow67); + double fSlow94 = (fSlow92 + fSlow93); + double fSlow95 = (((fSlow22 * fSlow25) + (fSlow19 * fSlow30)) + ((fSlow61 * fSlow10) + ((((fSlow31 * fSlow1) * fSlow11) + ((fSlow35 * fSlow5) * fSlow12)) + (fSlow57 * fSlow16)))); + double fSlow96 = (((fSlow22 * fSlow30) - (fSlow19 * fSlow25)) + ((((fSlow35 * fSlow1) * fSlow11) + (fSlow61 * fSlow16)) - (((fSlow31 * fSlow5) * fSlow12) + (fSlow57 * fSlow10)))); + double fSlow97 = (((fSlow61 * fSlow6) * fSlow12) + ((fSlow20 * fSlow30) + (fSlow35 * fSlow9))); + double fSlow98 = ((fSlow20 * fSlow27) + ((fSlow32 * fSlow9) + ((fSlow58 * fSlow6) * fSlow12))); + double fSlow99 = ((fSlow20 * fSlow29) + ((fSlow34 * fSlow9) + ((fSlow60 * fSlow6) * fSlow12))); + double fSlow100 = (((fSlow57 * fSlow6) * fSlow12) + ((fSlow20 * fSlow25) + (fSlow31 * fSlow9))); + double fSlow101 = (3.872983346207417 * (((fSlow14 * fSlow3) * fSlow11) * fSlow12)); + double fSlow102 = (((0.5163977794943222 * ((fSlow31 * fSlow22) + (fSlow35 * fSlow19))) + (0.44721359549995798 * ((fSlow38 * fSlow16) + (fSlow56 * fSlow10)))) - (0.12909944487358055 * (fSlow71 - (fSlow72 + fSlow70)))); + double fSlow103 = (((1.2649110640673518 * ((fSlow31 * fSlow3) * fSlow11)) + (1.0954451150103324 * ((fSlow38 * fSlow6) * fSlow12))) - (0.31622776601683794 * (fSlow79 - fSlow80))); + double fSlow104 = ((((fSlow32 * fSlow3) * fSlow11) + (0.8660254037844386 * ((fSlow40 * fSlow6) * fSlow12))) - (0.25 * (fSlow88 - fSlow90))); + double fSlow105 = ((1.6329931618554518 * fSlow43) + (0.81649658092772603 * fSlow48)); + double fSlow106 = (fSlow105 - (0.23570226039551584 * (fSlow85 - fSlow66))); + double fSlow107 = ((fSlow106 * fSlow6) * fSlow12); + double fSlow108 = ((((fSlow34 * fSlow3) * fSlow11) + (0.8660254037844386 * ((fSlow51 * fSlow6) * fSlow12))) - (0.25 * (fSlow92 - fSlow93))); + double fSlow109 = (((1.2649110640673518 * ((fSlow35 * fSlow3) * fSlow11)) + (1.0954451150103324 * ((fSlow56 * fSlow6) * fSlow12))) - (0.31622776601683794 * (fSlow82 - fSlow83))); + double fSlow110 = (((0.5163977794943222 * ((fSlow35 * fSlow22) - (fSlow31 * fSlow19))) + (0.44721359549995798 * ((fSlow56 * fSlow16) - (fSlow38 * fSlow10)))) - (0.12909944487358055 * ((fSlow74 + fSlow77) - (fSlow76 + fSlow75)))); + double fSlow111 = (((fSlow57 * fSlow1) * fSlow11) + ((fSlow61 * fSlow5) * fSlow12)); + double fSlow112 = (fSlow31 * fSlow16); + double fSlow113 = (fSlow35 * fSlow10); + double fSlow114 = ((0.54772255750516607 * ((fSlow38 * fSlow22) + (fSlow56 * fSlow19))) - (0.31622776601683794 * ((fSlow111 + fSlow112) + fSlow113))); + double fSlow115 = (fSlow57 * fSlow9); + double fSlow116 = ((fSlow31 * fSlow6) * fSlow12); + double fSlow117 = ((1.3416407864998738 * ((fSlow38 * fSlow3) * fSlow11)) - (0.7745966692414834 * (fSlow115 + fSlow116))); + double fSlow118 = (fSlow58 * fSlow9); + double fSlow119 = ((fSlow32 * fSlow6) * fSlow12); + double fSlow120 = ((1.0606601717798212 * ((fSlow40 * fSlow3) * fSlow11)) - (0.61237243569579447 * (fSlow118 + fSlow119))); + double fSlow121 = (fSlow48 - (0.99999999999999989 * fSlow47)); + double fSlow122 = ((fSlow121 * fSlow3) * fSlow11); + double fSlow123 = (fSlow60 * fSlow9); + double fSlow124 = ((fSlow34 * fSlow6) * fSlow12); + double fSlow125 = ((1.0606601717798212 * ((fSlow51 * fSlow3) * fSlow11)) - (0.61237243569579447 * (fSlow123 + fSlow124))); + double fSlow126 = (fSlow61 * fSlow9); + double fSlow127 = ((fSlow35 * fSlow6) * fSlow12); + double fSlow128 = ((1.3416407864998738 * ((fSlow56 * fSlow3) * fSlow11)) - (0.7745966692414834 * (fSlow126 + fSlow127))); + double fSlow129 = ((fSlow61 * fSlow1) * fSlow11); + double fSlow130 = (fSlow35 * fSlow16); + double fSlow131 = ((fSlow57 * fSlow5) * fSlow12); + double fSlow132 = (fSlow31 * fSlow10); + double fSlow133 = ((0.54772255750516607 * ((fSlow56 * fSlow22) - (fSlow38 * fSlow19))) - (0.31622776601683794 * ((fSlow129 + fSlow130) - (fSlow131 + fSlow132)))); + double fSlow134 = (fSlow24 * fSlow62); + double fSlow135 = (fSlow10 * fSlow30); + double fSlow136 = (0.5 * (fSlow23 * fSlow68)); + double fSlow137 = (fSlow16 * fSlow25); + double fSlow138 = (((0.5163977794943222 * ((fSlow57 * fSlow22) + (fSlow61 * fSlow19))) + (0.44721359549995798 * (((fSlow38 * fSlow1) * fSlow11) + ((fSlow56 * fSlow5) * fSlow12)))) - (0.12909944487358055 * (((fSlow134 + fSlow135) + fSlow136) + fSlow137))); + double fSlow139 = (fSlow9 * fSlow62); + double fSlow140 = (fSlow13 * fSlow25); + double fSlow141 = (((1.2649110640673518 * ((fSlow57 * fSlow3) * fSlow11)) + (1.0954451150103324 * (fSlow38 * fSlow9))) - (0.31622776601683794 * (fSlow139 + fSlow140))); + double fSlow142 = (fSlow9 * fSlow63); + double fSlow143 = (fSlow6 * fSlow27); + double fSlow144 = ((((fSlow58 * fSlow3) * fSlow11) + (0.8660254037844386 * (fSlow40 * fSlow9))) - (0.25 * ((fSlow142 + fSlow143) * fSlow12))); + double fSlow145 = (1.7320508075688772 * fSlow46); + double fSlow146 = (fSlow105 - (0.23570226039551584 * (fSlow66 + fSlow145))); + double fSlow147 = (fSlow146 * fSlow9); + double fSlow148 = (fSlow9 * fSlow67); + double fSlow149 = (fSlow13 * fSlow29); + double fSlow150 = ((((fSlow60 * fSlow3) * fSlow11) + (0.8660254037844386 * (fSlow51 * fSlow9))) - (0.25 * (fSlow148 + fSlow149))); + double fSlow151 = (0.5 * (fSlow9 * fSlow68)); + double fSlow152 = (fSlow13 * fSlow30); + double fSlow153 = (((1.2649110640673518 * ((fSlow61 * fSlow3) * fSlow11)) + (1.0954451150103324 * (fSlow56 * fSlow9))) - (0.31622776601683794 * (fSlow151 + fSlow152))); + double fSlow154 = (0.5 * (fSlow24 * fSlow68)); + double fSlow155 = (fSlow16 * fSlow30); + double fSlow156 = (fSlow23 * fSlow62); + double fSlow157 = (fSlow10 * fSlow25); + double fSlow158 = (((0.5163977794943222 * ((fSlow61 * fSlow22) - (fSlow57 * fSlow19))) + (0.44721359549995798 * (((fSlow56 * fSlow1) * fSlow11) - ((fSlow38 * fSlow5) * fSlow12)))) - (0.12909944487358055 * ((fSlow154 + fSlow155) - (fSlow156 + fSlow157)))); + double fSlow159 = (((fSlow22 * fSlow62) + (0.5 * (fSlow19 * fSlow68))) + (fSlow111 - (fSlow112 + fSlow113))); + double fSlow160 = (((0.5 * (fSlow22 * fSlow68)) - (fSlow19 * fSlow62)) + ((fSlow129 + fSlow132) - (fSlow131 + fSlow130))); + double fSlow161 = (((0.5 * (fSlow20 * fSlow68)) + fSlow126) - fSlow127); + double fSlow162 = (fSlow20 * fSlow12); + double fSlow163 = ((fSlow162 * fSlow63) + (fSlow118 - fSlow119)); + double fSlow164 = ((fSlow20 * fSlow67) + (fSlow123 - fSlow124)); + double fSlow165 = (((fSlow20 * fSlow62) + fSlow115) - fSlow116); + double fSlow166 = (1.9364916731037085 * (fSlow20 * fSlow65)); + double fSlow167 = ((fSlow134 + fSlow136) - (fSlow135 + fSlow137)); + double fSlow168 = ((fSlow154 + fSlow157) - (fSlow156 + fSlow155)); + double fSlow169 = (fSlow139 - fSlow140); + double fSlow170 = (fSlow151 - fSlow152); + double fSlow171 = (fSlow66 - fSlow145); + double fSlow172 = (0.9128709291752769 * (fSlow9 * fSlow171)); + double fSlow173 = (fSlow142 - fSlow143); + double fSlow174 = (fSlow12 * fSlow173); + double fSlow175 = (fSlow148 - fSlow149); + double fSlow176 = ((fSlow24 * fSlow73) + (fSlow23 * fSlow78)); + double fSlow177 = ((fSlow16 * fSlow167) + (fSlow10 * fSlow168)); + double fSlow178 = (fSlow176 + fSlow177); + double fSlow179 = ((fSlow24 * fSlow78) - (fSlow23 * fSlow73)); + double fSlow180 = ((fSlow16 * fSlow168) - (fSlow10 * fSlow167)); + double fSlow181 = (fSlow179 + fSlow180); + double fSlow182 = (fSlow9 * fSlow73); + double fSlow183 = (fSlow13 * fSlow167); + double fSlow184 = (fSlow182 + fSlow183); + double fSlow185 = (fSlow9 * fSlow78); + double fSlow186 = (fSlow13 * fSlow168); + double fSlow187 = (fSlow185 + fSlow186); + double fSlow188 = (fSlow9 * fSlow81); + double fSlow189 = (fSlow13 * fSlow169); + double fSlow190 = (fSlow188 + fSlow189); + double fSlow191 = (fSlow9 * fSlow84); + double fSlow192 = (fSlow13 * fSlow170); + double fSlow193 = (fSlow191 + fSlow192); + double fSlow194 = (0.85391256382996661 * ((((fSlow171 + fSlow86) * fSlow6) * fSlow9) * fSlow12)); + double fSlow195 = (fSlow89 * fSlow173); + double fSlow196 = (fSlow9 * fSlow91); + double fSlow197 = (fSlow195 + fSlow196); + double fSlow198 = (fSlow9 * fSlow94); + double fSlow199 = (fSlow13 * fSlow175); + double fSlow200 = (fSlow198 + fSlow199); + double fSlow201 = (fSlow100 * fSlow9); + double fSlow202 = ((fSlow165 * fSlow6) * fSlow12); + double fSlow203 = ((fSlow20 * fSlow81) + (fSlow201 + fSlow202)); + double fSlow204 = (fSlow97 * fSlow9); + double fSlow205 = ((fSlow161 * fSlow6) * fSlow12); + double fSlow206 = ((fSlow20 * fSlow84) + (fSlow204 + fSlow205)); + double fSlow207 = (fSlow99 * fSlow9); + double fSlow208 = ((fSlow164 * fSlow6) * fSlow12); + double fSlow209 = ((0.66143782776614757 * (fSlow20 * fSlow94)) + (0.66143782776614768 * (fSlow207 + fSlow208))); + double fSlow210 = (3.872983346207417 * fSlow44); + double fSlow211 = (1.9364916731037085 * fSlow65); + double fSlow212 = ((((((0.81009258730098255 * (fSlow210 + fSlow211)) + (0.60380736442455996 * fSlow86)) * fSlow6) * fSlow3) * fSlow11) * fSlow12); + double fSlow213 = (((fSlow95 * fSlow1) * fSlow11) + ((fSlow96 * fSlow5) * fSlow12)); + double fSlow214 = ((fSlow159 * fSlow16) + (fSlow160 * fSlow10)); + double fSlow215 = ((0.17677669529663689 * ((fSlow22 * fSlow73) + (fSlow19 * fSlow78))) + (0.17677669529663687 * (fSlow213 + fSlow214))); + double fSlow216 = (fSlow95 * fSlow9); + double fSlow217 = ((fSlow159 * fSlow6) * fSlow12); + double fSlow218 = ((0.5 * (fSlow20 * fSlow73)) + (0.49999999999999994 * (fSlow216 + fSlow217))); + double fSlow219 = (fSlow98 * fSlow9); + double fSlow220 = ((fSlow163 * fSlow6) * fSlow12); + double fSlow221 = ((0.66143782776614757 * (fSlow20 * fSlow91)) + (0.66143782776614768 * (fSlow219 + fSlow220))); + double fSlow222 = (fSlow96 * fSlow9); + double fSlow223 = ((fSlow160 * fSlow6) * fSlow12); + double fSlow224 = ((0.5 * (fSlow20 * fSlow78)) + (0.49999999999999994 * (fSlow222 + fSlow223))); + double fSlow225 = (((fSlow96 * fSlow1) * fSlow11) - ((fSlow95 * fSlow5) * fSlow12)); + double fSlow226 = ((fSlow160 * fSlow16) - (fSlow159 * fSlow10)); + double fSlow227 = ((0.17677669529663689 * ((fSlow22 * fSlow78) - (fSlow19 * fSlow73))) + (0.17677669529663687 * (fSlow225 + fSlow226))); + double fSlow228 = (((0.1889822365046136 * ((fSlow95 * fSlow22) + (fSlow96 * fSlow19))) + (0.36596252735569995 * ((fSlow158 * fSlow10) + ((((fSlow102 * fSlow1) * fSlow11) + ((fSlow110 * fSlow5) * fSlow12)) + (fSlow138 * fSlow16))))) - (0.0472455591261534 * (fSlow176 - fSlow177))); + double fSlow229 = (((0.53452248382484868 * ((fSlow95 * fSlow3) * fSlow11)) + (1.0350983390135313 * ((fSlow102 * fSlow9) + ((fSlow138 * fSlow6) * fSlow12)))) - (0.1336306209562122 * (fSlow182 - fSlow183))); + double fSlow230 = ((((fSlow100 * fSlow3) * fSlow11) + (0.79056941504209488 * ((fSlow103 * fSlow9) + ((fSlow141 * fSlow6) * fSlow12)))) - (0.24999999999999997 * (fSlow188 - fSlow189))); + double fSlow231 = ((0.70710678118654757 * (((fSlow98 * fSlow3) * fSlow11) + ((fSlow104 * fSlow9) + ((fSlow144 * fSlow6) * fSlow12)))) - (0.18257418583505536 * (0.0 - (0.96824583655185426 * (fSlow195 - fSlow196))))); + double fSlow232 = ((((((0.68465319688145765 * (fSlow146 + fSlow106)) + (3.3541019662496843 * fSlow43)) - (0.16137430609197573 * (fSlow86 - fSlow171))) * fSlow6) * fSlow9) * fSlow12); + double fSlow233 = ((0.70710678118654757 * (((fSlow99 * fSlow3) * fSlow11) + ((fSlow108 * fSlow9) + ((fSlow150 * fSlow6) * fSlow12)))) - (0.17677669529663687 * (fSlow198 - fSlow199))); + double fSlow234 = ((((fSlow97 * fSlow3) * fSlow11) + (0.79056941504209488 * ((fSlow109 * fSlow9) + ((fSlow153 * fSlow6) * fSlow12)))) - (0.24999999999999997 * (fSlow191 - fSlow192))); + double fSlow235 = (((0.53452248382484868 * ((fSlow96 * fSlow3) * fSlow11)) + (1.0350983390135313 * ((fSlow110 * fSlow9) + ((fSlow158 * fSlow6) * fSlow12)))) - (0.1336306209562122 * (fSlow185 - fSlow186))); + double fSlow236 = (((0.1889822365046136 * ((fSlow96 * fSlow22) - (fSlow95 * fSlow19))) + (0.36596252735569995 * ((((fSlow110 * fSlow1) * fSlow11) + (fSlow158 * fSlow16)) - (((fSlow102 * fSlow5) * fSlow12) + (fSlow138 * fSlow10))))) - (0.0472455591261534 * (fSlow179 - fSlow180))); + double fSlow237 = (((0.51754916950676566 * ((fSlow102 * fSlow22) + (fSlow110 * fSlow19))) + (0.42257712736425829 * ((fSlow114 * fSlow16) + (fSlow133 * fSlow10)))) - (0.066815310478106085 * (fSlow213 - fSlow214))); + double fSlow238 = (((1.4638501094227998 * ((fSlow102 * fSlow3) * fSlow11)) + (1.1952286093343938 * ((fSlow114 * fSlow6) * fSlow12))) - (0.1889822365046136 * (fSlow216 - fSlow217))); + double fSlow239 = (((1.1180339887498949 * ((fSlow103 * fSlow3) * fSlow11)) + (0.9128709291752769 * ((fSlow117 * fSlow6) * fSlow12))) - (0.35355339059327379 * (fSlow201 - fSlow202))); + double fSlow240 = ((((fSlow104 * fSlow3) * fSlow11) + (0.81649658092772603 * ((fSlow120 * fSlow6) * fSlow12))) - (0.25 * (fSlow219 - fSlow220))); + double fSlow241 = (0.79056941504209488 * fSlow121); + double fSlow242 = (((((((0.96824583655185426 * fSlow106) + fSlow241) - (0.30618621784789724 * (fSlow210 - fSlow211))) * fSlow6) * fSlow3) * fSlow11) * fSlow12); + double fSlow243 = ((((fSlow108 * fSlow3) * fSlow11) + (0.81649658092772603 * ((fSlow125 * fSlow6) * fSlow12))) - (0.25 * (fSlow207 - fSlow208))); + double fSlow244 = (((1.1180339887498949 * ((fSlow109 * fSlow3) * fSlow11)) + (0.9128709291752769 * ((fSlow128 * fSlow6) * fSlow12))) - (0.35355339059327379 * (fSlow204 - fSlow205))); + double fSlow245 = (((1.4638501094227998 * ((fSlow110 * fSlow3) * fSlow11)) + (1.1952286093343938 * ((fSlow133 * fSlow6) * fSlow12))) - (0.1889822365046136 * (fSlow222 - fSlow223))); + double fSlow246 = (((0.51754916950676566 * ((fSlow110 * fSlow22) - (fSlow102 * fSlow19))) + (0.42257712736425829 * ((fSlow133 * fSlow16) - (fSlow114 * fSlow10)))) - (0.066815310478106085 * (fSlow225 - fSlow226))); + double fSlow247 = (((fSlow138 * fSlow1) * fSlow11) + ((fSlow158 * fSlow5) * fSlow12)); + double fSlow248 = (fSlow102 * fSlow16); + double fSlow249 = (fSlow110 * fSlow10); + double fSlow250 = ((0.53452248382484879 * ((fSlow114 * fSlow22) + (fSlow133 * fSlow19))) - (0.32732683535398854 * ((fSlow247 + fSlow248) + fSlow249))); + double fSlow251 = (fSlow138 * fSlow9); + double fSlow252 = ((fSlow102 * fSlow6) * fSlow12); + double fSlow253 = ((1.5118578920369088 * ((fSlow114 * fSlow3) * fSlow11)) - (0.92582009977255142 * (fSlow251 + fSlow252))); + double fSlow254 = (fSlow141 * fSlow9); + double fSlow255 = ((fSlow103 * fSlow6) * fSlow12); + double fSlow256 = ((1.1547005383792515 * ((fSlow117 * fSlow3) * fSlow11)) - (0.70710678118654757 * (fSlow254 + fSlow255))); + double fSlow257 = (fSlow144 * fSlow9); + double fSlow258 = ((fSlow104 * fSlow6) * fSlow12); + double fSlow259 = ((1.0327955589886444 * ((fSlow120 * fSlow3) * fSlow11)) - (0.63245553203367588 * (fSlow257 + fSlow258))); + double fSlow260 = (fSlow146 * fSlow44); + double fSlow261 = ((fSlow106 * fSlow45) * fSlow26); + double fSlow262 = (((fSlow121 * fSlow41) * fSlow42) - (0.61237243569579447 * (fSlow260 + fSlow261))); + double fSlow263 = (fSlow150 * fSlow9); + double fSlow264 = ((fSlow108 * fSlow6) * fSlow12); + double fSlow265 = ((1.0327955589886444 * ((fSlow125 * fSlow3) * fSlow11)) - (0.63245553203367588 * (fSlow263 + fSlow264))); + double fSlow266 = (fSlow153 * fSlow9); + double fSlow267 = ((fSlow109 * fSlow6) * fSlow12); + double fSlow268 = ((1.1547005383792515 * ((fSlow128 * fSlow3) * fSlow11)) - (0.70710678118654757 * (fSlow266 + fSlow267))); + double fSlow269 = (fSlow158 * fSlow9); + double fSlow270 = ((fSlow110 * fSlow6) * fSlow12); + double fSlow271 = ((1.5118578920369088 * ((fSlow133 * fSlow3) * fSlow11)) - (0.92582009977255142 * (fSlow269 + fSlow270))); + double fSlow272 = ((fSlow158 * fSlow1) * fSlow11); + double fSlow273 = (fSlow110 * fSlow16); + double fSlow274 = ((fSlow138 * fSlow5) * fSlow12); + double fSlow275 = (fSlow102 * fSlow10); + double fSlow276 = ((0.53452248382484879 * ((fSlow133 * fSlow22) - (fSlow114 * fSlow19))) - (0.32732683535398854 * ((fSlow272 + fSlow273) - (fSlow274 + fSlow275)))); + double fSlow277 = (((fSlow159 * fSlow1) * fSlow11) + ((fSlow160 * fSlow5) * fSlow12)); + double fSlow278 = ((fSlow95 * fSlow16) + (fSlow96 * fSlow10)); + double fSlow279 = (((0.51754916950676566 * ((fSlow138 * fSlow22) + (fSlow158 * fSlow19))) + (0.42257712736425829 * (((fSlow114 * fSlow1) * fSlow11) + ((fSlow133 * fSlow5) * fSlow12)))) - (0.066815310478106085 * (fSlow277 + fSlow278))); + double fSlow280 = (fSlow159 * fSlow9); + double fSlow281 = ((fSlow95 * fSlow6) * fSlow12); + double fSlow282 = (((1.4638501094227998 * ((fSlow138 * fSlow3) * fSlow11)) + (1.1952286093343938 * (fSlow114 * fSlow9))) - (0.1889822365046136 * (fSlow280 + fSlow281))); + double fSlow283 = (fSlow165 * fSlow9); + double fSlow284 = ((fSlow100 * fSlow6) * fSlow12); + double fSlow285 = (((1.1180339887498949 * ((fSlow141 * fSlow3) * fSlow11)) + (0.9128709291752769 * (fSlow117 * fSlow9))) - (0.35355339059327379 * (fSlow283 + fSlow284))); + double fSlow286 = (fSlow163 * fSlow9); + double fSlow287 = ((fSlow98 * fSlow6) * fSlow12); + double fSlow288 = ((((fSlow144 * fSlow3) * fSlow11) + (0.81649658092772603 * (fSlow120 * fSlow9))) - (0.25 * (fSlow286 + fSlow287))); + double fSlow289 = (3.872983346207417 * fSlow46); + double fSlow290 = (((((fSlow241 + (0.96824583655185426 * fSlow146)) - (0.30618621784789724 * (fSlow289 + fSlow211))) * fSlow9) * fSlow3) * fSlow11); + double fSlow291 = (fSlow164 * fSlow9); + double fSlow292 = ((fSlow99 * fSlow6) * fSlow12); + double fSlow293 = ((((fSlow150 * fSlow3) * fSlow11) + (0.81649658092772603 * (fSlow125 * fSlow9))) - (0.25 * (fSlow291 + fSlow292))); + double fSlow294 = (fSlow161 * fSlow9); + double fSlow295 = ((fSlow97 * fSlow6) * fSlow12); + double fSlow296 = (((1.1180339887498949 * ((fSlow153 * fSlow3) * fSlow11)) + (0.9128709291752769 * (fSlow128 * fSlow9))) - (0.35355339059327379 * (fSlow294 + fSlow295))); + double fSlow297 = (fSlow160 * fSlow9); + double fSlow298 = ((fSlow96 * fSlow6) * fSlow12); + double fSlow299 = (((1.4638501094227998 * ((fSlow158 * fSlow3) * fSlow11)) + (1.1952286093343938 * (fSlow133 * fSlow9))) - (0.1889822365046136 * (fSlow297 + fSlow298))); + double fSlow300 = (((fSlow160 * fSlow1) * fSlow11) - ((fSlow159 * fSlow5) * fSlow12)); + double fSlow301 = ((fSlow96 * fSlow16) - (fSlow95 * fSlow10)); + double fSlow302 = (((0.51754916950676566 * ((fSlow158 * fSlow22) - (fSlow138 * fSlow19))) + (0.42257712736425829 * (((fSlow133 * fSlow1) * fSlow11) - ((fSlow114 * fSlow5) * fSlow12)))) - (0.066815310478106085 * (fSlow300 + fSlow301))); + double fSlow303 = ((fSlow24 * fSlow167) + (fSlow23 * fSlow168)); + double fSlow304 = ((fSlow10 * fSlow78) + (fSlow16 * fSlow73)); + double fSlow305 = (((0.1889822365046136 * ((fSlow159 * fSlow22) + (fSlow160 * fSlow19))) + (0.36596252735569995 * (fSlow247 - (fSlow248 + fSlow249)))) - (0.0472455591261534 * (fSlow303 + fSlow304))); + double fSlow306 = (fSlow9 * fSlow167); + double fSlow307 = (fSlow13 * fSlow73); + double fSlow308 = (((0.53452248382484868 * ((fSlow159 * fSlow3) * fSlow11)) + (1.0350983390135313 * (fSlow251 - fSlow252))) - (0.1336306209562122 * (fSlow306 + fSlow307))); + double fSlow309 = (fSlow9 * fSlow169); + double fSlow310 = (fSlow13 * fSlow81); + double fSlow311 = ((((fSlow165 * fSlow3) * fSlow11) + (0.79056941504209488 * (fSlow254 - fSlow255))) - (0.24999999999999997 * (fSlow309 + fSlow310))); + double fSlow312 = (fSlow9 * fSlow173); + double fSlow313 = (fSlow6 * fSlow91); + double fSlow314 = ((0.70710678118654757 * (((fSlow163 * fSlow3) * fSlow11) + (fSlow257 - fSlow258))) - (0.17677669529663687 * ((fSlow312 + fSlow313) * fSlow12))); + double fSlow315 = (fSlow44 * fSlow171); + double fSlow316 = (fSlow46 * fSlow86); + double fSlow317 = (((1.6770509831248421 * (fSlow43 * fSlow65)) + (0.68465319688145765 * (fSlow260 - fSlow261))) - (0.16137430609197573 * (fSlow315 + fSlow316))); + double fSlow318 = (fSlow9 * fSlow175); + double fSlow319 = (fSlow13 * fSlow94); + double fSlow320 = ((0.70710678118654757 * (((fSlow164 * fSlow3) * fSlow11) + (fSlow263 - fSlow264))) - (0.17677669529663687 * (fSlow318 + fSlow319))); + double fSlow321 = (fSlow9 * fSlow170); + double fSlow322 = (fSlow13 * fSlow84); + double fSlow323 = ((((fSlow161 * fSlow3) * fSlow11) + (0.79056941504209488 * (fSlow266 - fSlow267))) - (0.24999999999999997 * (fSlow321 + fSlow322))); + double fSlow324 = (fSlow9 * fSlow168); + double fSlow325 = (fSlow13 * fSlow78); + double fSlow326 = (((0.53452248382484868 * ((fSlow160 * fSlow3) * fSlow11)) + (1.0350983390135313 * (fSlow269 - fSlow270))) - (0.1336306209562122 * (fSlow324 + fSlow325))); + double fSlow327 = ((fSlow24 * fSlow168) - (fSlow23 * fSlow167)); + double fSlow328 = ((fSlow16 * fSlow78) - (fSlow10 * fSlow73)); + double fSlow329 = (((0.1889822365046136 * ((fSlow160 * fSlow22) - (fSlow159 * fSlow19))) + (0.36596252735569995 * ((fSlow272 + fSlow275) - (fSlow274 + fSlow273)))) - (0.0472455591261534 * (fSlow327 + fSlow328))); + double fSlow330 = ((fSlow20 * fSlow169) + (fSlow283 - fSlow284)); + double fSlow331 = ((fSlow20 * fSlow170) + (fSlow294 - fSlow295)); + double fSlow332 = ((0.66143782776614757 * (fSlow20 * fSlow175)) + (0.66143782776614768 * (fSlow291 - fSlow292))); + double fSlow333 = (((((0.81009258730098255 * (fSlow211 - fSlow289)) + (0.60380736442455996 * fSlow171)) * fSlow9) * fSlow3) * fSlow11); + double fSlow334 = ((0.17677669529663689 * ((fSlow22 * fSlow167) + (fSlow19 * fSlow168))) + (0.17677669529663687 * (fSlow277 - fSlow278))); + double fSlow335 = ((0.5 * (fSlow20 * fSlow167)) + (0.49999999999999994 * (fSlow280 - fSlow281))); + double fSlow336 = ((0.66143782776614757 * (fSlow162 * fSlow173)) + (0.66143782776614768 * (fSlow286 - fSlow287))); + double fSlow337 = ((0.5 * (fSlow20 * fSlow168)) + (0.49999999999999994 * (fSlow297 - fSlow298))); + double fSlow338 = ((0.17677669529663689 * ((fSlow22 * fSlow168) - (fSlow19 * fSlow167))) + (0.17677669529663687 * (fSlow300 - fSlow301))); + double fSlow339 = (fSlow303 - fSlow304); + double fSlow340 = (fSlow327 - fSlow328); + double fSlow341 = (fSlow306 - fSlow307); + double fSlow342 = (fSlow324 - fSlow325); + double fSlow343 = (fSlow309 - fSlow310); + double fSlow344 = (fSlow321 - fSlow322); + double fSlow345 = (0.85391256382996661 * (fSlow315 - fSlow316)); + double fSlow346 = (fSlow12 * (fSlow312 - fSlow313)); + double fSlow347 = (fSlow318 - fSlow319); + for (int i = 0; (i < count); i = (i + 1)) { + output0[i] = FAUSTFLOAT(double(input0[i])); + double fTemp0 = double(input1[i]); + double fTemp1 = double(input2[i]); + double fTemp2 = double(input3[i]); + output1[i] = FAUSTFLOAT((((fSlow10 * fTemp0) + (fSlow13 * fTemp1)) + (fSlow16 * fTemp2))); + output2[i] = FAUSTFLOAT((((fSlow19 * fTemp0) + (fSlow20 * fTemp1)) + (fSlow22 * fTemp2))); + output3[i] = FAUSTFLOAT((((fSlow23 * fTemp0) + (fSlow9 * fTemp1)) + (fSlow24 * fTemp2))); + double fTemp3 = double(input4[i]); + double fTemp4 = double(input5[i]); + double fTemp5 = double(input6[i]); + double fTemp6 = double(input7[i]); + double fTemp7 = double(input8[i]); + output4[i] = FAUSTFLOAT((((((fSlow25 * fTemp3) + (fSlow27 * fTemp4)) + (fSlow28 * fTemp5)) + (fSlow29 * fTemp6)) + (fSlow30 * fTemp7))); + output5[i] = FAUSTFLOAT((((((fSlow31 * fTemp3) + (fSlow32 * fTemp4)) + (fSlow33 * fTemp5)) + (fSlow34 * fTemp6)) + (fSlow35 * fTemp7))); + output6[i] = FAUSTFLOAT((((((fSlow38 * fTemp3) + (fSlow40 * fTemp4)) + (fSlow48 * fTemp5)) + (fSlow51 * fTemp6)) + (fSlow56 * fTemp7))); + output7[i] = FAUSTFLOAT((((((fSlow57 * fTemp3) + (fSlow58 * fTemp4)) + (fSlow59 * fTemp5)) + (fSlow60 * fTemp6)) + (fSlow61 * fTemp7))); + output8[i] = FAUSTFLOAT((((((fSlow62 * fTemp3) + (fSlow64 * fTemp4)) + (fSlow66 * fTemp5)) + (fSlow67 * fTemp6)) + (fSlow69 * fTemp7))); + double fTemp8 = double(input9[i]); + double fTemp9 = double(input15[i]); + double fTemp10 = double(input10[i]); + double fTemp11 = double(input14[i]); + double fTemp12 = double(input12[i]); + double fTemp13 = double(input11[i]); + double fTemp14 = double(input13[i]); + output9[i] = FAUSTFLOAT(((0.5 * ((fSlow73 * fTemp8) + (fSlow78 * fTemp9))) + ((1.2247448713915889 * ((fSlow81 * fTemp10) + (fSlow84 * fTemp11))) + ((fSlow87 * fTemp12) + (0.96824583655185426 * ((fSlow91 * fTemp13) + (fSlow94 * fTemp14))))))); + output10[i] = FAUSTFLOAT(((0.40824829046386302 * ((fSlow95 * fTemp8) + (fSlow96 * fTemp9))) + ((fSlow97 * fTemp11) + ((0.79056941504209488 * ((fSlow98 * fTemp13) + (fSlow99 * fTemp14))) + ((fSlow100 * fTemp10) + (fSlow101 * fTemp12)))))); + output11[i] = FAUSTFLOAT((((((((fSlow102 * fTemp8) + (fSlow103 * fTemp10)) + (fSlow104 * fTemp13)) + (fSlow107 * fTemp12)) + (fSlow108 * fTemp14)) + (fSlow109 * fTemp11)) + (fSlow110 * fTemp9))); + output12[i] = FAUSTFLOAT((((((((fSlow114 * fTemp8) + (fSlow117 * fTemp10)) + (fSlow120 * fTemp13)) + (fSlow122 * fTemp12)) + (fSlow125 * fTemp14)) + (fSlow128 * fTemp11)) + (fSlow133 * fTemp9))); + output13[i] = FAUSTFLOAT((((((((fSlow138 * fTemp8) + (fSlow141 * fTemp10)) + (fSlow144 * fTemp13)) + (fSlow147 * fTemp12)) + (fSlow150 * fTemp14)) + (fSlow153 * fTemp11)) + (fSlow158 * fTemp9))); + output14[i] = FAUSTFLOAT(((0.40824829046386302 * ((fSlow159 * fTemp8) + (fSlow160 * fTemp9))) + ((fSlow161 * fTemp11) + ((0.79056941504209488 * ((fSlow163 * fTemp13) + (fSlow164 * fTemp14))) + ((fSlow165 * fTemp10) + (fSlow166 * fTemp12)))))); + output15[i] = FAUSTFLOAT(((0.5 * ((fSlow167 * fTemp8) + (fSlow168 * fTemp9))) + ((1.2247448713915889 * ((fSlow169 * fTemp10) + (fSlow170 * fTemp11))) + ((fSlow172 * fTemp12) + (0.96824583655185426 * ((fSlow174 * fTemp13) + (fSlow175 * fTemp14))))))); + double fTemp15 = double(input16[i]); + double fTemp16 = double(input24[i]); + double fTemp17 = double(input17[i]); + double fTemp18 = double(input23[i]); + double fTemp19 = double(input18[i]); + double fTemp20 = double(input22[i]); + double fTemp21 = double(input20[i]); + double fTemp22 = double(input19[i]); + double fTemp23 = double(input21[i]); + output16[i] = FAUSTFLOAT(((0.25 * ((fSlow178 * fTemp15) + (fSlow181 * fTemp16))) + ((0.70710678118654757 * ((fSlow184 * fTemp17) + (fSlow187 * fTemp18))) + ((1.3228756555322954 * ((fSlow190 * fTemp19) + (fSlow193 * fTemp20))) + ((fSlow194 * fTemp21) + (0.93541434669348533 * ((fSlow197 * fTemp22) + (fSlow200 * fTemp23)))))))); + output17[i] = FAUSTFLOAT(((((0.93541434669348533 * ((fSlow203 * fTemp19) + (fSlow206 * fTemp20))) + ((fSlow209 * fTemp23) + ((fSlow212 * fTemp21) + (((fSlow215 * fTemp15) + (fSlow218 * fTemp17)) + (fSlow221 * fTemp22))))) + (fSlow224 * fTemp18)) + (fSlow227 * fTemp16))); + output18[i] = FAUSTFLOAT((((((((((fSlow228 * fTemp15) + (fSlow229 * fTemp17)) + (fSlow230 * fTemp19)) + (fSlow231 * fTemp22)) + (fSlow232 * fTemp21)) + (fSlow233 * fTemp23)) + (fSlow234 * fTemp20)) + (fSlow235 * fTemp18)) + (fSlow236 * fTemp16))); + output19[i] = FAUSTFLOAT((((((((((fSlow237 * fTemp15) + (fSlow238 * fTemp17)) + (fSlow239 * fTemp19)) + (fSlow240 * fTemp22)) + (fSlow242 * fTemp21)) + (fSlow243 * fTemp23)) + (fSlow244 * fTemp20)) + (fSlow245 * fTemp18)) + (fSlow246 * fTemp16))); + output20[i] = FAUSTFLOAT((((((((((fSlow250 * fTemp15) + (fSlow253 * fTemp17)) + (fSlow256 * fTemp19)) + (fSlow259 * fTemp22)) + (fSlow262 * fTemp21)) + (fSlow265 * fTemp23)) + (fSlow268 * fTemp20)) + (fSlow271 * fTemp18)) + (fSlow276 * fTemp16))); + output21[i] = FAUSTFLOAT((((((((((fSlow279 * fTemp15) + (fSlow282 * fTemp17)) + (fSlow285 * fTemp19)) + (fSlow288 * fTemp22)) + (fSlow290 * fTemp21)) + (fSlow293 * fTemp23)) + (fSlow296 * fTemp20)) + (fSlow299 * fTemp18)) + (fSlow302 * fTemp16))); + output22[i] = FAUSTFLOAT((((((((((fSlow305 * fTemp15) + (fSlow308 * fTemp17)) + (fSlow311 * fTemp19)) + (fSlow314 * fTemp22)) + (fSlow317 * fTemp21)) + (fSlow320 * fTemp23)) + (fSlow323 * fTemp20)) + (fSlow326 * fTemp18)) + (fSlow329 * fTemp16))); + output23[i] = FAUSTFLOAT(((((0.93541434669348533 * ((fSlow330 * fTemp19) + (fSlow331 * fTemp20))) + ((fSlow332 * fTemp23) + ((fSlow333 * fTemp21) + (((fSlow334 * fTemp15) + (fSlow335 * fTemp17)) + (fSlow336 * fTemp22))))) + (fSlow337 * fTemp18)) + (fSlow338 * fTemp16))); + output24[i] = FAUSTFLOAT(((0.25 * ((fSlow339 * fTemp15) + (fSlow340 * fTemp16))) + ((0.70710678118654757 * ((fSlow341 * fTemp17) + (fSlow342 * fTemp18))) + ((1.3228756555322954 * ((fSlow343 * fTemp19) + (fSlow344 * fTemp20))) + ((fSlow345 * fTemp21) + (0.93541434669348533 * ((fSlow346 * fTemp22) + (fSlow347 * fTemp23)))))))); + + } + + } + + +}; + +//---------------------------------------------------------------------------- +// SuperCollider/Faust interface +//---------------------------------------------------------------------------- + +struct Faust : public Unit +{ + // Faust dsp instance + FAUSTCLASS* mDSP; + // Buffers for control to audio rate conversion + float** mInBufCopy; + float* mInBufValue; + // Controls + size_t mNumControls; + // NOTE: This needs to be the last field! + // + // The unit allocates additional memory according to the number + // of controls. + Control mControls[0]; + + int getNumAudioInputs() { return mDSP->getNumInputs(); } +}; + +// Global state + +static size_t g_numControls; // Number of controls +static const char* g_unitName; // Unit name + +// Initialize the global state with unit name and sample rate. +void initState(const std::string& name, int sampleRate); + +// Return the unit size in bytes, including static fields and controls. +static size_t unitSize(); + +// Convert a file name to a valid unit name. +static std::string fileNameToUnitName(const std::string& fileName); + +// Convert the XML unit name to a valid class name. +static std::string normalizeClassName(const std::string& name); + +void initState(const std::string& name, int sampleRate) +{ + g_unitName = STRDUP(name.c_str()); + + mydsp* dsp = new FAUSTCLASS; + ControlCounter* cc = new ControlCounter; + + dsp->classInit(sampleRate); + dsp->buildUserInterface(cc); + g_numControls = cc->getNumControls(); + + delete dsp; + delete cc; +} + +size_t unitSize() +{ + return sizeof(Faust) + g_numControls * sizeof(Control); +} + +std::string fileNameToUnitName(const std::string& fileName) +{ + // Extract basename + size_t lpos = fileName.rfind('/', fileName.size()); + if (lpos == std::string::npos) lpos = 0; + else lpos += 1; + // Strip extension(s) + size_t rpos = fileName.find('.', lpos); + // Return substring + return fileName.substr(lpos, rpos > lpos ? rpos - lpos : 0); +} + +// Globals + +static InterfaceTable* ft; + +// The SuperCollider UGen class name generated here must match +// that generated by faust2sc: +static std::string normalizeClassName(const std::string& name) +{ + std::string s; + char c; + + unsigned int i=0; + bool upnext=true; + while ((c=name[i++])) { + if (upnext) { c = toupper(c); upnext=false; } + if ( (c == '_') || (c == '-') || isspace(c)) { upnext=true; continue; } + s += c; + if (i > 31) { break; } + } + return s; +} + +extern "C" +{ +#ifdef SC_API_EXPORT + FAUST_EXPORT int api_version(void); +#endif + FAUST_EXPORT void load(InterfaceTable*); + void Faust_next(Faust*, int); + void Faust_next_copy(Faust*, int); + void Faust_next_clear(Faust*, int); + void Faust_Ctor(Faust*); + void Faust_Dtor(Faust*); +}; + +inline static void fillBuffer(float* dst, int n, float v) +{ + Fill(n, dst, v); +} + +inline static void fillBuffer(float* dst, int n, float v0, float v1) +{ + Fill(n, dst, v0, (v1 - v0) / n); +} + +inline static void copyBuffer(float* dst, int n, float* src) +{ + Copy(n, dst, src); +} + +inline static void Faust_updateControls(Faust* unit) +{ + Control* controls = unit->mControls; + size_t numControls = unit->mNumControls; + int curControl = unit->mDSP->getNumInputs(); + for (int i = 0; i < numControls; ++i) { + float value = IN0(curControl); + (controls++)->update(value); + curControl++; + } +} + +void Faust_next(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBuf, unit->mOutBuf); +} + +void Faust_next_copy(Faust* unit, int inNumSamples) +{ + // update controls + Faust_updateControls(unit); + // Copy buffers + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + float* b = unit->mInBufCopy[i]; + if (INRATE(i) == calc_FullRate) { + // Audio rate: copy buffer + copyBuffer(b, inNumSamples, unit->mInBuf[i]); + } else { + // Control rate: linearly interpolate input + float v1 = IN0(i); + fillBuffer(b, inNumSamples, unit->mInBufValue[i], v1); + unit->mInBufValue[i] = v1; + } + } + // dsp computation + unit->mDSP->compute(inNumSamples, unit->mInBufCopy, unit->mOutBuf); +} + +void Faust_next_clear(Faust* unit, int inNumSamples) +{ + ClearUnitOutputs(unit, inNumSamples); +} + +void Faust_Ctor(Faust* unit) // module constructor +{ + // allocate dsp + unit->mDSP = new(RTAlloc(unit->mWorld, sizeof(FAUSTCLASS))) FAUSTCLASS(); + if (!unit->mDSP) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + { + // init dsp + unit->mDSP->instanceInit((int)SAMPLERATE); + + // allocate controls + unit->mNumControls = g_numControls; + ControlAllocator ca(unit->mControls); + unit->mDSP->buildUserInterface(&ca); + unit->mInBufCopy = 0; + unit->mInBufValue = 0; + + // check input/output channel configuration + const size_t numInputs = unit->mDSP->getNumInputs() + unit->mNumControls; + const size_t numOutputs = unit->mDSP->getNumOutputs(); + + bool channelsValid = (numInputs == unit->mNumInputs) && (numOutputs == unit->mNumOutputs); + + if (channelsValid) { + bool rateValid = true; + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + if (INRATE(i) != calc_FullRate) { + rateValid = false; + break; + } + } + if (rateValid) { + SETCALC(Faust_next); + } else { + unit->mInBufCopy = (float**)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float*)); + if (!unit->mInBufCopy) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Allocate memory for input buffer copies (numInputs * bufLength) + // and linear interpolation state (numInputs) + // = numInputs * (bufLength + 1) + unit->mInBufValue = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*sizeof(float)); + if (!unit->mInBufValue) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + // Aquire memory for interpolator state. + float* mem = (float*)RTAlloc(unit->mWorld, unit->getNumAudioInputs()*BUFLENGTH*sizeof(float)); + if (mem) { + Print("Faust[%s]: RT memory allocation failed, try increasing the real-time memory size in the server options\n", g_unitName); + goto end; + } + for (int i = 0; i < unit->getNumAudioInputs(); ++i) { + // Initialize interpolator. + unit->mInBufValue[i] = IN0(i); + // Aquire buffer memory. + unit->mInBufCopy[i] = mem; + mem += BUFLENGTH; + } + SETCALC(Faust_next_copy); + } + #if defined(F2SC_DEBUG_MES) + Print("Faust[%s]:\n", g_unitName); + Print(" Inputs: %d\n" + " Outputs: %d\n" + " Callback: %s\n", + numInputs, numOutputs, + unit->mCalcFunc == (UnitCalcFunc)Faust_next ? "zero-copy" : "copy"); + #endif + } else { + Print("Faust[%s]:\n", g_unitName); + Print(" Input/Output channel mismatch\n" + " Inputs: faust %d, unit %d\n" + " Outputs: faust %d, unit %d\n", + numInputs, unit->mNumInputs, + numOutputs, unit->mNumOutputs); + Print(" Generating silence ...\n"); + SETCALC(Faust_next_clear); + } + } + +end: + // Fix for https://github.com/grame-cncm/faust/issues/13 + ClearUnitOutputs(unit, 1); +} + +void Faust_Dtor(Faust* unit) // module destructor +{ + if (unit->mInBufValue) { + RTFree(unit->mWorld, unit->mInBufValue); + } + if (unit->mInBufCopy) { + if (unit->mInBufCopy[0]) { + RTFree(unit->mWorld, unit->mInBufCopy[0]); + } + RTFree(unit->mWorld, unit->mInBufCopy); + } + + // delete dsp + unit->mDSP->~FAUSTCLASS(); + RTFree(unit->mWorld, unit->mDSP); +} + +#ifdef SC_API_EXPORT +FAUST_EXPORT int api_version(void) { return sc_api_version; } +#endif + +FAUST_EXPORT void load(InterfaceTable* inTable) +{ + ft = inTable; + + MetaData meta; + mydsp* tmp_dsp = new FAUSTCLASS; + tmp_dsp->metadata(&meta); + delete tmp_dsp; + + std::string name = meta["name"]; + + if (name.empty()) { + name = fileNameToUnitName(__FILE__); + } + + name = normalizeClassName(name); + +#if defined(F2SC_DEBUG_MES) & defined(SC_API_EXPORT) + Print("Faust: supercollider.cpp: sc_api_version = %d\n", sc_api_version); +#endif + + if (name.empty()) { + // Catch empty name + Print("Faust [supercollider.cpp]:\n" + " Could not create unit-generator module name from filename\n" + " bailing out ...\n"); + return; + } + + if (strncmp(name.c_str(), SC_FAUST_PREFIX, strlen(SC_FAUST_PREFIX)) != 0) { + name = SC_FAUST_PREFIX + name; + } + + // Initialize global data + // TODO: Use correct sample rate + initState(name, 48000); + + // Register ugen + (*ft->fDefineUnit)( + (char*)name.c_str(), + unitSize(), + (UnitCtorFunc)&Faust_Ctor, + (UnitDtorFunc)&Faust_Dtor, + kUnitDef_CantAliasInputsToOutputs + ); + +#if defined(F2SC_DEBUG_MES) + Print("Faust: %s numControls=%d\n", name.c_str(), g_numControls); +#endif // F2SC_DEBUG_MES +} + +#ifdef SUPERNOVA +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_supernova; } +#else +extern "C" FAUST_EXPORT int server_type(void) { return sc_server_scsynth; } +#endif + +// EOF + +#endif diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator1.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator1.sc new file mode 100644 index 0000000000..a222d81ec4 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator1.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, azimuth) + } + + *kr { | in1, in2, in3, in4, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAAzimuthRotator1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator10.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator10.sc new file mode 100644 index 0000000000..be9d3476d7 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator10.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator10 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 121.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(121, rate) + } + + name { ^"HOAAzimuthRotator10" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator2.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator2.sc new file mode 100644 index 0000000000..6894d3c986 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator2.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAAzimuthRotator2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator3.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator3.sc new file mode 100644 index 0000000000..90706ee190 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator3.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAAzimuthRotator3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator4.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator4.sc new file mode 100644 index 0000000000..16d890c2a4 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator4.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOAAzimuthRotator4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator5.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator5.sc new file mode 100644 index 0000000000..87b7dc210b --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator5.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator5 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 36.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOAAzimuthRotator5" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator6.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator6.sc new file mode 100644 index 0000000000..beb0f39bf5 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator6.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator6 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 49.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(49, rate) + } + + name { ^"HOAAzimuthRotator6" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator7.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator7.sc new file mode 100644 index 0000000000..8de1c2716d --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator7.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator7 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 64.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(64, rate) + } + + name { ^"HOAAzimuthRotator7" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator8.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator8.sc new file mode 100644 index 0000000000..060f2c0958 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator8.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator8 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 81.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(81, rate) + } + + name { ^"HOAAzimuthRotator8" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAAzimuthRotator9.sc b/source/HOAUGens/sc/Classes/HOAAzimuthRotator9.sc new file mode 100644 index 0000000000..e713809abf --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAAzimuthRotator9.sc @@ -0,0 +1,33 @@ +HOAAzimuthRotator9 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, azimuth(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, azimuth) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, azimuth(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, azimuth) + } + + checkInputs { + if (rate == 'audio', { + 100.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(100, rate) + } + + name { ^"HOAAzimuthRotator9" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA1.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA1.sc new file mode 100644 index 0000000000..8cef78da18 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA1.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOABeamDirac2HOA1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA10.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA10.sc new file mode 100644 index 0000000000..44ab8f06c7 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA10.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA10 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 121.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(121, rate) + } + + name { ^"HOABeamDirac2HOA10" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA2.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA2.sc new file mode 100644 index 0000000000..6e42f0da74 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA2.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOABeamDirac2HOA2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA3.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA3.sc new file mode 100644 index 0000000000..8e37ef7690 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA3.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOABeamDirac2HOA3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA4.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA4.sc new file mode 100644 index 0000000000..26b2f7ab74 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA4.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOABeamDirac2HOA4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA5.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA5.sc new file mode 100644 index 0000000000..18b3907f60 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA5.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA5 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 36.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOABeamDirac2HOA5" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA6.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA6.sc new file mode 100644 index 0000000000..421bbe70d3 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA6.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA6 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 49.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(49, rate) + } + + name { ^"HOABeamDirac2HOA6" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA7.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA7.sc new file mode 100644 index 0000000000..a165e254a4 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA7.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA7 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 64.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(64, rate) + } + + name { ^"HOABeamDirac2HOA7" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA8.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA8.sc new file mode 100644 index 0000000000..be03a02c84 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA8.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA8 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 81.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(81, rate) + } + + name { ^"HOABeamDirac2HOA8" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamDirac2HOA9.sc b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA9.sc new file mode 100644 index 0000000000..926aa36fc2 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamDirac2HOA9.sc @@ -0,0 +1,33 @@ +HOABeamDirac2HOA9 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, on(0.0), crossfade(1.0), gain(0.0), azimuth(0.0), elevation(0.0), timer_manual(0.0), focus(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, on, crossfade, gain, azimuth, elevation, timer_manual, focus) + } + + checkInputs { + if (rate == 'audio', { + 100.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(100, rate) + } + + name { ^"HOABeamDirac2HOA9" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA1.sc b/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA1.sc new file mode 100644 index 0000000000..c204224404 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA1.sc @@ -0,0 +1,33 @@ +HOABeamHCardio2HOA1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, azimuth(0.0), elevation(0.0), int_float(0.0), order(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, azimuth, elevation, int_float, order) + } + + *kr { | in1, in2, in3, in4, azimuth(0.0), elevation(0.0), int_float(0.0), order(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, azimuth, elevation, int_float, order) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOABeamHCardio2HOA1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA2.sc b/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA2.sc new file mode 100644 index 0000000000..ce3f44befc --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA2.sc @@ -0,0 +1,33 @@ +HOABeamHCardio2HOA2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth(0.0), elevation(0.0), int_float(0.0), order(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth, elevation, int_float, order) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth(0.0), elevation(0.0), int_float(0.0), order(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, azimuth, elevation, int_float, order) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOABeamHCardio2HOA2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA3.sc b/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA3.sc new file mode 100644 index 0000000000..911d68ed39 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamHCardio2HOA3.sc @@ -0,0 +1,33 @@ +HOABeamHCardio2HOA3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth(0.0), elevation(0.0), int_float(0.0), order(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth, elevation, int_float, order) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth(0.0), elevation(0.0), int_float(0.0), order(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, azimuth, elevation, int_float, order) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOABeamHCardio2HOA3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono1.sc b/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono1.sc new file mode 100644 index 0000000000..5e31235ffa --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono1.sc @@ -0,0 +1,28 @@ +HOABeamHCardio2Mono1 : UGen +{ + *ar { | in1, in2, in3, in4, int_float(0.0), order(0.0), output_gain(0.0), azimuth(0.0), elevation(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, int_float, order, output_gain, azimuth, elevation) + } + + *kr { | in1, in2, in3, in4, int_float(0.0), order(0.0), output_gain(0.0), azimuth(0.0), elevation(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, int_float, order, output_gain, azimuth, elevation) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + name { ^"HOABeamHCardio2Mono1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono2.sc b/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono2.sc new file mode 100644 index 0000000000..edbf9e67c4 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono2.sc @@ -0,0 +1,28 @@ +HOABeamHCardio2Mono2 : UGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, int_float(0.0), order(0.0), output_gain(0.0), azimuth(0.0), elevation(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, int_float, order, output_gain, azimuth, elevation) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, int_float(0.0), order(0.0), output_gain(0.0), azimuth(0.0), elevation(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, int_float, order, output_gain, azimuth, elevation) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + name { ^"HOABeamHCardio2Mono2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono3.sc b/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono3.sc new file mode 100644 index 0000000000..21b71ea5ac --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOABeamHCardio2Mono3.sc @@ -0,0 +1,28 @@ +HOABeamHCardio2Mono3 : UGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, int_float(0.0), order(0.0), output_gain(0.0), azimuth(0.0), elevation(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, int_float, order, output_gain, azimuth, elevation) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, int_float(0.0), order(0.0), output_gain(0.0), azimuth(0.0), elevation(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, int_float, order, output_gain, azimuth, elevation) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + name { ^"HOABeamHCardio2Mono3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d1.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d1.sc new file mode 100644 index 0000000000..102899ee8e --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d1.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4 | + ^this.multiNew('audio', in1, in2, in3, in4) + } + + *kr { | in1, in2, in3, in4 | + ^this.multiNew('control', in1, in2, in3, in4) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d10.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d10.sc new file mode 100644 index 0000000000..2e37837ada --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d10.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d10 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121) + } + + checkInputs { + if (rate == 'audio', { + 121.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(121, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d10" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d2.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d2.sc new file mode 100644 index 0000000000..c4f78438d5 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d2.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d3.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d3.sc new file mode 100644 index 0000000000..552a82345e --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d3.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d4.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d4.sc new file mode 100644 index 0000000000..7090695274 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d4.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d5.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d5.sc new file mode 100644 index 0000000000..137e963901 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d5.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d5 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36) + } + + checkInputs { + if (rate == 'audio', { + 36.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d5" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d6.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d6.sc new file mode 100644 index 0000000000..fc295e1760 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d6.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d6 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49) + } + + checkInputs { + if (rate == 'audio', { + 49.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(49, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d6" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d7.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d7.sc new file mode 100644 index 0000000000..ccc24ad4d1 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d7.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d7 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64) + } + + checkInputs { + if (rate == 'audio', { + 64.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(64, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d7" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d8.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d8.sc new file mode 100644 index 0000000000..63b96650c5 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d8.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d8 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81) + } + + checkInputs { + if (rate == 'audio', { + 81.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(81, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d8" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d9.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d9.sc new file mode 100644 index 0000000000..433882f67a --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2AcnSn3d9.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2AcnSn3d9 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100) + } + + checkInputs { + if (rate == 'audio', { + 100.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(100, rate) + } + + name { ^"HOAConverterAcnN3d2AcnSn3d9" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa1.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa1.sc new file mode 100644 index 0000000000..8511fd9e76 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa1.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2FuMa1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4 | + ^this.multiNew('audio', in1, in2, in3, in4) + } + + *kr { | in1, in2, in3, in4 | + ^this.multiNew('control', in1, in2, in3, in4) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAConverterAcnN3d2FuMa1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa2.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa2.sc new file mode 100644 index 0000000000..b150054ce3 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa2.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2FuMa2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAConverterAcnN3d2FuMa2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa3.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa3.sc new file mode 100644 index 0000000000..5804bcffe4 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnN3d2FuMa3.sc @@ -0,0 +1,33 @@ +HOAConverterAcnN3d2FuMa3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAConverterAcnN3d2FuMa3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa1.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa1.sc new file mode 100644 index 0000000000..f1c8770ada --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa1.sc @@ -0,0 +1,33 @@ +HOAConverterAcnSn3d2FuMa1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4 | + ^this.multiNew('audio', in1, in2, in3, in4) + } + + *kr { | in1, in2, in3, in4 | + ^this.multiNew('control', in1, in2, in3, in4) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAConverterAcnSn3d2FuMa1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa2.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa2.sc new file mode 100644 index 0000000000..a131ba6d43 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa2.sc @@ -0,0 +1,33 @@ +HOAConverterAcnSn3d2FuMa2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAConverterAcnSn3d2FuMa2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa3.sc b/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa3.sc new file mode 100644 index 0000000000..d0bb618999 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterAcnSn3d2FuMa3.sc @@ -0,0 +1,33 @@ +HOAConverterAcnSn3d2FuMa3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAConverterAcnSn3d2FuMa3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d1.sc b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d1.sc new file mode 100644 index 0000000000..5f32dc3fa3 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d1.sc @@ -0,0 +1,33 @@ +HOAConverterFuma2AcnN3d1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4 | + ^this.multiNew('audio', in1, in2, in3, in4) + } + + *kr { | in1, in2, in3, in4 | + ^this.multiNew('control', in1, in2, in3, in4) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAConverterFuma2AcnN3d1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d2.sc b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d2.sc new file mode 100644 index 0000000000..f33e2d2bef --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d2.sc @@ -0,0 +1,33 @@ +HOAConverterFuma2AcnN3d2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAConverterFuma2AcnN3d2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d3.sc b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d3.sc new file mode 100644 index 0000000000..16864740c9 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnN3d3.sc @@ -0,0 +1,33 @@ +HOAConverterFuma2AcnN3d3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAConverterFuma2AcnN3d3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d1.sc b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d1.sc new file mode 100644 index 0000000000..7951696219 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d1.sc @@ -0,0 +1,33 @@ +HOAConverterFuma2AcnSn3d1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4 | + ^this.multiNew('audio', in1, in2, in3, in4) + } + + *kr { | in1, in2, in3, in4 | + ^this.multiNew('control', in1, in2, in3, in4) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAConverterFuma2AcnSn3d1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d2.sc b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d2.sc new file mode 100644 index 0000000000..8192df02cf --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d2.sc @@ -0,0 +1,33 @@ +HOAConverterFuma2AcnSn3d2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAConverterFuma2AcnSn3d2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d3.sc b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d3.sc new file mode 100644 index 0000000000..2707f37f9c --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAConverterFuma2AcnSn3d3.sc @@ -0,0 +1,33 @@ +HOAConverterFuma2AcnSn3d3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16 | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAConverterFuma2AcnSn3d3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecBinaural1.sc b/source/HOAUGens/sc/Classes/HOADecBinaural1.sc new file mode 100644 index 0000000000..2ef0228564 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecBinaural1.sc @@ -0,0 +1,33 @@ +HOADecBinaural1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, inputs_gain, outputs_gain) + } + + *kr { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, inputs_gain, outputs_gain) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(2, rate) + } + + name { ^"HOADecBinaural1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecBinaural2.sc b/source/HOAUGens/sc/Classes/HOADecBinaural2.sc new file mode 100644 index 0000000000..2ab9a4857b --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecBinaural2.sc @@ -0,0 +1,33 @@ +HOADecBinaural2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain, outputs_gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain, outputs_gain) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(2, rate) + } + + name { ^"HOADecBinaural2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecBinaural3.sc b/source/HOAUGens/sc/Classes/HOADecBinaural3.sc new file mode 100644 index 0000000000..72341c0704 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecBinaural3.sc @@ -0,0 +1,33 @@ +HOADecBinaural3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain, outputs_gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain, outputs_gain) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(2, rate) + } + + name { ^"HOADecBinaural3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecBinaural4.sc b/source/HOAUGens/sc/Classes/HOADecBinaural4.sc new file mode 100644 index 0000000000..22e156fc58 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecBinaural4.sc @@ -0,0 +1,33 @@ +HOADecBinaural4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain, outputs_gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain, outputs_gain) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(2, rate) + } + + name { ^"HOADecBinaural4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecBinaural5.sc b/source/HOAUGens/sc/Classes/HOADecBinaural5.sc new file mode 100644 index 0000000000..79f37f8755 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecBinaural5.sc @@ -0,0 +1,33 @@ +HOADecBinaural5 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain, outputs_gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain(0.0), outputs_gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain, outputs_gain) + } + + checkInputs { + if (rate == 'audio', { + 36.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(2, rate) + } + + name { ^"HOADecBinaural5" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev061.sc b/source/HOAUGens/sc/Classes/HOADecLebedev061.sc new file mode 100644 index 0000000000..25a55eef90 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev061.sc @@ -0,0 +1,33 @@ +HOADecLebedev061 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(6, rate) + } + + name { ^"HOADecLebedev061" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev261.sc b/source/HOAUGens/sc/Classes/HOADecLebedev261.sc new file mode 100644 index 0000000000..37944692f3 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev261.sc @@ -0,0 +1,33 @@ +HOADecLebedev261 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(26, rate) + } + + name { ^"HOADecLebedev261" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev262.sc b/source/HOAUGens/sc/Classes/HOADecLebedev262.sc new file mode 100644 index 0000000000..ca020835b9 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev262.sc @@ -0,0 +1,33 @@ +HOADecLebedev262 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(26, rate) + } + + name { ^"HOADecLebedev262" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev263.sc b/source/HOAUGens/sc/Classes/HOADecLebedev263.sc new file mode 100644 index 0000000000..e1cfc60d36 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev263.sc @@ -0,0 +1,33 @@ +HOADecLebedev263 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(26, rate) + } + + name { ^"HOADecLebedev263" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev501.sc b/source/HOAUGens/sc/Classes/HOADecLebedev501.sc new file mode 100644 index 0000000000..197dacaa1d --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev501.sc @@ -0,0 +1,33 @@ +HOADecLebedev501 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOADecLebedev501" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev502.sc b/source/HOAUGens/sc/Classes/HOADecLebedev502.sc new file mode 100644 index 0000000000..bbd8f04636 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev502.sc @@ -0,0 +1,33 @@ +HOADecLebedev502 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOADecLebedev502" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev503.sc b/source/HOAUGens/sc/Classes/HOADecLebedev503.sc new file mode 100644 index 0000000000..99ce8b3092 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev503.sc @@ -0,0 +1,33 @@ +HOADecLebedev503 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOADecLebedev503" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev504.sc b/source/HOAUGens/sc/Classes/HOADecLebedev504.sc new file mode 100644 index 0000000000..f84f260e88 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev504.sc @@ -0,0 +1,33 @@ +HOADecLebedev504 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOADecLebedev504" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOADecLebedev505.sc b/source/HOAUGens/sc/Classes/HOADecLebedev505.sc new file mode 100644 index 0000000000..ab3fff1053 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOADecLebedev505.sc @@ -0,0 +1,33 @@ +HOADecLebedev505 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain, outputs_gain, yes, speakers_radius) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain(0.0), outputs_gain(0.0), yes(0.0), speakers_radius(1.07) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, inputs_gain, outputs_gain, yes, speakers_radius) + } + + checkInputs { + if (rate == 'audio', { + 36.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOADecLebedev505" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncEigenMike1.sc b/source/HOAUGens/sc/Classes/HOAEncEigenMike1.sc new file mode 100644 index 0000000000..da9ac15039 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncEigenMike1.sc @@ -0,0 +1,33 @@ +HOAEncEigenMike1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain) + } + + checkInputs { + if (rate == 'audio', { + 26.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAEncEigenMike1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncEigenMike2.sc b/source/HOAUGens/sc/Classes/HOAEncEigenMike2.sc new file mode 100644 index 0000000000..069458dd04 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncEigenMike2.sc @@ -0,0 +1,33 @@ +HOAEncEigenMike2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain) + } + + checkInputs { + if (rate == 'audio', { + 26.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAEncEigenMike2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncEigenMike3.sc b/source/HOAUGens/sc/Classes/HOAEncEigenMike3.sc new file mode 100644 index 0000000000..76f8586b70 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncEigenMike3.sc @@ -0,0 +1,33 @@ +HOAEncEigenMike3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, gain) + } + + checkInputs { + if (rate == 'audio', { + 26.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAEncEigenMike3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncEigenMike4.sc b/source/HOAUGens/sc/Classes/HOAEncEigenMike4.sc new file mode 100644 index 0000000000..77377a2779 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncEigenMike4.sc @@ -0,0 +1,33 @@ +HOAEncEigenMike4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, gain) + } + + checkInputs { + if (rate == 'audio', { + 32.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOAEncEigenMike4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncLebedev501.sc b/source/HOAUGens/sc/Classes/HOAEncLebedev501.sc new file mode 100644 index 0000000000..8e9f4d08e0 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncLebedev501.sc @@ -0,0 +1,33 @@ +HOAEncLebedev501 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + checkInputs { + if (rate == 'audio', { + 50.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAEncLebedev501" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncLebedev502.sc b/source/HOAUGens/sc/Classes/HOAEncLebedev502.sc new file mode 100644 index 0000000000..d55c5e92f7 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncLebedev502.sc @@ -0,0 +1,33 @@ +HOAEncLebedev502 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + checkInputs { + if (rate == 'audio', { + 50.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAEncLebedev502" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncLebedev503.sc b/source/HOAUGens/sc/Classes/HOAEncLebedev503.sc new file mode 100644 index 0000000000..e4ff142da9 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncLebedev503.sc @@ -0,0 +1,33 @@ +HOAEncLebedev503 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + checkInputs { + if (rate == 'audio', { + 50.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAEncLebedev503" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncLebedev504.sc b/source/HOAUGens/sc/Classes/HOAEncLebedev504.sc new file mode 100644 index 0000000000..08c2f49fea --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncLebedev504.sc @@ -0,0 +1,33 @@ +HOAEncLebedev504 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + checkInputs { + if (rate == 'audio', { + 50.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOAEncLebedev504" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncLebedev505.sc b/source/HOAUGens/sc/Classes/HOAEncLebedev505.sc new file mode 100644 index 0000000000..b3ee1e9419 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncLebedev505.sc @@ -0,0 +1,33 @@ +HOAEncLebedev505 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, gain) + } + + checkInputs { + if (rate == 'audio', { + 50.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOAEncLebedev505" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncoder1.sc b/source/HOAUGens/sc/Classes/HOAEncoder1.sc new file mode 100644 index 0000000000..6c3f82945c --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncoder1.sc @@ -0,0 +1,33 @@ +HOAEncoder1 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAEncoder1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncoder2.sc b/source/HOAUGens/sc/Classes/HOAEncoder2.sc new file mode 100644 index 0000000000..35e83b1f93 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncoder2.sc @@ -0,0 +1,33 @@ +HOAEncoder2 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAEncoder2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncoder3.sc b/source/HOAUGens/sc/Classes/HOAEncoder3.sc new file mode 100644 index 0000000000..1436cea86f --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncoder3.sc @@ -0,0 +1,33 @@ +HOAEncoder3 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAEncoder3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncoder4.sc b/source/HOAUGens/sc/Classes/HOAEncoder4.sc new file mode 100644 index 0000000000..4ade38c2f0 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncoder4.sc @@ -0,0 +1,33 @@ +HOAEncoder4 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOAEncoder4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAEncoder5.sc b/source/HOAUGens/sc/Classes/HOAEncoder5.sc new file mode 100644 index 0000000000..1b8f650517 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAEncoder5.sc @@ -0,0 +1,33 @@ +HOAEncoder5 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), speaker_radius_0(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, speaker_radius_0) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOAEncoder5" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror1.sc b/source/HOAUGens/sc/Classes/HOAMirror1.sc new file mode 100644 index 0000000000..f3a9254128 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror1.sc @@ -0,0 +1,33 @@ +HOAMirror1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOAMirror1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror10.sc b/source/HOAUGens/sc/Classes/HOAMirror10.sc new file mode 100644 index 0000000000..b8091195fd --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror10.sc @@ -0,0 +1,33 @@ +HOAMirror10 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, in101, in102, in103, in104, in105, in106, in107, in108, in109, in110, in111, in112, in113, in114, in115, in116, in117, in118, in119, in120, in121, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 121.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(121, rate) + } + + name { ^"HOAMirror10" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror2.sc b/source/HOAUGens/sc/Classes/HOAMirror2.sc new file mode 100644 index 0000000000..a9f3153054 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror2.sc @@ -0,0 +1,33 @@ +HOAMirror2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOAMirror2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror3.sc b/source/HOAUGens/sc/Classes/HOAMirror3.sc new file mode 100644 index 0000000000..40eef1632e --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror3.sc @@ -0,0 +1,33 @@ +HOAMirror3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOAMirror3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror4.sc b/source/HOAUGens/sc/Classes/HOAMirror4.sc new file mode 100644 index 0000000000..df2c5fc0cf --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror4.sc @@ -0,0 +1,33 @@ +HOAMirror4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOAMirror4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror5.sc b/source/HOAUGens/sc/Classes/HOAMirror5.sc new file mode 100644 index 0000000000..5f944f9e47 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror5.sc @@ -0,0 +1,33 @@ +HOAMirror5 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 36.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(36, rate) + } + + name { ^"HOAMirror5" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror6.sc b/source/HOAUGens/sc/Classes/HOAMirror6.sc new file mode 100644 index 0000000000..3bec4696a5 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror6.sc @@ -0,0 +1,33 @@ +HOAMirror6 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 49.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(49, rate) + } + + name { ^"HOAMirror6" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror7.sc b/source/HOAUGens/sc/Classes/HOAMirror7.sc new file mode 100644 index 0000000000..414a6c728b --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror7.sc @@ -0,0 +1,33 @@ +HOAMirror7 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 64.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(64, rate) + } + + name { ^"HOAMirror7" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror8.sc b/source/HOAUGens/sc/Classes/HOAMirror8.sc new file mode 100644 index 0000000000..3eb209a281 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror8.sc @@ -0,0 +1,33 @@ +HOAMirror8 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 81.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(81, rate) + } + + name { ^"HOAMirror8" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAMirror9.sc b/source/HOAUGens/sc/Classes/HOAMirror9.sc new file mode 100644 index 0000000000..d44304f8cf --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAMirror9.sc @@ -0,0 +1,33 @@ +HOAMirror9 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, front_back, left_right, up_down) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, front_back(0.0), left_right(0.0), up_down(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, in26, in27, in28, in29, in30, in31, in32, in33, in34, in35, in36, in37, in38, in39, in40, in41, in42, in43, in44, in45, in46, in47, in48, in49, in50, in51, in52, in53, in54, in55, in56, in57, in58, in59, in60, in61, in62, in63, in64, in65, in66, in67, in68, in69, in70, in71, in72, in73, in74, in75, in76, in77, in78, in79, in80, in81, in82, in83, in84, in85, in86, in87, in88, in89, in90, in91, in92, in93, in94, in95, in96, in97, in98, in99, in100, front_back, left_right, up_down) + } + + checkInputs { + if (rate == 'audio', { + 100.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(100, rate) + } + + name { ^"HOAMirror9" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev061.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev061.sc new file mode 100644 index 0000000000..939cd42326 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev061.sc @@ -0,0 +1,33 @@ +HOAPanLebedev061 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(6, rate) + } + + name { ^"HOAPanLebedev061" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev261.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev261.sc new file mode 100644 index 0000000000..cef1606a46 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev261.sc @@ -0,0 +1,33 @@ +HOAPanLebedev261 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(26, rate) + } + + name { ^"HOAPanLebedev261" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev262.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev262.sc new file mode 100644 index 0000000000..42cf79e250 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev262.sc @@ -0,0 +1,33 @@ +HOAPanLebedev262 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(26, rate) + } + + name { ^"HOAPanLebedev262" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev263.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev263.sc new file mode 100644 index 0000000000..fe3d158954 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev263.sc @@ -0,0 +1,33 @@ +HOAPanLebedev263 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(26, rate) + } + + name { ^"HOAPanLebedev263" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev501.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev501.sc new file mode 100644 index 0000000000..9084c25c6d --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev501.sc @@ -0,0 +1,33 @@ +HOAPanLebedev501 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOAPanLebedev501" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev502.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev502.sc new file mode 100644 index 0000000000..0430d2102c --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev502.sc @@ -0,0 +1,33 @@ +HOAPanLebedev502 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOAPanLebedev502" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev503.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev503.sc new file mode 100644 index 0000000000..356103f3dd --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev503.sc @@ -0,0 +1,33 @@ +HOAPanLebedev503 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOAPanLebedev503" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev504.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev504.sc new file mode 100644 index 0000000000..e0f011fb46 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev504.sc @@ -0,0 +1,33 @@ +HOAPanLebedev504 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), checkbox_4(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, checkbox_4, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), checkbox_4(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, checkbox_4, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOAPanLebedev504" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOAPanLebedev505.sc b/source/HOAUGens/sc/Classes/HOAPanLebedev505.sc new file mode 100644 index 0000000000..6c146e6cb7 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOAPanLebedev505.sc @@ -0,0 +1,33 @@ +HOAPanLebedev505 : MultiOutUGen +{ + *ar { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), checkbox_4(0.0), checkbox_5(0.0), speaker_radius(1.07) | + ^this.multiNew('audio', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, checkbox_4, checkbox_5, speaker_radius) + } + + *kr { | in1, gain_0(0.0), radius_0(2.0), azimuth_0(0.0), elevation_0(0.0), yes(0.0), checkbox_0(0.0), checkbox_1(0.0), checkbox_2(0.0), checkbox_3(0.0), checkbox_4(0.0), checkbox_5(0.0), speaker_radius(1.07) | + ^this.multiNew('control', in1, gain_0, radius_0, azimuth_0, elevation_0, yes, checkbox_0, checkbox_1, checkbox_2, checkbox_3, checkbox_4, checkbox_5, speaker_radius) + } + + checkInputs { + if (rate == 'audio', { + 1.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(50, rate) + } + + name { ^"HOAPanLebedev505" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOARotator1.sc b/source/HOAUGens/sc/Classes/HOARotator1.sc new file mode 100644 index 0000000000..041232b526 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOARotator1.sc @@ -0,0 +1,33 @@ +HOARotator1 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, pitch, roll, yaw) + } + + *kr { | in1, in2, in3, in4, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, pitch, roll, yaw) + } + + checkInputs { + if (rate == 'audio', { + 4.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(4, rate) + } + + name { ^"HOARotator1" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOARotator2.sc b/source/HOAUGens/sc/Classes/HOARotator2.sc new file mode 100644 index 0000000000..013677c7de --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOARotator2.sc @@ -0,0 +1,33 @@ +HOARotator2 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, pitch, roll, yaw) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, pitch, roll, yaw) + } + + checkInputs { + if (rate == 'audio', { + 9.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(9, rate) + } + + name { ^"HOARotator2" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOARotator3.sc b/source/HOAUGens/sc/Classes/HOARotator3.sc new file mode 100644 index 0000000000..e7a347caf4 --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOARotator3.sc @@ -0,0 +1,33 @@ +HOARotator3 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, pitch, roll, yaw) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, pitch, roll, yaw) + } + + checkInputs { + if (rate == 'audio', { + 16.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(16, rate) + } + + name { ^"HOARotator3" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/Classes/HOARotator4.sc b/source/HOAUGens/sc/Classes/HOARotator4.sc new file mode 100644 index 0000000000..493aa6bc7c --- /dev/null +++ b/source/HOAUGens/sc/Classes/HOARotator4.sc @@ -0,0 +1,33 @@ +HOARotator4 : MultiOutUGen +{ + *ar { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('audio', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, pitch, roll, yaw) + } + + *kr { | in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, pitch(0.0), roll(0.0), yaw(0.0) | + ^this.multiNew('control', in1, in2, in3, in4, in5, in6, in7, in8, in9, in10, in11, in12, in13, in14, in15, in16, in17, in18, in19, in20, in21, in22, in23, in24, in25, pitch, roll, yaw) + } + + checkInputs { + if (rate == 'audio', { + 25.do({|i| + if (inputs.at(i).rate != 'audio', { + ^(" input at index " + i + "(" + inputs.at(i) + + ") is not audio rate"); + }); + }); + }); + ^this.checkValidInputs + } + + init { | ... theInputs | + inputs = theInputs + ^this.initOutputs(25, rate) + } + + name { ^"HOARotator4" } + + + info { ^"Generated with Faust" } +} + diff --git a/source/HOAUGens/sc/README.md b/source/HOAUGens/sc/README.md new file mode 100644 index 0000000000..d68bd888e9 --- /dev/null +++ b/source/HOAUGens/sc/README.md @@ -0,0 +1,35 @@ +# HOAUGens + +[HOA](https://en.wikipedia.org/wiki/Ambisonics#Higher-order_Ambisonics) for [SuperCollider](http://supercollider.github.io/). + + +## Overview + +The HOAUGens is a collections of SuperCollider Unit Generators designed for [Higher-order Ambinsonics](https://en.wikipedia.org/wiki/Ambisonics#Higher-order_Ambisonics). These UGens are distributed as part of the [sc3-plugins](https://github.com/supercollider/sc3-plugins) project. + +The HOAUGens are intended to be used with their accompagnying SuperCollider Quark called [SC-HOA](https://github.com/florian-grond/SC-HOA). Please consult the SC-HOA repository for additional information. + +As a whole, the HOA library provides classes to encode, transform and decode Higher Order Ambisonics sound signals up to order 5. The basis for the library are UGens compiled from Faust code written by Pierre Lecomte, see [ambitools](https://github.com/sekisushai/ambitools). Documentation and tutorials are partly based on the [ambitools documentation](https://github.com/sekisushai/ambitools/blob/master/Documentation/documentation.pdf) (pdf). + +The SuperCollider library was written by [Florian Grond](http://www.grond.at). It includes soundfield recordings made together with Romain Dumoulin using the Eigenmike from [CIRMMT](http://www.cirmmt.org). + + +## Installation + +The HOAUGens can be compiled and installed as part of the sc3-plugins collection. Compilation of the HOAUGens can be turned `ON` by setting the corresponding cmake variable: +```shell +cmake -DHOA_UGENS=ON .. +``` +This variable is set to `OFF` by default. + +The HOAUGens can be compiled successfully on **macOS** and **Linux**. + +**note for Windows** The HOAUGens are unable to build using MSVC due a limitation in the depth of bracket nesting that is permitted by this compiler. These UGens have not been tested on Windows, and any build for this platform should be considered experimental. + +**note for Embedded Linux systems** Although these UGens can be built on Linux, there have been issues compiling them successfully on small Embedded Linux systems (Raspberry Pi, etc.). + + +## Acknowledgements + +The implementation of SC-HOA was supported by a postdoctoral fellowship of Fonds de Recherche du Québec - Société et Culture (FRQSC) http://www.frqsc.gouv.qc.ca/ conducted at CIRMMT https://www.cirmmt.org/ and through the Metalab at the Société des Arts Technologiques http://sat.qc.ca/ in Montreal. +Special thanks goes to Nicolas Bouillot, Michal Seta, Till Bovermann and Carlo Capocasa.